From ffdd6b6345e32983c86041d3e1cf6f3252e2bba0 Mon Sep 17 00:00:00 2001
From: Jessica Tölke <jtoelke@mail.upb.de>
Date: Sat, 4 Jun 2011 21:27:22 +0200
Subject: using flag to indicate the tutorial is done and adding behaviour
 according to that to all tut-npcs

---
 npc/042-1/hasan.txt | 30 ++++++++++++++++++++++++++----
 1 file changed, 26 insertions(+), 4 deletions(-)

(limited to 'npc/042-1/hasan.txt')

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;
 }
-- 
cgit v1.2.3-60-g2f50