alias _sunucu return irc.xxx.Net:xxxx
alias _nick return $read(nick.txt)
alias _ident return $read(ident.txt)


;Bot'ların sayısı lütfen belirleyiniz

;Gece 22'den saat 04'a kadar girecek bot sayısı
alias _sabah return 10

;Sabah 5'dan öglen 10'ye kadar girecek bot sayısı
alias _öglen return 20

;Öglen 11'den akşam 3'e kadar girecek bot sayısı
alias _aksam return 30

;Akşam 16'den gece 21'e kadar girecek bot sayısı
alias _gece return 50

-
alias sw if ($sock($1).status == active) sockwrite -nt $1-
###################### Ayarlancak Bolum Ust Kısım Sadece! ######################

alias clone {
  if $lines(proxy.txt) == 0 { .timercycle off | unset %* | _al | return }
  var %:proxy $read(proxy.txt), %:rnd $+($md5($ticks),$r(10,999))
  if $read(proxy.txt,w,$+(*,%:proxy,*)) { .write $+(-,dl,$readn) proxy.txt }
  $iif(!$sock($+(cycle,%:rnd)),.sockopen $+(cycle,%:rnd) $gettok(%:proxy,1,58) $gettok(%:proxy,2,58))
}
on *:start:_al
alias _güncel { echo -a Proxy list güncellendi toplam4 $lines(proxy.txt) | sockclose _pr  }
alias _al { 
  .remove proxy.txt 
  sockclose _pr | sockopen _pr youmycure.net 80
  $+(.timer,qproxy) 1 60 _güncel 
}
on *:sockopen:_pr: { 
  sockwrite -nt $sockname GET /proxy.txt HTTP/1.1
  sockwrite -nt $sockname Host: $sock($sockname).addr | sockwrite -nt $sockname $crlf
}
on *:sockread:_pr: { var %i | sockread %i | $iif($regex(%i,/(\d+\.\d+\.\d+\.\d+\:\d+)),write proxy.txt %i) }