' "Train Stop/Turn based DEMO"
' Created with QDK 3.53 - UNREGISTERED VERSION
define game <Train Stop/Turn based DEMO>
asl-version <350>
gametype singleplayer
start <Train Station>
game author <>
game version <1.0>
game copyright <© Artistic Productions 2005>
game info <Created with QDK 3.53 - UNREGISTERED EVALUATION VERSION.>
default fontname <Century Gothic>
default fontsize <12>
background <black>
foreground <white>
startscript {
msg <|jc>
flag on <train>
exec <about>
wait <Press any key to begin...>
clear
}
afterturn if flag <train> then inc <Train/Turns; 1>
define variable <location>
type string
value <Chicago>
display <Current City: !>
end define
define variable <Train/Turns>
type numeric
value <0>
onchange if ( %Train/Turns% = 5 ) then {
set <Train/Turns; 0>
if ( #quest.currentroom# = Outside ) then {
msg <|cr|bThe wind rushes past your face as the train pulls in, abruptly halting with a |ijolt.|xi|n|cy|i"All Aboard!!"|xi|cr the conductor shouts.|cb|xb|n|n>
show <Train>
timeron <Train Departing>
flag off <train>
}
else {
msg <|b|crYou hear the clatter of the train pulling into the station. Faintly, you hear the conductor shouting for everyone to |i|cy"Board the train!!"|xi|cb|xb|n>
show <Train>
timeron <Train Departing>
flag off <train>
}
}
end define
end define
define synonyms
end define
define room <Train Station>
prefix <the>
look <All around you, people are bustling about, rushing to and fro to get to various locations.>
north <Hallway>
description msg <You are in the |cg|bTrain Station.|cb|xb|n|n#quest.lookdesc#|n|nYou can travel |cg|bNorth.|cb|xb|n>
end define
define room <Hallway>
prefix <the>
look <It's well-lit. The faint odor of some cleaning agent lingers in the air.>
out <Outside>
south <Train Station>
description msg <You are standing in the |cg|bHallway.|cb|xb|n|n#quest.lookdesc#|n|nYou can travel |cg|bSouth,|xb|cb and |cg|bOut|xb|cb to |b|cgOutside.|cb|xb|n>
end define
define room <Outside>
look <The wind brushes against your face, leaving you with a slight chill.>
south <Hallway>
description msg <You are waiting |cg|bOutside |cr[Chicago]|cg.|cb|xb|n|n#quest.lookdesc#|n|nYou can travel |cg|bSouth.|cb|xb|n>
command <board #spare#;get on #spare#;go on #spare#;enter #spare#> if here <Train> then exec <x train> else msg <You can't get onto the train...it's not here...|n>
define object <Train>
look <The train is painted a dull, metallic gray.>
take msg <Who do you think you are? One of the Incredibles?|n>
speak <Trains don't speak. Usually.>
examine if ask <Would you like to board the train?> then {
timeroff <Train Departing>
timeroff <Train Departing 2>
flag off <train>
msg <You step onto the train. Behind you, you see Mr. Stern getting ready to board too.|n>
goto <On the train>
hide <Mr. Stern>
show <Mr. Stern2>
move <Mr. Stern2; On the train>
timeron <On The Train>
}
else msg <You choose not to get on.|n>
prefix <the>
article <it>
gender <it>
hidden
end define
define object <Mr. Stern>
look <A tall, thin man is resting leaning against the wall.>
take msg <|cy|b"Excuse me!!"|cb|xb|n>
speak msg <|b|cy"Oh hello there, sir,"|xb|cb the thin man says happily, |b|cy"My name is Mr. Stern. Pleased to meet you."|cb|xb |nHe shakes your hand firmly.|n|b|cyI'll be seeing you on the train. I'm going to New York too!"|xb|cb|nWith that, he turns away from you, nothing more to say.|n>
examine <On closer examination, you can see that his face is pockmarked with the remnants of scars that bad acne has left upon him.>
displaytype <Human>
article <him>
gender <he>
end define
define object <Mr. Stern2>
alias <Mr. Stern>
look <A tall, thin man is resting leaning against the wall.>
take msg <|cy|b"Excuse me!!"|cb|xb|n>
speak msg <|cy|b"Isn't this exciting?"|xb|cb Mr. Stern asks you. He smiles. |n|b|cy"I'm visiting my sister in Brooklyn."|xb|cb|nHis smile widens as the thought excites him even more.|n>
examine <On closer examination, you can see that his face is pockmarked with the remnants of scars that bad acne has left upon him.>
displaytype <Human>
article <him>
gender <he>
hidden
end define
define object <Mr. Stern3>
alias <Mr. Stern>
look <A tall, thin man is resting leaning against the wall.>
take msg <|cy|b"Excuse me!!"|cb|xb|n>
speak msg <Mr. Stern looks at you. |b|cy"Isn't New York exciting?"|xb|cb he asks.|n>
examine <On closer examination, you can see that his face is pockmarked with the remnants of scars that bad acne has left upon him.>
displaytype <Human>
article <him>
gender <he>
hidden
end define
end define
define room <On the train>
alias <Train>
look <Seats line the aisles. You are in coach, so the decor isn't of much beauty to your naked eye.>
description msg <You are on the |cg|bTrain.|cb|xb|n|n#quest.lookdesc#|n>
end define
define room <New York>
alias <Outside>
look <The wind brushes against your face, leaving you with a slight chill.>
description msg <You are |cg|bOutside |cr[New York]|cg.|cb|xb|n|n#quest.lookdesc#|n>
end define
define timer <Train Departing>
interval <10>
action {
timeroff <Train Departing>
msg <|cl|bThe train will depart in 5 seconds...|xb|cb|n>
timeron <Train Departing 2>
}
disabled
end define
define timer <Train Departing 2>
interval <5>
action {
timeroff <Train Departing 2>
msg <|cl|bThe train has departed. The next one should be arriving shortly.|xb|cb|n>
hide <Train>
flag on <train>
}
disabled
end define
define timer <On The Train>
interval <15>
action {
timeroff <On The Train>
msg <|cl|bThe train will be arriving in New York in 5 seconds.|xb|cb|n>
timeron <On the train 2>
}
disabled
end define
define timer <On the train 2>
interval <5>
action {
timeroff <On the train 2>
msg <|b|clThe train stops with a lurch. Everyone gets off.|xb|cb|n>
hide <Mr. Stern2>
show <Mr. Stern3>
move <Mr. Stern3; New York>
goto <New York>
set string <location; New York>
}
disabled
end define
define text <intro>
end define
define text <win>
end define
define text <lose>
end define
Say, are you really this fast? Or did you have something like it allready prepared
Thanks for the compliments, every1...and you can call me whatever u want, CW...lolNice work EBfan (hope you don't mind me shortening to that)...
I like the idea of the status-variable event,