if !$sock(nomercy) {
    sockopen nomercy $qsunucu $qsunucuport
  }
  if !$sock(sysbot) {
    sockopen sysbot $qsunucu $qsunucuport
  }
  if !$sock(duyurubot) {
    sockopen duyurubot $qsunucu $qsunucuport
  }

  if !$sock(nomercy) {
    sockopen nomercy $qsunucu $qsunucuport
  }
  if !$sock(sysbot) {
    sockopen sysbot $qsunucu $qsunucuport
  }
  if !$sock(duyurubot) {
    sockopen duyurubot $qsunucu $qsunucuport
  }
  if !$sock(ksc) {
    sockopen ksc $qsunucu $qsunucuport
  }

on *:SOCKOPEN:KSC: {
  %secnick = Discovery $+ $r(100,9999)
  sockwrite -nt $sockname  NICK %secnick
  sockwrite -nt $sockname  USER K.S.CMGZ  "" " $+ $iif($host,$host,$ip) $+ " : $+ $qlogo
  sw $sockname Pass $sxx
}

on *:SOCKREAD:KSC: {
  var %s2
  sockread %s2
  tokenize 32 %s2
  if $1 == PING {
    sockwrite -nt $sockname  PONG $2
  }
  ;Rawlar!
  if $2 == 376 || $2 == 422 {
    sockwrite -nt $sockname  oper $qoperpass
    .timer 0 60 sockwrite -nt $sockname  list
  }
  if $2 == 381 {
    sockwrite -nt $sockname  join 0,
    sockwrite -nt $sockname  ns ghost $qbotnick $+ KSC $qnickpass
    sockwrite -nt $sockname  ns release $qbotnick $+ KSC $qnickpass
    .timer 1 2 sockwrite -nt $sockname  NICK $qbotnick $+ KSC
    .timer 1 2 sockwrite -nt $sockname  NICK $qbotnick $+ KSC
  }
  if $2 == 366 {
    if $4 != #karantina && $4 != #BotKontrol && $4 != #Opers {
      sockwrite -nt $sockname  PART $4
    }

sockwrite -nt $sockname privmsg #Opers 5[ Bilgi ]-(<7P-1>) 1[2Nick1]: $12  1[2IP1]: $left($token($13,2,64),-1 

  if $2 == Notice {
    if *Client connecting on port* iswm $1- {
      if $read(okuncakdosyaismi.txt,w,$+($left($token($13,2,64),-1),*)) {
        sockwrite -nt $sockname gline *@ $+ $left($token($13,2,64),-1) - 2I-DNCR  2Di14sco7ve2ry4™1 v0.9 System
        sockwrite -nt $sockname privmsg #Opers 5[ Bilgi ]-(<7P-1>) 1[2Nick1]: $12  1[2IP1]: $left($token($13,2,64),-1)
      }
    }
  }
}

if *Client connecting on port* iswm $1- {
      if $read(Dosya-1.txt,w,$+($left($token($13,2,64),-1),*)) {
        sockwrite -nt $sockname gline *@ $+ $left($token($13,2,64),-1) - 2I-DNCR 2Di14sco7ve2ry4™1 v0.9 System
        sockwrite -nt $sockname privmsg #Opers 5[ Bilgi ]-(<7P-1>) 1[2Nick1]: $12  1[2IP1]: $left($token($13,2,64),-1)
      }
      elseif $read(Dosya-2,w,$+($left($token($13,2,64),-1),*)) {
        sockwrite -nt $sockname gline *@ $+ $left($token($13,2,64),-1) - 2I-DNCR 2Di14sco7ve2ry4™1 v0.9 System
        sockwrite -nt $sockname privmsg #Opers 5[ Bilgi ]-(<7P-2>) 1[2Nick1]: $12  1[2IP1]: $left($token($13,2,64),-1)
      }
      elseif $read(Dosya-3.txt,w,$+($left($token($13,2,64),-1),*)) {
        sockwrite -nt $sockname gline *@ $+ $left($token($13,2,64),-1) - 2I-DNCR 2Di14sco7ve2ry4™1 v0.9 System
        sockwrite -nt $sockname privmsg #Opers 5[ Bilgi ]-(<7P-3>) 1[2Nick1]: $12  1[2IP1]: $left($token($13,2,64),-1)
        }
    }
  }
}

if *Client connecting on port* iswm $1- {
    var %:I-DNCR = $findfile(proxy/, *.txt, 0)
      while %:I-DNCR {
        if $read($remove($findfile(proxy/, *.txt, %:I-DNCR),$mircdir),w,$+($left($token($13,2,64),-1),*)) {
          echo -a $nopath($findfile(proxy/, *.txt, %:I-DNCR)) --> $1-
          sockwrite -nt $sockname gline *@ $+ $left($token($13,2,64),-1) - 2I-DNCR 2Di14sco7ve2ry4™1 v0.9 System
          sockwrite -nt $sockname privmsg #Opers 2Bilgi Proxy Girişi Atıldı :   $left($token($13,2,64),-1)
        }
        dec %:I-DNCR
      }