using flag to indicate the tutorial is done and adding behaviour according to that to all tut-npcs

3 files changed, 49 insertions, 6 deletions

diff --git a/npc/042-1/hasan.txt b/npc/042-1/hasan.txt
index 21364a44..63acf2c0 100644
--- a/npc/042-1/hasan.txt
+++ b/npc/042-1/hasan.txt
@@ -4,6 +4,7 @@
 
 	if ($scorp) goto L_Fear;
 
+	if (FLAGS & FLAG_TUTORIAL_DONE) goto L_Tut_Done;
 	if (hasan == 4) goto L_Thank;
 	if (hasan == 3) goto L_Trick;
 	if (hasan > 0) goto L_Toll;
@@ -54,7 +55,11 @@ L_Pay:
 	mes "He grins gloatingly.";
 	mes "[Hasan]";
 	mes "\"Very well. You may pass.\"";
-	//TODO: set variables
+	set hasan, 0;
+	set kaan, 0;
+	set sorfina, 0;
+	set tanisha, 0;
+	set FLAGS, FLAGS | FLAG_TUTORIAL_DONE;
 	close;
 
 L_Cheat:
@@ -86,7 +91,11 @@ L_Thank:
 	mes "\"I tell you something: Cool persons are allowed to pass for free.";
 	mes "And you can have this.\"";
 	getitem "SharpKnife", 1;
-	//TODO: clear all vars and set flag
+	set hasan, 0;
+	set kaan, 0;
+	set sorfina, 0;
+	set tanisha, 0;
+	set FLAGS, FLAGS | FLAG_TUTORIAL_DONE;
 	close;
 
 L_Fear:
@@ -95,6 +104,14 @@ L_Fear:
 	mes "He seems close to tears.";
 	close;
 
+L_Tut_Done:
+	mes "[Hasan]";
+	if (baselevel >= 40)
+		mes "\"Welcome to the suburbs of Tulimshar. I wonder what an experienced adventurer like you is doing here.\"";
+	if (baselevel < 40)
+		mes "\"Bah, nothing interesting is happening here.\"";
+	close;
+
 onScorpionDeath:
 	set $scorp, 0;
 	if (hasan != 3)
@@ -105,10 +122,15 @@ onScorpionDeath:
 }
 
 042-1.gat,117,76,0	script	#barrier	127,2,2{
-	//TODO: check variable
+	if (FLAGS & FLAG_TUTORIAL_DONE)
+		goto L_Tut;
 	warp "042-1.gat", 110, 73;
 	if ($scorp)
 		message strcharinfo(0), "Hasan: \"Please help me!\"";
-	message strcharinfo(0), "Hasan: \"Stop!\"";
+	if (!$scorp)
+		message strcharinfo(0), "Hasan: \"Stop!\"";
+	end;
+L_Tut:
+	warp "022-1.gat", 23, 38;
 	end;
 }
diff --git a/npc/042-1/kaan.txt b/npc/042-1/kaan.txt
index 4aec521d..19d05ea8 100644
--- a/npc/042-1/kaan.txt
+++ b/npc/042-1/kaan.txt
@@ -1,5 +1,6 @@
 042-1.gat,105,72,0	script	Kaan	160,{
 
+	if (FLAGS & FLAG_TUTORIAL_DONE) goto L_Tut_Done;
 	if (kaan == 4) goto L_Plan;
 	if (kaan == 3) goto L_Trick;
 	if (kaan == 2) goto L_Out;
@@ -115,6 +116,11 @@ L_Plan:
 		"No, everything's alright.",-;
 	close;
 
+L_Tut_Done:
+	mes "[Kaan]";
+	mes "\"Hi there. I hope you enjoy your time in Tulimshar.\"";
+	close;
+
 L_Close:
 	close;
 }
diff --git a/npc/042-1/valon.txt b/npc/042-1/valon.txt
index 02e91590..7605ae2b 100644
--- a/npc/042-1/valon.txt
+++ b/npc/042-1/valon.txt
@@ -1,8 +1,10 @@
 042-1.gat,17,82,0	script	Valon	156,2,1{
 
+	if (FLAGS & FLAG_TUTORIAL_DONE) goto L_Tut_Done;
+
 	mes "[Valon]";
-	mes "\"Hello!\"";
-	mes "\"You're looking for adventures, right?\"";
+	mes "\"Hello!";
+	mes "You're looking for adventures, right?\"";
 	next;
 	mes "\"But you shouldn't underestimate this desert, it is dangerous.\"";
 	next;
@@ -11,10 +13,23 @@
 	mes "\"If you really want to challenge the desert go to main Tulimshar first to prepare yourself.\"";
 	close;
 
+L_Tut_Done:
+	mes "[Valon]";
+	mes "\"Hello!";
+	mes "You're an adventurer, right?\"";
+	next;
+	mes "\"Be careful in the desert.\"";
+	close;
+
 OnTouch:
+	if (FLAGS & FLAG_TUTORIAL_DONE)
+		goto L_Tut;
 	warp "042-1.gat", 17, 78;
 	mes "[Valon]";
 	mes "\"The desert is merciless.";
 	mes "I can't let you leave like this.\"";
 	close;
+L_Tut:
+	warp "041-1.gat", 33, 8;
+	end;
 }