From 32d394806ea8f6e4c947090aaf0f79552f4694a2 Mon Sep 17 00:00:00 2001
From: Jesusaves <cpntb1@ymail.com>
Date: Sun, 16 Jun 2019 18:36:18 -0300
Subject: Daily quest at Tulimshar Guard House to slay 100 random monsters.
 Rewards are small, but they count on any monster, so why not.

---
 npc/003-10/kreist.txt      | 114 +++++++++++++++++++++++++++++++++++++++++++++
 npc/functions/mobpoint.txt |   1 +
 2 files changed, 115 insertions(+)

(limited to 'npc')

diff --git a/npc/003-10/kreist.txt b/npc/003-10/kreist.txt
index 8b55db0a1..e694bf3a2 100644
--- a/npc/003-10/kreist.txt
+++ b/npc/003-10/kreist.txt
@@ -5,8 +5,84 @@
 //    Tulimshar Guardhouse Taskmaster
 
 003-10,41,63,0	script	Kreist	NPC_PLAYER,{
+    .@d=gettimeparam(GETTIME_DAYOFMONTH);
     mesn l("Kreist, Taskmaster");
     mesq l("Hello, and welcome to Tulimshar guard house.");
+    next;
+    mesn l("Kreist, Taskmaster");
+    mesq l("My name is @@ and I am the daily task master. Interested in keeping this world free from monsters, or to report back?");
+    next;
+    select
+        l("I want a EASY task!"),
+        l("I want a MODERATE task!"),
+        l("I want a EXPERT task!"),
+        l("It was nice seeing you.");
+    mes "";
+    switch (@menu) {
+        case 1:
+            .@q1=getq(General_MobHunting1);
+            .@q2=getq2(General_MobHunting1);
+            .@q3=getq3(General_MobHunting1);
+            .@q=General_MobHunting1;
+            .@lv=1;
+            goto L_QuestMaster;
+        case 2:
+            .@q1=getq(General_MobHunting2);
+            .@q2=getq2(General_MobHunting2);
+            .@q3=getq3(General_MobHunting2);
+            .@q=General_MobHunting2;
+            .@lv=5;
+            goto L_QuestMaster;
+        case 3:
+            .@q1=getq(General_MobHunting3);
+            .@q2=getq2(General_MobHunting3);
+            .@q3=getq3(General_MobHunting3);
+            .@q=General_MobHunting3;
+            .@lv=14;
+            goto L_QuestMaster;
+    }
+    closeclientdialog;
+    goodbye();
+    close;
+
+L_QuestMaster:
+    // It's a new day, so we must generate a new quest!
+    if (.@q1 != .@d) {
+        .@q1=.@d;
+        if (.@lv == 1) {
+            .@q2=any(Maggot, Scorpion, Croc, FireGoblin, CaveMaggot, RedScorpion, Duck);
+        } else if (.@lv == 5) {
+            .@q2=any(GiantMaggot, CaveSnake, DesertBandit, Sarracenus, DesertLogHead);
+        } else if (.@lv == 14) {
+            .@q2=any(BlackScorpion, Snake);
+        } else {
+            Exception("Bad setting for GMH.LV: "+.@lv, RB_DEFAULT|RB_SPEECH|RB_ISFATAL);
+        }
+        setq .@q, .@q1, .@q2, .@q3;
+    }
+
+    // Maybe you finished the quest?
+    if (.@q3 >= 100) {
+        mesn l("Kreist, Taskmaster");
+        mesq l("Good job, you've killed the 100 @@ and reported back in time!", getmonsterlink(.@q2));
+        next;
+        mesn l("Kreist, Taskmaster");
+        mesq l("It's not much of a reward, but doesn't it feels great to help others in need?! HAHAHA!");
+        Zeny+=.@lv*5;
+        getexp BaseLevel*.@lv, .@lv;
+        setq2 .@q, 0;
+        close;
+    }
+
+    // Maybe there is no monster to kill
+    if (!.@q2) {
+        mesn l("Kreist, Taskmaster");
+        mesq l("You've already completed this quest today. Try again tomorrow.");
+        close;
+    }
+
+    mesn l("Kreist, Taskmaster");
+    mesq l("So, please kill @@/100 @@ for us and make the world a safer place!", .@q3, getmonsterlink(.@q2));
     close;
 
 OnInit:
@@ -27,3 +103,41 @@ OnInit:
 
 }
 
+// What is with this stupidly long quest name?
+function	script	Guardhouse_RandQuestCheck	{
+    if (!playerattached())
+        return;
+
+    .@mobId=getarg(0, killedrid);
+    .@d=gettimeparam(GETTIME_DAYOFMONTH);
+
+    // Easy Task
+    if (getq(General_MobHunting1) == .@d &&
+        getq2(General_MobHunting1) == .@mobId) {
+        .@q3=getq3(General_MobHunting1)+1;
+        setq3 General_MobHunting1, .@q3;
+        if (!(.@q3 % 10))
+            dispbottom l("@@/100 @@ killed", .@q3, getmonsterlink(.@mobId));
+    }
+
+    // Medium Task
+    if (getq(General_MobHunting2) == .@d &&
+        getq2(General_MobHunting2) == .@mobId) {
+        .@q3=getq3(General_MobHunting2)+1;
+        setq3 General_MobHunting2, .@q3;
+        if (!(.@q3 % 10))
+            dispbottom l("@@/100 @@ killed", .@q3, getmonsterlink(.@mobId));
+    }
+
+    // Hard Task
+    if (getq(General_MobHunting3) == .@d &&
+        getq2(General_MobHunting3) == .@mobId) {
+        .@q3=getq3(General_MobHunting3)+1;
+        setq3 General_MobHunting3, .@q3;
+        if (!(.@q3 % 10))
+            dispbottom l("@@/100 @@ killed", .@q3, getmonsterlink(.@mobId));
+    }
+
+    return;
+}
+
diff --git a/npc/functions/mobpoint.txt b/npc/functions/mobpoint.txt
index bca9c393a..8605f40ba 100644
--- a/npc/functions/mobpoint.txt
+++ b/npc/functions/mobpoint.txt
@@ -52,6 +52,7 @@ OnNPCKillEvent:
     callfunc "SQuest_Hasan";
     callfunc "SaggyMobCount";
     callfunc "dausen_mobtutorial";
+    callfunc "Guardhouse_RandQuestCheck";
 
     killedrid=0;
     end;
-- 
cgit v1.2.3-60-g2f50