npc/functions/slot_machine.txt


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35

//

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;
}