MonkCombo(Alpha)

--[[
	Combo Monk for ArchlightOnline
	(Public Version)
	By Mr Trala
]]

config = {
	ManaRune = 11607, -- ID of your manarune.
	ManaCAST = 80, -- x% mana to use manarune.

-- Healing Config
    Quick = 90, -- x% health to use Quick Prayer.
    Pray = 80, -- x% health to use Prayer.
    BlessS = 50, -- x% health to use Blessing Spring.
	StrongB = 60 -- x% health to use Strong Blessing Spring.
}

--[[
	Change Log;

1.0 -- First version, added Combo punches module.
1.0.1 -- Added a healer.
1.0.2 -- First stable version (With healer and low lvl combo)
1.0.3 -- Made changes to the healer.
1.0.4 -- Added Focus module.

]]

-- Don't touch anything below this line if you don't know what are you doing.
spells = {
	-- Exhausteds
	StrongFPEX = 'exura gran ico', -- Strong Flurry of Punches
	FlurryPEX = 'exori ico', -- Flurry of Punches
	MinFPEX = 'exori gran ico', -- Min Flurry of Punches

	-- Words
	StrongFPWD = 'Strong Flurry of Punches',
	FlurryPWD = 'Flurry of Punches',
	MinFPWD = 'Min Flurry of Punches',

	-- Healers
	QuickEX = 'exura san', -- Quick Pray
    PrayEX = 'exura ico', -- Prayer
    BlessEX = 'exura gran mas res', -- Blessing spring
	StrongBEX = 'utura gran',-- Strong Blessing Spring

    QuickW = 'Quick Prayer',
    PrayW = 'Prayer',
    BlessW = 'Blessing Spring',
	StrongBEW = 'Strong Blessing Spring'
}

-- Shorts
x = config
s = spells
Cool = Self.GetSpellCooldown
version = '1.0.4A'

function onSpeak(channel, message)
	-- receives the channel object that called it and the message that was inputted.
	if (message == '/list') then
		channel:SendYellowMessage('List of Modules', '\n'..
		'Combo -- Basic combo for Monks (Basic 3 punches).\n'..
		'Healer -- This is your healer, dont turn it off, if you dont want to die thats it.\n'..
		'Focus -- A module to keep using Focused Art (enabled by default).\n'..
		'Train -- Use this one to start the training module (exura san + utana vid).\n')
	end

	-- Modules
	if (message == '/start Combo') or (message == 'Combo') or (message == 'combo') then
		Module.Start('Combo')
		channel:SendYellowMessage('Mr Trala', 'The module with the name "Combo" has been started.')

	elseif (message == '/stop Combo') or (message == '/stop combo') then
		Module.Stop('Combo')
		channel:SendRedMessage('Mr Trala', 'The module with the name "Combo" has been stopped.')

	elseif (message == '/start Focus') or (message == 'Focus') or (message == 'focus') then
		Module.Start('Focus')
		channel:SendYellowMessage('Mr Trala', 'The module with the name "Focus" has been started.')

	elseif (message == '/stop Focus') or (message == '/stop focus') then
		Module.Stop('Focus')
		channel:SendRedMessage('Mr Trala', 'The module with the name "Focus" has been stopped.')

	elseif (message == '/start Healer') or (message == 'Healer') or (message == 'healer') then
		Module.Start('Healer')
		channel:SendYellowMessage('Mr Trala', 'The module with the name "Healer" has been started.')

	elseif (message == '/stop Healer') or (message == '/stop healer') then
		Module.Stop('Healer')
		channel:SendRedMessage('Mr Trala', 'The module with the name "Healer" has been stopped.')


	end
end

function ReOpen()
local customChannel = Channel.New('Monk Channel', onSpeak, onClose)
customChannel:SendYellowMessage('Mr Trala', 'Welcome to the Monk Combo Script, configured specifically for ArchlightOnline.\n'..
		'This Script has been made by Mr Trala, and you are using the Version '..version..'\n'..
		'If you found any bug send a message to Mr Trolo in Archlight.\n')
