Graphics 800,600,16,2
Global frametimer = CreateTimer (50)
Global Start,Walt
Global SpielerID = 1
Const max = 50
Const H = 600
Const W = 800
Const ESC=1,Up=200,Down=208,L=203,R=205,Space=57 
Dim Kreis#(360,1)
Dim Pos#(4,4)
Dim Shot#(4,5,6)

Dim Feld(20,4)
;Pos und Shots
;Pos(I,1) X
;Pos(I,2) Y
;Pos(I,3) Richtung
;Pos(I,4) Speed

Initialise()

Repeat
  WaitTimer (frametimer)
  Cls
  Keys()
  DrawPos(1)
  Flip
Until KeyHit(1)


Function Keys()
  X=SpielerID
  If (KeyDown(Up)+KeyDown(Down)) = 0 Then
    If Pos(X,4) > 0 Then Pos(X,4)=Pos(X,4)-1
    If Pos(X,4) < 0 Then Pos(X,4)=Pos(X,4)+1
  Else
    If KeyDown(Up)   Then Pos(X,4)=Pos(X,4)+1
    If KeyDown(Down) Then
      Pos(X,4)=Pos(X,4)-1
    EndIf
  EndIf
  If KeyDown(L) Then Pos(X,3)=Pos(X,3)-1
  If KeyDown(R) Then Pos(X,3)=Pos(X,3)+1
  If Pos(X,4) >= 15 Then Pos(X,4) = 15
  If Pos(X,4) <= -15 Then Pos(X,4) = -15
  Pos(X,3) = (Pos(X,3)+60) Mod 60
End Function


Function DrawPos(id)  
  For m=1 To 20
    Color 20,255,20
    Rect Feld(m,1)+1,Feld(m,2),Feld(m,3)-1,1
    Color 255,20,20
    Rect Feld(m,1)+1,Feld(m,2)+Feld(m,4),Feld(m,3)-1,1
    Color 20,20,255
    Rect Feld(m,1),Feld(m,2)+1,1,Feld(m,4)-1
    Color 255,20,255
    Rect Feld(m,1)+Feld(m,3),Feld(m,2)+1,1,Feld(m,4)-1
  Next
  check = 0
  m=0
  Winkel = (Pos(id,3))*6
  If Pos(id,4) <> 0 Then 
    Repeat
      m=m+1
      If m<=5 Then 
        If RectsOverlap (Pos(id,1)-1,Pos(id,2)-1,26,26,Feld(m,1)+1,Feld(m,2),Feld(m,3)-1,1)       Then check = 4;Oben
        If RectsOverlap (Pos(id,1)-1,Pos(id,2)-1,26,26,Feld(m,1)+1,Feld(m,2)+Feld(m,4),Feld(m,3)-1,1) Then check = 2;Unten
        If RectsOverlap (Pos(id,1)-1,Pos(id,2)-1,26,26,Feld(m,1),Feld(m,2)+1,1,Feld(m,4)-1)       Then check = 3;Links
        If RectsOverlap (Pos(id,1)-1,Pos(id,2)-1,26,26,Feld(m,1)+Feld(m,3),Feld(m,2)+1,1,Feld(m,4)-1) Then check = 1;Rechts
      EndIf
    Until (check Or m=5)
  EndIf
  
  If check Then
    Pos(id,1) = Pos(id,1) + (Cos#(Winkel) * -Pos(id,4)/2)
    Pos(id,2) = Pos(id,2) + (Sin#(Winkel) * -Pos(id,4)/2)
    Pos(id,4) = 0
  Else
    Pos(id,1) = Pos(id,1) + (Cos#(Winkel) * Pos(id,4)/2)
    Pos(id,2) = Pos(id,2) + (Sin#(Winkel) * Pos(id,4)/2)  
  EndIf
  
  If Pos(id,1) < 0 Then Pos(id,1) = W
  If Pos(id,1) > W Then Pos(id,1) = 0
  If Pos(id,2) < 0 Then Pos(id,2) = H
  If Pos(id,2) > H Then Pos(id,2) = 0

  X2 = Pos(id,1)+(25 * Cos#(Winkel))
  Y2 = Pos(id,2)+(25 * Sin#(Winkel))

  Color 255-(id*50),id*60,200-(id*20)
  Oval Pos(id,1),Pos(id,2),24,24,1
  Color 0,0,0
  Line Pos(id,1)+12,Pos(id,2)+12,X2+12,Y2+12  
End Function

Function Initialise()
  SetBuffer BackBuffer ()
  ClsColor 125,125,125
  Color 25,25,25
  Start = MilliSecs()
  SeedRnd Start
  
  Pos(1,1) = 200
  Pos(1,2) = Rnd(100,400)
  Pos(1,3) = 0
  Pos(1,4) = 0
  

  Feld(1,1) = 100
  Feld(1,2) = 50
  Feld(1,3) = 50
  Feld(1,4) = 450
End Function