Wasn't sure what to title this so I guess its self explanatory lol. Currently using the following,but it doesnt appear to be working.
	Code:
	sub EVENT_CONNECT {
    quest::settimer("Reward", 14400);
}
}
sub EVENT_TIMER {
    if ($timer eq "Reward") {
        quest::stoptimer("Reward");
        $client->AddAlternateCurrencyValue(43942, 1);
        $client->Message(315, "You have received AMOUNT CURRENCY for staying online for four hours!");
        quest::settimer("Reward", 14400);
    }
}