1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
|
// The daily quests
// Variables returned:
// @dq_return - Code of what happend
// 0 = Low level
// 1 = Ignored NPC
// 2 = Not enough points
// 3 = Not enough items
// 4 = Success
// Variables to set:
// @dq_level - Minimal level needed to use the quest
// @dq_cost - The number of points this quest uses
// @dq_count - The number of given item needed
// @dq_name$ - String name of the item as seen by server
// @dq_friendly_name$ - String name of the item as seen by user
// @dq_money - The money reward for doing the quest
// @dq_exp - Experince gained by doing the quest
// Optional:
// @dq_handle_return - When set to anything other then 0 the function will not print exiting text
// Variables used inside:
// DailyQuestPoints - The number of points the player currently has
// DailyQuestTime - Time since DailyQuestPoints was lasted renewed
// DailyQuestBonus - Additional points added once in addition to player BaseLevel
// (DailyQuestBonus makes a good reward from non-daily quests)
function|script|DailyQuest|{
set @dq_earliest, gettimetick(2) - 86400;
if (DailyQuestTime < @dq_earliest) set DailyQuestTime, @dq_earliest;
//how many whole daily quest points the player has earned
//we increment DailyQuestTime by the number of seconds in that many increments
set @dq_increments, (gettimetick(2) - DailyQuestTime)*BaseLevel / 86400;
set DailyQuestTime, DailyQuestTime+@dq_increments*86400/BaseLevel;
//player can't regenerate any quest points, but might have a bonus
if (DailyQuestPoints >= BaseLevel) goto L_Bonus;
//normal recharging case - increment, but don't let it recharge more than a day's worth
set DailyQuestPoints, DailyQuestPoints + @dq_increments;
if (DailyQuestPoints > BaseLevel) set DailyQuestPoints, BaseLevel;
//fallthrough to bonus, which *is* allowed to push DailyQuestPoints above BaseLevel
L_Bonus:
if (DailyQuestBonus != 0) set DailyQuestPoints, DailyQuestPoints + DailyQuestBonus;
set DailyQuestBonus, 0;
if (BaseLevel < @dq_level)
goto L_Low_Level;
if (DailyQuestPoints < @dq_cost)
goto L_Not_Enough_Points;
mes "\"If you bring me " + @dq_count + " " + @dq_friendly_name$ + ", I will give you a reward.\"";
menu "I have what you want.", L_Trade,
"Ok, I'll get to work.", -,
"Nah, I'm not going to help you.", -;
set @dq_return, 1;
goto L_Exit;
L_Trade:
if (countitem(@dq_name$) < @dq_count)
goto L_Not_Enough;
delitem @dq_name$, @dq_count;
set zeny, zeny + @dq_money;
getexp @dq_exp, 0;
set DailyQuestPoints, DailyQuestPoints - @dq_cost;
if (@dq_handle_return)
goto L_Exit_Good;
mes "\"Thank you!\"";
mes "";
mes "[" + @dq_money + " money]";
mes "[" + @dq_exp + " experience points]";
L_Exit_Good:
set @dq_return, 4;
goto L_Exit;
L_Not_Enough:
if (!@dq_handle_return)
mes "\"I said " + @dq_count + " " + @dq_friendly_name$ + "; you should learn to count.\"";
set @dq_return, 3;
goto L_Exit;
L_Low_Level:
if (!@dq_handle_return)
mes "\"Hey, you should go kill some things to get stronger first.\"";
set @dq_return, 0;
goto L_Exit;
L_Not_Enough_Points:
if (!@dq_handle_return)
mes "\"You look exhausted, maybe you should rest a bit.\"";
set @dq_return, 2;
goto L_Exit;
L_Exit:
set @dq_handle_return, 0; // Incase they forget
return;
}
|
