bu kodu deneyerek yapın bende sorunsuz çalışıyor...
Kod: Kodu kopyalamak için üzerine çift tıklayın!
on *:sockopen:trsorgula: {
sockwrite -nt $sockname GET /1/ $+ %ymc_k $+ / HTTP/1.1
sockwrite -nt $sockname Host:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -nt $sockname $crlf
}
on *:sockread:trsorgula:{
var %i
sockread %i
if *SÖZLÜK ANLAMI* iswm %i {
msg $active 4Kelimeniz;2 %ymc_k
msg $active 4Sozluk Anlami;2 $duzlt($gettok($gettok($gettok($gettok(%i,3,$asc(")),5,$asc(/)),3,$asc(>)),1,$asc(<)))
}
}
on *:input:*: {
if $regex($1,/^([.!]s[oÖö]zl[üÜu]k)/Si) {
if !$2 { msg $active Hatalı Kullanım Sözcük Belirtmediniz. | return }
if $3- { msg $active Hatalı Kullanım Tek Kelimeden Oluşan Sözcükler Belirtin. | return }
set %ymc_k $2
sockclose trsorgula
sockopen trsorgula
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80
}
}
alias duzlt return $replace($1,•, ,ç,$chr(231),ö,$chr(246),ü,$chr(252),ı,$chr(253),ÅŸ,$chr(254),ÄŸ,$chr(240),İ,$chr(221),Å,$chr(222),Ç,$chr(199),ç,$chr(231),Ü,$chr(220),ö,$chr(246),Ö,$chr(214),ü,$chr(252),Ü,$chr(220),’,$chr(146),â,$chr(226),Ä,$chr(208), ,$chr(32))
on *:sockopen:trsorgula: {
sockwrite -nt $sockname GET /1/ $+ %ymc_k $+ / HTTP/1.1
sockwrite -nt $sockname Host:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -nt $sockname $crlf
}
on *:sockread:trsorgula:{
var %i
sockread %i
if *SÖZLÜK ANLAMI* iswm %i {
msg $active 4Kelimeniz;2 %ymc_k
msg $active 4Sozluk Anlami;2 $duzlt($gettok($gettok($gettok($gettok(%i,3,$asc(")),5,$asc(/)),3,$asc(>)),1,$asc(<)))
}
}
alias duzlt return $replace($1,•, ,ç,$chr(231),ö,$chr(246),ü,$chr(252),ı,$chr(253),ÅŸ,$chr(254),ÄŸ,$chr(240),İ,$chr(221),Å,$chr(222),Ç,$chr(199),ç,$chr(231),Ü,$chr(220),ö,$chr(246),Ö,$chr(214),ü,$chr(252),Ü,$chr(220),’,$chr(146),â,$chr(226),Ä,$chr(208), ,$chr(32))