Id: 9762; Nick: Dor; Timestamp: 2008-04-26 15:44:27; Pasted as: mIRC
Description: For all those cz LAMERS. 
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

on @*:part:%lamer.chans:{ if ($istok(%lamer.nicks,$nick,32)) { invite $nick # } }
on @*:kick:%lamer.chans:{ if ($istok(%lamer.nicks,$nick,32)) { invite $knick # } }
on @*:join:%lamer.chans:{ if (m isincs $chan(#).mode) && ($istok(%lamer.nicks,$nick,32)) { mode # -v $nick } }
on *:quit:{
  if ($istok(%lamer.nicks,$nick,32)) { ils.remlamer $nick }
}
on *:nick:{
  if ($istok(%lamer.nicks,$nick,32)) {
    set %lamer.nicks $reptok(%lamer.nicks,$nick,$newnick,1,32)
  }
}
 
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 $+ :remalamer $v1 $(|) 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 -
  }
}
 
Parsed for bracket errors and indented: 
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

on @*:part:%lamer.chans:{ if ($istok(%lamer.nicks,$nick,32)) { invite $nick # } }
on @*:kick:%lamer.chans:{ if ($istok(%lamer.nicks,$nick,32)) { invite $knick # } }
on @*:join:%lamer.chans:{ if (m isincs $chan(#).mode) && ($istok(%lamer.nicks,$nick,32)) { mode # -v $nick } }
on *:quit:{
  if ($istok(%lamer.nicks,$nick,32)) { ils.remlamer $nick }
}
on *:nick:{
  if ($istok(%lamer.nicks,$nick,32)) {
    set %lamer.nicks $reptok(%lamer.nicks,$nick,$newnick,1,32)
  }
}
 
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 $+ :remalamer $v1 $(|) 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 -
  }
}
 
Options: New, Download,
, mIRC Parser;
Copyright © 2006 by Zyberdog - Some rights reserved. (Browse/Disclaimer/Stats/About)