[Help Slot Machine] Help Setting Random Prizes in Slot Machine

[Obiwan]

Hi can someone help with this script i want the slot machine prizes to set to a random prizes 

 

Slot Machine Thread : 

 

http://rathena.org/board/topic/98001-quests-games-slot-machine/

 

 

Slot Machine Script this is the original script :

 

/* =============================================================
/* Slot Machine - Triple Slot Machine
/* =============================================================
/* Version: v0.7
/* v0.1 - Original Script Created.
/* v0.2 - Added Option for Triple Slot Machine with animations.
/* v0.3 - Added support for item pricing &/or zeny pricing.
/* v0.4 - Cleaned up script variables for easy editing.
/* v0.5 - Tested out some new scripting methods with IF(THEN).
/* v0.6 - Added option to change slot machine modes ingame.
/* v0.7 - Added optional sound effects to slot machines. - NOTE 
/* =============================================================
/* Description
/* =============================================================
/* This script will allow users to spend zeny &/or an item for a
/* chance to win a prize from the slot machine. Currently there
/* are 2 versions. First is a Single Slot Machine, where only 1 
/* slot is rolled. Second is the Triple Slot machine, where 3
/* slots are rolled. For either version, SUCCESS must be the 
/* only thing displayed in order to win.
/* =============================================================
/* NOTE - If using soundeffects you must add the ".wav" files
/* provided in the ".rar" file to your: data/wav  folder located
/* in either your:  ( Ragnarok folder )  OR  ( .grf file )
/* =============================================================
/* Created By: GmOcean
/* ===========================================================*/


