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
|
on @*:part:%lamer.chans:{ if (*!*cz*@* iswm $address($nick,5)) { invite $nick # } }
on @*:kick:%lamer.chans:{ if (*!*cz*@* iswm $address($knick,5)) { invite $knick # } }
on @*:join:%lamer.chans:{ if (m isincs $chan(#).mode) && (*cz*@* iswm $address) { mode # -v $nick } }
alias invnoobs {
var %i 1,%c = 0
while ($gettok(%lamer.nicks,%i,32)) {
if ($v1 !ison $1) {
.timer 1 $calc(%c * 2) invite $v1 $v2
inc %c
}
inc %i
}
.timer 1 $calc(%c * 2) ils.echo Done.
}
menu channel {
Invite Lamers Script:
.Channels:
..Add Channel:{
set %lamer.chans $addtok(%lamer.chans,$$input(Please enter the channel you'd like to activate the script on.,edq,Invite Lamers Script - Channel Input,#),32)
ils.echo Added channel $! succesfully.
}
..Del Channel:
...Delete All:unset %lamer.chans | ils.echo Removed all channels.
...-
...$submenu($ils.delchan($1))
.Lamers:
..Update Lamer List:ils.update
..Add Lamer:set %lamer.nicks $addtok(%lamer.nicks,$$input(Please enter the nickname you'd like to add.,edq,Invite Lamers Script - Lamer Input),32)
..Del Lamer:
...Delete All:unset %lamer.nicks | ils.echo Removed all Lamers.
...-
...$submenu($ils.dellamer($1))
.-
.Invite all Lamers into the active channel:{
invnoobs #
}
.Invite one Lamer into the active channel:
..$submenu($ils.invite($1))
}
alias ils.update {
var %i 1
while ($ial(*!*cz*@*,%i).nick) {
var %v1 = $v1
if (!$istok(%lamer.nicks,$v1,32)) {
set %lamer.nicks $addtok(%lamer.nicks,%v1,32)
}
inc %i
}
ils.echo Lamer List Updated Succesfully.
}
alias ils.echo {
echo -agect info * Invite Lamers Script: $1-
}
alias ils.delchan {
if ($1 != 0) {
if ($1 == begin) return -
if ($1 isnum) && ($gettok(%lamer.chans,$1,32)) { return $1. $v1 $+ :ils.remchan $v1 $(|) ils.echo Succesfully Removed $v1 $+ . }
if ($1 == end) return -
}
}
alias ils.remchan {
set %lamer.chans $remtok(%lamer.chans,$1,32)
}
alias ils.dellamer {
if ($1 != 0) {
if ($1 == begin) return -
if ($1 isnum) && ($gettok(%lamer.nicks,$1,32)) { return $v1 $+ :set % $+ lamer.chans $!remtok(%lamer.nicks,$1,32) $(|) ils.echo Succesfully Removed $v1 $+ . }
if ($1 == end) return -
}
}
alias ils.remlamer {
set %lamer.nicks $remtok(%lamer.nicks,$1,32)
}
alias ils.invite {
if ($1 != 0) {
if ($1 == begin) return -
if ($1 isnum) && ($gettok(%lamer.nicks,$1,32)) { return $v1 $+ :invite $v1 $active $(|) ils.echo Succesfully Invited $v1 $+ . }
if ($1 == end) return -
}
} |