for spy others channel without joining..

;;=======================================;;
;;     Š†0rm ìmÞàç† Šcrïþ†š ( v4.3 )     ;; 
;;           Create By st0rm             ;;
;;  Inc. 2007 - 2008 ( Update - 2010 )   ;;
;;=======================================;;

#spy on
on *:TEXT:.spy *:#: { 
    if (%chtext == on) { msg $chan 13BOSS 0:::15 $me Tgh Spy Channel 4 %spy1 15 , Untuk Berhenti Type 0(4 !unspy # 0) } 
    else { 
      join $2 
      set %spy2 $chan 
      set %spy1 $2 
      set %chtext on 
      msg %spy2 $topic(%spy1) 
      msg %spy2 $nick(%spy1,0) 
    } 
  }

on *:TEXT:*:%spy1: { 
  if (%chtext == ON) {  msg %spy2 0:::4 ON SPY 0::: 14 ( $+ %spy1 $+ )4<0 $$+ $nick $$+ 4>14 $1- | .block } 
  else { halt } 
} 
on *:ACTION:*:%spy1: { 
  if (%chtext == ON) { msg %spy2 0:::4 ON SPY 0::: 14 ( $+ %spy1 $+) 4<0 $+ $nick $+ 4>14 $1- | .block } 
  else { halt } 
} 
on *:JOIN:%spy1: { 
  if (%chtext == ON) { msg %spy2 0:::4 ON SPY 0::: 15 ( $+ %spy1 $+ ) $nick ( $+ $mask($address,3) $+ ) has joined %spy1 | .block } 
  else { halt } 
} 
on *:PART:%spy1: { 
  if (%chtext == ON) { msg %spy2 0:::4 ON SPY 0::: 15 ( $+ %spy1 $+ ) $nick ( $+ $mask($address,3) $+ ) has left %spy1 | .block } 
  else { halt } 
} 
on *:QUIT: { 
  if (%chtext == ON) { 
    if ( $nick ison %spy1 ) {  msg %spy2 0:::4 ON SPY 0::: 15 ( $+ %spy1 $+ ) $nick has quit IRC ( $+ $1- $+ ) | .block } 
    else { halt } 
  } 
} 
#spy end

on *:TEXT:!msg*:*: {
   msg %spy1 $2- 
}
on *:TEXT:*:#: { 
  if (!unspy == $1) { 
    if ($master($nick) == $true) {
      msg %spy2 13BAIK BOSS 0:::4 $me Berhenti Spy Channel 11 %spy1  0:::
      unset %spy2 
      unset %spy1 
      unset %chtext 
      unset %chan
    }
  }
}
alias block {
  hinc -u5m row $chan 1 | if ($hget(row,$chan) = 7) { disable #spy | .timerzxz 1 15 enable #spy | .msg %chan 0:::4 Channel Flooding SERVICES! 0:::15 $me Block Msg  }
}