DECLARE SUB haven ()
DECLARE SUB title2 ()
DECLARE SUB tree ()
DECLARE SUB title ()
DECLARE SUB trees ()
REM quest
CLS
COLOR 15
CALL title
stat1:
x = 12
y = 37
hp = 100
money = 500
level = 1
head = .6
torso = .4
headd = 10
torsod = 5
wpn$ = "Small Sword"
arm$ = "Leather Cloak"
DO
bob$ = INKEY$
LOCATE x, y
PRINT CHR$(1)
SELECT CASE bob$
CASE "8"
x = x - 1
CLS
CASE "2"
x = x + 1
CLS
CASE "4"
y = y - 1
CLS
CASE "6"
y = y + 1
CLS
CASE "9"
x = x - 1
y = y + 1
CLS
CASE "7"
x = x - 1
y = y - 1
CLS
CASE "1"
x = x + 1
y = y - 1
CLS
CASE "3"
x = x + 1
y = y + 1
CLS
CASE "5"
IF ysr > 0 THEN
IF hp > 80 THEN
LOCATE 1, 15
PRINT " you can't do this yet your health is too high"
SLEEP 2
END IF
IF help > 0 THEN
LOCATE 1, 15
PRINT "you try but you can't do it without a healing"
SLEEP 2
CLS
END IF
END IF
IF ysr > 0 THEN
IF hp < 81 THEN
IF help < 1 THEN
COLOR 14
LOCATE x, y
PRINT CHR$(2)
hp = hp + 20
help = help + 1
LOCATE 1, 15
SLEEP 1
END IF
END IF
END IF
CASE "."
vortex = vortex + 1
END SELECT
COLOR 15
LOCATE 5, 10
PRINT CHR$(5)
LOCATE 12, 50
PRINT CHR$(15)
LOCATE 23, 75
COLOR 14
PRINT CHR$(20)
COLOR 15
LOCATE 20, 15
PRINT CHR$(21)
LOCATE 14, 25
PRINT CHR$(4)
LOCATE 4, 50
PRINT "* Home Fort"
LOCATE 14, 60
PRINT "# healer hall"
LOCATE 1, 1
COLOR 4
PRINT " TROGDOR QUEST "
LOCATE 2, 1
PRINT " LEVEL:"; level; "HEALTH :"; hp; " "; CHR$(2); " MONEY :$"; money; " HOTKEYS: Q= quit H=help S=stats"
LOCATE 8, 30
COLOR 15
PRINT "#"
LOCATE 19, 45
PRINT "@"
LOCATE 12, 10
PRINT "# YE OLD SHOPPE"
IF vortex > 0 THEN
COLOR 27
LOCATE 23, 32
PRINT CHR$(16)
LOCATE 23, 33
PRINT CHR$(17)
END IF
COLOR 15
CALL tree
IF x = 24 THEN hp = hp - 1
IF x = 2 THEN x = x + 1
IF x = 25 THEN x = x - 1
IF y = 1 THEN y = y + 1
IF y = 80 THEN y = y - 1
RANDOMIZE TIMER
IF x = 12 AND y = 10 THEN
DO
CLS
PRINT "------------YE OLD SHOPPE--------------"
PRINT "YOU HAVE $"; money; " and your WEAPON:"; wpn$
PRINT "ARMOUR:"; arm$
PRINT "HEALTH"; hp; "hp"
PRINT "What will you buy?"
PRINT "lighter armour will increase your accuarcy, better weapon will increase you damage point and poitions will increase your hit points higher than normal"
PRINT "1. Lighter chain mail $1000.00"
PRINT "2. New armour (extra light armour) $2000.00 "
PRINT "3. Double edged long sword $2000.00"
PRINT "4. Elvish cleric ruin staff $3000.00"
PRINT "5. Lavashd potion(extra 50 hp) $150.00"
PRINT "6. Flurigd potion(extra 100hp) $200.00"
PRINT "7. Exit"
INPUT "what item number"; itm
IF itm = 1 THEN
IF a > 0 THEN
PRINT "you already have this item"
SLEEP 1
ELSEIF cc > 0 THEN
PRINT "this is worst than your present armour you do not want it"
SLEEP 2
ELSEIF itm = 1 AND money > 999 THEN
head = .4
torso = .2
money = money - 1000
arm$ = "Light Chain Mail"
a = a + 1
PRINT "good choice sire"
SLEEP 1
ELSEIF itm = 1 AND money < 1000 THEN
PRINT "you do not have enough money"
SLEEP 2
END IF
END IF
IF itm = 2 THEN
IF C > 0 THEN
PRINT "you already have this item"
SLEEP 1
ELSEIF itm = 2 AND money > 1999 THEN
head = .3
torso = .1
money = money - 2000
arm$ = "New Light Armour"
C = C + 1
cc = cc + 1
PRINT "good choice sire"
SLEEP 1
ELSEIF itm = 2 AND money < 2000 THEN
PRINT "you do not have enough money"
SLEEP 2
END IF
END IF
IF itm = 3 THEN
IF b > 0 THEN
PRINT "you already have this item"
SLEEP 1
ELSEIF ee > 0 THEN
PRINT "this is not better than your present weapon you do not want it"
SLEEP 2
ELSEIF itm = 3 AND money > 1999 THEN
headd = 20
torsod = 10
money = money - 2000
wpn$ = "Double Edge Long Sword"
b = b + 1
PRINT "good choice sire"
SLEEP 1
ELSEIF itm = 3 AND money < 2000 THEN
PRINT "you do not have enough money"
SLEEP 2
END IF
END IF
IF itm = 4 THEN
IF e > 0 THEN
PRINT "you already have this item"
SLEEP 1
ELSEIF itm = 4 AND money > 2999 THEN
headd = 40
torsod = 20
money = money - 3000
wpn$ = "Evish Cleric Ruin Staft"
e = e + 1
ee = ee + 1
PRINT "good choice sire"
SLEEP 1
ELSEIF itm = 4 AND money < 3000 THEN
PRINT "you do not have enough money"
SLEEP 2
END IF
END IF
IF itm = 5 AND money > 149 THEN
hp = 150
money = money - 150
PRINT "good choice sire"
SLEEP 1
PRINT "you drink it and..."
SLEEP 2
ELSEIF itm = 5 AND money < 150 THEN
PRINT "you do not have enough money"
SLEEP 2
END IF
IF itm = 6 AND money > 199 THEN
hp = 200
money = money - 200
PRINT "good choice sire"
SLEEP 1
PRINT "you drink it and..."
SLEEP 2
ELSEIF itm = 6 AND money < 200 THEN
PRINT "you do not have enough money"
SLEEP 2
END IF
IF itm = 7 THEN
PRINT "goodbye"
SLEEP 2
EXIT DO
END IF
LOOP
y = y - 1
CLS
END IF
IF x = 4 AND y = 50 THEN
CLS
PRINT " -----------WELCOME HOME---------------"
PRINT "The Game is Paused"
INPUT " would you like (E)xit ", nun$
nun$ = UCASE$(nun$)
IF nun$ = "E" THEN
y = y - 1
CLS
END IF
END IF
IF x = 14 AND y = 60 THEN
CLS
PRINT "--------------HEALER HALL-----------------"
PRINT "you have "; hp; "hp"
PRINT "you have $"; money; ".00"
PRINT " It is $100.00 for a total heal"
INPUT "do you want help Y/N"; heal$
heal$ = UCASE$(heal$)
IF heal$ = "Y" THEN
IF hp > 99 THEN
PRINT "you do not need this"
SLEEP 1
y = y - 1
GOTO 11
CLS
END IF
IF money < 100 THEN
CLS
PRINT "you do not have enough money"
SLEEP 1
PRINT "leave now"
SLEEP 1
y = y - 1
CLS
ELSEIF money > 99 THEN
PRINT "i can fix those wounds"
SLEEP 2
hp = 100
money = money - 100
help = help - 1
PRINT "there you go"
SLEEP 1
y = y - 1
CLS
END IF
ELSEIF heal$ = "N" THEN
PRINT "ok have a good day"
SLEEP 1
y = y - 1
11
CLS
END IF
END IF
IF x = 5 AND y = 10 THEN
CLS
COLOR 9
dgn = 15
PRINT "You Have Just Met A BABY DRAGON Face To Face What Will You Do"
g = g + 1
SLEEP 2
DO
CLS
PRINT "You're at"; hp; "hp"
PRINT "The DRAGON is at"; dgn; "hp"
PRINT "where will you strike the dragon"
INPUT "1. head 2. body 3. run"; strike
IF strike = 3 THEN
PRINT "wimp"
hp = hp - 5
SLEEP 1
EXIT DO
ELSEIF strike = 1 THEN
IF RND > head THEN
PRINT "you slashed him right in the side of the head"
SLEEP 1
dgn = dgn - headd
ELSE
PRINT "you missed"
hp = hp - 10
END IF
SLEEP 1
ELSEIF strike = 2 THEN
IF RND > torso THEN
PRINT " you stabbed him in the gut with fire and blood spewing out"
dgn = dgn - torsod
ELSE
PRINT "you missed"
hp = hp - 5
END IF
SLEEP 1
END IF
IF dgn < 1 THEN EXIT DO
IF hp < 1 THEN EXIT DO
LOOP
IF dgn < 1 THEN
PRINT "the dragon was gaurding a chest of gold it had $250 in it"
money = money + 250
level = level + .25
END IF
SLEEP 2
y = y - 1
CLS
END IF
IF x = 12 AND y = 50 THEN
CLS
COLOR 9
orc = 25
PRINT " You stumble into a gathering of ORCS"
h = h + 1
SLEEP 2
DO
CLS
PRINT "You're at"; hp; "hp"
PRINT "The ORCS is at"; orc; "hp"
PRINT "what will you do"
INPUT "1. slash couragiously into the pack 2. defend and stab 3. run"; strike
IF strike = 3 THEN
PRINT "wimp"
hp = hp - 5
SLEEP 1
EXIT DO
ELSEIF strike = 1 THEN
IF RND > head THEN
PRINT "you slash about cutting off limbs and heads, orc blood is everywhere but you were hurt"
SLEEP 2
orc = orc - headd
hp = hp - 5
ELSE
PRINT "your attack failed"
hp = hp - 30
END IF
SLEEP 1
ELSEIF strike = 2 THEN
IF RND > torso THEN
PRINT " you stabbed a couple and little harm harm came to you"
orc = orc - torsod
ELSE
PRINT "you stabbed but with no contact with you enemy"
hp = hp - 5
END IF
SLEEP 1
END IF
IF orc < 1 THEN EXIT DO
IF hp < 1 THEN EXIT DO
LOOP
IF orc < 1 THEN
PRINT "you won and some ran away you hear an orc cry in the distance"
PRINT "seems they were looting, they left $300.00"
money = money + 300
level = level + .5
END IF
SLEEP 3
y = y - 1
CLS
END IF
IF x = 20 AND y = 15 THEN
CLS
COLOR 9
spn = 30
PRINT "While wandering through ancient ruins you encounter a GIANT SERPENT"
i = i + 1
SLEEP 2
DO
CLS
PRINT "You're at"; hp; "hp"
PRINT "The SERPENT is at"; spn; "hp"
PRINT "where will you strike the SERPENT"
INPUT "1. head 2. body (if you can call it that) 3. run"; strike
IF strike = 3 THEN
PRINT "wimp"
hp = hp - 10
SLEEP 1
EXIT DO
ELSEIF strike = 1 THEN
IF RND > head THEN
PRINT "You hit him right between the eyes but he wipps you with his tail"
SLEEP 1
hp = hp - 10
spn = spn - headd
ELSE
PRINT "you missed"
hp = hp - 50
END IF
SLEEP 1
ELSEIF strike = 2 THEN
IF RND > torso THEN
PRINT " you slash him and a slimey red liquid squirts out"
spn = spn - torsod
ELSE
PRINT "you missed"
hp = hp - 20
END IF
SLEEP 1
END IF
IF spn < 1 THEN EXIT DO
IF hp < 1 THEN EXIT DO
LOOP
IF spn < 1 THEN
PRINT "you slay the snake and a secret door opens up with 500$ in it"
money = money + 500
level = level + 1
END IF
SLEEP 2
y = y - 1
CLS
END IF
IF x = 8 AND y = 30 THEN
CLS
COLOR 9
bsn = 20
PRINT "A BANSHEE attacks in a brutal rage"
j = j + 1
SLEEP 2
DO
CLS
PRINT "You're at"; hp; "hp"
PRINT "The BANSHEE is at"; bsn; "hp"
PRINT "where will you strike the BANSHEE"
INPUT "1. head 2. body 3. run"; strike
IF strike = 3 THEN
PRINT "wimp"
hp = hp - 10
SLEEP 1
EXIT DO
ELSEIF strike = 1 THEN
IF RND > head THEN
PRINT "You give her a powerful blow to the head and she flinches"
SLEEP 1
bsn = bsn - headd
ELSE
PRINT "you missed and she lets out a powerful cry"
hp = hp - 25
END IF
SLEEP 1
ELSEIF strike = 2 THEN
IF RND > torso THEN
PRINT " You run her through"
bsn = bsn - torsod
ELSE
PRINT "you missed and she attacks"
hp = hp - 10
END IF
SLEEP 1
END IF
IF bsn < 1 THEN EXIT DO
IF hp < 1 THEN EXIT DO
LOOP
IF bsn < 1 THEN
PRINT " You kill her and you rob her of her ancient jewels worth $300"
money = money + 300
level = level + .5
END IF
SLEEP 2
y = y - 1
CLS
END IF
IF x = 19 AND y = 45 THEN
CLS
COLOR 9
phnx = 70
PRINT "A BLACK FLAME PHOENIX appears int the sky"
k = k + 1
SLEEP 2
DO
CLS
PRINT "You're at"; hp; "hp"
PRINT "The PHOENIX is at"; phnx; "hp"
PRINT "Where will you strike the PHOENIX"
INPUT "1. The head and neck 2. the breast 3. run"; strike
IF strike = 3 THEN
PRINT "wimp"
hp = hp - 10
SLEEP 1
EXIT DO
ELSEIF strike = 1 THEN
IF RND > head THEN
PRINT "you gash the flaming bird and it lets out a screech"
SLEEP 1
phnx = phnx - headd
ELSE
PRINT " you missed and a fire ball engulfs you"
hp = hp - 50
END IF
SLEEP 1
ELSEIF strike = 2 THEN
IF RND > torso THEN
PRINT " The sword cuts through the body of flames"
phnx = phnx - torsod
ELSE
PRINT "you missed it scratches you"
hp = hp - 20
END IF
SLEEP 1
END IF
IF phnx < 1 THEN EXIT DO
IF hp < 1 THEN EXIT DO
LOOP
IF phnx < 1 THEN
PRINT " You kill it and it evaporates leaving behind a crimson jem worth $1000"
money = money + 1000
level = level + 1
ky = ky + 1
END IF
IF ky = 1 THEN
PRINT "The Mystical Beast left behind a gold key marked TROGDOR"
INPUT "press enter"; like
END IF
SLEEP 2
y = y - 1
CLS
END IF
IF x = 14 AND y = 25 THEN
CLS
COLOR 9
scr = 60
PRINT "You walk along when you come along an ornary old SORCERER"
l = l + 1
SLEEP 2
DO
CLS
PRINT "You're at"; hp; "hp"
PRINT "The SORCERER is at"; scr; "hp"
PRINT "Where will you strike the SORCERER"
INPUT "1. The head 2. Chest 3. run"; strike
IF strike = 3 THEN
PRINT "wimp"
hp = hp - 20
SLEEP 1
EXIT DO
ELSEIF strike = 1 THEN
IF RND > head THEN
PRINT " You smash him in the head and magicly the wound heals yet he weakens"
SLEEP 1
scr = scr - headd
ELSE
PRINT " You missed and a ball of blue energy rush toward you"
hp = hp - 35
END IF
SLEEP 1
ELSEIF strike = 2 THEN
IF RND > torso THEN
PRINT " you slash him with a powerful blow but it only weakens him"
scr = scr - torsod
ELSE
PRINT "you missed and he blows you back a few feet"
hp = hp - 20
END IF
SLEEP 1
END IF
IF scr < 1 THEN EXIT DO
IF hp < 1 THEN EXIT DO
LOOP
IF scr < 1 THEN
PRINT " He gets very weak and all of a sudden dissapears leaving $600"
money = money + 600
level = level + 1
END IF
SLEEP 2
y = y - 1
CLS
END IF
IF x = 23 AND y = 75 THEN
CLS
COLOR 9
IF level < 10 THEN
PRINT "you are not qualified to enter"
SLEEP 1
y = y - 1
CLS
ELSEIF ky < 1 THEN
PRINT "you need a key from the PHOENIX"
SLEEP 1
y = y - 1
CLS
ELSEIF level > 9.9 THEN
trg = 150
PRINT "Finaly you have reached your final counterpart"
PRINT "Its all or nothing NOW This is what you set out for"
PRINT "You have to rid the world of the menacing TROGDOR "
PRINT "TROGDOR is a powerful beast that has arms and brain of a human "
PRINT "but the body of a hundred year old powerful and wise DRAGON"
PRINT "and just think, you'll get some lady's too"
PRINT "are you ready?"
INPUT "Press enter"; num
DO
CLS
PRINT "You're at"; hp; "hp"
PRINT "TROGDOR is at"; trg; "hp"
PRINT "How will you attack TROGDOR"
INPUT "1. Go for the head couragiously 2. take a slash at the belly"; strike
IF strike = 1 THEN
IF RND > head THEN
PRINT " You bravely charge him in an anger and he takes a blow to the head"
SLEEP 1
trg = trg - headd
ELSE
PRINT " You missed "
END IF
SLEEP 1
IF RND > .5 THEN
PRINT "he sends a ball of fire spewing towards you"
hp = hp - 65
SLEEP 2
ELSE
PRINT "Trogdor did not land an attack"
SLEEP 1
END IF
ELSEIF strike = 2 THEN
IF RND > torso THEN
PRINT " you stab and it makes him angry"
trg = trg - torsod
SLEEP 2
ELSE
PRINT "you missed"
END IF
SLEEP 1
IF RND > .5 THEN
PRINT "his tail comes lashing forward"
hp = hp - 50
SLEEP 2
ELSEIF RND < .5 THEN
PRINT "Trogdor did not land an attack"
SLEEP 1
END IF
SLEEP 1
END IF
IF trg < 1 THEN EXIT DO
IF hp < 1 THEN EXIT DO
LOOP
IF hp < 1 THEN
PRINT "Sorry you lost but if you type in ` (beside 1) then you will gain $10000 "
PRINT "and the key so all you have to do is upgrade and go fight again"
INPUT "press enter", pass
y = y - 1
CLS
END IF
IF trg < 1 THEN
PRINT " Congratulation you have beat trogdors quest"
PRINT "and freed the world from his ruling"
PRINT "....."
SLEEP 1
PRINT " you return to home fort were you are greeted by women and children"
PRINT " throwing flowers and a statue is erected of you and you are "
PRINT " made a legend "
INPUT "press enter", enter
SLEEP 2
CLS
LOCATE 23, 5
PRINT " CREDITS "
SLEEP 1
PRINT " ---------------------------------------------------------------------"
SLEEP 1
PRINT " CREATOR "
SLEEP 1
PRINT " Tim Anema "
SLEEP 1
PRINT " HEAD 'SPECIAL' GAME TESTER"
SLEEP 1
PRINT " Dan Anema"
SLEEP 1
PRINT " ASSISTANT 'SPECIAL' GAME TESTER"
SLEEP 1
PRINT " Dan Anema "
SLEEP 1
PRINT " SPECIAL THANKS"
SLEEP 1
PRINT " The QBASIC programmer who I copied the moving smiley face"
SLEEP 1
PRINT " Andy Furlong for the trees"
PRINT
SLEEP 1
PRINT " CONGRATULATIONS "
PRINT " GOODBYE"
vortex = vortex + 1
INPUT "press enter", puny
INPUT "do you want to continue Y/N"; mom$
IF mom$ = "y" THEN
CLS
x = 23
y = 34
ELSE
y = y - 1
CLS
END
END IF
END IF
END IF
END IF
IF x = 9 AND y = 64 THEN
CLS
IF ab > 0 THEN
PRINT "you found an emty chest"
INPUT "press enter", fenter
y = y - 1
CLS
ELSE
PRINT " You found a chest full of money worth $1000"
money = money + 1000
INPUT "press enter", fenter
ab = ab + 1
y = y - 1
CLS
END IF
END IF
IF x = 18 AND y = 34 THEN
CLS
IF abc > 0 THEN
PRINT "there is a spot were somthing old use to be"
INPUT "press enter", fenter
y = y - 1
CLS
ELSE
PRINT " you stumble over a relic worth $1500"
money = money + 1500
INPUT "press enter", fenter
abc = abc + 1
y = y - 1
CLS
END IF
END IF
IF x = 15 AND y = 8 THEN
CLS
IF abcd > 0 THEN
PRINT "you find a emty purse"
INPUT "press enter", fenter
y = y - 1
CLS
ELSE
PRINT " you find a rich mans purse worth $500"
money = money + 500
INPUT "press enter", fenter
abcd = abcd + 1
y = y - 1
CLS
END IF
END IF
IF x = 8 AND y = 9 THEN
CLS
IF abcde > 0 THEN
PRINT " this is the spot found the scroll"
INPUT "press enter", fenter
y = y - 1
CLS
ELSE
PRINT " you find a Yasriv scroll now when you press 5 you will heal 20 hp"
PRINT " points but only once between healings"
ysr = ysr + 1
INPUT "press enter", fenter
abcde = abcde + 1
y = y - 1
CLS
END IF
END IF
IF x = 7 AND y = 42 THEN
CLS
IF abcdef > 0 THEN
PRINT "this is were you found that gold";
INPUT "press enter", fenter
y = y - 1
CLS
ELSE
PRINT " you stumble over a lump of gold worth $300"
money = money + 300
INPUT "press enter", fenter
abcdef = abcdef + 1
y = y - 1
CLS
END IF
END IF
IF vortex > 0 THEN
IF x = 23 AND y = 32 THEN
GOTO other:
END
END IF
END IF
IF bob$ = "h" THEN
CLS
COLOR 4
PRINT " HELP MENU"
PRINT "-------------------------------------------------------------------------------"
PRINT " Direction(controls):"
PRINT " use number pad"
PRINT " "; CHR$(24); " up num 8"
PRINT " "; CHR$(25); " down num 5"
PRINT " "; CHR$(26); " right num 6"
PRINT " "; CHR$(27); " left num 4"
PRINT " The TROGDOR key you need to get into his layer "
PRINT " "; CHR$(20); " is trogdor the final monster"
PRINT " you cannot enter until you are a level ten warrior"
PRINT " -And watch out if you go to low you will be sucked into the VORTEX"
PRINT " this will take away your life"
PRINT " -Running away from a fight may take away health also"
PRINT " -home fort is your home go there to pause the game"
PRINT
PRINT " INDEX"
IF g > 0 THEN
PRINT " "; CHR$(5); "= BABY DRAGON "
END IF
IF h > 0 THEN
PRINT " "; CHR$(15); "= ORCS"
END IF
IF i > 0 THEN
PRINT " "; CHR$(21); "= SERPENT"
END IF
IF j > 0 THEN
PRINT " #= BANSHEE"
END IF
IF k > 0 THEN
PRINT " @= BLACK FLAME PHOENIX"
END IF
IF l > 0 THEN
PRINT " "; CHR$(4); "= SORCERER"
END IF
INPUT "press enter to return to game", none
CLS
COLOR 15
END IF
IF bob$ = "s" THEN
CLS
COLOR 2
PRINT " STATISTICS"; CHR$(2)
PRINT "--------------------------------------------------------------------------------"
PRINT ""
PRINT " HEALTH"; hp; "hp"
PRINT " MONEY $"; money
PRINT " WEAPON:"; wpn$
PRINT " ARMOUR:"; arm$
PRINT " DAMAGE:"; headd; "per hit in the head"
PRINT " "; torsod; "per hit in the torso"
PRINT " ACCURACY"; head * 100; "% miss rate at the head"
PRINT " "; torso * 100; "% miss rate at the torso"
PRINT "--------------------------------------------------------------------------------"
INPUT "press enter to return to game", mon
COLOR 15
CLS
END IF
IF bob$ = "`" THEN
money = 10000
level = 10
ky = 1
END IF
IF hp < 1 THEN
LOCATE 12, 30
COLOR 4
PRINT "you are dead"
END
END IF
LOOP UNTIL bob$ = "q"
other:
CLS
IF bob$ = "q" THEN END
CALL title2
DO
num2:
IF vortex < 1 THEN END
CALL trees
bob2$ = INKEY$
LOCATE x, y
PRINT CHR$(1)
SELECT CASE bob2$
CASE "8"
x = x - 1
CLS
CASE "2"
x = x + 1
CLS
CASE "4"
y = y - 1
CLS
CASE "6"
y = y + 1
CLS
CASE "9"
x = x - 1
y = y + 1
CLS
CASE "7"
x = x - 1
y = y - 1
CLS
CASE "1"
x = x + 1
y = y - 1
CLS
CASE "3"
x = x + 1
y = y + 1
CLS
CASE "5"
IF scroll2 > 0 THEN GOTO 2
IF ysr > 0 THEN
IF hp > 80 THEN
LOCATE 1, 15
PRINT " you can't do this yet your health is too high"
SLEEP 2
END IF
IF help > 0 THEN
LOCATE 1, 15
PRINT "you try but you can't do it without a healing"
SLEEP 2
CLS
END IF
END IF
IF ysr > 0 THEN
IF hp < 81 THEN
IF help < 1 THEN
COLOR 14
LOCATE x, y
PRINT CHR$(2)
hp = hp + 20
help = help + 1
LOCATE 1, 15
SLEEP 1
END IF
END IF
END IF
2
IF hp > 100 THEN
LOCATE 1, 15
PRINT " you can't do this yet your health is too high"
SLEEP 2
END IF
IF help > 0 THEN
LOCATE 1, 15
PRINT "you try but you can't do it without a healing"
SLEEP 2
CLS
END IF
IF hp < 101 THEN
IF help < 1 THEN
COLOR 14
LOCATE x, y
PRINT CHR$(2)
hp = hp + 50
help = help + 1
LOCATE 1, 15
SLEEP 1
END IF
END IF
IF x = 2 THEN x = x + 1
IF x = 24 THEN x = x - 1
IF y = 1 THEN y = y + 1
IF y = 80 THEN y = y - 1
IF x = 23 AND y = 65 THEN y = y - 1
IF x = 22 AND y = 65 THEN y = y - 1
IF x = 21 AND y = 65 THEN y = y - 1
IF x = 21 AND y = 69 THEN y = y - 1
IF x = 21 AND y = 70 THEN x = x - 1
IF x = 21 AND y = 71 THEN x = x - 1
IF x = 21 AND y = 72 THEN x = x - 1
IF x = 21 AND y = 73 THEN x = x - 1
IF x = 21 AND y = 74 THEN x = x - 1
IF x = 21 AND y = 75 THEN x = x - 1
IF x = 21 AND y = 76 THEN x = x - 1
IF x = 21 AND y = 77 THEN x = x - 1
IF x = 21 AND y = 78 THEN x = x - 1
IF x = 21 AND y = 79 THEN x = x - 1
IF x = 14 AND y = 7 THEN
DO
CLS
PRINT "------------THE NEW SHOP--------------"
PRINT "YOU HAVE $"; money; " and your WEAPON:"; wpn$
PRINT "ARMOUR:"; arm$
PRINT "HEALTH"; hp; "hp"
PRINT "What will you buy?"
PRINT ""
PRINT "1. Light Snahin helmet $2000.00"
PRINT "2. Ancient ruin Cloak $4000.00 "
PRINT "3. Sting $4000.00"
PRINT "4. Sword of Umoun Kaffaa(Firey sword)$6000.00"
PRINT "5. Lavashd potion(extra 50 hp) $150.00"
PRINT "6. Flurigd potion(extra 100hp) $200.00"
PRINT "7. Exit"
INPUT "what item number"; itm
IF itm = 1 THEN
IF ah > 0 THEN
PRINT "you already have this item"
SLEEP 1
ELSEIF ccc > 0 THEN
PRINT "this is worst than your present armour you do not want it"
SLEEP 2
ELSEIF itm = 1 AND money > 1999 THEN
head = .2
torso = .1
money = money - 2000
arm$ = "Light Snahin helmet"
ah = ah + 1
PRINT "good choice sire"
SLEEP 1
ELSEIF itm = 1 AND money < 2000 THEN
PRINT "you do not have enough money"
SLEEP 2
END IF
END IF
IF itm = 2 THEN
IF ca > 0 THEN
PRINT "you already have this item"
SLEEP 1
ELSEIF itm = 2 AND money > 3999 THEN
head = 0
torso = 0
money = money - 4000
arm$ = "Ancient ruin Cloak"
ca = ca + 1
ccc = ccc + 1
PRINT "good choice sire"
SLEEP 1
ELSEIF itm = 2 AND money < 4000 THEN
PRINT "you do not have enough money"
SLEEP 2
END IF
END IF
IF itm = 3 THEN
IF bs > 0 THEN
PRINT "you already have this item"
SLEEP 1
ELSEIF eee > 0 THEN
PRINT "this is not better than your present weapon you do not want it"
SLEEP 2
ELSEIF itm = 3 AND money > 3999 THEN
headd = 75
torsod = 60
money = money - 4000
wpn$ = "Sting"
bs = bs + 1
PRINT "good choice sire"
SLEEP 1
ELSEIF itm = 3 AND money < 4000 THEN
PRINT "you do not have enough money"
SLEEP 2
END IF
END IF
IF itm = 4 THEN
IF ek > 0 THEN
PRINT "you already have this item"
SLEEP 1
ELSEIF itm = 4 AND money > 5999 THEN
headd = 90
torsod = 80
money = money - 6000
wpn$ = "Sword of Umoun Kaffaa"
ek = ek + 1
eee = eee + 1
PRINT "good choice sire"
SLEEP 1
ELSEIF itm = 4 AND money < 6000 THEN
PRINT "you do not have enough money"
SLEEP 2
END IF
END IF
IF itm = 5 AND money > 249 THEN
hp = 200
money = money - 250
PRINT "good choice sire"
SLEEP 1
PRINT "you drink it and..."
SLEEP 2
ELSEIF itm = 5 AND money < 250 THEN
PRINT "you do not have enough money"
SLEEP 2
END IF
IF itm = 6 AND money > 299 THEN
hp = 250
money = money - 300
PRINT "good choice sire"
SLEEP 1
PRINT "you drink it and..."
SLEEP 2
ELSEIF itm = 6 AND money < 300 THEN
PRINT "you do not have enough money"
SLEEP 2
END IF
IF itm = 7 THEN
PRINT "goodbye"
SLEEP 2
EXIT DO
END IF
LOOP
y = y - 1
CLS
END IF
IF x = 6 AND y = 61 THEN
CLS
PRINT "--------------HEALER HALL-----------------"
PRINT "you have "; hp; "hp"
PRINT "you have $"; money; ".00"
PRINT " It is $200.00 for a total heal"
INPUT "do you want help Y/N"; heal$
heal$ = UCASE$(heal$)
IF heal$ = "Y" THEN
IF hp > 99 THEN
PRINT "you do not need this"
SLEEP 1
y = y - 1
CLS
GOTO 12
END IF
IF money < 200 THEN
CLS
PRINT "you do not have enough money"
SLEEP 1
PRINT "leave now"
SLEEP 1
y = y - 1
CLS
ELSEIF money > 99 THEN
PRINT "i can fix those wounds"
SLEEP 2
hp = 150
money = money - 200
help = help - 1
PRINT "there you go"
SLEEP 1
y = y - 1
CLS
END IF
ELSEIF heal$ = "N" THEN
PRINT "ok have a good day"
SLEEP 1
y = y - 1
12
CLS
END IF
END IF
IF x = 8 AND y = 18 THEN
CLS
COLOR 9
enemy = 75
PRINT "you meet a cloaked dark figure but cannot see his face"
tink = tink + 1
SLEEP 2
DO
CLS
PRINT "You're at"; hp; "hp"
PRINT "the ENEMY is at"; enemy; "hp"
PRINT "How will you attack your ENEMY"
INPUT "1. Attack the head 2. take a slash at the gut 3. run"; strike
IF strike = 1 THEN
IF RND > head THEN
PRINT " He takes a slash in the side of the head"
SLEEP 1
enemy = enemy - headd
ELSE
PRINT " You missed "
END IF
SLEEP 1
IF RND > .4 THEN
PRINT "A force sends you flying back 2 feet"
hp = hp - 40
SLEEP 2
ELSE
PRINT "he did not land an attack"
SLEEP 1
END IF
ELSEIF strike = 2 THEN
IF RND > torso THEN
PRINT " you stab and a monsterous cry rolls out of him"
enemy = enemy - torsod
SLEEP 2
ELSE
PRINT "you missed"
END IF
SLEEP 1
IF RND > .3 THEN
PRINT "he stabs with a small sword"
hp = hp - 30
SLEEP 2
ELSE
PRINT "he did not land an attack"
SLEEP 1
END IF
SLEEP 1
ELSEIF strike = 3 THEN
PRINT "wimp"
SLEEP 1
hp = hp - 15
EXIT DO
y = y - 1
CLS
END IF
IF enemy < 1 THEN EXIT DO
IF hp < 1 THEN EXIT DO
LOOP
IF enemy < 1 THEN
PRINT " A Shreik is let out and a bag of money is left behind worth $450"
money = money + 450
level = level + .5
SLEEP 2
END IF
y = y - 1
CLS
END IF
IF x = 7 AND y = 45 THEN
CLS
COLOR 9
wizy = 85
PRINT "A powerful Wizard challenges your strength"
tink1 = tink1 + 1
SLEEP 2
DO
CLS
PRINT "You're at"; hp; "hp"
PRINT "the WIZARD is at"; wizy; "hp"
PRINT "How will you attack the WIZARD"
INPUT "1. Attack the head 2. hit his hands to unarm him 3. run"; strike
IF strike = 1 THEN
IF RND > head THEN
PRINT " you hit him and his hat fals off, he picks it up and readies"
SLEEP 1
wizy = wizy - headd
ELSE
PRINT " You missed "
END IF
SLEEP 1
IF RND > .4 THEN
PRINT "he sends a ball of blue energy flying at your head"
hp = hp - 40
SLEEP 2
ELSE
PRINT "he did not land an attack"
SLEEP 1
END IF
ELSEIF strike = 2 THEN
IF RND > torso THEN
PRINT " his staff falls out of his hand and he looks surprised"
wizy = wizy - torsod
SLEEP 2
ELSE
PRINT "you missed"
END IF
SLEEP 1
IF RND > .3 THEN
PRINT "he trust his hand forward and you fee the life sucked out of you"
hp = hp - 30
SLEEP 2
ELSE
PRINT "he did not land an attack"
SLEEP 1
END IF
SLEEP 1
ELSEIF strike = 3 THEN
PRINT "wimp"
SLEEP 1
hp = hp - 15
EXIT DO
y = y - 1
CLS
END IF
IF wizy < 1 THEN EXIT DO
IF hp < 1 THEN EXIT DO
LOOP
IF wizy < 1 THEN
PRINT " his staff is left behind and you sell it for 1000"
money = money + 1000
level = level + .5
SLEEP 2
END IF
y = y - 1
CLS
END IF
IF x = 12 AND y = 32 THEN
CLS
COLOR 9
tur = 80
PRINT "A Magic Turret blares its fusion at you"
tink2 = tink2 + 1
SLEEP 2
DO
CLS
PRINT "You're at"; hp; "hp"
PRINT "the TURRET is at"; tur; "hp"
PRINT "How will you attack the WIZARD"
INPUT "1. Barrel 2. Main unit 3. run"; strike
IF strike = 1 THEN
IF RND > head THEN
PRINT " you hit the barrel and sparks fly every where"
SLEEP 1
tur = tur - headd
ELSE
PRINT " You missed "
END IF
SLEEP 1
IF RND > .4 THEN
PRINT "A Rush of fusion"
hp = hp - 60
SLEEP 2
ELSE
PRINT "it did not land an attack"
SLEEP 1
END IF
ELSEIF strike = 2 THEN
IF RND > torso THEN
PRINT " sparks fly out and peices fly"
tur = tur - torsod
SLEEP 2
ELSE
PRINT "you missed"
END IF
SLEEP 1
IF RND > .3 THEN
PRINT "The canon send tons of tiny bullets flying towards you"
hp = hp - 40
SLEEP 2
ELSE
PRINT "it did not land an attack"
SLEEP 1
END IF
SLEEP 1
ELSEIF strike = 3 THEN
PRINT "wimp"
SLEEP 1
hp = hp - 15
EXIT DO
y = y - 1
CLS
END IF
IF tur < 1 THEN EXIT DO
IF hp < 1 THEN EXIT DO
LOOP
IF tur < 1 THEN
PRINT " you steal the crystal controling the canon and you sell it for 1500"
money = money + 1500
level = level + 1
SLEEP 2
END IF
y = y - 1
CLS
END IF
IF x = 11 AND y = 64 THEN
CLS
COLOR 9
zs = 90
PRINT " A ZOMBIE SAMURI attacks with rage"
tink3 = tink3 + 1
SLEEP 2
DO
CLS
PRINT "You're at"; hp; "hp"
PRINT "the ZOMBIE SAMURI is at"; zs; "hp"
PRINT "How will you attack the SAMURI"
INPUT "1. Cut off his head 2. Slash a limb off 3. run"; strike
IF strike = 1 THEN
IF RND > head THEN
PRINT " You cut his head of but he only weakens and puts it back on"
SLEEP 1
zs = zs - headd
ELSE
PRINT " You missed "
END IF
SLEEP 1
IF RND > .3 THEN
PRINT " He cuts you with his blade"
hp = hp - 70
SLEEP 2
ELSE
PRINT "he did not land an attack"
SLEEP 1
END IF
ELSEIF strike = 2 THEN
IF RND > torso THEN
PRINT " you cut off his arm and he crys out in anger"
zs = zs - torsod
SLEEP 2
ELSE
PRINT "you missed"
END IF
SLEEP 1
IF RND > .2 THEN
PRINT " many tiny nija stars come fying at you"
hp = hp - 50
SLEEP 2
ELSE
PRINT "he did not land an attack"
SLEEP 1
END IF
SLEEP 1
ELSEIF strike = 3 THEN
PRINT "wimp"
SLEEP 1
hp = hp - 15
EXIT DO
y = y - 1
CLS
END IF
IF zs < 1 THEN EXIT DO
IF hp < 1 THEN EXIT DO
LOOP
IF zs < 1 THEN
PRINT " you sell his sword for $900"
money = money + 900
level = level + 1
SLEEP 2
END IF
y = y - 1
CLS
END IF
IF x = 20 AND y = 12 THEN
CLS
COLOR 9
et = 100
PRINT " An angry ENT attacks"
tink4 = tink4 + 1
SLEEP 2
DO
CLS
PRINT "You're at"; hp; "hp"
PRINT "the ENT is at"; et; "hp"
PRINT "How will you attack the ENT"
INPUT "1. Go for the top 2. Go for the bottom 3. run"; strike
IF strike = 1 THEN
IF RND > head THEN
PRINT " You hack but it only makes him mad"
SLEEP 1
et = et - headd
ELSE
PRINT " You missed "
END IF
SLEEP 1
IF RND > .3 THEN
PRINT " He smashes you with a branch"
hp = hp - 70
SLEEP 2
ELSE
PRINT "he did not land an attack"
SLEEP 1
END IF
ELSEIF strike = 2 THEN
IF RND > torso THEN
PRINT " you take a chunk out of the trunk"
et = et - torsod
SLEEP 2
ELSE
PRINT "you missed"
END IF
SLEEP 1
IF RND > .2 THEN
PRINT " a root hits you from behind"
hp = hp - 50
SLEEP 2
ELSE
PRINT "he did not land an attack"
SLEEP 1
END IF
SLEEP 1
ELSEIF strike = 3 THEN
PRINT "wimp"
SLEEP 1
hp = hp - 15
EXIT DO
y = y - 1
CLS
END IF
IF et < 1 THEN EXIT DO
IF hp < 1 THEN EXIT DO
LOOP
IF et < 1 THEN
PRINT " there was a chest he was gaurding with $1000"
money = money + 1000
level = level + 1
SLEEP 2
END IF
y = y - 1
CLS
END IF
IF x = 17 AND y = 56 THEN
CLS
COLOR 9
ew = 85
PRINT " You feel a rumble under your feet and then it attacks"
tink5 = tink5 + 1
SLEEP 2
DO
CLS
PRINT "You're at"; hp; "hp"
PRINT "It is at"; ew; "hp"
PRINT "How will you attack it"
INPUT "1. stab into the ground 2. wait till it attack then hit it 3. run"; strike
IF strike = 1 THEN
IF RND > head THEN
PRINT " you hear a raor come from below you"
SLEEP 1
ew = ew - headd
ELSE
PRINT " You missed "
END IF
SLEEP 1
IF RND > .4 THEN
PRINT " a worm like head come up in a flash and broadsides you"
hp = hp - 60
SLEEP 2
ELSE
PRINT "It did not land an attack"
SLEEP 1
END IF
ELSEIF strike = 2 THEN
IF RND > torso THEN
PRINT " It comes up and you slash it in the head"
ew = ew - torsod
SLEEP 2
ELSE
PRINT "you missed"
END IF
SLEEP 1
IF RND > .3 THEN
PRINT " a tail hits you from behind"
hp = hp - 30
SLEEP 2
ELSE
PRINT "It did not land an attack"
SLEEP 1
END IF
SLEEP 1
ELSEIF strike = 3 THEN
PRINT "wimp"
SLEEP 1
hp = hp - 10
EXIT DO
y = y - 1
CLS
END IF
IF ew < 1 THEN EXIT DO
IF hp < 1 THEN EXIT DO
LOOP
IF ew < 1 THEN
PRINT " a chest appears and the content worth $700"
money = money + 700
level = level + .5
SLEEP 2
END IF
y = y - 1
CLS
END IF
IF x = 19 AND y = 35 THEN
CLS
COLOR 9
cross = 110
PRINT " you see a cross but the dead bodie starts to glow and rise from its"
PRINT "resting place then attack"
tink6 = tink6 + 1
SLEEP 3
DO
CLS
PRINT "You're at"; hp; "hp"
PRINT "the POWERFUL UNDEAD is at"; cross; "hp"
PRINT "How will you attack the Zombie"
INPUT "1. go for the head 2. Go for torso 3. run"; strike
IF strike = 1 THEN
IF RND > head THEN
PRINT " you make a gash but no blood appears"
SLEEP 1
cross = cross - headd
ELSE
PRINT " You missed "
END IF
SLEEP 1
IF RND > .3 THEN
PRINT " Beams flow from his eyes and hit you "
hp = hp - 80
SLEEP 2
ELSE
PRINT "he did not land an attack"
SLEEP 1
END IF
ELSEIF strike = 2 THEN
IF RND > torso THEN
PRINT " your weapon peirces his side"
cross = cross - torsod
SLEEP 2
ELSE
PRINT "you missed"
END IF
SLEEP 1
IF RND > .2 THEN
PRINT " a shock go's up your spine with your life force being sucked"
hp = hp - 60
SLEEP 2
ELSE
PRINT "he did not land an attack"
SLEEP 1
END IF
SLEEP 1
ELSEIF strike = 3 THEN
PRINT "wimp"
SLEEP 1
hp = hp - 15
EXIT DO
y = y - 1
CLS
END IF
IF cross < 1 THEN EXIT DO
IF hp < 1 THEN EXIT DO
LOOP
IF cross < 1 THEN
PRINT " the crest he wears sold worth $1500"
money = money + 1500
level = level + 2
ky2 = ky2 + 1
SLEEP 2
END IF
y = y - 1
CLS
END IF
IF x = 23 AND y = 75 THEN
CLS
COLOR 9
IF level < 20 THEN
PRINT "you are not qualified to enter"
SLEEP 1
y = y - 1
CLS
ELSEIF ky2 < 1 THEN
PRINT "you need a key from the POWERFUL UNDEAD"
SLEEP 1
y = y - 1
CLS
ELSEIF level > 19.9 THEN
sclr = 150
PRINT "Finaly you have reached your final counterpart"
PRINT "Its all or nothing NOW This is what you set out for"
PRINT " SCLARION is the worlds most evil and powerful being"
PRINT " He is a human form 7 foot high dementation of nature"
PRINT "are you ready?"
INPUT "Press enter"; num
DO
CLS
PRINT "You're at"; hp; "hp"
PRINT "SCLARION is at"; sclr; "hp"
PRINT "How will you attack SCLARION"
INPUT "1. Go for the head couragiously 2. take a slash at the torso"; strike
IF strike = 1 THEN
IF RND > head THEN
PRINT " You bravely charge him in an anger and he takes a blow to the head"
SLEEP 1
sclr = sclr - headd
ELSE
PRINT " You missed "
END IF
SLEEP 1
END IF
IF strike = 2 THEN
IF RND > torso THEN
PRINT " you stab and it makes him angry"
sclr = sclr - torsod
SLEEP 2
ELSE
PRINT "you missed"
END IF
SLEEP 1
IF RND > .5 THEN
IF RND > .5 THEN
PRINT "He strikes you with his mase"
hp = hp - headd
SLEEP 2
ELSE
PRINT " he did not land an attack"
SLEEP 2
END IF
END IF
IF RND < .5 THEN
IF RND > .5 THEN
PRINT "his sword slices your torso"
hp = hp - torsod
SLEEP 2
ELSE
PRINT "he did not land an attack "
SLEEP 2
END IF
END IF
END IF
IF trg < 1 THEN EXIT DO
IF hp < 1 THEN EXIT DO
LOOP
IF hp < 1 THEN
PRINT "Sorry you lost but if you type in ` (beside 1) then you will gain $15000 "
PRINT "and the key so all you have to do is upgrade and go fight again but only in this level"
INPUT "press enter", pass
y = y - 1
CLS
END IF
IF trg < 1 THEN
PRINT " Congratulation you have beat SCLARION"
PRINT "and freed the world from his ruling"
PRINT "....."
SLEEP 1
PRINT " you return to home fort were you are greeted by women and children"
PRINT " throwing flowers and a statue is erected of you and you are "
PRINT " made a legend "
INPUT "press enter", enter
SLEEP 2
CLS
LOCATE 23, 5
PRINT " CREDITS "
SLEEP 1
PRINT " ---------------------------------------------------------------------"
SLEEP 1
PRINT " CREATOR "
SLEEP 1
PRINT " Tim Anema "
SLEEP 1
PRINT " HEAD 'SPECIAL' GAME TESTER"
SLEEP 1
PRINT " Dan Anema"
SLEEP 1
PRINT " ASSISTANT 'SPECIAL' GAME TESTER"
SLEEP 1
PRINT " Dan Anema "
SLEEP 1
PRINT " SPECIAL THANKS"
SLEEP 1
PRINT " The QBASIC programmer who I copied the moving smiley face"
SLEEP 1
PRINT " Andy Furlong for the trees"
PRINT
SLEEP 1
PRINT " CONGRATULATIONS "
PRINT " GOODBYE"
INPUT "press enter", puny
y = y - 1
CLS
CALL haven:
END
END IF
END IF
END IF
IF x = 14 AND y = 41 THEN
CLS
IF scroll2 > 0 THEN
PRINT " this is the spot found the scroll"
INPUT "press enter", fenter
y = y - 1
CLS
ELSE
PRINT " you find a Varsily scroll now when you press 5 you will heal 50 hp"
PRINT " points but only once between healings"
scrl2 = scrl2 + 1
INPUT "press enter", fenter
scroll2 = scroll2 + 1
y = y - 1
CLS
END IF
END IF
IF bob2$ = "h" THEN
CLS
COLOR 2
PRINT " HELP MENU"
PRINT "-------------------------------------------------------------------------------"
PRINT " Direction(controls):"
PRINT " use number pad"
PRINT " "; CHR$(24); " up num 8"
PRINT " "; CHR$(25); " down num 5"
PRINT " "; CHR$(26); " right num 6"
PRINT " "; CHR$(27); " left num 4"
PRINT " The SCLARION key: you need this to get into his layer "
PRINT " "; CHR$(20); " is SCLARION the final duel"
PRINT " you cannot enter until you are a level 20 warrior"
PRINT " -Running away from a fight may take away health also"
PRINT
PRINT " INDEX"
IF tink > 0 THEN
PRINT " "; CHR$(225); " = The Cloaked figure"
END IF
IF tink1 > 0 THEN
PRINT " "; CHR$(173); " = The WIZARD"
END IF
IF tink2 > 0 THEN
PRINT " "; CHR$(207); " = The CANON"
END IF
IF tink3 > 0 THEN
PRINT " "; CHR$(145); " = ZOMBIE SAMURI"
END IF
IF tink4 > 0 THEN
PRINT " "; CHR$(190); " = ENT"
END IF
IF tink5 > 0 THEN
PRINT " "; CHR$(168); " = WORM"
END IF
IF tink6 > 0 THEN
PRINT " "; CHR$(197); " = POWERFUL UNDEAD"
END IF
INPUT "press enter to return to game", helpenter
CLS
END IF
IF bob2$ = "s" THEN
CLS
COLOR 2
PRINT " STATISTICS"; CHR$(2)
PRINT "--------------------------------------------------------------------------------"
PRINT ""
PRINT " HEALTH"; hp; "hp"
PRINT " MONEY $"; money
PRINT " WEAPON:"; wpn$
PRINT " ARMOUR:"; arm$
PRINT " DAMAGE:"; headd; "per hit in the head"
PRINT " "; torsod; "per hit in the torso"
PRINT " ACCURACY"; head * 100; "% miss rate at the head"
PRINT " "; torso * 100; "% miss rate at the torso"
PRINT "--------------------------------------------------------------------------------"
INPUT "press enter to return to game", mon
COLOR 15
CLS
END IF
IF bob2$ = "`" THEN
money = 15000
level = 20
ky2 = 1
END IF
IF hp < 1 THEN
LOCATE 12, 30
COLOR 4
PRINT "you are dead"
END
END IF
LOOP UNTIL bob2$ = "q"
END
SUB haven
CLS
COLOR 14
FOR num = 12 TO 2 STEP -1
PRINT " "; CHR$(186), CHR$(186)
LOCATE num, 1
PRINT " "; CHR$(2)
SLEEP 1
CLS
NEXT num
LOCATE 1, 1
PRINT " "; CHR$(186); " "; CHR$(2); " "; CHR$(186)
SLEEP 1
CLS
PRINT " "; CHR$(186), CHR$(186)
END SUB
SUB title
COLOR 9
PRINT "P M D Entertainment"
SLEEP 2
CLS
PRINT "PURPLE MUNKEY DISHWASHER Entertainment"
SLEEP 2
CLS
PRINT "In assosiation with Tim Anema"
SLEEP 2
CLS
PRINT "Presents"
SLEEP 1
CLS
PRINT " THE QUEST "
SLEEP 1
PRINT " You are a boy, in a world of fantasy, with wizards and Dragons "
PRINT "this once peaceful world is now threatened by a powerful force"
PRINT " a wise old dragon with the brain of a human and the brain is evil"
PRINT " you set out to destroy him but if you don't the world is doomed "
PRINT "you are our last hope"
PRINT
PRINT CHR$(20); " is TROGDOR you may not enter unless you are a level 10 warrior "
PRINT "and have obtained a key from one of the beasts you will encounter"
PRINT
PRINT "I sugest that you obtain upgrades to your weapons and armour before fighting"
PRINT "him. If not you will be crushed"
PRINT
PRINT "you will gain money and level points with every battle won"
PRINT " are you ready?"
PRINT
PRINT "the higher their hp points, the harder they are to beat remember that"
PRINT
PRINT "there is also spots in the forests with prizes like money and even a scroll"
PRINT " to heal yourself"
PRINT
INPUT "press enter", press
CLS
END SUB
SUB title2
COLOR 4
PRINT " SCLARION QUEST"
PRINT
PRINT " you step into a vortex sweeping you into another dimention"
PRINT " you here a faint voice saying help us, save us from the dreaded SCLARION"
PRINT " you must and if you do we will send you to a hevenly dimention with"
PRINT " women and an abundance of ale until you die "
PRINT " if you don't succeed, well you won't be alive for what we will do to you"
PRINT
INPUT " press enter", ent