On *:text:!ruya*:*:{
  if $sock(py) { msg $chan 3:-4Şu anda başka bir ruya yorumu alınıyor lütfen daha sonra tekrar deneyiniz. | halt }
  set %py $2
  set %kn msg $nick
  py
}
alias ruya {
  set %py $1 | set %kn echo -a | py 
}
alias py { 
  .remove ruya.txt
  .timer 1 2 sockopen py www.ruyagormek.com 80
}
on *:sockopen:py:{
  sockwrite -n $sockname GET /ruyatabiri/ $+ %py $+ .html HTTP/1.1
  sockwrite -n $sockname Host: www.ruyagormek.com
  sockwrite -n $sockname $crlf
}
on *:sockread:py:{
  var %data
  sockread %data
  if <blockquote><p> isin %data {
    set %rk $ayr(%data)
    write ruya.txt %rk 
    cl
  }
}
alias cl  {
  var %h $len($read(ruya.txt,1)) | set %gt $gettok($calc($calc(%h / 100) + 1),1,46) | ty
}
alias ayr {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/gi,$null,%x), %x = $remove(%x,&nbsp;)
  return %x
}
alias ty  { var %v 10 | set %s 1 | var %ft 1, %x 1, %d 1
  set %t $gettok($read(ruya.txt,%s),0,32)
  var %ff $left($gettok($read(ruya.txt,%s),0,32),1)
  while %x <= %t {
    .timer 1 %ft %kn $gettok($read(ruya.txt,%s), $+ %x $+ - $+ %v $+ ,32) | var %ft $calc(%ft + 3)
    var %v $calc(%v + 10)
    if (%ff == %d) { .timer 1 %ft gh }
    inc %x 10
    inc %d
  }
}
alias gh {
  set %s $calc(%s + 1)
  set %t $gettok($read(ruya.txt,%s),0,32)
  tg
}
alias tg {
  var %ft 1, %v 10, %i 1, %ı 1
  var %ff $left($gettok($read(ruya.txt,%s),0,32),1)
  while %i <= %t {
    .timer 1 %ft %kn $gettok($read(ruya.txt,%s), $+ %i $+ - $+ %v $+ ,32) | var %ft $calc(%ft + 3)
    var %v $calc(%v + 10)
    if (%ff == %ı) { .timer 1 %ft gh }
    inc %i 10
    inc %ı
  }
}