I don't really know where to submit this so I'll put it here. The modifications allow the user to turn in 3 at a time or the maximum in one go. I did not alter the daily quest function itself as it is good and adaptable for other daily quests as Kage wrote it, all the changes i made are in \tmw\eathena\npc\011-3_Hermits_cave\hermit.txt the following code is hermit.txt. Please note that the 2 commented out dialogue's and functions for seeing the quest points and resetting them were written for testing only. Constructive criticism is welcomed.
Code: Select all
//
011-3.gat,30,30,0 script Arkim 116,{
mes "[Arkim the Hermit]";
mes "\"Do you want to go back outside?\"";
menu
"Yes, please!", L_Outside,
"Not yet.", -,
"Actually... Why do you live here?", L_Interested;
// "Do you know anything about my daily quest points?", L_DQPCount,
// "Reset DQ points batman.", L_DQReset;
close;
L_Outside:
warp "011-1.gat", 60, 95;
close;
L_Interested:
mes "[Arkim the Hermit]";
mes "\"Oh my, never really thought about it!\"";
next;
mes "[Arkim the Hermit]";
mes "\"I guess mostly I enjoy experimenting with the bats here.\"";
menu
"I see...", -,
"What type of experimenting?", L_Experiment;
close;
L_Experiment:
mes "[Arkim the Hermit]";
mes "\"Never really thought about that either...\"";
next;
mes "You watch as the hermit's old, lazy eyes open wide, and the old man comes alive with energy.";
next;
mes "[Arkim the Hermit]";
mes "\"I GUESS I REALLY LIKE CUTTING THEM UP TO SEE HOW THEY WORK!! HAHAHA!\"";
menu
"YOU'RE CRAZY!", -,
"Right... me too! Can I help?", L_3wingQuest,
"How many will keep you occupied for today, bozo?", L_DQCheck;
close;
L_DQCheck:
if(DailyQuestPoints < 4) goto L_Dejavu;
goto L_Maxwing;
L_Dejavu:
mes "[Arkim the Hermit]";
mes "\"already did that.. yes.. yes we did...\"";
close;
L_Maxwing:
set @dq_level, 20;
set @dq_cost, 4;
set @dq_count, DailyQuestPoints / @dq_cost * 3;
set @dq_cost, DailyQuestPoints;
set @dq_name$, "BatWing";
set @dq_friendly_name$, "bat wings";
set @dq_money, 600 * @dq_count / 3;
set @dq_exp, 100 * @dq_count / 3;
mes "[Arkim the Hermit]";
mes "\"Respect your elders, Bozo.\"";
mes "\""+ @dq_count + " wings... seem tasty.. I mean.. Interesting, have them?\"";
menu
"No!", -,
"Yep!", L_Maxwingrun;
close;
L_Maxwingrun:
callfunc "DailyQuest",
next;
mes "[Arkim the Hermit]";
mes "\"And remember: always lend your toothbrush to a slime!\"";
close;
// *DQReset and DQPCount are for testing purpose only -CW
// L_DQReset:
// set DailyQuestPoints, BaseLevel;
// close;
// L_DQPCount:
// mes "[Arkim the Hermit]";
// mes "\"No but someone stuck something to your back saying " + DailyQuestPoints + " if that helps.\"";
// close;
L_3wingQuest:
set @dq_level, 20;
set @dq_cost, 4;
set @dq_count, 3;
set @dq_name$, "BatWing";
set @dq_friendly_name$, "bat wings";
set @dq_money, 600;
set @dq_exp, 100;
callfunc "DailyQuest";
next;
mes "[Arkim the Hermit]";
mes "\"And remember: never lend your toothbrush to a slime!\"";
close;
}