/
    /------>
   /|
  / |

Du ,der gummiball, musst alle Stufen hochsteigen um DER beste Ball-hüpfer zu werden, da der letzte
Meister-Weltrekor-Ball bist zur 499ten Stufe kam, von insgesammnt 500 Stufen XD.
Aber keine Sorge euer Meister (ich XD) hat euch ein Autojumper gebaut, naja kann sein das dieser mal mehr,
oder weniger stark springt ^^.(also kein Bug, sondern ums schwieriger zu machen ^^)
Außerdem schreiben die regel des Gummi-Wletrecort-springverbandes vor das man nur 10 versuche hat, welche durch
den Backrepeater abgezählt werden, also benutzt ihn nicht zu oft oder unnötig.
Als Preis winkt euch Ruhm,Ehre und vielleicht bald mal ein Bier was ich euch ausgebe XD.....

-Bloom beim Ball
-500 stufen mit schwerer werdenen Schwierigkeitsgrad
-die 500 Stufen bewegen sich mit einer sagenhaft komplizierten formel....
-aufleuteffect wenn man auf eine belibige stufe tritt
-Name steht auf dem ball welcher sich je nach bewegung syncron dreht.
-Backrepeater-----damit, wenn man runterfällt nicht stunden lang zu start rollen muss.
-bestiegene Stufen drehen dich nicht mehr
-nur 4.095 Bytes und nicht 4KB XD

Type ball
   Field x
   Field y#
   Field s
   Field g#
   Field maxg#
   Field xs
End type

Dim ballimg(3)
Dim pimg(1)

For g = 0 To 3
   ballimg(g) = CreateImage(150/2^g,150/2^g)
   MidHandle ballimg(g)
   m = (150/2^g)/3
   SetBuffer ImageBuffer(ballimg(g))
   For c = 100 To 255
      Color c,c,c
      x = (250-c)/2^g
      Oval m-x/3,m-x/3,x,x,1
   Next
   Flip
Next

kette = CreateImage(10,20)
SetBuffer ImageBuffer(kette)
Color 1,1,1
Oval 0,0,10,20,1
Color 0,0,0
Oval 2,2,6,16,1
MidHandle kette
bimg = CreateImage(720,100)
SetBuffer ImageBuffer(bimg)
For y = -0 To 220
   c = (y) Mod 50
   If ((y / 50) Mod 2) c = 50-c
   c = 3*c
   Color 255,255-c,0
   For x = 0 To 720
      Plot x,y + Sin(x/2)*20 - 100
   Next
Next


pimg(0) = CreateImage(80,40)
MidHandle pimg(0)
SetBuffer ImageBuffer(pimg(0))
Color 255,0,0
Rect 0,0,80,30
Color 0,0,0
Oval 5,20,20,20
Oval 45,20,20,20
Oval -15,-15,30,30
Color 1,1,1
Oval 8,23,14,14
Oval 48,23,14,14
Color 0,0,255
For x = 20 To 80 Step 15
   Rect x,5,10,10
Next
pimg(1) = CopyImage(pimg(0))
ScaleImage pimg(1), -1, 1

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

px = 400
shooty = 500
level=1
Color 0,0,0
energy = 20
SetFont LoadFont("Blitz",50,1)
Repeat
   Cls
   If KeyHit(1) And modus <> 4 om = modus modus=4
   TileImage bimg, bx
   Viewport 0,500,800,100
   TileImage bimg, -bx
   bx = bx + 1
   Viewport 0,0,800,500
   Color 0,0,0
   Line 0,499,800,499
   Select modus
      Case 0
         Text 400,250, "Level " + Level, 1, 1
         If KeyHit(57)
            For x = 0 To (level-1)/3
               ball.ball = New ball
               ball\x = Rand(0,800)
               ball\y = Rand(0,600)
               ball\g = -10
               ball\s = 3-((level-1) Mod 3) - 1
               ball\xs = -3
               ball\maxg = -15
            Next
            modus=1
         End if
      Case 1
         ballc = 0
         For ball.ball = Each ball
            ballc = ballc + 1
            DrawImage ballimg(ball\s), ball\x, ball\y
            ball\y = ball\y + ball\g
            ball\g = ball\g + 0.3
            ball\x = ball\x + ball\xs
            If ball\x < 0 ball\xs=3
            If ball\x > 800 ball\xs=-3
            maxy = 500-imageheight(ballimg(ball\s))/2
            If ball\y > maxy ball\g = ball\maxg: ball\maxg = ball\maxg+1 ball\y = maxy
            If ball\maxg > 0 ball\maxg = 0
            If ImagesCollide(ballimg(ball\s),ball\x,ball\y,0,pimg(ri),px,483,0) And (MilliSecs() - steal > 1000)
               steal = MilliSecs()
               energy = energy-4+ball\s
               If energy <= 0 modus=3
            End if
            If ImageRectOverlap(ballimg(ball\s),ball\x,ball\y,shootx,shooty,2,600) And shooty<500
               shooty = 500
               If ball\s < 3
                  nball.ball = New ball
                  nball\x = ball\x
                  nball\y = ball\y
                  nball\g = -Abs(ball\g)
                  nball\s = ball\s+1
                  nball\xs = -3
                  nball\maxg = -15
                  nball.ball = New ball
                  nball\x = ball\x
                  nball\y = ball\y
                  nball\g = -Abs(ball\g)
                  nball\s = ball\s+1
                  nball\xs = 3
                  nball\maxg = -15   
               End if
               Delete ball.ball
            End if
         Next
         If ballc = 0 level = level+1 modus=0 energy=20
         Color 0,0,0
         Rect 0,0,205,25
         Color 255,0,0
         Rect 0,0,200,20
         Color 0,255,0
         Rect 0,0,energy*10,20
         m=0
         If KeyDown(205) px = px + 2: ri=1: m=1
         If KeyDown(203) px = px - 2: ri=0: m=1
         If KeyHit(57) And shooty > 480 shooty = 499: shootx = px
         If shooty < 500
            Color 0,0,0
            shooty = shooty-5
            If shooty < 0 shooty = 500
            For y = shooty To 500 Step 13
               DrawImage kette, shootx, y
            next
         End If
         If MilliSecs() - steal > 1000 Or MilliSecs() Mod 100 < 50 DrawImage pimg(ri), px, 483 + Rand(-1,1)*m
      Case 3
         Text 400,100,"Game Over", 1, 1
         Text 400,150,"Du hast es bis in das Level",1,1
         Text 400,200, Level,1,1
         Text 400,250, "Geschafft",1,1
         Text 400,300, "Leertaste - Neu Starten",1,1
         Text 400,350, "ESC - Beenden",1,1
         If KeyHit(1) End
         If KeyHit(57) level=1: modus=0: energy=20: Delete Each ball
      Case 4
         Text 400,200, "Beenden?",1,1
         Text 400,250, "Leertaste - Ja",1,1
         Text 400,300, "ESC - Nein",1,1
         If KeyHit(1) modus = om
         If KeyHit(57) End
   End Select
   Flip
Forever

 ballimg(g) = CreateImage(150/2^g,150/2^g)

 For count = 3 To 1 Step -1
    Cls
     Text 50,50,count
     Delay 500
 next