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;
}
