DOWNLOAD VERSION:

• Link is http://www.box.net/shared/03bm1c80y0
• Save it in any folder you like
• Open your mIRC, type /load -rs \PremaNhybrid.mrc

GRAB THE CODE VERSION:

• Copy and paste the code below in Notepad/Text Editor
• Save it with any name you like ex. PremaNhybrid.mrc in any folder
• Open your mIRC, type /load -rs \PremaNhybrid.mrc

NOTES:

• Combo kick is activated while master nick is on war channel
• Clone's anti-ban is activated while master nick is on base channel
• Change your clone nicks

;**************************************************************************************
;PremaNhybrid (November 27, 2010)
;mIRC Clone War Revenge Kick with Single and/or Shifting Socket
;
;Main features:
;  + mIRC v6.21 or later is required
;  + Double hash table, separate enemy list, auto-reopen on died socket, one clone join
;  + Anti-deop, anti-ban, auto-revenge, fishing mode
;  + Multi server, multi port, multi spoof (designed to run on AllNetwork IRC Servers)
;
;Notes:
;  > Combo kick is activated while master nick is on war channel
;  > Clone's anti-ban is activated while master nick is on base channel
;  > Recommended to change shift/single.nick, iden, serv, port, pass, base, chan
;
;irc.allnetwork.org 6667, #war
;Right to copy by PremaN
;**************************************************************************************

