Sponsor-Only quests.

1 files changed, 60 insertions, 0 deletions

diff --git a/npc/012-2/Saulc.txt b/npc/012-2/Saulc.txt
new file mode 100644
index 000000000..2dde917f2
--- /dev/null
+++ b/npc/012-2/Saulc.txt
@@ -0,0 +1,60 @@
+// TMW2 Script
+// Author:
+//  Jesusalva
+// Description:
+//      Monthly Sponsor Quest
+// Variable:
+//      SQuest_Sponsor
+//      Quest ID: 1
+
+012-2,46,81,0	script	Saulc, 1st Sponsor	NPC_GUARD,{
+    function resetSQS {
+        setq SQuest_Sponsor, 0, gettime(GETTIME_MONTH);
+    }
+    // Check monthly quest
+    .@d=getq2(SQuest_Sponsor);
+    if (.@d != gettime(GETTIME_MONTH)) resetSQS();
+
+    // Core
+    .@q=getq(SQuest_Sponsor);
+    mesn;
+    mesq l("Ahh, I hate @@.", getmonsterlink(Pinkie));
+    if (!(.@q & .questID)) goto L_Menu;
+    close;
+
+L_Menu:
+    mesq l("I will reward you for 7 @@.", getitemlink(.itemID));
+    mes "";
+    menu
+        rif(countitem(.itemID) >= 7, l("Here they are!")), L_Finish,
+        l("Where can I find them?"),L_Where,
+        l("No, thanks."),L_Close;
+
+L_Finish:
+    delitem .itemID, 7;
+    getexp 770, 0; // 7 / 4.1% = 171 kills * 52 xp = 3078 xp gained from killing. (25% bonus)
+    getitem StrangeCoin, rand(1,7);
+    .@q=getq(SQuest_Sponsor);
+    setq1 SQuest_Sponsor, .@q | .questID;
+    mes "";
+    mesn;
+    mesq l("Many thanks! Come back later to bring me extra @@!", getitemlink(RedScorpionStinger));
+    close;
+
+L_Where:
+    mes "";
+    mesq l("Ah, there are lots on the fields.");
+    next;
+
+L_Close:
+    closedialog;
+    goodbye;
+    close;
+
+OnInit:
+    .sex = G_MALE;
+    .distance = 5;
+    .questID=1;
+    .itemID=PinkAntenna;
+    end;
+}