Program Competition
Define XCoordinateofMainSprite As Int
Define YCoordinateofMainSprite As Int
Method Instructions()
Color(yellow)
Print("Below are the controls of the game")
Pen(False)
MoveTo(0,15)
Pen(True)
Print("To move your Space-craft use the arrow keys")
Pen(False)
MoveTo(0,30)
Pen(True)
Print("X is shoot")
Pen(False)
MoveTo(0,45)
Pen(True)
Print("S is to commit suicide")
Pen(False)
MoveTo(0,60)
Pen(True)
Print("B is to plant a bomb")
Delay(789)
Define Timeline As Int
End Method
Method Background()
LoadSprite("Space", "Space.png")
StampSprite("Space")
End Method

	Method Main()
	Define Count As Int
	
	Background()
	Instructions()
	Ship()
	XCoordinateofMainSprite = 20
	YCoordinateofMainSprite = 200
	Count = 1
	While Count < 999
	CheckForAnarrowkey()
	Count = Count + 1
	
	End While
	Finish(1)
	Finish(2)
	Finish(3)
	Finish(4)
	Finish(5)
	Finish(6)
	Finish(7)
	Finish(8)
	Finish(9)
	Finish(10)
	Finish(11)
	Finish(12)
	Finish(13)
	Finish(14)
	Finish(15)
	Finish(16)
	Finish(17)
	Finish(18)
	Finish(19)
	Finish(20)
	Finish(21)
	Finish(22)
	Finish(23)
	Finish(24)
	Finish(25)
	Finish(26)
	Finish(27)
	Finish(28)
	Finish(29)
	Finish(30)
	Finish(31)
	Finish(32)
	Finish(33)
	Finish(34)
	Finish(35)
	Finish(36)
	Car()
	Finish(37)
	Finish(38)
	Finish(39)
	Finish(40)
	Finish(41)
	Finish(42)
	Finish(43)
	Finish(44)
	Finish(45)
	Finish(46)
	Finish(47)
	Finish(48)
	Finish(49)
	Bomb()
	Explosion()
	End Method
Method Finish(Number As Int)
 If Number = 1 Then
   Alert("A virus has occured", "Error")
 End If
If Number = 2 Then
Alert("Hi", "Error")
End If
If Number = 3 Then
Alert("How are you?", "Error")
End If	
If Number = 4 Then
Alert("What do you think of me?", "Error")
End If	
If Number = 5 Then
Alert("OK", "Error")
End If	
If Number = 6 Then
Alert("If you don't like me, I won't like you!", "Error")
End If	
If Number = 7 Then
Alert("What!", "Error")
End If	
If Number = 8 Then
Alert("You know, that was just a trick?", "Error")
End If	
If Number = 9 Then
Alert("I'm bored", "Error")
End If	
If Number = 10 Then
Alert("Please will you stop clicking?", "Error")
End If
 If Number = 11 Then
   Alert("Ok punk, you pressed it, press it again!", "Error")
 End If
 If Number = 12 Then
   Alert("Yeah thats it, do it one more time", "Error")
 End If
 If Number = 13 Then
   Alert("Again", "Error")
 End If
 If Number = 14 Then
   Alert("Do it", "Error")
 End If
 If Number = 15 Then
   Alert("Okay, you have had your fun, stop!", "Error")
 End If
 If Number = 16 Then
   Alert("This is why I hate people clicking and we can't be friends!", "Error")
 End If
 If Number = 17 Then
   Alert("You're just selfish", "Error")
 End If
 If Number = 18 Then
   Alert("Grr, do not carry on clicking!", "Error")
 End If
 If Number = 19 Then
   Alert("Ok so my commands are not working...", "Error")
 End If
 If Number = 20 Then
   Alert("Time for plan B", "Error")
 End If
 If Number = 20 Then
   Alert("Um, whats plan B", "Error")
 End If
 If Number = 21 Then
   Alert("Stop Clicking", "Error")
 End If
 If Number = 22 Then
   Alert("I hate you!", "Error")
 End If
 If Number = 23 Then
   Alert("Quick, whats that behind you!", "Error")
 End If
 If Number = 24 Then
   Alert("Mwahahahaha!", "Error")
 End If
 If Number = 25 Then
   Alert("Which one?", "Error")
 End If
 If Number = 26 Then
   Alert("Ok, you can press it again.", "Error")
 End If
 If Number = 27 Then
   Alert("I don't care anymore.", "Error")
 End If
 If Number = 28 Then
   Alert("In fact, I lost interest a while ago.", "Error")
 End If
 If Number = 29 Then
   Alert("I'm doing this to entertain you.", "Error")
 End If
 If Number = 30 Then
   Alert("Really", "Error")
 End If
 If Number = 31 Then
   Alert("You know, I'm glad we spent this time together.", "Error")
 End If
 If Number = 32 Then
   Alert("You're really sad you know?", "Error")
 End If
 If Number = 33 Then
   Alert("Still just clicking away", "Error")
 End If
 If Number = 34 Then
   Alert("It is now time for my revenge.", "Error")
 End If
 If Number = 35 Then
   Alert("I have planted a bomb", "Error")
 End If
 If Number = 36 Then
   Alert("Its in a car, I will show it to you now", "Error")
 End If
