View.Set ("graphics:max;max")
var Stop := false
var userName : string := ""
process myProcess ()
const TEMP_FONT := Font.New ("Impact:20")
loop
Font.Draw ("Enter something kthx", Rand.Int (-100, maxx), Rand.Int (0, maxy div 3), TEMP_FONT, black)
Time.DelaySinceLast(80)
exit when (Stop)
end loop
Font.Free (TEMP_FONT)
Draw.FillBox (0, maxy div 2, maxx, 0, white)
end myProcess
put "Please enter your username. " ..
fork myProcess () %This starts our process
get userName : *
Stop := true
put "Thankyou!"
|