Add an option to make 10 spins at once because I'm estimating over 10k attempts

...minimum

1 files changed, 17 insertions, 2 deletions

diff --git a/npc/031-4/slots.txt b/npc/031-4/slots.txt
index 56fc59d5e..6ce158bee 100644
--- a/npc/031-4/slots.txt
+++ b/npc/031-4/slots.txt
@@ -6,6 +6,7 @@
 //      Rare Reward: Imperial Crown
 
 031-4,96,81,0	script	Slot Machine#031-4	NPC_NO_SPRITE,{
+    function spin;
     function symbol {
         switch (getarg(0)) {
         case 1:
@@ -97,6 +98,7 @@ L_Menu:
     next;
     menu
         rif(countitem(CasinoCoins) >= 1, l("Spin!")), L_Spin,
+        rif(countitem(CasinoCoins) >= 10, l("Spin 10 times!")), L_Spin10,
         l("Prizes"), L_Info,
         l("Leave"), -;
     close;
@@ -119,6 +121,19 @@ L_Info:
 
 
 L_Spin:
+    spin();
+    next;
+    goto L_Menu;
+
+L_Spin10:
+    for (.@i=0;.@i < 10;.@i++) {
+        spin();
+        dnext;
+    }
+    next;
+    goto L_Menu;
+
+function spin {
     mesc l("Spinning...");
     dnext;
     delitem CasinoCoins, 1;
@@ -180,8 +195,8 @@ L_Spin:
     } else {
         mesc l("It wasn't this time..."), 9;
     }
-    next;
-    goto L_Menu;
+    return;
+}
 
 OnInit:
     .sex = G_OTHER;