R> Every Day Reward Item To Each Account

[Trevned]

Hi, is there any script that will allow players to receive random reward item every day that they login?

Note: It will no longer give the reward for the past days.

Thanks in advance

[deathscythe13]

-    script    Reward    -1,{
OnPCLoginEvent:
   if( #RD == gettime(8) ) end;
   set .@rewarditem, rand( getarraysize( .rewarditem ) );
  query_sql "INSERT INTO `storage` VALUES (NULL, "+ getcharid(3) +", "+.@rewarditem+", 1 , 0, 1, 0, 0, 0, 0, 0, 0, 0)";
   set #RD,gettime(8);
   end;
Oinit:
   setarray .rewarditem[0],512,513,514; //reward item id
end;
}

[deathscythe13]

- script Reward -1,{
OnClock0000:
query_sql "DELETE FROM `global_reg_value` WHERE str = '#done'";
OnPCLoginEvent:
if(#done) end;
setarray .rewarditem[0],512,513,514; //reward item id
set .rewardamt, 1;   //reward amount
PICKREWARD:
set .@rewarditem, .rewarditem[rand(getarraysize(.rewarditem))];

if(#lastreward == .@rewarditem) goto PICKREWARD;
getitem .@rewarditem,.rewardamt;
set #lastreward, .@rewarditem;
set #done,1;
end;
}

Edited May 7, 2012 by deathscythe13

[QQfoolsorellina]

another way :

-    script    Reward    -1,{
OnPCLoginEvent:
   if(#RD ==gettime(8)) end;
   getitem 501,rand(getarraysize(rewarditem));
   se #RD,gettime(8);
   end;
Oinit:
   setarray .rewarditem[0],512,513,514; //reward item id

}

edit :typo

Edited May 6, 2012 by QQfoolsorellina

[deathscythe13]

cool

[Emistry]

another way :

-	script	Reward	-1,{
OnPCLoginEvent:
if(#RD ==gettime(8)) end;
getitem 501,rand(getarraysize(rewarditem));
se #RD,gettime(8);
end;
Oinit:
setarray .rewarditem[0],512,513,514; //reward item id

}

edit :typo

typo + some mistake in variable

suppose to be this

-	script	Reward	-1,{
OnPCLoginEvent:
if( #RD == gettime(8) ) end;
getitem  .rewarditem[rand( getarraysize( .rewarditem ) )],1;
set #RD,gettime(8);
end;

Oinit:
setarray .rewarditem[0],512,513,514; //reward item id
end;
}

[Nokia]

can i request to add an item directly into the sql database on every storage?

[Lilith]

-	script	Reward	-1,{
OnPCLoginEvent:
if( #RD == gettime(8) ) end;
set .@rewarditem, rand( getarraysize( .rewarditem ) );
  query_sql "INSERT INTO `storage` VALUES (NULL, "+ getcharid(3) +", "+.@rewarditem+", 1 , 0, 1, 0, 0, 0, 0, 0, 0, 0)";
set #RD,gettime(8);
end;
Oinit:
setarray .rewarditem[0],512,513,514; //reward item id
end;
}

it will not work =

[deathscythe13]

ohh its because .@rewarditem has wrong value xD should suppose to be like this

set .@rewarditem , .rewarditem[rand(getarraysize(.rewarditem))];

[Rosemount]

-	script	Reward	-1,{
OnPCLoginEvent:
if( #RD == gettime(8) ) end;
set .@rewarditem, rand( getarraysize( .rewarditem ) );
  query_sql "INSERT INTO `storage` VALUES (NULL, "+ getcharid(3) +", "+.@rewarditem+", 1 , 0, 1, 0, 0, 0, 0, 0, 0, 0)";
set #RD,gettime(8);
end;
Oinit:
setarray .rewarditem[0],512,513,514; //reward item id
end;
}

OnI

-	script	Reward	-1,{
OnPCLoginEvent:
if( #RD == gettime(8) ) end;
set .@rewarditem, rand( getarraysize( .rewarditem ) );
  query_sql "INSERT INTO `storage` VALUES (NULL, "+ getcharid(3) +", "+.@rewarditem+", 1 , 0, 1, 0, 0, 0, 0, 0, 0, 0)";
set #RD,gettime(8);
end;
Oinit:
setarray .rewarditem[0],512,513,514; //reward item id
end;
}

it will not work =

-	script	Reward	-1,{
OnPCLoginEvent:
if( #RD == gettime(8) ) end;
set .@rewarditem, rand( getarraysize( .rewarditem ) );
  query_sql "INSERT INTO `storage` VALUES (NULL, "+ getcharid(3) +", "+.@rewarditem+", 1 , 0, 1, 0, 0, 0, 0, 0, 0, 0)";
set #RD,gettime(8);
end;
Oinit:
setarray .rewarditem[0],512,513,514; //reward item id
end;
}

nit:

setarray .rewarditem[0],512,513,514; //reward item id

end;

it will not work =

[Rosemount]

OnInit:

setarray .rewarditem[0],512,513,514; // reward item id

end;

}

Edited May 6, 2012 by Rosemount

[Lilith]

it will not work =

.

needs to update storage...

[deathscythe13]

yeah it seems you need to logout before it takes effect ,

how about this: http://www.eathena.ws/board/index.php?showtopic=257190

[Trevned]

Thanks guys! appreciate your replies