//===== Hourly Points Script =========================================
//===== By: ==========================================================
//= Smokexyz
//===== Current Version: =============================================
//= 1.0
//===== Compatible With: =============================================
//= Any eAthena Version
//===== Description: =================================================
//= Get Points every specified seconds of gameplay. Conditional checks
//= for AFK / Vending are provided. Permanent total character playtime
//= is also calculated as a by-product.
//
-   script  sxyz_hourly_points  -1,{
// Init the Awesomeness of this NPC.
OnInit:
    .AFKCheckDelay, 300; // (in seconds) 5 minutes AFK Delay
    .RewardTimeDelay, 3600; // (in seconds) 1 hour delay between point giving.
    .RewardPoints, 10; // Points rewarded every .RewardTimeDelay
    .CheckAFK, 0; // Enable/Disable AFK Checks
    .CheckVendChat, 1; // Enable/Disable Vending/Chatting Checks.
    end;
 
// Attach the timer when the player logs in.
OnPCLoginEvent:
    attachnpctimer ""+strcharinfo(0)+"";
    addtimer 1000,"sxyz_hourly_points::OnProcess";
    end;
 
OnProcess:
    // Exclude Vendors from playtime/Afk Checks.
    if((checkvending() >= 1 || checkchatting()) && .CheckVendChat) {
        set .@afk, 1;
    } else if (.AFKCheckSeconds <= playtime && .CheckAFK) {
        getmapxy( .@map$, .@x, .@y, 0 );
        if (.@map$ == @map$ && .@x == @x && .@y == @y )
            set .@afk, 1;
    }
 
    if (!.@afk) {
        .@tick = gettimetick(2);
        // Reward the player if check passes.
        if ((.@tick - @last_active) >=  .RewardTimeDelay) {
            set #REWARDPOINTS, #REWARDPOINTS+ .RewardPoints;
            dispbottom "[Hourly Points] You've gained "+.RewardPoints+" points! (Playtime: "+playtime+"s)";
        }
        getmapxy( @map$, @x, @y, 0 );
        set playtime,playtime++;
        set @last_active, gettimetick(2);
    }
    addtimer 1000,"sxyz_hourly_points::OnProcess";
    end;
}