Sorry your browser is not supported!

REM *** Project Neverending Text Adventure ***
REM *** Created by Sixty Squares ***
REM *** Added to by Kieran ***


sally = 0 : answer$ = ""
Bobstart:
set text font "verdana" : set text size 12 : print "You are walking down the road when a guy says: "Hi. My name is Bob. I want to play a fun game against you." (Press a key)" : wait key : Bobstart: : RANDOMIZE TIMER() : cls : NUM=1+rnd(2) : set cursor 0,0 : print "SCORE: ",Score : input "BOB:    I AM THINKING OF A NUMBER BETWEEN 1 AND 3. WHAT IS IT?     ",GUESS : wait 200 : if GUESS<>NUM :  print "BOB:    IT WAS ",NUM,". YOU LOSE!        *Bob kills you*" : wait key : end :  else :  print "BOB:    CORRECT!" : inc Score,10 : wait key : endif : wait 200
if sally = 0 : Print "Sally the Salesman approaches you and says: PICK A POTION" : else : goto Bobstart : endif : Print "Would you like the mystery potion?" : Input "[Y/N]: ",answer$ : if answer$ = "Y" : Print "It was poisonous *you die*" : wait key : end : endif : if answer$ = "N" : Print "How About a Fishy Potion?" : answer$ = "" : Input "[Y/N] ",answer$ : endif : if answer$ = "Y" : inc Score,10 : goto Bobstart : else : Print "*Sally Throws an Exploding Potion at you and you Die*" : wait key : end : endif

sync on

do
   cls
   x=x+1
   if x>(screen width()-text width("TEXT"))
      y=y+text height("TEXT") : x=0
      ink rgb(rnd(255),rnd(255),rnd(255)),0
   endif
   if y>(screen height()-text height("TEXT"))
      y=0
   endif
   text x,y,"TEXT"
   sync
loop

set text font "verdana" : set text size 12 : print "you and bob are now both zombies.", "(press a key)" : wait key : cls : print "you are walking around in you zombie home when zombie bob opens the door and says 'i want to play a fun game with you!", "(Press a key)" : wait key : print "you say 'oh no i'm not falling for that trick again", "(press a key)" : wait key : cls : print "you shoot him with a shotgun", "(press a key)" : wait key : cls : print "game over", "(press a key)" : wait key : end

Randomize Timer()

Set text font "Times New Roman"
Set text size 18

Room as Integer
Choice as Integer
Randnum as Integer
RNUM2 as Integer
Guess as Integer

Print "You have just gotten DarkBASIC Pro."
Wait Key
Print "You program a game, what you do not know, is that you're dbpro editor was glitched up by you're neighbor,"
Print "Bob. As you program an exciting text adventure, Bob is injecting a virus into you're computer."
Wait Key
Print "When you run the game, you get sucked up! Thus begins you're adventure."
Print "Press a key to continue."
Room = 8
Wait Key

Do

