Another code problem

;Types
Type Player
   Field x,y,health,speed
End Type 
;Lets define the Player type
player.player\x=400
player.player\y=300
player.player\health=3
player.player\speed=4
Type Projectile
    Field x,y
End Type 
;Lets define the Projectile type
shot.Projectile\x=player\x
shot.Projectile\y=player\y+15
;Functions
Function ControlPlayer()
  While Not KeyDown(1)
      If KeyDown(LEFTKEY) Then
   player\x=player\x-player\speed
      If KeyDown(RIGHTKEY) Then
   player\x=player\x+player\speed 
      If KeyDown(SPACE) Then 
   projectile\y=projectile\y+100
      EndIf
      EndIf
      EndIf 
  Wend
End Function     
ControlPlayer()
End 

Graphics 640,480

;Types
Type Player
   Field x,y,health,speed
End Type 
Type Projectile
    Field x,y
End Type 

; make a new player instance and set it to the global variable "realplayer"
Global realplayer.player=New player
realplayer\x=400
realplayer\y=300
realplayer\health=3
realplayer\speed=4

While Not KeyHit(1)
Cls
UpdatePlayer()
UpdateProjectiles()
Flip
Delay 1
Wend
End

Function UpdateProjectiles()
	; loop through all projectiles
	Local shot.projectile
	For shot=Each projectile
		; draw it
		Plot shot\x,shot\y
		; move it down 10 pixels
		shot\y=shot\y+10
	Next
End Function

Function UpdatePlayer()
	Rect realplayer\x-4,realplayer\y-4,8,8
      If KeyDown(203)
  		realplayer\x=realplayer\x-realplayer\speed
      Else If KeyDown(205)
		realplayer\x=realplayer\x+realplayer\speed
	EndIf  
	If KeyDown(57)
		; make a new projectile set to the local variable "shot"
		Local shot.projectile=New projectile
		shot\x=realplayer\x
		shot\y=realplayer\y
      EndIf 
End Function