battle

--Mob: Buckley
local Buckley = {
  name = "Buckley",
  HP = 40000,
  ATK = 500,
  skill1Dam = math.random(1,20) * 350,
  skill1Atri = steel,
  skill1Area = false,
  skill1Name = "Silver River",
  skill1Use = false,
  skill2Dam = 3000,
  skill2Atri = steel,
  skill2Area = false,
  skill2Name = "Shining Silver",
  skill2Use = false,
  atri = steel,
}


--Mob: Angeling
local Angeling = {
  name = "Angeling",
  HP = 8000,
  ATK = 200,
  skill1Dam = 450,
  skill1Atri = light,
  skill1Area = false,
  skill1Name = LexAeterna,
  skill1Use = false,
  skill2Dam = 600,
  skill2Atri = light,
  skill2Area = true,
  skill2Name = "Kyrie Eleison",
  skill2Use = false,
  skill3Dam = 300,
  skill3Atri = normal,
  skill3Area = false,
  skill3Name = "Tackle",
  skill3Use = false,
  atri = light,
}

local First = {
  name = "",
  HP = "",
  MP = "",
  ATK = "",
  INT = "",
  LUCK = "",
}

local Second = {
  name = "",
  HP = "",
  MP = "",
  ATK = "",
  INT = "",
  LUCK = "",
}

local Third = {
  name = "",
  HP = "",
  MP = "",
  ATK = "",
  INT = "",
  LUCK = "",
}



  --Main Code/Functions--
function clear()
term.clear()
term.setCursorPos(1,1)
end


  --Collor Functions--
function w()
term.setTextColor(1)
end

function y()
term.setTextColor(16)
end

function b()
term.setTextColor(32768)
end

function r()
term.setTextColor(16384)
end

function p()
term.setTextColor(1024)
end

--Press to continue function
function press()
write ("Press any button to continue!")
os.pullEvent("key")
end

--Head Function

function Head()
y()
clear()
term.setCursorPos(3,1)
print ("RPG AI v1.0: ")
print ()
term.setCursorPos(1,3)
w()
end


--Collect Info Function
function collect(obj)
Head()
local player = obj
write (obj.." player: ")
obj.name = read()
print()
write ("Total Health: ")
obj.HP = tonumber(read())
write ("Total Mana: ")
obj.MP = tonumber(read())
write ("Attack Base: ")
obj.ATK = tonumber(read())
write ("Intelligence: ")
obj.INT = tonumber(read())
write ("Luck: ")
obj.LUCK = tonumber(read())
sleep(1)
end

function printInfo(obj)
Head()
print (obj.."'s Info:")
print ()
print ("HP: "..obj.HP)
print ("MP: "..obj.MP)
print ("ATK: "..obj.ATK)
print ("INT: "..obj.INT)
print ("Luck: "..obj.LUCK)
print ()
sleep(1)
write ("Everything correct? ")
local correct = read()
if correct == "Yes" or "yes" or "yep" or "correct" then
print ("Done.")
sleep(2)
clear()
elseif correct == "No" or "no" or "nop" or "incorrect" then
print ("Correct what you need.")
press()
collect(obj)
end
end


collect(First)
printInfo(First)
collect(Second)
printInfo(Second)
collect(Third)
printInfo(Third)


Head()
print ("Info collected!")
press()
clear()

--PlayersName
local players = {first, second, third}


--Ask for Mob

clear()
Head()
write ("Monster: ")
local mob = read()


--Dices and Mult

function random20()
local d20 = math.random(1,20)
return d20
end

function random10()
local d10 = math.random(1,10)
return d10
end

local crit = 2


--Battle Function (Buckley)
function StartBattleBuckley()
clear()
Head()
print ("Battle engage!")
print ()
print ("Buckley HP: "..BuckleyH.." HP")
print ("Buckley ATK: "..BuckleyA.." ATK")
print ()
end

--Buckley's Visual Interface--
function BuckleyHead()
Head()
p()
write ("[--!Buckley Battle!--]")
w()
print ()
print ("  HP: [/////"..BuckleyH.."/////]")
print ("  ATK: "..BuckleyA)
print ()
print ("----------------------------------------------")
print ()
sleep(1.5)
end

function BuckleyHead1()
Head()
p()
write ("[--!Buckley Battle!--]")
y()
write ("   [--!"..first.."'s Attack!--]")
w()
print ()
write ("HP: [/////"..BuckleyH.."/////]   ")
print ("    HP: [/////"..firstHP.."/////]")
write ("  ATK: "..BuckleyA.."    ")
write ("                ATK: "..firstATK)
print ()
print ("----------------------------------------------")
print ()
sleep(0.3)
end

function BuckleyHead2()
Head()
p()
write ("[--!Buckley Battle!--]")
y()
write ("   [--!"..second.."'s Attack!--]")
w()
print ()
write ("HP: [/////"..BuckleyH.."/////]   ")
print ("    HP: [/////"..secondHP.."/////]")
write ("  ATK: "..BuckleyA.."    ")
write ("                ATK: "..secondATK)
print ()
print ("----------------------------------------------")
print ()
sleep(0.3)
end


--Function First Player Attack!

local BuckleyH, finalFirstAttack

