tabiri yapabilen bir kod 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
Kod:
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 Rya Grmek, Rya Tabirleri, slami Rya Yorumu, Dini Rya Tabiri 80
}
on *:sockopen
y:{
sockwrite -n $sockname GET /ruyatabiri/ $+ %py $+ .html HTTP/1.1
sockwrite -n $sockname Host: Rya Grmek, Rya Tabirleri, slami Rya Yorumu, Dini Rya Tabiri
sockwrite -n $sockname $crlf
}
on *:sockread
y:{
var %data
sockread %data
if
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, )
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 %ı
}
}
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
Kod:
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 Rya Grmek, Rya Tabirleri, slami Rya Yorumu, Dini Rya Tabiri 80
}
on *:sockopen
sockwrite -n $sockname GET /ruyatabiri/ $+ %py $+ .html HTTP/1.1
sockwrite -n $sockname Host: Rya Grmek, Rya Tabirleri, slami Rya Yorumu, Dini Rya Tabiri
sockwrite -n $sockname $crlf
}
on *:sockread
var %data
sockread %data
if
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, )
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 %ı
}
}