Old Access List Mirc

By Charlatan on Apr 03, 2017

This is my old access list..
You can use this list Global or Local.
Global: Activated in all channels the mirc is it.
Local: You has to choose what channel going to be activated.
This list got a local ban list you has to specify what channels you want the ban list or not.
Watch out with the channel scan commands if this script scan or if a nick text in the channel and the Ban List is activated in that channel, automatically the script kick and ban those nicks.
Rip it, take whatever you want from it, copy, change, use it, do whatever you want with it. Is old but good or cruel just change for whatever Irc channel you need it.
MSN Modes: +-q +-h +-v Guest_
MSN Mirc OP: ' . @ + >
If you feel lazy to erase whats rooms or nicks this script saved, use a Hash Table Viewer like this one http://hawkee.com/snippet/7883/ or http://hawkee.com/snippet/3015/ otherwise do it manualy

/*
01000011 01101000 01100001 01110010 01101100 01100001 01110100 01100001 01101110                                                                                 
*/

;Access list edited by me, from the old obscuridad_mt access list.
;Gracias...
on *:START:{
  Create_Folder data
  hmake Ban 300
  hmake Admin 100
  hmake Host 100
  hmake Ghost 100
  hmake Gowner 100
  hmake Owner 100
  hmake Bot 100
  hmake Prot 100
  hmake AdminRoom 100
  hmake BanRoom 100
  hmake HostRoom 100
  hmake OwnerRoom 100
  if ($Isfile($Fp(data/Owner.hsh))) hload Owner $Fp(data/Owner.hsh)
  if ($Isfile($Fp(data/Ban.hsh))) hload Ban $Fp(data/Ban.hsh)
  if ($Isfile($Fp(data/Admin.hsh))) hload Admin $Fp(data/Admin.hsh)
  if ($Isfile($Fp(data/Host.hsh))) hload Host $Fp(data/Host.hsh)
  if ($Isfile($Fp(data/Ghost.hsh))) hload Ghost $Fp(data/Ghost.hsh)
  if ($Isfile($Fp(data/Gowner.hsh))) hload Gowner $Fp(data/Gowner.hsh)
  if ($Isfile($Fp(data/Prot.hsh))) hload Prot $Fp(data/Prot.hsh)
  if ($Isfile($Fp(data/Bot.hsh))) hload Bot $Fp(data/Bot.hsh)
  if ($Isfile($Fp(data/AdminRoom.hsh))) hload AdminRoom $Fp(data/AdminRoom.hsh)
  if ($Isfile($Fp(data/BanRoom.hsh))) hload BanRoom $Fp(data/BanRoom.hsh)
  if ($Isfile($Fp(data/OwnerRoom.hsh))) hload OwnerRoom $Fp(data/OwnerRoom.hsh)
  if ($Isfile($Fp(data/HostRoom.hsh))) hload HostRoom $Fp(data/HostRoom.hsh)
}
on *:EXIT: {
  .hsave -o AdminRoom $Fp(data/AdminRoom.hsh)
  .hsave -o Ban $Fp(data/Ban.hsh)  
  .hsave -o Admin $Fp(data/Admin.hsh)
  .hsave -o Host $Fp(data/Host.hsh)
  .hsave -o Ghost $Fp(data/Ghost.hsh)
  .hsave -o Gowner $Fp(data/Gowner.hsh)
  .hsave -o Owner $Fp(data/Owner.hsh)
  .hsave -o Prot $Fp(data/Prot.hsh)
  .hsave -o Bot $Fp(data/Bot.hsh)
  .hsave -o BanRoom $Fp(data/BanRoom.hsh)
  .hsave -o OwnerRoom $Fp(data/OwnerRoom.hsh)
  .hsave -o HostRoom $Fp(data/HostRoom.hsh)
  .hfree AdminRoom
  .hfree OwnerRoom
  .hfree HostRoom
  .hfree BanRoom
  .hfree Ghost
  .hfree Gowner
  .hfree Host
  .hfree Ban
  .hfree Admin
  .hfree Owner
  .hfree Prot
  .hfree Bot
}
alias Create_Folder {
  if (!$Isdir($$1)) mkdir $$
}
alias Fp return $+(", $Mircdir, $$1-, ")
alias alist {
  if ($Hget(AdminRoom,#) == $null) { return Desactivar }
  else { return Activar }
}
alias ALActivar {
  if ($1- == Desactivar) { .Hadd -sm  AdminRoom # Si }
  else { hdel AdminRoom # } 
}
alias olist {
  if ($Hget(OwnerRoom,#) == $null) { return Desactivar }
  else { return Activar }
}
alias OLActivar {
  if ($1- == Desactivar) { .Hadd -sm  OwnerRoom # Si }
  else { hdel OwnerRoom # }
}
alias hlist {
  if ($Hget(HostRoom,#) == $null) { return Desactivar }
  else { return Activar }
}
alias HLActivar {
  if ($1- == Desactivar) { .Hadd -sm  HostRoom # Si }
  else { hdel HostRoom # }
}
alias blist {
  if ($Hget(BanRoom,#) == $null) { return Desactivar }
  else { return Activar }
}
alias BLActivar {
  if ($1- == Desactivar) { .Hadd -sm  BanRoom # Si }
  else { hdel BanRoom # }
}
on *:INPUT:*: {
  if ($1 == `) { If ($Chr(124) Isin $2-) { var %a 1 | while ($Gettok($2-,%a,124)) { $($Gettok($2-,%a,124),2) | inc %a } } | else { $($2-,2) } }
  elseif ($1 == .hop) { hop # }
  elseif ($1 == .k) { kick $chan $2- Flying Kick... }
  elseif ($1 == .asd) { msg $replacecs($2-,a,ล,b,в,c,ç,d,Ä‘,e,έ,f,Æ’,g,ÄŸ,h,н,i,ί,j,ĵ,l,Å‚,m,м,n,и,o,Ç¿,p,þ,s,Å¡,u,µ,v,Ï…,w,ω,x,ж,y,ψ,z,ź,ñ,ñ,Ñ,Ñ,k,Ñœ,>,»,<,«,¬,¬,r,Ñ,t,Ñ‚) }
elseif ($1 == .cd) { access $chan clear deny | msg $chan Cleared Access Deny | access $chan add owner $+(*,$$ial($me).user,@P*) | access $chan add host $+(*,$$ial($me).user,@P*) } 
}
on ^*:TEXT:*:*:{
  .signal TEXT $chan $1-
  if ($Hget(Admin,$address($nick,1))) {
    var %T = $strip($1-)
    if ($alist == Activar) || (%a0pa == $null) halt
    elseif ($pos(%T,.scan)) { msg Scanning... | as | qs | hs | bs } 
    elseif ($pos(%T,.as)) { $as }
    elseif ($pos(%T,.hs)) { $hs }
    elseif ($pos(%T,.bs)) { $bs }
    elseif ($pos(%T,.qs)) { $qs }
    elseif ($pos(%T,.od)) { mode # -q $me }
    elseif ($pos(%T,.host)) { mode # +o $2- | msg OK }
    elseif ($pos(%T,.owner)) { mode # +q $2- | msg OK }
    elseif ($pos(%T,.voice)) { mode # +v $2- | msg OK }
    elseif ($pos(%T,.espec)) { mode # -v $2- | msg OK }
    elseif ($pos(%T,.down)) { mode # -q $2- | msg OK $2- }
    elseif ($pos(%T,.topic)) { topic # $2- | msg Topic OK }
    elseif ($pos(%T,.welcome)) { prop # OnJoin : $2- | msg Welcome OK }
    elseif ($pos(%T,.k)) { 
      if ($2- == $me) { kick # $nick 8-)Sucker not me }
      else {
        kick $chan $2- Access Kick by Admin... 
        halt
      }
    }
    elseif ($pos(%T,.silence)) { 
      if ($2- == $me) { kick # $nick 8-)Sucker not me }
      else { access # add deny $address($2-,1) }
    }
    elseif ($pos(%T,.wipe)) { msg $str([br],30) $+ (brb)Pantalla Limpia(brb) $nick }
    elseif ($pos(%T,.hop)) { hop # }
    elseif ($pos(%T,.asd)) { msg $replacecs($2-,a,ล,b,в,c,ç,d,Ä‘,e,έ,f,Æ’,g,ÄŸ,h,н,i,ί,j,ĵ,l,Å‚,m,м,n,и,o,Ç¿,p,þ,s,Å¡,u,µ,v,Ï…,w,ω,x,ж,y,ψ,z,ź,ñ,ñ,Ñ,Ñ,k,Ñœ,>,»,<,«,¬,¬,r,Ñ,t,Ñ‚) }
    elseif ($pos(%T,.cc)) { access $chan clear | msg Access Cleaned | access $chan add owner $+(*,$$ial($me).user,@P*) | access $chan add host $+(*,$$ial($me).user,@P*) } 
    elseif ($pos(%T,.ch)) { access $chan clear host | msg Hosts Cleaned | access $chan add owner $+(*,$$ial($me).user,@P*) | access $chan add host $+(*,$$ial($me).user,@P*) }
    elseif ($pos(%T,.cq)) { access $chan clear owner | msg Owners Cleaned | access $chan add owner $+(*,$$ial($me).user,@P*) | access $chan add host $+(*,$$ial($me).user,@P*) }
    elseif ($pos(%T,.cb)) { access $chan clear deny | msg Deny Cleaned | access $chan add owner $+(*,$$ial($me).user,@P*) | access $chan add host $+(*,$$ial($me).user,@P*) } 
    elseif ($pos(%T,.(y))) { mode # +q $nick | .msg OK }
    elseif ($pos(%T,.dg)) { access # add deny *>* | msg Deny Guests } 
    elseif ($pos(%T,.cg)) { access # delete deny *>* | msg Delete Deny Guests  } 
    elseif ($pos(%T,.(n))) { mode # -q $nick | mode # -o $nick | msg OK }
    elseif ($pos(%T,.(yn))) { mode # +o $nick | msg OK }
    elseif ($pos(%T,.bn)) { 
      if ($2- == $me) { kick # $nick 8-)Sucker not me }
      else {
      access # clear owner | access # clear host | access # add deny $address($2-,1) | kick # $2- Baned by Admin... | access $chan add owner $ial($me).addr }
    }  
    elseif ($pos(%T,.3b)) {
      if ($2- == $me) { kick # $nick 8-)Sucker not me }
      else {
        access $chan clear owner 
        access $chan clear host 
        access $chan add owner $ial($me).addr 0
        access $chan add deny $2-
        access $chan add deny $address($2-,1)
        access $chan add deny $2 $+ $address($2-,1)
        kick # $2- 8o|Triple Ban by Admin...
      }
    }
    elseif ($pos(%T,.mazaso)) { msg ï€(¯¯¯¯ )ï€ï€ |¯¯¯¯|ï€ï€ |\|¯¯¯¯¯¯¯¯¯¯¯¯¯¯|ï€ï€ |\|______________|ï€ï€ |____|ï€(____ )ï€.'||'. | kick # $2- Toma mi CHIPOTE CHILLON:P }
    elseif ($pos(%T,(y))) { msg _(|___\\(__()`-|(___()|(____() }
    elseif ($pos(%T,.admin)) { .ctcpreply $nick TIME Commands: .topic(change topic) .k nick(kick nick) .bn nick(ban nick) .out(Part Chan) | .ctcpreply $nick TIME To see the next commands write: .2 admin }
    elseif ($pos(%T,.2 admin)) { .ctcpreply $nick TIME .away(go away) .back(not away) .modo(change mode) .3b nick(Triple Ban to a nick) | .ctcpreply $nick TIME To see the next: .3 admin }
    elseif ($pos(%T,.3 admin)) { .ctcpreply $nick TIME .hop(reenter) .clonar(clonas al nick) .fk nick(kick with finger) .mazaso nick(kick with pic) | .ctcpreply $nick TIME For more commands: .4 admin(*) }
    elseif ($pos(%T,.4 admin)) { .ctcpreply $nick TIME .cc(access clear) .ch(host access clear) .cq(owner access clear) .silence(banea but dont kick) | .ctcpreply $nick TIME To see the other commands write: .5 admin }
    elseif ($pos(%T,.5 admin)) { .ctcpreply $nick TIME .down(-q) .wipe(clear chat like msn) .od(-q Mirc) .welcome(change welcome)  | .ctcpreply $nick TIME This are not the last ones, take more: .6 admin }
    elseif ($pos(%T,.6 admin)) { .ctcpreply $nick TIME .owner nick(+q nick) .host nick(+h nick) .voice nick(+v nick) .spec nick(-v nick) (y)(Picture) .scan, .as, .os, .hs, .bs y .ss(Scan List) I'm finished... thankz God }  
    elseif ($pos(%T,.away)) { msg OK  | away : }
    elseif ($pos(%T,.out)) { part $chan }
    elseif ($pos(%T,.back)) { msg OK | away }
    elseif ($pos(%T,.modo)) { mode # $2- }
    elseif ($pos(%T,.fk)) { msg __ /'_/),// /// //'--/''/'-'//'////--\('('' -_/''\\'/'\'\ _'\(\\ | access $chan clear | access $chan add deny $$2 0 | access $chan add deny $address($2,1) 0 | kick $chan $gettok($2,1,33) :Largate de aki ya :@ }
    elseif ($1 == `) { If ($Chr(124) Isin $2-) { var %a 1 | while ($Gettok($2-,%a,124)) { $($Gettok($2-,%a,124),2) | inc %a } } | else { $($2-,2) } }
  }
  if ($Hget(Ban,$address($nick,1))) {
    if ( $blist == Activar ) || (%a0pb == $null) halt
    if ($nick(#, $me, '.@)) {
      if ($nick(#, $nick, .)) && ($nick(#, $me, .)) $sockname $+(access # clear owner,$chr(10),access # add deny $address($nick,1),$chr(10),kick # $nick : (n)Bann Listed: $nick Razon: $Hget(Ban,$address($nick,1)),$chr(10),access # add owner $+(*,$$ial($me).user,@*) 0 :[-From Ban-])) 
      if ($nick(#, $nick, @)) $sockname $+(access # clear host,$chr(10),access # add deny $ial($nick,1).addr,$chr(10),kick # $nick : (n)Bann Listed: $nick Razon: $Hget(Ban,$address($nick,1)),$chr(10),access # add owner $+(*,$$ial($me).user,@*) 0 :[-From Ban-],$chr(10),access # add host $+(*,$$ial($me).user,@*) 0 :[-From Ban-]))
      if ($nick(#, $nick, +)) $sockname $+(access # clear voice,$chr(10),access # add deny $address($nick,1),$chr(10),kick # $nick : (n)Bann Listed: $nick Razon: $Hget(Ban,$address($nick,1)),$chr(10),access # add owner $+(*,$$ial($me).user,@*) 0 :[-From Ban-],$chr(10),access # add host $+(*,$$ial($me).user,@*) 0 :[-From Ban-]))
      else { $sockname $+(access # add deny $ial($nick,1).addr,$chr(10),kick # $nick : (n)Bann Listed: $nick Razon: $Hget(Ban,$address($nick,1)),$chr(10),access # add owner $+(*,$$ial($me).user,@*) 0 :[-From Ban-],$chr(10),access # add host $+(*,$$ial($me).user,@*) 0 :[-From Ban-])) }
      halt
   }
  }
  if ($Hget(Owner,$address($nick,1))) {
    var %S = $strip($1-)
    if ( $olist == Activar ) || (%a0po == $null) return 
    elseif ($pos(%S,.owner)) { .ctcpreply $nick TIME -Command list for Owner- .+q -Op-  .+h -Host- .k Nick -Kick Nick- -No more commands for this list- }
    elseif ($pos(%S,.+q)) { mode # +q $nick }
    elseif ($pos(%S,.+h)) { mode # +o $nick }
    elseif ($pos(%S,.k)) { 
      if ($Hget(Admin,$address($nick,1))) || ($Hget(Gowner,$address($nick,1))) || ($2- isowner #) { .ctcpreply $nick TIME Not to $2 . Level (+) or (=) than you | halt }
      if ($2- == $me) { kick # $nick 8-)Sucker not me }
      else { kick $chan 2- Get Out... | halt }
    }
  }
  if ($Hget(Gowner,$address($nick,1))) {
    var %T = $strip($1-)
    if (%ga0po == $null) halt
    elseif ($pos(%T,.gowner)) { .ctcpreply $nick TIME -Command list for Owner- +q -Op- +h -Host- .k Nick -Kick Nick- -No more commands for this list- }
    elseif ($pos(%T,.+q)) { mode # +q $nick }
    elseif ($pos(%T,.+h)) { mode # +o $nick }
    elseif ($pos(%T,.k)) { 
      if ($Hget(Admin,$address($nick,1))) || ($Hget(Owner,$address($nick,1))) || ($2- isowner #) { .ctcpreply $nick TIME Not to $2 . Level (+) or (=) than you | halt }
      if ($2- == $me) { kick # $nick 8-)Sucker not me }
      else { kick $chan $2- Get Out... | halt }
    }
  }
  if ($Hget(Host,$address($nick,1))) {
    var %T = $strip($1-)
    if ( $hlist == Activar ) || (%a0ph == $null) halt
    elseif ($pos(%T,.host)) { .ctcpreply $nick TIME -Command list for Host- .+h -Host-  .k Nick -Kick Nick- -No more commands for this list- }
    elseif ($pos(%T,.+h)) { mode $chan +o $nick }
    elseif ($pos(%T,.k)) { 
      if ($2- == $me) { kick # $nick 8-)Sucker not me }
      if ($Hget(Admin,$address($nick,1))) || ($Hget(Owner,$address($nick,1))) || ($Hget(Gowner,$address($nick,1))) || ($2- isowner #) { .ctcpreply $nick TIME Not to $2 . Level (+) than you | halt }
      else { kick $chan $2- Get Out... | halt }
    }
  }
  if ($Hget(Ghost,$address($nick,1))) {
    var %T = $strip($1-)
    if (%g0ph == $null) halt
    elseif ($pos(%T,.ghost)) { .ctcpreply $nick TIME -Command list for Host-  .+h -Host- .k Nick -Kick Nick- -No more commands for this list- }
    elseif ($pos(%T,.+h)) { mode $chan +o $nick }
    elseif ($pos(%T,.k)) { 
      if ($2- == $me) { kick # $nick 8-)Sucker not to me }
      if ($Hget(Admin,$address($nick,1))) || ($Hget(Owner,$address($nick,1))) || ($Hget(Gowner,$address($nick,1))) || ($2- isowner #) { .ctcp $nick TIME Not to $2 . Level (+) than you | halt }
      else { kick $chan $2- Get Out... | halt }
    }
  }
}

on ^*:JOIN:#:{
  if ($nick == $me) halt
  if ($Hget(Ban,$address($nick,1))) {
    echo -ae 9,1[- 0 $+ $nick $+  9 -] [- 0 $chan 9 -] [- 0-•B•11/0•L•- 9-] [- 0Reason11: 0 $Hget(Ban,$address($nick,1)) 9-]    
    if ($nick(#, $me, '.@)) {
      if ( $blist == Activar ) || (%a0pb == $null) halt
      else { $sockname $+(access $chan CLEAR OWNER,$chr(10),access $chan CLEAR HOST,$chr(10),access $chan add deny $ial($nick,1).addr 0 :[-Banlist-],$chr(10),kick $chan $nick : (n)Bann Listed: $nick Reason: $Hget(Ban,$address($nick,1)),$chr(10),access $chan ADD OWNER $+(*,$$ial($me).user,@P*),$chr(10),access $chan ADD HOST $+(*,$$ial($me).user,@P*) 0) }
    }
  }
  if ($Hget(Admin,$address($nick,1))) {
    echo -ae 9,1[- 0 $+ $nick $+  9 -] [- 0 $chan 9-] [- 0-•A•11/0•L•- 9-] [- 0Reason11: 0 $Hget(Admin,$address($nick,1)) 9-]
    if ($nick(#, $me, '.@)) {      
      if ( $alist == Activar ) { .ctcpreply $nick TIME [- :[Admin Access: $nick Reason Denegated: Halted -] | halt }
      if (%a0pa == $null) halt
      else {
        .ctcpreply $nick TIME [- :[Admin Access: $nick Reason: $Hget(Admin,$address($nick,1)) -]
        .ctcpreply $nick TIME [- For Command list write .admin -]
      }
    }
  }
  if ($Hget(Host,$address($nick,1))) {
    echo -ae 9,1[- 0 $+ $nick $+  9 -] [- 0 $chan 9 -] [- 0-•H•11/0•L•- 9-] [- 0Reason11: 0 $Hget(Host,$address($nick,1)) 9-]
    if ($nick(#, $me, '.)) {      
      if ( $hlist == Activar ) { privmsg # [- :[Local Host Access: $nick Reason Denegated: $chan Halted -] | halt }
      if (%a0ph == $null) halt
      else {
        .ctcpreply $nick TIME [- :[Local Host Access: $nick Reason: $Hget(Host,$address($nick,1)) -]
        .mode # +o $nick
        .ctcpreply $nick TIME [- For Command list write .host -] 
      }
    }
  }
  if ($Hget(Ghost,$address($nick,1))) {
    echo -ae 9,1[- 0 $+ $nick $+  9 -] [- 0 $chan 9 -] [- 0-•G•11/0•H•11/0•L•- 9-] [- 0Reason11: 0 $Hget(Ghost,$address($nick,1)) 9-]
    if ($nick(#, $me, '.)) {      
      if (%ga0ph == $null) halt
      else {
        .ctcpreply $nick TIME [- :[Global Host Access: $nick Reason: $Hget(Ghost,$address($nick,1)) -]
        .mode # +o $nick
        .ctcpreply $nick TIME [- For Command list write .ghost -]      
      }
    }
  }
  if ($Hget(Owner,$address($nick,1))) {
    echo -ae 9,1[- 0 $+ $nick $+  9 -] [- 0 $chan 9 -] [- 0-•O•11/0•L•- 9-] [- 0Reason11: 0 $Hget(Owner,$address($nick,1)) 9-]
    if ($nick(#, $me, '.)) {      
      if ( $olist == Activar ) { privmsg # [- :[Local Owner Access: $nick Reason Denegated: Halted -] | halt }
      if (%a0po == $null) halt
      else {
        .ctcpreply $nick TIME [- :[Local Owner Access: $nick Reason: $Hget(Owner,$address($nick,1)) -] 
        .mode # +q $nick
        .ctcpreply $nick TIME [- For Command list write .owner -]
      }
    }
  }
  if ($Hget(Gowner,$address($nick,1))) {
    echo -ae 9,1[- 0 $+ $nick $+  9 -] [- 0 $chan 9 -] [- 0-•G•11/0•O•11/0•L•- 9-] [- 0Reason11: 0 $Hget(Gowner,$address($nick,1)) 9-]
    if ($nick(#, $me, '.)) {      
      if (%ga0po == $null) halt
      else {
        .ctcpreply $nick TIME [- :[Global Owner Access: $nick Reason: $Hget(Gowner,$address($nick,1)) -]
        .mode # +q $nick
        .ctcpreply $nick TIME [- For Command list write .gowner -]      
      }
    }
  }
  if ($Hget(Bot,$address($nick,1))) {
    echo -ae 9,1[- 0 $+ $nick $+  9 -] [- 0 $chan 9 -] [- 0-•BOT•11/0•L•- 9-] [- 0Reason11: 0 $Hget(Bot,$address($nick,1)) 9-]
    if ($nick(#, $me, '.) {      
      if (%ga0sl == $null) halt
      else { .mode # +q $nick }      
    }
  }
}

on *:owner:#: {
  if ($Hget(Ban,$address($nick,1))) && ($opnick == $me) {
    echo -ae 9,1[- 0 $+ $nick $+  9 -] [- 0 $chan 9 -] [- 0-•B•11/0•L•- 9-] [- 0Reason11: 0 $Hget(Ban,$address($nick,1)) 9-]    
    if ( $blist == Activar ) || (%a0pb == $null) halt
    else { $sockname $+(access $chan CLEAR OWNER,$chr(10),access $chan CLEAR HOST,$chr(10),access $chan add deny $ial($nick,1).addr,$chr(10),kick $chan $nick (n)Bann Listed: $nick Reason: $Hget(Ban,$address($nick,1)),$chr(10),prop $chan ownerkey $rkey,$chr(10),access $chan ADD OWNER $+(*,$$ial($me).user,@P*)) }       
  }
}
on *:OP:#: {
  if ($Hget(Ban,$address($nick,1))) && ($opnick == $me) {
    echo -ae 9,1[- 0 $+ $nick $+  9 -] [- 0 $chan 9 -] [- 0-•B•11/0•L•- 9-] [- 0Reason11: 0 $Hget(Ban,$address($nick,1)) 9-]    
    if ( $blist == Activar ) || (%a0pb == $null) halt
    else { $sockname $+(access $chan CLEAR HOST,$chr(10),access $chan add DENY $ial($nick,1).addr,$chr(10),kick $chan $nick (n)Ban Listed: $nick Reason: $Hget(Ban,$address($nick,1)),$chr(10),prop $comchan($me,1) hostkey $rkey,$chr(10),access $comchan($me,1) ADD HOST $+(*,$$ial($me).user,@P*)) }      
  }
}
on *:KICK:#: {
  if ($Hget(Prot,$address($knick,1))) {
echo -ae 9,1[- 0 $+ $knick $+  9 -] [- 0 $chan 9 -] [- 0-•P•11/0•L•- 9-] [- 0Reason11: 0 $Hget(Prot,$address($knick,1)) 9-]
    if ($nick == $me) || ($Hget(Admin,$address($nick,1))) || ($Hget(Owner,$address($nick,1))) { halt }
    if ($nick(#, $me, '.@)) {
      if (%ga0pl == $null) halt 
      else { $sockname $+(access $chan clear OWNER,$chr(10),access $chan clear HOST,$chr(10),access $chan add deny $ial($nick,1).addr 1,$chr(10),kick $chan $nick (n)Protected(n),$chr(10),prop $chan ownerkey $rkey,$chr(10),prop $chan hostkey $rkey,$chr(10),access $chan add $iif($me,OWNER $+(*,$$ial($me).user,@P*),HOST ? $+ $right($ial($me).addr,-1))) }
    }
  }
}
on *:Deowner:#: {
  if ($Hget(Prot,$address($opnick,1))) {
echo -ae 9,1[- 0 $+ $opnick $+  9 -] [- 0 $chan 9 -] [- 0-•P•11/0•L•- 9-] [- 0Reason11: 0 $Hget(Prot,$address($opnick,1)) 9-]
    if ($nick == $me) || ($Hget(Admin,$address($nick,1))) || ($Hget(Owner,$address($nick,1))) { halt }
    if ($nick(#, $me, '.)) {
      if (%ga0pl == $null) halt
      else { $sockname $+(mode $chan +q $opnick,$chr(10),access # clear owner,$chr(10),access $chan add deny $address 1 : MTF!!,$chr(10),kick $chan $nick : (n)Protected(n),$chr(10),prop $chan ownerkey $rkey,$chr(10),access # add owner $ial($me).addr) }
    }
  }
}
alias qs {
  .var %i = 0, %p = 0, %nick = "", %n = $nick($chan,0)
  msg * Beginning Ownerlist Scan in $chan
  while (%i <= %n) {
    inc %i
    if ($Hget(Owner,$address($nick($chan,%i),1))) || ($Hget(Gowner,$address($nick($chan,%i),1)))  { msg # * Finding: $nick($chan,%i) | mode # +q $nick($chan,%i) }
  }
  msg * Ownerlist Scan Finished in $chan
} 

alias as {
  .var %i = 0, %p = 0, %nick = "", %n = $nick($chan,0)
  msg * Beginning Adminlist Scan in $chan
  while (%i <= %n) {
    inc %i
    if ($Hget(Admin,$address($nick($chan,%i),1))) { msg * Finding: $nick($chan,%i) }
  }
  msg * Adminlist Scan Finished in $chan
}

alias hs {
  .var %i = 0, %p = 0, %nick = "", %n = $nick($chan,0)
  msg * Beginning Hostlist Scan in $chan 
  while (%i <= %n) {
    inc %i
    if ($Hget(Host,$address($nick($chan,%i),1))) || ($Hget(Ghost,$address($nick($chan,%i),1)))  { msg # * Finding: $nick($chan,%i) | mode # +o $nick($chan,%i) }  
  }
  msg * Hostlist Scan Finished in $chan
}

alias bs {
  .var %i = 0, %p = 0, %nick = "", %n = $nick($chan,0)
  msg * Beginning Banlist in $chan 
  while (%i <= %n) {
    inc %i
    if ($Hget(Ban,$address($nick($chan,%i),1))) { msg * Finding: $nick($chan,%i) | Kick $chan $nick($chan,%i) }
  }
  msg * Banlist Scan Finished in $chan
}
menu channel {
  Script Control Lev.
  .Local
  ..$iif(%a0pa == On,$style(1)) $+ [Act./Des. Admin-List] :{
    if (%a0pa) { unset %a0pa } | else { set %a0pa On } | echo -a * 0Local Admin-List $iif(%a0pa,Activated,Desactivated) | halt 
  }
  ..[[ $alist() en $active ]]:/ALActivar $alist()
  ..-
  ..$iif(%a0po == On,$style(1)) $+ [Act./Des. Owner-List] :{
    if (%a0po) { unset %a0po } | else { set %a0po On } | echo -a * 0Local Owner-List $iif(%a0po,Activated,Desactivated) | halt 
  }
  ..[[ $olist() en $active ]]:/OLActivar $olist()
  ..-
  ..$iif(%a0ph == On,$style(1)) $+ [Act./Des. Host-List] :{
    if (%a0ph) { unset %a0ph } | else { set %a0ph On } | echo -a * 0Local Host-List $iif(%a0ph,Activated,Desactivated) | halt 
  }
  ..[[ $hlist() en $active ]]:/HLActivar $hlist()
  ..-
  ..$iif(%a0pb == On,$style(1)) $+ [Act./Des. Ban-List] :{
    if (%a0pb) { unset %a0pb } | else { set %a0pb On } | echo -a * 0Local Ban-List $iif(%a0pb,Activated,Desactivated) | halt 
  }
  ..[[ $blist() en $active ]]:/BLActivar $blist() 
  .-
  .Global
  ..$iif(%ga0po == On,$style(1)) $+ [Act./Des. Owner-List] :{
    if (%ga0po) { unset %ga0po } | else { set %ga0po On } | echo -a * 0Global Owner-List $iif(%ga0po,Activated,Desactivated) | halt 
  }
  ..-
  ..$iif(%ga0ph == On,$style(1)) $+ [Act./Des. Host-List] :{
    if (%ga0ph) { unset %ga0ph } | else { set %ga0ph On } | echo -a * 0Global Host-List $iif(%ga0ph,Activated,Desactivated) | halt 
  }
  ..-
  ..$iif(%ga0pl == On,$style(1)) $+ [Act./Des. Protect-List] :{
    if (%ga0pl) { unset %ga0pl } | else { set %ga0pl On } | echo -a * 0Global Protect-List $iif(%ga0pl,Activated,Desactivated) | halt 
  }
  ..-
  ..$iif(%ga0sl == On,$style(1)) $+ [Act./Des. Sockbot-List] :{
    if (%ga0sl) { unset %ga0sl } | else { set %ga0sl On } | echo -a * 0Global Sockbot-List $iif(%ga0sl,Activated,Desactivated) | halt 
  }
  -
}
menu nicklist {
  -
  Script Access
  .Local
  ..Admin
  ...Add: {
    if ($address($$1,1) == $null) halt
    .hadd -m Admin $address($$1,1) $Replace($$?"Add a Mandatorily Reason",ñ,ñ,Ñ,Ñ,¬,¬,Ô,Ô) 
    .hdel Gowner $address($$1,1) | .hdel Host $address($$1,1) | .hdel Owner $address($$1,1)
    .hdel Ban $address($$1,1) | .hdel Ghost $address($$1,1)
    .ctcpreply $$1 TIME [- For Command list write .admin -]
  }
  ...Delete:hdel Admin $address($$1,1)
  ..Owner
  ...Add: {
    if ($address($$1,1) == $null) halt 
    .hadd -m Owner $address($$1,1) $Replace($$?"Add a Mandatorily Reason",ñ,ñ,Ñ,Ñ,¬,¬,Ô,Ô)
    .hdel Admin $address($$1,1) | .hdel Ban $address($$1,1) | .hdel Host $address($$1,1) 
    .hdel Gowner $address($$1,1) | .hdel Ghost $address($$1,1)
    .ctcpreply $$1 TIME [- For Command list write .owner -]
  } 
  ...Delete:hdel Owner $address($$1,1)
  ..Host
  ...Add: {
    if ($address($$1,1) == $null) halt
    .hadd -m Host $address($$1,1) $Replace($$?"Add a Mandatorily Reason",ñ,ñ,Ñ,Ñ,¬,¬,Ô,Ô)
    .hdel Admin $address($$1,1) | .hdel Owner $address($$1,1) | .hdel Ban $address($$1,1) 
    .hdel Gowner $address($$1,1) | .hdel Ghost $address($$1,1)
    .ctcpreply $$1 TIME [- For Command list write .host -]
  }
  ...Delete:hdel Host $address($$1,1)
  ..Ban List
  ...Add: {
    if ($address($$1,1) == $null) halt
    .hadd -m Ban $address($$1,1) $Replace($$?"Add a Mandatorily Reason",ñ,ñ,Ñ,Ñ,¬,¬,Ô,Ô)
    .hdel Admin $address($$1,1) | .hdel Host $address($$1,1) | .hdel Owner $address($$1,1)
    .hdel Gowner $address($$1,1) | .hdel Ghost $address($$1,1)
    .access # deny $$1
    .access # deny $Address($$1,1)
    .kick # $$1
  } 
  ...Delete:hdel Ban $address($$1,1)  
  ..-   
  .Global   
  ..Owner
  ...Add: {
    if ($address($$1,1) == $null) halt
    .hadd -sm Gowner $address($$1,1) $Replace($$?"Add a Mandatorily Reason",ñ,ñ,Ñ,Ñ,¬,¬,Ô,Ô)
    .hdel Admin $address($$1,1) | .hdel Host $address($$1,1) | .hdel Owner $address($$1,1)
    .hdel Ban $address($$1,1) | .hdel Ghost $address($$1,1)
    .ctcpreply $$1 TIME [- For Command list write .owner -]
  } 
  ...Delete:hdel Gowner $address($$1,1)
  ..Host
  ...Add: {
    if ($address($$1,1) == $null) halt
    .hadd -sm Ghost $address($$1,1) $Replace($$?"Add a Mandatorily Reason",ñ,ñ,Ñ,Ñ,¬,¬,Ô,Ô)
    .hdel Admin $address($$1,1) | .hdel Host $address($$1,1) | .hdel Owner $address($$1,1)
    .hdel Ban $address($$1,1) | .hdel Gowner $address($$1,1)
    .ctcpreply $$1 TIME [- For Command list write .host -]
  }
  ...Delete:hdel Ghost $address($$1,1) 
  ..Protect  
  ...Add $$1:if ($address($$1,1) == $null) halt | hadd -m Prot $address($$1,1) $Replace($$?"Add a Mandatorily Reason",ñ,ñ,Ñ,Ñ,¬,¬,Ô,Ô)
  ...Delete $$1:hdel Prot $address($$1,1)
  ..Sockbot  
  ...Add $$1:if ($address($$1,1) == $null) halt | hadd -m Bot $address($$1,1) $Replace($$?"Add a Mandatorily Reason",ñ,ñ,Ñ,Ñ,¬,¬,Ô,Ô)
  ...Delete $$1:hdel Bot $address($$1,1)
  -
}

If this script or part of it is usefull for you, just give me some love below...

Comments

Sign in to comment.
Charlatan   -  24 days ago

Edited because I forget the alias of $Fp
Other alias is $rkey but that is for random ownerkey in MSN

alias Fp return $+(", $Mircdir, $$1-, ")

We are humans and make mistakes

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.