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
|
// Annual Xmas
// Author: wushin
// Present Reclamation
030-2,47,82,0|script|Jonathan|328
{
callfunc "XmasStates";
if($@xmas_time)
goto L_XmasMain;
goto L_OffSeason;
L_OffSeason:
mes "[Jonathan]";
mes "\"Hello! Welcome to the reclamation department.\"";
mes "\"Lucky all the presents stolen have been replaced. Save any you find. You never know what we will need to replace next year.\"";
goto L_Close;
L_XmasMain:
mes "[Jonathan]";
mes "\"Hello! Welcome to the reclamation department.\"";
if(@xmas_helper_bit) goto L_Helping;
mes "\"We are incredibly busy right now, monsters have stolen some of our presents.\"";
mes "\"I must go inform Chief Warrick immediately.\"";
goto L_Close;
L_Helping:
mes "\"Here we take back any presents stolen from us by those nasty creatures.\"";
next;
goto L_Main;
L_Main:
mes "\"Did you find any presents you would like to return?\"";
next;
menu
"No, I just wanted to say hello.",L_Close,
$@xmas_present_amount + " Purple present boxes.",L_Purple,
$@xmas_present_amount + " Blue present boxes.",L_Blue,
$@xmas_present_amount + " Green present boxes.",L_Green,
$@xmas_present_amount + " Yellow present boxes.",L_Yellow,
$@xmas_present_amount + " White present boxes.",L_White;
L_Purple:
set @karma_bonus, $@xmas_karma_bonus;
set @present_name$, "PurplePresentBox";
goto L_RewardIncrease;
L_Blue:
set @karma_bonus, $@xmas_karma_bonus;
set @present_name$, "BluePresentBox";
goto L_RewardIncrease;
L_Green:
set @karma_bonus, $@xmas_karma_bonus;
set @present_name$, "GreenPresentBox";
goto L_RewardIncrease;
L_Yellow:
set @karma_bonus, 2;
set @present_name$, "YellowPresentBox";
goto L_RewardIncrease;
L_White:
set @karma_bonus, 2;
set @present_name$, "WhitePresentBox";
goto L_RewardIncrease;
L_RewardIncrease:
if ($@xmas_present_amount > countitem(@present_name$))
goto L_NotEnough;
mes "\"Oh, thank you!\"";
delitem @present_name$, $@xmas_present_amount;
callfunc "XmasNice";
goto L_Close;
L_NotEnough:
mes "\"I am sorry, but you don't have enough presents to return.\"";
goto L_Main;
L_Close:
mes "\"See You later!\"";
set @present_name$, "";
close;
}
|
