AppTitle = "2d shooter"
;___________Einstellungen
grax= 1000
gray= 700
timer = CreateTimer(60)
Graphics grax,gray,0,2
SetBuffer BackBuffer()
;___________bilder und sounds laden
bild1 = LoadImage ("bob2.bmp")
map = LoadImage ("map.bmp")
MidHandle map
;___________bild drehen
Dim menschturn(72)

TFormFilter 0

x#=100
y#=100
For Winkel# = 0 To 72
      menschturn(Winkel#)=LoadImage("bob2.bmp")
      MidHandle menschturn(Winkel#)
      RotateImage menschturn(Winkel#),Winkel#*5
      MaskImage menschturn(Winkel#),0,0,0
   DrawImage menschturn(winkel#) , 100 , 100
;Delay 100
Flip
Print"loading images"
Next


;Dim zombieturn(36)

;TFormFilter 0

;x#=100
;y#=100
;For Winkel# = 0 To 36
;      zombieturn(Winkel#)=LoadImage("zombiebob.bmp")
;      MidHandle zombieturn(Winkel#)
;      RotateImage zombieturn(Winkel#),Winkel#*10
;      MaskImage zombieturn(Winkel#),255,0,255
;   DrawImage zombieturn(winkel#) , 100 , 100
;Delay 100
;___________beim hauptmenu anfangen
Gosub singleplayer
Gosub hauptmenu
;___________Hauptmenu
.hauptmenu
While Not KeyDown(1)
   ClsColor 100,230,200
   Color 1,1,1
   Cls
   Locate 0.5*grax , 0.3*gray
   Print "-H A U P T M E N Ü-"
   Print"-drücke Enter um den singleplayer zu starten"
   Print "-drücke ESC um zu beenden-"
   Flip
      If KeyHit(28)
         Gosub singleplayer
      End If
   Delay 10
Wend
End
;___________singleplayer
.singleplayer
a.player=New player
a\x = 0
a\y = 110
a\xalt = a\x
a\yalt = a\y
a\bild = bild1
While Not KeyDown(1)
   Gosub kollision
   mapx = grax - a\x
   mapy = gray - a\y
   ClsColor 1,10,100
   Cls
   DrawImage map, mapx, mapy
   Gosub shoot
   Gosub movement
   Gosub sicht
   Gosub gegner
   Color 230,100,50
   Print "drücke p um zum hauptmenü zu gelangen"
   Flip
   WaitTimer timer
Wend
Gosub hauptmenu
;___________Klassen
Type player
Field name$
Field x
Field y
Field xalt
Field yalt
Field bild
Field s#
End Type

Type shell
Field x
Field y
Field dam
Field Coulor
End Type

Type gegner
Field x
Field y
Field bild
Field s#
End Type
;___________Movement
.movement
   a\xalt =xa
   a\yalt =ya
   xa = a\x
   ya = a\y
   a\s = 2
   If KeyDown(200) Or KeyDown(17) If KeyDown(203) Or KeyDown(30)
   a\s=a\s/Sqr(2)
   Print a\s
   End If
   
   If KeyDown(208) Or KeyDown(31) If KeyDown(205) Or KeyDown(32)
   a\s=a\s/Sqr(2)
   Print a\s
   End If
   
   If KeyDown(200) Or KeyDown(17) If KeyDown(205) Or KeyDown(32)
   a\s=a\s/Sqr(2)
   Print a\s
   End If
   
   If KeyDown(208) Or KeyDown(31) If KeyDown(203) Or KeyDown(30)
   a\s=a\s/Sqr(2)
   Print a\s
   End If
   
   If KeyDown(200) Or KeyDown(17);nach oben
         a\y=a\y-a\s
   End If
   If KeyDown(208) Or KeyDown(31);nach unten
         a\y=a\y+a\s
   End If
   If KeyDown(203) Or KeyDown(30);nach links
         a\x=a\x-a\s
   End If
   If KeyDown(205) Or KeyDown(32);nach rechts
         a\x=a\x+a\s
   End If
Return
;___________sicht
.sicht
Winkel1 = ATan2(MouseY() - gray/2, MouseX() - grax/2)
w#=winkel1/5
If w <0
w=72+w
End If
Locate 1,1
Print w
DrawImage menschturn(w) ,grax/2,gray/2
rb = 20
rh = 20
rx = grax/2-rb/2
ry = gray/2-rh/2
Rect rx,ry,rb,rh,0
Return
;___________shoot
.shoot
If MouseHit(1)
Line grax/2 , gray/2 ,MouseX(),MouseY()
End If
;___________gegner
.gegner
Return
;___________Kollision
.kollision
If ImageRectCollide(map, mapx, mapy, Rect, rx,ry,rb,rh)
a\x = a\xalt
a\y = a\yalt
End If
Return

Flip 0