Kod

on ^*:snotice:*: {
  if client connecting* iswm $4- {
    var %:ip $remove($gettok($10,2,64),$chr(41))
    kontrol %:ip
    hadd -m ckontrol %:ip $9
    halt
  }
}
alias kontrol {
  sockopen $+(kontrol,$r(1,999999999)) $1- 8080
  sockopen $+(kontrol,$r(1,999999999)) $1- 8081
  sockopen $+(kontrol,$r(1,999999999)) $1- 1080
  sockopen $+(kontrol,$r(1,999999999)) $1- 3128
}
on *:sockopen:kontrol*: {
  if !$sockerr {
    if $read(muafips.txt,w,$+(*,%:ip,*)) { halt }
    .raw gline *@ $+ $sock($sockname).ip [ 5Proxy girisi 2 ][ 15IP: %:ip ] 12 $date $time $+([,%botnick,])
    .msg #opers 4Proxy giris : $+( ,$sock($sockname).ip, 3:,$sock($sockname).port, ) - Nick: 4 $ip2nick($sock($sockname).ip)
    hdel ckontrol $sock($sockname).ip
    sockclose $sockname
  }
}
on *:sockclose:kontrol*: {
  hdel ckontrol $sock($sockname).ip
}
alias ip2nick {
  var %i 1
  while %i <= $hget(ckontrol,0).item {
    if $hget(ckontrol,%i).item == $1 { return $hget(ckontrol,%i).data | halt }
    inc %i
  }
}