summaryrefslogtreecommitdiff
path: root/world/map/npc/042-1
diff options
context:
space:
mode:
Diffstat (limited to 'world/map/npc/042-1')
-rw-r--r--world/map/npc/042-1/_import.txt2
-rw-r--r--world/map/npc/042-1/_mobs.txt2
-rw-r--r--world/map/npc/042-1/_warps.txt2
-rw-r--r--world/map/npc/042-1/hasan.txt107
4 files changed, 51 insertions, 62 deletions
diff --git a/world/map/npc/042-1/_import.txt b/world/map/npc/042-1/_import.txt
index f7900726..d86cc00b 100644
--- a/world/map/npc/042-1/_import.txt
+++ b/world/map/npc/042-1/_import.txt
@@ -1,4 +1,4 @@
-// Map 042-1: unnamed map 042-1
+// Map 042-1: Tulimshar Suburbs
// This file is generated automatically. All manually changes will be removed when running the Converter.
map: 042-1.gat
npc: npc/042-1/_mobs.txt
diff --git a/world/map/npc/042-1/_mobs.txt b/world/map/npc/042-1/_mobs.txt
index ef8b4e39..07021b21 100644
--- a/world/map/npc/042-1/_mobs.txt
+++ b/world/map/npc/042-1/_mobs.txt
@@ -1,5 +1,5 @@
// This file is generated automatically. All manually changes will be removed when running the Converter.
-// unnamed map 042-1 mobs
+// Tulimshar Suburbs mobs
diff --git a/world/map/npc/042-1/_warps.txt b/world/map/npc/042-1/_warps.txt
index 3925afee..39ae762e 100644
--- a/world/map/npc/042-1/_warps.txt
+++ b/world/map/npc/042-1/_warps.txt
@@ -1,5 +1,5 @@
// This file is generated automatically. All manually changes will be removed when running the Converter.
-// unnamed map 042-1 warps
+// Tulimshar Suburbs warps
042-1.gat,87,76|warp|toStorehouse|-1,-1,042-2.gat,44,91
042-1.gat,77,76|warp|toStorehouse|-1,-1,042-2.gat,22,91
diff --git a/world/map/npc/042-1/hasan.txt b/world/map/npc/042-1/hasan.txt
index 1d5a67fd..0393e697 100644
--- a/world/map/npc/042-1/hasan.txt
+++ b/world/map/npc/042-1/hasan.txt
@@ -2,19 +2,25 @@
// Authors: Jenalya, alastrim
042-1.gat,111,68,0|script|Hasan|189,{
- mes "This NPC is disabled due to bugs, sorry.";
- close;
set @toll, 10000;
- set @x, getx(0);
- set @y, gety(0);
+ set @x, getx();
+ set @y, gety();
- if ($@scorp) goto L_Fear;
- if (FLAGS & FLAG_TUTORIAL_DONE) goto L_Tut_Done;
- if ( (@y < 64)&&(@x < 110) || (@x < 107) ) goto L_Cliff_Up;
- if (hasan == 4) goto L_Thank;
- if (hasan == 3) goto L_Trick;
- if (hasan > 0) goto L_Toll;
+ if (FLAGS & FLAG_TUTORIAL_DONE)
+ goto L_Tut_Done;
+ // Please consider rewriting this in terms of isin()
+ if ( (@y < 64)&&(@x < 110) || (@x < 107) )
+ goto L_Cliff_Up;
+ // implicitly, $@ScorpionFighter is nonzero
+ if (getcharid(3) == $@ScorpionFighter)
+ goto L_Fear;
+ if (hasan == 4)
+ goto L_Thank;
+ if (hasan == 3)
+ goto L_Trick;
+ if (hasan > 0)
+ goto L_Toll;
mes "[Unfriendly Guy]";
mes "\"Hey! You can't pass here.\"";
@@ -82,14 +88,16 @@ L_Trick:
menu
"I don't have that much money!",L_NoPay,
"No. (Scratch your head.)",-;
- if ($@scorp == 1) goto L_Wait;
+ if ($@ScorpionFighter)
+ goto L_Wait;
mes "While you're scratching your head, you see Kaan coming nearer to the cliff above you.";
+ set $@ScorpionTimer, 0;
+ set $@ScorpionFighter, getcharid(3);
+ set $@ScorpDeath, PC_DIE_COUNTER;
+ // close2 blocks
close2;
monster "042-1.gat",110,70,"Scorpion",1003,1, "Hasan::onScorpionDeath";
- set $@ScorpionFighter$, strcharinfo(0);
- set $@scorp, 1;
- set $@ScorpDeath, PC_DIE_COUNTER;
- startnpctimer;
+ initnpctimer;
end;
L_Thank:
@@ -159,102 +167,83 @@ L_Cliff_Up:
L_SummonAgain:
message strcharinfo(0), "Kaan is mad at you for your interference! He walks over to the edge of the cliff and throws a rock on top of your head, then lets another scorpion run just near Hasan!";
percentheal -100, 0;
- if (attachrid(getcharid(3,$@ScorpionFighter$)) == 0)
- end;
message strcharinfo(0), "Kaan: \"Just go while he is distracted and no one is interfering!\"";
monster "042-1.gat",110,70,"Scorpion",1003,1, "Hasan::onScorpionDeath";
end;
L_Clean:
killmonster "042-1.gat", "Hasan::onScorpionDeath";
+ set $@ScorpionFighter, 0;
set $@ScorpionTimer, 0;
- set $@scorp, 0;
+ set $@ScorpDeath, 0;
stopnpctimer;
- setnpctimer 0;
- if (attachrid(getcharid(3,$@ScorpionFighter$)) == 0)
- end;
- if (PC_DIE_COUNTER > $@ScorpDeath) goto L_MessageDeath;
+ end;
+
+L_TimeOut:
message strcharinfo(0), "Hasan, with his eyes almost closed, trembling with fear, runs toward the scorpion and stabs it with all his strength! Seems like you took too long and the plan didn't work this time.";
warp "042-1.gat", 112, 64;
message strcharinfo(0), "Hasan: \"Hey you! I told you you cannot pass!\"";
- set $@ScorpionFighter$, "";
- end;
+ goto L_Clean;
L_MessageDeath:
message strcharinfo(0), "Ouch... I should be more careful when fighting these monsters.";
- end;
+ goto L_Clean;
L_Wait:
mes "There is a scorpion near Hasan already. I think Kaan is helping someone else... Maybe I should try the plan later.";
close;
OnTimer5000:
- if(isloggedin(getcharid(3,$@ScorpionFighter$)) == 0)
+ if (attachrid($@ScorpionFighter) == 0)
goto L_Clean;
set $@ScorpionTimer, $@ScorpionTimer + 5;
- if ($@ScorpionTimer >= 300) goto L_Clean;
- attachrid(getcharid(3,$@ScorpionFighter$));
- if (PC_DIE_COUNTER > $@ScorpDeath) goto L_Clean;
+ if ($@ScorpionTimer >= 300)
+ goto L_TimeOut;
+ if (PC_DIE_COUNTER > $@ScorpDeath)
+ goto L_MessageDeath;
setnpctimer 0;
end;
onScorpionDeath:
- if (strcharinfo(0) != $@ScorpionFighter$) goto L_SummonAgain;
- set $@scorp, 0;
+ if (getcharid(3) != $@ScorpionFighter)
+ goto L_SummonAgain;
if (hasan != 3)
- close;
+ end;
set hasan, 4;
message strcharinfo(0), "You saved Hasan.";
- set $@ScorpionTimer, 0;
- set $@ScorpionFighter$, "";
- stopnpctimer;
- setnpctimer 0;
- end;
-
-OnInit:
- end;
- initnpctimer;
- stopnpctimer;
+ goto L_Clean;
}
042-1.gat,111,68,0|script|#Toll|45,2,2,{
-
end;
OnTouch:
- end;
- if ($@scorp && $@ScorpionFighter$ == strcharinfo(0))
+ // implicitly, $@ScorpionFighter is nonzero
+ if ($@ScorpionFighter == getcharid(3))
end;
if ((FLAGS & FLAG_TUTORIAL_DONE) || (hasan == 4))
end;
- if ($@scorp && $@ScorpionFighter$ != strcharinfo(0))
- goto L_Scared;
-
-L_Normal:
warp "042-1.gat", 112, 64;
message strcharinfo(0), "Hasan: \"Stop!\"";
end;
-L_Scared:
- warp "042-1.gat", 112, 64;
- message strcharinfo(0), "Hasan seems to be completely irrational. He waves his sharp knife in the air with his eyes closed and scratches you. Maybe you shouldn't get too close or you are going to get hurt.";
- percentheal -10, 0;
- end;
-
}
042-1.gat,117,76,0|script|#barrier|45,0,2{
end;
+
OnTouch:
if (FLAGS & FLAG_TUTORIAL_DONE)
goto L_Tut;
warp "042-1.gat", 115, 76;
- if ($@scorp && $@ScorpionFighter$ == strcharinfo(0))
- message strcharinfo(0), "Hasan: \" " + strcharinfo(0) + "! Please help me!\"";
- if ($@scorp && $@ScorpionFighter$ != strcharinfo(0))
+ // implicitly, $@ScorpionFighter is nonzero
+ if ($@ScorpionFighter == getcharid(3))
+ message strcharinfo(0), "Hasan: \"" + strcharinfo(0) + "! Please help me!\"";
+ if ($@ScorpionFighter && $@ScorpionFighter != getcharid(3))
+ // is this reachable?
message strcharinfo(0), "Hasan: \"Hey! Stop right there!\"";
- if (!$@scorp && hasan == 4)
+ if (hasan == 4)
message strcharinfo(0), "Hasan: \"Please wait a moment!\"";
end;
L_Tut: