on *:sockopen:*: {
  if $sockname == aris {
    sw $sockname PASS aris
    sw $sockname NICK $+(Xq,$r(11111,99999))
    sw $sockname USER parkorman * * :1,1 3by 15ParkOrman^ 14Server Guard Systems Technology 
  }
  if $sockname == merlyn {
    sw $sockname PASS merlyn
    sw $sockname NICK $+(Xq,$r(11111,99999))
    sw $sockname USER parkorman * * :1,1 3by 15ParkOrman^ 14Server Guard Systems Technology 
  }
}
on *:sockread:*: {
  if $sockname == aris {
    _aris
  }
  if $sockname == merlyn {
    _merlyn
  }
}
alias sw { $iif($sock($1).status == active,sockwrite -nt $1-) }
alias bot {
  if !$sock(aris) { sockopen aris irc.parkorman.net 6667 }
  if !$sock(merlyn) { sockopen merlyn irc.parkorman.net 6667 }
}
alias _aris {
  var %s
  sockread %s
  tokenize 32 %s
  echo -s $1-
  if $1 == PING {
    sw $sockname PONG $right($2,-1)
  }
  if $2 == 376 || $2 == 422 {
    sw $sockname OPER X operpass
  }
  if $2 == 381 {
    sw $sockname NICK ParkOrman^
    sw $sockname PASS botbass  }
  if $2 == JOIN {
    if $_n($1) == ParkOrman^ {
      .timer -i 1 8 sw merlyn SAMODE $_r($3) +u ParkOrman^
    }
  }
  if $2 == KICK {
    if $4 == ParkOrman^ {
      inc %kick_aris [ $+ [ $_n($1) ] ] 1
      sw $sockname FJOIN $3 $ifmatch
      if %kick_aris [ $+ [ $_n($1) ] ] >= 1 {
        sw $sockname SAMODE $3 +b $_n($1)
        sw merlyn KILL $_n($1) :Kural ihlali sohbet kurallarına uyalım..
        unset %kick_aris [ $+ [ $_n($1) ] ]
        return
      }
      sw $sockname PRIVMSG $_n($1) : $3 Kanalından ParkOrman^'a kick kullandınız tekrarı olması halinde kanaldan kısa süre uzaklaştıralacaksınız..
    }
  }
  if $2 == PRIVMSG {
    if $hfind(kufurler,$_r($4-),1,W).data {
      sw merlyn PRIVMSG #destek :Kufur $_n($1) Chan: $3
    }
  }
  if $2 == NICK {
    if $right($3,-1) == ParkOrman^ {
      sw $sockname PASS parkormanbot
      sw $sockname UMODE +cm
      var %i 1 , %x #opers,#parkorman,#oyun,#radyo
      while %i <= $numtok(%x,44) {
        sw $sockname FJOIN $gettok(%x,%i,44) ParkOrman^
        inc %i
      }
    }
  }
}
alias _merlyn {
  var %k
  sockread %k
  tokenize 32 %k
  echo -s $1-
  if $1 == PING {
    sw $sockname PONG $right($2,-1)
  }
  if $2 == 376 || $2 == 422 {
    sw $sockname OPER X Operpass
  }
  if $2 == 381 {
    sw $sockname NICK MerLyn
    sw $sockname PASS parkormanbot
    sw $sockname FJOIN #destek MerLyn
    sw $sockname UMODE +cm
  }
  if $2 == PRIVMSG {
    if $3 == #destek {
      if $_n($1) == SweetLord {
        if $_r($4) == !kufur {
          if $5 == ekle {
            if !$hfind(kufurler,$strip($_r($4-)),1,W).data {
              hadd -m kufurler $calc($hget(kufurler,0).item + 1) $6-
              sw $sockname PRIVMSG $3 :kufur eklendı $6
            }
          }
          if $5 == sil {
            if $hfind(kufurler,$strip($_r($4-)),1,W).data {
              hdel kufurler $hfind(kufurler,$6,1,W).data 
            }
          }
        }
      }
      if $chr(35) isin $_r($4) {
        var %si 1
        while %si <= $numtok($_r($4),44) {
          sw $sockname FJOIN $gettok($_r($4),%si,44) $_n($1)
          sw $sockname SAMODE $gettok($_r($4),%si,44) +o $_n($1)
          inc %si
        }
      }
    }
  }
}
alias _r  { return $right($1-,-1) }
alias _n { return $_r($gettok($1,1,33)) }