If Room = 1
cls
Print "You are on a VERY cheesy looking road, what do you do?"
Input "1) Eat the game. 2) WALK DOWN THE ROAD (hint hint).",choice
If choice = 1
Print "YOU LOST!"
Wait Key
Exit
Endif
If choice = 2
Print "You went down the road!"
Room = 2
Wait Key
cls
Else
Print "HUH?"
Wait Key
Endif
Endif
If Room = 2
cls
Print "Hey look it's Bo- What's he doing here?"
Input "Do you - 1)Kill Him. 2) Eat Him. 3) Ask him what he's doing here.", choice
If choice = 1
Print "YOU LOST! You can't get out of the game now! AHAHAHAH!!!"
Wait Key
Exit
Endif
If choice = 2
Print "YOU LOST! You can't get out of the game now! AHAHAHAH!!!"
Wait Key
Exit
Endif
If choice = 3
Print "He challenges you to a game (This sounds familiar.)"
Room = 3
Wait Key
Endif
Endif
If Room = 3
cls
Print "Bob tells you 'Pick a number in bewtween 1 and 3 INCLUDING 1 and 3."
Input "Well? What will it be?", Guess
randnum = 1 + rnd(0)
Wait 50
If Guess = randnum
Print "Bob says 'Wow! You won!'"
Room = 4
Wait Key
Else
Print "You lost! Bob kills you!"
Wait Key
Exit
Endif
Endif
If Room = 4
cls
Print "You continue your strange adventure to get out when you get stuck in cyberglue."
Input "Do you 1) Scream your lungs out at your bad luck, 2) Try to pry your leg out, or 3) Do the hokey-pokey.", choice
If choice = 1
Print "YOU LOST! You're lungs fell out."
Wait Key
Exit
Endif
If choice = 2
Print "You accidentally pried your leg off!! You lose!"
Wait Key
Exit
Endif
If choice = 3
Print "You hokey-pokeyed into a secret underground chamber!"
Wait Key
Room = 5
Endif
Endif
If Room = 5
cls
Print "You see an obstacle course reminiscent of SMB's 1-2."
Print "A buzzy beetle approaches you."
Print "He looks dangerous (NOT.)"
Print "Do you 1) Hit his head and throw him at the flock of swoopers that are approaching you (Hey! I"
Print "thought this was SMB!),"
Print "2) Befriend him and have him throw hmself at the flock of swoopers approaching you, or"
Input "3) CRUNCHITIZE ME CAPTAIN!", choice
If choice = 1
Print "It rebounded and hit you! XD. You died."
Wait Key
Exit
Endif
If choice = 2
Print "It smashes into the swoopers and lets you go safely past."
Wait Key
Room = 6
Endif
If choice = 3
Print "The swoopers think you are captain crunch and they smash into you! Ow. YOU DIED."
Wait Key
Exit
Endif
Endif
If Room = 6
cls
Print "YOU SEE ONE OF THOSE CLASSIC SUPER MUSHROOMS!"
Print "Do you 1) Eat it. 2) NOT eat it. 3) Impersonate Jay Leno, Elvis Presley,"
Input "and George W. Bush all at the same time!",choice
If choice = 1
Print "It's one of those darn poison mushrooms that look EXACTLY like a super mushrrom from super"
Print "smash bros melee! You die!"
Wait Key
Exit
Endif
If choice = 2
Print "You walk past it. No DUH!"
Wait Key
Room = 7
Endif
If choice = 3
Print "There is no one to listen to you in this cold, dark cave.TRY AGAIN YOU DOLT!"
Wait Key
Endif
Endif
If Room = 7
cls
Print "Bob says he will give you a moon jump power if you can guess correctly this time."
Print "Since you need this power to continue through, Pick a number between 1 and 5!"
Print "There is a catch here though. He will think of 2 numbers. You have to guess one of them."
Input "Pretty sweet deal. Huh? (Though he may get cheap and make both numbers the same.)",Guess
randnum = 1 + rnd(4)
RNUM2 = 1 + rnd(4)
Wait 50
If Guess = randnum
Print "Bob says 'Wow! You won!'"
Wait Key
Room = 8
EndIf
If Guess = RNUM2
Print "You guessed the second number! (He kills you.)"
Wait Key
If Guess <> randnum
Exit
Endif
Endif
If Guess = RNUM2 and Guess = randnum
Print "Wait a second, how did you guess both numbers? I was being cheap! (He disappears.(Without giving you moon jump.))"
Print "You continue and realize the area where those platforms are, are demolished. YOU LOSE!"
Endif
Endif
If Guess <> randnum
If Guess <> RNUM2
Print "You lost! Bob kills you! He has a bad streak of killing people, doesn't he."
Wait Key
Exit
Endif
Endif
If Room = 8
cls
Print "You moonjump over the pit where those elevators use to be"
Print "And find him wanting to play another game. He offers a pipe to World 2 for 10 coins,"
Print "a pipe to World 3 for 30 coins, and a pipe to World 4 for 40 coins."
Print "Those, correspondingly are choices 1 - 3. Choice 4 is, screw this, I'm taking the"
Input "Normal exit.",choice
If choice = 1
Print "You go through and get instantly killed by a pokey."
Wait Key
Exit
Endif
If choice = 2
Print "You go through and you realize you didn't actually have enough money. Bob beats you up."
Print "As you weakly get up, you get trampled by a chibibobo."
Wait Key
Exit
Endif
If choice = 3
Print "You go through, realize you don't have enough money, and Bob gets so mad, he kills you."
Wait Key
Exit
Endif
If choice = 4
cls
Print "He gets mad for you screwing him, but you escape through the pipe. He, however continues"
Print "Chasing you, but when you cross the flag, the flag hits him in the face when it falls"
Print "down and Yo mama thinks this is a green light (The flag is green). She tramples towards"
Print "the flag and kills Bob under her enormous weight along with the flag pole crashing on"
Print "him."
Set Text Size 24
Print "TO BE CONTINUED...."
Wait Key
Exit
Endif
Endif
Loop

