summaryrefslogtreecommitdiff
path: root/npc/001-2/casino.txt
diff options
context:
space:
mode:
Diffstat (limited to 'npc/001-2/casino.txt')
-rw-r--r--npc/001-2/casino.txt175
1 files changed, 175 insertions, 0 deletions
diff --git a/npc/001-2/casino.txt b/npc/001-2/casino.txt
new file mode 100644
index 00000000..cf4943a4
--- /dev/null
+++ b/npc/001-2/casino.txt
@@ -0,0 +1,175 @@
+//
+
+001-2.gat,134,23,0 script Valdo 117,{
+ mes "[Valdo the Worker]";
+ mes "\"Please let me work, I'm really in a hurry!\"";
+ close;
+}
+
+001-2.gat,37,65,0 script Slot1 127,{
+ callfunc "SlotMachine";
+ close;
+}
+
+001-2.gat,39,65,0 script Slot2 127,{
+ callfunc "SlotMachine";
+ close;
+}
+
+001-2.gat,41,65,0 script Slot3 127,{
+ callfunc "SlotMachine";
+ close;
+}
+
+001-2.gat,32,67,0 shop MoneyChanger 124,503:10
+
+001-2.gat,28,63,0 script BlackJack 107,{
+ mes "[Croupier]";
+ mes "\"Would you like to play Black Jack?";
+ mes "You will need 15 casino coins.\"";
+ next;
+
+ menu
+ "Yes", L_Begin,
+ "No", -;
+ mes "\"As you wish.\"";
+ close;
+
+L_Begin:
+ if(countitem("CasinoCoins") < 15) goto L_NoCoin;
+ delitem "CasinoCoins", 15;
+ set @croupier, rand(0, 4);
+ set @croupier, @croupier + 17;
+ set @player, rand(4, 21);
+ mes "\"You got " + @player + " with your cards.";
+ if(@player == 21) goto L_End;
+ mes "Do you want another card?\"";
+ next;
+
+ menu
+ "Yes", L_Another,
+ "No", L_End;
+
+L_Another:
+ set @tempace, rand(2, 11);
+ if (@tempace == 11) goto L_Ace;
+ set @player, @player + @tempace;
+ if (@player > 21) goto L_Lost;
+ if (@player == 21) goto L_End;
+ mes "\"You got " + @player + " with your cards.";
+ mes "Do you want another card?\"";
+ next;
+
+ menu
+ "Yes", L_Another,
+ "No", L_End;
+L_End:
+ if (@player <= @croupier) goto L_Lost;
+ mes "\"Congratulations, you won!";
+ mes "I had " + @croupier + ".";
+ mes "You get 45 casino coins.\"";
+ getitem "CasinoCoins", 45;
+ close;
+
+L_NoCoin:
+ mes "\"You need at least 15 coins.\"";
+ close;
+
+L_Lost:
+ mes "\"I'm sorry but you lost.";
+ mes "You got " + @player + " with your cards.";
+ mes "I had " + @croupier + ".\"";
+ close;
+
+L_Ace:
+ set @player, @player + 11;
+ if (@player > 21) set @player, @player - 10;
+ if (@player > 21) goto L_Lost;
+ if (@player == 21) goto L_End;
+ mes "You got " + @player + " with your cards.";
+ mes "Do you want another card?";
+ next;
+
+ menu
+ "Yes", L_Another,
+ "No", L_End;
+ close;
+}
+
+001-2.gat,22,69,0 script Roulette 107,{
+ mes "\"Good evening monsieur...";
+ mes "How much would you like to bet?\"";
+ next;
+
+ menu
+ "1 coin", L_b1,
+ "5 coins", L_b5,
+ "10 coins", L_b10,
+ "50 coins", L_b50,
+ "100 coins", L_b100,
+ "Maybe I'll play later", -;
+ mes "Come again.";
+ close;
+
+L_b1:
+ set @bet, 1;
+ goto L_Check;
+
+L_b5:
+ set @bet, 5;
+ goto L_Check;
+
+L_b10:
+ set @bet, 10;
+ goto L_Check;
+
+L_b50:
+ set @bet, 50;
+ goto L_Check;
+
+L_b100:
+ set @bet, 100;
+ goto L_Check;
+
+L_Check:
+ if(countitem("CasinoCoins") < @bet) goto L_NoCoin;
+ delitem "CasinoCoins", @bet;
+ menu
+ "Choose a color", -,
+ "Choose a number", L_Number;
+ menu
+ "Black", -,
+ "Red", -;
+ set @color,rand(2);
+ if(@color == 1) goto L_Lost;
+ mes "You won!";
+ getitem "CasinoCoins", @bet * 2;
+ close;
+
+L_Number:
+ menu
+ "0", -, "00", -, "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", -, "36", -;
+
+ if (@menu == 1) set @number, 0;
+ if (@menu == 2) set @number, 37;
+ if (@menu >= 3) set @number, @menu - 2;
+
+ set @roulette, rand(38);
+ if (@roulette == 37) mes "The ball stopped on 00";
+ if (@roulette < 37) mes "The ball stopped on " + @roulette;
+ if (@number != @roulette) goto L_Lost;
+ mes "\"You won!\"";
+ getitem "CasinoCoins", @bet * 10;
+ close;
+
+L_NoCoin:
+ mes "\"You don't have enough coins.\"";
+ close;
+
+L_Lost:
+ mes "\"I'm sorry, you lost.\"";
+ close;
+}