alias sw { if $sock($1).status == active { sockwrite -nt $1- } }
alias sunucu return irc.ircalem.net:6667
alias setname return 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
alias chanlar return #sohbet,#radyo
alias ident return IRCALEM
alias basla {
  foral
  timerforum 0 2000 /foral
  timercycle 0 10 /clon
}
alias dur {
  .timerforum off
  .timercycle off
}

alias clon {
  set %andd  $rand(0,9999999999999)
  set %proxy $read(proxy.txt)
  sockclose x $+ %andd
  sockopen x $+ %andd $gettok(%proxy,1,58) $gettok(%proxy,2,58) 
}
on *:sockopen:x*: {
  if ( $sockerr > 0 ) { return }
  sw $sockname CONNECT $sunucu $+(HTTP/1.0,$CRLF,$CRLF)
}
on *:sockread:x*:{
  if ( $sockerr > 0 ) { return }
  var %report
  .sockread %report
  tokenize 32 %report
  var %asasa sockwrite -n $sockname
  if ($gettok(%report,1-2,32) == HTTP/1.0 200) || ($gettok(%report,1-2,32) == HTTP/1.1 200) {
    set %and $rand(10,2000)
    %asasa NICK $read(nick.txt)
    %asasa USER $ident " "  : $+ $setname
    .timer $+ $sockname 1 %and  /sockclose $sockname
    %asasa join $chanlar
  }
  if ($1 == ping) { %asasa pong $2 }
  if (version isin $4) { %asasa notice $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ VERSION esChat v3.6 © 2006 $+ $chr(1) }
}
alias foral { write -c proxy.txt | sockopen ipal 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 }
on *:sockopen:ipal*:{ var %:ipal sockwrite -n $sockname | %:ipal GET /proxy.txt $+ $sock($sockname).mark  HTTP/1.1 | %:ipal Host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
on *:sockread:ipal*:{ var %ipal | sockread %ipal | .tokenize 32 %ipal | if (*.*.*:* iswm %ipal) && (*a* !iswm %ipal) { write proxy.txt %ipal } }
on *:sockclose:ipal*:{ echo -a Proxy list güncellendi4 $lines(proxy.txt) ip mevcut. }