on *:start: {
  basla
  unset %*
}
alias sunucu return 185.9.39.185:6669
alias sunucupass return kayametin8833
alias sunucuident return IRCWeb Mirc Sohbetlisin Chat İF ConferanceRoom
alias sunucusetname return irc.trnet.org Web-Mobil Kullanicisi
alias radyo return 185.255.92.119:8042

alias randident {
  var %rand $rand(1, $numtok($sunucuident,32))
  return $token($sunucuident,%rand,32) 
}
alias sw { if $sock($1).status == active { sockwrite -nt $1- } }
alias basla {
  .timercycle 0 5 girisler
  .timerproxy 0 $calc(6 * 300) _xproxyal
  echo -a Cycle sistem aktiftir.
}
alias stop {
  .timercycle off
  echo -a Cycle sistem deaktiftir.
}
alias girisler {
  var %saat  $token($time,1,58)
  if $istok(12 13 14 15 16 17,%saat,32) && (%girisler !== oglen) { echo -a ** Oglen girisi | set -e %girisler Oglen | .timergiris 0 1 clon }
  if $istok(18 19 20 21 22 23,%saat,32) && (%girisler !== aksam) { echo -a ** Aksam girisi | set -e %girisler Aksam | .timergiris 0 1 clon }
  if $istok(00 01 02 03 04 05,%saat,32) && (%girisler !== gece) { echo -a ** Gece girisi | set -e %girisler Gece | .timergiris 0 1 clon }
  if $istok(06 07 08 09 10 11,%saat,32) && (%girisler !== sabah) { echo -a ** Sabah girisi | set -e %girisler Sabah | .timergiris 0 1 clon }
}
alias rands {
  Var %rmsg $sunucuident, %rsayi $rand(1,$token(%rmsg,0,32)), %random $token(%rmsg,%rsayi,32)
  return %random
}
alias saatler {
  var %saat  $token($time,1,58)
  if $istok(12 13 14 15 16 17,%saat,32) { return 100 }
  if $istok(18 19 20 21 22 23,%saat,32) { return 100 }
  if $istok(00 01 02 03 04 05,%saat,32) { return 150 }
  if $istok(06 07 08 09 10 11,%saat,32) { return 150 }
}
alias clon {
  var  %proxy $read(proxy.txt)
  if !%proxy { 
    hinc -m proxys yok 1
    if $hget(proxys,yok) = 2 { ;_xproxyal | .hfree -sw proxys | return }
  }
  if %proxy {
    if $sock(aegx*,0) >= $calc($saatler - $rand(1,20)) {
      var %randsock $sock(aegx*,$rand(1,$sock(aegx*,0)))
      .timer 1 $rand(10,50) sockwrite -nt %randsock quit $(|) hdel -m socks %randsock
    }
    if $sock(aegxxxx*,0) <= $saatler {
      :bastan
      var %rand $rand(0,9999999)
      if $sock($+(aegxxxx,%rand)) { goto bastan }
      sockopen $+(aegxxxx,%rand) $gettok(%proxy,1,58) $gettok(%proxy,2,58) 
    }
    if $sock(aegradyoc*,0) <= $saatler {
      :radyobastan
      var %rand $rand(0,9999999)
      if $sock($+(aegradyoc,%rand)) { goto radyobastan }
      sockopen $+(aegradyoc,%rand) $gettok(%proxy,1,58) $gettok(%proxy,2,58) 
    }
    ;echo -a $readn - %proxy
    ;write $+(-dl,$readn) proxy.txt
  }
}

