Kod

Kod:

on *:start:atasozu | .timerslct 0 5 slct 
alias atasozu $iif($sock(atsz),sockclose atsz,sockopen atsz www.gulum.net 80) 
on *:sockopen:atsz: {  
  var %n = $sockname | sockwrite -n %n GET $+(/sozleri-mesajlari/atasozleri-,$r(1,14),.php) HTTP/1.1 
  sockwrite -n %n Host: gulum.net | sockwrite -n %n $crlf 
} 
on *:sockread:atsz: { 
  $iif($hget(atsz),hfree atsz) | var %s | sockread %s  
  if ($regex($gettok(%s,1,32),^ $) && !$regex(%s,http) && $gettok(%s,3,32)) { 
    hinc -m atsz $replacecs(%s, ,•,♥,•,$chr(32),½) 1 
    if ($hget(atsz,0).item == $r(1,10)) sockclose atsz  
  } 
} 
alias slct var %u = $hget(atsz,0).item,%uu = $r(1,%u) | set %& $replacecs($hget(atsz,%uu).item,½,$chr(32))  
alias kick kick $1 $2 $iif($3,$3-,%&)