Randomize Timer()

Set text font "Times New Roman"
Set text size 18

Room as Integer
Choice as Integer
Randnum as Integer
RNUM2 as Integer
Guess as Integer

Print "You have just gotten DarkBASIC Pro."
Wait Key
Print "You program a game, what you do not know, is that you're dbpro editor was glitched up by you're neighbor,"
Print "Bob. As you program an exciting text adventure, Bob is injecting a virus into you're computer."
Wait Key
Print "When you run the game, you get sucked up! Thus begins you're adventure."
Print "Press a key to continue."
Room = 1
Wait Key

Do

If Room = 1
cls
Print "You are on a VERY cheesy looking road, what do you do?"
Input "1) Eat the game. 2) WALK DOWN THE ROAD (hint hint).",choice
If choice = 1
Print "YOU LOST!"
Wait Key
Exit
Endif
If choice = 2
Print "You went down the road!"
Room = 2
Wait Key
cls
Else
Print "HUH?"
Wait Key
Endif
Endif
If Room = 2
cls
Print "Hey look it's Bo- What's he doing here?"
Input "Do you - 1)Kill Him. 2) Eat Him. 3) Ask him what he's doing here.", choice
If choice = 1
Print "YOU LOST! You can't get out of the game now! AHAHAHAH!!!"
Wait Key
Exit
Endif
If choice = 2
Print "YOU LOST! You can't get out of the game now! AHAHAHAH!!!"
Wait Key
Exit
Endif
If choice = 3
Print "He challenges you to a game (This sounds familiar.)"
Room = 3
Wait Key
Endif
Endif
If Room = 3
cls
Print "Bob tells you 'Pick a number in bewtween 1 and 3 INCLUDING 1 and 3."
Input "Well? What will it be?", Guess
randnum = 1 + rnd(0)
Wait 50
If Guess = randnum
Print "Bob says 'Wow! You won!'"
Room = 4
Wait Key
Else
Print "You lost! Bob kills you!"
Wait Key
Exit
Endif
Endif
If Room = 4
cls
Print "You continue your strange adventure to get out when you get stuck in cyberglue."
Input "Do you 1) Scream your lungs out at your bad luck, 2) Try to pry your leg out, or 3) Do the hokey-pokey.", choice
If choice = 1
Print "YOU LOST! You're lungs fell out."
Wait Key
Exit
Endif
If choice = 2
Print "You accidentally pried your leg off!! You lose!"
Wait Key
Exit
Endif
If choice = 3
Print "You hokey-pokeyed into a secret underground chamber!"
Wait Key
Room = 5
Endif
Endif
If Room = 5
cls
Print "You see an obstacle course reminiscent of SMB's 1-2."
Print "A buzzy beetle approaches you."
Print "He looks dangerous (NOT.)"
Print "Do you 1) Hit his head and throw him at the flock of swoopers that are approaching you (Hey! I"
Print "thought this was SMB!),"
Print "2) Befriend him and have him throw hmself at the flock of swoopers approaching you, or"
Input "3) CRUNCHITIZE ME CAPTAIN!", choice
If choice = 1
Print "It rebounded and hit you! XD. You died."
Wait Key
Exit
Endif
If choice = 2
Print "It smashes into the swoopers and lets you go safely past."
Wait Key
Room = 6
Endif
If choice = 3
Print "The swoopers think you are captain crunch and they smash into you! Ow. YOU DIED."
Wait Key
Exit
Endif
Endif
If Room = 6
cls
Print "YOU SEE ONE OF THOSE CLASSIC SUPER MUSHROOMS!"
Print "Do you 1) Eat it. 2) NOT eat it. 3) Impersonate Jay Leno, Elvis Presley,"
Input "and George W. Bush all at the same time!",choice
If choice = 1
Print "It's one of those darn poison mushrooms that look EXACTLY like a super mushrrom from super"
Print "smash bros melee! You die!"
Wait Key
Exit
Endif
If choice = 2
Print "You walk past it. No DUH!"
Wait Key
Room = 7
Endif
If choice = 3
Print "There is no one to listen to you in this cold, dark cave.TRY AGAIN YOU DOLT!"
Wait Key
Endif
Endif
If Room = 7
cls
Print "Bob says he will give you a moon jump power if you can guess correctly this time."
Print "Since you need this power to continue through, Pick a number between 1 and 5!"
Print "There is a catch here though. He will think of 2 numbers. You have to guess one of them."
Input "Pretty sweet deal. Huh? (Though he may get cheap and make both numbers the same.)",Guess
randnum = 1 + rnd(4)
RNUM2 = 1 + rnd(4)
Wait 50
If Guess = randnum
Print "Bob says 'Wow! You won!'"
Wait Key
Room = 8
EndIf
If Guess = RNUM2
Print "You guessed the second number! (He kills you.)"
Wait Key
If Guess <> randnum
Exit
Endif
Endif
If Guess = RNUM2 and Guess = randnum
Print "Wait a second, how did you guess both numbers? I was being cheap! (He disappears.(Without giving you moon jump.))"
Print "You continue and realize the area where those platforms are, are demolished. YOU LOSE!"
Endif
Endif
If Guess <> randnum
If Guess <> RNUM2
Print "You lost! Bob kills you! He has a bad streak of killing people, doesn't he."
Wait Key
Exit
Endif
Endif
If Room = 8
cls
Print "You moonjump over the pit where those elevators use to be"
Print "And find him wanting to play another game. He offers a pipe to World 2 for 10 coins,"
Print "a pipe to World 3 for 30 coins, and a pipe to World 4 for 40 coins."
Print "Those, correspondingly are choices 1 - 3. Choice 4 is, screw this, I'm taking the"
Input "Normal exit.",choice
If choice = 1
Print "You go through and get instantly killed by a pokey."
Wait Key
Exit
Endif
If choice = 2
Print "You go through and you realize you didn't actually have enough money. Bob beats you up."
Print "As you weakly get up, you get trampled by a chibibobo."
Wait Key
Exit
Endif
If choice = 3
Print "You go through, realize you don't have enough money, and Bob gets so mad, he kills you."
Wait Key
Exit
Endif
If choice = 4
cls
Print "He gets mad for you screwing him, but you escape through the pipe. He, however continues"
Print "Chasing you, but when you cross the flag, the flag hits him in the face when it falls"
Print "down and Yo mama thinks this is a green light (The flag is green). She tramples towards"
Print "the flag and kills Bob under her enormous weight along with the flag pole crashing on"
Print "him."
Set Text Size 24
Print "TO BE CONTINUED...."
Wait Key
Exit
Endif
Endif
Loop

