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
|
function script SuperMenu {
do
{
if (debug && !is_gm())
{
GlobalDebugMenu;
return;
}
clear;
setnpcdialogtitle l("Super Menu");
mes l("This menu contains all options available to you, based on your access privileges.");
mes "";
mes l("What do you want to access?");
next;
select
l("Scheduled broadcasts"),
rif(is_admin(), l("MOTD")),
rif(is_gm(), l("Event management")),
rif(is_admin(), l("Join Guild: @@", getguildname(1))),
l("Debug");
switch (@menu)
{
case 1: StoneBoard 1; break;
case 2: MOTDConfig 1; break;
case 3: GlobalEventMenu 1; break;
case 4:
query_sql("UPDATE `char` SET `guild_id`=1 WHERE `char_id`="+getcharid(0));
break;
case 5: GlobalDebugMenu 1; break;
}
} while (1);
}
- script @super 32767,{
end;
OnCall:
if (!debug && !is_gm())
{
dispbottom l("You do not have the required access privileges to use the Super Menu.");
end;
}
SuperMenu;
closedialog;
end;
OnPCLoginEvent:
.@debug_skill = getskilllv(EVOL_SUPER_MENU);
if (.@debug_skill > 0 && !debug)
{
skill EVOL_SUPER_MENU, 0, 0; // remove debug skill
}
else if (.@debug_skill < 1 && debug)
{
skill EVOL_SUPER_MENU, 1, 0; // give debug skill
}
end;
OnInit:
bindatcmd "super", "@super::OnCall", 80, 99, 0;
//bindatcmd "numa", "@super::OnCall", 80, 99, 0; // alias for those used to TMW's @numa - none at the moment, iirc
}
|
