Search the Community

View File Ragnarok Online Daily Reward [PSD Only] illust's for a system of daily rewards, created by me, based on the official theme of ragnarok online. It works with the script [rathena]: Daily_Reward_System PS: If you like it, and give me reputation, it's important to me and encourages me to continue with my work! best regards, ZelosAvalon Submitter ZelosAvalon Submitted 10/21/16 Category Other Graphics  

//===== EinherjarRO Scripts ================================== //= Daily Prize, OnPCLoginEvent //===== By: ================================================== //= Stolao //===== Current Version: ===================================== //= 1.59 //===== Compatible With: ===================================== //= rAthena SVN //===== Description: ========================================= //= A reward system for players who play more frequently //===== Comments: ============================================ //= Maybe Make .MinWait an array mins,days,weeks,months,years; //===== Additional Comments: ================================= //= For Older See Forums //= 1.51 Changed set .@g formula and move lower into script //= 1.52 Replace all disbottom -> message //= 1.53 Changed Format to Include minuets instead of just hours //= 1.54 Made Time till next rewards display dynamic //= 1.55 Changed a forgotten .PointType$ -> getd(.@TT[1]) //= 1.56 changed .@XT -> .@XT$ //= 1.57 Added Atoi where nessisary //= 1.58 Fixed a swapped .@x and .@x+1 //= 1.59 Serveral Edit Undocumented to fix //===== Contact Info: ======================================== //= [Stolao] //= Email: [email protected] //============================================================ - script LOGIN -1,{ OnWhisperGlobal: OnLoginCmnd: OnPCLoginEvent: sleep2 1000 + .Rest * 60000; set .@i, (gettime(7) * 365 * 24 * 60) + (gettime(8) * 24 * 60) + (gettime(3) * 60) +gettime(2); if(.@i >= (#LastDailyReward + .MinWait)){ if(.@i < #LastDailyReward + .MaxWait){ set #DRewardCon, #DRewardCon + 1; } else { set #DRewardCon, 1; } set .@g, (#DRewardCon > getarraysize(.Rewards$)) ? (getarraysize(.Rewards$)-1) : #DRewardCon; explode(.@XT$,.Rewards$[.@g],"|"); for(set .@x,0; .@x < getarraysize(.@XT$); set .@x,.@x + 1){ set .@TT[.@x], atoi(.@XT$[.@x]); } if(.Mode & 1 && .@TT[4]){ //[Note]: I need to figure out a checkweight for all items tired atm lol, for now ill leave it missing for(set .@x,4; .@x < getarraysize(.@TT); set .@x,.@x + 2){ getitem .@TT[.@x], .@TT[.@x+1]; message strcharinfo(0),"Recived "+ .@TT[.@x+1] +" "+ getitemname(.@TT[.@x]); } } if(.Mode & 2){ if(.@TT[0]){ set Zeny,Zeny + .@TT[0]; message strcharinfo(0),"Recived "+ .@TT[0] +"z"; } if(.@TT[1]){ setd getd(.Points$[0]),getd(.Points$[0]) + .@TT[1]; message strcharinfo(0),"Recived "+ .@TT[1] +" "+.Points$[1]; } } if(.Mode & 4 && (.@TT[3] || .@TT[4])) getexp .@TT[3], .@TT[4]; if(.Mode & 8){ for(set .@x,0; .@x < getarraysize(.BuffInfo); set .@x,.@x + 4){ if(#DRewardCon % .BuffInfo[.@x + 1] == 0) sc_start .BuffInfo[.@x], .BuffInfo[.@x + 2] * 60000, .BuffInfo[.@x + 3]; } } message strcharinfo(0),"You have collected your daily reward, for "+#DRewardCon+" day"+((#DRewardCon > 1)?"s":"")+" in a row."; set #LastDailyReward, .@i; } else { set .@days,(#LastDailyReward + .MinWait - .@i)/60/24; set .@hours,((#LastDailyReward + .MinWait - .@i)/60)%24; set .@mins,(#LastDailyReward + .MinWait - .@i)%60; message strcharinfo(0),"You have "+ ((.@days) ? .@days +":Days " : "") +""+ ((.@hours) ? .@hours +":Hours " : "") +""+ ((.@mins) ? .@mins +":Minutes " : "") +"till your next reward"; } end; OnInit: //Basic Settings // 1: Item | 2: Points | 4: Exp // 8: Gain Buffs Every X Consecutive Days logged in // (a bit value, e.g. 3 = Items & Points from Multi) set .Mode,1 + 2 + 4 + 8; //To Enable @ Command '@loginreward' unslash next lines // * Needs extra commands for typos bindatcmd("relog" ,"LOGIN::OnLoginCmnd",0,99); //Minimum Minuets Between Collecting Daily Reward // Day: 22*60 - 24*60 // Week: 10080 //set .MinWait,1320; set .MinWait,1320; //Minuets Before Lose Consecutive Daily Reward // Day: 48*60 - 50*60 // Week: 20160 //set .MaxWait,3000; set .MaxWait,3000; //Number of mins after logging before collecting prize set .Rest,60; //Point Type // [0] Points earned // [1] Point name in mes setarray .Points$,"#CASHPOINTS","Cash-Points"; // Consecutive Days Buff // Each buff contains 4 variables (32 Total Max) // <Type>,<Days>,<Duration>,<Rate>, // Buff 1 // <Type>,<Days>,<Duration>,<Rate>, // Buff 2 // ...; // // Example: 188,7,45,3 // -Every 7th consecutive day logged in Player gains +3 Str for 45 mins // // Type is 188, which references which SC_ to use, SC_INCSTR in this example // -For a full list of SC_ visit the db/const.txt // Days is days buff is applied, in this example 7, so every 7th day, 14,21,28.... // Duration is buff duration is Minuits, in this example 45 mins // Rate is buff strength, in this example player gains 3 Str setarray .BuffInfo ,260,2,360,1 // Life Insurance for 360 Mins Every 2nd Day ,198,3,120,10 // +10% Hp for 120 Mins Every 3th Day ,196,5,120,25 // +25 Flee for 120 Mins Every 5th Day ,257,7,240,50; // +50% Exp for 240 Mins Every 7th Day // Daily Prize items (max 128 days): // "<Zeny>|<Points>|<BaseExp>|<JobExp>|<itemID-1>|<amount-1>|<itemID-2>|<amount-2>...etc", // Day 1 // "<Zeny>|<Points>|<BaseExp>|<JobExp>|<itemID-1>|<amount-1>|<itemID-2>|<amount-2>...etc" // Day 2 // ...; // Total length of any days string must be 255 or shorter // * If players login longer than the last set // day, they will keep getting the last prize. setarray .Rewards$, "100", // Day 1: 100 Zeny "0|0|0|0|501|5", // Day 2: 5 Red Potion "0|0|0|0|503|5|506|5"; // Day 3: 5 White Potion + 5 Green Potion end; } Anyone help me where to add message to char, You have to wait 60 minutes before claim the reward. An npc, that when player click, display waiting time 40 minute. The time will reduce until minute 0, and player can redeem the reward.