Randomize timer()
Print "The next day, Bob somehow clones his zombie body a million times and turned them all into"
Print "1337 robot ninja zombie warriors. You set off to kill them all...cause you feel like it."
Print "Oh did we mention you only have your fists, yea that's kind of important."

  sync on
   sync rate 50
    hide mouse

    main:
    Do


Input "You encounter one of Bob's zombie clones. 1)Punch high 2)Punch low 3)Block high 4)Block low? ->",attack$
Bobattack = rnd(3)+1

If bobattack = 1 then Print "Bob punches high."
 If bobattack = 1 and attack$ = "3" then block = 1

IF bobattack = 1 and attack$ <> "3" then die = 1
 If bobattack = 2 then Print "Bob punches low."


 If bobattack = 2 and attack$ = "4" then block = 1
If bobattack = 2 and attack$ <> "4" then die = 1

If bobattack = 3 then Print "Bob blocks high."
 IF bobattack = 3 and attack$ = "2" then punch = 1

  If bobattack = 3 and attack$ = "1" then blocked = 1
 If bobattack = 3 and attack$ > "2" then stalemate = 1

If bobattack = 4 then Print "Bob blocks low."
 If bobattack = 4 and attack$ = "1" then punch = 1

 If bobattack = 4 and attack$ = "2" then blocked = 1
 IF bobattack = 4 and attack$ > "2" then stalemate = 1

If punch = 1 then Print "You punch the zombie and kill him."
 If block = 1 then Print "You block his punch and, catching him offguard, kill him somehow."

If die = 1 then Print "You are punched and killed by the zombie clone."
 If blocked = 1 then Print "Your punch is blocked, and the zombie kills you."

If stalemate = 1 then Print "Since you both blocked, the zombie rots and you win."
 IF die = 1 or blocked = 1 then end

 suspend for key
