;Mouse on the road
;von SpionAtom - begonnen Januar 2oo8
Graphics 800, 600, 16, 3
SetBuffer BackBuffer()

   Const finalLevel = 5 ;Anzahl der Level

.startgame
   Global mouse_x, mouse_y
   Global level = 1, startoff = 0, timeSpent = 0

   ende = 0
   Repeat   
      old_mouse_x = mouse_x
      old_mouse_y = mouse_y
      mouse_x = MouseX()
      mouse_y = MouseY()

      Cls
      drawLevel level
      
      If startoff = 1 Then
      LockBuffer BackBuffer()
      x1 = old_mouse_x: y1 = old_mouse_y: x2 = mouse_x: y2 = mouse_y
      d# = Distanz(x1, y1, x2, y2): w# = Winkel(x1, y1, x2, y2)   
      px = x1: py = y1      
      For i = 0 To d
         px = x1 - Sin(w) * i
         py = y1 - Cos(w) * i
         rgb = ReadPixelFast(px, py)
         f = getColorCode(rgb)
         If f = 3 Then ende = 1: Exit      
      Next
      rgb = ReadPixelFast(mouse_x, mouse_y)
      UnlockBuffer BackBuffer()      
      f = getColorCode(rgb)
      If f = 3 Then ende = 1
      If f = 2 Then
         level = level + 1
         startoff = 0
      End If
      End If
      
      If startoff = 1 Then ts$ = Str((MilliSecs() - timeSpent) / 1000) + " Sekunden" Else ts$ = "Click GO to begin this round"
      Color 55, 155, 255
      Center ts$ + rgb, 10      
      Flip()
   
   Until KeyDown(1) Or ende = 1 Or level = finalLevel + 1
   
   Repeat
      Cls
      Color 255, 255, 255
      Center "Game Over", 0
      If level <= finalLevel Then Center "Reached Level: " + level, 30 Else Center "Victory", 30
      If MouseY() >= 60 And MouseY() <= 76 Then
         Color 255, 155, 55
         If MouseDown(1) Then Goto startgame
      End If
      Center "Again", 60      
      Color 255, 255, 255
      If MouseY() >= 90 And MouseY() <= 106 Then
         Color 255, 155, 55
         If MouseDown(1) Then End
      End If
      Center "End", 90
      Flip()
   Until KeyDown(1)
   End
   
   
Function Center(txt$, y)
   Text (GraphicsWidth() - StringWidth(txt$)) / 2, y, txt$
End Function

Function Winkel#(x1#,y1#,x2#,y2#)
 Return (360+ATan2(x1#-x2#,y1#-y2#)) Mod 360
End Function

Function Distanz#(x1#, y1#, x2#, y2#)
   Return Sqr((x1-x2)^2 + (y1-y2)^2)
End Function

Function drawLevel(l)

   Select l
      Case 1
         startx = 60
         starty = 60
         startr = 30
         Color 200, 55, 0
         Oval 250, -300, 50, 600, 1
         Oval 500, 300, 50, 600, 1
         Color 255, 255, 0      
         Oval 620, 420, 160, 160, 1
      
      Case 2
         startx = 50
         starty = 50
         startr = 30
         Color 200, 55, 0
         For i = 1 To 5
         Rect v*100, i * 100, 700, 10, 1
         v = 1 -v
         Next
         Color 255, 255, 0
         Oval 20, 520, 60, 60
         
      Case 3
         startx = 400
         starty = 300
         startr = 30
         
         Color 255, 255, 0
         Rect 0, 0, 800, 600
         Color 0, 0, 0
         Oval 150, 50, 500, 500
         Color 200, 55, 0
         Oval 200, 100, 400, 400
         Color 0, 0, 0
         Oval 220, 120, 360, 360
         For i = 0 To 3
            w = MilliSecs() / 50
            xx = 400 - Sin(i * 90 + w) * 190
            yy = 300 - Cos(i * 90 + w) * 190
            Oval xx - 30, yy - 30, 60, 60
         Next
         
      
      Case 4

         startx = 25
         starty = 25
         startr = 20         
         Color 200, 55, 0
         For i = 0 To 4
            Rect i * 50, (i + 1) * 50, 750 - i * 100, 2
            Rect 750 - i * 50, (i + 1) * 50, 2, 500 - i * 100
            Rect i * 50 + 50, 550 - i * 50, 700 - i * 100 + 2, 2
            Rect i * 50 + 50, (i + 2) * 50, 2, 450 - i * 100
         Next
         
         Color 255, 255, 0
         w = MilliSecs()
         Rect 375 + Sin(w) * 50, 300, 50, 20      
      
      Case 5
         startx = 400
         starty = 300
         startr = 30
         
         Color 255, 255, 0
         Rect 0, 0, 800, 600
         Color 0, 0, 0
         Oval 150, 50, 500, 500
         Color 200, 55, 0
         Oval 200, 100, 400, 400
         Color 0, 0, 0
         Oval 220, 120, 360, 360
         
         Color 200, 55, 0
         Oval 250, 150, 300, 300
         Color 0, 0, 0
         Oval 270, 170, 260, 260         

         For i = 0 To 3
            w = MilliSecs() / 20
            xx = 400 - Sin(i * 90 + w * 2) * 190
            yy = 300 - Cos(i * 90 + w * 2) * 190
            Oval xx - 30, yy - 30, 60, 60
            xx = 400 - Sin(i * 90 + w + 45) * 140
            yy = 300 - Cos(i * 90 + w + 45) * 140
            Oval xx - 30, yy - 30, 60, 60
         Next                  
   
   End Select

      If startoff = 0 Then
         Color 155, 155, 0
         Oval startx - startr, starty - startr, 2 * startr, 2 * startr, 1
         Color 0, 0, 0
         Text startx - 10, starty - 8, "GO"
      End If

      Color 200, 55, 0
      Rect 0, 0, 800, 600, 0
      
      If MouseHit(1) Then
         d = Distanz(startx, starty, mouse_x, mouse_y)
         If d <= startr Then
            startoff = 1
            timeSpent = MilliSecs()
         End If
         FlushMouse()
      End If


End Function

Function getColorCode(rgb)
   rw = (rgb And $FF0000) / $10000
   gw = (rgb And $FF00) / $100
   bw = (rgb And $FF)
   
   If rw = 155 And gw = 155 And bw = 0 Then Return 1 ;start
   If rw = 255 And gw = 255 And bw = 0 Then Return 2 ;ziel
   If rw = 200 And gw = 55 And bw = 0 Then Return 3 ;verlieren
   Return 0
End Function