;2D - Schusstutorial

;Kurze Übersicht:
;Zu erst definieren wir eingie Variablen. Danach erstellen wir einen Type in dem wir unseren Schuss speichern.
;In der Hauptschleife werden mittels Funktionen die Spielerbewegungen, Tastenabfragen und schließlich auch unser
;Schuss berechnet. Das ganze versuche euch anhand dieses Tutorial bestmöglich und auch gut verständlich zu
;erläutern.

;---------------------------------------------------------------------------------------------
;was ich Vorraussetzte

;das ihr wisst wie :
; - wie bilder geladen und angezeigt werden
; - wie "Functionen" funktionieren
; - das man zumindest inetwa verstanden hat wie "Types" funktionieren und wie man sie benützt
; - und etwas Zeit

;Was wird benötigt?

;2 Bitmaps (könnt ihr schnell in Paint zusammenbasteln)
; - ein kleines Raumschiff (alles was später nicht zu sehen sein soll hellrosa einfärben) größe ca. 82 x 40 Pixel
; - ein "laserschuss" (einfach bei menü/bild/attribute 5 auf 5 eingeben und alles gelb färben)

;Das Raumschiff  als "hero.bmp" bennen !
;Den Laserschuss als "shot.bmp" bennen !

;*****************************************************************************************************
;*****************************************************************************************************



;Ok wenn ihr das alles habt wenden wir uns den ersten Schritten unseres tutorials zu:
;grafikmodus (ich denkmal des kennt noch jeder ^^)
Graphics 800,600,16,2
SetBuffer BackBuffer()

timer=createtimer(60)

;laden wir nun die grafiken(global da wir sie in einer Funktion verwenden wollen)
Global Hero  = LoadImage("hero.bmp")
Global laser = LoadImage("shot.bmp")
 
  MaskImage hero,255,0,255  ; so wird des Rosa zeug im Hero bild "unsichtbar" gemacht

;Jezt kurz mal das Progi im gleichen ort wo auch die bilder sich befinden abspeichern. Da er sonst die bilder nicht findet.
;ok jetzt einige Variablen die wir brauchen (und diese als Global da wir sie später in einer funktion verwenden wollen)
Global hero_x = 350, hero_y = 500, shot_counter = 0     ; der "shot_counter" dient als timer / Spich die Feuerrate


;Gut. Nun kommt ein Type für den Schuss. In diesem müssen wir die X und Y Koordinate unterbringen. Also :

Type shot          ;erstellt den Type "shot"
 Field shot_x      ;x Koordinate
 Field shot_y      ;y Koordinate
End Type

;Ok jetzt haben wir alles festgelegt was wir für unser "game" brauchen. Ab in die Hauptschleife:

;---------------------------------------------------------------------------
Repeat
Cls             

;so und ich benutze Funktionen (die nach der Schleife bearbeitet werden / das ist viel viel übersichtlicher :)
 moveHero()
 createLaser()

waittimer(timer)
Flip 0
Until KeyHit(1)   ;ende bei ESC-druck
;----------------------------------------------------------------------------

;die funktion in der der Spieler / hero bewegt und gezeichnet wird

Function moveHero()
 
 ;mit Pfeiltasten rechts(203)  und links(205)  Bewegen
   If KeyDown(203) Then hero_x = hero_x - 3
   If KeyDown(205) Then hero_x = hero_x +3

 ;rauf und runter

  If KeyDown(200) Then hero_Y = hero_y -3
  If KeyDown(208) Then hero_y = hero_y +3


 ;so und noch den Spieler malen
 DrawImage hero, hero_x, hero_y

End Function

;------------------------------------------------------------------------------------

;Gut jetzt kommt das Herzstück des tutorials. In der folgenden funktion wird erst ein zähler erhöht und sollte dieser 5 erreichen, wird
;ein neuer Schuss erstellt, welcher sich dan nach oben bewegt. Abschließend wird der zähler wieder auf 0 gesetzt und es geht
;von vorne los. --> ein kreislauf

;wir leiten wieder eine Funktion ein

Function createlaser()

;bei Tastendruck (leer) erhöt sich der Zähler
   If KeyDown(57) Then
        shot_counter = shot_counter +1
   End If

 ;sollte der Zähler 5 erreicht haben, erstelle einen neuen schuss
    If shot_counter = 5 Then
     
       info.shot = New shot           ;hier wird der schuss erstellt
         info\shot_x = hero_x  +40     ;da er ja beim Spieler erstellt werden soll : wird die Schusskoordinate(shot_X) auf hero_x und +40 rüber gelegt
         info\shot_y = hero_y         ;beim Y wert ist es nicht anders, da der Hero ja auch rauf und runter fahren kann
   
        shot_counter = 0              ; den Zähler auf 0 damit es wieder von vorne losgehen kann
     End If


; so nachdem der Schuss/laser erstellt wurde, müssen wir ja sagen das JEDER schuss sich nach oben bewegen soll

 For info.shot = Each shot                              ; so wird jeder einzelne Schuss angesprochen
     info\shot_y = info\shot_y -8                       ; die Schüsse werden um -8 nach oben bewegt
     DrawImage laser,info\shot_x,info\shot_y            ; jetzt noch jeden schuss malen
  Next

End Function
;----------------------------------------------------------------------------------------------

for info.shot=each shot
...
if info\shot_y < 0 then delete info.shot
next
...

for info.shot = each shot

  anweisung 1
  anweisung 2

  if shot_y <0 then delete info.shot

del=0
if blubber=1
Delete s.schuss
del=1
endif

if del=0
if blubber=3 and s\x then blubber=4
endif