Graphics 150 , 400
SetBuffer BackBuffer()

SeedRnd MilliSecs()
Repeat
Text 0,0,"Space to Start"
Flip
Cls
Until KeyHit(57)
ys#=1.0
Repeat
For x = 0 To 3
   Line x * 50 , 0 , x * 50 , 400
Next
yc# = yc+ ys
yc = yc Mod 50
For y = 0 To 8
   Line 0 , y * 50+yc , 150 , y * 50+yc
Next
If px >= 0 And KeyDown(203) Then
   px= px - 1
EndIf
If px <= 100 And KeyDown(205) Then
   px = px + 1
EndIf
If nmyy# > 450 Then
   nmyy = 0.0
   ys = ys + .2
   nmyx = Rand(100)
EndIf
If Sqr( ( (px + 25) - (nmyx + 20) ) ^ 2 + (375 - (nmyy + 20) ) ^ 2) <= 45 Then
   Text 0,200, "You've been HIT."
   Text 0,220,"Any Key: new Game"
   Text 0,240,"'Q' to leave"
   Text 0,260,"Final score:"
   Text 0,280,Int((ys-1)*1000)
   Flip
   FlushKeys()
   a = WaitKey()
   
   If a = 113 Then End
   ys = 1.0
   nmyy = 0
   nmyx = 0
   px = 0
EndIf
nmyy = nmyy+ys
Color 0 , 255 , 0
Oval px ,350 , 50 , 50
Color 255 , 0 , 0
Oval nmyx , nmyy , 40 , 40
Color 255 , 255 , 255
Text 0,0,"Score:" + Int((ys-1)*1000)
Flip
Cls
Until KeyHit(1)

;x=Neigung
;v=Neigungszunahme
;p=Punkte
;s=Sleeptime
;b1,b2=Bilder
;l=Schwierigkeitslevel
;f=FileHandle
;h=Highscore
If FileType("high.dat")=0 Then
   f=WriteFile("high.dat")
   h=7966
   WriteInt(f,h)
Else
   f=ReadFile("high.dat")
   h=ReadInt(f)
EndIf
Graphics 800,600,0,2
AppTitle "Noob Skater 1"
b1=CreateImage(50,10)
SetBuffer ImageBuffer(b1)
For i=0 To 49
   For j=0 To 9
      Color 255-i*5,i*5,0:Plot i,j
   Next
Next
Color 255,255,255
SetBuffer BackBuffer()
b2=CopyImage(b1):RotateImage(b2,180)
l#=0.5
.wait
Cls
Color 255,255,255
For i=0 To 2
   Text 306+i,240-i,"N o o b  S k a t e r  1"
Next
Text 300,260,"Aktueller Highscore: "+h
Text 280,280,"Escape drücken, um zu Beenden,"
Text 184,300,"Cursor Rauf/Runter, um die Schwierigkeit einzustellen,"
Text 272,320,"andere Taste drücken zum Starten"
Color (l-0.5)*127.5,255-(l-0.5)*127.5,0
Text 328,340,"Schwierigkeit: "+l
Flip
WaitKey()
If KeyHit(1) Then End
If KeyDown(200) Then
   If l<2.4 Then l=l+0.1
   Goto wait
EndIf
If KeyDown(208) Then
   If l>0.5 Then l=l-0.1
   Goto wait
EndIf
SeedRnd MilliSecs()
x#=400:v#=Rnd(-l,l):p=0
Color 255,255,255
Repeat
   t=Millisecs()
   DrawImage b1,350,400
   DrawImage b2,450,410
   Rect x,395,1,20
   Line 320,320,400,300
   Line 400,300,480,320
   Line 320,320,480,320
   Rect 310,315,10,10,0
   Rect 480,315,10,10,0
   Line 400-100*Cos((x-400)/5),300-100*Sin((x-400)/5),400+100*Cos((x-400)/5),300+100*Sin((x-400)/5)
   v=v-l*Sin((400-x)/50.0)
   x=x+v
   If KeyDown(203) Then v=v-0.04
   If KeyDown(205) Then v=v+0.04
   If x<350 Or x>450 Then
      Text 356,350,"Verloren!!!"
      Text 300,370,"Du hast "+p+"Punkte erreicht!"
      f=ReadFile("high.dat")
      If ReadInt(f)<p Then
         f=WriteFile("high.dat")
         h=p
         WriteInt(f,h)
      EndIf
      Flip :Delay 2000:FlushKeys():Goto wait
   EndIf
   p=p+l*(Abs(x-400)/10)
   Text 380,250,p+" Punkte"
   Flip :Cls
   s=t+20-MilliSecs()
   If s>2 Then Delay s
Until KeyHit(1)
End