[start]
print "Hello, mighty adventurer."
print "You reside in the land of Baron."
print "You can:"
print "Buy new weapons,"
print "But great armour,"
print "Heal up fully in the tent, "
print "Bet in the casino,"
print "Fight in the forest,"
print "Or use the notepad"
damage = 10
health = 1000
money = 500
defense = 0
[town]
print "You're in the main part of Baron."
print "You have "; money ;" money."
print "Your defense is "; defense ; "."
print "Your health is "; health;"."
print "Your damage amount is " ;damage; "."
print "Do you want to bet some money? (b)"
print "Fight other monsters (f)"
print "Heal in the tent (h)"
print "Buy some armour (a)"
print "Use the note pad (n) or"
input "Buy some new weapons? (w)"; action$
if action$ = "b" then goto [bet]
if action$ = "f" then goto [fight]
if action$ = "h" then goto [heal]
if action$ = "w" then goto [weapon]
if action$ = "n" then goto [notepad]
if action$ = "a" then goto [armour]
goto [nothing]
[nothing]
print "Get up lazy warrior, you have to do something. Press Enter to return to the town."
goto [town]
[bet]
cls
chance = int(rnd(1)*100)+1
print "Welcome to the casino of Baron. Here you can make a fortune by betting some money."
print "But have have to bet atleast $20"
print "You have "; money;" money.";
input "How much do you want to bet?"; bet
if bet = 0 then goto [bettoolow]
if bet < 20 then goto [bettoolow]
if bet > money then goto [bettoohigh]
money = money - bet
win = bet * 2
if chance > 30 then goto [betwon]
if chance < 30 then goto [betlost]
cls
[betwon]
cls
money = money + win
print "You have won!"
print "Press Enter to return to the town of Baron.";
input "Press Y to bet again."; return4$
if return4$ = "Y" then goto [bet]
goto [town]
[bettoohigh]
cls
input "You have bet more then the money you have. Press enter to return to the casino. Or press T to return to the town."; return1$
if return1$ = "T" then goto [town]
goto [bet]
[bettoolow]
cls
print "You have bet too low. You must bet atleast $20. Press enter to return to the casino."
input "Or press T to return to the town."; return2$
if return2$ = "T" then goto [town]
goto [bet]
[betlost]
cls
if chance < 50 then money = money - win
print "You lost";
print "Press Enter to return to the city.";
input "Press Y to bet again."; return3$
if return3$ = "Y" goto [bet]

goto [town]
[heal]
cls
print "Welcome to the camp site young warrior. In the tent here you can rest and be fully healed for a small price."
print "Your current health is" ;health
input "For just $20 you will be fully healed. (type y)"; heal$
if heal$ = "y" then goto [healed]
goto [town]
[healed]
cls
money = money - 20
health = 100
print "You have been fully healed. Press enter to go to the town."
print "Your health now is:" ;health
goto [town]
[weapon]
cls
print "Welcome to the weapon shop. Here you can buy more weapons to increase the damage you do."
print "Right now, your damage is:" ;damage
print "And you have:" ;money; "money."
print "Sword 1 (15 damage) costs $100."
print "Sword 2 (25 damage) costs $150."
print "Sword 3 (35 damage) costs $200."
print "Sword 4, (45 damage) costs $300"
print "Sword 5 (60 damage) costs $450."
input "Which sword do you want to buy? (type 1,2,3,4,5 for each sword or 0 to leave)"; buy$
cls
if buy$ = "1" goto [sword1]
if buy$ = "2" goto [sword2]
if buy$ = "3" goto [sword3]
if buy$ = "4" goto [sword4]
if buy$ = "5" goto [sword5]
if buy$ = "0" goto [town]
[sword1]
cls
if money < 100 goto [nomoney]
money = money - 100
damage = 15
print "You've bought Sword One."
print "Press enter to return to the town.";
goto [town]

[sword2]
cls
if money < 150 goto [nomoney]
money = money - 150
damage = 25
print "You've bought Sword Two."
print "Press enter to return to the town."
goto [town]

[sword3]
cls
if money < 200 goto [nomoney]
money = money - 200
damage = 35
print "You've bought Sword Three."
print "Press enter to return to the town."
goto [town]

