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
|
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)
}
}
}
|