Sorry your browser is not supported!

You are using an outdated browser that does not support modern web technologies, in order to use this site please update to a new browser.

Browsers supported include Chrome, FireFox, Safari, Opera, Internet Explorer 10+ or Microsoft Edge.

Code Snippets / Lost Program.

Author
Message
t1011100
17
Years of Service
User Offline
Joined: 15th Jan 2007
Location:
Posted: 15th Jan 2007 16:26
i just felt like i should post a code thingy here since i just made this new profile...

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

[quote]so that was it... music commands are commented because i didnt want to upload those songs and propably that would be illegal....

-

Login to post a reply

Server time is: 2024-11-23 00:07:39
Your offset time is: 2024-11-23 00:07:39