Docstoc

حماية_ضد__التنزيل_من_الاوب dp

Document Sample
حماية_ضد__التنزيل_من_الاوب dp Powered By Docstoc
					Protection v1. 1 By _MoGrM_   type /dp

on 1:load: {
   echo $color(normal) -a sucesfuly l oaded D e o p P rotection v1. 1
By _MoGrM_ - type /dp     or click in the menubar to configure -
   if ($version < 6.0) {
     echo 4!ERROR! $color(info) - you need mIRC version 6.0 or above ,
for this script to work properly. This script will unload
     echo $color(info) -a use this link and download a newer version
  [ www.mirc.com ]
     .timer 1 5 unload -rs $scriptdirdeoppr~1.mrc
   }
   set %noticenick dont deop me!
   set %dprkm dont deop me!
   .enable #deopprot
   set %dprd off
   set %dprk off
   set %dp on
   set %dpn off
}
on 1:unload: {
   echo $color(normal) -a scri pt was sucesfuly u nloaded - all
variables have ben unset -
   unset %dp
   unset %dpn
   unset %dprd
   unset %dprk
   unset %noticenick
   unset %dprkm
}
alias dp dialog -m dp dp
alias -l deop.prot.on .enable #deopprot | echo $color(info) -a × deop
protection set to on × | set %dp on
alias -l deop.prot.off .disable #deopprot | echo $color(info) -a × deop
protection set to off × | set %dp off
alias -l deop.prot.notice.on echo $color(info) -a × auto notice nick on
deop set on × | set %dpn on
alias -l deop.prot.notice.off echo $color(info) -a × auto notice nick on
deop set off × | set %dpn off
alias -l deop.prot.rev.deop.on echo $color(info) -a × auto deop nick on
× | set %dprd on
alias -l deop.prot.rev.deop.off echo $color(info) -a × auto deop nick
  off × | set %dprd off
alias -l deop.prot.rev.kick.on echo $color(info) -a × auto kick nick on
× | set %dprk on
alias -l deop.prot.rev.kick.off echo $color(info) -a × auto kick nick
  off × | set %dprk off
on 1:deop:#: {
   if ($nick == $me) { halt }
   if ($opnick == $me) && ($nick != $me) {
     cs op $chan $me
     if (%dprd == on) { cs deop $chan $nick }
     if (%dprk == on) { kick $chan $nick %dprkm }
     if (%dpn == on) { .notice $nick %noticenick }
  }
}
dialog dp {
  title "|24/48| Deop Protection v1.1 "
  size -1 -1 116 142
  option dbu
  edit "", 1, 6 40 79 10, return autohs
  box "", 3, 2 1 112 120
  box "revenge", 5, 2 60 112 79
  box "", 7, 5 16 104 5
  text "Enter a notice to send to the nick", 9, 6 32 84 8
  box "", 10, 6 53 104 5
  text "Enter a kick msg for the nick", 15, 6 89 72 9
  edit "", 16, 6 99 76 10, return autohs
  box "", 17, 6 111 104 5
  button "O.K!", 18, 74 123 37 12, ok
  text "|24/48| Deop Protection v1.1 ", 19, 6 125 65 8, disable
  check "Auto op on deop", 20, 5 8 50 10
  check "Auto notice nick on deop", 21, 5 21 79 10
  check "Auto deop nick", 22, 5 68 50 10
  check "Auto kick nick", 23, 5 77 50 10
}
on *:dialog:dp:init:0: {
  if (%dp == $null) { set %dp off }
  if (%dp == on) { did -c dp 20 }
  if (%dpn == $null) { set %dpn off }
  if (%dpn == on) { did -c dp 21 }
  if (%dprd == $null) { set %dprd off }
  if (%dprd == on) { did -c dp 22 }
  if (%dprk == $null) { set %dprk off }
  if (%dprk == on) { did -c dp 23 }
  did -a dp 1 %noticenick
  did -a dp 16 %dprkm
}
on *:dialog:dp:edit:*: {
  if ($did == 1) {
    set %noticenick $did(1)
  }
  if ($did == 16) {
    set %dprkm $did(16)
  }
}
on *:dialog:dp:sclick:*: {
  if ($did == 20) {
    if (%dp == on) { deop.prot.off | halt }
    if (%dp == off) { deop.prot.on | halt }
  }
  if ($did == 21) {
    if (%dpn == on) { deop.prot.notice.off | halt }
    if (%dpn == off) { deop.prot.notice.on | halt }
  }
  if ($did == 22) {
    if (%dprd == on) { deop.prot.rev.deop.off | halt }
    if (%dprd == off) { deop.prot.rev.deop.on | halt }
    }
    if ($did == 23) {
      if (%dprk == on) { deop.prot.rev.kick.off | halt }
      if (%dprk == off) { deop.prot.rev.kick.on | halt }
    }
}


