I had my internet and cable shut off for some time... gah!
but I made this text adventure out of boredom.
mainmenu:
cls
set text size 15
set text font "courier"
text 250, 100, "MAIN MENU"
text 225, 420, "Version: Pre-Alpha 4.4"
text 250, 200, "[1] New game"
text 250, 220, "[2] Load Game"
text 250, 240, "[3] Exit Game"
text 200, 440, "Copyright (C)2011 Corbin Stark"
text 185, 460, "REPORT BUGS TO DARKZOMBIES@YAHOO.COM"
input "I Choose: ";inputm$
if inputm$ = "1" then gosub optionsm
if inputm$ = "2" then gosub loadm
if inputm$ = "3" then end
if inputm$ = "admin" then gosub AC else goto mainmenu
AC:
cls
text 250, 100, "ADMIN CODE!"
text 250, 200, "[1] Leave"
input "I Choose: ";inputa$
if inputa$ = "235203" then goto reward else goto AC
if inputa$ = "1" then goto mainmenu
reward:
adminmode=1
print "CODE ACCEPTED, MAX STATS DISTRUBUTED!"
wait 5000
goto mainmenu
loadm:
open to read 1, "Saves\save.dat"
read long 1, health
read long 1, maxhealth
read long 1, mana
read long 1, maxmana
read long 1, monhealth
read long 1, maxmonhealth
read long 1, monmana
read long 1, maxmonmana
read long 1, potion
read long 1, att
read long 1, def
read long 1, dmg
read long 1, defd
read long 1, mondeath
read long 1, expe
read long 1, gold
read long 1, goldm
read long 1, lever
read long 1, md
read long 1, easy
read long 1, normal
read long 1, hard
read long 1, tflag1
read long 1, tflag2
read long 1, tflag3
read long 1, tflag4
read long 1, tflag5
close file 1
if tflag1=1 then gosub t1
if tflag2=1 then gosub t2
if tflag3=1 then gosub t3
if tflag4=1 then gosub t4
if tflag5=1 then gosub t5
optionsm:
cls
set text size 15
set text font "courier"
text 250, 100, "DIFFICULTY"
text 250, 200, "[1] EASY"
text 250, 220, "[2] NORMAL"
text 250, 240, "[3] HARD"
input "I Choose: ";inputmo$
if inputmo$ = "1" then gosub easy
if inputmo$ = "2" then gosub normal
if inputmo$ = "3" then gosub hard
easy:
easy=1
print "EASY!"
wait 2500
goto start
wait 2000
normal:
normal=1
print "NORMAL."
wait 2500
goto start
hard:
hard=1
print "HARD!!"
wait 2500
goto start
wait 2000
start:
wait 0500
if easy=1 then global health=125
if normal=1 then global health=100
if hard=1 then global health=85
if adminmode=1 then global health=10000
if easy=1 then global maxhealth=125
if normal=1 then global maxhealth=100
if hard=1 then global maxhealth=85
if adminmode=1 then global maxhealth=10000
if easy=1 then global mana=125
if normal=1 then global mana=100
if hard=1 then global mana=85
if adminmode=1 then global mana=10000
if easy=1 then global maxmana=125
if normal=1 then global maxmana=100
if hard=1 then global maxmana=85
if adminmode=1 then global maxmana=10000
if easy=1 then global monhealth=85
if normal=1 then global monhealth=100
if hard=1 then global monhealth=125
if easy=1 then global maxmonhealth=85
if normal=1 then global maxmonhealth=100
if hard=1 then global maxmonhealth=125
global monmana=100
global maxmonmana=100
global potion=3
if adminmode=1 then global potion=10
global att=20
if adminmode=1 then global att=10000
global def=14
if adminmode=1 then global def=10000
global dmg=0
global defd=0
global mondeath=1
global expe=0
global expm=0
global gold=0
global goldm=0
global lever=0
global md=0
global mdm=0
global fbs$="FIREBALL"
global tss$="THUNDERSHOCK"
global wbs$="WATERBOLT"
global css$="CLEAVE"
global wws$="WHIRLWIND"
global sbs$="SPIKED BLADE"
global spellcount$=" "
global scfb=0
global scts=0
global scwb=0
global tflag1=0
global tflag2=0
global tflag3=0
global tflag4=0
global tflag5=0
goto main
gosub functions
main:
cls
set text size 15
set text font "courier"
text 250, 100, "Mistwood Town"
text 250, 200, "[1] Go To The Crossroads"
text 250, 220, "[2] Go To Shop"
text 250, 240, "[3] Go Home (Save/Exit)"
ink rgb(255, 255, 0),rgb(255, 255, 0)
text 215, 260, "Description: A poor but vibrant town."
text 225, 270, "Also your home."
ink rgb(255,255,255),rgb(255,255,255)
input "I Choose: ";input$
if input$ = "1" then gosub crossroads
if input$ = "2" then gosub mistshop
if input$ = "3" then gosub home else goto main
crossroads:
cls
set text size 15
set text font "courier"
text 250, 100, "Crossroads"
text 250, 200, "[1] Go To Mistwood Town(Home)"
text 250, 220, "[2] Go To Hallem Port"
text 250, 240, "[3] Walk Across Bridge To Brenen Island"
ink RGB(255,0,0), RGB(255,0,0)
text 250, 260, "[4] Hunt For Monsters"
ink rgb(255, 255, 0),rgb(255, 255, 0)
text 215, 280, "Description: A crossroad leading in 3 directions."
text 225, 290, "The small island barely supports it."
ink rgb(255, 255, 255),rgb(255, 255, 255)
input "I Choose: ";input4$
if input4$ = "1" then gosub main
if input4$ = "2" then gosub t1
if input4$ = "3" then gosub brenen
if input4$ = "4" then gosub hunt1 else goto crossroads
hunt1:
chnc=rnd(5)
cls
if chnc=0 then text 200, 220, "SKELETON BRUTE ATTACKS!"
if chnc=0 then wait 3500
if chnc=0 then skelbrute(health, monhealth, maxhealth, maxmonhealth, mana, maxmana)
if chnc=1 then text 200, 220, "SKELETON BONE MAGE ATTACKS!"
if chnc=1 then wait 3500
if chnc=1 then skelmage(health, monhealth, maxhealth, maxmonhealth, mana, maxmana)
if chnc=2 then text 200, 220, "SKELETON BRUTE ATTACKS!"
if chnc=2 then wait 3500
if chnc=2 then skelbrute(health, monhealth, maxhealth, maxmonhealth, mana, maxmana)
if chnc=3 then text 200, 220, "Whilst hunting, you have found a chunk of silver. +10 gold"
if chnc=3 then gold=gold+10
if chnc=4 then text 200, 220, "You walk through a forest. While foreging you get jumped. -15 health"
if chnc=4 then health=health-15
cls
return
mistshop:
cls
text 250, 100, "Mistwood Shop"
text 450, 15, "Your Gold = "+str$(gold)
text 200, 200, "[1] Mithril Sword (+5 attack) COST:50 Gold"
text 200, 220, "[2] Shield Of Justice (+5 defence) COST:45 Gold"
text 200, 240, "[3] Gold Plated Armor (+10 defence) COST:75 Gold"
text 200, 260, "[4] Leave"
input "I Choose: ";inputs1$
if inputs1$ = "1" then gosub sword1
if inputs1$ = "2" then gosub shield1
if inputs1$ = "3" then gosub armor1
if inputs1$ = "4" then gosub main else goto mistshop
sword1:
cls
if gold=<49 then gosub sword1A
if gold=>50 then gosub sword1B
sword1A:
print "NOT ENOUGH GOLD!"
wait 3500
cls
goto mistshop
sword1B:
print "ITEM BOUGHT!"
att=att+5
gold=gold-50
wait 3500
cls
goto mistshop
shield1:
cls
if gold=<44 then gosub shield1A
if gold=>45 then gosub shield1B
shield1A:
print "NOT ENOUGH GOLD!"
wait 3500
cls
goto mistshop
shield1B:
print "ITEM BOUGHT!"
def=def+5
gold=gold-45
wait 3500
cls
goto mistshop
armor1:
cls
if gold=<74 then gosub armor1A
if gold=>75 then gosub armor1B
armor1A:
print "NOT ENOUGH GOLD!"
wait 3500
cls
goto mistshop
armor1B:
print "ITEM BOUGHT!"
def=def+10
gold=gold-75
wait 3500
cls
goto mistshop
home:
save()
return
t1:
if tflag=0 then save()
if tflag1=0 then tflag=1
cls
set text size 15
set text font "courier"
text 250, 100, "Hallem Port"
text 250, 200, "[1] Shipyard"
text 250, 220, "[2] Talk To Citizens"
text 250, 240, "[3] Leave"
input "I Choose: ";input3$
ink rgb(255, 255, 0),rgb(255, 255, 0)
text 215, 260, "Description: A hustle and bustle port."
text 225, 270, "But very helpful in cases."
ink rgb(255, 255, 255),rgb(255, 255, 255)
if input3$ = "1" then gosub shipy1
if input3$ = "2" then gosub cit1
if input3$ = "3" then goto crossroads else goto t1
shipy1:
cls
text 250, 100, "Hallem Port Shipyard"
text 450, 15, "Your Gold = "+str$(gold)
input "I Choose: ";inputs4$
text 200, 200, "[1] Travel To Fairakle COST:75 Gold"
text 200, 220, "[2] Travel To Hakley COST:50 Gold"
text 200, 240, "[3] Travel To Alheida COST:100 Gold"
text 200, 260, "[4] Leave"
if inputs4$ = "1" then gosub fairakle1
if inputs4$ = "2" then gosub hakley1
if inputs4$ = "3" then gosub alheida1
if inputs4$ = "4" then gosub t1 else goto shipy1
fairakle1:
cls
if gold=<74 then gosub fairakleA
if gold=>75 then gosub fairakleB
fairakleA:
print "NOT ENOUGH GOLD!"
wait 3500
cls
goto shipy1
fairakleB:
print "TRAVELING."
wait 1000
print "TRAVELING.."
wait 1000
print "TRAVELING..."
wait 1000
print "TRAVELING."
wait 1000
gold=gold-75
wait 0500
cls
goto fairakle
hakley1:
cls
if gold=<49 then gosub hakleyA
if gold=>50 then gosub hakleyB
hakleyA:
print "NOT ENOUGH GOLD!"
wait 3500
cls
goto shipy1
hakleyB:
print "TRAVELING."
wait 1000
print "TRAVELING.."
wait 1000
print "TRAVELING..."
wait 1000
print "TRAVELING."
wait 1000
gold=gold-50
wait 0500
cls
goto hakley
Alheida1:
cls
if gold=<99 then gosub AlheidaA
if gold=>100 then gosub AlheidaB
AlheidaA:
print "NOT ENOUGH GOLD!"
wait 3500
cls
goto shipy1
AlheidaB:
print "TRAVELING."
wait 1000
print "TRAVELING.."
wait 1000
print "TRAVELING..."
wait 1000
print "TRAVELING."
wait 1000
gold=gold-100
wait 0500
cls
goto Alheida
cit1:
cls
set text size 15
set text font "courier"
text 250, 100, "Citizens"
text 250, 200, "[1] Barkeep"
text 250, 220, "[2] Fisher"
text 250, 240, "[3] Sailer"
input "I Choose: ";input5$
ink rgb(255, 255, 0),rgb(255, 255, 0)
text 215, 260, "These people are not the friendliest."
text 225, 270, "Be warned."
ink rgb(255, 255, 255),rgb(255, 255, 255)
if input5$ = "1" then gosub barkeep1
if input5$ = "2" then gosub fisher1
if input5$ = "3" then gosub sailer1 else goto cit1
barkeep1:
cls
text 250, 100, "Barkeep"
text 250, 200, "You have no buisness here, peasant."
wait 2500
goto t1
fisher1:
cls
text 250, 100, "Fisher"
text 250, 200, "Go away, I have work to do."
wait 2500
goto t1
sailer1:
cls
text 250, 100, "Sailer"
text 250, 200, "Move it, I need to get to my ship."
wait 2500
goto t1
brenen:
cls
set text size 15
set text font "courier"
text 250, 100, "Brenen"
text 250, 200, "[1] Go To Brenen Castle"
text 250, 220, "[2] Go To Hallte Village"
text 250, 240, "[3] Walk Across Bridge To Mainland"
ink rgb(255, 255, 0),rgb(255, 255, 0)
text 215, 260, "Description: A small but rich island."
text 225, 270, "It's people can be selfish at times."
ink rgb(255, 255, 255),rgb(255, 255, 255)
input "I Choose: ";input2$
if input2$ = "1" then gosub c1
if input2$ = "2" then gosub t2
if input2$ = "3" then gosub crossroads else goto brenen
c1:
cls
set text size 15
set text font "courier"
text 250, 100, "Brenen Castle"
text 250, 200, "[1] Talk To Citizens"
text 250, 220, "[2] Talk To Guards"
text 250, 240, "[3] Leave"
ink rgb(255, 255, 0),rgb(255, 255, 0)
text 215, 260, "Description: A small circular castle with much security."
text 225, 270, "But still something to gawk at."
ink rgb(255, 255, 255),rgb(255, 255, 255)
input "I Choose: ";input6$
if input6$ = "1" then gosub cit2
if input6$ = "2" then gosub gua1
if input6$ = "3" then gosub brenen else goto c1
cit2:
cls
set text size 15
set text font "courier"
text 250, 100, "Citizens"
text 250, 200, "[1] Brewer"
text 250, 220, "[2] Blacksmith"
text 250, 240, "[3] Linenworker"
input "I Choose: ";input7$
if input7$ = "1" then gosub brewer1
if input7$ = "2" then gosub black1
if input7$ = "3" then gosub lin1 else goto cit2
brewer1:
cls
text 250, 100, "Brewer"
text 250, 200, "Sorry, can't talk. I have to finish this shipment."
wait 3000
goto c1
black1:
cls
text 250, 100, "Blacksmith"
text 250, 200, "*CLINK* Cant... *CLINK* talk... *CLINK*"
wait 3000
goto c1
lin1:
cls
text 250, 100, "Linenworker"
text 250, 200, "I have work to do, get out peasant!"
wait 3000
goto c1
gua1:
cls
set text size 15
set text font "courier"
text 250, 100, "Guards"
text 250, 200, "Guard Ere"
text 250, 220, "Guard Oley"
text 250, 240, "Guard Jeffery"
input "I Choose: ";input10$
if input10$ = "1" then gosub ere
if input10$ = "2" then gosub oley
if input10$ = "3" then gosub jeffery else goto gua1
ere:
cls
text 250, 100, "Guard Ere"
text 250, 200, "Go away peasant, I must guard this castle."
wait 3000
return
oley:
cls
text 250, 100, "Guard Oley"
text 250, 200, "All peasants turn out to be theifs, go away!"
wait 3000
return
jeffery:
cls
text 250, 100, "Guard Jeffery"
text 250, 200, "You seem very poor, have some gold. +5 gold!"
gold=gold+5
wait 3000
return
fairakle:
cls
set text size 15
set text font "courier"
input "I Choose: ";input8$
text 250, 100, "Fairakle Port"
text 250, 200, "[1] Shipyard"
text 250, 220, "[2] Talk To Citizens"
text 250, 240, "[3] Leave Port"
if input8$ = "1" then gosub shipy2
if input8$ = "2" then gosub cit3
if input8$ = "3" then gosub crossroads2 else goto fairakle
cit3:
cls
set text size 15
set text font "courier"
text 250, 100, "Citizens"
text 250, 200, "[1] Farmer"
text 250, 220, "[2] Claymaker"
text 250, 240, "[3] Mason"
input "I Choose: ";input9$
if input9$ = "1" then gosub shipy2
if input9$ = "2" then gosub cit3
if input9$ = "3" then gosub crossroads2 else goto cit3
shipy2:
cls
text 250, 100, "Hallem Port Shipyard"
text 450, 15, "Your Gold = "+str$(gold)
text 200, 200, "[1] Travel To Fairakle COST:75 Gold"
text 200, 220, "[2] Travel To Hakley COST:50 Gold"
text 200, 240, "[3] Travel To Alheida COST:100 Gold"
text 200, 260, "[4] Leave"
input "I Choose: ";inputs11$
if inputs11$ = "1" then gosub Henk1
if inputs11$ = "2" then gosub Hakley2
if inputs11$ = "3" then gosub Alheida2
if inputs11$ = "4" then gosub fairakle else goto shipy2
Henk1:
cls
if gold=<74 then gosub fairakleA
if gold=>75 then gosub fairakleB
HenkA:
print "NOT ENOUGH GOLD!"
wait 3500
cls
goto shipy2
HenkB:
print "TRAVELING."
wait 1000
print "TRAVELING.."
wait 1000
print "TRAVELING..."
wait 1000
print "TRAVELING."
wait 1000
gold=gold-75
wait 0500
cls
goto t1
hakley2:
cls
if gold=<49 then gosub hakleyA2
if gold=>50 then gosub hakleyB2
hakleyA2:
print "NOT ENOUGH GOLD!"
wait 3500
cls
goto shipy2
hakleyB2:
print "TRAVELING."
wait 1000
print "TRAVELING.."
wait 1000
print "TRAVELING..."
wait 1000
print "TRAVELING."
wait 1000
gold=gold-50
wait 0500
cls
goto hakley
Alheida2:
cls
if gold=<99 then gosub AlheidaA2
if gold=>100 then gosub AlheidaB2
AlheidaA2:
print "NOT ENOUGH GOLD!"
wait 3500
cls
goto shipy2
AlheidaB2:
print "TRAVELING."
wait 1000
print "TRAVELING.."
wait 1000
print "TRAVELING..."
wait 1000
print "TRAVELING."
wait 1000
gold=gold-100
wait 0500
cls
goto Alheida
crossroads2:
t2:
t3:
Hakley:
cls
wait key
Alheida:
cls
wait key
t4:
t5:
c2:
rem -------------
rem - FUNCTIONS -
rem -------------
functions:
function endg()
cls
set text size 35
set text font "impact"
text 260, 200, "YOU HAVE DIED!"
wait 5555
cls
set text size 15
set text font "courier"
goto mainmenu
endfunction
function levelup()
att=att+5
def=def+5
maxhealth=maxhealth+15
maxmana=maxmana+15
cls
text 150, 100, "YOU'VE LEVELED UP!"
expe=0
endfunction
function save()
cls
health=maxhealth
if file exist("Saves\save.dat") then delete file "Saves\save.dat" else make file "Saves\save.dat"
open to write 1,("Saves\save.dat")
write long 1, health
write long 1, maxhealth
write long 1, mana
write long 1, maxmana
write long 1, monhealth
write long 1, maxmonhealth
write long 1, monmana
write long 1, maxmonmana
write long 1, potion
write long 1, att
write long 1, def
write long 1, dmg
write long 1, defd
write long 1, mondeath
write long 1, expe
write long 1, lever
write long 1, tflag1
write long 1, tflag2
write long 1, tflag3
write long 1, easy
write long 1, normal
write long 1, hard
WAIT 2000
close file 1
wait 0001
print "GAME SAVED!"
print "HEALTH RESTORED!"
wait 2000
cls
debug_2:
text 250, 100, "Do you want to exit?"
text 250, 200, "[1] Yes"
text 250, 220, "[2] No"
input "I Choose: ";inputeS$
if inputeS$ = "1" then end
if inputeS$ = "2" then goto debug_1 else goto debug_2
debug_1:
endfunction
function skelmage(health, monhealth, maxhealth, maxmonhealth, mana, maxmana)
skelemage:
cls
set text size 15
set text font "courier"
text 250, 100, "Skeleton Bone Mage"
text 465, 30, "Health = "+str$(health)
text 465, 45, "Mana = "+str$(mana)
text 250, 120, "Monster Health = "+str$(monhealth)
text 250, 200, "[1] Attack"
text 250, 220, "[2] Use Potion, #"+str$(potion)
text 250, 240, "[3] Defend"
text 250, 260, "[4] Cast Spell"
ink rgb(255, 0, 0), rgb(255, 0, 0)
text 125, 280, "Description: A vicous bone mage. Sworn to kill all."
text 260, 290, "Engage with caution."
ink rgb(255, 255, 255), rgb(255, 255, 255)
input "I Choose: ";input1$
if input1$ = "1" then gosub attack1
if input1$ = "2" then gosub potion1
if input1$ = "3" then gosub defend1
if input1$ = "4" then gosub spellp1 else goto skelemage
attack1:
wait 0500
cls
set text font "impact"
set text size 30
dmg=rnd(att)+5
text 175, 220, "YOU ATTACK SKELETON BONE MAGE FOR "+str$(dmg)
monhealth=monhealth-dmg
wait 3500
cls
chnc=rnd(3)
if chnc=0 then spellcount$=fbs$
if chnc=1 then spellcount$=wbs$
if chnc=2 then spellcount$=tss$
if chnc=0 then dmg=rnd(24)+1
if chnc=1 then dmg=rnd(20)+5
if chnc=2 then dmg=rnd(15)+10
text 175, 220, "SKELETON BONE MAGE CASTS "+spellcount$
text 175, 245, "FOR "+str$(dmg)
health=health-dmg
set text font "courier"
set text size 15
wait 3500
if monhealth=<0 then goto exp1 else goto skelemage
if health=<0 then endg() else goto skelemage
potion1:
wait 0500
cls
set text font "impact"
set text size 30
text 175, 220, "THE POTION HEALS 50 HEALTH!"
if potion=<0 then text 175, 220, "NOT ENOUGH POTIONS!"
if potion=<0 then wait 2000
if potion=<0 then goto skelemage
potion=potion-1
health=health+50
if health=>maxhealth then health=maxhealth
wait 3500
set text font "courier"
set text size 15
goto skelemage
defend1:
wait 0500
set text font "impact"
set text size 30
cls
chnc=rnd(3)
if chnc=0 then spellcount$=fbs$
if chnc=1 then spellcount$=wbs$
if chnc=2 then spellcount$=tss$
if chnc=0 then dmg=rnd(24)+1
if chnc=1 then dmg=rnd(20)+5
if chnc=2 then dmg=rnd(15)+10
text 175, 220, "SKELETON BONE MAGE CASTS "+spellcount$
text 175, 245, "FOR "+str$(dmg)
defd=rnd(def)+5
if defd=>dmg then defd=dmg
health=health-dmg+defd
wait 4000
cls
text 175, 220, "YOU DEFEND FOR "+str$(defd)
wait 3000
set text font "courier"
set text size 15
wait 3500
if monhealth=<0 then goto exp1 else goto skelemage
if health=<0 then endg() else goto skelemage
spellp1:
cls
set text size 15
set text font "courier"
text 250, 100, "Spells"
text 465, 30, "Health = "+str$(health)
text 250, 120, "Mana = "+str$(mana)
text 250, 200, "[1] Lightning Strike"
text 250, 220, "[2] Waterbolt"
text 250, 240, "[3] Fireball"
input "I Choose: ";inputs2$
if inputs2$ = "1" then goto st1
if inputs2$ = "2" then goto sw1
if inputs2$ = "3" then goto sf1 else goto spellp1
st1:
scts=1
goto spell1
sw1:
scwb=1
goto spell1
sf1:
scfb=1
goto spell1
spell1:
wait 0500
set text font "impact"
set text size 30
cls
if mana=<14 then text 250, 220, "NOT ENOUGH MANA!"
if mana=<14 then wait 3500
if mana=<14 then goto skelemage
if scts=1 then spellcount$="LIGHTNING STRIKE"
if scts=1 then dmg=rnd(24)+1
if scts=1 then wait 0500
if scts=1 then scts=0
if scwb=1 then spellcount$="WATERBOLT"
if scwb=1 then dmg=rnd(20)+5
if scwb=1 then wait 0500
if scwb=1 then scwb=0
if scfb=1 then spellcount$="FIREBALL"
if scfb=1 then dmg=rnd(15)+10
if scfb=1 then wait 0500
if scfb=1 then scfb=0
text 175, 220, "YOU CAST "+spellcount$ +" FOR "+str$(dmg)
monhealth=monhealth-dmg
wait 3000
cls
chnc=rnd(3)
if chnc=0 then spellcount$=tss$
if chnc=1 then spellcount$=wbs$
if chnc=2 then spellcount$=fbs$
if chnc=0 then dmg=rnd(24)+1
if chnc=1 then dmg=rnd(20)+5
if chnc=2 then dmg=rnd(15)+10
WAIT 0500
text 175, 220, "SKELETON BONE MAGE CASTS "+spellcount$+ " FOR "+str$(dmg)
health=health-dmg
wait 4000
cls
set text font "courier"
set text size 15
wait 0500
if monhealth=<0 then goto exp1 else goto skelebrute
if health=<0 then endg() else goto skelebrute
exp1:
text 250, 100, "YOU HAVE DEFEATED SKELETON BONE MAGE!"
monhealth=maxmonhealth
goldm=rnd(8)+2
gold=gold+goldm
expm=rnd(15)+15
expe=expe+expm
text 250, 200, "YOU HAVE GAINED "+str$(goldm)+" GOLD!"
text 250, 220, "YOU HAVE GAINED "+str$(expm)+" EXPERIENCE!"
if expe=>200 then levelup()
endfunction
function skelbrute(health, monhealth, maxhealth, maxmonhealth, mana, maxmana)
skelebrute:
cls
set text size 15
set text font "courier"
text 250, 100, "Skeleton Bone Mage"
text 465, 30, "Health = "+str$(health)
text 465, 45, "Mana = "+str$(mana)
text 250, 120, "Monster Health = "+str$(monhealth)
text 250, 200, "[1] Attack"
text 250, 220, "[2] Use Potion, #"+str$(potion)
text 250, 240, "[3] Defend"
text 250, 260, "[4] Cast Spell"
ink rgb(255, 0, 0), rgb(255, 0, 0)
text 125, 280, "Description: A vicous brute. Sworn to destroy all."
text 260, 290, "Engage with prejudice"
ink rgb(255, 255, 255), rgb(255, 255, 255)
input "I Choose: ";input13$
if input13$ = "1" then gosub attack2
if input13$ = "2" then gosub potion2
if input13$ = "3" then gosub defend2
if input13$ = "4" then gosub spellp2 else goto skelebrute
attack2:
wait 0500
cls
set text font "impact"
set text size 30
dmg=rnd(att)+5
text 175, 220, "YOU ATTACK SKELETON BRUTE FOR "+str$(dmg)
monhealth=monhealth-dmg
wait 3500
cls
chnc=rnd(3)
if chnc=0 then spellcount$=css$
if chnc=1 then spellcount$=wws$
if chnc=2 then spellcount$=sbs$
if chnc=0 then dmg=rnd(24)+1
if chnc=1 then dmg=rnd(20)+5
if chnc=2 then dmg=rnd(15)+10
WAIT 0500
text 100, 220, "SKELETON BRUTE ATTACKS WITH "+spellcount$+ " FOR "+str$(dmg)
health=health-dmg
set text font "courier"
set text size 15
wait 3500
if monhealth=<0 then goto exp1 else goto skelebrute
if health=<0 then endg() else goto skelebrute
potion2:
wait 0500
cls
set text font "impact"
set text size 30
text 175, 220, "THE POTION HEALS 50 HEALTH!"
if potion=<0 then text 175, 220, "NOT ENOUGH POTIONS!"
if potion=<0 then wait 2000
if potion=<0 then goto skelebrute
potion=potion-1
health=health+50
if health=>maxhealth then health=maxhealth
wait 3500
set text font "courier"
set text size 15
goto skelebrute
defend2:
wait 0500
set text font "impact"
set text size 30
cls
chnc=rnd(3)
if chnc=0 then spellcount$=css$
if chnc=1 then spellcount$=wws$
if chnc=2 then spellcount$=sbs$
if chnc=0 then dmg=rnd(24)+1
if chnc=1 then dmg=rnd(20)+5
if chnc=2 then dmg=rnd(15)+10
WAIT 0500
text 100, 220, "SKELETON BRUTE ATTACKS WITH "+spellcount$+ " FOR "+str$(dmg)
defd=rnd(def)+5
if defd=>dmg then defd=dmg
health=health-dmg+defd
wait 4000
cls
text 175, 220, "YOU DEFEND FOR "+str$(defd)
wait 3000
set text font "courier"
set text size 15
wait 3500
if monhealth=<0 then goto exp1 else goto skelebrute
if health=<0 then endg() else goto skelebrute
spellp2:
cls
set text size 15
set text font "courier"
text 250, 100, "Spells"
text 465, 30, "Health = "+str$(health)
text 465, 45, "Mana = "+str$(mana)
text 250, 120, "Monster Health = "+str$(monhealth)
text 250, 200, "[1] Lightning Strike"
text 250, 220, "[2] Waterbolt"
text 250, 240, "[3] Fireball"
input "I Choose: ";inputs1$
if inputs1$ = "1" then goto st2
if inputs1$ = "2" then goto sw2
if inputs1$ = "3" then goto sf2 else goto spellp2
st2:
scts=1
goto spell2
sw2:
scwb=1
goto spell2
sf2:
scfb=1
goto spell2
spell2:
wait 0500
set text font "impact"
set text size 30
cls
if mana=<14 then text 250, 220, "NOT ENOUGH MANA!"
if mana=<14 then wait 3500
if mana=<14 then goto skelebrute
if scts=1 then spellcount$="LIGHTNING STRIKE"
if scts=1 then dmg=rnd(24)+1
if scts=1 then wait 0500
if scts=1 then scts=0
if scwb=1 then spellcount$="WATERBOLT"
if scwb=1 then dmg=rnd(20)+5
if scwb=1 then wait 0500
if scwb=1 then scwb=0
if scfb=1 then spellcount$="FIREBALL"
if scfb=1 then dmg=rnd(15)+10
if scfb=1 then wait 0500
if scfb=1 then scfb=0
text 175, 220, "YOU CAST "+spellcount$+" FOR "+str$(dmg)
wait 3000
cls
chnc=rnd(3)
if chnc=0 then spellcount$=css$
if chnc=1 then spellcount$=wws$
if chnc=2 then spellcount$=sbs$
if chnc=0 then dmg=rnd(24)+1
if chnc=1 then dmg=rnd(20)+5
if chnc=2 then dmg=rnd(15)+10
WAIT 0500
text 100, 220, "SKELETON BRUTE ATTACKS WITH "+spellcount$+ " FOR "+str$(dmg)
health=health-dmg
wait 4000
set text font "courier"
set text size 15
wait 3500
if monhealth=<0 then goto exp1 else goto skelebrute
if health=<0 then endg() else goto skelebrute
exp2:
text 250, 100, "YOU HAVE DEFEATED SKELETON BRUTE!"
monhealth=maxmonhealth
goldm=rnd(12)+3
gold=gold+goldm
expm=rnd(25)+10
expe=expe+expm
text 220, 200, "YOU HAVE GAINED "+str$(goldm)+" GOLD!"
text 220, 220, "YOU HAVE GAINED "+str$(expm)+" EXPERIENCE!"
if expe=>200 then levelup()
endfunction
return
Forgive the messiness. I just am really annoyed by some of these bugs.
EDIT: Ok, since we're not getting anywhere. Lets do something else. I started this project. But am having trouble, I have no idea why, but alot of the things I do wont work even though Ive done similar things. But anyways, if anyone wants to help, I expect more work to be done, I mean everyone involved only really posts like once a week maybe. So its attached. I need images, and some coders.
Too lazy to make a signature.