cls
inc score

if die=1  then gosub main
 return

  if score=100
   gosub Ally
    return
          endif
Print "Your score is:"+str$(score)
if score = 1000000
   print "You've killed all of Bob's zombies!"
   wait key

endif
 sync
Loop

Ally:
 print "congratulations, you've earned a superpunch! Use it wisely."

return

set display mode 640,480,32 : sync on : sync rate 60 : autocam off : set text font "Verdana" : set text size 14 : randomize timer() : SYNC : print "You and Bob both fall into a magical cloud of gas after being ressurected" : print "and gain magical fighting powers. Bob breathes in more of the gas..." : print "Then he punches you in the face, and the duel begins." : SYNC : WAIT KEY
TYPE Player
Health as float : Energy as float : EnergyRegeneration as float : Damage as float : SpellDamage as float : LastAction as string : MAxHealth as float : MaxEnergy as float
ENDTYPE
GLOBAL Player as Player : GLOBAL Bob as Player : GOSUb SetVariables : GOSUB MainLoop : END
SetVariables:
set text size 14 : Player.Health=690 : Bob.Health=1000 : Player.Energy=20 : Bob.Energy=20 : Player.Damage=50 : Bob.Damage=50 : Player.LastAction="None" : bob.LastAction="None" : Player.SpellDamage=30 : Bob.SpellDamage=30 : Player.EnergyRegeneration=1 : Bob.EnergyRegeneration=1 : Player.MaxHealth=700 : Bob.MaxHealth=1000 : Player.MaxEnergy=30 : Bob.MaxEnergy=30 : global Turn : Turn=1+rnd(1) : Oldturn=turn : bobtime=700
return
MainLoop:
do : cls : ink rgb(255,255,255),0 : box 0,10,200,20,rgb(155,155,155),0,rgb(155,155,155),0 : box 0,10,200*(Player.Health/Player.MaxHealth),20,rgb(0,255,0),0,rgb(0,255,0),0 : text 0,30,"^ YOUR HEALTH ("+str$(Player.Health)+"/"+str$(Player.MaxHealth)+")" : box 0,50,200,60,rgb(155,155,155),rgb(155,155,155),0,rgb(155,155,155) :box 0,50,200*(Player.Energy/Player.MaxEnergy),60,rgb(255,0,255),rgb(255,0,255),0,rgb(255,0,255) : text 0,80,"^ YOUR ENERGY ("+str$(Player.Energy)+"/"+str$(Player.MaxEnergy)+")" : Text 0,200,"Energy Regeneration: "+str$(Player.Energyregeneration) : text 0,220,"Damage: "+str$(Player.damage) : text 0,240,"Spell Bonus Damage: "+str$(Player.SpellDamage) : text 0,280,"TOTAL DAMAGE: "+str$(Player.Spelldamage+player.damage) :ink rgb(255,0,255),0 : text 0,320,"LAST ACTION: "+Player.LastAction
ink rgb(255,155,155),0 : box 640,10,640-200*(1),20,rgb(155,155,155),0,rgb(155,155,155),0 : box 640,10,640-200*(Bob.Health/Bob.MaxHealth),20,rgb(255,155,0),0,rgb(255,155,0),0 : text 640-text width("^ BOB'S HEALTH ("+str$(Bob.Health)+"/"+str$(Bob.MaxHealth)+")"),30,"^ BOB'S HEALTH ("+str$(Bob.Health)+"/"+str$(Bob.MaxHealth)+")" : box 640,50,640-200*(1),60,rgb(155,155,155),rgb(155,155,155),0,rgb(155,155,155) : box 640,50,640-200*(Bob.Energy/Bob.MaxEnergy),60,rgb(255,0,0),rgb(255,0,0),0,rgb(255,0,0) : text 640-text width("^ BOB'S ENERGY ("+str$(Bob.Energy)+"/"+str$(Bob.MaxEnergy)+")"),80,"^ BOB'S ENERGY ("+str$(Bob.Energy)+"/"+str$(Bob.MaxEnergy)+")" : Text 640-text width("Energy Regeneration: "+str$(Bob.Energyregeneration)),200,"Energy Regeneration: "+str$(Bob.Energyregeneration)
text 640-text width("Damage: "+str$(Bob.damage)),220,"Damage: "+str$(Bob.damage) : text 640-text width("Spell Bonus Damage: "+str$(Bob.SpellDamage)),240,"Spell Bonus Damage: "+str$(Bob.SpellDamage) : text 640-text width("TOTAL DAMAGE: "+str$(Bob.Spelldamage+Bob.damage)),280,"TOTAL DAMAGE: "+str$(Bob.Spelldamage+Bob.damage) : ink rgb(255,0,255),0 : text 640-text width("LAST ACTION: "+bob.LastAction),300,"LAST ACTION: "+bob.LastAction : ink rgb(0,255,0),0
 if TURN=1 : Turn$="YOUR": else : turn$="BOB'S" : ENDIF : CENTER TEXT SCREEN WIDTH()/2,400,"IT IS "+turn$+" TURN." : if Turn>2 : turn=1 : endif : IF Player.health<=0 : victory("BOB WINS!!!") : endif : IF Bob.Health<=0 : Victory("YOU WIN!!!") : endif : IF TURN=1 : Center TEXT SCREEN WIDTH()/2,420,"CONTROLS:" : if Player.energy<10 : Flag$="(NOT ENOUGH ENERGY)" : ELSE : FLAG$="" : ENDIF : Center Text Screen Width()/2,440,"1= Attack     2=Spell Attack "+FLAG$ : CENTER TEXT SCREEN WIDTH()/2,460,"3=Increase Damage     4=Increase Spell Damage     5=Increase Energy Regeneration"
 if keystate(2) : dec Bob.Health,Player.Damage : Player.LastAction="You Attacked Bob!" : endif : if keystate(3) and Player.energy>=10 : dec Bob.health,Player.SpellDamage+Player.Damage : Dec Player.Energy,10 : Player.LastAction="You Attacked Bob with a Spell-Enhanced Attack!": endif : if Keystate(4) : inc Player.Damage,45 : Player.LastAction="You Increased your damage by 45 points!" : endif
