Id: 10777; Nick: Teppuli; Timestamp: 2008-05-19 15:26:00; 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

on 9:text:.authban:#:{
  .notice $nick Usage: $1 version/help/add/list/del/status/on/off
}
on 9:text:.authban *:#:{
  if ($2 == help) {   .notice $nick Usage: $1 version/help/add/list/del/status/on/off | halt }
  if ($2 == status) {   .notice $nick AuthBan status:  $+ $iif($readini(authban.ini,SETUP_ $+ $chan,status),$readini(authban.ini,SETUP_ $+ $chan,status),OFF) $+  | halt }
  if ($2 == add) { 
    if (!$4) { .notice $nick Usage: $1-2 <auth> <reason> | halt }  
    writeini authban.ini $chan $3 $4-
    .notice $nick Done. Added auth $+(',$3,') to AuthBan list with reason $+(',$4-,')
    halt
  }
  if ($2 == del) { 
    if (!$3) { .notice $nick Usage: $1-2 <auth> | halt }  
    remini authban.ini $chan $3 
    .notice $nick Done. Removed auth $+(',$3,') from AuthBan list.
    halt
  }
  if ($2 == on) {
    writeini authban.ini SETUP_ $+ $chan status ON
    .notice $nick Done. Changed status to ON.
    halt
  }
  if ($2 == list) {
 
    .notice $nick AuthBan list:
    var %i = 1
    while (%i <= $ini(authban.ini,$chan,0)) {
      var %auth = $ini(authban.ini,$chan,%i)
      var %reason = $readini(authban.ini,$chan,$ini(authban.ini,$chan,%i))
      .notice $nick Auth: %auth - Reason: %reason
      inc %i
    }
    .notice $nick End of list
    halt
  }
  if ($2 == off) {
    writeini authban.ini SETUP_ $+ $chan status OFF
    .notice $nick Done. Changed status to OFF.
    halt
  }
 
  if ($2 == version) { .notice $nick AuthBan.msl v0.35 by teppuli & AndRew  | halt }
  notice $nick Usage: $1 version/help/add/list/del
}
raw 354:& 465 & *: {
  echo -ag $1-
  var %auth = $4
  if (!%authban_ [ $+ [ $3 ] ]) { halt }
  var %chan = %authban_ [ $+ [ $3 ] ]
  var %i = 1
  while (%i <= $ini(authban.ini,%chan,0)) {
    if ($ini(authban.ini,%chan,%i) == %auth) {
      var %host = $address($3,2)
      .kick %chan $3 0,1 12,1›15›15‹12‹ Your authname ( $+ %auth $+ ) is banned from this channel with reason: $readini(authban.ini,%chan,$ini(authban.ini,%chan,%i)) 12,1›15›15‹12‹  
      .mode %chan +b %host
      timer 1 600 mode %chan -b %host
      unset %authban_ [ $+ [ $3 ] ]
      halt
    }
    inc %i
  }
}
on *:join:#:{
  if ($readini(authban.ini,SETUP_ $+ $chan,status) != ON) { halt }
  set -u10 %authban_ [ $+ [ $nick ] ] $chan
  who $nick n%nat,465
}
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

on 9:text:.authban:#:{
  .notice $nick Usage: $1 version/help/add/list/del/status/on/off
}
on 9:text:.authban *:#:{
  if ($2 == help) {   .notice $nick Usage: $1 version/help/add/list/del/status/on/off | halt }
  if ($2 == status) {   .notice $nick AuthBan status:  $+ $iif($readini(authban.ini,SETUP_ $+ $chan,status),$readini(authban.ini,SETUP_ $+ $chan,status),OFF) $+  | halt }
  if ($2 == add) {
    if (!$4) { .notice $nick Usage: $1-2 <auth> <reason> | halt }
    writeini authban.ini $chan $3 $4-
    .notice $nick Done. Added auth $+(',$3,') to AuthBan list with reason $+(',$4-,')
    halt
  }
  if ($2 == del) {
    if (!$3) { .notice $nick Usage: $1-2 <auth> | halt }
    remini authban.ini $chan $3
    .notice $nick Done. Removed auth $+(',$3,') from AuthBan list.
    halt
  }
  if ($2 == on) {
    writeini authban.ini SETUP_ $+ $chan status ON
    .notice $nick Done. Changed status to ON.
    halt
  }
  if ($2 == list) {
 
    .notice $nick AuthBan list:
    var %i = 1
    while (%i <= $ini(authban.ini,$chan,0)) {
      var %auth = $ini(authban.ini,$chan,%i)
      var %reason = $readini(authban.ini,$chan,$ini(authban.ini,$chan,%i))
      .notice $nick Auth: %auth - Reason: %reason
      inc %i
    }
    .notice $nick End of list
    halt
  }
  if ($2 == off) {
    writeini authban.ini SETUP_ $+ $chan status OFF
    .notice $nick Done. Changed status to OFF.
    halt
  }
 
  if ($2 == version) { .notice $nick AuthBan.msl v0.35 by teppuli & AndRew  | halt }
  notice $nick Usage: $1 version/help/add/list/del
}
raw 354:& 465 & *: {
  echo -ag $1-
  var %auth = $4
  if (!%authban_ [ $+ [ $3 ] ]) { halt }
  var %chan = %authban_ [ $+ [ $3 ] ]
  var %i = 1
  while (%i <= $ini(authban.ini,%chan,0)) {
    if ($ini(authban.ini,%chan,%i) == %auth) {
      var %host = $address($3,2)
      .kick %chan $3 0,1 12,1›15›15‹12‹ Your authname ( $+ %auth $+ ) is banned from this channel with reason: $readini(authban.ini,%chan,$ini(authban.ini,%chan,%i)) 12,1›15›15‹12‹
      .mode %chan +b %host
      timer 1 600 mode %chan -b %host
      unset %authban_ [ $+ [ $3 ] ]
      halt
    }
    inc %i
  }
}
on *:join:#:{
  if ($readini(authban.ini,SETUP_ $+ $chan,status) != ON) { halt }
  set -u10 %authban_ [ $+ [ $nick ] ] $chan
  who $nick n%nat,465
}
Options: New, Download,
, mIRC Parser;
Copyright © 2006 by Zyberdog - Some rights reserved. (Browse/Disclaimer/Stats/About)
Nothing to see here.