alias -l shift.nick { return Pr3maNshift Prem4Nshift PremaN5hift PremaNsh1ft Pr3m4Nshift Pr3maN5hift Pr3maNsh1ft Prem4N5hift Prem4Nsh1ft PremaN5h1ft }
alias -l shift.iden { return 01 02 03 04 05 06 07 08 09 10 }
alias -l shift.serv { return irc.big.net.id irc.big.net.id irc.big.net.id irc.big.net.id irc.big.net.id irc.big.net.id irc.big.net.id irc.big.net.id irc.big.net.id irc.big.net.id }
alias -l shift.port { return 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 }
alias -l shift.pass { return bignet9 bignet15 bignet18 bignet24 bignet39 bignet44 bignet49 bignet63 bignet64 bignet77 }
alias -l shift.base { return #shift }
alias -l shift.chan { return #war }

alias -l single.nick { return PremaNsingle }
alias -l single.iden { return lagi }
alias -l single.serv { return irc.indowebster.com }
alias -l single.port { return 6667 }
alias -l single.pass { return idws52 }
alias -l single.base { return #shift }
alias -l single.chan { return #war }

on *:start:{
  .fullname 15,14***7,7 $+ $chr(32) $+ 0,1 Pr4e0maN 7,7 $+ $chr(32) $+ 15,14***
  hfree -w enemy.*
  unset %shift.* %single.* %activemode
}

on *:connect:{ raw -q join $shift.base }

on *:exit:{
  hfree -w enemy.*
  unset %shift.* %single.* %activemode
}

ctcp *:version:*:{
  ctcpreply $nick version 15,14***7,7 $+ $chr(32) $+ 0,1 Pr4e0maNhybrid 14http://15www.hawkee.com14/snippet/4404/ 7,7 $+ $chr(32) $+ 15,14***
}

on !*:deop:#:{
  if ($opnick == $me) {
    ChanServ op $chan $opnick
    if (((%activemode == shift) || (%activemode == hybrid)) && ($var(%shift.m*,0))) {
      if (($chan == $shift.chan) && ($nick != ChanServ) && ($nick != $single.nick) && (!$findtok($shift.nick,$nick,32))) {
        if ((!$sock(%single.a)) || ($shift.chan != $single.chan)) {
          set %shift.r $nick
          if (!$hfind(enemy.nick.shift,$nick,0,W)) { hadd -m enemy.nick.shift $nick }
          if (!$sock($gettok($shift.nick,%shift.d,32))) {
            var %shift.q = 1
            while (%shift.q <= $numtok($shift.nick,32)) {
              if ($sock($gettok($shift.nick,%shift.q,32))) {
                sockwrite -nt $gettok($shift.nick,%shift.q,32) join $shift.chan
                sockwrite -nt $gettok($shift.nick,%shift.q,32) mode $shift.chan +o $opnick
                set %shift.d %shift.q
                break
              }
              inc %shift.q
            }
          }
          else { sockwrite -nt $gettok($shift.nick,%shift.d,32) kick $shift.chan $nick :15,14***7,7 $+ $chr(32) $+ 0,1 Pr4e0maN 7,7 $+ $chr(32) $+ 15,14*** }
        }
      }
    }
    if (((%activemode == single) || (%activemode == hybrid)) && ($sock($single.nick))) {
      if (($chan == $single.chan) && ($nick != ChanServ) && (!$findtok($shift.nick,$nick,32)) && ($nick != $single.nick)) {
        if ((!$sock($gettok($shift.nick,%shift.d,32))) || ($single.chan != $shift.chan)) {
          set %single.f $nick
          if (!$hfind(enemy.nick.single,$nick,0,W)) { hadd -m enemy.nick.single $nick }
          if (!$sock(%single.a)) {
            sockwrite -nt $single.nick join $single.chan
            sockwrite -nt $single.nick mode $single.chan +o $opnick
            set %single.a $single.nick
          }
          else { sockwrite -nt $single.nick kick $single.chan $nick :15,14***7,7 $+ $chr(32) $+ 0,1 Pr4e0maN 7,7 $+ $chr(32) $+ 15,14*** }
        }
      }
    }
  }
}

on !*:ban:#:{
  if ($banmask iswm $address($me,5)) {
    if ($me !isop $chan) { ChanServ op $chan $me }
    raw -q mode $chan -b $banmask
    if (((%activemode == shift) || (%activemode == hybrid)) && ($var(%shift.m*,0))) {
      if (($chan == $shift.chan) && ($nick != ChanServ) && ($nick != $single.nick) && (!$findtok($shift.nick,$nick,32))) {
        if ((!$sock(%single.a)) || ($shift.chan != $single.chan)) {
          set %shift.r $nick
          if (!$hfind(enemy.nick.shift,$nick,0,W)) { hadd -m enemy.nick.shift $nick }
          if (!$sock($gettok($shift.nick,%shift.d,32))) {
            var %shift.p = 1
            while (%shift.p <= $numtok($shift.nick,32)) {
              if ($sock($gettok($shift.nick,%shift.p,32))) {
                sockwrite -nt $gettok($shift.nick,%shift.p,32) join $shift.chan
                sockwrite -nt $gettok($shift.nick,%shift.p,32) mode $shift.chan -b $banmask
                set %shift.d %shift.p
                break
              }
              inc %shift.p
            }
          }
          else { sockwrite -nt $gettok($shift.nick,%shift.d,32) kick $shift.chan $nick :15,14***7,7 $+ $chr(32) $+ 0,1 Pr4e0maN 7,7 $+ $chr(32) $+ 15,14*** }
        }
      }
    }
    if (((%activemode == single) || (%activemode == hybrid)) && ($sock($single.nick))) {
      if (($chan == $single.chan) && ($nick != ChanServ) && (!$findtok($shift.nick,$nick,32)) && ($nick != $single.nick)) {
        if ((!$sock($gettok($shift.nick,%shift.d,32))) || ($single.chan != $shift.chan)) {
          set %single.f $nick
          if (!$hfind(enemy.nick.single,$nick,0,W)) { hadd -m enemy.nick.single $nick }
          if (!$sock(%single.a)) {
            sockwrite -nt $single.nick join $single.chan
            sockwrite -nt $single.nick mode $single.chan -b $banmask
            set %single.a $single.nick
          }
          else { sockwrite -nt $single.nick kick $single.chan $nick :15,14***7,7 $+ $chr(32) $+ 0,1 Pr4e0maN 7,7 $+ $chr(32) $+ 15,14*** }
        }
      }
    }
  }
  else {
    if (((%activemode == shift) || (%activemode == hybrid)) && ($var(%shift.m*,0))) {
      if (($findtok($shift.nick,$ial($banmask).nick,32))) {
        if ($me !isop $chan) { ChanServ op $chan $me }
        raw -q mode $chan -b $banmask
        if (($chan == $shift.chan) && ($nick != ChanServ) && ($nick != $single.nick) && (!$findtok($shift.nick,$nick,32))) {
          if ((!$sock(%single.a)) || ($shift.chan != $single.chan)) {
            set %shift.r $nick
            if (!$hfind(enemy.nick.shift,$nick,0,W)) { hadd -m enemy.nick.shift $nick }
            if (!$sock($gettok($shift.nick,%shift.d,32))) {
              var %shift.o = 1
              while (%shift.o <= $numtok($shift.nick,32)) {
                if ($sock($gettok($shift.nick,%shift.o,32))) {
                  sockwrite -nt $gettok($shift.nick,%shift.o,32) join $shift.chan
                  sockwrite -nt $gettok($shift.nick,%shift.o,32) mode $shift.chan -b $banmask
                  set %shift.d %shift.o
                  break
                }
                inc %shift.o
              }
            }
            else { sockwrite -nt $gettok($shift.nick,%shift.d,32) kick $shift.chan $nick :15,14***7,7 $+ $chr(32) $+ 0,1 Pr4e0maN 7,7 $+ $chr(32) $+ 15,14*** }
          }
        }
      }
    }
    if (((%activemode == single) || (%activemode == hybrid)) && ($sock($single.nick))) {
      if ($banmask iswm $address($single.nick,5)) {
        if ($me !isop $chan) { ChanServ op $chan $me }
        raw -q mode $chan -b $banmask
        if (($chan == $single.chan) && ($nick != ChanServ) && (!$findtok($shift.nick,$nick,32)) && ($nick != $single.nick)) {
          if ((!$sock($gettok($shift.nick,%shift.d,32))) || ($single.chan != $shift.chan)) {
            set %single.f $nick
            if (!$hfind(enemy.nick.single,$nick,0,W)) { hadd -m enemy.nick.single $nick }
            if (!$sock(%single.a)) {
              sockwrite -nt $single.nick join $single.chan
              sockwrite -nt $single.nick mode $single.chan -b $banmask
              set %single.a $single.nick
            }
            else { sockwrite -nt $single.nick kick $single.chan $nick :15,14***7,7 $+ $chr(32) $+ 0,1 Pr4e0maN 7,7 $+ $chr(32) $+ 15,14*** }
          }
        }
      }
    }
  }
}

on !*:kick:#:{
  if ($knick == $me) {
    if (((%activemode == shift) || (%activemode == hybrid)) && ($var(%shift.m*,0))) {
      if ($chan == $shift.chan) {
        raw -q join $shift.chan
        if (($nick != ChanServ) && ($nick != $single.nick) && (!$findtok($shift.nick,$nick,32))) {
          if ((!$sock(%single.a)) || ($shift.chan != $single.chan)) {
            set %shift.r $nick
            if (!$hfind(enemy.nick.shift,$nick,0,W)) { hadd -m enemy.nick.shift $nick }
            if (!$sock($gettok($shift.nick,%shift.d,32))) {
              var %shift.n = 1
              while (%shift.n <= $numtok($shift.nick,32)) {
                if ($sock($gettok($shift.nick,%shift.n,32))) {
                  sockwrite -nt $gettok($shift.nick,%shift.n,32) join $shift.chan
                  set %shift.d %shift.n
                  break
                }
                inc %shift.n
              }
            }
            else { sockwrite -nt $gettok($shift.nick,%shift.d,32) kick $shift.chan $nick :15,14***7,7 $+ $chr(32) $+ 0,1 Pr4e0maN 7,7 $+ $chr(32) $+ 15,14*** }
          }
        }
      }
    }
    if (((%activemode == single) || (%activemode == hybrid)) && ($sock($single.nick))) {
      if ($chan == $single.chan) {
        raw -q join $single.chan
        if (($nick != ChanServ) && (!$findtok($shift.nick,$nick,32)) && ($nick != $single.nick)) {
          if ((!$sock($gettok($shift.nick,%shift.d,32))) || ($single.chan != $shift.chan)) {
            set %single.f $nick
            if (!$hfind(enemy.nick.single,$nick,0,W)) { hadd -m enemy.nick.single $nick }
            if (!$sock(%single.a)) {
              sockwrite -nt $single.nick join $single.chan
              set %single.a $single.nick
            }
            else { sockwrite -nt $single.nick kick $single.chan $nick :15,14***7,7 $+ $chr(32) $+ 0,1 Pr4e0maN 7,7 $+ $chr(32) $+ 15,14*** }
          }
        }
      }
    }
  }
}

on *:quit:{
  if (((%activemode == shift) || (%activemode == hybrid)) && ($var(%shift.m*,0))) {
    if (($findtok($shift.nick,$nick,32)) && (timeout isin $1-)) {
      sockclose $nick
      unset %shift.m [ $+ [ $findtok($shift.nick,$nick,32) ] ]
      echo -s $chr(35) $+ $findtok($shift.nick,$nick,32) disconnected
      var %shift.k = $findtok($shift.nick,$nick,32)
      .timershift $+ %shift.k 1 $calc(%shift.k * 5) sockopen $gettok($shift.nick,%shift.k,32) $gettok($shift.serv,%shift.k,32) $gettok($shift.port,%shift.k,32)
      if ($sock($gettok($shift.nick,%shift.d,32))) { sockwrite -nt $gettok($shift.nick,%shift.d,32) part $shift.chan :15,14***7,7 $+ $chr(32) $+ 0,1 Pr4e0maN 7,7 $+ $chr(32) $+ 15,14*** }
      while (%shift.d <= $numtok($shift.nick,32)) {
        if (%shift.d == $numtok($shift.nick,32)) { set %shift.d 0 }
        if ($sock($gettok($shift.nick,$calc(%shift.d + 1),32))) {
          sockwrite -nt $gettok($shift.nick,$calc(%shift.d + 1),32) join $shift.chan
          set %shift.d $calc(%shift.d + 1)
          break
        }
        inc %shift.d
      }
    }
  }
  if (((%activemode == single) || (%activemode == hybrid)) && ($sock($single.nick))) {
    if (($nick == $single.nick) && (timeout isin $1-)) {
      sockclose $nick
      echo -s socket disconnected
      .timersingleopen 1 5 sockopen $single.nick $single.serv $single.port
    }
  }
}

on *:sockopen:*:{
  if (((%activemode == shift) || (%activemode == hybrid)) && ($findtok($shift.nick,$sockname,32))) {
    set %shift.m [ $+ [ $findtok($shift.nick,$sockname,32) ] ] $sockname
    if ($sockerr > 0) {
      sockclose $sockname
      unset %shift.m [ $+ [ $findtok($shift.nick,$sockname,32) ] ]
      return
    }
    echo -s $chr(35) $+ $findtok($shift.nick,$sockname,32) connected: $sockname
    sockwrite -nt $sockname $1- nick $sockname
    sockwrite -nt $sockname user $gettok($shift.iden,$findtok($shift.nick,$sockname,32),32) x x :0,1 Pr4e0maNhybrid 
    sockwrite -nt $sockname pass $gettok($shift.pass,$findtok($shift.nick,$sockname,32),32)
  }
  if (((%activemode == single) || (%activemode == hybrid)) && ($sockname == $single.nick)) {
    if ($sockerr > 0) {
      sockclose $sockname
      return
    }
    echo -s socket connected: $sockname
    sockwrite -nt $sockname $1- nick $sockname
    sockwrite -nt $sockname user $single.iden x x :0,1 Pr4e0maNhybrid 
    sockwrite -nt $sockname pass $single.pass
  }
}

on *:sockclose:*:{
  if (((%activemode == shift) || (%activemode == hybrid)) && ($findtok($shift.nick,$sockname,32))) {
    unset %shift.m [ $+ [ $findtok($shift.nick,$sockname,32) ] ]
    echo -s $chr(35) $+ $findtok($shift.nick,$sockname,32) disconnected
    var %shift.l = $findtok($shift.nick,$sockname,32)
    .timershift $+ %shift.l 1 $calc(%shift.l * 5) sockopen $gettok($shift.nick,%shift.l,32) $gettok($shift.serv,%shift.l,32) $gettok($shift.port,%shift.l,32)
    if ($sock($gettok($shift.nick,%shift.d,32))) { sockwrite -nt $gettok($shift.nick,%shift.d,32) part $shift.chan :15,14***7,7 $+ $chr(32) $+ 0,1 Pr4e0maN 7,7 $+ $chr(32) $+ 15,14*** }
    while (%shift.d <= $numtok($shift.nick,32)) {
      if (%shift.d == $numtok($shift.nick,32)) { set %shift.d 0 }
      if ($sock($gettok($shift.nick,$calc(%shift.d + 1),32))) {
        sockwrite -nt $gettok($shift.nick,$calc(%shift.d + 1),32) join $shift.chan
        set %shift.d $calc(%shift.d + 1)
        break
      }
      inc %shift.d
    }
  }
  if (((%activemode == single) || (%activemode == hybrid)) && ($sockname == $single.nick)) {
    echo -s socket disconnected
    .timersingleopen 1 5 sockopen $single.nick $single.serv $single.port
  }
}

on *:sockread:*:{
  if (((%activemode == shift) || (%activemode == hybrid)) && ($findtok($shift.nick,$sockname,32))) {
    if ($sockerr > 0) {
      sockclose $sockname
      unset %shift.m [ $+ [ $findtok($shift.nick,$sockname,32) ] ]
      return
    }
    :shift
    sockread -f %shift.i
    if ($sockbr == 0) { return }
    tokenize 32 %shift.i
    if (($2 == mode) && ($3 == $shift.chan)) {
      if (+o isin $4) {
        if (($5 == $sockname) || ($6 == $sockname) || ($7 == $sockname) || ($8 == $sockname)) {
          if ($me ison $shift.chan) {
            unset %shift.r
            var %shift.j = $nick($shift.chan,0)
            while %shift.j {
              if ((!$findtok($shift.nick,$nick($shift.chan,%shift.j),32)) && ($nick($shift.chan,%shift.j) != $single.nick) && ($hfind(enemy.nick.shift,$nick($shift.chan,%shift.j),0,W))) { sockwrite -nt $sockname kick $shift.chan $nick($shift.chan,%shift.j) :15,14***7,7 $+ $chr(32) $+ 0,1 Pr4e0maN 7,7 $+ $chr(32) $+ 15,14*** }
              dec %shift.j
            }
          }
          else {
            if ((!$findtok($shift.nick,%shift.r,32)) && (%shift.r != $single.nick)) { sockwrite -nt $sockname kick $shift.chan %shift.r :15,14***7,7 $+ $chr(32) $+ 0,1 Pr4e0maN 7,7 $+ $chr(32) $+ 15,14*** }
            unset %shift.r
          }
        }
      }
      elseif (-o isin $4) {
        if (($gettok($mid($1,2,$len($1)),1,33) != $sockname) && ($gettok($mid($1,2,$len($1)),1,33) != $single.nick) && ($gettok($mid($1,2,$len($1)),1,33) != $me)) {
          if (($5 == $sockname) || ($6 == $sockname) || ($7 == $sockname) || ($8 == $sockname)) {
            sockwrite -nt $sockname ChanServ op $shift.chan $sockname
            if ($gettok($mid($1,2,$len($1)),1,33) != ChanServ) {
              if ($me !ison $shift.chan) { set %shift.r $gettok($mid($1,2,$len($1)),1,33) }
              if (!$hfind(enemy.nick.shift,$gettok($mid($1,2,$len($1)),1,33),0,W)) { hadd -m enemy.nick.shift $gettok($mid($1,2,$len($1)),1,33) }
              if (($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($sockname,5),2,$len($address($sockname,5))),2,$asc(@))) && ($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($single.nick,5),2,$len($address($single.nick,5))),2,$asc(@))) && ($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($me,5),2,$len($address($me,5))),2,$asc(@))) && (!$hfind(enemy.host.shift,$gettok($mid($1,2,$len($1)),2,$asc(@)),0,W))) { hadd -m enemy.host.shift $gettok($mid($1,2,$len($1)),2,$asc(@)) }
              sockwrite -nt $sockname kick $shift.chan $gettok($mid($1,2,$len($1)),1,33) :15,14***7,7 $+ $chr(32) $+ 0,1 Pr4e0maN 7,7 $+ $chr(32) $+ 15,14***
            }
          }
          if (($5 == $me) || ($6 == $me) || ($7 == $me) || ($8 == $me)) {
            sockwrite -nt $sockname ChanServ op $shift.chan $me
            if ($gettok($mid($1,2,$len($1)),1,33) != ChanServ) {
              if ($me !ison $shift.chan) { set %shift.r $gettok($mid($1,2,$len($1)),1,33) }
              if (!$hfind(enemy.nick.shift,$gettok($mid($1,2,$len($1)),1,33),0,W)) { hadd -m enemy.nick.shift $gettok($mid($1,2,$len($1)),1,33) }
              if (($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($sockname,5),2,$len($address($sockname,5))),2,$asc(@))) && ($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($single.nick,5),2,$len($address($single.nick,5))),2,$asc(@))) && ($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($me,5),2,$len($address($me,5))),2,$asc(@))) && (!$hfind(enemy.host.shift,$gettok($mid($1,2,$len($1)),2,$asc(@)),0,W))) { hadd -m enemy.host.shift $gettok($mid($1,2,$len($1)),2,$asc(@)) }
              sockwrite -nt $sockname kick $shift.chan $gettok($mid($1,2,$len($1)),1,33) :15,14***7,7 $+ $chr(32) $+ 0,1 Pr4e0maN 7,7 $+ $chr(32) $+ 15,14***
            }
          }
        }
      }
      elseif (+b isin $4) {
        if (($gettok($mid($1,2,$len($1)),1,33) != $sockname) && ($gettok($mid($1,2,$len($1)),1,33) != $single.nick) && ($gettok($mid($1,2,$len($1)),1,33) != $me)) {
          if (($findtok($shift.nick,$ial($5).nick,32)) || ($findtok($shift.nick,$ial($6).nick,32)) || ($findtok($shift.nick,$ial($7).nick,32)) || ($findtok($shift.nick,$ial($8).nick,32))) {
            if ($findtok($shift.nick,$ial($5).nick,32)) { sockwrite -nt $sockname mode $shift.chan -b $5 }
            if ($findtok($shift.nick,$ial($6).nick,32)) { sockwrite -nt $sockname mode $shift.chan -b $6 }
            if ($findtok($shift.nick,$ial($7).nick,32)) { sockwrite -nt $sockname mode $shift.chan -b $7 }
            if ($findtok($shift.nick,$ial($8).nick,32)) { sockwrite -nt $sockname mode $shift.chan -b $8 }
            if ($gettok($mid($1,2,$len($1)),1,33) != ChanServ) {
              if ($me !ison $shift.chan) { set %shift.r $gettok($mid($1,2,$len($1)),1,33) }
              if (!$hfind(enemy.nick.shift,$gettok($mid($1,2,$len($1)),1,33),0,W)) { hadd -m enemy.nick.shift $gettok($mid($1,2,$len($1)),1,33) }
              if (($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($sockname,5),2,$len($address($sockname,5))),2,$asc(@))) && ($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($single.nick,5),2,$len($address($single.nick,5))),2,$asc(@))) && ($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($me,5),2,$len($address($me,5))),2,$asc(@))) && (!$hfind(enemy.host.shift,$gettok($mid($1,2,$len($1)),2,$asc(@)),0,W))) { hadd -m enemy.host.shift $gettok($mid($1,2,$len($1)),2,$asc(@)) }
              sockwrite -nt $sockname kick $shift.chan $gettok($mid($1,2,$len($1)),1,33) :15,14***7,7 $+ $chr(32) $+ 0,1 Pr4e0maN 7,7 $+ $chr(32) $+ 15,14***
            }
          }
          if (($5 iswm $address($me,5)) || ($6 iswm $address($me,5)) || ($7 iswm $address($me,5)) || ($8 iswm $address($me,5))) {
            if ($5 iswm $address($me,5)) { sockwrite -nt $sockname mode $shift.chan -b $5 }
            if ($6 iswm $address($me,5)) { sockwrite -nt $sockname mode $shift.chan -b $6 }
            if ($7 iswm $address($me,5)) { sockwrite -nt $sockname mode $shift.chan -b $7 }
            if ($8 iswm $address($me,5)) { sockwrite -nt $sockname mode $shift.chan -b $8 }
            if ($gettok($mid($1,2,$len($1)),1,33) != ChanServ) {
              if ($me !ison $shift.chan) { set %shift.r $gettok($mid($1,2,$len($1)),1,33) }
              if (!$hfind(enemy.nick.shift,$gettok($mid($1,2,$len($1)),1,33),0,W)) { hadd -m enemy.nick.shift $gettok($mid($1,2,$len($1)),1,33) }
              if (($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($sockname,5),2,$len($address($sockname,5))),2,$asc(@))) && ($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($single.nick,5),2,$len($address($single.nick,5))),2,$asc(@))) && ($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($me,5),2,$len($address($me,5))),2,$asc(@))) && (!$hfind(enemy.host.shift,$gettok($mid($1,2,$len($1)),2,$asc(@)),0,W))) { hadd -m enemy.host.shift $gettok($mid($1,2,$len($1)),2,$asc(@)) }
              sockwrite -nt $sockname kick $shift.chan $gettok($mid($1,2,$len($1)),1,33) :15,14***7,7 $+ $chr(32) $+ 0,1 Pr4e0maN 7,7 $+ $chr(32) $+ 15,14***
            }
          }
        }
      }
    }
    elseif (($2 == join) && ($shift.chan isin $3)) {
      if (($hfind(enemy.nick.shift,$gettok($mid($1,2,$len($1)),1,33),0,W)) || ($hfind(enemy.host.shift,$gettok($mid($1,2,$len($1)),2,$asc(@)),0,W))) {
        if (($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($sockname,5),2,$len($address($sockname,5))),2,$asc(@))) && ($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($single.nick,5),2,$len($address($single.nick,5))),2,$asc(@))) && ($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($me,5),2,$len($address($me,5))),2,$asc(@))) && (!$hfind(enemy.host.shift,$gettok($mid($1,2,$len($1)),2,$asc(@)),0,W))) { hadd -m enemy.host.shift $gettok($mid($1,2,$len($1)),2,$asc(@)) }
        if (($gettok($mid($1,2,$len($1)),1,33) != $sockname) && ($gettok($mid($1,2,$len($1)),1,33) != $single.nick) && ($gettok($mid($1,2,$len($1)),1,33) != $me)) { sockwrite -nt $sockname kick $shift.chan $gettok($mid($1,2,$len($1)),1,33) :15,14***7,7 $+ $chr(32) $+ 0,1 Pr4e0maN 7,7 $+ $chr(32) $+ 15,14*** }
      }    
    }
    elseif (($2 == kick) && ($3 == $shift.chan)) {
      if (($4 == $sockname) || ($4 == $me)) {
        if (($gettok($mid($1,2,$len($1)),1,33) != $sockname) && ($gettok($mid($1,2,$len($1)),1,33) != $single.nick) && ($gettok($mid($1,2,$len($1)),1,33) != $me) && ($gettok($mid($1,2,$len($1)),1,33) != ChanServ)) {
          if ($me !ison $shift.chan) { set %shift.r $gettok($mid($1,2,$len($1)),1,33) }
          if (!$hfind(enemy.nick.shift,$gettok($mid($1,2,$len($1)),1,33),0,W)) { hadd -m enemy.nick.shift $gettok($mid($1,2,$len($1)),1,33) }
          if (($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($sockname,5),2,$len($address($sockname,5))),2,$asc(@))) && ($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($single.nick,5),2,$len($address($single.nick,5))),2,$asc(@))) && ($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($me,5),2,$len($address($me,5))),2,$asc(@))) && (!$hfind(enemy.host.shift,$gettok($mid($1,2,$len($1)),2,$asc(@)),0,W))) { hadd -m enemy.host.shift $gettok($mid($1,2,$len($1)),2,$asc(@)) }
          if ($4 == $me) { sockwrite -nt $sockname kick $shift.chan $gettok($mid($1,2,$len($1)),1,33) :15,14***7,7 $+ $chr(32) $+ 0,1 Pr4e0maN 7,7 $+ $chr(32) $+ 15,14*** }
        }
        if ($4 == $sockname) {
          if ($sock($gettok($shift.nick,%shift.d,32))) { sockwrite -nt $gettok($shift.nick,%shift.d,32) part $shift.chan :15,14***7,7 $+ $chr(32) $+ 0,1 Pr4e0maN 7,7 $+ $chr(32) $+ 15,14*** }
          while (%shift.d <= $numtok($shift.nick,32)) {
            if (%shift.d == $numtok($shift.nick,32)) { set %shift.d 0 }
            if ($sock($gettok($shift.nick,$calc(%shift.d + 1),32))) {
              sockwrite -nt $gettok($shift.nick,$calc(%shift.d + 1),32) join $shift.chan
              set %shift.d $calc(%shift.d + 1)
              break
            }
            inc %shift.d
          }
        }
      }
    }
    elseif ($2 == 001) {
      sockwrite -nt $sockname join $shift.base
      if ($sock($gettok($shift.nick,%shift.d,32))) { sockwrite -nt $gettok($shift.nick,%shift.d,32) part $shift.chan :15,14***7,7 $+ $chr(32) $+ 0,1 Pr4e0maN 7,7 $+ $chr(32) $+ 15,14*** }
      while (%shift.d <= $numtok($shift.nick,32)) {
        if (%shift.d == $numtok($shift.nick,32)) { set %shift.d 0 }
        if ($sock($gettok($shift.nick,$calc(%shift.d + 1),32))) {
          sockwrite -nt $gettok($shift.nick,$calc(%shift.d + 1),32) join $shift.chan
          set %shift.d $calc(%shift.d + 1)
          break
        }
        inc %shift.d
      }
    }
    elseif ($2 == 451) {
      sockwrite -nt $sockname $1- nick $sockname
      sockwrite -nt $sockname user $gettok($shift.iden,$findtok($shift.nick,$sockname,32),32) x x :15,14***7,7 $+ $chr(32) $+ 0,1 Pr4e0maN 7,7 $+ $chr(32) $+ 15,14***
      sockwrite -nt $sockname pass $gettok($shift.pass,$findtok($shift.nick,$sockname,32),32)
    }
    elseif ($2 == 474) {
      if ($sock($gettok($shift.nick,%shift.d,32))) {
        sockwrite -nt $gettok($shift.nick,%shift.d,32) ChanServ unban $shift.chan
        sockwrite -nt $gettok($shift.nick,%shift.d,32) part $shift.chan :15,14***7,7 $+ $chr(32) $+ 0,1 Pr4e0maN 7,7 $+ $chr(32) $+ 15,14***
      }
      while (%shift.d <= $numtok($shift.nick,32)) {
        if (%shift.d == $numtok($shift.nick,32)) { set %shift.d 0 }
        if ($sock($gettok($shift.nick,$calc(%shift.d + 1),32))) {
          sockwrite -nt $gettok($shift.nick,$calc(%shift.d + 1),32) join $shift.chan
          set %shift.d $calc(%shift.d + 1)
          break
        }
        inc %shift.d
      }
    }
    if (version isin $1-) { sockwrite -nt $sockname notice $gettok($mid($1,2,$len($1)),1,33) :15,14***7,7 $+ $chr(32) $+ 0,1 Pr4e0maNhybrid 14http://15www.hawkee.com14/snippet/4404/ 7,7 $+ $chr(32) $+ 15,14*** }
    if ($1 == PING) { sockwrite -nt $sockname PONG $2- }
    goto shift
  }
  if (((%activemode == single) || (%activemode == hybrid)) && ($sockname == $single.nick)) {
    if ($sockerr > 0) {
      sockclose $sockname
      return
    }
    :single
    sockread -f %single.g
    if ($sockbr == 0) { return }
    tokenize 32 %single.g
    if (($2 == mode) && ($3 == $single.chan)) {
      if (+o isin $4) {
        if (($5 == $sockname) || ($6 == $sockname) || ($7 == $sockname) || ($8 == $sockname)) {
          if ($me ison $single.chan) {
            unset %single.f
            var %single.h = $nick($single.chan,0)
            while %single.h {
              if (($nick($single.chan,%single.h) != $single.nick) && (!$findtok($shift.nick,$nick($single.chan,%single.h),32)) && ($hfind(enemy.nick.single,$nick($single.chan,%single.h),0,W))) { sockwrite -nt $sockname kick $single.chan $nick($single.chan,%single.h) :15,14***7,7 $+ $chr(32) $+ 0,1 Pr4e0maN 7,7 $+ $chr(32) $+ 15,14*** }
              dec %single.h
            }
          }
          else {
            if ((%single.f != $single.nick) && (!$findtok($shift.nick,%single.f,32))) { sockwrite -nt $sockname kick $single.chan %single.f :15,14***7,7 $+ $chr(32) $+ 0,1 Pr4e0maN 7,7 $+ $chr(32) $+ 15,14*** }
            unset %single.f
          }
        }
      }
      elseif (-o isin $4) {
        if (($gettok($mid($1,2,$len($1)),1,33) != $sockname) && (!$findtok($shift.nick,$gettok($mid($1,2,$len($1)),1,33),32)) && ($gettok($mid($1,2,$len($1)),1,33) != $me)) {
          if (($5 == $sockname) || ($6 == $sockname) || ($7 == $sockname) || ($8 == $sockname)) {
            sockwrite -nt $sockname ChanServ op $single.chan $sockname
            if ($gettok($mid($1,2,$len($1)),1,33) != ChanServ) {
              if ($me !ison $single.chan) { set %single.f $gettok($mid($1,2,$len($1)),1,33) }
              if (!$hfind(enemy.nick.single,$gettok($mid($1,2,$len($1)),1,33),0,W)) { hadd -m enemy.nick.single $gettok($mid($1,2,$len($1)),1,33) }
              if (($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($sockname,5),2,$len($address($sockname,5))),2,$asc(@))) && (!$findtok($shift.nick,$ial($gettok($mid($1,2,$len($1)),2,$asc(@))).nick,32)) && ($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($me,5),2,$len($address($me,5))),2,$asc(@))) && (!$hfind(enemy.host.single,$gettok($mid($1,2,$len($1)),2,$asc(@)),0,W))) { hadd -m enemy.host.single $gettok($mid($1,2,$len($1)),2,$asc(@)) }
              sockwrite -nt $sockname kick $single.chan $gettok($mid($1,2,$len($1)),1,33) :15,14***7,7 $+ $chr(32) $+ 0,1 Pr4e0maN 7,7 $+ $chr(32) $+ 15,14***
            }
          }
          if (($5 == $me) || ($6 == $me) || ($7 == $me) || ($8 == $me)) {
            sockwrite -nt $sockname ChanServ op $single.chan $me
            if ($gettok($mid($1,2,$len($1)),1,33) != ChanServ) {
              if ($me !ison $single.chan) { set %single.f $gettok($mid($1,2,$len($1)),1,33) }
              if (!$hfind(enemy.nick.single,$gettok($mid($1,2,$len($1)),1,33),0,W)) { hadd -m enemy.nick.single $gettok($mid($1,2,$len($1)),1,33) }
              if (($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($sockname,5),2,$len($address($sockname,5))),2,$asc(@))) && (!$findtok($shift.nick,$ial($gettok($mid($1,2,$len($1)),2,$asc(@))).nick,32)) && ($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($me,5),2,$len($address($me,5))),2,$asc(@))) && (!$hfind(enemy.host.single,$gettok($mid($1,2,$len($1)),2,$asc(@)),0,W))) { hadd -m enemy.host.single $gettok($mid($1,2,$len($1)),2,$asc(@)) }
              sockwrite -nt $sockname kick $single.chan $gettok($mid($1,2,$len($1)),1,33) :15,14***7,7 $+ $chr(32) $+ 0,1 Pr4e0maN 7,7 $+ $chr(32) $+ 15,14***
            }
          }
        }
      }
      elseif (+b isin $4) {
        if (($gettok($mid($1,2,$len($1)),1,33) != $sockname) && (!$findtok($shift.nick,$gettok($mid($1,2,$len($1)),1,33),32)) && ($gettok($mid($1,2,$len($1)),1,33) != $me)) {
          if (($findtok($single.nick,$ial($5).nick,32)) || ($findtok($single.nick,$ial($6).nick,32)) || ($findtok($single.nick,$ial($7).nick,32)) || ($findtok($single.nick,$ial($8).nick,32))) {
            if ($findtok($single.nick,$ial($5).nick,32)) { sockwrite -nt $sockname mode $single.chan -b $5 }
            if ($findtok($single.nick,$ial($6).nick,32)) { sockwrite -nt $sockname mode $single.chan -b $6 }
            if ($findtok($single.nick,$ial($7).nick,32)) { sockwrite -nt $sockname mode $single.chan -b $7 }
            if ($findtok($single.nick,$ial($8).nick,32)) { sockwrite -nt $sockname mode $single.chan -b $8 }
            if ($gettok($mid($1,2,$len($1)),1,33) != ChanServ) {
              if ($me !ison $single.chan) { set %single.f $gettok($mid($1,2,$len($1)),1,33) }
              if (!$hfind(enemy.nick.single,$gettok($mid($1,2,$len($1)),1,33),0,W)) { hadd -m enemy.nick.single $gettok($mid($1,2,$len($1)),1,33) }
              if (($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($sockname,5),2,$len($address($sockname,5))),2,$asc(@))) && (!$findtok($shift.nick,$ial($gettok($mid($1,2,$len($1)),2,$asc(@))).nick,32)) && ($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($me,5),2,$len($address($me,5))),2,$asc(@))) && (!$hfind(enemy.host.single,$gettok($mid($1,2,$len($1)),2,$asc(@)),0,W))) { hadd -m enemy.host.single $gettok($mid($1,2,$len($1)),2,$asc(@)) }
              sockwrite -nt $sockname kick $single.chan $gettok($mid($1,2,$len($1)),1,33) :15,14***7,7 $+ $chr(32) $+ 0,1 Pr4e0maN 7,7 $+ $chr(32) $+ 15,14***
            }
          }
          if (($5 iswm $address($me,5)) || ($6 iswm $address($me,5)) || ($7 iswm $address($me,5)) || ($8 iswm $address($me,5))) {
            if ($5 iswm $address($me,5)) { sockwrite -nt $sockname mode $single.chan -b $5 }
            if ($6 iswm $address($me,5)) { sockwrite -nt $sockname mode $single.chan -b $6 }
            if ($7 iswm $address($me,5)) { sockwrite -nt $sockname mode $single.chan -b $7 }
            if ($8 iswm $address($me,5)) { sockwrite -nt $sockname mode $single.chan -b $8 }
            if ($gettok($mid($1,2,$len($1)),1,33) != ChanServ) {
              if ($me !ison $single.chan) { set %single.f $gettok($mid($1,2,$len($1)),1,33) }
              if (!$hfind(enemy.nick.single,$gettok($mid($1,2,$len($1)),1,33),0,W)) { hadd -m enemy.nick.single $gettok($mid($1,2,$len($1)),1,33) }
              if (($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($sockname,5),2,$len($address($sockname,5))),2,$asc(@))) && (!$findtok($shift.nick,$ial($gettok($mid($1,2,$len($1)),2,$asc(@))).nick,32)) && ($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($me,5),2,$len($address($me,5))),2,$asc(@))) && (!$hfind(enemy.host.single,$gettok($mid($1,2,$len($1)),2,$asc(@)),0,W))) { hadd -m enemy.host.single $gettok($mid($1,2,$len($1)),2,$asc(@)) }
              sockwrite -nt $sockname kick $single.chan $gettok($mid($1,2,$len($1)),1,33) :15,14***7,7 $+ $chr(32) $+ 0,1 Pr4e0maN 7,7 $+ $chr(32) $+ 15,14***
            }
          }
        }
      }
    }
    elseif (($2 == join) && ($single.chan isin $3)) {
      if (($hfind(enemy.nick.single,$gettok($mid($1,2,$len($1)),1,33),0,W)) || ($hfind(enemy.host.single,$gettok($mid($1,2,$len($1)),2,$asc(@)),0,W))) {
        if (($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($sockname,5),2,$len($address($sockname,5))),2,$asc(@))) && (!$findtok($shift.nick,$ial($gettok($mid($1,2,$len($1)),2,$asc(@))).nick,32)) && ($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($me,5),2,$len($address($me,5))),2,$asc(@))) && (!$hfind(enemy.host.single,$gettok($mid($1,2,$len($1)),2,$asc(@)),0,W))) { hadd -m enemy.host.single $gettok($mid($1,2,$len($1)),2,$asc(@)) }
        if (($gettok($mid($1,2,$len($1)),1,33) != $sockname) && (!$findtok($shift.nick,$gettok($mid($1,2,$len($1)),1,33),32)) && ($gettok($mid($1,2,$len($1)),1,33) != $me)) { sockwrite -nt $sockname kick $single.chan $gettok($mid($1,2,$len($1)),1,33) :15,14***7,7 $+ $chr(32) $+ 0,1 Pr4e0maN 7,7 $+ $chr(32) $+ 15,14*** }
      }    
    }
    elseif (($2 == kick) && ($3 == $single.chan)) {
      if (($4 == $sockname) || ($4 == $me)) {
        if (($gettok($mid($1,2,$len($1)),1,33) != $sockname) && (!$findtok($shift.nick,$gettok($mid($1,2,$len($1)),1,33),32)) && ($gettok($mid($1,2,$len($1)),1,33) != $me) && ($gettok($mid($1,2,$len($1)),1,33) != ChanServ)) {
          if ($me !ison $single.chan) { set %single.f $gettok($mid($1,2,$len($1)),1,33) }
          if (!$hfind(enemy.nick.single,$gettok($mid($1,2,$len($1)),1,33),0,W)) { hadd -m enemy.nick.single $gettok($mid($1,2,$len($1)),1,33) }
          if (($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($sockname,5),2,$len($address($sockname,5))),2,$asc(@))) && (!$findtok($shift.nick,$ial($gettok($mid($1,2,$len($1)),2,$asc(@))).nick,32)) && ($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($me,5),2,$len($address($me,5))),2,$asc(@))) && (!$hfind(enemy.host.single,$gettok($mid($1,2,$len($1)),2,$asc(@)),0,W))) { hadd -m enemy.host.single $gettok($mid($1,2,$len($1)),2,$asc(@)) }
          if ($4 == $me) { sockwrite -nt $sockname kick $single.chan $gettok($mid($1,2,$len($1)),1,33) :15,14***7,7 $+ $chr(32) $+ 0,1 Pr4e0maN 7,7 $+ $chr(32) $+ 15,14*** }
        }
        if ($4 == $sockname) { .timersinglejoin 1 8 sockwrite -nt $sockname join $single.chan }
      }
    }
    elseif ($2 == 001) {
      sockwrite -nt $sockname join $single.base
      if (%single.a) { sockwrite -nt $sockname join $single.chan }
    }
    elseif ($2 == 451) {
      sockwrite -nt $sockname $1- nick $sockname
      sockwrite -nt $sockname user $single.iden x x :15,14***7,7 $+ $chr(32) $+ 0,1 Pr4e0maN 7,7 $+ $chr(32) $+ 15,14***
      sockwrite -nt $sockname pass $single.pass
    }
    elseif ($2 == 474) {
      sockwrite -nt $sockname ChanServ unban $single.chan
      sockwrite -nt $sockname join $single.chan
    }
    if (version isin $1-) { sockwrite -nt $sockname notice $gettok($mid($1,2,$len($1)),1,33) :15,14***7,7 $+ $chr(32) $+ 0,1 Pr4e0maNhybrid 14http://15www.hawkee.com14/snippet/4404/ 7,7 $+ $chr(32) $+ 15,14*** }
    if ($1 == PING) { sockwrite -nt $sockname PONG $2- }
    goto single
  }
}

