oRA_Core = {}

oRA_Core.Const = {

	ChatCmd		= {"/ora"},
	
	ChatOpt 		= {},
	
	Title   		= "oRA_Core",
	Version 		= "0.0.1",
	Desc    		= "oRA_Core, a CT_RaidAssist clone",
	
}


oRA_Core.Modules = {}
oRA_Core.Checks = {}


local Const      = oRA_Core.Const
local Modules	= oRA_Core.Modules
local Checks	= oRA_Core.Checks


oRA_Core = AceAddon:new({

	name          = Const.Title,

	description   = Const.Desc,

	version       = Const.Version,

	releaseDate   = "",

	aceCompatible = 103,

	author        = "Haste",

	email         = "haste@haste3k.net",

	--defaults      = oRA_Core.Default,

	db            = AceDatabase:new("oRA_Core_DefaultDB"),
	cmd           = AceChatCmdClass:new(Const.ChatCmd,Const.ChatOpt),

	category      = "raid",

	

	Disable = function(self)

		self:DisableModules()

	end,

	

	Enable = function(self)

		self:EnableModules()

		
		self:RegisterEvent("CHAT_MSG_RAID", "raidParser")
		if(UnitInRaid("player") and self:GetOpt("channel")) then
			self:JoinChannel(self:GetOpt("SRaidChannel"))                
		elseif(self:GetOpt("SRaidChannel") and not UnitInRaid("player")) then
			self:LeaveChannel(self:GetOpt("SRaidChannel"))
		end

	end,

	
	raidParser = function(self)
		local start, endd, chan = string.find(arg1, "<CTMod> This is an automatic message sent by CT_RaidAssist. Channel changed to: (.+)")
		if(chan~=nil) then
			if(not self:GetOpt("SRaidChannel")) then
				self:JoinChannel(chan)
			elseif(self:GetOpt("SRaidChannel") and self:GetOpt("SRaidChannel")~=chan) then
				self:LeaveChannel(self:GetOpt("SRaidChannel"))
				self:JoinChannel(chan)
			else
				self:DistributeVersion()
			end
		end
	end,
	
	raidDistributeVersion = function(self)
		self:Send("V 0.01")
	end,
	
	JoinChannel = function(self, chan)
		self:SetOpt("SRaidChannel", chan)
		self:RegisterEvent("CHAT_MSG_CHANNEL", "raidParseMessage")
		self:DistributeVersion()
		JoinChannelByName(chan)
	end,
	
	LeaveChannel = function(self, currchan)
		self:UnregisterEvent("CHAT_MSG_CHANNEL")
		LeaveChannelByName(self:GetOpt("SRaidChannel"))
		self:SetOpt("SRaidChannel", nil)
	end,
	

	raidParseMessage = function(self)
		local args = { ["arg1"]=arg1, ["arg2"]=arg2, ["arg3"]=arg3, ["arg4"]=arg4, ["arg5"]=arg5, ["arg6"]=arg6, ["arg7"]=arg7, ["arg8"]=arg8, ["arg9"]=arg9 }

		if ( strlower(arg9) == strlower(self:GetOpt("SRaidChannel")) and arg1 and type(arg1) == "string" ) then

			if ( not arg1 ) then

				return

			end
			
			msg = self:Clean(arg1)
			
			for k,v in Checks do
				if (string.find(msg, v.regexp)) then
					self:TriggerEvent(v.event, args)
				end
			end

		end

	end,
	
	isValidRequest = function(self, name)
	    if( GetNumRaidMembers() == 0 ) then return FALSE end
	    for i = 1, GetNumRaidMembers(), 1 do
			local rostername, rank, subgroup, level, class, fileName, zone, online, isDead = GetRaidRosterInfo(i);
			if (rostername == name and rank > 0) then return TRUE end
		end
		return FALSE
	end,
	
	IsPromoted = function(self)
	    if(IsRaidLeader() or IsRaidOfficer()) then
			return TRUE
		else
		    self:Msg("You need to be promoted or be the raid leader!")
		end
	end,
	

	Send = function(self, msg)

		msg = string.gsub(msg, "|Hitem:%d+:%d+:%d+:%d+|h(%[[^%|]+%])|h", "%1")

		msg = string.gsub(msg, "|c%w%w%w%w%w%w%w%w([^%|]+)|r", "%1")

		msg = string.gsub(msg, "s", "$")

		msg = string.gsub(msg, "S", "§")

		

		SendChatMessage(msg, "CHANNEL", nil, GetChannelName(self:GetOpt("SRaidChannel")))

	end,
	
	Clean = function(self, sMsg)
		msg = string.gsub(sMsg, "%$", "s")
		msg = string.gsub(msg, "§", "S")
	
		if ( strsub(msg, strlen(msg)-7) == " ...hic!") then
			msg = strsub(msg, 1, strlen(msg)-8)
		end
		return msg
	end,





----------------------------

--			Module Loadup			--

----------------------------



	AddModule = function(module)

		tinsert(Modules, module)

	end,

	
	AddCheck = function(self, event, regexp)
		tinsert(Checks, { event=event, regexp=regexp })
	end,
	

	EnableModules = function()

		for k,v in Modules do v:Enable() end

	end,

	

	DisableModules = function()

		for k,v in Modules do v:Disable() end

	end,



})

----------------------------------
--			Load this bitch up!			--
----------------------------------
oRA_Core:RegisterForLoad()

----------------------------------
--			Utils						--
----------------------------------
ace:RegisterFunctions(oRA_Core, {
	version = 1.0,
	
	Msg = function(self, ...) self.cmd:msg(unpack(arg)) end,
	GetOpt = function(self, var) return self.db:get(self.profilePath,var) end,
	SetOpt = function(self, var,val) self.db:set(self.profilePath,var,val) end,
})