alias opers return opernick şifre
alias botnick return GLOBAL
alias botpass return 142536
alias sunucu return 84.16.253.235 6667

alias bagla {
  sockclose botnet
  sockopen botnet $sunucu
}
alias kopar {
  sockclose botnet
}
alias sw {
  if $sock($1).status == active {
    sockwrite -nt $1-
  }
}
on *:SOCKOPEN:botnet: {
  sw $sockname nick $+(Guard,$r(0,999))
  sw $sockname USER X " " : $+ $+([,,$botnick,,]) Channel Information System GeceAktif
}
on *:sockread:botnet: {
  if !$sock($sockname) { echo -a Baglanti Koptu! | halt }
  var %q
  sockread %q
  tokenize 32 %q
  if $1 == PING {
    sw $sockname PONG $2
  }
  if $2 == 376 {
    sw $sockname oper $opers
    sw $sockname join 0
    sw $sockname nick $botnick
    sw $sockname nick $botpass
    sw $sockname umode +c
    .timer 0 1 sw $sockname list
  }
  if ($2 == 322) {
    if ($5 >= 2) { sw $sockname sajoin $4 }
    if ($5 == 1) { sw $sockname part $4 }
  }
  if ($2 == join) {
    var %nick $right($token($1,1,33),-1),%chan $right($3,-1)
    if (%nick != GLOBAL) {
      set -e %nick [ $+ [ %chan ] ] %nick | sw $sockname privmsg chanserv info %chan 
    }
  }
  if ($2 == NOTICE) {
    if $regex($4-,The channel) { sw $sockname notice %nick [ $+ [ $strip($6) ] ] $6 Kanalı kayıtsız }
    if ($right($4,-1) == ***) && $regex($strip($5),^#) { sw $sockname notice %nick [ $+ [ $strip($5) ] ] $5 Kanalı kayıtlı | set -e %kytchn $strip($5) }
    if $right($4,-1) == Founder { sw $sockname notice %nick [ $+ [ %kytchn ] ]  %kytchn  Kanalı sahibi: $6 }
    if $right($4,-1) == Registered { sw $sockname notice %nick [ $+ [ %kytchn ] ] Kayıt tarihi: $6-7 }
    if $right($4-5,-1) == Last Opping { sw $sockname notice %nick [ $+ [ %kytchn ] ] Son Duzenleme: $7-8 }
    if $right($4-5,-1) == Last Topic { sw $sockname notice %nick [ $+ [ %kytchn ] ] Kanal Topici: $7- }
    if $right($4,-1) == ModeLock { sw $sockname notice %nick [ $+ [ %kytchn ] ] Kanal modları: $6 }
    if $right($4,-1) == Options { sw $sockname notice %nick [ $+ [ %kytchn ] ] Kanal ayarlari: $6- }
    if $right($4,-1) == MemoLevel { sw $sockname notice %nick [ $+ [ %kytchn ] ] Memo seviyesi: $6 }
    if $right($4,-1) == *** && $5-7 == End of info { sw $sockname notice %nick [ $+ [ %kytchn ] ] Kanal Bilgisi sonu }
  }
}