on *:sockopen:aegradyoc*:{
  if ($sockerr > 0) { sockclose $sockname | returnex } 
  sw $sockname CONNECT $radyo $+(HTTP/1.1,$CRLF,$CRLF)
}
on *:sockread:aegradyoc*:{
  var %;rdin | sockread %;rdin | tokenize 32 %;rdin
  if ($gettok(%;rdin,1-2,32) == HTTP/1.0 200) || ($gettok(%;rdin,1-2,32) == HTTP/1.1 200) {
    sockwrite -nt $sockname GET /;*.nsv HTTP/1.1
    sockwrite -nt $sockname Host: $sock($sockname).addr
    sockwrite -nt $sockname Connection: keep-alive
    sockwrite -nt $sockname Accept-Encoding: identity;q=1, *;q=0
    sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/39.0.2171.95 Safari/537.36
    sockwrite -nt $sockname Accept: */*
    sockwrite -nt $sockname Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.6,en;q=0.4
    sockwrite -nt $sockname Range: bytes=0- 
    sockwrite -nt $sockname $crlf 
    ;echo -s 5 Radyo Giris: $sock($sockname).ip Dinliyor.
    $+(.timer,$sockname) 1  $rand(1000,3000) sockclose $sockname
  } 
}
on *:sockopen:aegxxxx*: {
  if ( $sockerr > 0 ) { return }
  sw $sockname CONNECT $sunucu $+(HTTP/1.0,$CRLF,$CRLF)
}
on *:sockread:aegxxxx*:{
  if ( $sockerr > 0 ) { return }
  var %report | .sockread %report | tokenize 32 %report
  var %komut sockwrite -n $sockname, %nick $read(nick.txt), %ident  $randident
  if ($gettok(%report,1-2,32) == HTTP/1.0 200) || ($gettok(%report,1-2,32) == HTTP/1.1 200) {
    %komut PASS $sunucupass
    %komut NICK %nick
    %komut USER %ident " "  : $+ $sunucusetname
  }
  if $2 == 001 {
    sockwrite -nt $sockname join #irctrorg
  }
  if $2 == 366 && $4 == #sohbet {
    var %randts $rand(1,5), %mesaj $read(mesaj.txt)
    if 1 == %randts {
      .timer 1 $rand(10,100) sockwrite -nt $sockname privmsg $4 %mesaj
    }
  }
  if ($1 == ping) { %komut pong $2 }
}
on *:sockclose:aegxx*: {
  if $hget(socks,$sockname) { .hdel -m socks $sockname }
}
alias ;_xproxyal {
  write -c proxy.txt
  var %rand $rand(0,9999)
  sockopen $+(proxyal,%rand) www.gatherproxy.com 80
  sockopen $+(3proxy,%rand) spys.one 80
  sockopen $+(4proxytext,%rand) www.proxyserverlist24.top  80
  ;sockopen $+(5proxytext,%rand) www.sslproxies24.top 80
}
alias ports {
  if $1 == 50 { return 80 }
  if $1 == 51 { return 81 }
  if $1 == 34B { return 843 }
  if $1 == 1F90 { return 8080 }
  if $1 == 1F40 { return 8000 }
  if $1 == 1F91 { return 8081 }
  if $1 == C38 { return 3128 }
  if $1 == C39 { return 3129 } 
  if $1 == 2326 { return 8998 }
  if $1 == 1FB6 { return 8118 }
  if $1 == 270F { return 9999 }
}

on *:sockopen:proxyal*: {
  var %komut sockwrite -nt $sockname
  %komut GET /proxylist/country/?c=Turkey HTTP/1.0
  %komut Host: $sock($sockname).addr
  %komut $crlf
}
on *:sockread:proxyal*: {
  var %x | sockread %x
  if $regex(%x,/\"PROXY_IP\"\:\"(.+)\"/i) {
    var %ip $token($regml(1),1,34) 
  }
  if $regex(%x,/\"PROXY_PORT\"\:\"(.+)\"/i) {
    var %port $sifrecoz($token($regml(1),1,34)) 
    proxyekle $+(%ip,:,%port)
  }
}
alias sifrecoz {
  if $1 == 50 { return 80 }
  if $1 == 51 { return 81 }
  if $1 == 34B { return 843 }
  if $1 == 1F90 { return 8080 }
  if $1 == 1F40 { return 8000 }
  if $1 == 1F91 { return 8081 }
  if $1 == C38 { return 3128 }
  if $1 == C39 { return 3129 } 
  if $1 == 2326 { return 8998 }
  if $1 == 1FB6 { return 8118 }
  if $1 == 270F { return 9999 }
  else { return $1 }
}
on *:sockopen:3proxy*: {
  var %komut sockwrite -nt $sockname
  %komut GET /free-proxy-list/TR/ HTTP/1.1
  %komut Host: $sock($sockname).addr
  %komut $crlf
}
on *:sockread:3proxy*: {
  var %x | sockread %x
  if $regex(%x,/([0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3})/gi) { 
    var %y 1
    while $regml(%y) {
      var %c 1, %r1 $v1
      while $token(3128 3129 80 8080 8000 808 8081,%c,32) {
        proxyekle $+(%r1,:,$v1) 
        inc %c
      }
      inc %y
    }
  }
}
on *:sockopen:4proxytext*:{
  var %s sockwrite -n $sockname
  %s GET $+(/,$sock($sockname).mark) HTTP/1.1 
  %s Accept: image/jpeg, image/gif, image/pjpeg, application/x-ms-application, application/xaml+xml, application/x-ms-xbap, */*
  %s Accept-Language: tr-TR
  %s User-Agent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; WOW64; Trident/4.0; SLCC2; .NET CLR 2.0.50727)
  %s Host: $sock($sockname).addr
  %s Connection: Keep-Alive
  %s $crlf
}
on *:sockread:4proxytext*:{
  var %63 | sockread %63
  if (*timestamp-link*.html* iswm %63) {
    4ekproxyal $+(/,$token($token(%63,4,39),3-,47))
  }
}
alias 4ekproxyal {
  var %rand $rand(0,999999999)
  sockopen $+(4ekproxytext,%rand) www.proxyserverlist24.top 80
  sockmark $+(4ekproxytext,%rand) $1
}

