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

Global schussbmp = LoadImage("schuss.bmp")
Global cursor = LoadImage("cursor.bmp")

Type schuss
 Field x
 Field y
End Type 




Repeat
Cls 

DrawImage cursor,MouseX(),MouseY()

s.schuss = New schuss 
s\x = MouseX()
s\y = MouseY()

If MouseHit(1) Then
DrawImage schussbmp,s\x,s\y
EndIf 


Flip 
Until KeyHit(1)
End

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

Global schussbmp = CreateImage(10,10)
Global cursor = CreateImage(10,10)

SetBuffer ImageBuffer(schussbmp)
Color 200,0,0
Rect 0,0,10,10,1
SetBuffer ImageBuffer(cursor)
Color 0,0,200
Rect 0,0,10,10,1

Type schuss
 Field x
 Field y
End Type
SetBuffer BackBuffer()

Repeat
 Cls

 DrawImage cursor,MouseX(),MouseY()


  If MouseHit(1) Then
   CreateSchuss()
  EndIf
  If MouseHit(2) Then
   ResetSchuesse()
  EndIf
  
  
  UpdateSchuesse()
  Flip
 Until KeyHit(1)
End 



Function CreateSchuss()
Local s.schuss = New schuss
s\x = MouseX()
s\y = MouseY()
Return Handle(s)
End Function 

Function UpdateSchuesse()
 For s.schuss = Each schuss
  DrawImage schussbmp,s\x,s\y
 Next
End Function

Function ResetSchuesse()
 For s.schuss = Each schuss
  Delete s
 Next
End Function

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


;Laden und Kallibrieren
Global menubg = LoadImage("Menubg.bmp")
Global menu = LoadImage("menu.bmp")
Global bg = LoadImage("bg.bmp")
Global ship = LoadImage("ship.bmp")
Global rocket = LoadImage("rocket.bmp")
Global enemy = LoadImage("gegner.bmp")
MaskImage rocket,255,0,255
MaskImage ship,255,0,255
MaskImage menu,0,0,0
MaskImage enemy,255,0,255
MidHandle enemy
MidHandle ship
MidHandle rocket
;Variablen
Global menubgx = 0
Global menubgy = 0
Global bewegungsconst = 2
Global shipx = 400
Global shipy= 550
Global menge = 0

;Types
Type schuss
	Field x
	Field y
End Type 

Type gegner
	Field x
	Field y
	Field speed
End Type 


;Funktionen 

Function neuergegner()
SeedRnd = MilliSecs() 
g.gegner = New gegner
g\x = Rnd(50,700)
g\y = 0
g\speed = Rnd(-1,-2)
End Function

Function updategegner()
For g.gegner = Each gegner
DrawImage enemy,g\x,g\y
g\y = g\y - g\speed
Next 
End Function 

Function neuerschuss()
s.schuss = New schuss
s\x = shipx
s\y = shipy
End Function 

Function updateschuss()
For s.schuss = Each schuss 
DrawImage rocket,s\x,s\y
s\y = s\y - 2
Next 
End Function 


Function drawmenu_bg()
TileImage menubg,menubgx,menubgy
menubgx= menubgx + 1
DrawImage menu,0,0
End Function 

Function shipsteuerung()
If KeyDown(203) Then 
shipx = shipx-5
EndIf 

If KeyDown(205) Then
shipx = shipx+5
EndIf 

If shipx < 28 
shipx = 28
EndIf 

If shipx > 800-28
shipx = 800-28
EndIf

End Function



;Menü Schleife
.menu
Repeat
Cls
SeedRnd MilliSecs() 
drawmenu_bg

;steuerung
If KeyHit(59) Then
Goto credits
EndIf

If KeyHit(28) Then
Goto spiel
EndIf 

Flip
Until KeyHit(1)
End


;Credits
.credits
Repeat
Cls

Flip
Until KeyHit(1)
Goto menu


