TGC Codebase Backup



Lost program by t1011100

15th 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.
Felt like i should post something here :b

EDIT: whoops didnt notice that you can include media but ehm.. those songs file size is too big anyway...



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