Here is a little Mini Dice Event Script made by me:
//====================== rAthena Script =============================================================== //=== Made by Rikimaru //=== Topic Link : http://rathena.org/board/topic/58438-request-event-dice/ //==================== Information ==================================================================== //==== A Mini Dice Event Script //================= Version : ========================================================================= //=== V 1.1 Fixed a typo in the Script [ Rikimaru ] //=== V 1.0 Finished Scripting the Daily Reward Script [ Rikimaru ] //============== Credits : ============================================================================ //=== Credits to Rikimaru for the Daily Reward Script //=== rAthena Profile Link : http://rathena.org/board/user/434-rikimaru/ //===================================================================================================== //************************************************************************* prontera,151,191,5 script Mini Dice 872,{ //============================== Settings ============================================ set .@dicename$,"[ Dice Master ]"; set .cost,"1000000"; set .porincid,XXXX; set @pamount,XX; //========================= End of Settings ========================================== OnMenu: mes .@dicename$; mes "Hello " + strcharinfo(0) + " ,do"; mes "you want to play a round of dice?"; mes "if you want to play you need to "; mes "pay 1.000.000 Zenny every Round."; switch(select("Yes,sure!:No,I'm unlucky!")) { case 1: mes .@dicename$; if(Zeny < .cost) goto l_nozeny; set Zeny, Zeny - .cost; mes "Okay we'll start..."; set $@ran, rand(1,6); if ($@ran == 6) set .@dice1$,"6"; if ($@ran == 5) set .@dice1$,"5"; if ($@ran == 4) set .@dice1$,"4"; if ($@ran == 3) set .@dice1$,"3"; if ($@ran == 2) set .@dice1$,"2"; if ($@ran == 1) set .@dice1$,"1"; set $@ran2, rand(1,6); if ($@ran2 == 6) set .@dice2$,"6"; if ($@ran2 == 5) set .@dice2$,"5"; if ($@ran2 == 4) set .@dice2$,"4"; if ($@ran2 == 3) set .@dice2$,"3"; if ($@ran2 == 2) set .@dice2$,"2"; if ($@ran2 == 1) set .@dice2$,"1"; next; mes .@dicename$; mes "Okay I've got a " + .@dice1$ + ","; mes "You've got a " + .@dice2$+ " !"; next; if(.@dice1$ > .@dice2$) goto l_loose; if(.@dice1$ < .@dice2$) goto l_win; if(.@dice1$ == .@dice2$) goto l_draw; close; case 2: mes .@dicename$; mes "Okay bye!"; close; } l_nozeny: mes .@dicename$; mes "Sorry you need more Zenny!"; close; l_loose: mes .@dicename$; mes "Haha,sorry you lost."; goto OnMenu; close; l_draw: mes .@dicename$; mes "Draw,let's play again!"; goto OnMenu; close; l_win: goto OnPrize; OnPrize: mes .@dicename$; mes "Congratulations! You have won..."; mes "Take this as a Prize!"; next; mes .@dicename$; getitem .Poringcid,@pamount; mes "Goodbye!"; close; }[/codeBOX]