raw 474:*:{
  ChanServ unban $2
  raw -q join $2
}

raw 403:*:{ haltdef }
raw 404:*:{ haltdef }
raw 441:*:{ haltdef }
raw 442:*:{ haltdef }
raw 482:*:{ haltdef }

menu status,channel,nicklist,query {
  PremaNhybrid
  .Shift
  ..Socket
  ...Open:{
    var %shift.a = 1
    while (%shift.a <= $numtok($shift.nick,32)) {
      if (!$sock($gettok($shift.nick,%shift.a,32))) { .timershift $+ %shift.a 1 $calc(%shift.a * 5) sockopen $gettok($shift.nick,%shift.a,32) $gettok($shift.serv,%shift.a,32) $gettok($shift.port,%shift.a,32) }
      inc %shift.a
    }
    if (%activemode == single) { set %activemode hybrid }
    elseif (%activemode != hybrid) { set %activemode shift }
  }
  ...Close:{
    var %shift.b = 1
    while (%shift.b <= $numtok($shift.nick,32)) {
      if ($sock($gettok($shift.nick,%shift.b,32))) {
        sockclose $gettok($shift.nick,%shift.b,32)
        echo -s $chr(35) $+ %shift.b disconnected
      }
      inc %shift.b
    }
    if (%activemode == hybrid) { set %activemode single }
    elseif (%activemode == shift) { unset %activemode }
    .timershift* off
    unset %shift.d %shift.r %shift.m*
  }
  ..Robot
  ... $+ $iif(((!$var(%shift.m*,0)) || (%shift.d)),$style(2)) Join:{
    var %shift.c = 1
    while (%shift.c <= $numtok($shift.nick,32)) {
      if ($sock($gettok($shift.nick,%shift.c,32))) {
        sockwrite -nt $gettok($shift.nick,%shift.c,32) join $shift.chan
        set %shift.d %shift.c
        break
      }
      inc %shift.c
    }
  }
  ... $+ $iif((!%shift.d),$style(2)) Part:{
    sockwrite -nt $gettok($shift.nick,%shift.d,32) part $shift.chan :15,14***7,7 $+ $chr(32) $+ 0,1 Pr4e0maN 7,7 $+ $chr(32) $+ 15,14***
    unset %shift.d %shift.r
  }
  ... $+ $iif((!%shift.d),$style(2)) Cycle:{
    if ($sock($gettok($shift.nick,%shift.d,32))) { sockwrite -nt $gettok($shift.nick,%shift.d,32) part $shift.chan :15,14***7,7 $+ $chr(32) $+ 0,1 Pr4e0maN 7,7 $+ $chr(32) $+ 15,14*** }
    while (%shift.d <= $numtok($shift.nick,32)) {
      if (%shift.d == $numtok($shift.nick,32)) { set %shift.d 0 }
      if ($sock($gettok($shift.nick,$calc(%shift.d + 1),32))) {
        sockwrite -nt $gettok($shift.nick,$calc(%shift.d + 1),32) join $shift.chan
        set %shift.d $calc(%shift.d + 1)
        break
      }
      inc %shift.d
    }
  }
  ..Enemy
  ... $+ $iif(((!%shift.d) || ($me !ison $shift.chan)),$style(2)) Kick:{
    if ($menu == nicklist) {
      if (($$1 != $gettok($shift.nick,%shift.d,32)) && ($$1 != $single.nick) && ($$1 != $me)) {
        if (!$hfind(enemy.nick.shift,$$1,0,W)) { hadd -m enemy.nick.shift $$1 }
        if (($ial($$1).host) && (!$hfind(enemy.host.shift,$ial($$1).host,0,W))) { hadd -m enemy.host.shift $ial($$1).host }
        sockwrite -nt $gettok($shift.nick,%shift.d,32) kick $shift.chan $$1 :15,14***7,7 $+ $chr(32) $+ 0,1 Pr4e0maN 7,7 $+ $chr(32) $+ 15,14***
      }
    }
    else {
      var %shift.t = $?="Enter plain or wildcard nick:"
      if ((%shift.t) && (%shift.t !iswm $gettok($shift.nick,%shift.d,32)) && (%shift.t !iswm $single.nick) && (%shift.t !iswm $me)) {
        if (!$hfind(enemy.nick.shift,%shift.t,0,W)) { hadd -m enemy.nick.shift %shift.t }
        if (($ial(%shift.t).host) && (!$hfind(enemy.host.shift,$ial(%shift.t).host,0,W))) { hadd -m enemy.host.shift $ial(%shift.t).host }
        var %shift.e = $nick($shift.chan,0)
        while %shift.e {
          if ($hfind(enemy.nick.shift,$nick($shift.chan,%shift.e),0,W)) { sockwrite -nt $gettok($shift.nick,%shift.d,32) kick $shift.chan $nick($shift.chan,%shift.e) :15,14***7,7 $+ $chr(32) $+ 0,1 Pr4e0maN 7,7 $+ $chr(32) $+ 15,14*** }
          dec %shift.e
        }
      }
    }
  }
  ... $+ $iif(((!$hget(enemy.nick.shift)) && (!$hget(enemy.host.shift))),$style(2)) Clear:{
    hfree -w *.shift
    unset %shift.r
    echo -s 15,14***7,7 $+ $chr(32) $+ 0,1 Pr4e0maN 15Cleared 7,7 $+ $chr(32) $+ 15,14***
    if ($sock($gettok($shift.nick,%shift.d,32))) { sockwrite -nt $gettok($shift.nick,%shift.d,32) privmsg $shift.chan :15,14***7,7 $+ $chr(32) $+ 0,1 Pr4e0maN 15Cleared 7,7 $+ $chr(32) $+ 15,14*** }
    else {
      var %shift.f = 1
      while (%shift.f <= $numtok($shift.nick,32)) {
        if ($sock($gettok($shift.nick,%shift.f,32))) {
          sockwrite -nt $gettok($shift.nick,%shift.f,32) privmsg $shift.base :15,14***7,7 $+ $chr(32) $+ 0,1 Pr4e0maN 15Cleared 7,7 $+ $chr(32) $+ 15,14***
          break
        }
        inc %shift.f
      }
    }
  }
  ... $+ $iif(((!$hget(enemy.nick.shift)) && (!$hget(enemy.host.shift))),$style(2)) List:{
    if ($hget(enemy.nick.shift)) {
      echo -s 15,14***7,7 $+ $chr(32) $+ 0,1 Shift Enemy Nick 7,7 $+ $chr(32) $+ 15,14***
      var %shift.g = $hget(enemy.nick.shift,0).item
      while (%shift.g) {
        echo -s $hget(enemy.nick.shift,%shift.g).item
        dec %shift.g
      }
    }
    if ($hget(enemy.host.shift)) {
      echo -s 15,14***7,7 $+ $chr(32) $+ 0,1 Shift Enemy Host 7,7 $+ $chr(32) $+ 15,14***
      var %shift.h = $hget(enemy.host.shift,0).item
      while (%shift.h) {
        echo -s $hget(enemy.host.shift,%shift.h).item
        dec %shift.h
      }
    }
  }
  .Single
  ..Socket
  ...Open:{
    if (!$sock($single.nick)) { .timersingleopen 1 5 sockopen $single.nick $single.serv $single.port }
    if (%activemode == shift) { set %activemode hybrid }
    elseif (%activemode != hybrid) { set %activemode single }
  }
  ...Close:{
    if ($sock($single.nick)) {
      sockclose $single.nick
      echo -s socket disconnected
    }
    if (%activemode == hybrid) { set %activemode shift }
    elseif (%activemode == single) { unset %activemode }
    .timersingle* off
    unset %single.a %single.f
  }
  ..Robot
  ... $+ $iif(((!$sock($single.nick)) || (%single.a)),$style(2)) Join:{
    if ($sock($single.nick)) {
      sockwrite -nt $single.nick join $single.chan
      set %single.a $single.nick
    }
  }
  ... $+ $iif((!%single.a),$style(2)) Part:{
    .timersinglejoin off
    sockwrite -nt $single.nick part $single.chan :15,14***7,7 $+ $chr(32) $+ 0,1 Pr4e0maN 7,7 $+ $chr(32) $+ 15,14***
    unset %single.a %single.f
  }
  ... $+ $iif((!%single.a),$style(2)) Cycle:{
    if ($sock($single.nick)) {
      sockwrite -nt $single.nick part $single.chan :15,14***7,7 $+ $chr(32) $+ 0,1 Pr4e0maN 7,7 $+ $chr(32) $+ 15,14***
      sockwrite -nt $single.nick join $single.chan
    }
  }
  ..Enemy
  ... $+ $iif(((!%single.a) || ($me !ison $single.chan)),$style(2)) Kick:{
    if ($menu == nicklist) {
      if (($$1 != $single.nick) && ($$1 != $gettok($shift.nick,%shift.d,32)) && ($$1 != $me)) {
        if (!$hfind(enemy.nick.single,$$1,0,W)) { hadd -m enemy.nick.single $$1 }
        if (($ial($$1).host) && (!$hfind(enemy.host.single,$ial($$1).host,0,W))) { hadd -m enemy.host.single $ial($$1).host }
        sockwrite -nt $single.nick kick $single.chan $$1 :15,14***7,7 $+ $chr(32) $+ 0,1 Pr4e0maN 7,7 $+ $chr(32) $+ 15,14***
      }
    }
    else {
      var %single.b = $?="Enter plain or wildcard nick:"
      if ((%single.b) && (%single.b !iswm $single.nick) && (%single.b !iswm $gettok($shift.nick,%shift.d,32)) && (%single.b !iswm $me)) {
        if (!$hfind(enemy.nick.single,%single.b,0,W)) { hadd -m enemy.nick.single %single.b }
        if (($ial(%single.b).host) && (!$hfind(enemy.host.single,$ial(%single.b).host,0,W))) { hadd -m enemy.host.single $ial(%single.b).host }
        var %single.c = $nick($single.chan,0)
        while %single.c {
          if ($hfind(enemy.nick.single,$nick($single.chan,%single.c),0,W)) { sockwrite -nt $single.nick kick $single.chan $nick($single.chan,%single.c) :15,14***7,7 $+ $chr(32) $+ 0,1 Pr4e0maN 7,7 $+ $chr(32) $+ 15,14*** }
          dec %single.c
        }
      }
    }
  }
  ... $+ $iif(((!$hget(enemy.nick.single)) && (!$hget(enemy.host.single))),$style(2)) Clear:{
    hfree -w *.single
    unset %single.f
    echo -s 15,14***7,7 $+ $chr(32) $+ 0,1 Pr4e0maN 15Cleared 7,7 $+ $chr(32) $+ 15,14***
    if ($sock(%single.a)) { sockwrite -nt %single.a privmsg $single.chan :15,14***7,7 $+ $chr(32) $+ 0,1 Pr4e0maN 15Cleared 7,7 $+ $chr(32) $+ 15,14*** }
    elseif ($sock($single.nick)) { sockwrite -nt $single.nick privmsg $single.base :15,14***7,7 $+ $chr(32) $+ 0,1 Pr4e0maN 15Cleared 7,7 $+ $chr(32) $+ 15,14*** }
  }
  ... $+ $iif(((!$hget(enemy.nick.single)) && (!$hget(enemy.host.single))),$style(2)) List:{
    if ($hget(enemy.nick.single)) {
      echo -s 15,14***7,7 $+ $chr(32) $+ 0,1 Single Enemy Nick 7,7 $+ $chr(32) $+ 15,14***
      var %single.d = $hget(enemy.nick.single,0).item
      while (%single.d) {
        echo -s $hget(enemy.nick.single,%single.d).item
        dec %single.d
      }
    }
    if ($hget(enemy.host.single)) {
      echo -s 15,14***7,7 $+ $chr(32) $+ 0,1 Single Enemy Host 7,7 $+ $chr(32) $+ 15,14***
      var %single.e = $hget(enemy.host.single,0).item
      while (%single.e) {
        echo -s $hget(enemy.host.single,%single.e).item
        dec %single.e
      }
    }
  }
}