Help with prize machine

[sran]

 

Hello download this npc and I liked it a lot, but I would like to change two things, that instead of giving hats of 100 cash example, and that to deliver the 100 cash is quite difficult that 100% is 5% to give cash

Maquina de Premios.txt

[Radian]

2 hours ago, sran said:

 

Hello download this npc and I liked it a lot, but I would like to change two things, that instead of giving hats of 100 cash example, and that to deliver the 100 cash is quite difficult that 100% is 5% to give cash

Maquina de Premios.txt

Try this one and see if this what you want.

/*	[======================================================================] 
			 ____  _         _              ____       
			|  _ \(_) _   _ (_)_ __   ___  |  _ \ ___  
			| | | | |\ \ / /| | '_ \ / _ \ | |_) / _ \ 
			| |_| | | \ V / | | | | |  __/ |  _ < (_) |
			|____/|_|  \_/  |_|_| |_|\___| |_| \_\___/  	  
					_     _     _     _     _  
				       / \   / \   / \   / \   / \ 
				      ( R ) ( a ) ( k ) ( a ) ( y )
				       \_/   \_/   \_/   \_/   \_/  Scripting                                           
	[======================================================================]	
		Script: Maquina de Premios
	[======================================================================]
		Created by: Rakay~
	[======================================================================]
		Actualizaciones: • None.			 
	[======================================================================]
		Version: 1.0
	[======================================================================]
		Description: Maquina que da Premios Random con Chance x 2 Coin
	[======================================================================]
		Credits: Este es un Script de uso Libre para Divine, Respetar.
			 Los Creditos del Autor. Rakay~
	[======================================================================] */
prontera,136,171,5	script	Maquina de Premios	562,{

set .@Pcant,2;
set .@n$, "[^008888 Maquina ^000000]";

mes .@n$;
mes "Hola ^008888"+strcharinfo(0)+"^000000!";
mes "Debes Inserta "+.@Pcant+" Poring Coin Para Jugar.";
mes " ";
mes "Deseas Jugar?";
next;
	if ( select("Insertar Coins:Salir") == 2 ) {
		mes .@n$;
		mes "Ok, Regresa cuando Quieras Jugar.";
		close;
	} //End If
	mes .@n$;
	if(countitem(7539) < .@Pcant){
	mes "Lo Siento, Necesitas "+.@Pcant+" Poring Coin.";
	close;
	}
	set @rand,rand(1,100); //randomize from 1 to 100
	delitem 7539,.@Pcant;
	mes "Iniciemos, Buena Suerte!";
	mes "...";
	sleep2 1000;
	mes "......";
	sleep2 1000;
	mes ".........";
	if(@rand < .win_chance){ //check if player randomed a number between 1 to (chance of winning)
	specialeffect 610;
	specialeffect2 610;
	mes "  ";
	mes "Exelente, Atrapaste un ["+.cash_prize+"] cash...Regresa Pronto";
	set #cash, #cash + .cash_prize; //Add cash to player
	dispbottom "You received: "+.cash_prize+" Cash";
	close;
	} else {
	specialeffect 611;
	specialeffect2 611;
	mes "  ";
	mes "Lo Siento, No Atrapaste Nada....Intentalo Nuevamente!";
	close;
	}
OnInit:
	set .cash_prize, 100;
	set .win_chance, 5;
	end;
}

 

[Ninja]

Try this. 

I haven't tried it because I don't have any environment setup at the moment.

/*	[======================================================================] 
			 ____  _         _              ____       
			|  _ \(_) _   _ (_)_ __   ___  |  _ \ ___  
			| | | | |\ \ / /| | '_ \ / _ \ | |_) / _ \ 
			| |_| | | \ V / | | | | |  __/ |  _ < (_) |
			|____/|_|  \_/  |_|_| |_|\___| |_| \_\___/  	  
					_     _     _     _     _  
				       / \   / \   / \   / \   / \ 
				      ( R ) ( a ) ( k ) ( a ) ( y )
				       \_/   \_/   \_/   \_/   \_/  Scripting                                           
	[======================================================================]	
		Script: Maquina de Premios
	[======================================================================]
		Created by: Rakay~
	[======================================================================]
		Actualizaciones: • None.			 
	[======================================================================]
		Version: 1.0
	[======================================================================]
		Description: Maquina que da Premios Random con Chance x 2 Coin
	[======================================================================]
		Credits: Este es un Script de uso Libre para Divine, Respetar.
			 Los Creditos del Autor. Rakay~
	[======================================================================] */
prontera,136,171,5	script	Maquina de Premios	562,{

set .@Pcant,2;
set .@n$, "[^008888 Maquina ^000000]";

mes .@n$;
mes "Hola ^008888"+strcharinfo(0)+"^000000!";
mes "Debes Inserta "+.@Pcant+" Poring Coin Para Jugar.";
mes " ";
mes "Deseas Jugar?";
next;
	if ( select("Insertar Coins:Salir") == 2 ) {
		mes .@n$;
		mes "Ok, Regresa cuando Quieras Jugar.";
		close;
	} //End If
	mes .@n$;
	if(countitem(7539) < .@Pcant){
	mes "Lo Siento, Necesitas "+.@Pcant+" Poring Coin.";
	close;
	}
	set @rand,rand(1,100); //randomize from 1 to 100
	delitem 7539,.@Pcant;
	mes "Iniciemos, Buena Suerte!";
	mes "...";
	sleep2 1000;
	mes "......";
	sleep2 1000;
	mes ".........";
	if(@rand <= .win_chance){ //check if player randomed a number between 1 to (chance of winning)
	specialeffect 611;
	specialeffect2 611;
	mes "  ";
	mes "Lo Siento, No Atrapaste Nada....Intentalo Nuevamente!";
	close;
	}
	specialeffect 610;
	specialeffect2 610;
	mes "  ";
	mes "Exelente, Atrapaste un ["+.cash_prize+"] cash...Regresa Pronto";
	set #cash, #cash + .cash_prize; //Add cash to player
	close;
	

OnInit:
	set .cash_prize, 100;
	set .win_chance, 5;
	end;
}

You can customize how much cash and how big is the win rate by changing it through the "OnInit" part of the script.

[sran]

 

Hi, I've tried it, but I get cash every time and I try it with 50 pc, the truth is I want it to be really hard to get cash in the machine.

[sran]

Thanks solved, one last question if tomorrow I wish that it is more the possibility to make money where I have to change it