[sword4]
cls
if money < 300 goto [nomoney]
money = money - 300
damage = 45
print "You've bought Sword Four."
print "Press enter to return to the town."
goto [town]

[sword5]
cls
if money < 450 goto [nomoney]
money = money - 450
damage = 60
print "You've bought Sword Five."
print "Press enter to return to the town."
goto [town]

[nomoney]
cls
print "You do not have enough money. Press enter to return to the town."
goto [town]
[fight]
cls
demonhealth = 250
encounter = int(rnd(1)*100)+1
demondamage = 150
runchance = int(rnd(1)*100)+1
print "Welcome"
input "Enter to continue or Y to enter town."; fight$
if fight$ = "Y" then goto [town]
goto [demon]
[demon]
cls
print "Demon appeared"
print "Your health: " ;health
print "His health: " ;demonhealth
input "Press R to run or A to attack"; ar$
if ar$ = "A" then goto [demonattack]
if ar$ = "R" then goto [demonrun]
[demonattack]
cls
print "You attack him and so does he."
demonhealth = demonhealth - damage
health = health - demondamage
if demonhealth < 1 then goto [triumph]
if health < 1 then goto [failure]
if health < 150 then Notice "In the next turn, the demon can kill you. I would suggest trying to run."
goto [demon]
[demonrun]
cls
if runchance < 30 then goto [demonrunsuccess]
if runchance > 30 then Notice "Failed to run"
health = health - demondamage
goto [demon]
[demonrunsuccess]
Notice "You were able to run away"
goto [town]
[triumph]
cls
print "You have defeated the demon! You have gained $40 and 50 health. Press enter to return to the town."
money = money + 40
health = health + 30
goto [town]
[failure]
Notice "You have lost. The demon defeated you. Press OK to go to the town and the healing tent."
goto [heal]
[notepad]
cls
dim hey$(100)
[ask]
input "Entry " ;meow + 1; ":"; entry$
if entry$ = "0" then goto [ans]
meow = meow + 1
hey$(meow) = entry$
if meow = 100 then goto [ans]
goto [ask]
[ans]
if meow = 0 then goto [quit]
wee = meow
meow = 0
goto [ent]
[ent]
meow = meow + 1
print "Entry " ;meow; " is: " ;hey$(meow)
if meow < wee then goto [ent]
goto [quit]
[quit]
input "Press Enter to go to the notepad again or T to go to the town."; lll$
if lll$ = "T" then goto [town]
goto [notepad]
[armour]
cls
print "Welcome to the Armour shop. Here you can buy more Armour to increase your defense."
print "Right now, your damage is:" ;damage
print "And you have:" ;money; "money."
print "Armour 1 (15 defense) costs $100."
print "Armour 2 (25 defense) costs $150."
print "Armour 3 (30 defense) costs $200."
print "Armour 4,(35 defense) costs $300"
print "Armour 5 (40 defense) costs $450."
input "Which sword do you want to buy? (type 1,2,3,4,5 for each armour or press Enter to leave)"; arm$
cls
if arm$ = "1" goto [arm1]
if arm$ = "2" goto [arm2]
if arm$ = "3" goto [arm3]
if arm$ = "4" goto [arm4]
if arm$ = "5" goto [arm5]
goto [town]
[arm1]
cls
if money < 100 goto [nomoney]
money = money - 100
defense = 15
print "You've bought Armour One."
print "Press enter to return to the town.";
goto [town]

[arm2]
cls
if money < 150 goto [nomoney]
money = money - 150
defense = 25
print "You've bought Armour Two."
print "Press enter to return to the town."
goto [town]

[arm3]
cls
if money < 200 goto [nomoney]
money = money - 200
defense = 30
print "You've bought Armour Three."
print "Press enter to return to the town."
goto [town]

[arm4]
cls
if money < 300 goto [nomoney]
money = money - 300
defense = 35
print "You've bought Armour Four."
print "Press enter to return to the town."
goto [town]

[arm5]
cls
if money < 450 goto [nomoney]
money = money - 450
defense = 40
print "You've bought Armour Five."
print "Press enter to return to the town."
goto [town]
end