Sorry your browser is not supported!

PRINT "WELCOME TO WORLD OF WARCRAFT STARTING STATS VIEWER"
GOSUB pickrace

thankyou:
PRINT "THANK YOU FOR USING THIS PROGRAM"
END



pickrace:
PRINT "Pick Race"
PRINT "1-human"
PRINT "2-night elf"
PRINT "3-dwarf"
PRINT "4-gnome"
PRINT "5-orc"
PRINT "6-troll"
PRINT "7-undead"
PRINT "8-tauren"
PRINT "9-blood elf"
PRINT "10-draenei"
INPUT race

IF race=1 THEN GOSUB human
IF race=2 THEN GOSUB nightelf
IF race=3 THEN GOSUB dwarf
IF race=4 THEN GOSUB gnome
IF race=5 THEN GOSUB orc
IF race=6 THEN GOSUB troll
IF race=7 THEN GOSUB undead
IF race=8 THEN GOSUB tauren
IF race=9 THEN GOSUB bloodelf
IF race=10 THEN GOSUB draenei



human:
PRINT "Human Base Stats Are"

strength=20
agility=20
stamina=20
intellect=20
spirt=20

PRINT "strength=20"
PRINT "agility=20"
PRINT "stamina=20"
PRINT "intellect=20"
PRINT "spirt=20"

PRINT "Pick Class"
PRINT "1-warrior"
PRINT "2-paladin"
PRINT "3-rogue"
PRINT "4-priest"
PRINT "5-mage"
PRINT "6-warlock"
INPUT class

IF class=1 THEN GOSUB warrior
IF class=2 THEN GOSUB paladin
IF class=3 THEN GOSUB rogue
IF class=4 THEN GOSUB priest
IF class=5 THEN GOSUB mage
IF class=6 THEN GOSUB warlock
GOSUB human


nightelf:
PRINT "Night Elf Base Stats Are"

strength=17
agility=25
stamina=19
intellect=20
spirt=20

PRINT "strength=17"
PRINT "agility=25"
PRINT "stamina=19"
PRINT "intellect=20"
PRINT "spirt=20"

PRINT "Pick Class"
PRINT "1-warrior"
PRINT "2-hunter"
PRINT "3-rogue"
PRINT "4-priest"
PRINT "5-mage"
PRINT "6-druid"
INPUT class

IF class=1 THEN GOSUB warrior
IF class=2 THEN GOSUB hunter
IF class=3 THEN GOSUB rogue
IF class=4 THEN GOSUB priest
IF class=5 THEN GOSUB mage
IF class=6 THEN GOSUB druid
GOSUB nightelf

dwarf:
PRINT "Dwarf Base Stats Are"

strength=22
agility=16
stamina=23
intellect=19
spirt=19

PRINT "strength=22"
PRINT "agility=16"
PRINT "stamina=23"
PRINT "intellect=19"
PRINT "spirt=19"

PRINT "Pick Class"
PRINT "1-warrior"
PRINT "2-paladin"
PRINT "3-rogue"
PRINT "4-priest"
PRINT "5-hunter"

INPUT class

IF class=1 THEN GOSUB warrior
IF class=2 THEN GOSUB paladin
IF class=3 THEN GOSUB rogue
IF class=4 THEN GOSUB priest
IF class=5 THEN GOSUB hunter
GOSUB dwarf

gnome:
PRINT "Gnome Base Stats Are"

strength=15
agility=23
stamina=21
intellect=23
spirt=20

PRINT "strength=15"
PRINT "agility=23"
PRINT "stamina=21"
PRINT "intellect=23"
PRINT "spirt=20"

PRINT "Pick Class"
PRINT "1-warrior"
PRINT "2-rogue"
PRINT "3-mage"
PRINT "4-warlock"
INPUT class

IF class=1 THEN GOSUB warrior
IF class=2 THEN GOSUB rogue
IF class=3 THEN GOSUB mage
IF class=4 THEN GOSUB warlock
GOSUB gnome

orc:
PRINT "Orc Base Stats Are"

