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
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
|
//================= Hercules Script =======================================
//= _ _ _
//= | | | | | |
//= | |_| | ___ _ __ ___ _ _| | ___ ___
//= | _ |/ _ \ '__/ __| | | | |/ _ \/ __|
//= | | | | __/ | | (__| |_| | | __/\__ \
//= \_| |_/\___|_| \___|\__,_|_|\___||___/
//================= License ===============================================
//= This file is part of Hercules.
//= http://herc.ws - http://github.com/HerculesWS/Hercules
//=
//= Copyright (C) 2012-2015 Hercules Dev Team
//= Copyright (C) Euphy
//= Copyright (C) L0ne_W0lf
//= Copyright (C) MasterOfMuppets
//=
//= Hercules is free software: you can redistribute it and/or modify
//= it under the terms of the GNU General Public License as published by
//= the Free Software Foundation, either version 3 of the License, or
//= (at your option) any later version.
//=
//= This program is distributed in the hope that it will be useful,
//= but WITHOUT ANY WARRANTY; without even the implied warranty of
//= MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
//= GNU General Public License for more details.
//=
//= You should have received a copy of the GNU General Public License
//= along with this program. If not, see <http://www.gnu.org/licenses/>.
//=========================================================================
//= God Item Quest - Variable Management
//================= Description ===========================================
//= Use this NPC if the seals quest variables get messed up.
//================= Current Version =======================================
//= 1.2
//=========================================================================
sec_in02,15,170,0 script Golbal var 4_F_CHNDRESS3,{
callfunc "F_GM_NPC";
mes "[Check]";
mes "Please enter the password.";
next;
if (callfunc("F_GM_NPC",68392411,0) == 1) {
mes "[Check]";
mes "Please choose a menu.";
next;
switch(select("Now:No.1:No.2:No.3:No.4:Reset:god_sl_1:god_eremes:god_brising:god_mjo_0:god_mjo_1:god_mjo_2:god_mjo_3:god_mjo_4")) {
case 1:
mes "^0000FF$God1^000000 = ^FF0000" + $God1 + "^000000.";
mes "^0000FF$God2^000000 = ^FF0000" + $God2 + "^000000.";
mes "^0000FF$God3^000000 = ^FF0000" + $God3 + "^000000.";
mes "^0000FF$God4^000000 = ^FF0000" + $God4 + "^000000.";
close;
case 2: callsub L_Number,"$God1"; break;
case 3: callsub L_Number,"$God2"; break;
case 4: callsub L_Number,"$God3"; break;
case 5: callsub L_Number,"$God4"; break;
case 6:
mes "[Check]";
mes "Are you really sure that you want to reset the entire list of God Globalvar?";
mes "Please enter the password.";
next;
if (callfunc("F_GM_NPC",68392411,0) == 1) {
mes "[Check]";
mes "Now, the entire list of God Globalvar is being reset.";
next;
$God1 = 0;
$God2 = 0;
$God3 = 0;
$God4 = 0;
mes "^0000FF$God1^000000 = ^FF0000" + $God1 + "^000000.";
mes "^0000FF$God2^000000 = ^FF0000" + $God2 + "^000000.";
mes "^0000FF$God3^000000 = ^FF0000" + $God3 + "^000000.";
mes "^0000FF$God4^000000 = ^FF0000" + $God4 + "^000000.";
close;
} else {
mes "[Check]";
mes "The command has been canceled.";
close;
}
case 7: callsub L_Var,"god_sl_1"; break;
case 8: callsub L_Var,"god_eremes"; break;
case 9: callsub L_Var,"god_brising"; break;
case 10: callsub L_Var,"god_mjo_0"; break;
case 11: callsub L_Var,"god_mjo_1"; break;
case 12: callsub L_Var,"god_mjo_2"; break;
case 13: callsub L_Var,"god_mjo_3"; break;
case 14: callsub L_Var,"god_mjo_4"; break;
}
} else {
mes "[Check]";
mes "Incorrect password.";
close;
}
L_Number:
input .@input,0,$@god_check2;
mes "[Check]";
mes "Would you like to change to "+.@input+"?";
mes "Please enter the password.";
next;
if (callfunc("F_GM_NPC",68392411,0) == 1) {
mes "[Check]";
mes "The command "+.@input+" has been confirmed.";
next;
setd getarg(0),.@input;
mes getarg(0)+" "+.@input;
close;
} else {
mes "[Check]";
mes "The command has been canceled.";
close;
}
L_Var:
input .@input;
setd getarg(0),.@input;
next;
mes "[Check]";
mes "Done.";
close;
OnInit:
// Seals roll at 25/50 in Renewal and 50/100 in Pre-Renewal.
if (RENEWAL) {
$@god_check1 = 25;
$@god_check2 = 50;
} else {
$@god_check1 = 50;
$@god_check2 = 100;
}
end;
}
|
