diff options
Diffstat (limited to 'npc/002-2/casino.txt')
| -rwxr-xr-x | npc/002-2/casino.txt | 195 |
1 files changed, 195 insertions, 0 deletions
diff --git a/npc/002-2/casino.txt b/npc/002-2/casino.txt new file mode 100755 index 00000000..5f123962 --- /dev/null +++ b/npc/002-2/casino.txt @@ -0,0 +1,195 @@ +002-2,79,68,0 script #CasinoEntrance NPC32767,13,0,{ + 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 NPC117,{ + 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 NPC400,{ + callfunc "SlotMachine"; + close; +} + +002-2,86,62,0 script Slots#2 NPC400,{ + callfunc "SlotMachine"; + close; +} + +002-2,88,62,0 script Slots#3 NPC400,{ + callfunc "SlotMachine"; + close; +} + +002-2,78,56,0 shop MoneyChanger NPC124,503:10 + +002-2,75,60,0 script BlackJack NPC107,{ + 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; + @croupier = rand(0, 4); + @croupier = @croupier + 17; + @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: + @tempace = rand(2, 11); + if (@tempace == 11) goto L_Ace; + @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: + @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.\""; + @croupier = 0; + @player = 0; + @tempace = 0; + close; +} + +002-2,69,67,0 script Roulette NPC107,{ + 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: + @bet = 1; + goto L_Check; + +L_b5: + @bet = 5; + goto L_Check; + +L_b10: + @bet = 10; + goto L_Check; + +L_b50: + @bet = 50; + goto L_Check; + +L_b100: + @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; + @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; + + @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!"; + @number = 0; + @roulette = 0; + @color = 0; + @bet = 50; + close; +} |