strength=23
agility=17
stamina=22
intellect=17
spirt=23

PRINT "strength=23"
PRINT "agility=17"
PRINT "stamina=22"
PRINT "intellect=17"
PRINT "spirt=23"

PRINT "Pick Class"
PRINT "1-warrior"
PRINT "2-hunter"
PRINT "3-rogue"
PRINT "4-shaman"
PRINT "5-warlock"
INPUT class

IF class=1 THEN GOSUB warrior
IF class=2 THEN GOSUB hunter
IF class=3 THEN GOSUB rogue
IF class=4 THEN GOSUB shaman
IF class=5 THEN GOSUB warlock
GOSUB orc

troll:
PRINT "Troll Base Stats Are"

strength=21
agility=22
stamina=21
intellect=16
spirt=21

PRINT "strength=21"
PRINT "agility=22"
PRINT "stamina=21"
PRINT "intellect=16"
PRINT "spirt=21"

PRINT "Pick Class"
PRINT "1-warrior"
PRINT "2-hunter"
PRINT "3-rogue"
PRINT "4-priest"
PRINT "5-mage"
PRINT "6-shaman"
INPUT class

IF class=1 THEN GOSUB warrior
IF class=2 THEN GOSUB hunter
IF class=3 THEN GOSUB rogue
IF class=4 THEN GOSUB priest
IF class=5 THEN GOSUB mage
IF class=6 THEN GOSUB shaman
GOSUB troll

undead:
PRINT "Undead Base Stats Are"

strength=19
agility=18
stamina=21
intellect=18
spirt=25

PRINT "strength=19"
PRINT "agility=18"
PRINT "stamina=21"
PRINT "intellect=18"
PRINT "spirt=25"

PRINT "Pick Class"
PRINT "1-warrior"
PRINT "2-rogue"
PRINT "3-priest"
PRINT "4-mage"
PRINT "5-warlock"
INPUT class

IF class=1 THEN GOSUB warrior
IF class=2 THEN GOSUB rogue
IF class=3 THEN GOSUB priest
IF class=4 THEN GOSUB mage
IF class=5 THEN GOSUB warlock
GOSUB undead

tauren:
PRINT "Tauren Base Stats Are"

strength=25
agility=15
stamina=22
intellect=15
spirt=22

PRINT "strength=25"
PRINT "agility=15"
PRINT "stamina=22"
PRINT "intellect=15"
PRINT "spirt=22"

PRINT "Pick Class"
PRINT "1-warrior"
PRINT "2-hunter"
PRINT "3-druid"
PRINT "4-shaman"
INPUT class

IF class=1 THEN GOSUB warrior
IF class=2 THEN GOSUB hunter
IF class=3 THEN GOSUB druid
IF class=4 THEN GOSUB shaman
GOSUB tauren

bloodelf:
PRINT "Blood Elf Base Stats Are"

strength=17
agility=22
stamina=17
intellect=24
spirt=19

PRINT "strength=17"
PRINT "agility=22"
PRINT "stamina=17"
PRINT "intellect=24"
PRINT "spirt=19"

PRINT "Pick Class"
PRINT "1-hunter"
PRINT "2-paladin"
PRINT "3-rogue"
PRINT "4-priest"
PRINT "5-mage"
PRINT "6-warlock"
INPUT class

IF class=1 THEN GOSUB hunter
IF class=2 THEN GOSUB paladin
IF class=3 THEN GOSUB rogue
IF class=4 THEN GOSUB priest
IF class=5 THEN GOSUB mage
IF class=6 THEN GOSUB warlock
GOSUB bloodelf

draenei:
PRINT "Draenei Base Stats Are"

strength=21
agility=17
stamina=21
intellect=21
spirt=22

PRINT "strength=21"
PRINT "agility=17"
PRINT "stamina=21"
PRINT "intellect=21"
PRINT "spirt=22"

PRINT "Pick Class"
PRINT "1-warrior"
PRINT "2-paladin"
PRINT "3-hunter"
PRINT "4-priest"
PRINT "5-mage"
PRINT "6-shaman"
INPUT class

