var roundnumber : int
var gamestatus : int
var playerhealth : int
var playerdamage : int
var playermana : int
var playeraction : int
var playerburn : int
var enemyhealth : int
var enemymana : int
var enemyaction : int
var enemyburn : int
var enemydamage : int
var burndamage : int
var start : string
var airand :int
roundnumber := 0
colorback(black)
color(white)
cls
proc setup
setscreen("graphics:800;600")
roundnumber := 1
gamestatus:=0
playerhealth := 250
enemyhealth := 250
playermana := 100
enemymana := 100
playerburn := 0
enemyburn := 0
playeraction := 0
enemyaction :=0
burndamage := 0
start := "p"
colorback(black)
color(white)
cls
end setup
proc input
var playerhealth : int
var roundnumber : int
var playermana : int
var playeraction : int
put "Round - ", roundnumber
put "Status: ", playerhealth, "/250 HP | ", playermana, "/100 MP"
put ""
put "What action would you like to take?"
put "1. Sword Attack (10-15 Damage)"
put "2. Lightning Magic (25-35 Damage, 10 Mana)"
put "3. Fireball Magic (20-30 Damage, 25 Mana, Causes Burning For 3 Rounds)"
put "4. Healing Magic (40-75 Healing, 20 Mana)"
put "5. Rest (10-20 Healing, Regain 20-30 Mana)"
put "6. Lay down your sword (Forfit the Game)"
get playeraction
end input

proc playersword
playerdamage := Rand.Int (10, 15)
enemyhealth := enemyhealth - playerdamage
put "You swing your sword at the enemy for ", playerdamage, ", leaving your enemy with ", enemyhealth, "/250 HP."
playerdamage := 0
if (enemyhealth < 1) then
gamestatus := 1
end if
end playersword

proc enemysword
enemydamage := Rand.Int (10, 15)
playerhealth := playerhealth - enemydamage
put "The enemy swings it's sword at you for ", enemydamage, ", leaving you ", playerhealth, "/250 HP."
enemydamage:= 0
if (playerhealth < 1) then
gamestatus := 2
end if
end enemysword

proc playerlightning
playerdamage := Rand.Int (25, 35)
enemyhealth := enemyhealth - playerdamage
playermana := playermana - 10
put "Lightning strikes the enemy for ", playerdamage, ", leaving your enemy with ", enemyhealth, "/250 HP."
put "You are drained of 10 mana, leaving you with ", playermana, "/100 MP."
if (enemyhealth < 1) then
gamestatus := 1
end if
end playerlightning

proc enemylightning
enemydamage := Rand.Int (25, 35)
playerhealth := playerhealth - enemydamage
enemymana := enemymana - 10
put "Lightning strikes you for ", enemydamage, ", leaving you with ", playerhealth, "/250 HP."
put "Your enemy is drained of 10 mana, leaving it with ", enemymana, "/100 MP."
if (playerhealth < 1) then
gamestatus := 2
end if
end enemylightning

proc playerfireball
playerdamage := Rand.Int (20, 30)
enemyhealth := enemyhealth - playerdamage
playermana := playermana - 25
enemyburn := 3
put "A fireball hits the enemy for ", playerdamage, ", leaving your enemy with ", enemyhealth, "/250 HP."
put "You are drained of 25 mana, leaving you with ", playermana, "/100 MP."
put "The enemy will continue to burn for the next three rounds"
if (enemyhealth < 1) then
gamestatus := 1
end if
end playerfireball

proc playerburnproc
if (playerburn < 0) then
playerburn := playerburn - 1
burndamage := Rand.Int (5, 10)
playerhealth := playerhealth - burndamage
put "You have been burned for ", burndamage, ", leaving you with ", playerhealth, "/250 HP."
if (playerburn < 0) then
put "You will continue to burn for ", playerburn, " rounds."
else
put "The flames on your body have extinguished!"
end if
end if
end playerburnproc
 
proc enemyfireball
enemydamage := Rand.Int (20, 30)
playerhealth := playerhealth - enemydamage
enemymana := enemymana - 25
playerburn := 3
put "A fireball hits you for ", enemydamage, ", leaving you with ", playerhealth, "/250 HP."
put "Your enemy is drained of 25 mana, leaving it with ", enemymana, "/100 MP."
put "You will continue to burn for the next three rounds"
if (playerhealth < 1) then
gamestatus := 2
end if
end enemyfireball

proc enemyburnproc
if (enemyburn < 0) then
enemyburn := enemyburn - 1
burndamage := Rand.Int (5, 10)
enemyhealth := enemyhealth - burndamage
put "The enemy has been burned for ", burndamage, ", leaving your enemy with ", enemyhealth, "/250 HP."
if (enemyburn < 0) then
put "Your enemy will continue to burn for ", enemyburn, " rounds."
else
put "The flames on your enemy's body have extinguished!"
end if
end if
end enemyburnproc