local function FirstAttack()
BuckleyHead1()
sleep(1)
print ("Dice (20): "..d20)
--Critical Hit
for i = 5,9 do
if d10 == i then
print ("Dice (10): "..d10)
print (" ")
sleep(0.5)
y()
print ("Critical Hit!")
w()
print (" ")
sleep(0.3)
local d20 = d20()
local finalFirstAttack = d20()/10 * firstATK * crit
print ("Final attack: "..finalFirstAttack)
print ()
local BuckeyH = BuckleyH - finalFirstAttack
print ()
return finalFirstAttack, Buckleyh
--Super Attack
elseif d10 == 10 then
print ("Dice (10): "..d10)
print (" ")
sleep(0.5)
r()
print ("Super attack!")
w()
print (" ")
sleep(0.3)
local finalFirstAttack = d20p10 * firstATK * 4
print ("Mult. 4x!")
print ("Final attack: "..finalFirstAttack)
local BuckeyH = BuckleyH - finalFirstAttack
print ()
return finalFirstAttack, Buckleyh
elseif d10<=4 then
print ("Dice (10): "..d10)
print (" ")
sleep(0.3)
local d20 = d20()
local finalFirstAttack = d20p10 * firstATK
print ("Final attack: "..finalFirstAttack)
print ()
local BuckeyH = BuckleyH - finalFirstAttack
print ()
return finalFirstAttack, Buckleyh
end
end
end

--Function Second Player Attack

local BuckleyH, finalSecondAttack

local function SecondAttack()
BuckleyHead2()
sleep(1)
print ("Dice (20): "..d20)
--Critical Hit
for i = 5,9 do
if d10 == i then
print ("Dice (10): "..d10)
print (" ")
sleep(0.5)
y()
print ("Critical Hit!")
w()
print (" ")
sleep(0.3)
local d20 = d20()
local finalSecondAttack = d20()/10 * secondATK * crit
print ("Final attack: "..finalSecondAttack)
print ()
local BuckeyH = BuckleyH - finalSecondAttack
print ()
return finalSecondAttack, Buckleyh
--Super Attack
elseif d10 == 10 then
print ("Dice (10): "..d10)
print (" ")
sleep(0.5)
r()
print ("Super attack!")
w()
print (" ")
sleep(0.3)
local d20 = d20()
local finalSecondAttack = d20()/10 * secondATK * 4
print ("Mult. 4x!")
print ("Final attack: "..finalSecondAttack )
local BuckeyH = BuckleyH - finalSecondAttack
print ()
return finalSecondAttack, Buckleyh
elseif d10<=4 then
print ("Dice (10): "..d10)
print (" ")
sleep(0.3)
local d20 = d20()
local finalSecondAttack = d20()/10 * secondATK * crit
print ("Final attack: "..finalSecondAttack)
local BuckeyH = BuckleyH - finalSecondAttack
print ()
return finalSecondAttack, Buckleyh
end
end
end



--Function Ask (Attack or Skill)

function aos()
BuckleyHead()
print (first.."'s turn!")
w()
print (" ")
print ("What will "..first.." do?")
write ("Attack/Skill? ")
local aos = read()
if aos == "Attack" or "Attack Buckley" or "attack" or "melee" or "Melee" then
FirstAttack()
print ()
press()
elseif aos == "Skill" or "skill" or "use skill" or "Use skill" or "use skill at buckley" or "Use skill at Buckley" then
print ("Skill feature not ready!")
else
print ("Please, give a correct command!")
sleep(1.5)
clear()
aos2()
end
end

function aos2()
Head()
print (first.." turn!")
print (" ")
print ("What will "..first.." do?")
write ("Attack/Skill? ")
local aos = read()
if aos == "Attack" or "Attack Buckley" or "attack" or "melee" or "Melee" then
clear()
FirstAttack()
elseif aos == "Skill" or "skill" or "use skill" or "Use skill" then
print ("Skill feature not ready!")
else
print ("Please, give a correct command!")
sleep(1.5)
clear()
aos2()
end
end

function aos3()
BuckleyHead()
print (second.."'s turn!")
w()
print (" ")
print ("What will "..second.." do?")
write ("Attack/Skill? ")
local aos = read()
if aos == "Attack" or "Attack Buckley" or "attack" or "melee" or "Melee" then
SecondAttack()
--Here
press()
elseif aos == "Skill" or "skill" or "use skill" or "Use skill" or "use skill at buckley" or "Use skill at Buckley" then
print ("Skill feature not ready!")
else
print ("Please, give a correct command!")
sleep(1.5)
clear()
aos2()
end
end

function aos4()
Head()
print (second.." turn!")
print (" ")
print ("What will "..second.." do?")
write ("Attack/Skill? ")
local aos = read()
if aos == "Attack" or "Attack Buckley" or "attack" or "melee" or "Melee" then
clear()
SecondAttack()
elseif aos == "Skill" or "skill" or "use skill" or "Use skill" then
print ("Skill feature not ready!")
else
print ("Second attempt incorrect!")
print ("Restarting program!")
sleep(1.5)
shell.run("battle")
end
end

--Buckley Math Result First Attack
function BuckleyAttackResult1()
  local FirstAttackDam = FirstAttack()
  local BuckleyH = BuckleyH - FirstAttack()
  print ("Buckley HP: "..BuckleyH)
  print ("Buckley ATK: "..BuckleyATK)
end

--Asking for mob



if mob == "Buckley" then
print ()
print ("Loading Buckley...")
sleep(1.5)
clear()
StartBattleBuckley()
aos()



elseif mob == "Angeling" then
clear()
print ("Angeling not implemented yet.")
else
print ("Database does not contain that mob!")
print ("Update it, doing 'edit battle'.")
end