1 files changed, 41 insertions, 0 deletions
diff --git a/npc/functions/slot_machine.txt b/npc/functions/slot_machine.txt
new file mode 100755
index 00000000..7b8cd23d
--- /dev/null
+++ b/npc/functions/slot_machine.txt
@@ -0,0 +1,41 @@
+
+function	script	SlotMachine	{
+    mes "Pull the lever...";
+    next;
+    menu
+        "Pull", L_Play,
+        "Maybe later", L_close;
+
+L_Play:
+    if(countitem("CasinoCoins") < 1)
+        goto L_NoCoin;
+    delitem "CasinoCoins", 1;
+    @Temp1 = rand(7);
+    @Temp2 = rand(7);
+    @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;
+    goto L_close;
+
+L_Lost:
+    mes "You lost!";
+    goto L_close;
+
+L_NoCoin:
+    mes "Insert coin";
+    goto L_close;
+
+L_close:
+    close2;
+    return;
+}