Request: Reward NPC for Active Players

[zXoOm]

this npc gives list of items for players who have 10 hours or more gameplay. they can only claim once. and only 50 players can claim the reward(s).

Thanks!

[GM Takumirai]

its like an hourly point/reward

http://rathena.org/b...rly-tcg-reward/

//===== Hourly Points Script =========================================
//===== By: ==========================================================
//= GorthexTiger modified by Nibi
//===== Current Version: =============================================
//= 1.0
//===== Compatible With: =============================================
//= Any eAthena Version
//===== Description: =================================================
//= Get Points every successful hours of gameplay, you cannot get
//= the points even if you miss a second or a minute. A player will
//= get a very big bonus if they played 12 hours consecutively
//= or without logging out of the game. If the player is vending
//= the script will then stop.
//===== Additional Comments: =========================================
//= You can modify the script to your liking.
//= The default points is Kafrapoints change it anyway if you like.
//= 1.1 = Check Chatting too
//= 1.2 = 5 Minute Idle Check & @at/@autotrade check.
//= 1.3 = Corrected the current balance line on 12 Hours Consecutive
//====================================================================
- script hourlypoints -1,{
//--Start of the Script
OnPCLoginEvent:
attachnpctimer ""+strcharinfo(0)+"";
initnpctimer;
end;

OnTimer30000:
//Check if Vending (normal or @at)
if(checkvending() >= 1 || checkchatting() == 1) {
dispbottom "The hourly points event stopped because you were vending / chatting. Please relog if you wish to start again.";
stopnpctimer;
end;
}
//Check if Idle
getmapxy( .@map$, .@x, .@y, 0 );
if(@map$ == .@map$ && @x == .@x && @y == .@y) {
set @afk, @afk + 1;
}
//If move timer resets
else {
set @afk, 0;
}
set @map$, .@map$; set @x, .@x; set @y, .@y;
//Idle Check for 5 Minutes
if(@afk == 5) {
dispbottom "The hourly points event stopped because you were idle for 5 minutes. Please relog if you wish to start again.";
stopnpctimer;
end;
}
end;
OnTimer60000:
set @minute, @minute + 1;
//Check for 1 Minute
if(@minute == 60){
set @minute,0;
set .@point_amt, 3; //Points to get every hour (default: 10)
getitem 7227,.@point_amt;
dispbottom "You received "+.@point_amt+" TCG by staying ingame for 1 hour";
set @consecutive_hour, @consecutive_hour + 1;
}
//Check for 12 hours consecutive
if(@consecutive_hour == 12) {
set @consecutive_hour,0;
set .@cpoint_amt, 50; //Points to get for 12 Consecutive hours (default: 50)
getitem 7227,.@point_amt;
dispbottom "You received "+.@point_amt+" TCG in playing for 12 consecutive hours";
}
stopnpctimer;
initnpctimer;
end;
}
//--End of the Script

Edited October 23, 2012 by GM Takumirai

[Bin4ry]

// http://rathena.org/board/topic/72912-request-reward-npc-for-active-players/

- script 50Reward -1,{
OnPCLoginEvent:
if ($50claimed >= 50) {
debugmes "50 rewards all given, please disable the script.";
end;
}
if (50claimed == 0) {
attachnpctimer ""+strcharinfo(0)+"";
initnpctimer;
}
end;

OnTimer30000:
if(checkvending() >= 1 || checkchatting() == 1) {
stopnpctimer;
end;
}
getmapxy( .@map$, .@x, .@y, 0 );
if(@map$ == .@map$ && @x == .@x && @y == .@y) {
set @afk, @afk + 1;
} else {
set @afk, 0;
}
set @map$, .@map$; set @x, .@x; set @y, .@y;
if (@afk == 5) {
stopnpctimer;
end;
}
end;

OnTimer60000:
set @minute, @minute + 1;
if(@minute == 600){
set @minute,0;
getitem 7539,1
dispbottom "Congratulations!";
set $50claimed, $50claimed + 1;
set 50claimed, 1;
}
stopnpctimer;
initnpctimer;
end;
}

[zXoOm]

// http://rathena.org/board/topic/72912-request-reward-npc-for-active-players/

- script 50Reward -1,{
OnPCLoginEvent:
if ($50claimed >= 50) {
debugmes "50 rewards all given, please disable the script.";
end;
}
if (50claimed == 0) {
attachnpctimer ""+strcharinfo(0)+"";
initnpctimer;
}
end;

OnTimer30000:
if(checkvending() >= 1 || checkchatting() == 1) {
stopnpctimer;
end;
}
getmapxy( .@map$, .@x, .@y, 0 );
if(@map$ == .@map$ && @x == .@x && @y == .@y) {
set @afk, @afk + 1;
} else {
set @afk, 0;
}
set @map$, .@map$; set @x, .@x; set @y, .@y;
if (@afk == 5) {
stopnpctimer;
end;
}
end;

OnTimer60000:
set @minute, @minute + 1;
if(@minute == 600){
set @minute,0;
getitem 7539,1
dispbottom "Congratulations!";
set $50claimed, $50claimed + 1;
set 50claimed, 1;
}
stopnpctimer;
initnpctimer;
end;
}

one question . do the players need to play straight 10 hours or more to get the rewards? cause i want them not to play straight but to have a gameplay of 10 hours or more.

btw Thanks for your effort for this.

[Bin4ry]

// http://rathena.org/board/topic/72912-request-reward-npc-for-active-players/

- script 50Reward -1,{
OnPCLoginEvent:
if ($50claimed >= 50) {
debugmes "50 rewards all given, please disable the script.";
end;
}
if (50claimed < 601) {
attachnpctimer ""+strcharinfo(0)+"";
initnpctimer;
}
end;

OnTimer60000:
set 50claimed, 50claimed + 1;
if(50claimed == 600){
getitem 7539,1
dispbottom "Congratulations!";
set $50claimed, $50claimed + 1;
set 50claimed, 601;
}
stopnpctimer;
initnpctimer;
end;
}

Now it does not check AFK and allow the counts continue.

[zXoOm]

// http://rathena.org/board/topic/72912-request-reward-npc-for-active-players/

- script 50Reward -1,{
OnPCLoginEvent:
if ($50claimed >= 50) {
debugmes "50 rewards all given, please disable the script.";
end;
}
if (50claimed < 601) {
attachnpctimer ""+strcharinfo(0)+"";
initnpctimer;
}
end;

OnTimer60000:
set 50claimed, 50claimed + 1;
if(50claimed == 600){
getitem 7539,1
dispbottom "Congratulations!";
set $50claimed, $50claimed + 1;
set 50claimed, 601;
}
stopnpctimer;
initnpctimer;
end;
}

Now it does not check AFK and allow the counts continue.

thanks darristan. i'll test it.

// http://rathena.org/board/topic/72912-request-reward-npc-for-active-players/

- script 50Reward -1,{
OnPCLoginEvent:
if ($50claimed >= 50) {
debugmes "50 rewards all given, please disable the script.";
end;
}
if (50claimed < 601) {
attachnpctimer ""+strcharinfo(0)+"";
initnpctimer;
}
end;

OnTimer60000:
set 50claimed, 50claimed + 1;
if(50claimed == 600){
getitem 7539,1
dispbottom "Congratulations!";
set $50claimed, $50claimed + 1;
set 50claimed, 601;
}
stopnpctimer;
initnpctimer;
end;
}

Now it does not check AFK and allow the counts continue.

darristan, it doesnt give out rewards. help please! thanks!