IF class=1 THEN GOSUB warrior
IF class=2 THEN GOSUB paladin
IF class=3 THEN GOSUB hunter
IF class=4 THEN GOSUB priest
IF class=5 THEN GOSUB mage
IF class=6 THEN GOSUB shaman
GOSUB draenei

warrior:
A=strength+3
B=agility+0
C=stamina+2
D=intellect+0
E=spirt+0

PRINT "New Stats as a Warrior Are"
PRINT "strength=",A
PRINT "agility=",B
PRINT "stamina=",C
PRINT "intellect=",D
PRINT "spirt=",E


PRINT "Would You Like To Pick an Other Class?"
INPUT "1-YES     2-NO",Reclass
IF Reclass=1 THEN RETURN
IF Reclass=2 THEN PRINT "Would You Like To Pick an Other Race?"
INPUT "1-YES     2-NO",NewRace
IF NewRace=1 THEN GOSUB pickrace
IF NewRace=2 THEN GOSUB thankyou

paladin:
A=strength+2
B=agility+0
C=stamina+5
D=intellect+0
E=spirt+1

PRINT "New Stats as a Paladin Are"
PRINT "strength=",A
PRINT "agility=",B
PRINT "stamina=",C
PRINT "intellect=",D
PRINT "spirt=",E


PRINT "Would You Like To Pick an Other Class?"
INPUT "1-YES     2-NO",Reclass
IF Reclass=1 THEN RETURN
IF Reclass=2 THEN PRINT "Would You Like To Pick an Other Race?"
INPUT "1-YES     2-NO",NewRace
IF NewRace=1 THEN GOSUB pickrace
IF NewRace=2 THEN GOSUB thankyou


rogue:
A=strength+1
B=agility+3
C=stamina+1
D=intellect+0
E=spirt+0

PRINT "New Stats as a rogue Are"
PRINT "strength=",A
PRINT "agility=",B
PRINT "stamina=",C
PRINT "intellect=",D
PRINT "spirt=",E


PRINT "Would You Like To Pick an Other Class?"
INPUT "1-YES     2-NO",Reclass
IF Reclass=1 THEN RETURN
IF Reclass=2 THEN PRINT "Would You Like To Pick an Other Race?"
INPUT "1-YES     2-NO",NewRace
IF NewRace=1 THEN GOSUB pickrace
IF NewRace=2 THEN GOSUB thankyou


priest:
A=strength+0
B=agility+0
C=stamina+0
D=intellect+2
E=spirt+3

PRINT "New Stats as a priest Are"
PRINT "strength=",A
PRINT "agility=",B
PRINT "stamina=",C
PRINT "intellect=",D
PRINT "spirt=",E


PRINT "Would You Like To Pick an Other Class?"
INPUT "1-YES     2-NO",Reclass
IF Reclass=1 THEN RETURN
IF Reclass=2 THEN PRINT "Would You Like To Pick an Other Race?"
INPUT "1-YES     2-NO",NewRace
IF NewRace=1 THEN GOSUB pickrace
IF NewRace=2 THEN GOSUB thankyou


mage:
A=strength+0
B=agility+0
C=stamina+0
D=intellect+3
E=spirt+2

PRINT "New Stats as a mage Are"
PRINT "strength=",A
PRINT "agility=",B
PRINT "stamina=",C
PRINT "intellect=",D
PRINT "spirt=",E


PRINT "Would You Like To Pick an Other Class?"
INPUT "1-YES     2-NO",Reclass
IF Reclass=1 THEN RETURN
IF Reclass=2 THEN PRINT "Would You Like To Pick an Other Race?"
INPUT "1-YES     2-NO",NewRace
IF NewRace=1 THEN GOSUB pickrace
IF NewRace=2 THEN GOSUB thankyou

warlock:
A=strength+0
B=agility+0
C=stamina+1
D=intellect+4
E=spirt+2

PRINT "New Stats as a Warlock Are"
PRINT "strength=",A
PRINT "agility=",B
PRINT "stamina=",C
PRINT "intellect=",D
PRINT "spirt=",E


