Graphics 800, 600,16,2
SetBuffer BackBuffer()


;Dateien hochladen
Global Hintergrund=LoadImage ("wolken.bmp")
Global Flugzeug = LoadImage ("Flugzeug22.bmp")
Global Explosion=LoadAnimImage("explo.bmp",48,48,0,10)
Global troop=LoadAnimImage("trooprunner.bmp",54,90,0,12)
Global Turm=LoadImage("turm.bmp")
Global laser = LoadImage("defiant.bmp")
Global Bruecke=LoadImage("brücke3.bmp")
Global Bruecke2=LoadImage("brücke4.bmp")

;troop dort hinsetzen, wo er sich im Spiel befinden soll
Global troop_x =350, troop_y = 440, shot_counter=0

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

;Farbe der Bilder verschwinden lassen
MaskImage Flugzeug,255,255,255
MaskImage Explosion,0,255,0
MaskImage troop,0,0,0
MaskImage Bruecke,255,255,255



Repeat
Cls
;Animation der Explosion
If MilliSecs() > tmrExplosion + 100 Then
tmrExplosion=MilliSecs()
frmExplosion=(frmExplosion + 1) Mod 10
End If

;Variablen der Funktionen
movetroop()
createLaser()


Flip
Until KeyHit(1)




Function movetroop()
;troop soll bewegt werden
If KeyDown(203) Then troop_x = troop_x - 1
If KeyDown(205) Then troop_x = troop_x + 1
If KeyDown(208) Then troop_y = troop_y -1
If KeyDown(200) Then troop_y = troop_y +1

;troop soll sich nur in einem bestimmten Teil bewegen
If PosY > 500 Then troop_y = 500
If PosY < 400Then troop_y = 400
If PosX > 750 Then troop_x = 750
If PosX < 5Then troop_x = 5

;Animation von troop
If MilliSecs() > tmrtroop + 100 Then
tmrtroop=MilliSecs()
frmtroop=(frmtroop + 1) Mod 12
End If


;zeichnet troop auf die Grafik
DrawImage troop,troop_x,troop_y, frmtroop


End Function

 

Function createlaser()
If KeyDown(57) Then
shot_counter = shot_counter +1
End If

;sollte der Zähler 5 erreicht haben, erstelle neuen schuss
If shot_counter = 5 Then

info.shot = New shot ;Schuss wird erstellt
info\shot_x = troop_x +5 ;da er ja beim Spieler erstellt werden soll : wird die Schusskoordinate(shot_X) auf troop_x und +5 rüber gelegt
info\shot_y = troop_y ;beim Y wert ist es nicht anders, da der troop 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_x = info\shot_x +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

TileImage Hintergrund
DrawImage Turm,500,150
DrawImage Flugzeug,550,300
DrawImage Attacke,550,300, frmAttacke
DrawImage bruecke,1,1
DrawImage Bruecke2, 100,100



End

Repeat
cls

     blubber()

flip
until keyhit(1)

drawimage
drawimage

raphics 800,600,32,2
SetBuffer BackBuffer()

Global shot_timer
Global frame



Global bild = LoadAnimImage("bild.bmp",32,32,0,3)



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


   update_grafik()


Flip
Until KeyHit(1)
;--------------------------------




Function update_grafik()

   
      If MilliSecs() > shot_timer+100  Then
         shot_timer = MilliSecs()
         frame = (frame +1) Mod 3
       
      End If
      
      DrawImage bild, 100, 100, frame




End Function