Mirc Rüya Tabiri Kodu

Mirc Rüya Tabiri Kodu

Mirc Rüya Tabiri Kodu Nasıl Çalışır?

Kanalda veya özelde biri “!ruya kelime” gibi rüyasında gördüklerini yazıp yanıt alabilir, yanıtlar özele gelecektir.

Kendi kullanımlarınız için “/ruya kelime” şeklinde kullana bilirsiniz.

Mirc Rüya Tabiri Kodu

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

 

admin 62
Cevap bırakın