alias bilgi {
  if !$1- {
    echo -a 2Lütfen botun bilgilerini girin.
    echo -a 2Örnek: 10/bilgi serverip serverport botnick botnicksifre botoper botopersifre botlogkanal
  }
  else {
    set  %serverip $1 | set %serverport $2 | set %botnick $3 | set %botnicksifre $4 | set %botopernick $5 | set %botopersifre $6 | set %botlogkanal $7
    echo -a 2Botun bilgileri girildi.
    echo -a 2Botu sunucuya sokmak için : 10/bot12 yazınız
  }
}
on *:sockopen:bot1:{
  if ($sockerr) { echo $color(info) -st Bağlantı kesildi.Lütfen Scripti Kapatıp Tekrar Açın. | return }
  swbot1 NICK %botnick
  swbot1 USER IRC * * :koruma botu ¦:)
}
on *:sockread:bot1:{
  if ($sockerr) { echo $color(info) -st Bağlantı kesildi.Lütfen Scripti Kapatıp Tekrar Açın. | return }
  var %:; | sockread %:; | tokenize 32 %:;
  if !$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]1) { window -ne @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]1 %:; }
  echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]1 %:;
  swalias1 $1-
}
alias swbot1 { if $sock(bot1) { sockwrite -n bot1 $1- } }
alias swalias1 {
  if $sock(bot1) {
    var %: = echo $color(info) -st > Socket bot:
    if *:
VERSION
* iswm $4- { swbot1 NOTICE  $bnick($1) VERSION 12 proxy katılı }
    if $1 == PING { swbot1 PONG $2- }
    if $2 == NOTICE && $3 == %botnick && *Bu kayitli ve sifre korumali bir nick* iswm $4- {
      swbot1 JOIN 0,
      swbot1 PRIVMSG nickserv identify %botnicksifre
      swbot1 oper %botopernick %botopersifre
      swbot1 JOIN 0,
      swbot1 JOIN %botlogkanal
      swbot1 PRIVMSG %botlogkanal koruma 14Aktif Durumda4.
    }
    if $3 == %botlogkanal && $4 == :.guncelle {
      if $5 == oto {
        swbot1 PRIVMSG $3 1Otomatik GünceLLeme Sistemi
        guncelle oto
      }
      else {
        swbot1 PRIVMSG $3 1GünceLLeme BaşLatıLdı
        guncelle
      }
    }
    if $2 == 352 {
      tor_ $6
      madgir $6
    }
    if *Client connecting* iswm $7- {
      inc %mad
      if $read(tor.txt,w,$remove($gettok($13,2,64),$chr(41))) {
        swbot1 gzline *@ $+ $remove($gettok($13,2,64),$chr(41)) 1d 1Proxy yasaktır10. koruma 
      }
      else {
        swbot1 who +I $12
      }
      var %ipcik = $remove($gettok($13,2,64),$chr(41))
      hinc -mu2 pp %ipcik 1
      if ($hget(pp,%ipcik) >= 3) {
        swbot1 gzline $+(*@,%ipcik) 10d 4KuraLLara1 Aykırı Davranış Yüzünden BanLandınız4.10 koruma
        if $gettok(%ipcik,1,45) == adsl || $gettok(%ipcik,1,45) == dslb {
          write tor.txt $replace($gettok(%ipcik,2-4,45),-,.)
          .halt
        }
        if !$read(tor.txt,w,$remove($gettok($13,2,64),$chr(41))) {
          write tor.txt $remove($gettok($13,2,64),$chr(41))
          swbot1 PRIVMSG %botlogkanal $remove($gettok($13,2,64),$chr(41)) 4karalisteme eklendi.
        }
      }
    }
  }
}
alias bot1 {
  if !$sock(bot1) {
    sockopen bot1 %serverip %serverport
  } 
}
alias bnick return  $gettok($remove($1,:),1,33)
#------- on
on *:Sockopen:proxy2:{ 
  sockwrite -n $sockname GET [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] HTTP/1.1 
  sockwrite -n $sockname User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322)   
  sockwrite -n $sockname Host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $crlf  
  sockwrite -n $sockname Connection: Keep-Alive $+ $crlf $+ $crlf
}
on *:Sockread:proxy2:{
  var %proxy2
  sockread %proxy2
  .tokenize 32 %proxy2
  if !$read(tor.txt,w,%proxy2) && $1 != HTTP/1.1 && $1 != Date: && $1 != Server: && $1 != X-Powered-By: && $1 != Location: && $1 != Content-Length: && $1 != Keep-Alive: && $1 != Connection: && $1 != Content-Type: {
    write tor.txt %proxy2
  }
}
on *:Sockopen:proxy3:{ 
  sockwrite -n $sockname GET [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] HTTP/1.1 
  sockwrite -n $sockname User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322)   
  sockwrite -n $sockname Host: proxy.org $crlf  
  sockwrite -n $sockname Connection: Keep-Alive $+ $crlf $+ $crlf
}
on *:Sockread:proxy3:{
  var %proxy
  sockread %proxy
  .tokenize 32 %proxy
  if *^* iswm $1- && $+(*,$chr(36),*) iswm $1- && *\* iswm $1-  {
    if !$read(tor.txt,w,$remove($3,^,\,$)) {
      write tor.txt $remove($3,^,\,$)
    }
  }