prontera,165,140,4 script SlotMachine::1slot 563,{
if( getgmlevel() == 99 ) {
mes "Welcome Administrator.","What would you like to do?";
menu "Play Game",-,"Change Slot Machine Mode",iMode;
next;
}
switch( getd(".mode"+strnpcinfo(3)+"") ){
case 0: // Single Slot machine mode.
mes "Do you want to play a game?";
if( !.payment ) { mes "It costs: "+ .ssm_payment_message$[0] +" to play."; }
else if ( .payment == 1 ) { mes "It costs: "+ .ssm_payment_message$[1] +" to play."; }
else if ( .payment == 2 ) { mes "It costs: "+ .ssm_payment_message$[0] +" & "+ .payment_message$[1] +" to play."; }
if( select("YES:NO") == 2 || Zeny < .ssm_payment[0] && ( !.payment || .payment == 2 ) || countitem(.ssm_payment[1]) < .ssm_payment[2] && .payment ){ close; }
while( @menu == 1 ){
if( !.payment || .payment == 2 ) { Zeny -= .ssm_payment[0]; }
if( .payment ) { delitem( .ssm_payment[1], .ssm_payment[2] ); }
if( .soundeffects ) { soundeffect "se_cash_provider.wav",0; }
.@a = rand(1,100);
if( .@a < atoi(.ssm_animate$[0]) ){ .@a = 1; } else { .@a = 2; }
.@b = 1;
while( .@b < atoi(.ssm_animate$[.@a]) ) {
cutin .ssm_animate$[3] + .@b,4; sleep2 ( ( atoi(.ssm_animate$[4]) * 1000 ) / atoi(.ssm_animate$[.@a]) ); .@b++;
}
if( .@a == 1 ){ 
cutin .ssm_animate$[3] + atoi(.ssm_animate$[.@a]),4;
dispbottom "Failed";
} 
else {
cutin .ssm_animate$[3] + atoi(.ssm_animate$[.@a]),4;
if( !.prize || .prize == 2 ) { Zeny += .ssm_prize[0]; }
if( .prize ) { getitem .ssm_prize[1], .ssm_prize[2]; }
if( .soundeffects ){ soundeffect "rog_steal coin.wav",0; }
}
if( select("Another Round:I'm done") == 2 || Zeny < .ssm_payment[0] && ( !.payment || .payment == 2 ) || countitem(.ssm_payment[1]) < .ssm_payment[2] && .payment ){ cutin "",255; close; }
}
end;


case 1: // Triple Slot machine mode.
mes "Do you want to play a game?";
if( !.payment ) { mes "It costs: "+ .tsm_payment_message$[0] +" to play."; }
else if ( .payment == 1 ) { mes "It costs: "+ .tsm_payment_message$[1] +" to play."; }
else if ( .payment == 2 ) { mes "It costs: "+ .tsm_payment_message$[0] +" & "+ .tsm_payment_message$[1] +" to play."; }
if( select("YES:NO") == 2 || Zeny < .tsm_payment[0] && ( !.payment || .payment == 2 ) || countitem(.tsm_payment[1]) < .tsm_payment[2] && .payment ){ close; }
while( @menu == 1 ){
if( !.payment || .payment == 2 ) { Zeny -= .tsm_payment[0]; }
if( .payment ) { delitem( .tsm_payment[1], .tsm_payment[2] ); }
if( .soundeffects ) { soundeffect "se_cash_provider.wav",0; }
// Slot 1 = 100% Chance for success. (Because I didn't make a fail animation for it.
.@2 = rand(1,100); //Rolls dice for Slot 2
.@3 = rand(1,100); //Rolls dice for Slot 3
if( .@2 <= atoi(.tsm_animate$[0]) && .@3 <= atoi(.tsm_animate$[1]) ){ .@a = 8; }
else if( .@2 <= atoi(.tsm_animate$[0]) && .@3 > atoi(.tsm_animate$[1]) ){ .@a = 6; }
else if( .@2 > atoi(.tsm_animate$[0]) && .@3 <= atoi(.tsm_animate$[1]) ){ .@a = 4; }
else { .@a = 2; }
.@b = 1;
while( .@b < atoi(.tsm_animate$[.@a+1]) ) {
cutin .tsm_animate$[.@a] + .@b,4; sleep2 ( ( atoi(.tsm_animate$[10]) * 1000 ) / atoi(.tsm_animate$[.@a+1]) ); .@b++;
}
cutin .tsm_animate$[.@a] + atoi(.tsm_animate$[.@a+1]),4;
if( .@a == 2 ){
if( !.prize || .prize == 2 ) { Zeny += .tsm_prize[0]; }
if( .prize ) { getitem .tsm_prize[1], .tsm_prize[2]; }
if( .soundeffects ){ soundeffect "rog_steal_coin.wav",1; }
} else { dispbottom "Failed"; }
if( select("Another Round:I'm done") == 2 || Zeny < .tsm_payment[0] && ( !.payment || .payment == 2 ) || countitem(.tsm_payment[1]) < .tsm_payment[2] && .payment ){ cutin "",255; close; }
}
end;
}
OnSingleSlot:
setd ".mode"+strnpcinfo(3)+"",0;
end;
OnTripleSlot:
setd ".mode"+strnpcinfo(3)+"",1;
end;


iMode:
next;
mes "Which did you want to do?";
menu "Change THIS machine's mode:Change ALL machine's mode",-;
if( @menu == 1 ) {
next;
mes "What mode would you like this machine to have?";
menu "Single Slot Machine Mode:Triple Slot Machine Mode",-;
if( @menu == 1 ) {
setd ".mode"+strnpcinfo(3)+"",0;
} else {
setd ".mode"+strnpcinfo(3)+"",1;
}
close;
} else {
next;
mes "What mode would you like to change all slot machines to?";
menu "Single Slot Machine Mode:Triple Slot Machine Mode",-;
if( @menu == 1 ) {
donpcevent "::OnSingleSlot";
} else {
donpcevent "::OnTripleSlot";
}
close;
}


OnInit:
// 0 = Disabled, 1 = Enabled.
.soundeffects = 1; 


//[ 0 = Single Slot Machine Mode ]_[ 1 = Triple Slot Machine Mode ]
setd ".mode"+strnpcinfo(3)+"",0;


//[0] = Fail Rate
//[1] = Fail (Do not change)
//[2] = Success (Do not change)
//[3] = File Name (Do not change)
//[4] = Animation Time (Do not change, for best results )
setarray .ssm_animate$[0],"50","29","33","slot_","3";


//[0] = Fail Rate "Slot 2"
//[1] = Fail Rate "Slot 3"
//[2] = SSS (Do not change)
//[3] = SSS_Count (Do not change)
//[4] = SSF (Do not change)
//[5] = SSF_Count (Do not change)
//[6] = SFS (Do not change)
//[7] = SFS_Count (Do not change)
//[8] = SFF (Do not change)
//[9] = SFF_Count (Do not change)
//[10] = Animation Time (Do not change, for best results )
setarray .tsm_animate$[0],"30","30","SSS_","41","SSF_","37","SFS_","41","SFF_","45","3";


// Prize Settings
// Prize Type
// 0 = Zeny, 1 = Item, 2 = Zeny&Item
.prize = 1;
// [0] = Zeny, [1] = Item ID, [2] = Item Amount;
setarray .ssm_prize[0],125,25100,1;
setarray .tsm_prize[0],450,25100,3;


// Payment Settings
// Payment Type
// 0 = Zeny, 1 = Item, 2 = Zeny&Item
.payment = 0;
// [0] = Zeny, [1] = Item ID, [2] = Item Amount;
setarray .ssm_payment[0],5000000,501,1; // Single Slot Machine Payment Price
setarray .tsm_payment[0],3000000,501,1; // Triple Slot Machine Payment Price


// DO NOT CHANGE BELOW
// Payment Text Syntax
setarray .ssm_payment_message$[0],""+ .ssm_payment[0] +" zeny",""+ getitemname(.ssm_payment[1]) +" x"+ .ssm_payment[2] +"";
setarray .tsm_payment_message$[0],""+ .tsm_payment[0] +" zeny",""+ getitemname(.tsm_payment[1]) +" x"+ .tsm_payment[2] +"";
end;
}


//Duplicates
prontera,165,150,4 duplicate(1slot) SlotMachine#2slot 563
prontera,165,145,4 duplicate(1slot) SlotMachine#3slot 563

 

[Emistry]

getitem F_Rand( 501,502,503,504,505,506,507 ),1;

you can replace the getitem with the code above.

[NullHawk]

Sounds like your issue might be related to client-side limitations — especially if some item IDs aren’t rendering correctly. Double-check your itemInfo files and make sure the items in your shop actually exist in your current client setup. Also, try disabling any cash shop preview diffs if you’re using them — they sometimes interfere with pointshop or itemshop displays.

 

[Obiwan]

need help please

need help please

[iraciz]

switch( rand(9) ) {

case 0: getitem 4001,1; break;

case 1: getitem 4002,1; break;

case 2: getitem 4003,1; break;

case 3: getitem 4004,1; break;

case 4: getitem 4005,1; break;

case 5: getitem 4006,1; break;

case 6: getitem 4007,1; break;

case 7: getitem 4008,1; break;

case 8: getitem 4009,1; break;

}

end;

[iraciz]

thankyou