request event dice

[anginputih]

pleas share event dice and the prize poring coin

[Rikimaru]

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 [email protected]$,"[ Dice Master ]";
set .cost,"1000000";
set .porincid,XXXX;
set @pamount,XX;
//========================= End of Settings ==========================================
OnMenu:
mes [email protected]$;
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 [email protected]$;
if(Zeny < .cost) goto l_nozeny;
set Zeny, Zeny - .cost;
mes "Okay we'll start...";
set [email protected], rand(1,6);
if ([email protected] == 6) set [email protected]$,"6";
if ([email protected] == 5) set [email protected]$,"5";
if ([email protected] == 4) set [email protected]$,"4";
if ([email protected] == 3) set [email protected]$,"3";
if ([email protected] == 2) set [email protected]$,"2";
if ([email protected] == 1) set [email protected]$,"1";
set [email protected], rand(1,6);
if ([email protected] == 6) set [email protected]$,"6";
if ([email protected] == 5) set [email protected]$,"5";
if ([email protected] == 4) set [email protected]$,"4";
if ([email protected] == 3) set [email protected]$,"3";
if ([email protected] == 2) set [email protected]$,"2";
if ([email protected] == 1) set [email protected]$,"1";
next;
mes [email protected]$;
mes "Okay I've got a " + [email protected]$ + ",";
mes "You've got a " + [email protected]$+ " !";
next;
if([email protected]$ > [email protected]$) goto l_loose;
if([email protected]$ < [email protected]$) goto l_win;
if([email protected]$ == [email protected]$) goto l_draw;
close;
case 2:
mes [email protected]$;
mes "Okay bye!";
close;
}
l_nozeny:
mes [email protected]$;
mes "Sorry you need more Zenny!";
close;
l_loose:
mes [email protected]$;
mes "Haha,sorry you lost.";
goto OnMenu;
close;
l_draw:
mes [email protected]$;
mes "Draw,let's play again!";
goto OnMenu;
close;
l_win:
goto OnPrize;
OnPrize:
mes [email protected]$;
mes "Congratulations! You have won...";
mes "Take this as a Prize!";
next;
mes [email protected]$;
getitem .Poringcid,@pamount;
mes "Goodbye!";
close;
}[/codeBOX]