summaryrefslogtreecommitdiff
path: root/npc/000-2-1/peter.txt
diff options
context:
space:
mode:
Diffstat (limited to 'npc/000-2-1/peter.txt')
-rw-r--r--npc/000-2-1/peter.txt120
1 files changed, 60 insertions, 60 deletions
diff --git a/npc/000-2-1/peter.txt b/npc/000-2-1/peter.txt
index 01d67102..dda62f7e 100644
--- a/npc/000-2-1/peter.txt
+++ b/npc/000-2-1/peter.txt
@@ -41,46 +41,46 @@
000-2-1.gat,72,34,0,1 script AreaNPC 0,0,1,{
OnTouch:
- if (BaseLevel < 5) goto l_Stop;
- if ($@RAT_SAILOR_COUNTDOWN == "") goto l_NoCountDown;
- if ((gettimetick(2) - $@RAT_SAILOR_COUNTDOWN) < 10) goto l_NoGoodTick;
- if (($@RAT_SAILOR_OLD_HELPER$ == strcharinfo(0)) && ((gettimetick(2) - $@RAT_SAILOR_COUNTDOWN) < 60)) goto l_NoGoodTick;
+ if (BaseLevel < 5) goto L_Stop;
+ if ($@RAT_SAILOR_COUNTDOWN == "") goto L_NoCountDown;
+ if ((gettimetick(2) - $@RAT_SAILOR_COUNTDOWN) < 10) goto L_NoGoodTick;
+ if (($@RAT_SAILOR_OLD_HELPER$ == strcharinfo(0)) && ((gettimetick(2) - $@RAT_SAILOR_COUNTDOWN) < 60)) goto L_NoGoodTick;
set $@RAT_SAILOR_COUNTDOWN, "";
-l_NoCountDown:
- if ($@RAT_SAILOR_HELPER$ != "") goto l_Occupied;
+L_NoCountDown:
+ if ($@RAT_SAILOR_HELPER$ != "") goto L_Occupied;
set @peter, getq(ShipQuests_Peter);
- if (@peter < 1 || @peter > 5) goto l_Task;
- if (@peter == 1 || @peter == 2) goto l_Rfail;
- if (@peter == 3 || @peter == 4) goto l_Rwin;
- if (@peter > 5) goto l_SecondTime;
+ if (@peter < 1 || @peter > 5) goto L_Task;
+ if (@peter == 1 || @peter == 2) goto L_Rfail;
+ if (@peter == 3 || @peter == 4) goto L_Rwin;
+ if (@peter > 5) goto L_SecondTime;
doevent "Peter::OnReturnWin";
close;
-l_Stop:
+L_Stop:
doevent "Peter::OnStop";
close;
-l_Occupied:
+L_Occupied:
doevent "Peter::OnDontneedHelp";
close;
-l_Task:
+L_Task:
doevent "Peter::OnGiveTask";
close;
-l_Rfail:
+L_Rfail:
doevent "Peter::OnReturnFail";
close;
-l_Rwin:
+L_Rwin:
doevent "Peter::OnReturnWin";
-l_NoGoodTick:
+L_NoGoodTick:
doevent "Peter::OnNoGoodTick";
close;
@@ -88,12 +88,12 @@ l_NoGoodTick:
000-2-1.gat,70,35,0,1 script Peter 303;3,{
if (BaseLevel < 5) goto OnTooWeak;
- if ($@RAT_SAILOR_COUNTDOWN == "") goto l_NoCountDown;
+ if ($@RAT_SAILOR_COUNTDOWN == "") goto L_NoCountDown;
if ((gettimetick(2) - $@RAT_SAILOR_COUNTDOWN) < 10) goto OnNoGoodTick;
if (($@RAT_SAILOR_OLD_HELPER$ == strcharinfo(0)) && ((gettimetick(2) - $@RAT_SAILOR_COUNTDOWN) < 60)) goto OnNoGoodTick;
set $@RAT_SAILOR_COUNTDOWN, "";
-l_NoCountDown:
+L_NoCountDown:
set @peter, getq(ShipQuests_Peter);
if (@peter == 1 || @peter == 2) goto OnReturnFail;
if (@peter == 3 || @peter == 4 || @peter == 5) goto OnReturnWin;
@@ -109,21 +109,21 @@ OnGiveTask:
next;
menu
- l("Yeah, but what reward will I get?"), l_BonusTask,
- l("Why not, I need to train anyway."), l_Task,
+ l("Yeah, but what reward will I get?"), L_BonusTask,
+ l("Why not, I need to train anyway."), L_Task,
l("No, they are way too dangerous for me!"), -;
mes "";
mesn;
mesq l("Ok, ok. Come back if you change your mind.");
- goto l_Quit;
+ goto L_Quit;
OnTooWeak:
mesn;
mesq lg("I need help for clean the edge of the ship, but you aren't strong enough to help.");
- goto l_Quit;
+ goto L_Quit;
OnStop:
warp "000-2-1", 72, 36;
@@ -139,15 +139,15 @@ OnReturnFail:
next;
menu
- l("Yeah, but I would like to make sure I get a reward."), l_BonusTask,
- l("Why not, I need to train anyway."), l_Task,
+ l("Yeah, but I would like to make sure I get a reward."), L_BonusTask,
+ l("Why not, I need to train anyway."), L_Task,
l("No, they are way too dangerous for me!"), -;
mes "";
mesn;
mesq l("Ok, ok. Come back if you change your mind.");
- goto l_Quit;
+ goto L_Quit;
OnReturnWin:
mesn;
@@ -156,13 +156,13 @@ OnReturnWin:
if (@peter == 3 || @peter == 4)
menu
- l("Did you say reward? I want it!"), l_BonusTask,
- l("I am not worried about rewards. I just want to help."), l_Task,
+ l("Did you say reward? I want it!"), L_BonusTask,
+ l("I am not worried about rewards. I just want to help."), L_Task,
l("Sorry, I am not in the mood for another fight with these rattos."), -;
if (@peter == 5)
menu
- l("No problem, I can help you anyway."), l_Task,
+ l("No problem, I can help you anyway."), L_Task,
l("Sorry, I am not in the mood for another fight with these rattos."), -;
mes "";
@@ -171,7 +171,7 @@ OnReturnWin:
close;
-l_BonusTask:
+L_BonusTask:
mes "";
mesn;
mesq l("What if I give you 1000 Esperin for that job, is it ok?");
@@ -179,20 +179,20 @@ l_BonusTask:
menu
lg("Okay, I'm ready to work!"), -,
- l("What? This reward is too small!"), l_Quit;
+ l("What? This reward is too small!"), L_Quit;
if ($@RAT_SAILOR_HELPER$ != "") goto OnDontneedHelp;
if (@peter == 6) setq ShipQuests_Peter, 2;
if (@peter == 3) setq ShipQuests_Peter, 4;
set @peter, getq(ShipQuests_Peter);
- goto l_Start;
+ goto L_Start;
-l_Task:
+L_Task:
if ($@RAT_SAILOR_HELPER$ != "") goto OnDontneedHelp;
if (@peter == 6) setq ShipQuests_Peter, 1;
set @peter, getq(ShipQuests_Peter);
-l_Start:
+L_Start:
mes "";
mesn;
mesq l("Okay, you can start!");
@@ -205,20 +205,20 @@ OnStartOutside:
warp "000-2-2.gat", 48, 28;
doevent "RattosControl::OnSpawn";
- goto l_Quit;
+ goto L_Quit;
OnTimer2000:
- if (attachrid(getcharid(3, $@RAT_SAILOR_HELPER$)) == 0) goto l_Logoff;
+ if (attachrid(getcharid(3, $@RAT_SAILOR_HELPER$)) == 0) goto L_Logoff;
set $@RAT_SAILOR_CONTROL[9], $@RAT_SAILOR_CONTROL[9] + 2;
- if ($@RAT_SAILOR_CONTROL[9] > 100) goto l_Timeout;
- if (PC_DIE_COUNTER > $@RAT_SAILOR_DEATHS) goto l_Dead;
- if ($@RAT_SAILOR_CONTROL[1] && $@RAT_SAILOR_CONTROL[2] && $@RAT_SAILOR_CONTROL[3] && $@RAT_SAILOR_CONTROL[4]) goto l_Done;
- if (getmapusers("000-2-2.gat") == 0) goto l_CleaningEnd;
- goto l_CheckRattos;
+ if ($@RAT_SAILOR_CONTROL[9] > 100) goto L_Timeout;
+ if (PC_DIE_COUNTER > $@RAT_SAILOR_DEATHS) goto L_Dead;
+ if ($@RAT_SAILOR_CONTROL[1] && $@RAT_SAILOR_CONTROL[2] && $@RAT_SAILOR_CONTROL[3] && $@RAT_SAILOR_CONTROL[4]) goto L_Done;
+ if (getmapusers("000-2-2.gat") == 0) goto L_CleaningEnd;
+ goto L_CheckRattos;
end;
-l_CheckRattos:
+L_CheckRattos:
if ($@RAT_SAILOR_CONTROL[1]) set $@RAT_SAILOR_CONTROL[5], $@RAT_SAILOR_CONTROL[5] + 2;
if ($@RAT_SAILOR_CONTROL[2]) set $@RAT_SAILOR_CONTROL[6], $@RAT_SAILOR_CONTROL[6] + 2;
if ($@RAT_SAILOR_CONTROL[3]) set $@RAT_SAILOR_CONTROL[7], $@RAT_SAILOR_CONTROL[7] + 2;
@@ -228,7 +228,7 @@ l_CheckRattos:
if ($@RAT_SAILOR_CONTROL[7] > 40) doevent "RattosControl::OnRatto3Respawn";
if ($@RAT_SAILOR_CONTROL[8] > 40) doevent "RattosControl::OnRatto4Respawn";
-l_NotYet:
+L_NotYet:
setnpctimer 0;
end;
@@ -239,34 +239,34 @@ OnDontneedHelp:
next;
mesq l("@@ is helping me.", $@RAT_SAILOR_HELPER$);
- goto l_Quit;
+ goto L_Quit;
-l_Timeout:
+L_Timeout:
mesn;
mesq l("Hey! Be careful. You can't stay in this basement for so long, you're going to get sick. Come outside and take a break, maybe you can try again later.");
warp "000-2-1", 72, 36;
- goto l_CleaningClose;
+ goto L_CleaningClose;
-l_Logoff:
- goto l_CleaningEnd;
+L_Logoff:
+ goto L_CleaningEnd;
-l_Dead:
+L_Dead:
// Warps the dead body outside, so it does not interfere with the getmapusers check.
if (getmapusers("000-2-2.gat") > 0) warp "000-2-1", 61, 36;
- goto l_CleaningEnd;
+ goto L_CleaningEnd;
-l_Done:
+L_Done:
set $@RAT_SAILOR_CONTROL[10], $@RAT_SAILOR_CONTROL[10] + 2;
- if($@RAT_SAILOR_CONTROL[10] < 5) goto l_NotYet;
+ if($@RAT_SAILOR_CONTROL[10] < 5) goto L_NotYet;
set @peter, getq(ShipQuests_Peter);
- if (@peter == 2 || @peter == 4) goto l_Reward;
+ if (@peter == 2 || @peter == 4) goto L_Reward;
warp "000-2-1.gat", 72, 36;
- goto l_Thanks;
+ goto L_Thanks;
-l_CleaningEnd:
+L_CleaningEnd:
stopnpctimer;
set $@RAT_SAILOR_HELPER$, "";
set $@RAT_SAILOR_DEATHS, 0;
@@ -278,7 +278,7 @@ l_CleaningEnd:
end;
-l_CleaningClose:
+L_CleaningClose:
stopnpctimer;
set $@RAT_SAILOR_OLD_HELPER$, $@RAT_SAILOR_HELPER$;
set $@RAT_SAILOR_HELPER$, "";
@@ -292,7 +292,7 @@ l_CleaningClose:
close;
-l_Reward:
+L_Reward:
warp "000-2-1.gat", 72, 36;
setq ShipQuests_Peter, 5;
set @peter, getq(ShipQuests_Peter);
@@ -302,18 +302,18 @@ l_Reward:
set zeny, zeny + 1000;
message strcharinfo(0), l("You receive @@ E!", 1000);
- goto l_CleaningClose;
+ goto L_CleaningClose;
-l_Thanks:
+L_Thanks:
mesn;
mesq l("Thanks for helping me!");
set @peter, getq(ShipQuests_Peter);
if (@peter == 1) setq ShipQuests_Peter, 3;
set @peter, getq(ShipQuests_Peter);
- goto l_CleaningClose;
+ goto L_CleaningClose;
-l_Quit:
+L_Quit:
set @peter, 0;
close;
generated by cgit v1.2.3-70-g09d2 (git 2.46.0) at 2025-02-25 16:38:57 +0000