PRINT "Would You Like To Pick an Other Class?"
INPUT "1-YES     2-NO",Reclass
IF Reclass=1 THEN RETURN
IF Reclass=2 THEN PRINT "Would You Like To Pick an Other Race?"
INPUT "1-YES     2-NO",NewRace
IF NewRace=1 THEN GOSUB pickrace
IF NewRace=2 THEN GOSUB thankyou


hunter:
A=strength+0
B=agility+3
C=stamina+1
D=intellect+0
E=spirt+1

PRINT "New Stats as a hunter Are"
PRINT "strength=",A
PRINT "agility=",B
PRINT "stamina=",C
PRINT "intellect=",D
PRINT "spirt=",E


PRINT "Would You Like To Pick an Other Class?"
INPUT "1-YES     2-NO",Reclass
IF Reclass=1 THEN RETURN
IF Reclass=2 THEN PRINT "Would You Like To Pick an Other Race?"
INPUT "1-YES     2-NO",NewRace
IF NewRace=1 THEN GOSUB pickrace
IF NewRace=2 THEN GOSUB thankyou


druid:
A=strength+1
B=agility+0
C=stamina+0
D=intellect+2
E=spirt+2

PRINT "New Stats as a druid Are"
PRINT "strength=",A
PRINT "agility=",B
PRINT "stamina=",C
PRINT "intellect=",D
PRINT "spirt=",E


PRINT "Would You Like To Pick an Other Class?"
INPUT "1-YES     2-NO",Reclass
IF Reclass=1 THEN RETURN
IF Reclass=2 THEN PRINT "Would You Like To Pick an Other Race?"
INPUT "1-YES     2-NO",NewRace
IF NewRace=1 THEN GOSUB pickrace
IF NewRace=2 THEN GOSUB thankyou


shaman:
A=strength+1
B=agility+0
C=stamina+1
D=intellect+1
E=spirt+2

PRINT "New Stats as a Shaman Are"
PRINT "strength=",A
PRINT "agility=",B
PRINT "stamina=",C
PRINT "intellect=",D
PRINT "spirt=",E


PRINT "Would You Like To Pick an Other Class?"
INPUT "1-YES     2-NO",Reclass
IF Reclass=1 THEN RETURN
IF Reclass=2 THEN PRINT "Would You Like To Pick an Other Race?"
INPUT "1-YES     2-NO",NewRace
IF NewRace=1 THEN GOSUB pickrace
IF NewRace=2 THEN GOSUB thankyou

PRINT "WELCOME TO WORLD OF WARCRAFT STARTING STATS VIEWER"
GOSUB pickrace

thankyou:
PRINT "THANK YOU FOR USING THIS PROGRAM"
END



pickrace:
PRINT "Pick Race"
PRINT "1-human"
PRINT "2-night elf"
PRINT "3-dwarf"
PRINT "4-gnome"
PRINT "5-orc"
PRINT "6-troll"
PRINT "7-undead"
PRINT "8-tauren"
PRINT "9-blood elf"
PRINT "10-draenei"
INPUT race

IF race=1 THEN GOSUB human
IF race=2 THEN GOSUB nightelf
IF race=3 THEN GOSUB dwarf
IF race=4 THEN GOSUB gnome
IF race=5 THEN GOSUB orc
IF race=6 THEN GOSUB troll
IF race=7 THEN GOSUB undead
IF race=8 THEN GOSUB tauren
IF race=9 THEN GOSUB bloodelf
IF race=10 THEN GOSUB draenei



human:
PRINT "Human Base Stats Are"

strength=20
agility=20
stamina=20
intellect=20
spirt=20

PRINT "strength=20"
PRINT "agility=20"
PRINT "stamina=20"
PRINT "intellect=20"
PRINT "spirt=20"

PRINT "Pick Class"
PRINT "1-warrior"
PRINT "2-paladin"
PRINT "3-rogue"
PRINT "4-priest"
PRINT "5-mage"
PRINT "6-warlock"
INPUT class

