// Oh okay. I cant access rathena and I cannot get support for my other scripts and we cannot talk about the past scripts we were doing like the pvp bet match NPC and the Copy SKill NPC hehe. Anyway I will just wait for them to be up. I hope soon.

// By the way my friend, can you make me a script that counts online time of players.

// - if a player is online for 12 hours straight he will get a prize for every 12 hours continous he is online.
 // But he can character select and it is STILL counted.
// - if player goes offline even for 1 minute then it is not counted and will not get any prize.
// - I can set (gm 99) what prize and how many pieces per 12 hours.
// - I can set (gm 99) how many hours player must be online (12 or 24 hrs).
// - Once they reached the 12 hrs mark (or 24 hrs whichever is set),
// a window will open with a message that he will get a prize then upon closing window the prize that is set will be given.
// - Kindly optimise it so that it would not create more lag in the server resources, kindly use commands that are not making lags.
 // Imagine if 1,000 online people have a timer in each of them it might add lag to the server.
 // Im not sure about this. I think its better to make use of an alternative that will eat less server resources.

// Let me know my friend! Thank you as always! :)


prontera,155,181,5	script	Sample	757,{
if( ( !$hours_duration || $hour_item_id || $hour_item_amount ) && getgmlevel() < .gmlevel ){
	mes "Timer disabled. Please wait the GM to setup the NPC first.";
}else if( getgmlevel() < .gmlevel ){
	mes "You must online ^FF0000"+$hours_duration+"^000000 hours to get ^777777"+$hour_item_amount+" x "+getitemname( $hour_item_id )+"^000000.";
	mes "Timer will reset if you logoff more than 1 minute.";
}else{
	do{
		mes "Time : every ^777777"+$hours_duration+"^000000 hours";
		mes "Item : ^777777"+$hour_item_amount+" x "+getitemname( $hour_item_id )+"^000000";
		switch( select( "Edit Time","Edit Item" ) ){
			Case 1:
				mes "Enter within 0 ~ 24";
				mes "^7777770 = disable^000000";
				input $hours_duration,0,24;
				break;
			Case 2:
				mes "Enter ItemID";
				mes "^7777770 = disable^000000";
				do{
					input .@item,0,32767;
					if( !.@item ) close;
				}while( getitemname( .@item ) == "null" );
				mes "How many ^FF0000"+getitemname( .@item )+"^000000 ??";
				mes "^7777770 = disable^000000";
				input .@amount,0,30000;
				if( .@amount ){
					mes "Total ^0055FF"+.@amount+" x "+getitemname( .@item )+"^000000";
					if( select( "Confirm","Close" ) == 1 ){
						mes "Done updated.";
						set $hour_item_id,.@item;
						set $hour_item_amount,.@amount;
					}
				}
				break;
			default: break;
		}
		next;
	}while( select("Back Menu","Close" ) == 1 );
}
close;

OnInit:
// min GM Level access GM CP.
set .gmlevel,90;
// check player status every 15 minute.
set .check_interval_minute,15;

set .strnpcinfo$,strnpcinfo(0);
end;

OnPCLoginEvent:
	if( $hours_duration && $hour_item_id && $hour_item_amount ){
		set .@gettimetick,gettimetick(1);
		set .@time_gap,( .@gettimetick - #hour_time_online );
		if( .@time_gap > 60 ){
			set #hour_time_total,0;
			dispbottom "Reset Accumulated Online Time ... because you logoff for 1 minutes.";
		}
		set #hour_time_online,.@gettimetick;
	}
	end;

OnCheck:
	if( $hours_duration && $hour_item_id && $hour_item_amount ){
		set #hour_time_online,gettimetick(1);
		if( checkvending() || checkchatting() ){
			set @chat_vending_user,1;
			deltimer .strnpcinfo$+"::OnCheck";
			dispbottom "Timer Stopped...user opened Public Chat / Vending...Please relog to re-enable it again.";
		}else{
			addtimer ( .check_interval_minute * 60000 ),.strnpcinfo$+"::OnCheck";
			set #hour_time_total,#hour_time_total + ( .check_interval_minute * 60 );
			if( #hour_time_total >= ( $hours_duration * 3600 ) ){
				mes "You have gained Items for online "+$hours_duration+" hours non-stop.";
				close2;
				set #hour_time_total,#hour_time_total - ( $hours_duration * 3600 );
				getitem $hour_item_id,$hour_item_amount;
			}
		}
	}
	end;

OnPCLogoutEvent:
	if( $hours_duration && $hour_item_id && $hour_item_amount ){
		if( !@chat_vending_user ){
			set .@gettimetick,gettimetick(1);
			set .@time_gap,( .@gettimetick - #hour_time_online );
			set #hour_time_total,#hour_time_total + .@time_gap;
			set #hour_time_online,.@gettimetick;
			deltimer .strnpcinfo$+"::OnCheck";
		}
	}
	end;
}