Hello, Is there any one that can provide me a ip check for a daily reward or weekly.. Atm i have this script but seems not to work properly when i login 2 account they both can take the reward. prontera,155,160,5 script 60 seconds Reward 4_F_FAIRYKID4,{ //=========================== Settings ================================================================ set .@rewname$,"[ Daily Reward ]"; set .rewardid,601; set @rewardamount,1; //======================= Settings End ================================================================ //***************************************************************************************************** query_sql("SELECT last_ip FROM `login` WHERE account_id = "+getcharid(3)+"", @LastIp$); if( (gettimetick(2) - lastTimeTalked > 60)&&(gettimetick(2) - getd(@LastIp$) > 60)) { mes .@rewname$; mes "Hello "+strcharinfo(0)+",I"; mes "am here to give you a daily"; mes "Reward. Do you want to have it?"; next; switch(select("-Yes,sure!:-No,bye!:-Cancel")) { case 1: mes .@rewname$; mes "Okay going to give you the item!"; next; mes .@rewname$; getitem .rewardid,@rewardamount; mes "Okay have fun with it!"; set lastTimeTalked,gettimetick(2); setd(@LastIp$,gettimetick(2)); close; case 2: mes .@rewname$; mes "Okay goodbye!"; close; case 3: close; } } mes .@rewname$; mes "Sorry you can get the"; mes "Reward again after "; mes "60 seconds are over!"; close; }

Hello. I plan to give multi reward to my player that are based on char account. The event is : Loyal Reward LoL Reward I have make some simple script. The npc should give the reward. So after player redeem Loyal Reward, the reward choose will remove from the selection. And back to the second reward selection And last message will be, there is no more reward you can redeem. Below the script I make, can someone help me to fix the problem? eventreward.txt

//Created by youtubenew_4-4,143,169,3 script Find the Naruto 1_F_PRIEST,{mes "[ Find the Naruto ]";if(getgmlevel() < 80) { if(.Event==0) mes "There is no Find the Naruto event."; else { mes "There is a Find the Naruto event on now!"; mes "Location: "+ .Map$; mes "Prize: " + getitemname(.ItemID); mes "Number of Naruto: " + .Naruto; } close;} mes "Hello "+strcharinfo(0)+"! Please customize this event:";Main:next;mes "[ Find the Naruto ]"; switch(select("Item [" + getitemname(.ItemID) + "]:Start Event:End Event")) { case 1: mes "Which item would you like the Naruto to drop?"; mes "Please input the item ID:"; input .ItemID; goto Main; case 2: mes "Starting the event now..."; set .Event,1; close2; goto OnStart; case 3: mes "Ending the event now..."; if(.Event) announce ""+strcharinfo(0)+" ended Find the Naruto Event!",bc_all; killmonster .Map$,"All"; set .Event,0; close;}OnMinute20:OnStart: announce "It's time to kill the Naruto!",0; sleep2 1000; set $@ran, rand(1,1);// if ($@ran == 11) set .Map$,"splendide";// if ($@ran == 10) set .Map$,"hugel";// if ($@ran == 9) set .Map$,"yuno";// if ($@ran == 8) set .Map$,"comodo";// if ($@ran == 7) set .Map$,"xmas";// if ($@ran == 6) set .Map$,"aldebaran";// if ($@ran == 5) set .Map$,"izlude";// if ($@ran == 4) set .Map$,"payon";// if ($@ran == 3) set .Map$,"geffen";// if ($@ran == 2) set .Map$,"morocc"; if ($@ran == 1) set .Map$,"izlude"; sleep2 1000; set $@ran2, rand(1,1);// if ($@ran2 == 5) set .Naruto,"5";// if ($@ran2 == 4) set .Naruto,"4";// if ($@ran2 == 3) set .Naruto,"3";// if ($@ran2 == 2) set .Naruto,"2"; if ($@ran2 == 1) set .Naruto,"1"; announce "The Naruto has landed in "+ .Map$ +"!",0; sleep2 10000; announce "" + .Naruto + " Naruto have spawned in "+ .Map$ +"!",0; sleep2 10000; monster .Map$,0,0,"Naruto",2518,.Naruto,"Find the Naruto::OnMobKilled"; end;OnMobKilled: mapannounce .Map$,"We've got a winner: " + strcharinfo(0) + " Congrats!",0;// set zeny,zeny+10000000; getitem .7711,10; set .Event,0; end;} Hi all. Im using this script. However. When I kill the monster above error appear. why ? I if kill the mobs, get event ticket.. [Error]: buildin_getitem: Nonexistant item 0 requested.[Debug]: Source (NPC): Find the Naruto at new_4-4 (143,169)

//===== Hercules Script =======================================//= Poring Summoner//===== Created By: ===========================================//= Mysterious//===== Current Version: ======================================//= 1.2//===== Link: =================================================//= Old - http://www.eathena.ws/board/index.php?showtopic=236779//===== Description: ==========================================//= Basically what this event does is summon a set of Normal//= and Special Porings. Normal Porings don't drop anything,//= Special Porings do.//=============================================================new_4-4,148,169,4 script Poring Summoner 99,{mes "[Poring Summoner]";if(getgroupid() < 10) { if(.Event) mes "There is no Poring Summon Event on now."; else { mes "There is a Poring Summon Event on now!"; mes "Location: " + .Map$; mes "Special Porings: " + .SpecialPorings[1]; mes "Normal Porings: " + .NormalPorings[0]; } close;}mes "Please customize the Poring Summon Event:";Main:next;mes "[Poring Summoner]"; switch(select("Item [" + getitemname(.ItemID) + "]:Special Porings [" + .SpecialPorings + "]:Normal Porings [" + .NormalPorings + "]:Start Event:End Event")) { case 1: mes "Which item would you like Special Porings to drop?"; mes "Please input the item ID:"; input .ItemID; goto Main; case 2: mes "How many Special Porings would you like me to summon?"; input .SpecialPorings; goto Main; case 3: mes "How many Normal Porings would you like me to summon?"; input .NormalPorings; goto Main; case 4: mes "Starting the event now...";OnMinute30: //Triggers at each new hour, so 1:30, 2:30, 3:30, 4:30 etc. set $@ran, rand(1,7); if ($@ran == 7) set .Map$,"dic_fild01"; if ($@ran == 6) set .Map$,"dic_fild02"; if ($@ran == 5) set .Map$,"izlude"; if ($@ran == 4) set .Map$,"payon"; if ($@ran == 3) set .Map$,"geffen"; if ($@ran == 2) set .Map$,"morocc"; if ($@ran == 1) set .Map$,"prontera"; set .Event,1; monster .Map$,0,0,"Poring",1002,.SpecialPorings,"Poring Summoner::OnSpecialKill"; monster .Map$,0,0,"Poring",1002,.NormalPorings,"Poring Summoner::OnNormalKill"; set .SpecialPorings[1],.SpecialPorings; set .NormalPorings[1],.NormalPorings; announce "The Poring Event has begun!",bc_all; announce "Location: " + .Map$,bc_all; announce "Special Porings: " + .SpecialPorings,bc_all; announce "Normal Porings: " + .NormalPorings,bc_all; close; case 5: mes "Ending the event now..."; goto EndEvent; }OnTimer216000000: announce "Poring Summoner has ended. No one killed the Porings.",bc_all; killmonster .Map$,"All"; set .Event,0; stopnpctimer; end;OnSpecialKill: set .SpecialPorings[1],.SpecialPorings[1]-1; announce strcharinfo(0) + " got a " + getitemname(.ItemID) + "!",bc_map; getitem .ItemID,1; goto PoringCount;OnNormalKill: set .NormalPorings[1],.NormalPorings[1]-1; goto PoringCount;PoringCount: announce "Special Porings: " + .SpecialPorings[1] + " || Normal Porings: " + .NormalPorings[1],bc_map; if(!.SpecialPorings[1]) goto EndEvent; end;EndEvent: if(.Event) announce "The Poring Summon Event is now over!",bc_all; killmonster .Map$,"All"; set .Event,0; set .SpecialPorings[1],0; set .NormalPorings[1],0; close;} Hi everyone, as you can see, this script can entered manual item id, item amount, how many special poring and normal poring, my simple question is where to edit specific item id, item amount, special poring and normal poring. And the value are fix. Can someone edit it for me ? thanks

Hello Hercules Community, I am looking for a script that gives a certain reward to a player with highest online time in a day/week/month. Is there any script like this? Thank you.