;Spieleschleife
.spiel
Repeat
Cls

 
 
neuergegner


updategegner

;___________ Schiessen
If KeyHit(57) Then
neuerschuss
EndIf 
updateschuss
;-------------
TileImage menubg,menubgx,menubgy
menubgy = menubgy + bewegungsconst
;-------------
DrawImage ship,shipx,shipy

shipsteuerung

Flip
Until KeyHit(1)
Goto menu

If MilliSecs() > time + 3000 Then
neuergegner
EndIf

Function gegner_schuss_collision()
For g.gegner = Each gegner
If ImagesCollide(enemy,g.gegner\x,g.gegner\y,0,rocket,s.schuss\x,s.schuss\y,0) Then
Delete g.gegner 
EndIf
Next
End Function  

Function neuerschuss()
s.schuss = New schuss
s\x = shipx
s\y = shipy
For g.gegner = Each gegner
If ImagesCollide(enemy,g\x,g\y,0,rocket,s\x,sy,0) Then
Delete g.gegner
EndIf
Next 

End Function

Graphics 800,600,16,1

SeedRnd MilliSecs()



Type partikel
 Field x#,y#
 Field winkel
 Field speed
 Field rgb
End Type

Type image
  Field x,y 
  Field time_left
  Field time 
  Field pic_nr 
  Field image 
  Field width,height
End Type

SetBuffer BackBuffer()

Global schussbmp = CreateImage(10,10)
Global cursor = CreateImage(2,2)
Global gegner = CreateImage(10,10)
Global mx#,my#,mhit
Global anz

SetBuffer ImageBuffer(schussbmp)
Color 200,0,0
Rect 0,0,10,10,1
SetBuffer ImageBuffer(cursor)
Color 200,0,0
Rect 0,0,2,2,1
SetBuffer ImageBuffer(gegner)
Color 0,200,0
Rect 0,0,10,10,1


For tmp = 0 To 15
 NewImage(gegner,Rnd(0,800),Rnd(0,600))
Next

SetBuffer BackBuffer()
HidePointer() 
Repeat
Cls


mx# = MouseX()
my# = MouseY()
mhit= MouseHit(1)

Color 255,255,0
DrawImage cursor, mx#, my#

UpdateImages()
UpdatePartikel()


Flip
Until KeyHit(1):End

Function NewImage(img,x#,y#)

imgwidth = 10
imgheight = 10

i.image = New image
i\x = x#
i\y = y#

i\image = img

i\width = ImageWidth(i\image)
i\height = ImageHeight(i\image)

End Function

Function UpdateImages()
For i.image = Each image
DrawImage i\image,i\x,i\y

If ImagesCollide(i\image,i\x,i\y,0,cursor,mx#,my#,0) = 1 And mhit = 1
CreatePartikel(i\x,i\y,i\width,i\height)
Delete i.image
EndIf 
Next
End Function

Function CreatePartikel(x#,y#,breite,hoehe)
LockBuffer BackBuffer()
For i = x#-(breite/2) To x#+breite Step 3 
For j = y#-(hoehe/2) To y#+hoehe Step 3
rgb = ReadPixelFast(i,j)
If rgb <> 0
p.partikel = New partikel
p\x = i
p\y = j
p\winkel = Rnd(-180,180)
p\speed = 5
p\rgb = rgb
anz = anz + 1
EndIf
Next
Next
UnlockBuffer BackBuffer()
End Function

Function UpdatePartikel()
For p.partikel = Each partikel

LockBuffer BackBuffer()
WritePixelFast p\x,p\y,p\rgb
UnlockBuffer BackBuffer()

p\x = p\x - Cos(p\winkel)*p\speed
p\y = p\y - Sin(p\winkel)*p\speed

If p\x < 0 Or p\x > (800-1) Or p\y < 0 Or p\y > (600-1) 
Delete p.partikel
anz = anz - 1
EndIf

Next
End Function