on *:sockopen:4ekproxytext*:{
  var %s sockwrite -n $sockname
  %s GET $sock($sockname).mark HTTP/1.1 
  %s Accept: image/jpeg, image/gif, image/pjpeg, application/x-ms-application, application/xaml+xml, application/x-ms-xbap, */*
  %s Accept-Language: tr-TR
  %s User-Agent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; WOW64; Trident/4.0; SLCC2; .NET CLR 2.0.50727)
  %s Host: $sock($sockname).addr
  %s Connection: Keep-Alive
  %s $crlf
}
on *:sockread:4ekproxytext*:{
  var %63 | sockread %63
  if (*.*:* iswm %63) && (*a* !iswm %63) {
    var %ip $token($afree(%63),1,32)
    proxyekle %ip
  }
}

on *:sockopen:5proxytext*:{
  var %s sockwrite -n $sockname
  %s GET $+(/,$sock($sockname).mark) HTTP/1.1 
  %s Accept: image/jpeg, image/gif, image/pjpeg, application/x-ms-application, application/xaml+xml, application/x-ms-xbap, */*
  %s Accept-Language: tr-TR
  %s User-Agent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; WOW64; Trident/4.0; SLCC2; .NET CLR 2.0.50727)
  %s Host: $sock($sockname).addr
  %s Connection: Keep-Alive
  %s $crlf
}
on *:sockread:5proxytext*:{
  var %63 | sockread %63
  if (*timestamp-link*.html* iswm %63) {
    4ekproxyal $+(/,$token($token(%63,4,39),3-,47))
  }
}
alias 5ekproxyal {
  var %rand $rand(0,999999999)
  sockopen $+(5ekproxytext,%rand) www.sslproxies24.top 80
  sockmark $+(5ekproxytext,%rand) $1
}

on *:sockopen:5ekproxytext*:{
  var %s sockwrite -n $sockname
  %s GET $sock($sockname).mark HTTP/1.1 
  %s Accept: image/jpeg, image/gif, image/pjpeg, application/x-ms-application, application/xaml+xml, application/x-ms-xbap, */*
  %s Accept-Language: tr-TR
  %s User-Agent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; WOW64; Trident/4.0; SLCC2; .NET CLR 2.0.50727)
  %s Host: $sock($sockname).addr
  %s Connection: Keep-Alive
  %s $crlf
}
on *:sockread:5ekproxytext*:{
  var %63 | sockread %63
  if (*.*:* iswm %63) && (*a* !iswm %63) {
    var %ip $token($afree(%63),1,32)
    proxyekle %ip
  }
}
alias proxyekle {
  if !$read(proxy.txt,w,$1) {
    write proxy.txt $1
  }
}

alias afree {
  var %x, %i =  $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/gi,$null,%x),  %x = $remove(%x,&nbsp;, )
  return %x
}