path: root/npc/functions/slot_machine.txt

//

function	script	SlotMachine	{
	mes "Pull the lever...";
	next;
	menu
		"Pull", L_Play,
		"Maybe later", -;
	close;

L_Play:
	if(countitem("CasinoCoins") < 1) goto L_NoCoin;
	delitem "CasinoCoins", 1;
	set @Temp1,rand(7);
	set @Temp2,rand(7);
	set @Temp3,rand(7);
	mes "Numbers: " + @Temp1 + "/" + @Temp2 + "/" + @Temp3 + ".";
	next;
	
	if(@Temp1 != @Temp2) goto L_Lost;
	if(@Temp2 != @Temp3) goto L_Lost;
	if(@Temp1 != @Temp3) goto L_Lost;
	mes "Congratulations! You won!";
	mes "You get 10 casino coins";
	getitem "CasinoCoins", 10;
	close;
	
L_Lost:
	mes "You lost!";
	close;
	
L_NoCoin:
	mes "Insert coin";
	close;
}