From ceee742a03176f412167cc5098b3167aae514fd2 Mon Sep 17 00:00:00 2001
From: Jessica Tölke <jtoelke@mail.upb.de>
Date: Tue, 15 Jan 2013 22:21:45 +0100
Subject: Turn Cave Snake Lamp quest into a Daily Quest.

Add previously used player variable to clear_vars.
---
 world/map/npc/010-2/doug.txt           | 112 +++------------------------------
 world/map/npc/functions/clear_vars.txt |   2 +
 2 files changed, 12 insertions(+), 102 deletions(-)

diff --git a/world/map/npc/010-2/doug.txt b/world/map/npc/010-2/doug.txt
index 233490fa..1d2cf4e4 100644
--- a/world/map/npc/010-2/doug.txt
+++ b/world/map/npc/010-2/doug.txt
@@ -1,115 +1,23 @@
 //
 
 010-2.gat,68,87,0|script|Doug|113,{
-    if(CaveSnakeLamp == 1) goto L_State2;
-    if(CaveSnakeLamp == 2) goto L_Done;
-    set @TEMP, rand(4);
-    if(@TEMP == 0) goto L_0;
-    if(@TEMP == 1) goto L_1;
-    if(@TEMP == 2) goto L_2;
-    if(@TEMP == 3) goto L_3;
 
-L_0:
     mes "[Doug]";
-    mes "\"I need 20 more Cave Snake Lamps to make my light!\"";
+    mes "\"This room is too dark. I want to brighten it up.\"";
     next;
-    goto L_Question;
 
-L_1:
-    mes "[Doug]";
-    mes "\"This lamp should light up this whole place! I just need 20 Cave Snake Lamps.\"";
-    next;
-    goto L_Question;
-
-L_2:
-    mes "[Doug]";
-    mes "\"This is gonna be bright! A must have for anyone! All I need is a few parts...\"";
-    next;
-    goto L_Question;
-
-L_3:
-    mes "[Doug]";
-    mes "\"Can you get me 20 Cave Snake Lamps? I need them to get this light finished.\"";
-    next;
-    goto L_Question;
-
-L_Question:
-    mes "[Doug]";
-    mes "\"Will you help me find 20 Cave Snake Lamps?\"";
-    next;
-    menu
-        "Yes", L_Sure,
-        "No", -;
-    close;
+    set @dq_level, 15;
+    set @dq_cost, 10;
+    set @dq_count, 5;
+    set @dq_name$, "CaveSnakeLamp";
+    set @dq_friendly_name$, "Cave Snake Lamps";
+    set @dq_money, 1000;
+    set @dq_exp, 1500;
 
-L_Sure:
-    set CaveSnakeLamp, 1;
-    set @TEMP, rand(4);
-    if (@TEMP == 0)
-        goto J_0;
-    if (@TEMP == 1)
-        goto J_1;
-    if (@TEMP == 2)
-        goto J_2;
-    if (@TEMP == 3)
-        goto J_3;
+    callfunc "DailyQuest";
 
-J_0:
-    mes "[Doug]";
-    mes "\"Thank you!\"";
     next;
-    goto L_Go;
-
-J_1:
-    mes "[Doug]";
-    mes "\"I don't know how to thank you enough!\"";
-    next;
-    goto L_Go;
-
-J_2:
-    mes "[Doug]";
-    mes "\"I will pay you when you get them!\"";
-    next;
-    goto L_Go;
-
-J_3:
-    mes "[Doug]";
-    mes "\"I'm sure I will give a small reward. :D\"";
-    next;
-    goto L_Go;
-
-L_Go:
-    mes "[Doug]";
-    mes "\"Now please go get me 20 Cave Snake Lamps.\"";
-    close;
-
-L_State2:
-    if(countitem("CaveSnakeLamp") >= 20)
-        goto L_Have;
-    mes "[Doug]";
-    mes "\"Please help me collect 20 Cave Snake Lamps!\"";
-    close;
-
-L_Have:
-    mes "[Doug]";
-    mes "\"Cool! Now I can make this light!\"";
-    next;
-    if(countitem("CaveSnakeLamp") < 20)
-        goto L_State2;
-    delitem "CaveSnakeLamp", 20;
-    set Zeny, Zeny + 5000;
-    getexp 5000, 0;
-    set CaveSnakeLamp, 2;
-
-    mes "[Doug]";
-    mes "\"Here's what I got to give you!\"";
-    mes "";
-    mes "[5000 experience points]";
-    mes "[5000 gold]";
-    close;
-
-L_Done:
     mes "[Doug]";
-    mes "\"Thanks for your help! Those snakes sure have bright lamps!\"";
+    mes "\"Too bad these lamps wear off after a while...\"";
     close;
 }
diff --git a/world/map/npc/functions/clear_vars.txt b/world/map/npc/functions/clear_vars.txt
index 7188c2d8..292356cc 100644
--- a/world/map/npc/functions/clear_vars.txt
+++ b/world/map/npc/functions/clear_vars.txt
@@ -103,6 +103,8 @@ function|script|ClearVariables|{
     set KatzeBeenOutside, 0;
     // variable was moved to Nibble 1 of the variable Katze
     set LastHiss, 0;
+    // quest was turned into a Daily Quest, so the variable isn't needed anymore
+    set CaveSnakeLamp, 0;
 
     //These lines are needed to migrate stuff from variables to flags
     if (Open_Underground_Palace_Barrier)
-- 
cgit v1.2.3-60-g2f50