alias _vr {
  if ($exists(data\setting.ini) == $false) { mkdir data | write -c
data\setting.ini }
  return $readini data\setting.ini $$1 $$2
}
alias _vw {
  if ($exists(data\setting.ini) == $false) { mkdir data | write -c
data\setting.ini }
  writeini data\setting.ini $$1 $$2 $$3-
}
alias _vrem {
  if ($exists(data\setting.ini) == $false) { mkdir data | write -c
data\setting.ini }
  remini data\setting.ini $$1 $$2
}

alias -l sqo {
  if ($_vr(querycon,switch) == on) { return [x] }
  else { return }
}
alias -l sqf {
  if ($_vr(querycon,switch) == off) { return [x] }
  else { return }
}
alias secure.query {
  if ($version < 5.91) { echo -a    4This addon will not work properly
with mIRC $version $+ , please upgrade to latest mIRC www.mirc.com | beep
| halt }
  if ($dialog(querycon) == $null) { dialog -m querycon querycon }
}
alias secure.query.nick {
  if ($version < 5.91) { echo -a    4This addon will not work properly
with mIRC $version $+ , please upgrade to latest mIRC www.mirc.com | beep
| halt }
  dialog -m $_vr(querycon,query.nick) querycon1
  _vrem querycon lastmsg
}
dialog querycon1 {
  title "secure query"
  size -1 -1 160 81
  option dbu
  box "", 33, 7 14 146 42
  button "accept", 28, 9 62 25 10, default ok
  button "ignore", 26, 36 62 25 10
  button "decline", 27, 63 62 25 10
  edit "", 1, 32 21 119 10, read autohs
  edit "", 30, 32 31 119 10, read autohs
  edit "", 29, 32 41 119 10, read autohs
  check "enable secure query", 31, 10 6 70 7
  button "setup", 2, 92 63 21 8
  button "add access", 3, 114 63 37 8
  box "", 4, 7 57 146 18
  text "nick", 5, 9 22 10 8
  text "address", 6, 9 32 19 8
  text "message", 7, 9 42 21 8
}
dialog querycon {
  title "secure query v2.14"
  size -1 -1 167 119
  option dbu
  button "ok", 12, 70 104 25 10, default ok
  tab "config", 2, 2 1 163 115
  edit "", 3, 4 43 159 10, tab 2 autohs
  text "standby message", 13, 4 35 44 7, tab 2
  edit "", 4, 4 60 159 10, tab 2 autohs
  check "enable", 15, 11 83 32 10, tab 2
  button "select sound", 16, 45 83 37 10, tab 2
  box "audible alert on query request", 17, 8 75 80 22, tab 2
  edit "", 208, 109 79 15 9, tab 2
  button "-", 206, 101 81 5 5, tab 2
  text "seconds", 210, 135 80 20 7, tab 2
  box "auto-close dialog", 209, 95 71 63 30, tab 2
  button "+", 207, 126 81 5 5, tab 2
  text "decline message", 14, 4 53 44 7, tab 2
  check "enable secure query", 33, 11 20 66 10, tab 2
  check "notify user has access", 49, 92 20 66 10, tab 2
  check "enable auto-close", 50, 99 89 58 10, tab 2
  box "", 51, 7 15 154 18, tab 2
  tab "log", 11
  list 34, 7 20 42 50, tab 11 sort size hsbar
  button "remove", 35, 7 73 29 8, tab 11
  button "copy", 39, 131 72 29 8, tab 11
  check "log query requests", 43, 7 95 58 10, tab 11
  button "add access", 53, 48 85 37 8, tab 11
  edit "", 64, 54 21 106 50, tab 11 read multi vsbar
  button "remove all", 65, 7 83 29 8, tab 11
  tab "protection", 32
  radio "universal mask *!*@*", 211, 15 42 62 12, tab 32
  radio "host mask ignore", 212, 15 56 62 9, tab 32
  box "query flood ignore type", 213, 11 34 70 34, tab 32
  edit "", 214, 87 54 10 10, tab 32
  check "enable", 219, 89 42 40 10, tab 32
  box "query flood protection", 216, 85 34 70 34, tab 32
  edit "", 217, 125 54 15 10, tab 32
  text "queries in", 215, 99 56 24 7, tab 32
  text "secs", 218, 141 55 17 7, tab 32
  tab "access", 40
  list 41, 11 42 146 50, tab 40 sort size hsbar
  button "remove", 42, 12 96 37 8, disable tab 40
  text "user access", 44, 12 34 29 8, tab 40
  edit "", 45, 26 19 106 10, tab 40 autohs
  button "add", 46, 134 20 29 8, disable tab 40
  text "address", 47, 6 20 19 8, tab 40
  tab "about", 54
  box "", 55, 30 23 106 70, tab 54
  text "author:", 56, 60 31 17 8, tab 54
  text "version", 58, 60 42 17 8, tab 54
  link "www.tlegrats.org", 59, 56 80 56 8, tab 54
  text "Tlegrats", 60, 84 31 22 8, tab 54
  text "v3.62", 61, 84 42 14 8, tab 54
  text "It is important to keep your addon's updated. You will find them
on our web site.", 63, 34 55 97 20, tab 54
}
on *:dialog:*:init:*:{
  if ($dialog(querycon) == $dname) {
    if ($_vr(querycon,switch) == on) { did -c querycon 33 }
    elseif ($_vr(querycon,switch) == $null) { _vw querycon switch on |
did -c querycon 33 }
    if ($_vr(querycon,ignore.host) == $null) { _vw querycon ignore.host
on | _vw querycon ignore.uni off }
    if ($_vr(querycon,decline) == $null) { _vw querycon decline Sorry, I
have declined your query, please try a more convient time. }
    if ($_vr(querycon,ignore.uni) == on) && ($_vr(querycon,ignore.host)
== off) { did -c querycon 211 1 }
    else did -c querycon 212 1
    did -o querycon 3 1 $_vr(querycon,standby)
    did -o querycon 4 1 $_vr(querycon,decline)
    if ($_vr(querycon,soundswitch) == on) { did -c querycon 15 }
    if ($_vr(querycon,timer) == $null) { _vw querycon timer 240 }
    did -o querycon 208 1 $_vr(querycon,timer)
    if ($_vr(querycon,max.query) == $null) { _vw querycon max.query 5 |
did -o querycon 214 1 $_vr(querycon,max.query) }
    else did -o querycon 214 1 $_vr(querycon,max.query)
    if ($_vr(querycon,max.query.sec) == $null) { _vw querycon
max.query.sec 20 | did -o querycon 217 1 $_vr(querycon,max.query.sec) }
    else did -o querycon 217 1 $_vr(querycon,max.query.sec)
    if ($_vr(querycon,netflood) == on) did -c querycon 219
    else did -b querycon 211,217,212,214
    if ($_vr(querycon,log) == on) { did -c querycon 43 }
    elseif ($_vr(querycon,log) == $null) { _vw querycon log on | did -c
querycon 43 }
    if ($_vr(querycon,notifyaccess) == on) { did -c querycon 49 }
    elseif ($_vr(querycon,notifyaccess) == $null) { _vw querycon
notifyaccess on | did -c querycon 49 }
    if ($_vr(querycon,auto-close) == on) { did -c querycon 50 }
    did -b querycon 46,42
    nick.list
    s.levels
    did -z querycon 34
  }
  if ($dialog($dname) == $_vr(querycon,query.nick)) {
    if ($_vr(querycon,auto-close) == on) { %qs.nick =
$_vr(querycon,query.nick) | .timer 1 $sq_t close.qw }
  }
  on *:dialog:querycon:edit:*:{
    if ($did == 3) {
      if ($did(querycon,3).text != $null) {
        _vw querycon standby $did(querycon,3).text
      }
    }
    if ($did == 4) {
      if ($did(querycon,4).text != $null) {
        _vw querycon decline $did(querycon,4).text
      }
    }
    if ($did == 45) {
      if ($did(querycon,45).text != $null) { did -e querycon 46 }
      elseif ($did(querycon,45).text == $null) { did -b querycon 46 }
    }
    if ($did == 208) {
      if ($did(querycon,208).text != $null) {
        _vw querycon timer $did(querycon,208).text
      }
    }
    if ($did == 214) {
      if ($did(querycon,214).text != $null) {
        _vw querycon max.query $did(querycon,214).text
      }
    }
    if ($did == 217) {
      if ($did(querycon,217).text != $null) {
        _vw querycon max.query.sec $did(querycon,217).text
      }
    }
  }

  on *:dialog:*:sclick:*:{
    if (Query request $dname == $dialog($dname).title) {
      if ($did == 2) { secure.query }
      if ($did == 3) {
        auser -a securequery $did(30,$did(30)) $did(1,$did(1)) | did -b
$did(1,$did(1)) 3
        if ($_vr(querycon,notifyaccess) == on) { if ($server != $null) {
.msg $did(1,$did(1))    14í¯ 15°- 8« automated msg   8» 15-° 14¯ì You
have free access to message me. } }
      }
      if ($did == 27) { .ignore -pu180 $did(30,$did(30)) | .msg
$did(1,$did(1))   14í¯ 15°- 8« automated msg    8» 15-° 14¯ì
$_vr(querycon,decline) | dialog -x $did(1,$did(1)) }
      if ($did == 28) {
        .ignore -r $did(30,$did(30)) | query $did(1,$did(1)) | .timer -m
1 1 echo $did(1,$did(1)) < $+ $did(1,$did(1)) $+ > $did(29,$did(29)) |
_vrem querycon lastmsg
        if ($server != $null) { .msg $did(1,$did(1))     14í¯ 15°-
 8« automated msg    14í¯ 15°- 8« Query request accepted. }
        dialog -x $did(1,$did(1))
      }
      if ($did == 26) { .ignore -p $did(30,$did(30)) | dialog -x
$did(1,$did(1)) }
      if ($did == 31) {
        if ($_vr(querycon,switch) != on) { _vw querycon switch on }
        else { _vw querycon switch off }
      }
    }
    if ($dialog(querycon) == $dname) {
      if ($did == 15) {
        if ($_vr(querycon,soundswitch) != on) { _vw querycon soundswitch
on | did -c querycon 15 }
        else { _vw querycon soundswitch off | did -u querycon 15 }
      }
      if ($did == 16) { setquerysound }
      if ($did == 206) { if (%timer > 0) { dec %timer 1 | did -o querycon
208 1 %timer | _vw querycon timer %timer } }
      if ($did == 207) { inc %timer 1 | did -o querycon 208 1 %timer |
_vw querycon timer %timer }

      if ($did == 39) { clipboard < $+ $did(34,$did(34).sel) $+ >
$sr($did(34,$did(34).sel),msg) }
      if ($did == 34) { did -r querycon 64 | did -a querycon 64 $chr(91)
$+ $sr($did(34,$did(34).sel),date) $+ $chr(93) | did -a querycon 64 $crlf
$sr($did(34,$did(34).sel),msg) | did -o querycon 52 1
$_vr(securequery,$did(34,$did(34).sel))) }
      if ($did == 33) {
        if ($_vr(querycon,switch) != on) { _vw querycon switch on }
        else { _vw querycon switch off }
      }
      if ($did == 35) { write -ds $+ $did(34,$did(34).sel)
securequery\names.txt | _vrem securequery $did(34,$did(34).sel)) | .timer
-m 1 1 nick.list }
      if ($did == 41) { did -e querycon 42,46 | did -o querycon 45 1
$did(41,$did(41).sel)) }
      if ($did == 42) { ruser $did(41,$did(41).sel) | s.levels }
      if ($did == 43) {
        if ($_vr(querycon,log) != on) { _vw querycon log on | did -c
querycon 43 }
        else { _vw querycon log off }
      }
      if ($did == 50) {
        if ($_vr(querycon,auto-close) != on) { _vw querycon auto-close on
| did -c querycon 50 }
        else { _vw querycon auto-close off }
      }
      if ($did == 53) {
        if ($did(querycon,52).text != $null) {
          .auser -a securequery $did(querycon,52).text | did -r querycon
52
        }
      }
      if ($did == 49) {
        if ($_vr(querycon,notifyaccess) != on) { _vw querycon
notifyaccess on | did -c querycon 49 }
        else { _vw querycon notifyaccess off }
      }
      if ($did == 46) {
        if ($did(querycon,45).text != $null) {
          .auser -a securequery $did(querycon,45).text | did -r querycon
45 | s.levels
        }
      }
      if ($did == 65) { .remove securequery\names.txt | .remove
securequery\logs.ini | did -r querycon 64,34,52 }
      if ($did == 211) {
        if ($_vr(querycon,ignore.uni) == off) { _vw querycon ignore.uni
on | _vw querycon ignore.host off | did -c querycon 211 | did -u querycon
212 }
        else { _vw querycon ignore.uni off | _vw querycon ignore.host on
| did -u querycon 211 | did -c querycon 212 }
      }
      if ($did == 212) {
        if ($_vr(querycon,ignore.host) == off) { _vw querycon ignore.host
on | _vw querycon ignore.uni off | did -c querycon 212 | did -u querycon
211 }
        else { _vw querycon ignore.host off | _vw querycon ignore.uni on
| did -u querycon 212 | did -c querycon 211 }
      }
      if ($did == 219) {
        if ($_vr(querycon,netflood) == off) { _vw querycon netflood on |
did -c querycon 219 | did -e querycon 211,217,212,214 }
        else { _vw querycon netflood off | did -u querycon 219 | did -b
querycon 211,217,212,214 }
      }
    }
  }
  alias -l sr {
    if ($exists(securequery\logs.ini) == $false) { mkdir securequery |
write -c securequery\logs.ini }
    return $readini securequery\logs.ini $$1 $$2
  }
  alias -l sw {
    if ($exists(securequery\logs.ini) == $false) { mkdir securequery |
write -c securequery\logs.ini }
    writeini securequery\logs.ini $$1 $$2 $$3-
  }
  alias -l srem {
    if ($exists(securequery\logs.ini) == $false) { mkdir securequery |
write -c securequery\logs.ini }
    remini securequery\logs.ini $$1 $$2
  }
  on ^*:open:?: {
    if ($_vr(querycon,switch) == $null) { _vw querycon switch on }
    if ($finddir($mircdir\,securequery*,1) == $null) { mkdir securequery
}
    if ($_vr(querycon,netflood) != on) {
      inc %upflood15 1
      if (%upflood15 > $_vr(querycon,max.query)) {
        if ($_vr(querycon,ignore.uni) == on) { .ignore -pu $+
$_vr(querycon,max.query.sec) *!*@* }
        else { .ignore -pu $+ $_vr(querycon,max.query.sec) $wildsite }
        echo -a 4[ ALERT ] $nick is Query Flooding . User ( $+
$wildsite $+ ) now ignored for $_vr(querycon,max.query.sec) secs.
      }
      .timer 1 60 unset %upflood15
    }
    if ($_vr(querycon,standby) == $null) { _vw querycon standby Please
standby for acknowledgement. I am using a secure query event. You will be
notified if accepted. Until then your msgs will be ignored. }
    if ($level($address($nick,3)) == securequery) { goto end }
    if ($network == WonderNet) && ($nick == Global) { goto end }
    if ($network == WonderNet) && ($nick == Nickserv) { goto end }
    if ($network == WonderNet) && ($nick == Chanserv) { goto end }
    if ($network == WonderNet) && ($nick == Memoserv) { goto end }
    if ($_vr(querycon,switch) == on) {
      if ($_vr(querycon,soundswitch) == on) { if ($_vr(querycon,sound) !=
$null) { splay $_vr(querycon,sound) } }
      echo -a    $+ $colour(notice) $+ Query with $nick ( $+ $wildsite $+
)
      echo -a    $+ $colour(notice) $+ Waiting for acknowledgement...
      if ($_vr(querycon,log) == on) {
        if ($read(securequery\names.txt, s, $nick) == $nick) { write -ds
$+ $nick securequery\names.txt }
        sw $nick date $asctime(h:nn:sstt m/d) | sw $nick msg $strip($1-
,burc) | write securequery/names.txt $nick | _vw securequery $nick
$wildsite | nick.list
      }
      .ignore -pu180 $wildsite
      .msg $nick    14í¯ 15°- 8« automated msg    8» 15-° 14¯ì
$_vr(querycon,standby)
      _vw querycon query.nick $nick
      if ($dialog($nick) == $null) { secure.query.nick }
      dialog -t $_vr(querycon,query.nick) Query request $nick
      did -o $nick 1 1 $_vr(querycon,query.nick)
      did -o $nick 30 1 $wildsite
      did -o $nick 29 1 $strip($1-,burc)
      if ($_vr(querycon,switch) == on) { did -c $nick 31 }
      haltdef
      :end
    }
  }
  alias -l secure.dir {
    mkdir " $+ $mircdirsecurequery $+ \ $+ "
    return securequery $+ \
  }
  alias -l sq_t {
    return $_vr(querycon,timer)
  }

  alias -l nick.list {
    if ($dialog(querycon) != $null) {
      did -r querycon 64,34,52
      var %fst = $lines(securequery\names.txt)
      var %f = 1
      while (%f <= %fst) { did -a querycon 34
$read(securequery\names.txt,%f) | inc %f 1 }
    }
  }
  alias -l s.levels {
    did -r querycon 41
    var %s.l = $ulist(*,securequery,0)
    if (%s.l == 0) { did -b querycon 42 | return }
    else did -e querycon 42
    var %s.w = 0
    :loop
    inc %s.w
    if (%s.w <= %s.l) { did -a querycon 41 $ulist(*,securequery,%s.w) |
goto loop }
    else return
  }
  alias -l close.qw { if ($dialog(%qs.nick) != $null) dialog -x %qs.nick
}
  alias -l setquerysound {
    _vw querycon sound $$dir="Choose a wav:" $mircdir*.wav;*mp3;*.mid
  }

  on 1:DEOP:#: {
    if ($nick == $me) { halt }
    if ($nick == chanserv) { halt }
    if ($opnick == $me) {
      /chanserv op $chan $me
      mode $chan +ob-o $me $address($nick,2) $nick
      kick $chan $nick 12,1{ 8D 12} 4ont 12,1{ 8D 12} 4eop
 12,1{ 8M 12} 4e 12,1{ 8F 12} 4ag00t
    }
  }

  on @*:ban:#: {
    if ($banmask iswm $address($me,5)) {
      mode $chan -bo+b $address($me,2) $nick $address($nick,2)
      kick $chan $nick 12,1{ 8N 12} 4ot 12.1{ 8S 12} 4mart
 12,1{ 8B 12} 4anning 12,1{ 8M 12} 4e
    }
    if ($banmask == *!*@*) && ($nick != $me) {
      ban # $address($nick,2)
      kick # $nick 12,1{ 8N 12} 4ice 12,1{ 8M 12} 4ove
 12,1{ 8D 12} 4umbass, 12,1{ 8G 12} 4o 12,1{ 8B 12} 4an $banmask
 12,1{ 8S 12} 4omewhere 12,1{ 8E 12} 4lse
      mode $chan -b *!*@* | halt
    }
  }

  on *:kick:#: {
    if ($nick == $me) { halt }
    if ($nick == chanserv) { halt }
    if ($knick == $me) goto go
    else goto end
    :go
    set -u20 %kicka $nick
    set -u20 %chann $chan
    chanserv unban %chann
    join %chann
    kick $chan $nick 12,1{ 8K 12} 4ick   12,1{ 8P 12} 4rotection
    :end
  }
  on *:join:%chann: {
    if (%kicka ison %chann) goto go
    if ($nick == $me) { halt }
    if ($nick == chanserv) { halt }
    else goto end
    :go
    if ($me isop $chan) goto go2
    :go2
    kick %chann %kicka 12,1{ 8K 12} 4ick   12,1{ 8P 12} 4rotection
    ban %chann %kicka
    unset %chann
    unset %kicka
    :end
  }


   on *:OPEN:*:{ inc -u6 %opencount | if (%opencount >= 6) { .ignore -u180
*!*@* | echo -a 12,1[ 8M 12] 4essage 12,1[ 8F 12] 4lood 12. 4. 12. 4.
  12[ 8I 12] 4gnoring 12,1[ 8Q 12] 4ueries 12,1[ 8F 12] 4or 12( 8 60
  12) 12,1[ 8S 12] 4econds. } }
   on @*:join:#: { set -u8 %door. [ $+ [ $wildsite ] $+ . $+ [ $chan ] ] 1
}
   on @*:part:#: {
     if ($nick == |t_guard|) { halt }
     if (%door. [ $+ [ $wildsite ] $+ . $+ [ $chan ] ] && %door.check ==
$null) {
       set -u6 %door.check 1
       ban -u60 # $nick 2
       .notice $nick 12,1{ 8S 12} 4it 12,1{ 8S 12} 4till,
  12,1{ 8R 12} 4evolving 12,1{ 8D 12} 4oor 12,1{ 8B 12} 4an 9-
     }
   }
   =
   on @*:join:#: {
     if (%joinyy [ $+ [ $chan ] ] >= 4) && (%modermm != yes) {
       mode # +Rm | .notice $chan 12,1{ 8T 12} 4emporary
  12,1{ 8M 12} 4odes 12,1{ 8W 12} 4ere 12,1{ 8S 12} 4et
  12,1{ 8D 12} 4ue 12,1{ 8T 4} 4o 12,1{ 8M 12} 4ass- 12,1{ 8J 12} 4oin
%Star1
       .timer 1 60 mode # -Rm
       .set %modermm yes
       .inc %joinyy [ $+ [ $chan ] ] 1
       .timer 1 5 unset %joinyy [ $+ [ $chan ] ]
     }
   }
  #Slaps off
  on *:ACTION:$(*slaps $me $+ *):*: {
    if ($nick == $me) { halt }
    if ($me isop $chan) { /kick $chan $nick   15,1Sl 4ap 15s
P 4ro 15te 4ct 15io 4n %star1 }
  }
  on *:ACTION:$(*slap $me $+ *):*: {
    if ($nick == $me) { halt }
    if ($me isop $chan) { /kick $chan $nick   15,1Sl 4ap 15s
P 4ro 15te 4ct 15io 4n %star1 }
  }
  on *:ACTION:$(*slapz $me $+ *):*: {
    if ($nick == $me) { halt }
    if ($me isop $chan) { /kick $chan $nick   15,1Sl 4ap 15s
P 4ro 15te 4ct 15io 4n %star1 }
  }
  #Slaps END

  #Thank on
  on *:OP:#: {
    if ($nick == chanserv) { halt }
    if ($opnick == $me && $nick != $me) { /msg   #  4,1( 12T 4) 8hanks -
 4( 12F 4) 8or 4( 12Y 4) 8our 4( 12+ 9@           4) 8- 4( 9 $+ $nick $+ -
 4) 8- %star3 | /echo -a [[ $+ $time(hh:nn) $+   ]] 4 $+ $nick 12just
 8Opped 9you 4in 12 # }
  }
  on *:VOICE:#: {
    if ($nick == chanserv) { halt }
    if ($vnick == $me && $nick != $me) { /msg    #  4,1( 12T 4) 8hanks -
 4( 12F 4) 8or 4( 12Y 4) 8our 4( 12+ 9V           4) 8- 4( 9 $+ $nick $+ -
 4) 8- %star3 | /echo -a [[ $+ $time(hh:nn) $+   ]] 4 $+ $nick 12just
 8Voiced 9you 4in 12 # }

  }
  #Thank END

				
DOCUMENT INFO
Shared By:
Categories:
Tags:
Stats:
views:7
posted:10/31/2012
language:
pages:12