customChannel:SendOrangeMessage('Instructions', '\n'..
		'Write /list if you want to see a list of the modules you can use\n'..
		'You can start or stop a Module with the command /start or /stop\n')
end

function onClose(channel)
     -- receives the channel object that called it
     print('To close '..channel:Name()..' you need to kill the script.')
	 ReOpen()
end

local customChannel = Channel.New('Monk Channel', onSpeak, onClose)
customChannel:SendYellowMessage('Mr Trala', 'Welcome to the Monk Combo Script, configured specifically for ArchlightOnline.\n'..
		'This Script has been made by Mr Trala, and you are using the Version '..version..'\n'..
		'If you found any bug send a message to Mr Trolo in Archlight.\n')
customChannel:SendOrangeMessage('Instructions', '\n'..
		'Write /list if you want to see a list of the modules you can use\n'..
		'You can start or stop a Module with the command /start or /stop\n')

-- Functions
function Combo()
local c = Creature.GetByID(Self.TargetID())
	if c:isValid() and c:isAlive()  and c:isTarget() and c:DistanceFromSelf() == 1 then
		if Cool(s.StrongFPEX) >= 1 and Cool(s.FlurryPEX) >= 1 and Cool(s.MinFPEX) == 0 then
			Self.Cast(s.MinFPWD)
			Healer2()

		elseif Cool(s.StrongFPEX) == 0 then
			Self.Cast(s.StrongFPWD)
			Healer2()

		elseif Cool(s.StrongFPEX) >= 1  and Cool(s.FlurryPEX) == 0 then
			Self.Cast(s.FlurryPWD)
			Healer2()
		end
	end
end

function Healer2()
	if Self.Health() < x.StrongB and Cool(s.StrongBEX) == 0 and Self.Level() >= 1500 then
		Self.UseItem(x.ManaRune)
		Self.Say(s.StrongBEW)
    end

    if Self.Health() < x.BlessS and Cool(s.BlessEX) == 0 and Self.Level() >= 1000 then
        Self.UseItem(x.ManaRune)
        Self.Say(s.BlessW)
     end

    if Self.Health() < x.Pray and Cool(s.PrayEX) == 0 then
        Self.UseItem(x.ManaRune)
        Self.Say(s.PrayW)
	end

	if Self.Health() < x.Quick and Cool(s.QuickEX) == 0 then
        Self.UseItem(x.ManaRune)
        Self.Say(s.QuickW)
	end

	if Self.Mana() <= x.ManaCAST then
		Self.UseItem(x.ManaRune)
	end
end

Module('Combo', Combo, false)

function FocusT()
local mana = 5
	if(Self.Mana() >= mana) then
		Self.Cast("Focused Art")
	end
end

Module.New('Focus', function(Mod)
local exaus = 20
	if Self.CanCastSpell('Utani Hur') then
		FocusT()
		Healer2()
		Mod:Delay((exaus * 1000), (exaus * 1000) + 200)
	end
end, true)

Module('Healer', function(mod)
	if Self.Health() < x.StrongB and Cool(s.StrongBEX) == 0 and Self.Level() >= 1500 then
		Self.UseItem(x.ManaRune)
		Self.Say(s.StrongBEW)
    end

    if Self.Health() < x.BlessS and Cool(s.BlessEX) == 0 and Self.Level() >= 1000 then
        Self.UseItem(x.ManaRune)
        Self.Say(s.BlessW)
     end

    if Self.Health() < x.Pray and Cool(s.PrayEX) == 0 then
        Self.UseItem(x.ManaRune)
        Self.Say(s.PrayW)
	end

	if Self.Health() < x.Quick and Cool(s.QuickEX) == 0 then
        Self.UseItem(x.ManaRune)
        Self.Say(s.QuickW)
	end

	if Self.Mana() <= x.ManaCAST then
		Self.UseItem(x.ManaRune)
	end
end, true)