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
|
//===== Hercules Script ======================================
//= God Item Quest - Variable Management
//===== By: ==================================================
//= MasterOfMuppets
//===== Current Version: =====================================
//= 1.2
//===== Description: =========================================
//= Use this NPC if the seals quest variables get messed up.
//===== Additional Comments: =================================
//= 1.0 First version. [MasterOfMuppets]
//= 1.1 Updated several aspects of the script. [L0ne_W0lf]
//= 1.2 Renewal script update. [Euphy]
//= Added GM management function.
//============================================================
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;
}
|
