well i seem to be having problems copying it from dark edit on here. There i have it on the code snippet. for some reason it wouldn't paste right into the source code.
sync on
hide mouse
` setup for player 1
Setup1:
stat1=20
cls
print "Player 1 Character Setup:"
print " Now is the time to create your character. You can make either a warrior or a wizard,"
print " depending on the stats you choose. You have 20 ability points that you can divide between"
print " Strength(str), Agility(dex), and Wisdom(wis)."
wait 500
Input "Do you need help?(yes or no)>";h1$
if h1$="yes" or h1$="y" then gosub Help
if h1$="no" or h1$="n" then goto P1
if h1$<>"yes" and h1$<>"no" and h1$<>"y" and h1$<>"n" then goto Ack1
` Get stats
P1:
Input "How much Str do you wish your fighter to have?>";str1
stat1=stat1-str1
if stat1<0 or stat1>20 then cls : Print "Stats must all be below 20 and above 0!!!!!" : wait 2000 : goto Setup1
print "You have ";stat1;" points left."
input "How much Dex do you wish your fighter to have?>";dex1
wis1=stat1-dex1
if wis1<0 or wis1>20 then cls : print "Stats must all be below 20 and above 0!!!!!" : wait 2000 : goto Setup1:
print "You have ";wis1;" wisdom"
if wis1>str1 then c1$="wizard"
if wis1<str1 then c1$="warrior"
if wis1=str1 then c1$="mage/warrior"
hp1=rnd(10)+10+(str1*4)
print "Your character has "
print "(STR): ";str1
print "(DEX): ";dex1
print "(WIS): ";wis1
print "(HP): ";hp1
print "(CLASS): ";c1$
input "Is this ok?>";l1$
if l1$="yes" or l1$="y" then goto Setup2
if l1$="no" or l1$="n" then goto Setup1
if l1$<>"yes" and l1$<>"no" and l1$<>"y" and l1$<>"n" then goto P1char
P1char:
Input "I need a yes or no or even a (y/n) answer!!!!!!!>";y$
if y$="yes" or y$="y" then goto Setup2
if y$="no" or y$="n" then goto Setup1
if l1$<>"yes" and l1$<>"no" and l1$<>"y" and l1$<>"n" then goto P1char
`setup for player 2
Setup2:
cls
stat2=20
print "Player 2 Character Setup:"
print " Now is the time to create your character. You can make either a warrior or a wizard,"
print " depending on the stats you choose. You have 20 ability points that you can divide between"
print " Strength(str), Agility(dex), and Wisdom(wis)."
Input "Do you need help?(yes or no)>";h2$
if h2$="yes" or h2$="y" then gosub Help
if h2$="no" or h2$="n" then goto P2
if h2$<>"yes" and h2$<>"no" and h2$<>"y" and h2$<>"n" then goto Ack2
P2:
` Get stats
Input "How much Str do you wish your fighter to have?>";str2
stat2=stat2-str2
print "You have ";stat2;" points left."
input "How much Dex do you wish your fighter to have?>";dex2
wis2=stat2-dex2
if wis1<0 then goto Setup2:
print "You have ";wis2;" wisdom"
if wis2>str2 then c2$="wizard"
if wis2<str2 then c2$="warrior"
if wis2=str2 then c2$="mage/warrior"
hp2=rnd(10)+10+(str2*4)
print "Your character has "
print "(STR): ";str2
print "(DEX): ";dex2
print "(WIS): ";wis2
print "(HP): ";hp2
print "(CLASS): ";c2$
input "Is this ok?>";l2$
if l2$="yes" or l2$="y" then goto Combat
if l2$="no" or l2$="n" then goto P2
if l2$<>"yes" and l2$<>"no" and l2$<>"y" and l2$<>"n" then goto P2char
P2char:
Input "I need a yes or no or even a (y/n) answer!!!>";l2$
if l2$="yes" or l2$="y" then goto Combat
if l2$="no" or l2$="n" then goto P2
if l2$<>"yes" and l2$<>"no" and l2$<>"y" and l2$<>"n" then goto P2char
` Help files
Help:
print " Strength(str) is the prime thing for warriors. Strength helps adds to the amount of"
print "damage inflicted when using a melee attack. Strength also adds to your overall health(hp)."
print "Agility or Dexterity(Dex) is your dodging ability. This helps with protecting you from melee"
print "attacks and chooses who goes first. Wisdom(wis) is the main requirement for a Wizard. Wisdom"
print " adds to the damage delt by a magic attack. It also protects you from magical attacks."
print "Press any key to return to character setup"
suspend for key
cls
return
` Combat
Combat:
do
if dex1>dex2 then cls : print "player 1 will go first" : wait 2000 :goto P1combat
if dex2>dex1 then cls : print "player 2 will go first" : wait 2000 : goto P2combat
d1=0
d2=0
P1combat:
cls
set cursor 0,0
print "Player 1: ";hp1;"HP Player 2: ";hp2;"HP"
Input "Player 1 do you want to do a melee attack or a magic attack?>";att1$
if att1$="melee"
c1=rnd(10)+str1 : c2=rnd(10)+dex2
if c1>c2 then d1=rnd(6)+str1 : print "your slice deals ";d1;" damage" else print "your slice misses"
endif
if att1$="magic"
c1=rnd(10)+wis1 : c2=rnd(10)+wis2
if c1>c2 then d1=rnd(6)+wis1 : print "your fireball deals ";d1;" damage" else print "your fireball missed"
endif
hp2=hp2-d1
if hp2=<0 then wait 750 : goto P1wins
wait 1000
goto P2combat
P2combat:
cls
print "Player 1: ";hp1;"HP Player 2: ";hp2;"HP"
Input "player 2 do you want to do a melee attack or a magic attack?>";att2$
if att2$="melee"
c1=rnd(10)+str2 : c2=rnd(10)+dex1
if c1>c2 then d2=rnd(6)+str2 : print "your slice deals ";d2;" damage" else print "your slice misses"
endif
if att2$="magic"
c1=rnd(10)+wis2 : c2=rnd(10)+wis1
if c1>c2 then d2=rnd(6)+wis2 : print "your fireball deals ";d2;" damage" else print "your fireball missed"
endif
hp1=hp1-d2
if hp1=<0 then wait 750 : goto P2wins
wait 1000
goto P1combat
loop
Ack1:
Input " I need a yes or no or even a (y/n) answer!!!>";h1$
if h1$="yes" or h1$="y" then gosub Help
if h1$="no" or h1$="n" then goto P1
if h1$<>"yes" and h1$<>"no" and h1$<>"y" and h1$<>"n" then goto Ack1
Ack2:
Input " I need a yes or no or even a (y/n) answer!!!>";h2$
if h2$="yes" or h2$="y" then gosub Help
if h2$="no" or h2$="n" then goto P2
if h2$<>"yes" and h2$<>"no" and h2$<>"y" and h2$<>"n" then goto Ack2
` winning
P1wins:
do
cls
set text size 30
center text 320,240, "PLAYER 1 IS THE WINNER!!!!!"
wait 1000
center text 320,270, "Press Enter to play again or space to quit"
repeat
sync
until returnkey() or spacekey()
if returnkey()=1 then goto Setup1:
if spacekey()=1 then end
loop
P2wins:
do
cls
set text size 30
center text 320,240, "PLAYER 2 IS THE WINNER!!!!!"
wait 1000
set text size 14
center text 320,270, "Press Enter to play again or space to quit"
repeat
sync
until returnkey() or spacekey()
if returnkey()=1 then goto Setup1:
if spacekey()=1 then end
loop
