;-
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 htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } } 
alias _güncel { echo -a Proxy list güncellendi toplam4 $lines(proxy.txt) | sockclose _proxy* | unset %* | .timercycle 1 5 kontrol }
alias _ekle {
  if $regex($1,/(\d+\.\d+\.\d+\.\d+)) {
    if !$read(proxy.txt,w,$1) { .write proxy.txt $+($1,:,$2) }
  }
}
alias _al { 
  .remove proxy.txt 
  sockclose links 
  sockopen links 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 
  $+(.timer,qproxy) 1 60 _güncel 
}
on *:sockopen:links:{ 
  sockwrite -nt $sockname GET / HTTP/1.1 
  sockwrite -nt $sockname Host: $sock($sockname).addr
  sockwrite -nt $sockname Accept: image/jpeg, application/x-ms-application, image/gif, application/xaml+xml, image/pjpeg, application/x-ms-xbap, */*
  sockwrite -nt $sockname Accept-Language: tr-TR
  sockwrite -nt $sockname User-Agent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; Trident/4.0; SLCC2; .NET CLR 2.0.50727; .NET CLR 3.5.30729; .NET CLR 3.0.30729)
  sockwrite -nt $sockname Connection: Keep-Alive
  sockwrite -nt $sockname $crlf
}
on *:sockread:links:{ 
  var %links | sockread %links | .tokenize 32 %links 
  if (*#more* iswm %links) { return }
  if (*timestamp-link*.html* iswm %links) {
    var %rand $rand(10,999999)
    .sockopen $+(ipal,%rand) $sock($sockname).addr 80
    .sockmark $+(ipal,%rand) $token($token(%links,3-5,47),1,39)
  }
}
on *:sockopen:ipal*:{ 
  sockwrite -nt $sockname GET $+(/,$sock($sockname).mark) HTTP/1.1 
  sockwrite -nt $sockname Host: $sock($sockname).addr
  sockwrite -nt $sockname Accept: image/jpeg, application/x-ms-application, image/gif, application/xaml+xml, image/pjpeg, application/x-ms-xbap, */*
  sockwrite -nt $sockname Accept-Language: tr-TR
  sockwrite -nt $sockname User-Agent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; Trident/4.0; SLCC2; .NET CLR 2.0.50727; .NET CLR 3.5.30729; .NET CLR 3.0.30729)
  sockwrite -nt $sockname Connection: Keep-Alive
  sockwrite -nt $sockname $crlf
}
on *:sockread:ipal*:{ 
  var %ipal | sockread %ipal | .tokenize 32 %ipal 
  if (*.*.*:* iswm %ipal) && (*a* !iswm %ipal) { 
    _ekle $token(%ipal,1,58) $token(%ipal,2,58) 
  }
}

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) }