IF class=1 THEN GOSUB warrior
IF class=2 THEN GOSUB paladin
IF class=3 THEN GOSUB rogue
IF class=4 THEN GOSUB priest
IF class=5 THEN GOSUB mage
IF class=6 THEN GOSUB warlock
GOSUB human


nightelf:
PRINT "Night Elf Base Stats Are"

strength=17
agility=25
stamina=19
intellect=20
spirt=20

PRINT "strength=17"
PRINT "agility=25"
PRINT "stamina=19"
PRINT "intellect=20"
PRINT "spirt=20"

PRINT "Pick Class"
PRINT "1-warrior"
PRINT "2-hunter"
PRINT "3-rogue"
PRINT "4-priest"
PRINT "5-mage"
PRINT "6-druid"
INPUT class

IF class=1 THEN GOSUB warrior
IF class=2 THEN GOSUB hunter
IF class=3 THEN GOSUB rogue
IF class=4 THEN GOSUB priest
IF class=5 THEN GOSUB mage
IF class=6 THEN GOSUB druid
GOSUB nightelf

dwarf:
PRINT "Dwarf Base Stats Are"

strength=22
agility=16
stamina=23
intellect=19
spirt=19

PRINT "strength=22"
PRINT "agility=16"
PRINT "stamina=23"
PRINT "intellect=19"
PRINT "spirt=19"

PRINT "Pick Class"
PRINT "1-warrior"
PRINT "2-paladin"
PRINT "3-rogue"
PRINT "4-priest"
PRINT "5-hunter"

INPUT class

IF class=1 THEN GOSUB warrior
IF class=2 THEN GOSUB paladin
IF class=3 THEN GOSUB rogue
IF class=4 THEN GOSUB priest
IF class=5 THEN GOSUB hunter
GOSUB dwarf

gnome:
PRINT "Gnome Base Stats Are"

strength=15
agility=23
stamina=21
intellect=23
spirt=20

PRINT "strength=15"
PRINT "agility=23"
PRINT "stamina=21"
PRINT "intellect=23"
PRINT "spirt=20"

PRINT "Pick Class"
PRINT "1-warrior"
PRINT "2-rogue"
PRINT "3-mage"
PRINT "4-warlock"
INPUT class

IF class=1 THEN GOSUB warrior
IF class=2 THEN GOSUB rogue
IF class=3 THEN GOSUB mage
IF class=4 THEN GOSUB warlock
GOSUB gnome

orc:
PRINT "Orc Base Stats Are"

strength=23
agility=17
stamina=22
intellect=17
spirt=23

PRINT "strength=23"
PRINT "agility=17"
PRINT "stamina=22"
PRINT "intellect=17"
PRINT "spirt=23"

PRINT "Pick Class"
PRINT "1-warrior"
PRINT "2-hunter"
PRINT "3-rogue"
PRINT "4-shaman"
PRINT "5-warlock"
INPUT class

IF class=1 THEN GOSUB warrior
IF class=2 THEN GOSUB hunter
IF class=3 THEN GOSUB rogue
IF class=4 THEN GOSUB shaman
IF class=5 THEN GOSUB warlock
GOSUB orc

troll:
PRINT "Troll Base Stats Are"

strength=21
agility=22
stamina=21
intellect=16
spirt=21

PRINT "strength=21"
PRINT "agility=22"
PRINT "stamina=21"
PRINT "intellect=16"
PRINT "spirt=21"

PRINT "Pick Class"
PRINT "1-warrior"
PRINT "2-hunter"
PRINT "3-rogue"
PRINT "4-priest"
PRINT "5-mage"
PRINT "6-shaman"
INPUT class

IF class=1 THEN GOSUB warrior
IF class=2 THEN GOSUB hunter
IF class=3 THEN GOSUB rogue
IF class=4 THEN GOSUB priest
IF class=5 THEN GOSUB mage
IF class=6 THEN GOSUB shaman
GOSUB troll

undead:
PRINT "Undead Base Stats Are"

