| SeydiCan | 15 Ocak 2017 02:31 |
Ruya Tabirleri Koduna Yardım
Arkadaslar Biyerde Buldugum Kod Guzel Bir rüya tabiri kodu kod icindekı sitede online aktıf yanlız
Bir hata alıyorum IF dekı arkadaslar bır cozumu varsa yardımcı olur once aldıgım hataları paylasayım
Sonrasında kodu yaplasayım.
* /if: Yetersiz veya eksik parametre (Satır 22, script17.ini)
[01:26]» <SeydiCan> !ruya armut
[01:26]» <SeydiCan> !ruya elma
[01:26]» <Ibot> :-Şu anda başka bir ruya yorumu alınıyor lütfen daha sonra tekrar deneyiniz.
ruya armut yazıyorm hıc bırsey ckmyor
arkasına !ruya elma dııyorm botun sadece yazdıgı
<Ibot> :-Şu anda başka bir ruya yorumu alınıyor lütfen daha sonra tekrar deneyiniz. 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 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80
}
on *:sockopen:py:{
sockwrite -n $sockname GET /ruyatabiri/ $+ %py $+ .html HTTP/1.1
sockwrite -n $sockname Host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
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 %ı
}
}
| 