/webaslan [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

alias webaslan {
  if !$isid {
    if !$sock(webaslan) && !$1 {
      ; connect to server
      if %webaslan { sockopen webaslan %webaslan }
      else { /echo $color(info text) -at Kullanımı /webaslan webadresi | halt }
    }
    else if $1 {
      set %webaslan $replace($gettok($remove($1-,http://),1,47),:,$chr(32))
      set %webaslan-page $+(/,$gettok($remove($1-,http://),2-,47),/canli.asp?grupid=0)
      unset %before-lines
      if !$sock(webaslan) { sockopen webaslan %webaslan }
    }
  }
  else {
    if $regex($1,^-n$) {
      var %x = $replace($2-,</td><td width=20 align=center>&nbsp;</td><td>,$chr(32),</td><tr bgcolor='#FFFFFF' vAlign=top><td width=20 vAlign=top align=right>,$crlf,</td><tr bgcolor='#EBE8E8' vAlign=top><td width=20 vAlign=top align=right>,$crlf,</td><td>,$chr(32))
      var %i = $regsub(%x,/(^[^<]*>|<[^>]*>|<[^>]*$)/g, $null ,%x) 
      return $remove(%x,$clrf,$cr,<br />,&nbsp;,&nb,sp;)
    }
    else if $regex($1,^-f$) { return $+(",$scriptdir,webaslan.tmp.txt") } 
    else if $regex($1,^-p$) { return $+(",$scriptdir,webaslan.pfl.txt") } 
    else if $regex($1,^-o$) { return $+(",$scriptdir,webaslan.old.txt") } 
  }
}
on *:sockopen:webaslan:{
  if ($sockerr) { return }
  write -c $webaslan(-f)
  sockwrite -n $sockname GET %webaslan-page HTTP/1.1 $crlf
  sockwrite -n $sockname User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322) $crlf
  sockwrite -n $sockname Accept: */* $crlf
  sockwrite -n $sockname Host: $gettok(%webaslan,1,32) $crlf
  sockwrite -n $sockname Connection: Keep-Alive $+ $crlf $+ $crlf
}
on *:sockread:webaslan:{
  var %header
  sockread %header
  write $webaslan(-f) $webaslan(-n,%header)
}
on *:sockclose:webaslan:{
  var %sline, %i
  %i = $calc(15 + ($lines($webaslan(-f)) - $lines($webaslan(-o))))
  write -c $webaslan(-p)
  while %i > 15 {
    write $webaslan(-p) $read($webaslan(-f),%i)
    dec %i 1
  }
  .copy -o $webaslan(-f) $webaslan(-o)
  if $file($webaslan(-p)).size > 0 { .play #skor $webaslan(-p) 3500 }
}
on *:join:#skor: { if $nick == $me { .timer 0 $calc(3 * 60) webaslan } }