strength=19
agility=18
stamina=21
intellect=18
spirt=25

PRINT "strength=19"
PRINT "agility=18"
PRINT "stamina=21"
PRINT "intellect=18"
PRINT "spirt=25"

PRINT "Pick Class"
PRINT "1-warrior"
PRINT "2-rogue"
PRINT "3-priest"
PRINT "4-mage"
PRINT "5-warlock"
INPUT class

IF class=1 THEN GOSUB warrior
IF class=2 THEN GOSUB rogue
IF class=3 THEN GOSUB priest
IF class=4 THEN GOSUB mage
IF class=5 THEN GOSUB warlock
GOSUB undead

tauren:
PRINT "Tauren Base Stats Are"

strength=25
agility=15
stamina=22
intellect=15
spirt=22

PRINT "strength=25"
PRINT "agility=15"
PRINT "stamina=22"
PRINT "intellect=15"
PRINT "spirt=22"

PRINT "Pick Class"
PRINT "1-warrior"
PRINT "2-hunter"
PRINT "3-druid"
PRINT "4-shaman"
INPUT class

IF class=1 THEN GOSUB warrior
IF class=2 THEN GOSUB hunter
IF class=3 THEN GOSUB druid
IF class=4 THEN GOSUB shaman
GOSUB tauren

bloodelf:
PRINT "Blood Elf Base Stats Are"

strength=17
agility=22
stamina=17
intellect=24
spirt=19

PRINT "strength=17"
PRINT "agility=22"
PRINT "stamina=17"
PRINT "intellect=24"
PRINT "spirt=19"

PRINT "Pick Class"
PRINT "1-hunter"
PRINT "2-paladin"
PRINT "3-rogue"
PRINT "4-priest"
PRINT "5-mage"
PRINT "6-warlock"
INPUT class

IF class=1 THEN GOSUB hunter
IF class=2 THEN GOSUB paladin
IF class=3 THEN GOSUB rogue
IF class=4 THEN GOSUB priest
IF class=5 THEN GOSUB mage
IF class=6 THEN GOSUB warlock
GOSUB bloodelf

draenei:
PRINT "Draenei Base Stats Are"

strength=21
agility=17
stamina=21
intellect=21
spirt=22

PRINT "strength=21"
PRINT "agility=17"
PRINT "stamina=21"
PRINT "intellect=21"
PRINT "spirt=22"

PRINT "Pick Class"
PRINT "1-warrior"
PRINT "2-paladin"
PRINT "3-hunter"
PRINT "4-priest"
PRINT "5-mage"
PRINT "6-shaman"
INPUT class

IF class=1 THEN GOSUB warrior
IF class=2 THEN GOSUB paladin
IF class=3 THEN GOSUB hunter
IF class=4 THEN GOSUB priest
IF class=5 THEN GOSUB mage
IF class=6 THEN GOSUB shaman
GOSUB draenei

warrior:
A=strength+3
B=agility+0
C=stamina+2
D=intellect+0
E=spirt+0

PRINT "New Stats as a Warrior Are"
PRINT "strength=",A
PRINT "agility=",B
PRINT "stamina=",C
PRINT "intellect=",D
PRINT "spirt=",E


PRINT "Would You Like To Pick an Other Class?"
INPUT "1-YES 2-NO",Reclass
IF Reclass=1 THEN RETURN
IF Reclass=2 THEN PRINT "Would You Like To Pick an Other Race?"
INPUT "1-YES 2-NO",NewRace
IF NewRace=1 THEN GOSUB pickrace
IF NewRace=2 THEN GOSUB thankyou

paladin:
A=strength+2
B=agility+0
C=stamina+5
D=intellect+0
E=spirt+1

PRINT "New Stats as a Paladin Are"
PRINT "strength=",A
PRINT "agility=",B
PRINT "stamina=",C
PRINT "intellect=",D
PRINT "spirt=",E


