11111111       B
11111111
11111111
11111111
        22222222
        22222222
        22222222
A       22222222

\  /   B
 \/
 /\
/  \
    \  /
     \/
     /\
A   /  \

;      outOfSight
;
; Prüft auf einer Tilemap, ob sich zwei Punkte sehen können.
;
; Linksklick - Mauer setzen
; Rechtsklick - Mauer entfernen
; Mittklick - Startpunkt neu setzen
; Tab - Debuganzeige an/aus
;
;SpionAtom - März 2oo9


Graphics 800, 800, 0, 2
SetBuffer BackBuffer()

   Const steps = 5
   Const mapx = 0, mapy = 0, mapw = 20, maph = 20, mapg = 40
   Dim map(mapw - 1, maph - 1)      
   debug = 1
   
   Repeat
      mouse_x = MouseX(): mouse_y = MouseY()   
   
      ;Berechnung der MausTilekoordinaten
      inTileX = Floor((mouse_x - mapx) / Float(mapg))
      inTileY = Floor((mouse_y - mapy) / Float(mapg))      
      ;Mauer setzen/löschen
      If MouseDown(1) Then map(inTileX, inTileY) = 1
      If MouseDown(2) Then map(inTileX, inTileY) = 0
      ;Spieler setzen
      If MouseDown(3) Then sx = inTileX: sy = inTileY: sxv = (mouse_x - mapx) Mod mapg: syv = (mouse_y - mapy) Mod mapg      
      ;debug an/ausschalten mit Tab
      If KeyHit(15) Then debug = 1 - debug
      
      x1 = sx * mapg + sxv: y1 = sy * mapg + syv
      x2 = inTileX * mapg + (mouse_x - mapx) Mod mapg: y2 = inTileY * mapg + (mouse_y - mapy) Mod mapg
   
      Cls
      ;Map malen
      For i = 0 To mapw - 1: For j = 0 To maph - 1
         If map(i, j) Then Color 0, 100, 100: Rect mapx + i * mapg, mapy + j * mapg, mapg, mapg, 1
         Color 30, 30, 30: Rect mapx + i * mapg, mapy + j * mapg, mapg, mapg, 0         
      Next: Next               
      
      If inTileX >= 0 And inTileY >= 0 Then
         If outOfSight(x1, y1, x2, y2, debug) Then
            Color 150, 0, 0: e$ = "Sicht gestört"
         Else
            Color 0, 150, 0: e$ = "Freie Sicht"
         End If
      Else
         Color 150, 150, 150: e$ = "Maus nicht im Feld"         
      End If
      Text 0, GraphicsHeight() - 16, e$

      Color 100, 100, 0: Rect mapx + inTileX * mapg, mapy + inTileY * mapg, mapg, mapg, 0
      Color 100, 0, 0: Oval mapx + sx * mapg, mapy + sy * mapg, mapg, mapg, 0: Oval mapx + x1 - 2, mapy + y1 - 2, 4, 4
      Color 255, 255, 255: Text 0, 0, "LINKSKLICK=Mauer setzen, RECHTSKLICK=Mauer löschen, MITTELKLICK=Spieler setzen, TAB - Debug(" + debug + ")"
      
      Text 0, 16, "Maus: " + inTileX + ", " + inTileY
      Flip()   
      
   Until KeyDown(1)
   End

;Berechnet den Winkel zwischen der X-Achse und einer Geraden durch zwei Punkte
Function Winkel#(x1#,y1#,x2#,y2#)
   Return (360+ATan2(x1#-x2#,y1#-y2#)) Mod 360
End Function

;Berechnet den Abstand zwischen zwei Punkten
Function Distanz#(x1#, y1#, x2#, y2#)
   Return Sqr((x1-x2)^2 + (y1-y2)^2)
End Function

Function outOfSight(x1, y1, x2, y2, showLine = False)

      d# = Distanz(x1, y1, x2, y2)
      w# = Winkel(x1, y1, x2, y2)
      Text 100, 100, d

      ;Sichtstrahl berechnen
      i = 0
      Repeat
       i = i + steps: If i > d Then i = d
         ;Pixelkoordinaten des aktuellen Punktes
         px = x1 - Sin(w) * i
         py = y1 - Cos(w) * i
         
         ;Tile des aktuellen Punktes
         inX = Floor(px / Float(mapg))
         inY = Floor(py / Float(mapg))         

         ;Schauen, ob Strahlpunkt auf freiem Feld steht
         If inX >= 0 And inY >= 0 Then
            If map(inX, inY) Then Exit

            ;Schauen, ob der Strahl über einen Kreuzpunkt geht
            If oX <> inX And oY <> inY Then
               If showLine Then Color 50, 0, 50: Oval mapx + px, mapy + py, 5, 5
               If map(inX, oY) = 1 And map(oX, inY) = 1 Then Exit
            End If
            If showLine Then Color 20, 20, 20: Rect mapx + inX * mapg + 1, mapy + inY * mapg + 1, mapg - 2, mapg - 2
         End If         
         oX = inX: oY = inY
      Until i = Int(d)
      e = Not(Int(px) = x2 And Int(py) = y2)
      
      If showLine Then
         If e Then Color 150, 0, 0 Else Color 0, 150, 0
         Line mapx + x1, mapy + y1, mapx + px, mapy + py
      End If

   Return e

End Function