if keystate(5) : inc Player.spelldamage,50 : Player.LastAction="You Increased your SPELL damage by 50 points!" : endif : if Keystate(6) : inc Player.EnergyRegeneration,2 : Player.LastAction="You Increased your energy regeneration by 2 points!" : endif : if Scancode()>=2 and scancode()<=6 : IF Scancode()=3 and Player.Energy<10 : else : inc turn,1 : bobtime=700 : Bobaction=0 : endif : endif : endif : IF TURN=2 : if bobAction=0 and bobtime<400 : bobAction=1+rnd(4)
if bobaction>=3 and rnd(2)=0 : bobaction=1+rnd(1) : ENDIF : if bobAction=2 and bob.energy<10 : bobaction=1 : endif : if bobAction=1 : dec Player.Health,Bob.Damage : bob.LastAction="Bob Attacked You!" : endif : if bobaction=2 : dec Player.health,bob.damage+bob.spelldamage : bob.LastAction="Bob Attacked with a Spell-Enhanced Attack!" : dec Bob.Energy,10 : endif : if bobaction=3 : inc bob.damage,45 : bob.lastaction="Bob increased his damage by 45 points!" : endif : if bobaction=4 : inc bob.spelldamage,50 : bob.lastaction="Bob increased his SPELL damage by 35 points!" : endif : if bobaction=5 : inc bob.energyregeneration,2 : bob.lastaction="Bob increased his energy regeneration by 2 points!" : endif
endif : if bobtime<400 : center text screen width()/2,420,Bob.LastAction : endif : dec bobtime,3 : IF bobtime<0 : turn=1 : endif : ENDIF
If Player.health>Player.maxhealth : player.health=player.maxhealth : endif : if player.energy>player.maxenergy : player.energy=player.maxenergy : endif : If Bob.health>Bob.maxhealth : Bob.health=Bob.maxhealth : endif : if Bob.energy>Bob.maxenergy : Bob.energy=Bob.maxenergy : endif : IF TURN<>OldTurn : OldTurn=Turn : inc Player.energy,Player.EnergyRegeneration : inc bob.energy,bob.energyregeneration : endif : sync : loop : return
 function WaitKey() : while scancode()>0 : endwhile
endfunction : function Victory(n as string) : set text size 32 : waitkey() : while scancode()=0 : center text screen width()/2,screen height()/2,n : sync : endwhile : waitkey() : GOSUB SetVariables: GOsub MainLoop :  endfunction