Tekil Mesaj gösterimi
Alt 26 Kasım 2018, 21:13   #1
Çevrimdışı
diEfoRyoU
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Türkçe Ingilizce - Ingilizce Türkçe kelime ceviri kodlaması




/translate <Kelime>
yazdığınız kelime Türkçe ise İngilizce karşılığını verir. İngilizce ise Türkçe karşılığını verir.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias Translate { set %XPass 4,4.4,1 XPass 4,4. sockopen $+(trans_word*,$1)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 sockmark $+(trans_word*,$1) $+(tr/turkce-ingilizce/,$replace($1,Ü,u,ü,u,ç,c,Ç,c,Ö,o,ö,o,Ş,s,ş,s,İ,i,ı,i,ğ,g,Ğ,g)) } on *:sockopen:trans_word*:{ if $sockerr { echo -ag %Xpass 5 bağlantı sağlanamadı | halt } sockwrite -tn $sockname GET $+(/,$sock($sockname).mark) HTTP/1.1 sockwrite -tn $sockname User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/70.0.3538.102 Safari/537.36 sockwrite -tn $sockname Connection: keep-alive sockwrite -tn $sockname Host: tureng.com sockwrite -tn $sockname Content-Type: text/html sockwrite -tn $sockname $crlf } on *:sockread:trans_word*:{ var %t:word | sockread %t:word | tokenize 32 $left(%t:word,107) if *<ul class="suggestion-list">* iswm %t:word { unset %/total:word | echo -ag %XPass 5Hatalı kelime girişi yaptınız. Lütfen kelimeyi kontrol ediniz! | sockclose $sockname | return } if *<title>Tureng*-*-* iswm %t:word { set %/total:word $addtok(%/total:word,$+(4Kelime:5,$gettok($gettok(%t:word,2,45),1,45)),32) } if (*<td class="*" lang="*"><a* iswm %t:word) { inc %/count:word 1 | if %/count:word == 2 { set %/total:word $addtok(%/total:word,$+(4Cevirisi:5,$gettok($gettok($remove($replace(%t:word,','),<,>),-1,34),1,47)),32) echo -ag %XPass $replace(%/total:word,Ü,u,ü,u,ç,c,Ç,c,Ö,o,ö,o,Ş,s,ş,s,İ,i,ı,i,ğ,g) | unset %/count:word | unset %/total:word | sockclose $sockname } } }

Benim gibi Ingilizce merakı olan arkadaşların işine yarayacağını umut ederek yazdım.
Geliştirilebilir. Tabi kaynak site bazı kelimeleri çok anlamlandırdığı için istediğiniz yada beklediğiniz cevabı alamayabilirsiniz. Kaynak site arayışım devam ediyor, fırsat bulursam daha kapsamlısını yazmayı düşünüyorum.
Umarım işinize yarar

__________________
TurkSohbet.NET | #XPass
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları eglen sohbet reklamver