For player.player=Each player
   If player\id=1 Then
      For item.item=Each item
         If item\x=player\x And item\y=player\y Then
            collect(player\id, player\x, player\y, item\item)
         EndIf
      Next
      Exit
   End If
Next
For x=0 To 14
   For y=0 To 11
      map(x,y)=2
   Next
Next

For x=1 To 13
   For y=1 To 10
      map(x,y)=1
   Next
Next

For x=0 To 14
   For y=0 To 11
      DrawImage gfx_map,x*32,y*32,map(x,y)
   Next
Next

For x=1 To 13
   For y=1 To 10
      If fire(x,y)>0 Then
         If fire(x,y)=1 Then
            DrawImage gfx_map,x*32,y*32,6
         ElseIf fire(x,y)=2 Then
            DrawImage gfx_map,x*32,y*32,7
         ElseIf fire(x,y)=3 Then
            DrawImage gfx_map,x*32,y*32,8
         EndIf
      EndIf
   Next
Next

For item.item=Each item
   DrawImage gfx_item,item\x*32,item\y*32,item\item
Next

For bomb.bomb=Each bomb
   Text bomb\x*32,bomb\y*32-25,ms-bomb\bombtime
   DrawImage gfx_item,bomb\x*32,bomb\y*32,5
   
   If ms-bomb\bombtime>bomb\bombtimer Then
      For bx=-player\fire To player\fire
         del_item(player\id,bomb\x+bx,bomb\y)
         If bomb\x+bx>=0 And bomb\x+bx<=14*32 Then
            If map(bomb\x+bx,bomb\y)<>4 Then
               If bx=0 Then
                  fire(bomb\x+bx,bomb\y)=3
               Else
                  fire(bomb\x+bx,bomb\y)=2
               EndIf
            EndIf
         EndIf
      Next
      For by=-player\fire To player\fire
         del_item(player\id,bomb\x,bomb\y+by)
         If bomb\y+by>=0 And bomb\y+by<=11*32 Then
            If map(bomb\x,bomb\y+by)<>4 Then
               If by=0 Then
                  fire(bomb\x,bomb\y+by)=3
               Else
                  fire(bomb\x,bomb\y+by)=1
               EndIf
            EndIf
         EndIf
      Next
      Delete bomb
   EndIf
Next

For player.player=Each player
   If player\killed=0 Then
      DrawImage gfx_playerkopf,player\x*32,player\y*32-10
      DrawImage gfx_player,player\x*32,player\y*32
   Else
      DrawImage gfx_vehicle,450,player\y*32
   EndIf
Next

Function move(id, typ=0, send=1)
   If e_pause Or con Then Return 0
   Local ph=0
   For player.player=Each player
      If player\id=id Then
         ph=1
         Exit
      EndIf
   Next
   If Not ph Then Return 0
   
   Select typ
      Case 1
         If player\killed=0 Then
            If map(player\x,player\y+1)<>2 And map(player\x,player\y+1)<>4 Then
               If fire(player\x,player\y+1)=0 And player\killed=0 Then
                  player\y=player\y+player\speed
               Else
                  kill(player\id)
               EndIf
            EndIf
         Else
            If player\y<10 Then
               player\y=player\y+1
            EndIf
         EndIf
         
      Case 2
         If player\killed=0 Then
            If map(player\x,player\y-1)<>2 And map(player\x,player\y-1)<>4 Then
               If fire(player\x,player\y-1)=0 And player\killed=0 Then
                  player\y=player\y-player\speed
               Else
                  kill(player\id)
               EndIf
            EndIf
         Else
            If player\y>1 Then
               player\y=player\y-1
            EndIf
         EndIf
         
      Case 3
         If map(player\x-1,player\y)<>2 And map(player\x-1,player\y)<>4 Then
            If fire(player\x-1,player\y)=0 And player\killed=0 Then
               player\x=player\x-player\speed
            Else
               kill(player\id)
            EndIf
         EndIf
         
      Case 4
         If map(player\x+1,player\y)<>2 And map(player\x+1,player\y)<>4 Then
            If fire(player\x+1,player\y)=0 And player\killed=0 Then
               player\x=player\x+player\speed
            Else
               kill(player\id)
            EndIf
         EndIf
         
   End Select
End Function

1/32