There is no real reason for the change other than I don’t like this look anymore and I think I can make something better.

Even with the extended break I think im still on track to have the game finished by 6pm tomorrow but that all depends on what catches my eye tomorrow. Also have I mentioned that coming up with a design for a level sucks and its only a simple game.

Tomorrow I hope to add in some kind of enemy and pick ups that you have to get before you can finish the level just to make the later levels harder. Maybe 5 with just movement then 5 with collectables then 5 with enemies then the last 5 a mix of enemies and collectables.

Any way here are 2 pictures

Again I have decided to use Andengine and Box2D because I have used them before and like how they work on the Android platform, So far im thinking about doing 20 levels to the game.

At the moment I have the physics collision working and a level controller set up so you have to finish one level before moving onto the next, The motion controls are also working so mostly all that is left is to complete the score board that I want to add and add in an Enemy manager and collectable manager, Aswell as create 19 more levels.

Here some shots of the work so far.. Sorry for the shit graphics im a programmer not an artist – The font used is Ubuntu.

Rule 1: I cannot start until 10 today
Rule 2: Game must be published to the Android Market at 6pm Tomorrow
Rule 3: Game must contain at least 5 levels
Rule 4: Full source code must be released
Rule 5: It must work on devices from Android 1.6 onwards
Rule 6: Blog progress every 4 hours

Although simple rules they should help to motivate me and actually get me to finish a project that I start.

Well with 5 minutes to go until I start I better go and get a very large cup of coffee and some toast.

Next post @ 2pm (ish)

By the end of this week I hope to have the levels loading through XML because I can’t be bothered to type in:

1

addObject(Scene, X Location, Y Location);

For every object in the scene.

Here are a few screen shots taken from my X10 using DDMS

Like most software updates the last WordPress 3.1.1 was no different and broke the slider on the main page which has lead to me having to spend some time working out what went wrong, Now I have fixed it I decided it might be a good idea to share the fix on here.

Go to the Admin Panel -> Appearance -> Editor -> Home Page Template (template-home.php)

Find:

1

$category = get_option('sf_portfolio_category');

Replace With:

1

$category = sf_get_category_id(get_option('sf_portfolio_category'));

A couple of lines lower find:

1

$my_query = new WP_Query('showposts='.$slide_count.'&category_name='.$category);

And Replace with:

1

$my_query = new WP_Query('showposts='.$slide_count.'&cat='.$category);

This should solve all your problems and take less than 5 minutes to fix.

1
2
3
4

Private Sub workbook_open()
Application.Visible = False
FORM.Show
End Sub

The problem is Excel is still opened in the process list and you have to manually kill the task or open another Excel task. But there is a quick and easy fix to solve the problem. Just add the following to your form.

1
2
3

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
	ActiveWorkbook.Close
End Sub

Although this isn’t perfect it does the job. It also assumes that the user has saved any work they have done but this can be extended to ask the user if they are sure by using the following.

1
2
3
4
5
6
7
8
9
10
11

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
	If CloseMode = 0 Then
        	response = MsgBox("Exit Application." & vbCrLf & vbCrLf & _
       		 "Are you sure", vbYesNo, "Please Confirm")
        If response = vbYes Then
            Application.Quit
        Else
            Cancel = 1
        End If
    End If
End Sub

You can also use True, False instead of 1,0

Open Excel and press Alt+F11 to open the VBA editor and create a new form. On the form add one Label and 3 buttons I kept the names simple by calling them cbStart, cbStop and cbReset. Now double click anywhere on the form and clear any code that it added and just paste in the following.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54

Dim dteStart As Date, dteFinish As Date
Dim dteStopped As Date, dteElapsed As Date
Dim boolStopPressed As Boolean, boolResetPressed As Boolean
 
'###################
'Reset all values
'###################

Private Sub cbReset_Click()
    dteStopped = 0
    dteStart = 0
    dteElapsed = 0
    Label1 = "00:00:00"
    boolResetPressed = True
End Sub
 
'###################
'Start the timer
'###################

Private Sub cbStart_Click()
Start_timer:
    dteStart = Time
    boolStopPressed = False
    boolResetPressed = False
Timer_Loop:
    DoEvents
    dteFinish = Time
    dteElapsed = dteFinish - dteStart + dteStopped
    If Not boolStopPressed = True Then
        Label1 = dteElapsed
        If boolResetPressed = True Then GoTo Start_timer
        GoTo Timer_Loop
    Else
        Exit Sub
    End If
End Sub
 
'###################
'Stop the timer
'###################

Private Sub cbStop_Click()
    boolStopPressed = True
    dteStopped = dteElapsed
End Sub
 
'###################
'Set the label on form load
'###################

Private Sub UserForm_Initialize()
    Label1 = "00:00:00"
End Sub

This one sorts out most internet connectivity issues by releasing the IP then flushing the DNS and finally renewing the IP.

Again just copy into notepad and save as file.bat I called mine network_refresh.bat

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

@echo Refresh Network Settings
@pause
ipconfig /release
cls
@echo IP Released
@pause
cls
@echo Flush DNS
@pause
ipconfig /flushdns
cls
@echo DNS Flushed
@pause
cls
@echo Renew IP
@pause
ipconfig /renew
cls
@echo Problem Should Be Solved
@pause

Copy the code into notepad and save as file.vbs I called mine network.vbs and just run it on any computer to add it to your Domain or Workgroup.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39

Name = InputBox("Enter the new computer name below and click OK to continue","Rename: Step 1")
 
Set objWMIService = GetObject("Winmgmts:root\cimv2")
 
' Call always gets only one Win32_ComputerSystem object.
For Each objComputer in _
   objWMIService.InstancesOf("Win32_ComputerSystem")
 
       Return = objComputer.rename(Name,Password,User)
       If Return <> 0 Then
          WScript.Echo "Rename failed. Error = " & Err.Number
       Else
          WScript.Echo "Rename succeeded." & " Reboot for new name to go into effect"
       End If
 
 
 
Next
 
 
 
DomainName = InputBox("Enter the Domain to join this computer to and click OK to continue","Rename: Step 1")
 
Set objWMIService = GetObject("Winmgmts:root\cimv2")
 
' Call always gets only one Win32_ComputerSystem object.
For Each objComputer in _
   objWMIService.InstancesOf("Win32_ComputerSystem")
 
       Return = objComputer.JoinDomainOrWorkgroup(DomainName,DomainPassword,DomainUsername)
       If Return <> 0 Then
          WScript.Echo "Rename failed. Error = " & Err.Number
       Else
          WScript.Echo "Rename succeeded." & " Reboot for new name to go into effect"
       End If
 
 
 
Next