Id: 409; Nick: wu-Fei; Timestamp: 2007-05-28 16:03:16; Pasted as: mIRC
Description: n/a 
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

on *:TEXT:*:#:{
  if ($1 == !globlev) {
    if ($2 == $null) {
      if ($globlev($nick) <= 1) && ($chanlev($chan,$nick) <= 1) {
        notice $nick need atleast chanlevel 1 or global level 1
        return
      }
      if ($window(@globlist)) { window -c $v1 }
      window -h @globlist
      var %i = $nick($chan,0)
      while (%i) {
        var %Nick = $nick($chan,%i)
        aline @globlist $address(%nick,2) $+ $chr(44) $+ $globlev(%nick)
        dec %i
      }
      filter -cwwut 2 44 @globlist @globlist
      var %l = $line(@globlist,0)
      while (%l) {
        var %line = $line(@globlist,%l)
        if ($gettok(%line,2,44) == 5) {
          var %owners = $addtok(%owners, $gettok(%Line,1,44), 32)
        }
        elseif ($gettok(%line,2,44) == 4) {
          var %masters = $addtok(%masters, $gettok(%Line,1,44), 32)
        }
        elseif ($gettok(%line,2,44) == 3) {
          var %helper = $addtok(%helper, $gettok(%Line,1,44), 32)
        }
        elseif ($gettok(%line,2,44) == 2) {
          var %op = $addtok(%op, $gettok(%Line,1,44), 32)
        }
        elseif ($gettok(%line,2,44) == 0) {
          var %friend = $addtok(%friend, $gettok(%Line,1,44), 32)
        }
        dec %l
      }
      var %i = $numtok(%owners, 32)
      while (%i) {
        var %notice = Owners: $addtok(%notice, $gettok(%owners,%i,32),32)
        if ($len(%notice) > 400) {
          notice $nick %notice
          var %notice
        }
        dec %i
      }
      var %m = $numtok(%masters, 32)
      while (%m) {
        var %notice = %notice Masters: $addtok(%notice, $gettok(%masters,%m,32),32)
        if ($len(%notice) > 400) {
          notice $nick %notice
          var %notice
        }
        dec %m
      }
      var %h = $numtok(%helper, 32)
      while (%h) {
        var %notice = %notice Helpers: $addtok(%notice, $gettok(%helpers,%h,32),32)
        if ($len(%notice) > 400) {
          notice $nick %notice
          var %notice
        }
        dec %h
      }
      var %o = $numtok(%op, 32)
      while (%o) {
        var %notice = %notice Ops: $addtok(%notice, $gettok(%op,%o,32),32)
        if ($len(%notice) > 400) {
          notice $nick %notice
          var %notice
        }
        dec %o
      }
      var %f = $numtok(%friend, 32)
      while (%f) {
        var %notice = %notice Friends: $addtok(%notice, $gettok(%friends,%f,32),32)
        if ($len(%notice) > 400) {
          notice $nick %notice
          var %notice
        }
        dec %f
      }
      if (%notice) notice $nick %notice
    }
    elseif ($2 != $null) {
      if ($3 == $null) {
        if (*?!?*@?* iswm $2) {
          var %mask = $2
        }
        else {
          var %mask = $address($2,2)
        }
        if (!%mask) || ($istok(*!*@ *!*@*, $2,32)) {
          putnotice $nick $2 is a Invalid host/nick | return
        }
        elseif ($regex(%mask,/@(CServe|spamscan|lightweight)\.quakenet\.org$/)) {
          putnotice $nick $regml(1) is an IRC Operator
          return
        }
        else {
          notice $nick $2 has global level $globlev($2)
          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
93
94
95
96
97
98
99
100
101
102
103
104
105
106

on *:TEXT:*:#:{
  if ($1 == !globlev) {
    if ($2 == $null) {
      if ($globlev($nick) <= 1) && ($chanlev($chan,$nick) <= 1) {
        notice $nick need atleast chanlevel 1 or global level 1
        return
      }
      if ($window(@globlist)) { window -c $v1 }
      window -h @globlist
      var %i = $nick($chan,0)
      while (%i) {
        var %Nick = $nick($chan,%i)
        aline @globlist $address(%nick,2) $+ $chr(44) $+ $globlev(%nick)
        dec %i
      }
      filter -cwwut 2 44 @globlist @globlist
      var %l = $line(@globlist,0)
      while (%l) {
        var %line = $line(@globlist,%l)
        if ($gettok(%line,2,44) == 5) {
          var %owners = $addtok(%owners, $gettok(%Line,1,44), 32)
        }
        elseif ($gettok(%line,2,44) == 4) {
          var %masters = $addtok(%masters, $gettok(%Line,1,44), 32)
        }
        elseif ($gettok(%line,2,44) == 3) {
          var %helper = $addtok(%helper, $gettok(%Line,1,44), 32)
        }
        elseif ($gettok(%line,2,44) == 2) {
          var %op = $addtok(%op, $gettok(%Line,1,44), 32)
        }
        elseif ($gettok(%line,2,44) == 0) {
          var %friend = $addtok(%friend, $gettok(%Line,1,44), 32)
        }
        dec %l
      }
      var %i = $numtok(%owners, 32)
      while (%i) {
        var %notice = Owners: $addtok(%notice, $gettok(%owners,%i,32),32)
        if ($len(%notice) > 400) {
          notice $nick %notice
          var %notice
        }
        dec %i
      }
      var %m = $numtok(%masters, 32)
      while (%m) {
        var %notice = %notice Masters: $addtok(%notice, $gettok(%masters,%m,32),32)
        if ($len(%notice) > 400) {
          notice $nick %notice
          var %notice
        }
        dec %m
      }
      var %h = $numtok(%helper, 32)
      while (%h) {
        var %notice = %notice Helpers: $addtok(%notice, $gettok(%helpers,%h,32),32)
        if ($len(%notice) > 400) {
          notice $nick %notice
          var %notice
        }
        dec %h
      }
      var %o = $numtok(%op, 32)
      while (%o) {
        var %notice = %notice Ops: $addtok(%notice, $gettok(%op,%o,32),32)
        if ($len(%notice) > 400) {
          notice $nick %notice
          var %notice
        }
        dec %o
      }
      var %f = $numtok(%friend, 32)
      while (%f) {
        var %notice = %notice Friends: $addtok(%notice, $gettok(%friends,%f,32),32)
        if ($len(%notice) > 400) {
          notice $nick %notice
          var %notice
        }
        dec %f
      }
      if (%notice) notice $nick %notice
    }
    elseif ($2 != $null) {
      if ($3 == $null) {
        if (*?!?*@?* iswm $2) {
          var %mask = $2
        }
        else {
          var %mask = $address($2,2)
        }
        if (!%mask) || ($istok(*!*@ *!*@*, $2,32)) {
          putnotice $nick $2 is a Invalid host/nick | return
        }
        elseif ($regex(%mask,/@(CServe|spamscan|lightweight)\.quakenet\.org$/)) {
          putnotice $nick $regml(1) is an IRC Operator
          return
        }
        else {
          notice $nick $2 has global level $globlev($2)
          return
        }
      }
    }
  }
}
Options: New, Download,
, mIRC Parser;
Copyright © 2006 by Zyberdog - Some rights reserved. (Browse/Disclaimer/Stats/About)