[Bandor]

So should look like

sub EVENT_CONNECT {
    quest::settimer("Reward", 14400);
}


sub EVENT_TIMER {
    if ($timer eq "Reward") {
        quest::stoptimer("Reward");
        $client->AddAlternateCurrencyValue(4, 1);
        $client->Message(315, "You have received AMOUNT CURRENCY for staying online for four hours!");
        quest::settimer("Reward", 14400);
    }
}