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
|
on *:TEXT:!on:#: {
if ($nick isop $chan) {
//writeini nicklist.ini nicklist avail ? ? ? ?
//writeini nicklist.ini nicklist maybe ? ? ? ?
//writeini nicklist.ini nicklist not ? ? ? ?
updtopic $chan
}
else notice $nick u dont have the access
}
alias -l updtopic {
var %available $readini(nicklist.ini, nicklist, avail)
var %maybe $readini(nicklist.ini, nicklist, maybe)
var %not $readini(nicklist.ini, nicklist, not)
topic $chan 5,1[ 14Next War:0 %Warinfo 5][ 14When:0 %date 5][ 14Available:0 %available 5][ 14Maybe:0 %maybe 5][ 14Not:0 %not 5] 0 %motd 55]
}
alias remnot {
var %nick [ $+ [ $chan ] ] $nick
set %pos [ $+ [ $chan ] ] $findtok($readini(nicklist.ini, nicklist, not), %nick [ $+ [ $chan ] ],1,32) | if (!%pos [ $+ [ $chan ] ]) { notice $nick ** %nick [ $+ [ $chan ] ] not found! ** | return }
//writeini nicklist.ini nicklist not $deltok($readini(nicklist.ini, nicklist, not),%pos [ $+ [ $chan ] ],32) ?
updtopic $chan
}
alias remmaybe {
var %nick [ $+ [ $chan ] ] $nick
set %pos [ $+ [ $chan ] ] $findtok($readini(nicklist.ini, nicklist, maybe), %nick [ $+ [ $chan ] ],1,32) | if (!%pos [ $+ [ $chan ] ]) { notice $nick ** %nick [ $+ [ $chan ] ] not found! ** | return }
//writeini nicklist.ini nicklist maybe $deltok($readini(nicklist.ini, nicklist, maybe),%pos [ $+ [ $chan ] ],32) ?
updtopic $chan
}
alias remavail {
var %nick [ $+ [ $chan ] ] $nick
set %pos [ $+ [ $chan ] ] $findtok($readini(nicklist.ini, nicklist, avail), %nick [ $+ [ $chan ] ],1,32) | if (!%pos [ $+ [ $chan ] ]) { notice $nick ** %nick [ $+ [ $chan ] ] not found! ** | return }
//writeini nicklist.ini nicklist avail $deltok($readini(nicklist.ini, nicklist, avail),%pos [ $+ [ $chan ] ],32) ?
updtopic $chan
}
ctcp *:version: {
.ctcpreply $nick VERSION $me is using Warbot V.1 by ziNus @ #ziNus
}
on *:text:!av:#: {
if ($2 == $null) { var %nick [ $+ [ $chan ] ] $nick }
else {
if ($nick !isop $chan) || ($2 !ison $chan) { return }
var %nick [ $+ [ $chan ] ] $2
}
if ($istok($readini(nicklist.ini, nicklist, not),%nick [ $+ [ $chan ] ],32)) { .remnot | return }
if ($istok($readini(nicklist.ini, nicklist, maybe),%nick [ $+ [ $chan ] ],32)) { .remmaybe | return }
if ($istok($readini(nicklist.ini, nicklist, avail),%nick [ $+ [ $chan ] ],32)) { notice $nick ** %nick already added! ** | return }
var %pos [ $+ [ $chan ] ] $findtok($readini(nicklist.ini, nicklist, avail),?,1,32) | if (!%pos [ $+ [ $chan ] ]) { notice %nick [ $+ [ $chan ] ] You are too late to be registered as available | return }
/writeini nicklist.ini nicklist avail $puttok($readini(nicklist.ini, nicklist, avail),%nick [ $+ [ $chan ] ],%pos [ $+ [ $chan ] ], 32) | updtopic $chan
if (%pos [ $+ [ $chan ] ] < 4) { return }
}
on *:text:!m:#: {
if ($2 == $null) { var %nick [ $+ [ $chan ] ] $nick }
else {
if ($nick !isop $chan) || ($2 !ison $chan) { return }
var %nick [ $+ [ $chan ] ] $2
}
if ($istok($readini(nicklist.ini, nicklist, avail),%nick [ $+ [ $chan ] ],32)) { .remavail | return }
if ($istok($readini(nicklist.ini, nicklist, not),%nick [ $+ [ $chan ] ],32)) { .remnot | return }
if ($istok($readini(nicklist.ini, nicklist, maybe),%nick [ $+ [ $chan ] ],32)) { notice $nick ** %nick already added! ** | return }
var %pos [ $+ [ $chan ] ] $findtok($readini(nicklist.ini, nicklist, maybe),?,1,32) | if (!%pos [ $+ [ $chan ] ]) { notice %nick [ $+ [ $chan ] ] You are too late to be registered as maybe try !av or !not | return }
/writeini nicklist.ini nicklist maybe $puttok($readini(nicklist.ini, nicklist, maybe),%nick [ $+ [ $chan ] ],%pos [ $+ [ $chan ] ], 32) | updtopic $chan
if (%pos [ $+ [ $chan ] ] < 4) { return }
}
on *:text:!n:#: {
if ($2 == $null) { var %nick [ $+ [ $chan ] ] $nick }
else {
if ($nick !isop $chan) || ($2 !ison $chan) { return }
var %nick [ $+ [ $chan ] ] $2
}
if ($istok($readini(nicklist.ini, nicklist, avail),%nick [ $+ [ $chan ] ],32)) { .remavail | return }
if ($istok($readini(nicklist.ini, nicklist, not),%nick [ $+ [ $chan ] ],32)) { .remmaybe | return }
if ($istok($readini(nicklist.ini, nicklist, not),%nick [ $+ [ $chan ] ],32)) { notice $nick ** %nick already added! ** | return }
var %pos [ $+ [ $chan ] ] $findtok($readini(nicklist.ini, nicklist, not),?,1,32) | if (!%pos [ $+ [ $chan ] ]) { notice %nick [ $+ [ $chan ] ] You are too late to be registered as maybe try !av or !m | return }
/writeini nicklist.ini nicklist not $puttok($readini(nicklist.ini, nicklist, not),%nick [ $+ [ $chan ] ],%pos [ $+ [ $chan ] ], 32) | updtopic $chan
if (%pos [ $+ [ $chan ] ] < 4) { return }
}
on *:text:!wars:#: {
if (!%antispam2 [ $+ [ $chan ] ]) {
notice # 4 Total Playd Wars: %games [ $+ [ $chan ] ]
set -u120 %antispam2 [ $+ [ $chan ] ] 1
}
}
on *:text:!info*:#: {
if ($2 == $null) { msg $chan Current Matchinfo: %motd [ $+ [ $chan ] ] Edit? !info <txt> }
else {
if ($nick !isop $chan) { return }
set %motd [ $+ [ $chan ] ] $2-
updtopic $chan
}
}
on *:text:!remove*:#: {
if ($2 == $null) { var %nick [ $+ [ $chan ] ] $nick }
else {
if ($nick !isop $chan) || ($2 !ison $chan) { return }
var %nick [ $+ [ $chan ] ] $2
}
set %pos [ $+ [ $chan ] ] $findtok($readini(nicklist.ini, nicklist, $chan), %nick [ $+ [ $chan ] ],1,32) | if (!%pos [ $+ [ $chan ] ]) { notice $nick ** %nick [ $+ [ $chan ] ] not found! ** | return }
//writeini nicklist.ini nicklist $chan $deltok($readini(nicklist.ini, nicklist, $chan),%pos [ $+ [ $chan ] ],32) ?
updtopic $chan | unset %pos [ $+ [ $chan ] ]
}
on *:text:!reset:#: {
if ($nick !isop $chan) { return }
//writeini nicklist.ini nicklist avail ? ? ? ?
//writeini nicklist.ini nicklist maybe ? ? ? ?
//writeini nicklist.ini nicklist not ? ? ? ?
unsetall
updtopic $chan
}
|