summaryrefslogtreecommitdiff
path: root/npc/003-1/quirino.txt
diff options
context:
space:
mode:
Diffstat (limited to 'npc/003-1/quirino.txt')
-rw-r--r--npc/003-1/quirino.txt93
1 files changed, 78 insertions, 15 deletions
diff --git a/npc/003-1/quirino.txt b/npc/003-1/quirino.txt
index d2e5019ec..c47046bff 100644
--- a/npc/003-1/quirino.txt
+++ b/npc/003-1/quirino.txt
@@ -6,27 +6,51 @@
// Hunger Games™ version for The Mana World Brazil v2, created by Ernando Quirino.
// Entrance to Hungry Quirin Arena
// Variables:
+// EQ - Ernando Quirino
+// $@EQ_TIMER
+// < gettimetick(2): Can be open!
+// > gettimetick(2): Registration open!
+// = gettimetick(2): Event start!
// $@EQ_STATUS
// 0: Register open
// 1: Fight happening
// 2: Event finished
003-1,48,73,0 script Quirin NPC_ERNANDO,{
- if (is_gm()) goto L_Hub;
- if ($EVENT$ != "Hunger") goto L_NoSeason;
- if ($@EQ_STATUS == 0)
- goto L_Register;
+ if (is_admin())
+ goto L_Hub;
+
+ if ($@EQ_STATUS) goto L_NoSeason;
+ if ($@EQ_STATUS == 0) {
+ if ($@EQ_TIMER < gettimetick(2))
+ goto L_Hub;
+ else
+ goto L_Register;
+ }
- hello;
+ npctalk3 l("Bug, report me!");
end;
L_NoSeason:
- npctalkonce l("Heya!");
+ // If it finished, it can be done again in one hour
+ if ($@EQ_STATUS == 2) {
+ if ($@EQ_TIMER+3600 < gettimetick(2)) {
+ $@EQ_STATUS=0;
+ npctalkonce l("A sec... And... Done! I just finished cleaning it up!");
+ } else {
+ npctalkonce l("I'm currently cleaning the arena, wait just @@ more.", FuzzyTime($@EQ_TIMER+3600));
+ } else {
+ npctalkonce l("I'm currently hosting a fight.");
+ }
end;
L_Register:
mesn;
mesq l("Hello player, do you want to participate on HUNGRY QUIRIN event?!");
+ if ($@EQ_TIMER+180 < gettimetick(2))
+ mesc l("Event will start in @@", FuzzyTime($@EQ_TIMER));
+ else
+ mesc l("Event will start in @@", FuzzyTime($@EQ_TIMER)), 1;
next;
select
l("Yeah, sign me up!"),
@@ -85,20 +109,39 @@ L_Full:
L_Hub:
mesn;
mesc l("Welcome to HUNGRY QUIRIN ARENA mangment panel.");
- mesc l("Current Event: "+$EVENT$);
- mesc l("Event stage: "+$@EQ_STATUS);
+ next;
+ mesn;
+ mesq l("I am Quirino Voraz, and my arena is the coolest PVP Arena on all Mana Worlds.");
+ mesq l("However, I need a tax to start, and you need to arrange players. There are no refunds.");
+ next;
mes l("Current player count: @@/5 must be online.", getusers(1));
mes l("Current arena player count: @@ on map. (Min. 3 to begin event)", getmapusers("001-8"));
// Open event? Minimum 5 connections or GM_OVERRIDE flag.
- if ($EVENT$ == "" && (getusers(1) >= 5 || $@GM_OVERRIDE)) {
+ if ($@EQ_TIMER < gettimetick(2) && !$@EQ_STATUS && (getusers(1) >= 5 || $@GM_OVERRIDE)) {
next;
mesc l("Activate event?"), 1;
- if (askyesno() == ASK_YES) {
- $EVENT$="Hunger";
+ mesc l("It'll cost @@ GP", .price);
+ if (Zeny < .price)
+ close;
+ menuint
+ l("NO"), -1,
+ l("Give players 5 minutes"), 300,
+ l("Give players 10 minutes"), 600,
+ l("Give players 15 minutes"), 900,
+ l("Give players 20 minutes"), 1200,
+ l("Give players 25 minutes"), 1500,
+ l("Give players 30 minutes"), 1800,
+ l("NO"), -1;
+ mes "";
+ if (@menuret > 0)
+ Zeny=Zeny-.price;
+ $@EQ_TIMER=gettimetick(2)+@menuret;
+ initnpctimer;
setcells "001-8", 41, 58, 41, 43, 6, "qhubN";
setcells "001-8", 41, 58, 56, 58, 6, "qhubS";
- announce("##1HUNGRY QUIRIN EVENT: ##3##BRegister is now open! Talk to Quirin, on Tulimshar Guardhouse!", bc_all|bc_npc);
+ announce("##1HUNGRY QUIRIN EVENT: ##3##BRegister is now open! Talk to Quirin, on Tulimshar Councilroom!", bc_all|bc_npc);
+ channelmes("#world", strcharinfo(0)+" invites everyone to HUNGER QUIRIN PVP ARENA in Tulimshar. It'll start in "+FuzzyTime($@EQ_TIMER));
}
close;
}
@@ -106,10 +149,10 @@ L_Hub:
// Main Control menu. Not using l() on purpose.
select
- rif($@EQ_STATUS == 0 && (getmapusers("001-8") >= 3 || $@GM_OVERRIDE), "Start Event!"),
- rif($@EQ_STATUS == 1, "Send wave of items and monsters!"),
+ rif($@EQ_STATUS == 0 && (getmapusers("001-8") >= 3 || $@GM_OVERRIDE) && is_admin(), "Start Event at once!"),
+ rif($@EQ_STATUS == 1 && is_admin(), "Send wave of items and monsters!"),
rif($@EQ_STATUS == 0 && $@GM_OVERRIDE && is_admin(), "[DEBUG] Join Event"),
- rif($@EQ_STATUS == 0 && $@GM_OVERRIDE && is_admin(), "[DEBUG] Join & Start Event"),
+ rif($@EQ_STATUS == 0 && $@GM_OVERRIDE && is_admin(), "[DEBUG] Join & Start Event Now"),
"I'm done.";
if (@menu == 1)
@@ -129,7 +172,27 @@ OnDebugReg:
donpcevent("#QuirinoHUB::OnStart");
end;
+// Each minute
+OnTimer60000:
+ // We must autostart event now
+ if ($@EQ_TIMER <= gettimetick(2)) {
+ if (getmapusers("001-8") >= 3 || $@GM_OVERRIDE) {
+ donpcevent("#QuirinoHUB::OnStart");
+ } else {
+ delcells "qhubN";
+ delcells "qhubS";
+ maptimer("001-8", 1000, "#QuirinoHUB::OnCancel");
+ announce("##1HUNGRY QUIRIN EVENT: ##3##BCancelled due lack of players!", bc_all|bc_npc);
+ }
+ end;
+ }
+ mapannounce "003-1", "Hungry Quirin starts in " + FuzzyTime($@EQ_TIMER) + " and there are " + getmapusers("001-8") + "/3 player(s) standing by." , 0;
+ mapannounce "001-8", "Hungry Quirin starts in " + FuzzyTime($@EQ_TIMER), 0;
+ initnpctimer;
+ end;
+
OnInit:
+ .price=570;
.sex=G_MALE;
.distance=5;
end;