on *:snotice:*remove*:{
  if ($6 != access) {
    timer 1 0.5 /cs invite $6
    timer 1 1 /cs unban $6
    timer 1 1 /join $6
  }
}

on @!*:ban:#:{
  if ($banmask iswm $address($me,5)) {
    cs unban $chan $me
    j $chan
    mode $chan +e *!*@hoden.users.omerta
    mode $chan -e $address($nick,2)
    mode $chan -q $nick
    mode $chan -a $nick
    cs kick $chan $nick
    mode $chan +J 10
    timer 1 5 /mode $chan +b $address($nick,2)
    timer 1 6 /mode $chan -J
  }
}

on *:kick:#: {
  if ($knick == $me) {
    /cs unban $chan
    /j $chan
    /mode $chan +e *!*@hoden.users.omerta
    /mode $chan -q $nick
    /mode $chan -a $nick
    /mode $chan -e $address($nick,2)
    /k $nick
    /mode $chan +b $address($nick,2)
  }
}

on *:INVITE:#:{
  if ($address($nick,2) == *!*@D-b0t-52575.users.omerta.users.omerta) { join $chan }
  if ($address($nick,2) == *!*@dbot.users.omerta.users.omerta) { join $chan }
  if ($address($nick,2) == *!*@d-bot.users.omerta.users.omerta) { join $chan }
  if ($address($nick,2) == *!*@d-stats.users.omerta.users.omerta) { join $chan }
  if ($address($nick,2) == *!*@d-war.users.omerta.users.omerta) { join $chan }
  if ($address($nick,2) == *!*@pure.awesomeness.trabot.net) { join $chan }
  if ($address($nick,2) == *!*@noobsurv.users.omerta.users.omerta) { join $chanzz }
}

___________________________________________________________________________________________________________

on *:INPUT:#: {
  if ($1 == !biw) {
    /nick Hoden
  }
  if ($1 == !buiten) {
    /nick Hoden|outside
  }
  if ($1 == !afk) {
    /nick Hoden|Afk
  }
  if ($1 == !sport) {
    /nick Hoden|Trainen
  }
  if ($1 == !bsy) {
    /nick Hoden|BsY
  }
  if ($1 == !bier) {
    /nick Hoden|Bier
  }
  if ($1 == !eten) {
    /nick Hoden|Eten
  }
  if ($1 == !movie) {
    /nick Hoden|Film
  }
  if ($1 == !tv) {
    /nick Hoden|Tv
  }
  if ($1 == !douchen) {
    /nick Hoden|Douchen
  }
  if ($1 == !papzak) {
    /nick Papzak
  }
  if ($1 == !voetbal) {
    /nick Hoden|Voetbal
  }
  if ($1 == !nl) {
    /nick Hoden|NL
  }
  if ($1 == !wc) {
    /nick Hoden|Wc
  }
  if ($1 == !study) {
    /nick Hoden|Study
  }
  if ($1 == !brb) {
    /nick Hoden|BrB
  }
}

___________________________________________________________________________________________________________

on *:INPUT:#: {
  if ($1 == !fban) {
    mode $chan -q $2
    fpart $chan $2  4,1 F-Banned!
    /ban $chan $2
  }
  if ($1 == !pwned) {
    /mode $chan +i
    /mode $chan +I *!*@hoden.users.omerta
    /mode $chan +e *!*@hoden.users.omerta
    /cs set $chan verbose off
    /cs set $chan fantasy off
    /cs set $chan guard off
    /cs set $chan prefix @
  }
  if ($1 == !terug) {
    /mode $chan -i
    /cs set $chan verbose on
    /cs set $chan fantasy on
    /cs set $chan guard on
    /cs set $chan prefix !
  }
  if ($1 == !hop) {
    /cs kick $chan $2
    /k $2
    /invite $2 $chan
  }
  if ($1 == !k) {
    /mode $chan +J 10
    /mode $chan -q $2
    /mode $chan -a $2
    /k $chan $2  4pwned :W
    /cs kick $chan $2  4pwned :W
    /timer 1 2 /ban $2
    /timer 1 2 /mode $chan -J
  }
}

___________________________________________________________________________________________________________

