summaryrefslogtreecommitdiff
path: root/npc/004-2
diff options
context:
space:
mode:
Diffstat (limited to 'npc/004-2')
-rw-r--r--npc/004-2/mirio.txt127
-rw-r--r--npc/004-2/pachua.txt9
2 files changed, 130 insertions, 6 deletions
diff --git a/npc/004-2/mirio.txt b/npc/004-2/mirio.txt
index 672919f45..ae087b009 100644
--- a/npc/004-2/mirio.txt
+++ b/npc/004-2/mirio.txt
@@ -4,25 +4,31 @@
// Description:
// Part of Speed Run Quest
// Structure:
-// HalinarzoQuest_Speed( state, time, bonus )
+// HalinarzoQuest_Speed( state, time, record )
-004-2,146,115,0 script Mirio NPC_INDIGENOUS_YOUNG,{
+004-2,146,115,0 script Mirio NPC_INDIGENOUS_YOUNG,1,1,{
function neutral;
function naked;
function disarmed;
function hungry;
function speed;
+ function start;
function slow;
+ function running;
+ function restricted;
+ function retry;
.@q = getq(HalinarzoQuest_Speed);
.@t = getq2(HalinarzoQuest_Speed);
- .@b = getq3(HalinarzoQuest_Speed);
+ .@r = getq3(HalinarzoQuest_Speed);
if (BaseLevel < 40) neutral();
if (getequipid(EQI_HEAD_MID) < 1) naked();
if (getequipid(EQI_HEAD_TOP) < 1) naked();
if (getequipid(EQI_HAND_R) < 1) disarmed();
if (getequipid(EQI_HAND_L) < 1) disarmed();
+ if (@pachua) running();
if (.@q <= 0) hungry();
if (.@q == 1) speed();
+ if (.@q < 10) retry();
neutral();
close;
@@ -47,7 +53,13 @@ function disarmed {
function slow {
mesn;
- mesq l("...Try allocating some points in agility before we continue. I think %d should be suffice.", 40);
+ mesq l("...Try allocating some points in agility before we continue. I think %d should be suffice.", getarg(0, 40));
+ close;
+}
+
+function restricted {
+ mesn;
+ mesq l("Sorry, but this quest cannot be done by staff.");
close;
}
@@ -96,13 +108,118 @@ function hungry {
close;
}
+/////////////////////////////////////////////////////////////////////////////////
function speed {
- if (readparam2(bAgi) < 40) speed();
+ if (is_staff() && !$@GM_OVERRIDE && !debug) restricted();
+ if (readparam2(bAgi) < 40) slow();
mesn;
mesq l("Have you thought on my proposal? I'll only charge you %d GP or a %s for each attempt made.", .price, getitemlink(.alt));
+ next;
+ select
+ l("Not now, thanks."),
+ rif(Zeny >= .price, l("I'll pay the GP.")),
+ rif(countitem(.alt), l("I'll give you the item."));
+ mes "";
+ if (@menu == 1) close;
+ if (@menu == 2) Zeny -= .price;
+ if (@menu == 3) delitem .alt, 1;
+ start();
+ return;
+}
+
+function start {
+ mesn;
+ mesq l("Great! It is simple, really. Pachua and I are scouting the desert. Run as fast as you can to Pachua, and then run back here. Pachua will send a smoke signal when you talk to him, so I'll know you haven't cheated.");
+ next;
+ mesn;
+ mesq l("Try to make a good time, and... Good luck! On my signal, 3, 2, 1...");
+ next;
+ setq2 HalinarzoQuest_Speed, gettimetick(2) + 1; // Grace time due @refresh
+ @pachua = 1;
+ slide 146, 115;
+ closeclientdialog;
+ // META: How they know your name? ...Via label, obviously.
+ npctalk3 l("GO! Run, %s, RUN!!!!", strcharinfo(0));
+ atcommand("@refresh");
+ close;
+}
+
+function running {
+ if (@pachua < 2) {
+ npctalk3 l("What are you waiting for?! Get running, Pachua is waiting!");
+ closeclientdialog;
+ close;
+ }
+ // Pachua == 2, completed the run
+ .@to = getq2(HalinarzoQuest_Speed);
+ .@q = getq(HalinarzoQuest_Speed);
+ .@t = gettimetick(2) - .@to;
+ .@r = getq3(HalinarzoQuest_Speed);
+ @pachua = 0;
+ mesn;
+ mesq l("...And stop! You took %s this time!", FuzzyTime(.@t));
+ if (.@t < 15) {
+ mesc l("That's obviously impossible, so I'll voiding your result!");
+ close;
+ }
+ if (.@t < .@r) {
+ mesc l("That's %d seconds better than your previous record!", .@r - .@t);
+ }
+ if (!.@r || .@t < .@r)
+ setq3 HalinarzoQuest_Speed, .@t;
+ setq2 HalinarzoQuest_Speed, 0;
+ next;
+ // Condition
+ .@g = 320 - (.@q * 20);
+ if (.@t > .@g) {
+ mesn;
+ mesq l("You took more than %s to do this, that is lame! Better luck next time.", FuzzyTime(.@g));
+ // Consolation Prize
+ if (.@t < 450) {
+ next;
+ mesn;
+ mesq l("...Well, I'll refund you 10% because it was not utterly terrible.");
+ Zeny += .price / 10;
+ }
+ // MISSION FAILED
+ mesc l("RACE FAILED."), 1;
+ close;
+ }
+ // Ooh, you did it!
+ setq1 HalinarzoQuest_Speed, .@q + 1;
+ getexp 2500, 0;
+ mesn;
+ mesq l("I'm proud of you!");
+ if (getq(HalinarzoQuest_Speed) < 10)
+ mesc l("Feel free to try again whenever.");
close;
}
+function retry {
+ if (is_staff() && !$@GM_OVERRIDE && !debug) restricted;
+ .@q = getq(HalinarzoQuest_Speed);
+ .@p = .price * .@q;
+ .@s = 40 + (.@q * 5);
+ if (readparam2(bAgi) < .@s) slow(.@s);
+ mesn;
+ mesq l("To retry, I will charge you %d GP or %d %s for each attempt made. You'll have less time to finish as well.", .@p, .@q, getitemlink(.alt));
+ next;
+ select
+ l("Not now, thanks."),
+ rif(Zeny >= .@p, l("I'll pay the GP.")),
+ rif(countitem(.alt) >= .@q, l("I'll give you the item."));
+ mes "";
+ if (@menu == 1) close;
+ if (@menu == 2) Zeny -= .@p;
+ if (@menu == 3) delitem .alt, .@q;
+ start();
+ return;
+}
+
+OnTouch:
+ if (@pachua) running();
+ end;
+
OnInit:
.distance = 4;
.sex = G_MALE;
diff --git a/npc/004-2/pachua.txt b/npc/004-2/pachua.txt
index a9ab4c312..dcf5983a4 100644
--- a/npc/004-2/pachua.txt
+++ b/npc/004-2/pachua.txt
@@ -4,11 +4,18 @@
// Description:
// Part of Speed Run Quest, and an unplanned assassin quest.
-004-2,61,118,0 script Pachua NPC_INDIGENOUS_OLD,{
+004-2,61,118,0 script Pachua NPC_INDIGENOUS_OLD,1,1,{
+ if (@pachua == 1) goto OnTouch;
mesn;
mesq l("Howdy! Mirio and I scout this canyon to protect our clan. I am also a retired assassin, maybe someday I can exchange some knowledge with you! Hahaha!");
close;
+OnTouch:
+ if (@pachua != 1) end;
+ message strcharinfo(0), "Pachua quickly inhales from his pipe and releases a ring of smoke towards the sky!";
+ @pachua = 2;
+ end;
+
OnInit:
.distance = 4;
.sex = G_MALE;