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
|
dialog cc {
title "Channel Central (/th.cc)"
size -1 -1 178 228
option dbu
tab "Channel Modes", 1, 0 0 177 177
box "General Information", 4, 2 16 174 58, tab 1
box "Default channel modes", 5, 2 80 74 96, tab 1
text "Active Channel", 6, 5 25 39 8, tab 1
edit "", 7, 46 24 128 10, tab 1 read
text "Active Network", 8, 6 36 39 8, tab 1
edit "", 9, 46 35 128 10, tab 1 read
text "Current Modes", 10, 6 48 39 8, tab 1
edit "", 11, 46 47 128 10, tab 1 read
check "Limit to", 12, 4 88 30 10, tab 1
edit "", 13, 33 88 40 10, tab 1 read
check "Key", 14, 4 99 30 10, tab 1
edit "", 15, 33 100 40 10, tab 1 read
check "Only ops set topic", 16, 4 111 60 10, tab 1
check "No external messages", 17, 4 120 70 10, tab 1
check "Invite Only", 18, 4 129 50 10, tab 1
check "Moderated", 19, 4 138 50 10, tab 1
check "Private", 20, 4 148 50 10, tab 1
check "Secret", 21, 4 158 50 10, tab 1
box "Other Channel modes", 22, 84 80 64 96, tab 1
check "+D", 24, 86 95 50 10, tab 1
check "+d", 25, 86 104 50 10, tab 1
check "+u", 26, 86 113 50 10, tab 1
check "+c", 27, 86 122 50 10, tab 1
check "+C", 28, 86 131 50 10, tab 1
check "+N", 29, 86 140 50 10, tab 1
check "+M", 30, 86 149 50 10, tab 1
check "+T", 31, 86 158 50 10, tab 1
check "+r", 32, 86 86 20 10, tab 1
tab "Bans", 2
tab "Topic", 3
icon 23, 2 193 173 31
button "OK", 33, 101 179 37 12, ok
button "Cancel", 34, 140 179 37 12, cancel
}
on *:dialog:cc:init:*:{
/did -ra cc 7 $active ( $+ $nick($active,0) Users)
/did -ra cc 9 $iif($network,$network ( $+ $server $+ ),$server)
/did -ra cc 11 $chan($active).mode
if ($chan($active).limit != $null) {
echo -ag Setting channel limit.
did -c cc 12
did -arn cc 13 $chan($active).limit
}
if ($chan($active).key != $null) {
echo -ag Setting Key.
did -c cc 14
did -arn cc 15 $chan($active).key
}
if ($chr(116) isin $chan($active).mode) {
echo -ag Adding $v1
did -c cc 16
}
if ($chr(110) isin $chan($active).mode) {
echo -ag Adding $v1
did -c cc 17
}
if ($chr(105) isin $chan($active).mode) {
echo -ag Adding $v1
did -c cc 18
}
if ($chr(109) isin $chan($active).mode) {
echo -ag Adding $v1
did -c cc 19
}
if ($chr(112) isin $chan($active).mode) {
echo -ag Adding $v1
did -c cc 20
}
if ($chr(115) isin $chan($active).mode) {
echo -ag Adding $v1
did -c cc 21
}
}
|