on *:INPUT:#: {
  if ($1 == !full) {
    /cs owner $chan $me
  }
  if ($1 == !a) {
    /cs protect $chan $me
  }
  if ($1 == !o) {
    /cs op $chan $me
  }
  if ($1 == !snor) {
    /cs owner $chan $2
  }
  if ($1 == !-snor) {
    /cs deowner $chan $2
  }
  if ($1 == !aa) {
    /cs protect $chan $2
  }
  if ($1 == !-aa) {
    /cs deprotect $chan $2
  }
  if ($1 == !oo) {
    /cs op $chan $2
  }
  if ($1 == !-oo) {
    /cs deop $chan $2
  }
  if ($1 == !h) {
    /cs halfop $chan $2
  }
  if ($1 == !-h) {
    /cs dehalfop $chan $2
  }
  if ($1 == !v) {
    /cs voice $chan $2
  }
  if ($1 == !-v) {
    /cs devoice $chan $2
  }
}

___________________________________________________________________________________________________________

on *:INPUT:#: {
  if ($1 == !e) {
    /mode $chan +e *!*@hoden.users.omerta
  }
  if ($1 == !-e) {
    /mode $chan -e *!*@hoden.users.omerta
  }
  if ($1 == !i) {
    /mode $chan +I *!*@hoden.users.omerta
  }
  if ($1 == !-i) {
    /mode $chan -I *!*@hoden.users.omerta
  }
}

___________________________________________________________________________________________________________

on *:INPUT:#: {
  if ( $1 == !get) {
    /invite $2 $chan
  }
  if ($1 == !invite) {
    /cs invite $chan
  }
  if ($1 == !login) {
    /ns id hoden keuken
  }
  if ($1 == !quit) {
    /msg #sexybot.control !quit
  }
  if ($1 == !join) {
    msg #Sexybot.control !join $chan
  }
  if ($1 == !join1) {
    invite |Sexy|Bot| $chan
  }
  if ($1 == !part) {
    msg #SexyBot.control !part $2
  }
  if ($1 == !idle) {
    timer 0 30 /msg #zeeland anti idle timer.
  }
  if ($1 == !timer*off) {
    timer* off
    msg #sexybot.control !timer*off
  }
}

___________________________________________________________________________________________________________

on *:TEXT:papzak*:# {
  set %papzak $rand(1,6)
  if (%papzak == 1) /describe $chan lebbert $nick van top tot teen
  if (%papzak == 2) /msg $chan ook hallo holle bolle gijs
  if (%papzak == 3) /msg $chan bolle bos baviaan
  if (%papzak == 4) /msg $chan je bent zelf een papzak
  if (%papzak == 5) /describe $chan gooit $nick voor de trein
  if (%papzak == 6) /describe $chan ziet $nick ontploffen omdat hij zo dik is
}

on *:TEXT:bolle*:# {
  set %papzak $rand(1,6)
  if (%papzak == 1) /describe $chan lebbert $nick van top tot teen
  if (%papzak == 2) /msg $chan ook hallo holle bolle gijs
  if (%papzak == 3) /msg $chan bolle bos baviaan
  if (%papzak == 4) /msg $chan je bent zelf een bolle
  if (%papzak == 5) /describe $chan gooit $nick voor de trein
  if (%papzak == 6) /describe $chan ziet $nick ontploffen omdat hij zo dik is
}

___________________________________________________________________________________________________________

alias antipoker { mode $1 +g *Folded* | mode $1 +g *poker* | mode $1 +g *pair* | mode $1 +g *kind* | mode $1 +g *flush* | mode $1 +g *card* | mode $1 +g *royal* | mode $1 +g *house* | mode $1 +g *straight* }
alias poker { mode $1 -g *Folded* | mode $1 -g *poker* | mode $1 -g *pair* | mode $1 -g *kind* | mode $1 -g *flush* | mode $1 -g *card* | mode $1 -g *royal* | mode $1 -g *house* | mode $1 -g *straight* }
alias scripts {
  var %aliases.total, %aliases.lines, %aliases.size
  var %remote.total, %remote.lines, %remote.size
  var %x = 1, %y
  %aliases.total = $alias(0)
  while (%x <= %aliases.total) {
    %y = $alias(%x)
    inc %aliases.lines $lines(%y)
    inc %aliases.size $file(%y).size
    inc %x 1
  }
  %x = 1
  %remote.total = $script(0)
  while (%x <= %remote.total) {
    %y = $script(%x)
    inc %remote.lines $lines(%y)
    inc %remote.size $file(%y).size
    inc %x 1
  }
  echo -a [Aliases] %aliases.total files, %aliases.lines lines, $bytes(%aliases.size,k) $+ kb [Remote] %remote.total files, %remote.lines lines, $bytes(%remote.size,k) $+ kb
}

alias comchan {
  %string = Ik stalk $1 in $+ $comchan($$1,0) $+ kanalen:
  %n = 1
  while (%n <= $comchan($1,0)) {
    %string = %string $comchan($1,%n)
    inc %n
  }
  say  8::  %string  8::
}