PRINT "Would You Like To Pick an Other Class?"
INPUT "1-YES 2-NO",Reclass
IF Reclass=1 THEN RETURN
IF Reclass=2 THEN PRINT "Would You Like To Pick an Other Race?"
INPUT "1-YES 2-NO",NewRace
IF NewRace=1 THEN GOSUB pickrace
IF NewRace=2 THEN GOSUB thankyou


rogue:
A=strength+1
B=agility+3
C=stamina+1
D=intellect+0
E=spirt+0

PRINT "New Stats as a rogue Are"
PRINT "strength=",A
PRINT "agility=",B
PRINT "stamina=",C
PRINT "intellect=",D
PRINT "spirt=",E


PRINT "Would You Like To Pick an Other Class?"
INPUT "1-YES 2-NO",Reclass
IF Reclass=1 THEN RETURN
IF Reclass=2 THEN PRINT "Would You Like To Pick an Other Race?"
INPUT "1-YES 2-NO",NewRace
IF NewRace=1 THEN GOSUB pickrace
IF NewRace=2 THEN GOSUB thankyou


priest:
A=strength+0
B=agility+0
C=stamina+0
D=intellect+2
E=spirt+3

PRINT "New Stats as a priest Are"
PRINT "strength=",A
PRINT "agility=",B
PRINT "stamina=",C
PRINT "intellect=",D
PRINT "spirt=",E


PRINT "Would You Like To Pick an Other Class?"
INPUT "1-YES 2-NO",Reclass
IF Reclass=1 THEN RETURN
IF Reclass=2 THEN PRINT "Would You Like To Pick an Other Race?"
INPUT "1-YES 2-NO",NewRace
IF NewRace=1 THEN GOSUB pickrace
IF NewRace=2 THEN GOSUB thankyou


mage:
A=strength+0
B=agility+0
C=stamina+0
D=intellect+3
E=spirt+2

PRINT "New Stats as a mage Are"
PRINT "strength=",A
PRINT "agility=",B
PRINT "stamina=",C
PRINT "intellect=",D
PRINT "spirt=",E


PRINT "Would You Like To Pick an Other Class?"
INPUT "1-YES 2-NO",Reclass
IF Reclass=1 THEN RETURN
IF Reclass=2 THEN PRINT "Would You Like To Pick an Other Race?"
INPUT "1-YES 2-NO",NewRace
IF NewRace=1 THEN GOSUB pickrace
IF NewRace=2 THEN GOSUB thankyou

warlock:
A=strength+0
B=agility+0
C=stamina+1
D=intellect+4
E=spirt+2

PRINT "New Stats as a Warlock Are"
PRINT "strength=",A
PRINT "agility=",B
PRINT "stamina=",C
PRINT "intellect=",D
PRINT "spirt=",E


PRINT "Would You Like To Pick an Other Class?"
INPUT "1-YES 2-NO",Reclass
IF Reclass=1 THEN RETURN
IF Reclass=2 THEN PRINT "Would You Like To Pick an Other Race?"
INPUT "1-YES 2-NO",NewRace
IF NewRace=1 THEN GOSUB pickrace
IF NewRace=2 THEN GOSUB thankyou


hunter:
A=strength+0
B=agility+3
C=stamina+1
D=intellect+0
E=spirt+1

PRINT "New Stats as a hunter Are"
PRINT "strength=",A
PRINT "agility=",B
PRINT "stamina=",C
PRINT "intellect=",D
PRINT "spirt=",E


PRINT "Would You Like To Pick an Other Class?"
INPUT "1-YES 2-NO",Reclass
IF Reclass=1 THEN RETURN
IF Reclass=2 THEN PRINT "Would You Like To Pick an Other Race?"
INPUT "1-YES 2-NO",NewRace
IF NewRace=1 THEN GOSUB pickrace
IF NewRace=2 THEN GOSUB thankyou


druid:
A=strength+1
B=agility+0
C=stamina+0
D=intellect+2
E=spirt+2

PRINT "New Stats as a druid Are"
PRINT "strength=",A
PRINT "agility=",B
PRINT "stamina=",C
PRINT "intellect=",D
PRINT "spirt=",E


