Sorry your browser is not supported!

if the enemy hp = 0 or the enemy hp is < 0 then you win

IF enemyHealth <= 0 THEN battleWin = 1

enemyhp#=5000
charhp#=2000
game:
do
if enemyhp#<=0 and charhp#>0 then goto win
if charhp#<=0 and enemyhp#>0 then goto loose
loop
return
win:
set cursor 100,10
print "congradulations you won"
return

loose:
set cursor 100,10
print "I am sorry you lost, would you like to play again?"
input$ ""
if input$="yes" then goto game
return

rem health is your healt
health=2000
rem ehealth is your enemy's health
ehealth=5000

rem add this into the batle routine,(or the main loop if thats where you keep your battle sequence

rem lets also assume that you got a subrouine for winning named _youwin

if health2=< 0 then gosub _youwin

rem code by x1b & Lost In Thought

randomize timer()
rem constants
#constant pc  =0
#constant npc =1

rem arrays
dim HP(1)
dim AC(1)
dim Initiative(1)



start:
player_initiative =0
HP(pc)  =10
AC(pc)  =10

npc_initiative    =0
HP(npc) =10
AC(npc) =10



do

gosub Initiative
gosub Combat


if HP(pc) <= 0
 print ""
 print "NPC Has Slain you.."
 exit
endif

if HP(npc) <= 0
 print ""
 print "You have slain NPC!"
 exit
endif

loop



print ""
print " Combat Over... "
wait key
cls
goto start



Initiative:
 player_initiative = rnd(5)+1
 npc_initiative = rnd(5)+1
return


Combat:
 player_attacked =0
 npc_attacked    =0

 Attack = rnd(19)+1
 if player_initiative = npc_initiative
  print "Initiative is a tie!  Rerolling.."
 else
  if player_initiative > npc_initiative
   player_attacked =1
   print "YOU Won Initiative!"
   gosub _playerwins
  else
   npc_attacked =1
   print "NPC Won Initiative!"
   gosub _npcwins
  endif
 endif
return




_playerwins:
 Attack =rnd(19)+1
 if Attack >= AC(npc)
  Damage = rnd(9)+1
  HP(npc) = HP(npc) - Damage
  print "You Attack NPC and HIT! with a roll of "; Attack ;" doing "; Damage ;" points of damage!"
 else
  print "You Attack NPC and MISS! With a roll of "; Attack ;"!"
 endif
 if npc_attacked =0
  if HP(npc) > 0
   npc_attacked =1
   gosub _npcwins
  endif
 endif
return


_npcwins:
 Attack = rnd(19)+1
 if Attack >=  AC(pc)
  Damage =rnd(9)+1
  HP(pc) =HP(pc) -Damage
  print "NPC Attacks YOU And HITS! With a roll of "; Attack ;" doing "; Damage ;" points of damage!"
 else
  print "NPC Attacks YOU And MISSES! With a roll of "; Attack ;"!"
 endif
 if player_attacked =0
  if HP(pc) > 0
   player_attacked =1
   gosub _playerwins
  endif
 endif
return