[...]
Function startgame()
If KeyHit(25) Then gamemode = 4
optionsmode = 0
Cls
movement()

   For s.shot = Each shot
      s\px = s\px + wpnspeed
      DrawImage wpnimg,s\px,s\py   
      If s\px > gfxWidth-50 Then
         s\px = gfxWidth-50
         If s\frame < 6 Then         
            s\frame = s\frame + 1
            DrawImage expl1,s\px,s\py,s\frame
            s\dead = s\dead + s\frame
         EndIf
      EndIf
      If s\dead = 6 Delete s.shot
   Next
   
DrawImage player,px,py,0
End Function

Function movement()
If leftkey Then
   px = px - player_speed
   For I = 0 To 1
      DrawImage player,px,py,I
   Next
EndIf
If rightkey Then px = px + player_speed
  If upkey And jump = False Then   
    jump = True
   jumpmax# = 8
  EndIf
If shotkey Then
   If shotcount < maxshots Then
      shotcount = shotcount + 1
      PlaySound wpnsnd
      shot()
   Else
      PlaySound snd_emptywpn      
   EndIf
EndIf

If reloadkey Then
   shotcount = 0
   PlaySound snd_reload
EndIf

If KeyHit(2) Then weapon = weapon + 1
If weapon > 4 Then weapon = 1


;Rand testen
If px < 0 Then px = 0
If px > gfxWidth-64 Then px = gfxWidth-64
End Function

Function shot()
   s.shot = New shot
   s\py = py +10
   s\px = px +50
   s\speed = 8
   s\dead = 0
   s\frame = 0
End Function
[...]

Function weapons()
If weapon = 1 Then
   weaponname = "Handgun"
   maxshots = 12
   wpnspeed = 8
   wpnsnd = snd_shot1
   wpnimg = shot1
EndIf

If weapon = 2 Then
   weaponname$ = "Shotgun"
   maxshots = 1
   wpnspeed = 7
   wpnsnd = snd_shot2
   wpnimg = shot2
EndIf

If weapon = 3 Then
   weaponname$ = "Laser"
   maxshots = 20
   wpnspeed = 9
   wpnsnd = snd_shot3
   wpnimg = shot3
EndIf

If weapon = 4 Then
   weaponname$ = "Snowball"
   maxshots = 10
   wpnspeed = 6
   wpnsnd = snd_shot4
   wpnimg = shot4
EndIf
End Function

type schuss 
    field art
    field speed
end type

...

for a.schuss = each schuss

   select a\art
       case 1 a\speed = 21
       case 2 a\speed = 1
   end select
next

For s.shot = Each shot
      s\px = s\px + s\speed
      Select weapon
         Case 1    s\image = img_shot1
               s\name = "Handgun"
               s\sound = snd_shot1
               s\maxshots = 12
               s\speed = 8
         Case 2    s\image = img_shot2
               s\name = "Pumpgun"
               s\sound = snd_shot2
               s\maxshots = 12
               s\speed = 8                           
         Case 3    s\image = img_shot3
               s\name = "Laser"
               s\sound = snd_shot3
               s\maxshots = 12   
               s\speed = 8                           
         Case 4    s\image = img_shot4
               s\name = "Snowball"
               s\sound = snd_shot4
               s\maxshots = 12
               s\speed = 8                              
      End Select                                    
      DrawImage s\image,s\px,s\py
      PlaySound s\sound
      If s\px > gfxWidth-50 Then
         s\px = gfxWidth-50
         If s\frame < 6 Then         
            s\frame = s\frame + 1
            DrawImage expl1,s\px,s\py,s\frame
            s\dead = s\dead + s\frame
         EndIf
      EndIf
      If s\dead = 6 Delete s.shot      
   Next

Type schuss
   Field x
   Field y
   Field art
End Type

[...]

For a.schuss = Each schuss
   Select a\art
      Case "Micky Mouse"
            Drawimage Micky_Mouse, a\x, a\y

 
Function shot()
   s.shot = New shot
   s\py = py +10
   s\px = px +50
   s\dead = 0
   s\frame = 0
   s\speed = 8
   Select weapon
      Case 1   s\image = img_shot1
      Case 2   s\image = img_shot2
      Case 3   s\image = img_shot3
      Case 4   s\image = img_shot4                              
   End Select
End Function