mIRC Ruya tabircisi

Adından anlaşıldığı gibi ruya tabiri yapabilen bir dur
Amaçı ruyada görünenlerin ne manaya geldiğini yorumlamaktadır
Bilindiği gibi ruyaların coğu bilinc altıdır coğunlukla kesin bir yorum olamaz hiçbir zaman ruya hakkında

kullanımı kanalda veya özelde biri !ruya armut gibi ruyasında gördüklerini yazıp yanıt alabilir yanıtlar özele gelecektir kanalda banlanma ve rahatsız edici olmaması için

Kendi kullanımlarınız için ise /ruya bulut şeklinde kullana bilirsiniz

 

 

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

}

ruya {

set %py $1 | set %kn echo -a | py

}

py {

.remove ruya.txt

.timer 1 2 sockopen py www.ruyagormek.com 80

}

on *:sockopen:py:{

sockwrite -n $sockname GET /ruyatabiri/ $+ %py $+ .html /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

}

}

cl {

var %h $len($read(ruya.txt,1)) | set %gt $gettok($calc($calc(%h / 100) + 1)1,46) | ty

}

 

ayr {

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

return %x

}

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

}

}

gh {

set %s $calc(%s + 1)

set %t $gettok($read(ruya.txt,%s),0,32)

tg

}

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 %ı

}

}

Bir cevap yazın

E-posta hesabınız yayımlanmayacak.