require("Data/BasicCommands")
IsEvent=true
event={
	Active=true,
	CT=false,
	tag={},
	Events={},
	EventTracker={},
	Steps={},
	TSteps={},
	LoadOrder="/E/S/U",-- types = ESU,EUS,USE,UES,SEU,SUE
	setLoadOrder=function(self,str) event.LoadOrder=string.upper(str) end,
	DO_Order=function() LoadOrder=event.LoadOrder LoadOrder=LoadOrder:gsub("/E", "event.RUN_EVENTS(); ") LoadOrder=LoadOrder:gsub("/S", "event.RUN_STEPS(); ") LoadOrder=LoadOrder:gsub("/U", "event.RUN_UPDATES(); ") assert(loadstring(LoadOrder))() end,
	RUN_EVENTS=function() for d=1,#event.Events do assert(loadstring(event.Events[d]))() end end,
	RUN_STEPS=function() for s_g=1,#event.Steps do event.Steps[s_g]:Step() end end,
	RUN_UPDATES=function() event.OnUpdate() end,
	setAlarm=function(self,tag,set) event:new("Alarm_"..tag.."(\""..tag.."\")",[[GetCounter(event:getTracker("_Alarm_]]..tag..[["))>=]]..set,[[event:removeAlarm("]]..tag..[[")]]) event:addTracker("_Alarm_"..tag,SetCounter()) assert(loadstring("if Alarm_"..tag.."==nil then function Alarm_"..tag.."() print('No function \"Alarm_"..tag.."()\" exists make sure you created it') end end"))() end,
	setEvent=function(self,fname,condition,also) if not(string.find(fname,"(",1,true)) and not(string.find(fname,")",1,true)) then fname=fname.."()" end a=string.find(fname,"(",1,true) tempstr=string.sub(fname,1,a-1) event:new("Event_"..fname,condition,also) assert(loadstring("if Event_"..tempstr.."==nil then function Event_"..tempstr.."() print('No function \"Event_"..tempstr.."()\" exists make sure you created it') end end"))() end,
	removeAlarm=function(self,tag) event:destroy("Alarm_"..tag) event:removeTracker("_Alarm_"..tag) end,
	updateAlarm=function(self,tag,set) event:removeAlarm(tag) event:setAlarm(tag,set) end,
	addTracker=function(self,varname,var) event.EventTracker[varname]=var end,
	getTracker=function(self,varname) return event.EventTracker[varname] end,
	removeTracker=function(self,var) event.EventTracker[var]=nil end,
	trackerExist=function(self,tag) return event.EventTracker[tag]~=nil end,
	updateTracker=function(self,tag,val) if event:trackerExist(tag) then event.EventTracker[tag]=val end end,
	alarmExist=function(self,tag) return (event:getTracker("_Alarm_"..tag)~=nil) end,
	new=function(self,fname,condition,also) if not(also) then also="" end table.insert(self.Events,"if "..condition.." then "..also.." "..fname.." end") table.insert(event.tag,fname) end,
	eventExist=function(self,tag) for j=1,#event.tag do if event.tag[j]==tag then return true end end return false end,
	destroy=function(self,tag) for j=1,#event.tag do if event.tag[j]==tag then table.remove(event.tag,j) table.remove(event.Events,j) end end end,
	Stop=function() event.Active=false end,
	OnCreate=function() end,
	OnUpdate=function() end,
	OnClose=function() end,
	getActive=function() return event.tag end,
	Manager=function() event.OnCreate() while event.Active==true do event.DO_Order() end event.OnClose() end,
	--Manager=function() event.OnCreate() while event.Active==true do for d=1,#event.Events do if event.Active==true then assert(loadstring(event.Events[d]))() end end for s_g=1,#event.Steps do event.Steps[s_g]:Step() end event.OnUpdate() end event.OnClose() end,
	CManager=function() for d=1,#event.Events do if event.Active==true then assert(loadstring(event.Events[d]))() end end for s_g=1,#event.Steps do event.Steps[s_g]:Step() end event.OnUpdate() end,
	UManager=function() if event.CT==false then event.CT=true event.OnCreate() end for d=1,#event.Events do if event.Active==true then assert(loadstring(event.Events[d]))() end end for s_g=1,#event.Steps do event.Steps[s_g]:Step() end event.OnUpdate() end,
	createStep=function(self,tag,reset,skip,endc)
		if not(endc) then endc=false end
			temp=
			{
				Name=tag,
				pos=1,
				endAt=reset or math.huge,
				active=true,
				endc=endc,
				skip=skip or 0,
				spos=0,
			Step=function(self) if self~=nil then if self.spos==0 then _G.__CStep__=self if self.active==true then assert(loadstring("Step_"..tag.."("..self.pos..",__CStep__)"))() self.pos=self.pos+1 end end if self.endAt+1<=self.pos then self:Reset() if endc==true then assert(loadstring("Step_"..self.Name.."_End(__CStep__)"))() end end end self.spos=self.spos+1 if self.spos>=self.skip then self.spos=0 end end,
			FStep=function(self) if self~=nil then if self.spos==0 then _G.__CStep__=self assert(loadstring("Step_"..tag.."("..self.pos..",__CStep__)"))() self.pos=self.pos+1 end end if self.endAt+1<=self.pos then self:Reset() if endc==true then assert(loadstring("Step_"..self.Name.."_End(__CStep__)"))() end end self.spos=self.spos+1 if self.spos>=self.skip then self.spos=0 end end,
			Remove=function(self) for as=1,#event.Steps do if event.Steps[as].Name==self.Name then table.remove(event.Steps,as) end end end,
			Reset=function(self) self.pos=1 end,
			Set=function(self,amt) self.pos=amt end,
			Pause=function(self) self.active=false end,
			Resume=function(self) self.active=true end,
			Stop=function(self) self:Reset() self:Pause() end,
			Start=function(self) self:Resume() end,
			End=function(self) self.pos=self.EndAt self.endc=true end,
			}
			table.insert(event.Steps,temp) return temp end,
	createTStep=function(self,tag,reset,timer,endc)
		if not(endc) then endc=false end
			timer=timer or 1
			temp=
			{
				Name=tag,
				pos=1,
				endAt=reset or math.huge,
				active=true,
				endc=endc,
				skip= 0,
				spos=0,
			Step=function(self) if self~=nil then if self.spos==0 then _G.__CStep__=self if self.active==true then assert(loadstring("TStep_"..tag.."("..self.pos..",__CStep__)"))() self.pos=self.pos+1 end end if self.endAt+1<=self.pos then self:Reset() if endc==true then assert(loadstring("TStep_"..self.Name.."_End(__CStep__)"))() end end end self.spos=self.spos+1 if self.spos>=self.skip then self.spos=0 end end,
			FStep=function(self) if self~=nil then if self.spos==0 then _G.__CStep__=self assert(loadstring("TStep_"..tag.."("..self.pos..",__CStep__)"))() self.pos=self.pos+1 end end if self.endAt+1<=self.pos then self:Reset() if endc==true then assert(loadstring("TStep_"..self.Name.."_End(__CStep__)"))() end end self.spos=self.spos+1 if self.spos>=self.skip then self.spos=0 end end,
			Remove=function(self) for as=1,#event.Steps do if event.Steps[as].Name==self.Name then table.remove(event.Steps,as) end end end,
			Reset=function(self) self.pos=1 end,
			Set=function(self,amt) self.pos=amt end,
			Pause=function(self) self.active=false end,
			Resume=function(self) self.active=true end,
			Stop=function(self) self:Reset() self:Pause() end,
			Start=function(self) self:Resume() end,
			End=function(self) self.pos=self.EndAt self.endc=true end,
			}
			event:setAlarm("TStep_"..tag,timer)
			event:addTracker("_TStep_"..tag,temp)
			table.insert(event.TSteps,temp)
			assert(loadstring("function Alarm_TStep_"..tag.."(alarm) event:getTracker(\"_\"..alarm):Step()  event:setAlarm(alarm,"..timer..") end"))()
			return temp end,
	stepExist=function(self,tag)
		for a_s=1,#event.Steps do
			if event.Steps[a_s].Name==tag then
				return true
			end
		end
		return false
	end,
}