PRINT "Would You Like To Pick an Other Class?"
INPUT "1-YES 2-NO",Reclass
IF Reclass=1 THEN RETURN
IF Reclass=2 THEN PRINT "Would You Like To Pick an Other Race?"
INPUT "1-YES 2-NO",NewRace
IF NewRace=1 THEN GOSUB pickrace
IF NewRace=2 THEN GOSUB thankyou


shaman:
A=strength+1
B=agility+0
C=stamina+1
D=intellect+1
E=spirt+2

PRINT "New Stats as a Shaman Are"
PRINT "strength=",A
PRINT "agility=",B
PRINT "stamina=",C
PRINT "intellect=",D
PRINT "spirt=",E


PRINT "Would You Like To Pick an Other Class?"
INPUT "1-YES 2-NO",Reclass
IF Reclass=1 THEN RETURN
IF Reclass=2 THEN PRINT "Would You Like To Pick an Other Race?"
INPUT "1-YES 2-NO",NewRace
IF NewRace=1 THEN GOSUB pickrace
IF NewRace=2 THEN GOSUB thankyou

REM START THE ENVIRONMENT WITH THE 3D BACKGROUND ON
sync on : sync rate 60 : backdrop on : randomize timer()

REM THE MAXIMUM AMOUNT OF LINES THE TEXT SCROLLER WILL HOLD
GLOBAL MaxLines : MaxLines = 25
REM THE VISIBLE AMOUNT OF ROWS IT WILL DISPLAY
GLOBAL VisibleLines : VisibleLines = 10
REM THE FONTSIZE STORED INTO A VARIABLE FOR DISPLAY PURPOSES
GLOBAL FontSize : FontSize = 14
REM THE TEXT BUFFER COUNT THE PLAYER ADJUSTS
GLOBAL TBC : TBC = 0

REM SETUP THE FONT AND SIZE
set text font "Verdana" : set text size FontSize

REM MAKE A TXT_DATA TYPE/ARRAY TO HOLD THE TEXTUAL DATA
TYPE TXT_DATA
  LINENUM AS INTEGER
  TEXTLINE AS STRING
ENDTYPE

dim TXT_DATA(MaxLines) as TXT_DATA


REM FILL THE TEXTUAL DATA WITH SOME STUFF
   for i = 1 to MaxLines
      TXT_DATA(i).LINENUM = i
      TXT_DATA(i).TEXTLINE = "Textual Data Information "+STR$(RND(10000))
   next i


REM MAIN LOOP
disable escapekey : while escapekey()=0

   REM DISPLAY THE ACTUAL OUTPUT
   for i = 1 to VisibleLines
      text 5,i*FontSize,"[: " + STR$(TXT_DATA(i).LINENUM+TBC)+ " : " + TXT_DATA(i+TBC).TEXTLINE
   next i

   REM PLAYERS CONTROL UP DOWN KEYS

   rem ------------------------------------------------------------------------------------------
   rem UPKEY TRAP PRESS ONCE
   rem ------------------------------------------------------------------------------------------
   If keystate(200)=1 and Upkey_switch=0
      Upkey_toggle=1-Upkey_toggle
      Upkey_switch=1
      Endif
      If keystate(200)=0 then Upkey_switch=0
      if Upkey_toggle = 1
      TBC = TBC + 1
      if TBC > MaxLines - VisibleLines
         TBC = MaxLines - VisibleLines
      endif
      Upkey_toggle = 0
      endif

   rem ------------------------------------------------------------------------------------------
   rem DOWNKEY TRAP PRESS ONCE
   rem ------------------------------------------------------------------------------------------
   If keystate(208)=1 and Downkey_switch=0
      Downkey_toggle=1-Downkey_toggle
      Downkey_switch=1
      Endif
      If keystate(208)=0 then Downkey_switch=0
      if Downkey_toggle = 1
      TBC = TBC - 1
      if TBC < 1
         TBC = 0
      endif
      Downkey_toggle = 0
      endif

REM END MAIN LOOP
sync : endwhile

SUSPEND FOR KEY