summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJesusaves <cpntb1@ymail.com>2022-01-30 20:12:03 -0300
committerJesusaves <cpntb1@ymail.com>2022-03-07 22:20:41 -0300
commit0b4e43fb1d32e8e9961168f1415a7566d0ba1779 (patch)
treef1e53fc1a92eaf8791aa966a5cd0b542ccc5451f
parentf64a23064f64fc534e7cdf7afebc3c4e7060a2ee (diff)
downloadclassic-serverdata-0b4e43fb1d32e8e9961168f1415a7566d0ba1779.tar.gz
classic-serverdata-0b4e43fb1d32e8e9961168f1415a7566d0ba1779.tar.bz2
classic-serverdata-0b4e43fb1d32e8e9961168f1415a7566d0ba1779.tar.xz
classic-serverdata-0b4e43fb1d32e8e9961168f1415a7566d0ba1779.zip
Add the guest book and fix some restrictions.
(Party Points still missing?)
-rw-r--r--world/map/npc/009-1/constable.txt2
-rw-r--r--world/map/npc/annuals/2022.txt90
2 files changed, 90 insertions, 2 deletions
diff --git a/world/map/npc/009-1/constable.txt b/world/map/npc/009-1/constable.txt
index fe2e75e5..dcd19ea3 100644
--- a/world/map/npc/009-1/constable.txt
+++ b/world/map/npc/009-1/constable.txt
@@ -9,6 +9,7 @@
mes "\"I've been getting complaints of lawlessness in Hurnscald recently, so I thought I'd come down here myself and explain the rules.\"";
mes "\"Please make sure that you follow them!\"";
callfunc "GameRules";
+ //callfunc "P22Login";
close;
/* 2022 Blackbox */
@@ -21,6 +22,7 @@ L_Party:
"Nah", L_P22N;
L_P22Y:
+ set #X21, 10;
warp "003-1", 45, 24;
mapmask 1 | 2;
close;
diff --git a/world/map/npc/annuals/2022.txt b/world/map/npc/annuals/2022.txt
index 31b48971..c566c697 100644
--- a/world/map/npc/annuals/2022.txt
+++ b/world/map/npc/annuals/2022.txt
@@ -87,11 +87,17 @@ function|script|P22Login
if (gettime(7) != 2022) goto L_Return;
if (gettime(6) != 4) goto L_Return;
if (gettime(5) != 2 && gettime(5) != 3) goto L_Return;
- if (#X21 < 5) goto L_Warp;
+ if (gettimetick(2) - TUT_var < 1*7*86400) goto L_Return; // One week
+ if (#X21 < 4) goto L_Warp;
+ if (getmap() == "003-1") goto L_FixMask;
+ return;
+
+L_FixMask:
+ mapmask 1 | 2;
return;
L_Warp:
- set #X21, 5;
+ set #X21, 4;
warp "003-1", 45, 24;
mapmask 1 | 2;
if (strcharinfo(0) == "Prsm") goto L_Prsm;
@@ -146,4 +152,84 @@ L_None:
end;
}
+////////////////////////////////////////////////
+// $GUESTBOOK_AUTHOR$[entry] + $GUESTBOOK_MESSAGE$[entry]
+// Persistent to survive an eventual crash
+// Major bit: 8 (#X21 & 8) ─ Because it could tax map server otherwise
+// NOTE: We actually could use Elli, as she is the notes keeper?
+003-1,34,46,0|script|Numa#P22|393
+{
+ if (strcharinfo(0) == "Prsm") goto L_Done;
+ if (#X21 & 8) goto L_Done;
+ if (!$@PRSM_PARTY) goto L_Over;
+ mapmask 1 | 2;
+ mes "[Numa]";
+ mes "\"I'm making a book with the wishes from the whole The Mana World Community. Do you want to write something to Prsm? Everyone will be able to read it.\"";
+ next;
+ menu
+ "Yes", L_Write,
+ "No", L_Close;
+
+L_Write:
+ set @msg$, "";
+ input @msg$;
+ if (@msg$ == "")
+ goto L_Close;
+ mes "[Numa]";
+ mes @msg$;
+ mes "##0##BNuma carefully looks over your message, and nodding in approval, she says:##b";
+ mes "\"Are you sure you want to post this? Do note that spam, harassment, and attempts to ruin the party will get you kicked or worse, so think carefully!\"";
+ menu
+ "Yes", L_Save,
+ "No", L_Close;
+
+L_Save:
+ set @loop, getarraysize($GUESTBOOK_AUTHOR$) - 1;
+ if (@loop < 0) set @loop, 0;
+ if ($GUESTBOOK_AUTHOR$[@loop] != "") set @loop, @loop + 1;
+ set $GUESTBOOK_AUTHOR$[@loop], strcharinfo(0);
+ set $GUESTBOOK_MESSAGE$[@loop], @msg$;
+ set #X21, #X21 | 8;
+ mes "[Numa]";
+ mes "\"There we go! Thanks. Do you want to read the book, now?\"";
+ next;
+ menu
+ "Yes", L_Show,
+ "No", L_Close;
+
+L_Over:
+ mes "[Numa]";
+ mes "\"The party is over; Please leave with the south gate before the developers seal it off again.\"";
+ close;
+
+L_Done:
+ mes "[Numa]";
+ mes "\"Do you want to read what the players wrote for Prsm?\"";
+ menu
+ "Yes", L_Show,
+ "No", L_Close;
+
+L_Show:
+ set @loop, 0;
+ goto L_ShowNext;
+
+L_ShowNext:
+ if ($GUESTBOOK_AUTHOR$[@loop] == "")
+ goto L_Close;
+ mes "##B"+$GUESTBOOK_AUTHOR$[@loop] + "##b - " + $GUESTBOOK_MESSAGE$[@loop]+"##0";
+ set @loop, @loop + 1;
+ if ((@loop % 5) == 0 && $GUESTBOOK_AUTHOR$[@loop] != "")
+ goto L_PauseCont;
+ goto L_ShowNext;
+
+L_PauseCont:
+ next;
+ goto L_ShowNext;
+
+L_Close:
+ set @msg$, "";
+ set @loop, 0;
+ close;
+}
+