SolarStrike Software

Code: Select all

function GetMobDrops(MobID)

	-- loading the MySQL dll
	assert (package.loadlib ("luasql/mysql.dll", "luaopen_luasqlmysql")) ()
	env = assert(luasql.mysql())
	con = assert(env:connect("RoM_db","user","pass","localhost","3306"))

	cur = assert (con:execute"SELECT mob_id, mob_name, item_name FROM mob_drops WHERE `mob_id` = '"..MobID.."'")
	row = cur:fetch ({}, "a")
	while row do
		local OutputMessage = string.format("%s drops: %s", row.mob_name, row.item_name)
		DEFAULT_CHAT_FRAME:AddMessage(OutputMessage);
		row = cur:fetch (row, "a")
	end
	cur:close()
	con:close()
	env:close()

end

Code: Select all

RoMScript("DEFAULT_CHAT_FRAME:AddMessage("..OutputMessage..");")

Code: Select all

RoMScript("GetMobDrops(MobID)")

Code: Select all

<?xml version="1.0" encoding="utf-8"?><waypoints type="TRAVEL">
	<onLoad><![CDATA[
	--=== key usage ===--
	--=== fly  		NUMPAD1 ===--
	--=== flyoff  	NUMPAD2 ===--
	--=== speed  	NUMPAD4 ===--
	--=== speedoff  NUMPAD5 ===--
	
cprintf(cli.blue, "Press numpad 1 to fly\n")
cprintf(cli.blue, "Press numpad 2 to not fly\n")
cprintf(cli.green, "Press numpad 4 to run fast\n")
cprintf(cli.green, "Press numpad 5 to walk normal speed\n")
cprintf(cli.red, "Press Ctrl + L to exit\n")
	
	
	local delay = 1 -- time between key presses.
	local time = os.time()
	while(true) do

		if keyPressed(key.VK_NUMPAD1) and (os.time() - time > delay ) then
			fly()
			time = os.time()
		end
		if keyPressed(key.VK_NUMPAD2) and (os.time() - time > delay ) then
			flyoff()
			time = os.time()
		end
		if keyPressed(key.VK_NUMPAD4) and (os.time() - time > delay ) then
			speed("on")
			time = os.time()
		end		
		if keyPressed(key.VK_NUMPAD5) and (os.time() - time > delay ) then
			speed("off")
			time = os.time()
		end	
		if keyPressed(key.VK_NUMPAD6) and (os.time() - time > delay ) then
			speed(70)
			time = os.time()
		end	
	end
	]]></onLoad>
</waypoints>

Code: Select all

<?xml version="1.0" encoding="utf-8"?><waypoints type="TRAVEL">
  <onLoad>
function GetMobDrops(MobID)

   -- loading the MySQL dll
   assert (package.loadlib ("luasql/mysql.dll", "luaopen_luasqlmysql")) ()
   env = assert(luasql.mysql())
   con = assert(env:connect("RoM_db","user","pass","localhost","3306"))

   cur = assert (con:execute"SELECT mob_id, mob_name, item_name FROM mob_drops WHERE `mob_id` = '"..MobID.."'")
   row = cur:fetch ({}, "a")
   while row do
      local OutputMessage = string.format("%s drops: %s", row.mob_name, row.item_name)
      cprintf(cli.blue, "" .. OutputMessage .. "\n");
      row = cur:fetch (row, "a")
   end
   cur:close()
   con:close()
   env:close()

end

   
cprintf(cli.blue, "Press J to launch function\n")
   
   
   local delay = 1 -- time between key presses.
   local time = os.time()
   while(true) do

    if keyPressed(key.VK_J) and (os.time() - time > delay ) then
        GetMobDrops(1) -- 1 for the example
		time = os.time()
	end 
   end
 </onLoad>
</waypoints>

Code: Select all

EventMonitorStart("MyFunction", "CHAT_MSG_SYSTEM");
local time, moreToCome, name, msg = EventMonitorCheck("MyFunction", "MyFunction(arg1)")

Code: Select all

function MyFunction()

local time, moreToCome, name, msg = EventMonitorCheck("MyFunctionEvent", "4,1")
	if time ~= nil then
		cprintf(cli.yellow, msg);
	end
end



function startTest()
      unregisterTimer("MyFunctionTimer");
      printf("MyFunctionTimer started\n");
      EventMonitorStart("MyFunctionEvent", "CHAT_MSG_SYSTEM");
      registerTimer("MyFunctionTimer", 5000, MyFunction);
end

Code: Select all

/script DEFAULT_CHAT_FRAME:AddMessage("Test");

Code: Select all

/script DEFAULT_CHAT_FRAME:AddMessage("Test");

Code: Select all

/script SendSystemChat("Test")

Code: Select all

function igf_events:OnEvent(this, event, arg1, arg2, arg3, arg4, arg5, arg6 )
	local args = { arg1, arg2, arg3, arg4, arg5, arg6 }
	local triggerTime = os.time()

	-- for each monitor
	for monitorName, monitorArgs in pairs(Monitors) do
		-- check if event matches and it isn't paused
		if monitorArgs.Event == event and not monitorArgs.Paused then
			local isMatch = true

			-- check if monitor has an arg filter
			if monitorArgs.Filter then
				-- for each monitor arg filter
				for argNumber, argValue in pairs(monitorArgs.Filter) do
					if argValue ~= nil then
						if args[argNumber] == nil then
							isMatch = false
							break
						elseif string.find(args[argNumber], argValue) == nil then
							isMatch = false
							break
						end
					end
				end
			end

			if isMatch then -- Save in log
				if not EventLog[monitorName] then
					-- create it
					EventLog[monitorName] = { First = 1, Last = 0 }
					EventLog[monitorName].Data = {}
				end
				-- increment last place
				EventLog[monitorName].Last = EventLog[monitorName].Last + 1
				-- save the data
				EventLog[monitorName].Data[EventLog[monitorName].Last] = {Time = triggerTime, Args = {arg1, arg2, arg3, arg4, arg5, arg6} }
			end
		end
	end
end

Code: Select all

/script igf_events:OnEvent(nil, "CHAT_MSG_SYSTEM", "test")

Code: Select all

/script igf_events:OnEvent(nil, "CHAT_MSG_SYSTEM", "test")