Graphics 1024,768,16,0
SetBuffer BackBuffer()
AppTitle ("mausoft Intro")


;Variablen setzen
   Ms = MilliSecs()
   schrift_x = 1024
   schrift_y = 290
   rot = 0
   gruen = 0
   blau = 0
   schriftgroesse# = 150
   x# = 1
   y# = 1

;Font laden, Font und Farbe setzen
   schrift = LoadFont ("bauer.ttf",150)
   SetFont schrift
   Color 180,0,0

Delay 2000

;Schleife 1
While Not rot >= 255
   zeitnormung()
   mausoftbewegen()   
      

      If schrift_x <= 50 Then
         schrift_x = 50
         rot = (rot +20 +0.001 * Timescale)
         gruen = (gruen +20 +0.001 * Timescale)
         blau = (blau +20 +0.001 * Timescale)
      EndIf

      ClsColor rot,gruen,blau
      Text schrift_x,schrift_y, "mausoft"
      
Flip
Cls
Wend
Delay 1000


;Schleife 2
While Not schriftgroesse# <= 0
   zeitnormung()
      
ClsColor 255,255,255
Cls

      schriftkl = LoadFont ("bauer.ttf",schriftgroesse#)
      schriftgroesse# = (schriftgroesse# - 5.6 + 0.001 * Timescale)
      SetFont schriftkl
      
      Text x#+50,y#+290,"presents"
      x# = (x# *1.3 + 0.001 * Timescale)
      y# = (y# *1.26 + 0.001 * Timescale)
      
Flip
Wend

   Function zeitnormung()
      Timescale = MilliSecs() - Ms
      Ms = MilliSecs()
   End Function
   
   Function mausoftbewegen()
      schrift_x = (schrift_x -20 + 0.001 * Timescale)
   End Function

End