FREE ACTION PLUGIN: Timer

[ShadowUK]

Timer Action Plugin
by ShadowUK

You'll need to go to your AutoPlay Media Studio folder and navigate to Data/Actions then put this file in that folder.

Now you've installed the Actions, it's time to install the functions!

Go to: AutoPlay Media Studio/Data/Includes and open _notification_messages.lua

Append at the bottom the following:

Timer = {}

Timer.OldTimerCode = Application.GetPageScript(this, "On Timer")

function Timer.Create(Name, Delay, Repeats, Function)
	if (type(Function) == "function") then
		error("string expected, got function! ("..assert(tostring(Function))..")");
	elseif (type(Function) == "number") then
		error("string expected, got number! ("..assert(tostring(Function))..")");
	elseif (type(Function) == "table") then
		error("string expected, got table! ("..assert(tostring(Function))..")");
	elseif (type(Function) == "nil") then
		error("attept to local global callback function (a nil value)");
	end
	
	function DoThink()
		if (Occurrences == Repeats) then
			Page.StopTimer()
			Occurrences = nil
		end
	end
	
	if (Repeats ~= 0) then
		Occurrences = 0
		Application.SetPageScript(this, "On Timer", Timer.OldTimerCode.."\r\n"..Function.."\r\nOccurrences = Occurrences + 1\r\nDoThink()");
		Page.StartTimer(Delay * 1000)
	elseif (Repeats == 0) then
		Application.SetPageScript(this, "On Timer", Timer.OldTimerCode.."\r\n"..Function);
		Page.StartTimer(Delay * 1000)
	end
end

function Timer.Simple(Delay, Function)
	if (type(Function) == "function") then
		error("string expected, got function! ("..assert(tostring(Function))..")");
	elseif 	(type(Function) == "number") then
		error("string expected, got number! ("..assert(tostring(Function))..")");
	elseif 	(type(Function) == "table") then
		error("string expected, got table! ("..assert(tostring(Function))..")");
	elseif 	(type(Function) == "nil") then
		error("attept to local global callback function (a nil value)");
	end
		
	Application.SetPageScript(this, "On Timer", Timer.OldTimerCode.."\r\n"..Function.."\r\nPage.StopTimer()\r\nApplication.SetPageScript(Application.GetCurrentPage(), \"On Timer\", \"\")")
	Page.StartTimer(Delay / 1000)
end

Save the file and off you go! Plugin installed!

Later down the line, I should consider creating an automatic plugin installer if I can't be bothered to use the real plugin method.

[Worm]

neat concept... Nice outa-the-box thinking

[holtgrewe]

This has great potential; however after install:

Error
Startup, Line 790: Argument 1 must be type string.


This was on the compile of an existing project before ever using the Timer function.

[ShadowUK]

Yeh, I seem to find this as well. I need to find out how to fix it first, I may have corrupted something in the core code.

Edit:

Nothing wrong with the code, But It might be the Actions file. In the mean time while I get this fixed please don't download it yet.

[ShadowUK]

Well, you can always use the code as normal. While I get working on this again.

[rexzooly]

Well, you can always use the code as normal. While I get working on this again.

i am keeping a eye this hope it becomes working soon so i can mirror it for you

[Worm]

ShadowUK, this is only creating a branch within the current Page Timer, correct? If you have a "timer function" that is costly in time, the functions below them will be delayed that much longer, correct?

[ShadowUK]

It's an alternative to Application.Sleep, And I think I messed up in the XML, I'll be recoding this again.