on *:start: {
  basla
  unset %*
}
alias sunucu return irc.network.gen.tr:6667
alias sunucuident return Network mIRCScript SanalOrg DinleORG
alias sunucusetname return 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
alias radyo return

alias sw { if $sock($1).status == active { sockwrite -nt $1- } }
alias basla {
  .timercycle 0 5 girisler
  .timerproxy 0 $calc(6 * 300) 
  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 2 clon }
  if $istok(18 19 20 21 22 23,%saat,32) && (%girisler !== aksam) { echo -a ** Aksam girisi | set -e %girisler Aksam | .timergiris 0 2 clon }
  if $istok(00 01 02 03 04 05,%saat,32) && (%girisler !== gece) { echo -a ** Gece girisi | set -e %girisler Gece | .timergiris 0 2 clon }
  if $istok(06 07 08 09 10 11,%saat,32) && (%girisler !== sabah) { echo -a ** Sabah girisi | set -e %girisler Sabah | .timergiris 0 2 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 350 }
  if $istok(18 19 20 21 22 23,%saat,32) { return 400 }
  if $istok(00 01 02 03 04 05,%saat,32) { return 250 }
  if $istok(06 07 08 09 10 11,%saat,32) { return 100 }
}
alias clon {
  var  %proxy $read(proxy.txt)
  if !%proxy { 
    hinc -m proxys yok 1
    if $hget(proxys,yok) = 2 { .hfree -sw proxys | return }
  }
  if %proxy {
    if $sock(aegx*,0) >= $calc($saatler - $rand(1,20)) {
      var %randsock $sock(aegx*,$rand(1,$sock(aegx*,0)))
      if $sock(%randsock) { .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: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  $rands($sunucuident)
  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 {
    %komut join $kanallar
  }
  if $2 == join {
    if $istok(#Chat, $right($3,-1),32) {
      %komut join $kanallar
    }
  }
  if ($1 == ping) { %komut pong $2 }
}
on *:sockclose:aegxx*: {
  if $hget(socks,$sockname) { .hdel -m socks $sockname }
}



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