-
Posts
949 -
Joined
-
Last visited
-
Days Won
16
Content Type
Profiles
Forums
Downloads
Jobs Available
Server Database
Third-Party Services
Top Guides
Store
Everything posted by sandbox
-
src/common/mmo.h #define GLOBAL_REG_NUM 256 ///Max permanent character variables per char #define ACCOUNT_REG_NUM 64 ///Max permanent local account variables per account #define ACCOUNT_REG2_NUM 16 ///Max permanent global account variables per account #define MAX_REG_NUM 256 ///Should hold the max of GLOBAL/ACCOUNT/ACCOUNT2 (needed for some arrays that hold all three)
-
prontera,100,200,4 script sample 46,{ mes .Npc_Name$; mes "Disguise into a monster for "+.Fee+" zeny"; mes "Please input monster ID"; input .@mid; next; mes .Npc_Name$; if(Zeny < .Fee) { mes "Not enough zeny"; close; } else if(!getmonsterinfo(.@mid,0)) { mes "Invalid monster id, please use @mi <monster name> to obtain ID."; close; } mes "Here you go!"; Zeny -= .Fee; getmapxy(.@map$,.@x,.@y,0); disguise .@mid; close; OnInit: .Npc_Name$ = "[^0000FF "+strnpcinfo(1)+" ^000000]"; .Fee = 1000000; end; }
-
Quests, Games: Armor Awakening NPC
sandbox replied to sandbox's topic in Game, Event, Quest Script Releases
I've read it before and I think it's not possible.. Client only reads 4 slots. -
Check this config also
-
Try this - script sample -1,{ OnPCLoginEvent: if(vip_status(1)) { specialeffect2 486; } end; } I'm not sure if I used the right effect number. If not, kindly check it in https://github.com/rathena/rathena/blob/master/doc/effect_list.txt
-
Change this line announce "[Event GM] "+strcharinfo(0)+" has rewarded "+.@Rew_Amt+" "+.@itemname$+" to "+.@Rew_Name$+".",bc_all,0xFF8080; to announce "[Event GM] "+strcharinfo(0)+" has rewarded "+.@Rew_Amt+" "+.@itemname$+" to "+.@Rew_Name$+".",bc_all;
-
Anti-freeze or any status consumable?
sandbox replied to sotf's topic in Tulong para sa Script at Database
Check this item out. http://ratemyserver.net/index.php?page=re_item_db&item_id=&iname=&itype=2&islot_sign=-1&islot=-1&ij[+]=-1&iju=-1&idesc=freeze&iscript=&i_ele=-1&i_status=-1&i_race=-1&i_bonus=-1&icfix=&sort_r=0&sort_o=0&isearch=Search sc_start SC_COMMONSC_RESIST,3600000,10; -
Purely written in scratch prontera,100,200,4 script sample 46,{ mes .Npc_Name$; mes "Summon a monster for "+.Fee+" zeny"; mes "Please input monster ID"; input .@mid; next; mes .Npc_Name$; if(Zeny < .Fee) { mes "Not enough zeny"; close; } else if(!getmonsterinfo(.@mid,0)) { mes "Invalid monster id, please use @mi <monster name> to obtain ID."; close; } mes "Here you go!"; Zeny -= .Fee; getmapxy(.@map$,.@x,.@y,0); monster .@map$,.@x,.@y,--en--,.@mid,1; close; OnInit: .Npc_Name$ = "[^0000FF "+strnpcinfo(1)+" ^000000]"; .Fee = 1000000; end; }
-
There should be an error on your console. If you're using eAthena, you should change getgroupid into getgmlevel
-
Kelangan mo ulit click ung delete
-
@version? or get_revision/githash()? D=
-
I'll try to submit a PR in the future regarding the files that still use strmobinfo script
-
Check this script of mine.. http://rathena.org/board/topic/92912-utility-daily-rewards-giver/
-
Yep. You can download their client here
-
Latest GRF? Downloading/patching a latest iRO client.
-
+1 though I think this would be very difficult, specially the card/refine difference part.
-
Should strmobinfo be dropped in the script engine? Don't we have getmonsterinfo already? Besides, its scope is much wider since strmobinfo can only return up to the job exp of the monster.
-
IMO, RO was the pinnacle of MMORPGs. Since it was released, tons of replicas have been made..
-
Try this //===== rAthena Script ======================================= //= Cluck! Cluck! Boom! //===== By: ================================================== //= Keale //===== Current Version: ===================================== //= 1.2a //===== Compatible With: ===================================== //= rAthena SVN //===== Description: ========================================= //= Click the chicken and try retrieve the item at a low //= chance. If you fail he will nuke, freeze, stone, //= stun, or make you fall asleep. //= The prize is configurable and triggered by the NPC. //===== Additional Comments: ================================= //= 1.0 First release. //= 1.1 Using 'switch rand' instead. //= 1.2 Cleaned and standardized. [Euphy] //= 1.2a Switched 'atcommand' to 'unitskilluseid'. //============================================================ glemior,208,312,4 script Cluckers 800,{ set .@GMAccess,99; // GM level required to access NPC if (.startcluck) { specialeffect2 2; switch(rand(15)) { case 0: npctalk "CLUUUUUUCK!!!"; unitskilluseid getcharid(3),"NPC_SELFDESTRUCTION",1; emotion e_omg; break; case 1: npctalk "Cluuuuuck!~"; break; case 2: unitskilluseid getcharid(3),"NPC_SELFDESTRUCTION",1; break; case 3: sc_start SC_Freeze,10000,0; break; case 4: npctalk "CLUUUUUUUUUCK!!!"; unitskilluseid getcharid(3),"NPC_SELFDESTRUCTION",1; emotion e_omg; break; case 5: sc_start SC_Sleep,10000,0; break; case 6: sc_start SC_Stone,10000,0; emotion e_gg; break; case 7: npctalk "CLUUUUUUCK!!!"; unitskilluseid getcharid(3),"NPC_SELFDESTRUCTION",1; emotion e_omg; break; case 8: npctalk "Cluck! CLUUUCK!!"; unitskilluseid getcharid(3),"NPC_SELFDESTRUCTION",1; emotion e_omg; break; case 9: sc_start SC_Stun,10000,0; break; case 10: sc_start SC_Sleep,10000,0; emotion e_gg; break; case 11: npctalk "Cluck! Cluck!"; break; case 12: sc_start SC_Stun,10000,0; break; case 13: unitskilluseid getcharid(3),"NPC_SELFDESTRUCTION",1; break; default: if (rand(50) < 4) { npctalk "WOOF!..........."; specialeffect2 72; announce "[Cluck! Cluck! Boom!] " + strcharinfo(0) + " squeezed out the prize! Well done!",0; getitem callfunc( "F_Rand", 8177,8178,8179,8179,,8180,8181,8182,8183,8184,8188,8189,8190,8191,8192,8193,8194,8201,8202,8208,8210,8211,8212,8213,8214,8215,8216,8217,8218,8219,8220,8221,8223,8222,8224,8225,8195,8196,8176,19505 ), 1; set .startcluck,0; } else { npctalk "Cluck! CLUUUCK!!"; unitskilluseid getcharid(3),"NPC_SELFDESTRUCTION",1; } break; } end; } mes "[Cluckers]"; if (getgmlevel() >= .@GMAccess) { mes "Cluck cluck! Cluuuuuck? ^FF0000~Hi GM " + strcharinfo(0) + ", Wanna play today?~^000000"; mes "Cluck cluck... CLUCK! ^FF0000~Just tell me what to do!~^000000"; next; while(1) switch(select("Start Event:Check Prize:Set Prize:Not today Cluckers")) { case 1: mes "[Cluckers]"; mes "CLUCK! ^FF0000~Sure thing!~^000000"; emotion e_ok; close2; announce "[Cluck! Cluck! Boom!] is about to start in Glemior!",bc_blue; initnpctimer; end; case 2: mes "[Cluckers]"; mes "Cluck, cluck cluck... Cluck! ^FF0000~The current prize is^000000 ^008000"+ $cluck_item_amount +" "+ getitemname($cluck_item_id) +".^000000"; next; break; case 3: mes "[Cluckers]"; mes "Cluck cluck? Cluck??? ^FF0000~What should the prize for winning be? Please input the ID.~^000000"; input $cluck_item_id; next; mes "[Cluckers]"; mes "Cluck? cluuuck? ^FF0000~How many if this item should I give away?~^000000"; input $cluck_item_amount; next; mes "[Cluckers]"; mes "Cluck cluck..? Cluck. ^FF0000~So, the prize is^000000 ^008000"+ $cluck_item_amount +" "+ getitemname($cluck_item_id) +"^000000? ^FF0000Great.~^000000"; emotion e_ok; next; break; case 4: mes "[Cluckers]"; mes "Cluck cluck cluck..."; close; } } mes "Cluck cluck! Cluuuuuck?"; mes "Cluck...."; close; OnTimer10000: announce "Please hurry behind the fountain if you want to play with the crazy chicken!",bc_blue; end; OnTimer20000: announce "Cluckers has eaten one of my items! I'm too scared to retrieve it!",bc_blue; end; OnTimer30000: announce "Click the insane chicken and try squeeze out the item, if you're lucky you'll win! Are you ready?",bc_blue; end; OnTimer40000: announce "GO! Click the chicken to get the prize!",bc_blue; stopnpctimer; if (!$cluck_item_id) set $cluck_item_id,512; if (!$cluck_item_amount) set $cluck_item_amount,1; set .startcluck,1; end; OnMinute00: if(gettime(3) % 2 == 0) { initnpctimer; announce "[Cluck! Cluck! Boom!] is about to start in Glemior!",bc_blue; } end; }
-
Here's the rental bossnia script I used before on my server, should give you an idea. quiz_00,53,31,3 script Gatekeeper 737,{ if(gettimetick(2) < #EntFee) goto Lent; mes "[^000088 Da Dark Lord ^000000]"; mes "Do you want to enter bossnia?"; mes "You would be needing an entrance of 1 TCG and it would be good for 1 day.."; menu "Okay, fair enough!",-; next; if(countitem(7227) < 1) goto Lnenough; delitem 7227,1; set #EntFee,gettimetick(2)+86400; goto Lent; Lent: mes "[^000088 Da Dark Lord ^000000]"; mes "Which room do you want to enter?"; menu "Room 1 ["+getmapusers("bossnia_01")+"]",-,"Room 2 ["+getmapusers("bossnia_02")+"]",Lr2,"Room 3 ["+getmapusers("bossnia_03")+"]",Lr3,"Room 4 ["+getmapusers("bossnia_04")+"]",Lr4; next; mes "[^000088 Da Dark Lord ^000000]"; mes "Best wishes.."; warp "bossnia_01",0,0; close; Lr2: next; mes "[^000088 Da Dark Lord ^000000]"; mes "Best wishes.."; warp "bossnia_02",0,0; close; Lr3: next; mes "[^000088 Da Dark Lord ^000000]"; mes "Best wishes.."; warp "bossnia_03",0,0; close; Lr4: next; mes "[^000088 Da Dark Lord ^000000]"; mes "Best wishes.."; warp "bossnia_04",0,0; close; Lnenough: mes "[^000088 Da Dark Lord ^000000]"; mes "Don't try to fool me!"; close; } bossnia_01 mapflag nowarp bossnia_01 mapflag nowarpto bossnia_01 mapflag noteleport bossnia_01 mapflag nosave SavePoint bossnia_01 mapflag noicewall bossnia_01 mapflag nobranch bossnia_01 mapflag nomemo bossnia_01 mapflag noexp bossnia_02 mapflag nowarp bossnia_02 mapflag nowarpto bossnia_02 mapflag noteleport bossnia_02 mapflag nosave SavePoint bossnia_02 mapflag noicewall bossnia_02 mapflag nobranch bossnia_02 mapflag nomemo bossnia_02 mapflag noexp bossnia_03 mapflag nowarp bossnia_03 mapflag nowarpto bossnia_03 mapflag noteleport bossnia_03 mapflag nosave SavePoint bossnia_03 mapflag noicewall bossnia_03 mapflag nobranch bossnia_03 mapflag nomemo bossnia_03 mapflag noexp bossnia_03 mapflag pvp bossnia_04 mapflag nowarp bossnia_04 mapflag nowarpto bossnia_04 mapflag noteleport bossnia_04 mapflag nosave SavePoint bossnia_04 mapflag noicewall bossnia_04 mapflag nobranch bossnia_04 mapflag nomemo bossnia_04 mapflag noexp bossnia_04 mapflag pvp
-
I lol'd on the first line when I saw 300+ votes under 1 IP xD
-
help how convert database password md5 to normal
sandbox replied to Yasunari Ishibashi's question in Installation Support
login_athena.conf -
Try this if your server doesnt have the VIP system //===== rAthena Script ======================================= //= Healer //===== By: ================================================== //= Euphy //===== Current Version: ===================================== //= 1.1 //===== Compatible With: ===================================== //= rAthena SVN //===== Description: ========================================= //= Basic healer script. //===== Additional Comments: ================================= //= 1.0 Initial script. //= 1.1 Aligned coordinates with @go. //============================================================ - script Healer -1,{ set .@Price,0; // Zeny required for heal set .@Buffs,1; // Also buff players? (1: yes / 0: no) set .@Delay,3; // Heal delay, in seconds if(getgroupid() > 5) { specialeffect2 EF_ASSUMPTIO; sc_start SC_ASSUMPTIO,600000,5; specialeffect2 EF_CONCENTRATE; sc_start SC_CONCENTRATE,600000,10; switch(Class){ case 18: case 4019: case 4071: case 4078: skilleffect "SL_ALCHEMIST",0; sc_start4 SC_SPIRIT,9999999,5,455,0,0; break; case 15: case 4016: case 4070: case 4077: skilleffect "SL_MONK",0; sc_start4 SC_SPIRIT,9999999,5,447,0,0; break; case 4047: skilleffect "SL_STAR",0; sc_start4 SC_SPIRIT,9999999,5,448,0,0; break; case 16: case 4017: case 4067: case 4074: skilleffect "SL_SAGE",0; sc_start4 SC_SPIRIT,9999999,5,449,0,0; break; case 14: case 4015: case 4066: case 4073: skilleffect "SL_CRUSADER",0; sc_start4 SC_SPIRIT,9999999,5,450,0,0; break; case 23: case 4190: skilleffect "SL_SUPERNOVICE",0; sc_start4 SC_SPIRIT,9999999,5,451,0,0; break; case 7: case 4008: case 4054: case 4060: skilleffect "SL_KNIGHT",0; sc_start4 SC_SPIRIT,9999999,5,452,0,0; break; case 9: case 4010: case 4055: case 4061: skilleffect "SL_WIZARD",0; sc_start4 SC_SPIRIT,9999999,5,453,0,0; break; case 8: case 4009: case 4057: case 4063: skilleffect "SL_PRIEST",0; sc_start4 SC_SPIRIT,9999999,5,454,0,0; break; case 19: case 20: case 4020: case 4021: case 4068: case 4069: case 4075: case 4076: skilleffect "SL_BARDDANCER",0; sc_start4 SC_SPIRIT,9999999,5,455,0,0; break; case 17: case 4018: case 4072: case 4079: skilleffect "SL_ROGUE",0; sc_start4 SC_SPIRIT,9999999,5,456,0,0; break; case 12: case 4013: case 4059: case 4065: skilleffect "SL_ASSASIN",0; sc_start4 SC_SPIRIT,9999999,5,457,0,0; break; case 10: case 4011: skilleffect "SL_BLACKSMITH",0; sc_start4 SC_SPIRIT,9999999,5,458,0,0; break; case 11: case 4012: case 4056: case 4062: skilleffect "SL_HUNTER",0; sc_start4 SC_SPIRIT,9999999,5,460,0,0; break; case 4049: skilleffect "SL_SOULLINKER",0; sc_start4 SC_SPIRIT,9999999,5,461,0,0; break; default: break; } } if (@HD > gettimetick(2)) end; if (.@Price) { message strcharinfo(0),"Healing costs "+.@Price+" Zeny."; if (Zeny < .@Price) end; if(select("^0055FFHeal^000000:^777777Cancel^000000") == 2) end; set Zeny, Zeny-.@Price; } specialeffect2 EF_HEAL2; percentheal 100,100; if (.@Buffs) { repairall; skilleffect 34,0; sc_start SC_BLESSING,360000,10; skilleffect 29,0; sc_start SC_INCREASEAGI,360000,10; // buff for level below 85 if( BaseLevel < 85 ){ skilleffect 361,0; sc_start SC_ASSUMPTIO,360000,5; skilleffect 33,0; sc_start SC_ANGELUS,360000,10; skilleffect 74,0; sc_start SC_MAGNIFICAT,360000,5; skilleffect 75,0; sc_start SC_GLORIA,360000,5; skilleffect 66,0; sc_start SC_IMPOSITIO,360000,5; } } // Identify All getinventorylist; for( set .@itemnum, 0; .@itemnum < @inventorylist_count; set .@itemnum, .@itemnum + 1 ) { if ( @inventorylist_identify[.@itemnum] != 1 ) { delitem2 @inventorylist_id[.@itemnum],1,0,0,0,0,0,0,0; getitem @inventorylist_id[.@itemnum],1; } } if (.@Delay) set @HD, gettimetick(2)+.@Delay; end; } // Ontouch prontera,156,190,0 script Healer:OnTouch -1,5,5,{ OnTouch: set .@Price,0; // Zeny required for heal set .@Buffs,1; // Also buff players? (1: yes / 0: no) set .@Delay,3; // Heal delay, in seconds if (@HD > gettimetick(2)) end; if (.@Price) { message strcharinfo(0),"Healing costs "+.@Price+" Zeny."; if (Zeny < .@Price) end; if(select("^0055FFHeal^000000:^777777Cancel^000000") == 2) end; set Zeny, Zeny-.@Price; } specialeffect2 EF_HEAL2; percentheal 100,100; if (.@Buffs) { repairall; skilleffect 34,0; sc_start SC_BLESSING,360000,10; skilleffect 29,0; sc_start SC_INCREASEAGI,360000,10; // buff for level below 85 if( BaseLevel < 85 ){ skilleffect 361,0; sc_start SC_ASSUMPTIO,360000,5; skilleffect 33,0; sc_start SC_ANGELUS,360000,10; skilleffect 74,0; sc_start SC_MAGNIFICAT,360000,5; skilleffect 75,0; sc_start SC_GLORIA,360000,5; skilleffect 66,0; sc_start SC_IMPOSITIO,360000,5; } } // Identify All getinventorylist; for( set .@itemnum, 0; .@itemnum < @inventorylist_count; set .@itemnum, .@itemnum + 1 ) { if ( @inventorylist_identify[.@itemnum] != 1 ) { delitem2 @inventorylist_id[.@itemnum],1,0,0,0,0,0,0,0; getitem @inventorylist_id[.@itemnum],1; } } if (.@Delay) set @HD, gettimetick(2)+.@Delay; end; } // Duplicates //============================================================ alberta,25,240,6 duplicate(Healer) Healer#alb 624 aldebaran,135,118,6 duplicate(Healer) Healer#alde 624 amatsu,200,79,4 duplicate(Healer) Healer#ama 624 ayothaya,155,112,6 duplicate(Healer) Healer#ayo 624 comodo,184,158,6 duplicate(Healer) Healer#com 624 einbech,57,36,6 duplicate(Healer) Healer#einbe 624 einbroch,57,202,6 duplicate(Healer) Healer#einbr 624 geffen,115,72,6 duplicate(Healer) Healer#gef 624 gonryun,156,122,6 duplicate(Healer) Healer#gon 624 hugel,89,150,6 duplicate(Healer) Healer#hug 624 izlude,121,150,6 duplicate(Healer) Healer#izl 624 //Pre-RE: (125,118) jawaii,250,139,4 duplicate(Healer) Healer#jaw 624 lighthalzen,152,100,6 duplicate(Healer) Healer#lhz 624 louyang,226,103,4 duplicate(Healer) Healer#lou 624 manuk,272,144,6 duplicate(Healer) Healer#man 624 mid_camp,203,289,6 duplicate(Healer) Healer#mid 624 moc_ruins,72,164,4 duplicate(Healer) Healer#moc 624 morocc,153,97,6 duplicate(Healer) Healer#mor 624 moscovia,220,191,4 duplicate(Healer) Healer#mos 624 niflheim,212,182,5 duplicate(Healer) Healer#nif 624 payon,179,106,4 duplicate(Healer) Healer#pay 624 prontera,156,190,4 duplicate(Healer) Healer#prt 624 rachel,125,116,6 duplicate(Healer) Healer#rac 624 splendide,201,153,4 duplicate(Healer) Healer#spl 624 thor_camp,249,74,4 duplicate(Healer) Healer#thor 624 umbala,105,148,3 duplicate(Healer) Healer#umb 624 veins,217,121,4 duplicate(Healer) Healer#ve 624 xmas,143,136,4 duplicate(Healer) Healer#xmas 624 yuno,164,45,4 duplicate(Healer) Healer#yuno 624 caspen,153,209,4 duplicate(Healer) Healer#caspen 624 // Duplicates (Renewal) //============================================================ brasilis,194,221,6 duplicate(Healer) Healer#bra 624 dicastes01,201,194,4 duplicate(Healer) Healer#dic 624 ecl_in01,45,60,4 duplicate(Healer) Healer#ecl 624 malangdo,132,114,6 duplicate(Healer) Healer#mal 624 malaya,227,204,6 duplicate(Healer) Healer#ma 624 mora,55,152,4 duplicate(Healer) Healer#mora 624 //ON TOUCH HEALER alberta,25,240,6 duplicate(Healer:OnTouch) Healer:OnTouch#alb -1,5,5,{ aldebaran,135,118,6 duplicate(Healer:OnTouch) Healer:OnTouch#alde -1,5,5,{ amatsu,200,79,4 duplicate(Healer:OnTouch) Healer:OnTouch#ama -1,5,5,{ ayothaya,155,112,6 duplicate(Healer:OnTouch) Healer:OnTouch#ayo -1,5,5,{ comodo,184,158,6 duplicate(Healer:OnTouch) Healer:OnTouch#com -1,5,5,{ einbech,57,36,6 duplicate(Healer:OnTouch) Healer:OnTouch#einbe -1,5,5,{ einbroch,57,202,6 duplicate(Healer:OnTouch) Healer:OnTouch#einbr -1,5,5,{ geffen,115,72,6 duplicate(Healer:OnTouch) Healer:OnTouch#gef -1,5,5,{ gonryun,156,122,6 duplicate(Healer:OnTouch) Healer:OnTouch#gon -1,5,5,{ hugel,89,150,6 duplicate(Healer:OnTouch) Healer:OnTouch#hug -1,5,5,{ izlude,121,150,6 duplicate(Healer:OnTouch) Healer:OnTouch#izl -1,5,5,{ //Pre-RE: jawaii,250,139,4 duplicate(Healer:OnTouch) Healer:OnTouch#jaw -1,5,5,{ lighthalzen,152,100,6 duplicate(Healer:OnTouch) Healer:OnTouch#lhz -1,5,5,{ louyang,226,103,4 duplicate(Healer:OnTouch) Healer:OnTouch#lou -1,5,5,{ manuk,272,144,6 duplicate(Healer:OnTouch) Healer:OnTouch#man -1,5,5,{ mid_camp,203,289,6 duplicate(Healer:OnTouch) Healer:OnTouch#mid -1,5,5,{ moc_ruins,72,164,4 duplicate(Healer:OnTouch) Healer:OnTouch#moc -1,5,5,{ morocc,153,97,6 duplicate(Healer:OnTouch) Healer:OnTouch#mor -1,5,5,{ moscovia,220,191,4 duplicate(Healer:OnTouch) Healer:OnTouch#mos -1,5,5,{ niflheim,212,182,5 duplicate(Healer:OnTouch) Healer:OnTouch#nif -1,5,5,{ payon,179,106,4 duplicate(Healer:OnTouch) Healer:OnTouch#pay -1,5,5,{ prontera,156,190,4 duplicate(Healer:OnTouch) Healer:OnTouch#prt -1,5,5,{ rachel,125,116,6 duplicate(Healer:OnTouch) Healer:OnTouch#rac -1,5,5,{ splendide,201,153,4 duplicate(Healer:OnTouch) Healer:OnTouch#spl -1,5,5,{ thor_camp,249,74,4 duplicate(Healer:OnTouch) Healer:OnTouch#thor -1,5,5,{ umbala,105,148,3 duplicate(Healer:OnTouch) Healer:OnTouch#umb -1,5,5,{ veins,217,121,4 duplicate(Healer:OnTouch) Healer:OnTouch#ve -1,5,5,{ xmas,143,136,4 duplicate(Healer:OnTouch) Healer:OnTouch#xmas -1,5,5,{ yuno,164,45,4 duplicate(Healer:OnTouch) Healer:OnTouch#yun -1,5,5,{ caspen,153,209,4 duplicate(Healer:OnTouch) Healer:OnTouch#caspen -1,5,5,{
-
Try this script of mine for dice event. just edit the 'getitem' part to 'set' http://rathena.org/board/topic/92898-quests-games-dice-event/