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
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
|
dialog friendorfoe {
title "Friend and Enemy Lists"
size -1 -1 199 202
option dbu
tab "Friends List", 1, 5 5 188 171
text "The Friend List allows you to set who your friends are and decide on various actions that will be done on join.", 3, 10 24 179 14, tab 1
list 5, 13 50 50 105, tab 1 size
text "List:", 6, 14 41 25 8, tab 1
text "Add a Friend:", 7, 72 57 34 8, tab 1
edit "", 8, 112 57 50 10, tab 1 autovs
button "Add", 9, 168 55 19 12, tab 1
button "Delete", 10, 18 160 37 12, tab 1
box "Actions", 11, 72 71 119 50, tab 1
check "Give user OP (@) on join", 12, 76 81 109 10, tab 1
check "Give user VOICE (+) on join", 13, 76 93 106 10, tab 1
check "Give user other modes", 14, 76 105 75 10, tab 1
edit "", 15, 162 106 22 10, tab 1
text "+", 16, 156 107 6 8, tab 1
box "Reason\Quote", 17, 72 124 119 50, tab 1
text "Here, you are able to add a reason or quote of a user selected in the list.", 18, 75 133 110 15, tab 1
edit "", 19, 76 158 110 10, tab 1 autovs
tab "Enemy List", 2
text "The enemy list allows you to make a list of your enemies. You can specify actions that will be taken against a user when he joins.", 20, 10 24 179 14, tab 2
text "List:", 21, 14 41 25 8, tab 2
list 22, 13 50 50 105, tab 2 size
button "Delete", 23, 18 160 37 12, tab 2
edit "", 24, 76 158 110 10, tab 2 autovs
text "Here, you are able to add a reason for the user selected in the list, being in your enemy list", 25, 75 133 110 22, tab 2
box "Reason\Quote", 26, 72 124 119 50, tab 2
box "Actions", 27, 72 71 119 50, tab 2
text "Add an Enemy:", 28, 72 57 38 8, tab 2
edit "", 29, 112 57 50 10, tab 2 autovs
button "Add", 30, 168 55 19 12, tab 2
check "Kick user on join", 31, 76 91 111 10, tab 2
check "Ban user on join", 32, 76 81 50 10, tab 2
text "* Note: if none of the above are specified, a message will be sent.", 33, 77 103 111 15, tab 2
tab "Exceptions", 35
box "Do Nothing Channels:", 36, 9 22 76 142, tab 35
list 37, 22 33 50 92, tab 35 size
button "Add", 38, 17 143 22 12, tab 35
button "Delete", 39, 17 126 22 12, tab 35
box "Don't Friend List Channels:", 40, 90 24 97 69, tab 35
list 41, 93 35 50 50, tab 35 size
button "Add", 42, 146 36 37 12, tab 35
button "Delete", 43, 146 72 37 12, tab 35
box "Don't Enemy List Channels:", 44, 90 95 97 69, tab 35
list 45, 93 106 50 50, tab 35 size
button "Add", 46, 146 107 37 12, tab 35
button "Delete", 47, 146 143 37 12, tab 35
edit "#", 48, 41 145 33 10, tab 35
edit "#", 50, 146 49 33 10, tab 35
edit "#", 49, 146 120 33 10, tab 35
button "Finish", 4, 6 183 37 12
button "Help?", 34, 157 185 37 12
}
on *:dialog:friendorfoe:*:*:{
if ($devent == init) {
did -b $dname 9,30,10,23,15,19,24,39,43,47
if (%fof.f.op) { did -c $dname 12 }
if (%fof.f.voice) { did -c $dname 13 }
if (%fof.f.other) { did -c $dname 14 | did -ea $dname 15 $v1 }
if (%fof.e.kick) { did -c $dname 31 }
if (%fof.e.ban) { did -c $dname 32 }
var %i = 1
while ($ulist(*,friend,%i)) {
did -a $dname 5 $v1
inc %i
}
var %i = 1
while ($ulist(*,enemy,%i)) {
did -a $dname 22 $v1
inc %i
}
}
elseif ($devent == edit) {
if ($did == 8) {
if ($did($dname,8).text == $null) { did -b $dname 9 }
else { did -e $dname 9 }
}
elseif ($did == 29) {
if ($did($dname,29).text == $null) { did -b $dname 30 }
else { did -e $dname 30 }
}
elseif ($did == 15) {
did -c $dname 14
set %fof.f.other $did($dname,$did).text
}
elseif ($did == 19) {
.auser friend $did($dname,5).seltext $did($dname,19).text
}
elseif ($did == 24) {
.auser enemy $did($dname,22).seltext $did($dname,24).text
}
}
elseif ($devent == sclick) {
if ($did == 5) {
did -e $dname 10,19
did -ra $dname 19 $ulist($did($dname,5).seltext,friend,1).info
}
if ($did == 22) {
did -e $dname 23,24
did -ra $dname 24 $ulist($did($dname,22).seltext,enemy,1).info
}
if ($did == 9) {
if ($did($dname,8).text == $null) { foferr don't trick the system. | did -b $dname 9 }
elseif ($gettok($did($dname,8).text,0,32) > 1) { foferr You cannot use more then 1 word. | did -r $dname 8 | did -b $dname 9 }
else {
.auser friend $did($dname,8).text
did -a $dname 5 $did($dname,8).text
did -r $dname 8
}
}
if ($did == 30) {
if ($did($dname,29).text == $null) { foferr don't trick the system. | did -b $dname 30 }
elseif ($gettok($did($dname,29).text,0,32) > 1) { foferr You cannot use more then 1 word. | did -r $dname 29 | did -b $dname 30 }
else {
.auser enemy $did($dname,29).text
did -a $dname 22 $did($dname,29).text
did -r $dname 29
}
}
if ($did == 10) {
if ($did($dname,5).seltext == $null) { foferr don't trick the system. | did -b $dname 10 }
else {
.ruser $did($dname,5).seltext
did -d $dname 5 $did($dname,5).sel
}
}
if ($did == 23) {
if ($did($dname,22).seltext == $null) { foferr don't trick the system. | did -b $dname 23 }
else {
.ruser $did($dname,22).seltext
did -d $dname 22 $did($dname,22).sel
}
}
if ($did == 12) { set %fof.f.op $did($dname,$did).state }
if ($did == 13) { set %fof.f.voice $did($dname,$did).state }
if ($did == 31) { set %fof.e.kick $did($dname,$did).state }
if ($did == 32) { set %fof.e.ban $did($dname,$did).state }
if ($did == 14) {
did $iif($did($dname,$did).state,-e,-b) $dname 15
did -r $dname 15
unset %fof.f.other
}
;if ($istok(37 41 45,$did,32)) {
if ($did == 37) {
echo -a did -e $dname $calc($did +2)
}
}
}
alias -l foferr { echo -atcge info * Friends and Enemy Lists: $1- }
alias fof.run { dialog -m friendorfoe friendorfoe }
|