If Number = 37 Then
   Alert("Look in the bottom right, there is a car.", "Error")
 End If
 If Number = 38 Then
   Alert("In 10 seconds, this car is going to explode!", "Error")
 End If
 If Number = 39 Then
   Alert("10", "Error")
 End If
 If Number = 40 Then
   Alert("9", "Error")
 End If
 If Number = 41 Then
   Alert("8", "Error")
 End If
 If Number = 42 Then
   Alert("7", "Error")
 End If
 If Number = 43 Then
   Alert("6", "Error")
 End If
 If Number = 44 Then
   Alert("5", "Error")
 End If
 If Number = 45 Then
   Alert("4", "Error")
 End If
 If Number = 46 Then
   Alert("3", "Error")
 End If
 If Number = 47 Then
   Alert("2", "Error")
 End If
 If Number = 48 Then
   Alert("1", "Error")
 End If
If Number = 49 Then 
If Confirm( "Do you wish to get $1000 for free?", "Answer the question please" ) Then
			Alert( "I'm sorry, I don't have it.", "Bad News" )
		Else
			Alert( "Why wouldn't you?", "Huh?" )
		End If
 

End If 
End Method

Method Ship()
LoadSprite("UFO", "UFO.gif")
MoveSpriteToPoint("UFO",50,100)
End Method 
Method Car()
LoadSprite("Car", "Car.gif")
ShowSprite("Car")
MoveSpriteToPoint("Car", 400,250)
StampSprite("car")
SetSpriteZIndex("Car", 1)
End Method
Method Bomb()
End Method
Method AnimatedSprite()
		
	End Method
	
		Method Explosion()
		LoadSprite("Explosion", "Explosion.gif")
		ScaleSprite("Explosion", "5")
		MoveSpriteToPoint("Explosion", 200,75)
		Delay(100)
		ShowSprite("Explosion")
		SetSpriteZIndex("Explosion", 1)
		Define Timeline As Int [17]
		Define Count As Int
		Timeline[1] = 100
		Timeline[2] = 100
		Timeline[3] = 100
		Timeline[4] = 100
		Timeline[5] = 100
		Timeline[6] = 100
		Timeline[7] = 100
		Timeline[8] = 100
		Timeline[9] = 100
		Timeline[10] = 100
		Timeline[11] = 100
		Timeline[12] = 100
		Timeline[13] = 100
		Timeline[14] = 100
		Timeline[15] = 100
		Timeline[16] = 100
		Timeline[17] = 100
		SetSpriteAnimationTimeline("Explosion", True, Timeline)
		While True = True
		 Delay(0)
		End While
		
		
	End Method
	Method CheckForAnarrowkey()

	
			If IsKeyDown("down") Then
			YCoordinateofMainSprite = YCoordinateofMainSprite +1
			End If
			
			If IsKeyDown("up") Then
			YCoordinateofMainSprite = YCoordinateofMainSprite - 1
			End If
			If IsKeyDown("right") Then
			XCoordinateofMainSprite = XCoordinateofMainSprite +1
			End If
			If IsKeyDown("left") Then
			XCoordinateofMainSprite = XCoordinateofMainSprite - 1
			End If
			MoveSpriteToPoint("UFO", XCoordinateofMainSprite,YCoordinateofMainSprite)
			ShowSprite("UFO")
			Delay(0)
		
			End Method
		
End Program