infectfunction

;Time to make directions
Function TestKeys()
	If KeyDown(UPKEY) 
		If player1\y > 8
			player1\y = player1\y - 2
		EndIf
	EndIf
	If KeyDown(DOWNKEY)
		If player1\y < 460
			player1\y = player1\y + 2
		EndIf
	EndIf
	If KeyDown(LEFTKEY)
		If player1\x > 0
			player1\x = player1\x - 2
		EndIf	
	EndIf
	If KeyDown(RIGHTKEY) 
		If player1\x < 630
			player1\x = player1\x + 2
		EndIf
	EndIf
End Function

Function DrawPlayer()
;For each player
	For j.player = Each player
		;if user should be drawn
		If j\draw = 1
			DrawImage(playimg, j\x, j\y)
		EndIf
	Next
End Function

Function DrawEnemies()
	;This decides how the enemy moves!
	For enemy.enemy = Each enemy
		If enemy\draw = 1
			If Sqr((player1\x - enemy\x)^2+(player1\y - enemy\y)^2) < 150
				If enemy\x < player1\x
					enemy\x = enemy\x + 1
				EndIf
				If enemy\x > player1\x
					enemy\x = enemy\x - 1
				EndIf
				If enemy\y < player1\y
					enemy\y = enemy\y + 1
				EndIf
				If enemy\y > player1\y
					enemy\y = enemy\y - 1
				EndIf
				DrawImage(enemyimg, enemy\x, enemy\y)
				Else
				If Not enemy\x > 630 Or enemy\y > 470 Or enemy\x < 5 Or enemy\y < 5
					enemy\x = enemy\x + Rand(-2,2)
					enemy\y = enemy\y + Rand(-2,2)
				ElseIf enemy\x > 630
					enemy\x = enemy\x + Rand(-2,-2)
				ElseIf enemy\y > 470
					enemy\y = enemy\y + Rand(-2,-2)
				ElseIf enemy\x < 5
					enemy\x = enemy\x + Rand(2,2)
				ElseIf enemy\y < 5
					enemy\y = enemy\y + Rand(2,2)
				EndIf
			EndIf
				DrawImage(enemyimg, enemy\x, enemy\y)
			EndIf
	Next
End Function

Function DrawCoins()
	For coin.coin = Each coin
		If coin\draw = 1
			DrawImage(coinimg, coin\x, coin\y)
		EndIf
	Next
End Function

Function InitializeLevel()
	Text 310,240,"Almost time for level " + level
	level = level + 1
	numofenemies = level + 1
	numofcoins = level
	For e = 1 To numofenemies
		CreateEnemies()
	Next
	For e = 1 To numofcoins
		DrawCoins()
	Next
End Function

Function CreateEnemies()
	enemy.enemy = New enemy
End Function

Function enemyCRASH()
	For enemy.enemy = Each enemy
		If ImagesCollide(playimg,player1\x,player1\y,0,enemyimg,enemy\x,enemy\y,0)
			Delay 200
			Flip
			Text 310,240,"Ouch."
			player1\life = player1\life - 1
			player1\x = Rand(0,640)
			player1\y = Rand(0,480)
			If player1\draw = 1
				DrawPlayer()
			EndIf
		EndIf
	Next
End Function

Function GetCoin()
	For coin.coin = Each coin
		If ImagesCollide(playimg,player1\x,player1\y,0,coinimg,coin\x,coin\y,0)
			numofcoins = numofcoins - 1
			If numofcoins > 0
				Delete coin
				player1\score = player1\score + 1
			ElseIf numofcoins = 0
				InitializeLevel()
			EndIf
		EndIf
	Next
End Function