diff options
Diffstat (limited to 'world/map/npc/002-2/casino.txt')
| -rw-r--r-- | world/map/npc/002-2/casino.txt | 202 |
1 files changed, 0 insertions, 202 deletions
diff --git a/world/map/npc/002-2/casino.txt b/world/map/npc/002-2/casino.txt deleted file mode 100644 index 5e3999ac..00000000 --- a/world/map/npc/002-2/casino.txt +++ /dev/null @@ -1,202 +0,0 @@ -002-2,79,68,0|script|#CasinoEntrance|32767,13,0 -{ - set QUEST_NorthTulimshar, QUEST_NorthTulimshar | $@knowCasinoNT; - if (QL_KYLIAN != 6) - goto L_End; - message strcharinfo(0), "You wonder if Kylian would be interested in visiting the Casino."; - goto L_End; - -L_End: - end; -} - -002-2,86,29,0|script|Valdo|117 -{ - mes "[Valdo the Worker]"; - mes "\"Please let me work. I've got a lot to do and not enough time to do it!\""; - close; -} - -002-2,84,62,0|script|Slots#1|400 -{ - callfunc "SlotMachine"; - close; -} - -002-2,86,62,0|script|Slots#2|400 -{ - callfunc "SlotMachine"; - close; -} - -002-2,88,62,0|script|Slots#3|400 -{ - callfunc "SlotMachine"; - close; -} - -002-2,78,56,0|shop|MoneyChanger|124,CasinoCoins:*1 - -002-2,75,60,0|script|BlackJack|107 -{ - mes "[Croupier]"; - mes "\"Would you like to play Black Jack?"; - mes "You will need 15 casino coins.\""; - next; - menu - "Sure.", L_Begin, - "Not now.", L_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 "Your cards are worth " + @player + " points."; - if(@player == 21) goto L_End; - mes "Do you want another card?\""; - 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 "Your cards are worth " + @player + " points."; - mes "Do you want another card?\""; - menu - "Yes.", L_Another, - "No.", L_End; - -L_End: - if (@player <= @croupier) goto L_Lost; - mes "Your cards are worth " + @player + " points."; - mes "\"I have " + @croupier + " points."; - mes "Congratulations! You won!"; - mes "You get 45 casino coins!\""; - getitem "CasinoCoins", 45; - goto L_Close; - -L_NoCoin: - mes "\"Sorry, but you need at least 15 coins to play.\""; - goto L_Close; - -L_Lost: - mes "\"I'm sorry, but you lost."; - mes "Your cards are worth " + @player + " points."; - mes "I have " + @croupier + " points.\""; - goto L_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 "Your cards are worth " + @player + " points."; - mes "Do you want to take another card?"; - menu - "Yes", L_Another, - "No", L_End; - -L_Close: - mes "\"Be sure to come back again.\""; - set @croupier, 0; - set @player, 0; - set @tempace, 0; - close; -} - -002-2,69,67,0|script|Roulette|107 -{ - mes "[Croupier]"; - 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.", L_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; - menu - "Choose a color...", L_PickColor, - "Choose a number...", L_Number; - -L_PickColor: - menu - "Black.", L_Color, - "Red.", L_Color; - -L_Color: - delitem "CasinoCoins", @bet; - set @color,rand(2); - if(@color == 1) goto L_Lost; - mes "You won!"; - getitem "CasinoCoins", @bet * 2; - goto L_Close; - -L_Number: - menu - "0", L_Menuitems, "00", L_Menuitems, "1", L_Menuitems, "2", L_Menuitems, "3", L_Menuitems, "4", L_Menuitems, "5", L_Menuitems, "6", L_Menuitems, "7", L_Menuitems, "8", L_Menuitems, - "9", L_Menuitems, "10", L_Menuitems, "11", L_Menuitems, "12", L_Menuitems, "13", L_Menuitems, "14", L_Menuitems, "15", L_Menuitems, "16", L_Menuitems, "17", L_Menuitems, "18", L_Menuitems, - "19", L_Menuitems, "20", L_Menuitems, "21", L_Menuitems, "22", L_Menuitems, "23", L_Menuitems, "24", L_Menuitems, "25", L_Menuitems, "26", L_Menuitems, "27", L_Menuitems, "28", L_Menuitems, - "29", L_Menuitems, "30", L_Menuitems, "31", L_Menuitems, "32", L_Menuitems, "33", L_Menuitems, "34", L_Menuitems, "35", L_Menuitems, "36", L_Menuitems; - -L_Menuitems: - delitem "CasinoCoins", @bet; - 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; - goto L_Close; - -L_NoCoin: - mes "\"You don't have enough coins to play.\""; - goto L_Close; - -L_Lost: - mes "\"I'm sorry, but you lost.\""; - goto L_Close; - -L_Close: - mes "Come again!"; - set @number, 0; - set @roulette, 0; - set @color, 0; - set @bet, 50; - close; -} |