width  = 800
height = 600
Graphics width, height, 0, 2
SetBuffer BackBuffer()
fntArial=LoadFont("Arial",30,True,False,False)
SetFont fntArial
Cls
Text 400,580,"SPIEL WIRD GELADEN...",1,1
Flip
Type bu
Field im
Field x#,y#
Field time
Field win#
End Type
psound=LoadSound ("p90-1.wav")
sawsound=LoadSound ("m249-1.wav")
chsound=LoadSound ("m249_ch.wav")
chsaw=LoadSound("chsaw-m.wav")
chsawaktion=LoadSound("chsaw-r.wav")
LoopSound chsaw
LoopSound chsawaktion
chnch=PlaySound ( chsaw)
chnchsaw=PlaySound ( chsawaktion)
PauseChannel chnch
PauseChannel chnchsaw
bul=LoadImage("bu.bmp")
MaskImage bul,255,0,255
MidHandle bul
ploben=LoadImage("ploben.bmp")
plunten=LoadImage("plunten.bmp")
MaskImage ploben, 255, 0, 255
MaskImage plunten, 255, 0, 255
pllinks=LoadImage("pllinks.bmp")
plrechts=LoadImage("plrechts.bmp")
MaskImage pllinks, 255, 0, 255
MaskImage plrechts, 255, 0, 255
Global x#,y#,lastx#,lasty#,wi#
pl=LoadImage("plbad.bmp")
MaskImage pl, 255, 0, 255
ziel=LoadImage("ziel.bmp")
MaskImage ziel,255,0,255
MidHandle ziel
Type we
Field name
Field num
Field maxmun
Field mun
Field im[360]
Field bultime
End Type
p.we=New we
p\name="Pistol"
p\num=1
;w\im[360]
TFormFilter 0
For wi = 0 To 360
p\im[wi]=LoadImage("pistol2.bmp")
MidHandle p\im[wi]
RotateImage p\im[wi],wi
Next
p\maxmun=15
p\mun=15
c.we=New we
c\num=0
c\name="chsaw"
TFormFilter 0
For wi = 0 To 360
c\im[wi]=LoadImage("ch.bmp")
MidHandle c\im[wi]
RotateImage c\im[wi],wi
Next
c\maxmun=99
c\mun=99
s.we=New we
s\num=2
s\name="Saw"
;c\im[360]
TFormFilter 0
For wi = 0 To 360
s\im[wi]=LoadImage("saw.bmp")
MidHandle s\im[wi]
RotateImage s\im[wi],wi
Next
s\maxmun=99
s\mun=99
Type en
Field x#,y#
Field im
Field grav#
End Type
sand  = LoadImage("sand.png")
grass = LoadImage("grass.png")
stone = LoadImage("stone.png")
hsand  = ImageHeight( sand ) / 2
hgrass = ImageHeight( grass ) / 2
grabber = CreateImage( width, height )
SetBuffer ImageBuffer( grabber )
TileBlock stone, 0, 0
land = CreateImage( width, height )
SetBuffer ImageBuffer( land )
LockBuffer ImageBuffer( land )
WritePixelFast 0, 0, 0
black = ReadPixelFast( 0, 0 )
WritePixelFast 0, 0, $FF00FF
pink = ReadPixelFast( 0, 0 )
UnlockBuffer ImageBuffer( land )
SeedRnd MilliSecs()
SetBuffer ImageBuffer( land )
Color $FF, 0, $FF: Rect 0, 0, width, height, 1
Color 0, 0, 0: Rect 0, height - 50, width, height, 1
For x = -100 To width + 100 Step 20
y = Rand( height - 150, height )
Oval x, y, 100, 100, 1
Next
For t = 0 To Rand( 1, 3 )
x = Rand( 0, width )
y = Rand( 0, height - 350 )
For i = 0 To Rand( 5, 19 )
r = Rand( -100, 100 )
Oval x+r, y+r, Rand(50, 100), Rand( 50, 150 ), 1
Next
Next
SetBuffer ImageBuffer( land )
DrawBlock land, 0, 0
LockBuffer ImageBuffer( land )
LockBuffer ImageBuffer( sand )
LockBuffer ImageBuffer( grass )
LockBuffer ImageBuffer( grabber )
For x = 0 To width - 1
transition = 0
For y = 0 To height - 1
pix = ReadPixelFast( x, y )
If pix = black Then
If transition = 0 Then ytop = y: transition = 1
WritePixelFast x, y, ReadPixelFast( x, y, ImageBuffer( grabber ) )
End If
If pix = pink Or y = height - 1 Then
If transition = 1 Then
If y < height - 1 Then
ysand = 0
For y1 = y - hsand * 2 To y - 1
If y1 > -1 And y1 < height Then
psand = ReadPixelFast( xsand, ysand, ImageBuffer( sand ) )
If psand <> pink Then WritePixelFast x, y1, psand
ysand = ysand + 1
End If
Next
xsand = xsand + 1: If xsand = ImageWidth( sand ) Then xsand = 0
End If
If ytop > 0 Then
ygrass = 0
For y1 = ytop - hgrass To ytop + hgrass - 1
If y1 > -1 And y1 < height Then
pgrass = ReadPixelFast( xgrass, ygrass, ImageBuffer( grass ) )
If pgrass <> pink Then WritePixelFast x, y1, pgrass
ygrass = ygrass + 1
End If
Next
xgrass = xgrass + 1: If xgrass = ImageWidth( grass ) Then xgrass = 0
End If
transition = 0
End If
End If
Next
Next
UnlockBuffer ImageBuffer( land )
UnlockBuffer ImageBuffer( sand )
UnlockBuffer ImageBuffer( grass )
UnlockBuffer ImageBuffer( grabber )
MaskImage land, 0, 0, pink
back = CreateImage( width, height )
SetBuffer ImageBuffer( back )
For y = 0 To height
blue# = 255 / Float( height ) * y
Color 0, 0, blue
Rect 0, height-y, width, height-y, 1
Next
SetBuffer BackBuffer()
x#=100
y#=200
Color 255,255,255
Cls
Text 400,580,"DRÜCKE TASTE ZUM STARTEN",1,1
Flip
FlushKeys
WaitKey()
wazahl=0
start=MilliSecs()
timer=CreateTimer(60)
Repeat
WaitTimer (timer)
ecount=0
For en.en=Each en
ecount=ecount+1
If ImagesCollide(en\im,en\x,en\y,0,land,0,0,0)=0
en\grav#=en\grav#+.2
Else
en\grav#=-2
EndIf
en\y=en\y+en\grav
Next
If ecount<3
en.en=New en
en\im=LoadImage("en.bmp")
MaskImage en\im,255,0,255
en\x=Rand(60,740)
en\y=-50
en\grav#=0
EndIf
lastx#=x
lasty#=y
If ImagesCollide(ploben,x,y,0,land,0,0,0)=1
grav#=0
y=y+1
EndIf
If KeyDown(205) Or KeyDown(32)
If ImagesCollide(plrechts,x,y,0,land,0,0,0)=0
x#=x+2
EndIf
EndIf
If KeyDown(203) Or KeyDown(30)
If ImagesCollide(pllinks,x,y,0,land,0,0,0)=0
x#=x-2
EndIf
EndIf
If ImagesCollide(plunten,x,y,0,land,0,0,0)=0
grav#=grav#+.2
Else
grav#=-2
jump=0
EndIf
If (KeyHit(200) Or KeyHit(17)) And jump=0
jump=1
grav#=-8
jumping=1
EndIf
If bulltime>0
bulltime=bulltime-1
EndIf
If wawahl=0
ResumeChannel chnch
Else
PauseChannel chnch
PauseChannel chnchsaw
EndIf
ch=0
If MouseDown(1) And bulltime=0
If wawahl=0
ch=1
bulltime=10
b.bu=New bu
b\im=CopyImage (bul)
b\x=x+60
b\y=y+40
b\win=wi-90
b\time=2
PauseChannel chnch
ResumeChannel chnchsaw
ElseIf wawahl=1
PauseChannel chnch
PauseChannel chnchsaw
bulltime=30
b.bu=New bu
b\im=CopyImage (bul)
b\x=x+60
b\y=y+40
b\win=wi-90
b\time=100
PlaySound ( psound )
ElseIf wawahl=2
PauseChannel chnch
PauseChannel chnchsaw
bulltime=5
b.bu=New bu
b\im=CopyImage (bul)
b\x=x+60
b\y=y+40
b\win=wi-90
b\time=100
PlaySound ( sawsound )
PlaySound ( chsound )
EndIf
EndIf
If MouseDown(1)=0
PauseChannel chnchsaw
EndIf
If KeyHit(18) Or KeyHit(157)
wawahl=(wawahl)+1
If wawahl>wazahl
wawahl=0
EndIf
EndIf
y=y+grav#
mx=MouseX()
my=MouseY()
wi=ATan2# ( y+40-my, x+60-mx )
wi=wi+180
If wi<1 wi=wi+359
DrawBlock back, 0, 0
DrawImage land, 0, 0
DrawImage pl, x, y
For bu.bu = Each bu
bu\x = bu\x - (Sin(bu\win))*10
bu\y = bu\y + Cos(bu\win)*10
DrawImage bu\im,bu\x,bu\y
If ImagesCollide(bu\im,bu\x,bu\y,0,land,0,0,0)
Color 0, 0, pink
r = 30
SetBuffer ImageBuffer( land )
Oval bu\x-r/2, bu\y-r/2, r, r, 1
SetBuffer BackBuffer()
DrawBlock back, 0, 0
DrawImage land, 0, 0
DrawImage pl, x, y
For w.we=Each we
If w\num=wawahl
DrawImage w\im[wi],x+60,y+40
EndIf
Next
DrawImage ziel,mx,my
Flip
bu\time=0
EndIf
For en.en=Each en
DrawImage en\im,en\x,en\y
If ImagesCollide(bu\im,bu\x,bu\y,0,en\im,en\x,en\y,0)
bu\time=0
FreeImage en\im
Delete en
kien=kien+1
EndIf
Next
If bu\time>0
bu\time=bu\time-1
EndIf
If bu\time<=0
FreeImage bu\im
Delete bu
EndIf
Next
For w.we=Each we
If w\num=wawahl
DrawImage w\im[wi],x+60,y+40
If ch=1
If ImagesCollide(w\im[wi],x,y,0,land,0,0,0)
EndIf
EndIf
EndIf
Next
For en.en=Each en
DrawImage en\im,en\x,en\y
Next
DrawImage ziel,mx,my
Color 255, 255, 255   
If kien>=0 And waffe1=0
wazahl=wazahl+1
watime=MilliSecs()
waffe1=1
EndIf
If kien>=0 And waffe1=1
wazahl=wazahl+1
watime=MilliSecs()
waffe1=2
EndIf
If (MilliSecs()-watime)<3000
Text 400,30,"NEUE WAFFE FREIGESCHALTET",1,0
EndIf
Text 0,10,".ki: "+kien
TIME=(60000-(MilliSecs()-start))/1000
Text 400,10,TIME,1,0
Flip 0
Until KeyHit(1) Or TIME<=0
Repeat
Cls
Text 400,300,(kien+" . geschnetzelt"),1,1
Flip
Until KeyHit(1)
End

Global game_speed#=0.9
Global MOUSESPEED# = 3