summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDennis Friis <peavey@placid.dk>2008-04-17 07:45:35 +0000
committerDennis Friis <peavey@placid.dk>2008-04-17 07:45:35 +0000
commit0c36595dce711a693f6917350341478bc2400443 (patch)
treedd774dee05de962f0a28897df94c3ef2bf5b14df
parent9941fb6ea07939d6e469654c827c47b7fa8dc110 (diff)
downloadserverdata-0c36595dce711a693f6917350341478bc2400443.tar.gz
serverdata-0c36595dce711a693f6917350341478bc2400443.tar.bz2
serverdata-0c36595dce711a693f6917350341478bc2400443.tar.xz
serverdata-0c36595dce711a693f6917350341478bc2400443.zip
Allow no loss cancel of casino game before spin. Also change slots so you have to confirm to pull giving you a change to back away if you do not want to play.
-rw-r--r--npc/tulimshar-casino/casino.txt18
1 files changed, 14 insertions, 4 deletions
diff --git a/npc/tulimshar-casino/casino.txt b/npc/tulimshar-casino/casino.txt
index fdce524a..245bf899 100644
--- a/npc/tulimshar-casino/casino.txt
+++ b/npc/tulimshar-casino/casino.txt
@@ -71,7 +71,10 @@ new_8-1.gat,134,23,0 script Valdo 117,{
new_8-1.gat,37,65,0 script Slot1 127,{
mes "Pull the lever...";
next;
-
+ menu "Pull",L_Play,"Maybe later",-;
+ close;
+
+L_Play:
if(countitem(503) < 1) goto L_NoCoin;
delitem 503,1;
set @Temp1,rand(7);
@@ -100,7 +103,10 @@ L_NoCoin:
new_8-1.gat,39,65,0 script Slot2 127,{
mes "Pull the lever...";
next;
-
+ menu "Pull",L_Play,"Maybe later",-;
+ close;
+
+L_Play:
if(countitem(503) < 1) goto L_NoCoin;
delitem 503,1;
set @Temp1,rand(7);
@@ -129,7 +135,10 @@ L_NoCoin:
new_8-1.gat,41,65,0 script Slot3 127,{
mes "Pull the lever...";
next;
-
+ menu "Pull",L_Play,"Maybe later",-;
+ close;
+
+L_Play:
if(countitem(503) < 1) goto L_NoCoin;
delitem 503,1;
set @Temp1,rand(7);
@@ -242,9 +251,9 @@ L_b100:
L_Check:
if(countitem(503) < @bet) goto L_NoCoin;
- delitem 503,@bet;
menu "Choose a color",-,"Choose a number",L_Number;
menu "Black",-,"Red",-;
+ delitem 503,@bet;
set @color,rand(2);
if(@color == 1) goto L_Lost;
mes "You won!";
@@ -372,6 +381,7 @@ L36:
goto L_CheckNumber;
L_CheckNumber:
+ delitem 503,@bet;
set @roulette,rand(38);
if (@roulette == 37) mes "We got a 00";
if (@roulette < 37) mes "We got a " + @roulette;