Download
1 / 1
10 likes | 189 Views
Missile Launch. Cloud(W). Exit_click. cmdLaunch_click. tmrD_Timer. Down(Turn). 8. End. Set width of C2 to W Set Left of C1 to Left - W Set Width of C1 to W. Unload Form1 Show Form2 Set tmrD to start. Static Turn. Case Turn. End Sub. Turn = Down(Turn). 10. Else.
E N D
Missile Launch Cloud(W) Exit_click cmdLaunch_click tmrD_Timer Down(Turn) 8 End Set width of C2 to W Set Left of C1 to Left - W Set Width of C1 to W Unload Form1 Show Form2 Set tmrD to start Static Turn Case Turn End Sub Turn = Down(Turn) 10 Else lblCount.Forecolor = Red End Sub End Sub Up(Turn) End Sub 1 lblCount.Caption = 10 - Turns Increment Turn Return Turn Restart tmrD MoveOver(x) 2 1 Make Cloud Visible Make Fire Visible Make Counter Invisible Start Up timer Stop Down timer Case Turn 3 2 C = 1200 U = 30 T = 450 4 3 C = 900 U = 45 T = 400 5 C = 600 U = 60 T = 330 6 Set Missile top = top - d Set Fire top = top - d 55 Else End Sub 4 5 End Sub C = 300 U = 75 T = 260 R = 5 U = 90 T = 200 Cloud.Visible = F tmrUp_Timer Cloud(C) MoveUp(d) Static turn imgR.Top = imgR.Top - d imgF.Top = imgF.Top - d MoveOver(R) 6 Else R=5 U = 100 T = 1 R=5 U = 100 T = 1 Turn = Up(turn) MoveUp(U) End Sub 55 tmrU.Inteval = 0 cmdExit.Visible = T tmrUp.Enable = False tmrUp.Interval = T tmrUp.Enable = True End Sub End Sub
