setscreen ("graphic,title: The Apprentice By: Andrew Saggiorato,nobuttonbar")
colourback (black)
cls
process DoMusic
loop
Music.PlayFile ("Apprentice.wav")
end loop
end DoMusic
fork DoMusic
var word : string := " Do You Have What It Takes?"
var cola : int := 30
colorback (black)
for row : 1 .. 25
for col : 1 .. 80
put " " ..
end for
end for
color (white)
for a : 1 .. length (word)
locate (22, cola)
cola += 1
put word (a)
delay (100)
end for
for decreasing i : maxy .. 0
RGB.SetColour (1, 0, 0, i * (1 / maxy))
Draw.Line (0, maxy - i, maxx, maxy - i, 1)
end for
for a : 1 .. 500
var x := Rand.Int (0, maxx)
var y := Rand.Int (150, maxy)
var c := Rand.Int (16, 31)
Draw.Dot (x, y, c)
end for
drawfillbox (0, 0, maxx, Rand.Int (25, 30), 7)
var hold : int
for i : 1 .. 200
hold := Rand.Int (0, maxx)
drawfillbox (hold, 0,hold+Rand.Int (10,20), Rand.Int (0, 100), 7)
end for
|
Register
Wiki
Blog
Search
Turing
Chat Room
Members