proc playerheal
playerdamage := Rand.Int (40, 70)
playerhealth := playerhealth + playerdamage
if (playerhealth > 250) then
playerhealth := 250
end if
playermana := playermana - 20
put "A wave of magic passes over you, healing you for ", playerdamage, ", leaving you with ", playerhealth, "/250 HP."
put "You are drained of 20 mana, leaving you with ", playermana, "/100 MP."
end playerheal

proc enemyheal
enemydamage := Rand.Int (40, 70)
enemyhealth := enemyhealth + enemydamage
if (enemyhealth > 250) then
enemyhealth := 250
end if
enemymana := enemymana - 20
put "A wave of magic passes over your enemy, healing it for ", enemydamage, ", leaving it with ", enemyhealth, "/250 HP."
put "Your enemy is drained of 20 mana, leaving it with ", enemymana, "/100 MP."
end enemyheal

proc playerrest
playerdamage := Rand.Int (10, 20)
playerhealth := playerhealth + playerdamage
if (playerhealth > 250) then
playerhealth := 250
end if
put "As you sit and meditate you feel your health slowly returning for ", playerdamage, ", leaving you with ", playerhealth,"/250 HP."
playerdamage := Rand.Int (1,3)
if (playerdamage = 1) then
playerdamage := 20
put "Your mana likewise returns to you for ", playerdamage, ", leaving you with ", playerhealth,"/250 HP."
else if (playerdamage = 1) then
playerdamage := 25
put "Your mana likewise returns to you for ", playerdamage, ", leaving you with ", playerhealth,"/250 HP."
else
playerdamage := 30
put "Your mana likewise returns to you for ", playerdamage, ", leaving you with ", playerhealth,"/250 HP."
end if
end if
end playerrest

proc enemyrest
enemydamage := Rand.Int (10, 20)
enemyhealth := enemyhealth + enemydamage
if (enemyhealth > 250) then
enemyhealth := 250
end if
put "As you sit and meditate you feel your health slowly returning for ", enemydamage, ", leaving you with ", enemyhealth,"/250 HP."
enemydamage := Rand.Int (1,3)
if (enemydamage = 1) then
enemydamage := 20
put "Your mana likewise returns to you for ", enemydamage, ", leaving you with ", enemyhealth,"/250 HP."
else if (enemydamage = 1) then
enemydamage := 25
put "Your mana likewise returns to you for ", enemydamage, ", leaving you with ", enemyhealth,"/250 HP."
else
enemydamage := 30
put "Your mana likewise returns to you for ", enemydamage, ", leaving you with ", enemyhealth,"/250 HP."
end if
end if
end enemyrest

proc playerforfit
gamestatus := 3
end playerforfit

proc aiheal
var enemymana :int
if (enemymana >= 20) then
enemyheal
else
enemyrest
end if
end aiheal

proc airest
enemyrest
end airest

proc aifight
airand := Rand.Int (1,3)
if (airand = 1) then
if (playerburn = 0) then
if (enemymana >= 25)then
enemyfireball
else
airest
end if
else
enemysword
end if
else if (airand = 2) then
if (enemymana >= 10) then
enemylightning
else
airest
end if
else
enemysword
end if
end if
end aifight

proc enemyai
if (enemyhealth >= 190) then
if (enemymana >= 75) then
aifight
else if (enemymana >= 50 and enemymana < 75) then
airand := Rand.Int (1,2)
if (airand = 1) then
aifight
else
airest
end if
else if (enemymana >= 25 and enemymana < 50) then
airand := Rand.Int (1,4)
if (airand = 1) then
aifight
else
airest
end if
else if (enemymana < 25) then
end if
end if
end if
end if
end if
end enemyai


proc playerrun
if (playeraction = 1) then
playersword
else if (playeraction = 2) then
playerlightning
else if (playeraction = 3) then
playerfireball
else if (playeraction = 4) then
playerheal
else if (playeraction = 5) then
playerrest
else if (playeraction = 6) then
playerforfit
end if
end if
end if
end if
end if
end if
end playerrun

proc gamestart
for colorloop : 1 .. 2
locate(6, 42)
color(colorloop)
put "RPG GAME V.01"
put "By: Cody Veal"
delay(50)
cls
end for
color(white)
delay(1000)
cls
put "Would you like to start new game? (y/n)" ..
get start
end gamestart

proc game
loop
roundnumber := roundnumber + 1
if (roundnumber = 1) then
setup
end if
input
enemyai
playerburnproc
playerrun
enemyburnproc
exit when gamestatus < 0
end loop
end game

proc flash (flashtext : string)
loop
for flashcolor : 20 .. 255
cls
locate(18,42)
color(flashcolor)
put flashtext
end for
end loop
end flash

proc gamefinish
if (gamestatus = 1) then
flash ("YOU WIN!")
else if (gamestatus = 2) then
color(red)
locate(18,40)
put "You have been defeated..."
else
color(red)
locate(18,40)
put "You lay down your sword in sumbmission to the enemy..."
end if
end if
end gamefinish

proc main
gamestart
game
gamefinish
end main

main