Lost program by t101110015th Jan 2007 10:14
|
---|
Summary idea from tv series Lost. you have to type in lost numbers 4 8 15 16 23 42.. nothing special. since this is only source code i made background music commands to comments Description its really nothing special, sometimes i just get bored and try to add things to it... next "version" ,if it ever comes, will have animations :D. Code ` This code was downloaded from The Game Creators ` It is reproduced here with full permission ` http://www.thegamecreators.com REM Made by "t1011100" (... yes i know its quite stupid nickname) rem load sound "large explosion 4.wav", 1 rem load music "YaketySax.mp3", 1 rem load music "YouAllEverybody.mp3", 2 beginning: rem play music 1 rem loop music 1 forecolor = RGB(0, 255, 0) Backcolor = RGB(0, 0, 0) ink forecolor, backcolor set text font "Arial Black" set text to bold set text size 18 text 0,50, ">: Type in the Lost Numbers!" wait 3000 cls input ">: ", a$ cls if a$ = "4 8 15 16 23 42" then print ">: Correct, hopefully we meet again in 108 minutes" else goto wrong wait 3000 cls exit for b = 5 to 1 step -1 print "Numbers need to be retyped in "+ str$(b) +" seconds to keep everyone safe." wait 1000 cls next b goto beginning wrong: rem pause music 1 set text size 20 rem play sound 1 wait 1000 rem play music 2 for n = 1 to 50 print ">: System Failure" wait 100 next n do fcolor = rgb(rnd(255),rnd(255),rnd(255)) INK fcolor, rgb(0,0,255) dot rnd(640),rnd(480) loop end |