From 5144a438f51f702e6b4e2342c97ba155f4f4a2db Mon Sep 17 00:00:00 2001
From: Erik Schilling <ablu.erikschilling@googlemail.com>
Date: Sat, 24 Dec 2011 22:33:00 +0100
Subject: Made use of consts in Peter's quests
---
db/const.txt | 1 +
npc/000-2-1/peter.txt | 18 +++++++++---------
2 files changed, 10 insertions(+), 9 deletions(-)
diff --git a/db/const.txt b/db/const.txt
index f7c375d2..b6ea3481 100644
--- a/db/const.txt
+++ b/db/const.txt
@@ -204,3 +204,4 @@ NoobQuests_Demon 0
NoobQuests_OldWitch 1
ShipQuests_Julia 0
+ShipQuests_Peter 1
diff --git a/npc/000-2-1/peter.txt b/npc/000-2-1/peter.txt
index ecc71534..9671536b 100644
--- a/npc/000-2-1/peter.txt
+++ b/npc/000-2-1/peter.txt
@@ -61,7 +61,7 @@
mesq g(l("Hey, girl!"), l("Hey, man!"));
next;
- set @q, geta4(ShipQuests, 1);
+ set @q, geta4(ShipQuests, ShipQuests_Peter);
//If player wasn't warped and player is helper
if (@q < 5 && $@RAT_SAILOR_HELPER$ == strcharinfo(0)) goto l_TaskWasGiven;
@@ -89,7 +89,7 @@
OnGiveTask:
mesn;
mesq l("I need somebody who can clean the bottom of the ship of these Ratto, can you help me?");
- set @q, geta4(ShipQuests, 1);
+ set @q, geta4(ShipQuests, ShipQuests_Peter);
menu
rif(@q == 0, l("Yeah, but what reward will I get?")), l_BonusTask,
l("Why not, I need to train anyway."), l_Task,
@@ -123,7 +123,7 @@
mesq l("Let me see your work...");
next;
- set @q, geta4(ShipQuests, 1);
+ set @q, geta4(ShipQuests, ShipQuests_Peter);
if (getmapmobs("000-2-2.gat") || $@RAT_SAILOR_HELPER$ != strcharinfo(0)) goto l_Fail;
set $@RAT_SAILOR_HELPER$, "";
@@ -131,7 +131,7 @@
set @q, @q - 4;
if (@q > 1) set @q, @q - 2;
- seta4 ShipQuests, 1, @q;
+ seta4 ShipQuests, ShipQuests_Peter, @q;
mesn;
mesq l("Good job!");
close;
@@ -144,12 +144,12 @@
g(l("Okay, I'm ready to work!#0"), l("Okay, I'm ready to work!#1")), -,
l("What? This reward is too small!"), l_Close;
if ($@RAT_SAILOR_HELPER != "") goto OnDontNeedHelp;
- seta4 ShipQuests, 1, 2;
+ seta4 ShipQuests, ShipQuests_Peter, 2;
goto l_Start;
l_Task:
if ($@RAT_SAILOR_HELPER != "") goto OnDontNeedHelp;
- seta4 ShipQuests, 1, geta4(ShipQuests, 1) + 3;
+ seta4 ShipQuests, ShipQuests_Peter, geta4(ShipQuests, ShipQuests_Peter) + 3;
goto l_Start;
l_Start:
@@ -173,11 +173,11 @@
mesn;
mesq g(l("You failed the task!#0"), l("You failed the task!#1"));
set $@RAT_SAILOR_HELPER$, "";
- set @q, geta4(ShipQuests, 1);
+ set @q, geta4(ShipQuests, ShipQuests_Peter);
if (@q == 5 || @q == 2) goto l_FailBonusTask;
if (@q > 5) set @q, @q - 6;
if (@q > 2) set @q, @q - 3;
- seta4 ShipQuests, 1, @q;
+ seta4 ShipQuests, ShipQuests_Peter, @q;
close;
l_KillHelper:
@@ -185,7 +185,7 @@
close;
l_FailBonusTask:
- seta4 ShipQuests, 1, 0;
+ seta4 ShipQuests, ShipQuests_Peter, 0;
close;
l_Reward:
--
cgit v1.2.3-70-g09d2