6 files changed, 288 insertions, 0 deletions
diff --git a/npc/new_8-1-tulimshar/casino.txt b/npc/new_8-1-tulimshar/casino.txt
new file mode 100644
index 00000000..732f5898
--- /dev/null
+++ b/npc/new_8-1-tulimshar/casino.txt
@@ -0,0 +1,172 @@
+//
+
+new_8-1.gat,134,23,0	script	Valdo	117,{
+	mes "[Valdo the Worker]";
+	mes "\"Please let me work, I'm really in a hurry!\"";
+	close;
+}
+
+new_8-1.gat,37,65,0	script	Slot1	127,{
+	callfunc "SlotMachine";
+}
+
+new_8-1.gat,39,65,0	script	Slot2	127,{
+	callfunc "SlotMachine";
+}
+
+new_8-1.gat,41,65,0	script	Slot3	127,{
+	callfunc "SlotMachine";
+}
+
+new_8-1.gat,32,67,0	shop	MoneyChanger	124,503:10
+
+new_8-1.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(503) < 15) goto L_NoCoin;
+	delitem 503, 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 50 casino coins.\"";
+	getitem 503, 50;
+	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;
+
+}
+
+new_8-1.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", L_Later;
+	mes "\"Rien ne va plus...\"";
+	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(503) < @bet) goto L_NoCoin;
+	delitem 503, @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 503, @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 503, @bet * 10;
+	close;
+
+L_NoCoin:
+	mes "\"You don't have enough coins.\"";
+	close;
+
+L_Lost:
+	mes "\"I'm sorry, you lost.\"";
+	close;
+}
diff --git a/npc/new_8-1-tulimshar/omar.txt b/npc/new_8-1-tulimshar/omar.txt
new file mode 100644
index 00000000..25865e5f
--- /dev/null
+++ b/npc/new_8-1-tulimshar/omar.txt
@@ -0,0 +1,6 @@
+//
+
+new_8-1.gat,70,60,0	script	Omar	162,{
+	mes "[Omar]";
+	mes "\"Welcome to my humble abode.\"";
+}
diff --git a/npc/new_8-1-tulimshar/passages.txt b/npc/new_8-1-tulimshar/passages.txt
new file mode 100644
index 00000000..43a7f9f7
--- /dev/null
+++ b/npc/new_8-1-tulimshar/passages.txt
@@ -0,0 +1,28 @@
+///////////////
+// Inn/Casino
+///////////////
+
+// Warps room 1
+new_8-1.gat,45,24	warp	upstairs	0,2,new_8-1.gat,65,25
+new_8-1.gat,25,35	warp	outside	0,0,new_3-1.gat,32,72
+
+// Warps room 2
+new_8-1.gat,65,25	warp	downstairs	0,1,new_8-1.gat,42,25
+new_8-1.gat,68,22	warp	tocasino	2,0,new_8-1.gat,32,72
+new_8-1.gat,67,31	warp	tobedroom1	1,1,new_8-1.gat,102,23
+new_8-1.gat,76,31	warp	tobedroom2	1,1,new_8-1.gat,130,23
+
+// Warps room 3
+new_8-1.gat,102,22	warp	bedroom1tohall	2,0,new_8-1.gat,67,29
+
+// Warps room 4
+new_8-1.gat,130,22	warp	bedroom2tohall	2,0,new_8-1.gat,76,29
+
+// Warps room 5
+new_8-1.gat,32,74	warp	tohall	1,0,new_8-1.gat,68,23
+
+///////////////
+// Houses
+///////////////
+
+new_8-1.gat,71,73	warp	outside	0,0,new_3-1.gat,75,42
diff --git a/npc/new_8-1-tulimshar/phaet.txt b/npc/new_8-1-tulimshar/phaet.txt
new file mode 100644
index 00000000..4cc13e9a
--- /dev/null
+++ b/npc/new_8-1-tulimshar/phaet.txt
@@ -0,0 +1,30 @@
+//
+
+new_8-1.gat,24,23,0	script	Phaet	125,{
+	mes "[Phaet the Royal Guard]";
+	mes "\"Hey, you seem tough enough! Would you like to prove your skills? I'll let you in the arena if you give me 50 gp. You can fight against other players there.\"";
+	next;
+
+	menu
+		"Yes", L_Sure,
+		"No", -;
+
+	mes "[Phaet the Royal Guard]";
+	mes "\"Ha ha, coward.\"";
+	close;
+
+L_Sure:
+	if (zeny < 50) goto L_NoMoney;
+	set zeny, zeny - 50;
+
+	mes "[Phaet the Royal Guard]";
+	mes "\"Get ready!\"";
+	next;
+
+	warp "new_6-1.gat", 0, 0;
+	close;
+
+L_NoMoney:
+	mes "\"Wait a second, you don't have enough money.\"";
+	close;
+}
diff --git a/npc/new_8-1-tulimshar/shops.txt b/npc/new_8-1-tulimshar/shops.txt
new file mode 100644
index 00000000..8482edd9
--- /dev/null
+++ b/npc/new_8-1-tulimshar/shops.txt
@@ -0,0 +1,9 @@
+//
+
+new_8-1.gat,26,26,0	shop	InnKeeper	112,539:175,513:20,519
+
+new_8-1.gat,103,26,0	script	Rebecca	118,{
+	set @npcName$, "Rebecca the Inn Keeper";
+	set @cost, 100;
+	callfunc "Inn";
+}
diff --git a/npc/new_8-1-tulimshar/troupe_leader.txt b/npc/new_8-1-tulimshar/troupe_leader.txt
new file mode 100644
index 00000000..a602b1d2
--- /dev/null
+++ b/npc/new_8-1-tulimshar/troupe_leader.txt
@@ -0,0 +1,43 @@
+//
+
+new_8-1.gat,34,25,0	script	Troupe Leader	165,{
+	if (Inspector == 4) goto L_NohMask_Troupe;
+	if (Inspector == 13) goto L_NohMask_Found;
+
+	mes "[Troupe Leader]";
+	mes "\"Hello. I'm the leader of a traveling theater troupe. We'll be staying here in Tulimshar for a while.\"";
+	close;
+
+L_NohMask_Troupe:
+	mes "[Troupe Leader]";
+	mes "\"Yes, a mask was stolen from us the last night we were in Hurnscald.\"";
+	next;
+	menu
+		"Any ideas on who might have taken it?", L_NohMask_Idea,
+		"Are you sure one of your troupe members didn't hide it and commit those robberies?", L_NohMask_Accuse,
+		"Hmm...", -;
+	close;
+
+L_NohMask_Idea:
+	set Inspector, 5;
+	mes "[Troupe Leader]";
+	mes "\"Hm...I did see an old man hang out near the theater after our last show.\"";
+	close;
+
+L_NohMask_Accuse:
+	mes "[Troupe Leader]";
+	mes "\"I am absolutely positive. None of my troupe have left the city since we got here. Good day!\"";
+	close;
+
+L_NohMask_Found:
+	mes "[Troupe Leader]";
+	mes "\"Thank you for finding the mask. You did such a good job, you should keep it.\"";
+	mes "[1500 experience points]";
+	getexp 1500, 0;
+	next;
+	set Inspector, 14;
+	getitem 678, 1;
+	mes "[Troupe Leader]";
+	mes "\"We don't need it anymore. We're doing different shows here.\"";
+	close;
+}