AppTitle "0lymja 2008 feat. HARTZ IV feat. SchloPi feat. Sternburg"

Graphics 640, 480, 0 ,2

HidePointer()

SeedRnd MilliSecs()

Global girlZ01_x = 180, girlZ01_y = 220, girlZ01_y_speed# = 0, girlZ02_x = 420, girlZ02_y = 220,  girlZ02_y_speed# = 0, goer = Rand(1,5), status = 0



girlZ01 = CreateImage (50,100,1)

SetBuffer ImageBuffer(girlZ01)
Color 255,90,90
Rect 10,10,20,10
Rect 0,20,40,60,1
Color 0,0,0   
Rect 10,50,20,40,1

girlZ02 = CreateImage (50,100,1)

SetBuffer ImageBuffer(girlZ02)
Color 255,90,255
Rect 10,10,20,10
Rect 0,20,40,60,1
Color 0,0,0   
Rect 10,50,20,40,1


ground = CreateImage (400,40,1)

SetBuffer ImageBuffer(ground)
Color 11,90,255
Rect 0,0,400,10

SetFont LoadFont("fixedsys", 50)



SetBuffer BackBuffer()


zeit = MilliSecs()


While Not KeyHit(1)
   
   ClsColor Rand(15,255),Rand(5,255),Rand(15,255)
      
   Color Rand(15,255),Rand(5,255),Rand(15,255)
   
   
   Select    status
   Case 0
   
   If MilliSecs() > zeit + 1000
   
      Text 10,40, "MrKeks"
      
   End If
   
   
   If MilliSecs() > zeit + 1200
   
      Text 160,40, ",T0bi"
      
   End If
   
   If MilliSecs() > zeit + 1400
   
      Text 290,40, ",Nathi"
      
   End If
   
   If MilliSecs() > zeit + 1600
   
      Text 430,40, ",DerHase"
      
   End If
   
   
   If MilliSecs() > zeit + 1900
   
      Text 320,100, "PROUDLY PREZENT",1
      
   End If
   
   
   If MilliSecs() > zeit + 2900
   
      Text 225,200, "BEIJING"
      
   End If
   
   If MilliSecs() > zeit + 3400
   
      
      Text 260,300, "2008"
   End If
   
   If MilliSecs() > zeit + 4000
   
      
      status = 1
   End If
   
   
   Case 1
      girlZ01_x = 180
      girlZ01_y = 220
      girlZ01_y_speed# = 0
      girlZ02_x = 420
      girlZ02_y = 220
      girlZ02_y_speed# = 0
      goer = Rand(1,5)
      status = 2
      sieg = 0
      
      
   
   
   Case 2
      goer2 = goer + 5
      If goer2 = 10 Then goer2 = 0
      
      If Sieg = 0 Then
         Text girlZ02_x + 7, girlZ02_y - 50, goer2
         Text girlZ01_x + 7, girlZ01_y - 50, goer
      ElseIf Sieg = 1 Then
         Text girlZ02_x + 25, girlZ02_y - 50, "OH NO!", 1
         Text girlZ01_x + 25, girlZ01_y - 50, "HA HA!", 1
      ElseIf Sieg = 2 Then
         Text girlZ02_x + 25, girlZ02_y - 50, "HA HA!", 1
         Text girlZ01_x + 25, girlZ01_y - 50, "OH NO!", 1
      EndIf
      
      If KeyHit(goer+1) Then
         goer = Rand(1, 5)
         If girlZ01_x < 480 Then
            If girlZ01_x > 80
               girlZ01_x = girlZ01_x + 10
               If girlZ01_x+40 > girlZ02_x Then
                  girlZ02_x = girlZ02_x + 10
               EndIf
            EndIf
         EndIf
      EndIf
      If KeyHit(goer+6) Then
         goer = Rand(1, 5)
         If girlZ02_x > 120 Then
            If girlZ02_x < 520
               girlZ02_x = girlZ02_x - 10
               If girlZ02_x < girlZ01_x+40 Then
                  girlZ01_x = girlZ01_x - 10
               EndIf
            EndIf
         EndIf
   
      EndIf
      FlushKeys
      
      If Time < MilliSecs() Then
         If girlZ01_x <= 80
            girlZ01_y = girlZ01_y + girlZ01_y_speed#
            girlZ01_y_speed# = girlZ01_y_speed# + 1.2
            
            Sieg = 2
         EndIf
         If girlZ02_x >= 520
            girlZ02_y = girlZ02_y + girlZ02_y_speed#
            girlZ02_y_speed# = girlZ02_y_speed# + 1.2
            
            Sieg = 1
         EndIf
         
         Time = MilliSecs()+30
      EndIf
      Text 50, 10, "M0PPEL DAMEN SUM0 2008"
      
      DrawImage girlZ01,girlZ01_x,girlZ01_y
      
      DrawImage girlZ02,girlZ02_x,girlZ02_y
   
   
      DrawImage ground, 120, 300
      DrawImage ground, 120, 340
      DrawImage ground, 120, 380
   
      If girlZ01_y > 1000 Or girlZ02_y > 1000
         status = 1
      End If
   
   End Select
   
   
   
         
   
   
      Flip:Cls
   
Wend