Graphics 800,600 SetBuffer BackBuffer() ;;;;;make types;;;;; Type player Field x Field y Field on Field image End Type Type bullet Field x Field y End Type ;;;;/make types;;;;; ;;;;;initialize types;;;;;; Global player.player = New player player\x = 400 player\y = 300 player\on = 1 player\image = LoadImage("guy.bmp") ;;;;/initialize types;;;;;; While Not KeyDown(1) Cls ;;;;;background;;;;; b = LoadImage("b.bmp") TileImage b ;;;;/background;;;;; bullet = LoadImage("bullet.bmp") ;;;;;;draw the player;;;;;; DrawImage player\image, player\x, player\y ;;;;;;draw the player;;;;;; If KeyDown(200) player\y = player\y - 10 ElseIf KeyDown(208) player\y = player\y + 10 ElseIf KeyDown(203) player\x = player\x - 10 ElseIf KeyDown(205) player\x = player\x + 10 ElseIf KeyHit(57) bulleton = 1 bullet.bullet = New bullet bullet\x = player\x - 10 bullet\y = player\y - 10 EndIf If bulleton bullet\x = bullet\x + 10 DrawImage bullet, bullet\x, bullet\y EndIf If player\y = 0 player\y = 590 ElseIf player\y = 600 player\y = 10 ElseIf player\x = 800 player\x = 10 ElseIf player\x = 0 player\x = 800 EndIf Flip Wend
how can i make it so that if you press space bar twice, you see two bullets instead of the other just dissapearing?? thanks