<< Önceki    Sonraki >>

Bu bir Çevirmenler Bir kişi konuşurken değil algılar senin bot için hedef dil ve denemek ne dedi otomatik translate.
Bu oldukça basit kullanma. Sadece yük ve sağ tıklayın Kanal pencereden açın. Yakında hızlı tepki vereceğini bot İngilizce olmayan birisi tür bir şey olarak olarak.

Örnek:
21:39:41 <@ Yönetici Compromesso al Senato: gestione private proprietà pubblica La Rete idrica è allo sfascio e ora si rischia di penalizzare i Comuni virtuosi Repubblica.it: il quotidiano online con Tempo Reale le notizie tutte.
21:39:42 Yönetici İngilizce konuşan olmayabilir! Çeviri it-tr Uzlaşma için Senato: Özel mülkiyet proprietpubblica su şebekesi içinde karmakarışık ve şimdi cezalandırmak için tehdit Belediyeler erdemli Repubblica.it: tüm haberleri Gazeteler online gerçek zamanlı.

Bunun için Ok oldukça büyük güncelleme script.
It’s artık sadece İngilizce için. Şimdi bir seçebilirsiniz hedef dil.
Ayrıca için değiştirildi multi-channel/multi-ağ yapılandırması.

; Otomatik Çevirmenler Ford_Lawnmower # ABD irc.mindforge.org tarafındanSohbet
menü Kanal (
. $ iif ($ gettok ($ nick (autotrans,$+($ ağ, $ chan)), 3,32) == & & $ grubunda (#AutoTrans) == On, $ style (1)) AutoTrans
.. On $ iif ($ group (# AutoTrans) == on, $ style (1)) Otomatik Trans Master / Kapalı: $ iif ($ group (# AutoTrans) ==. devre dışı bırakmak) # AutoTrans etkinleştirin. On
.. Otomatik Trans Kurulumu:iletişim $ iif ($iletişim(auto_translator),-v-m) auto_translator auto_translator
.. Yönet Istisnalar:iletişim $ iif ($ dialog (auto_translator_exclude),-v-m) auto_translator_exclude auto_translator_exclude
)
# AutoTrans On
* On: Metin :*:#: (
($ eğersayacı($ + (AutoTrans, $ ağı, $nick))) (
.sayacı $ + $ + (AutoTrans, $ ağı, $nick) 1 1 noop
if ($ gettok ($ nick (autotrans ,$+($ şebeke, $ chan)), 3,32) == On) & & ($Regex($ 1 ,/^[!.@.#.+./.:.-.+]/ S)) (
var% metin $ urlencode ($ ($ 1 -)) hariç
tokenize 32 $ nick (autotrans ,$+($ şebeke, $ chan))
AutoTrans $ 2 $ iif ($ 2 ==. Msg $ chan $ iif ($ 2 == Echo$ chan $ me)) $ iif ($ 4 ,$+(? 09 [? 04, $ nick,? 09]?), 0) $ langpair ($ 1), 1,32))% metin 0
)
)
)
* On: Eylem :*:#: (
($ eğersayacı($ + (AutoTrans, $ ağı, $nick))) (
. sayacı $ + $ + (AutoTrans, $ ağ, $ nick) 1 1 noop
($ gettok ($ nick (autotrans ,$+($ şebeke, $ chan)), 3,32) == On) (if
var% metin $ urlencode ($ ($ 1 -)) hariç
tokenize 32 $ nick (autotrans ,$+($ şebeke, $ chan))
AutoTrans $ 2 $ iif ($ 2 ==. Msg $ chan $ iif ($ 2 == Echo$ chan $ me)) $ iif ($ 4 ,$+(? 09 [? 04, $ nick,? 09]?), 0) $ langpair ($ 1), 1,32))% metin 0
)
)
)
# AutoTrans End
* On: giriş :#,?: (
if ($ ($ 1,2) == \ sol \) & & ($ctrlenter) (
haltdef
var% metin $ inputencode ($ 2 -)
AutoTrans me $ metin% 1 ($ 1, \ \) kaldırmak iif ($ chan, $ chan, $ nick) $ $ msg
)
)
Doğum ^ $ *:Hotlink: / \ [([a-zA-Z] (2)) \] – \ [([a-zA-Z] (2)) \ ]/:#,?:{
($ mouse.key == 16) & & if ($ input (Respond aracılığıyla Çevirmenler $ + ($ regml (2 ),-,$ regml (1)), yn)) (
($?=” eğer Lütfen metin girişi “) çevrilecek (
AutoTrans msg $ iif ($ chan, $ chan, $ nick) $ me $ regml (1) $ urlencode ($!) 1
)
)
halt
)
alias EchoAutoTrans (AutoTrans echo -a $ 1 -)
alias -l AutoTrans (
var% sockname $ + (AutoTrans, $ ağı, 3 $, $keneler, $ r (1, $keneler))
sockopen% sockname ajax.googleapis.com 80
sockmark% sockname $ 1-2 $ + (/ Ajax / hizmetler / dil / translate? v = 1.0 & q =, 5 $, & langpair = |, 4 $) 3 $ 6 $
)
*: Sockopen: Açık AutoTrans *: (
($ sockerr) (if
sockwrite-nt $ sockname $ gettok ($ sockname ($ sock GET). mark, 3,32) HTTP/1.1
sockwrite-n $ sockname Host: ajax.googleapis.com
sockwrite-n $ sockname $CRLF
)
else (echo-st Soket Hatası $NOPATH($script) |) Sockname | return $ sockclose
)
*: Sockread: Açık AutoTrans *: (
($ sockerr) (echo-st eğer Soket Hatası $NOPATH($script) |) Sockname | return $ sockclose
else (
var% AutoTrans | sockread% AutoTrans
($+(” detectedSourceLanguage “:”,$ gettok if ($ gettok ($) sockname ($ sock. mark, 3,32), -1.124), “)!ISIN % AutoTrans) (
if ($Regex(% AutoTrans, / “translatedText “:”(.*) \” [\ D] “”:”(.*)”[ \ D detectedSourceLanguage] (2) \ s /)) (
var% ülke $ regml (2),% metin $ ($ fixhtml ($ (1)) regml, yerinequot; “)
if ($ gettok ($) sockname ($ sock. mark, 5,32)) ($ chr ($). işareti ,1-2, 32)% metin sockname ($ sock | sockname | return $ sockclose)
elseif ($ matches (% text, $ recode ($ mid ($ gettok ($ gettok ($) sockname ($ sock. mark, 3,32), -2,38), 3 -)))) (
echo-a $ mid ($ gettok ($ gettok ($) sockname ($ sock. mark, 3,32), -2,38), 3 -)
$ gettok ($). işareti ,1-2, 32)? 06Translation sockname ($ sock? 07 $+([,% ülke ,]-[,$ gettok ($ gettok ($ ($) sockname çorap. mark, 3 , 32), -1.124 ),],?) $ &
$ iif ($ gettok ($) sockname ($ sock. mark, 4,32), $ chr ($ ($ sockname sock). mark, 4,32))% metin
sockclose $ sockname
geri
)
)
)
)
)
alias -l inputencode (return $regsubex($ strip ($ 1 -),/([^ a-z0-9]) / ig,% $ + $ base ($ asc (\ t), 10,16,2)))
alias-l (return $ hariçregsubex($ strip ($ 1 -),/( http: \ / \ / [\ S] (1,) | www \. [\ S] (1,)) / g, $null))
alias-l urlencode (return $regsubex($ 1 -,/([^ a-z0-9]) / ig, $ urlpairs ($ asc (\ t))))
alias-l recode ($ regsubex ($ 1 -,/%([ A-Fa-f0-9] (2)) / g, $ chr ($ base return (\ t, 16,10))))
alias-l fixhtml ($ yerine return ($ kaldır ($ regsubex ($ ($ regsubex ($ 1 -,/#([ \ d] [\ d] [\ d ]?);/ g, $ chr (\ t kaldır )),&, gt;, lt;) / \ \ u ([A-Fa-f0-9] (4)) / g, $ chr ($ base (\ t, 16,10 ))),& ,&)," “))
alias-l notrans (return $ iif ($ hfind (notrans, $ 1), 1,0))
alias-l maçlar (
var% $ numtok (1,32 $),% w x 1,% y 0,% z $ numtok (2,32 $)
(% x ise <=% z) (
if ($Istok($ 1, $ gettok ($ 2,% x 32), 32)) | | ($ notrans ($ gettok ($ 2,% x 32))) (inc% y)
inc% x
)
($ calc (% y /% w * 100)> = 80,0,1) $ iif dönmek
)
alias-l UrlPairs (
($ 1 <161) (if $+(%,$ baz ($ 1,10,16))) return
($ 1> = 161) & & ($ 1 <2048) (if $+(%,$ baz (return $calc(192 + $ div (1,64 $)), 10,16 ),%,$ baz ($calc(128 + $ mod (1,64 $)), 10,16)))
($ 1> = 2048) & & ($ 1 <65536) (if $+(%,$ baz (return $calc(224 + $ div ($ 1,4096)), 10,16 ),%,$ baz ($ calc (128 + $ mod ($ div (1,64 $), 64)), 10,16 ),%,$ baz ($ calc (128 + $ mod (1,64 $)), 10,16)))
)
alias-l div (return $ int ($ calc ($ 1 / $ 2)))
alias-l mod (
var% int $ int ($ calc ($ 1 / $ 2))
return $ calc ($ 1 – (% int * $ 2))
)
iletişim Auto_Translator (
Başlık “Otomatik Translator Kurulumu”
size -1 -1 118 126
seçeneği dBu
metin “Hedef Dil: “, 1, 4 9 45 8, sağ
metin “Ağ”, 2, 4 25 45 8, sağ
text “Kanal:”, 3, 4 42 45 8, sağ
metin “Output Type:”, 4, 4 59 45 8, sağ
Combo 5, 51 8 62 11, damla
6, 51 24 62 11, drop combo
7, 51 41 62 11, drop combo
8, 51 58 62 11, drop combo
9, 51 77 62 11, drop combo
metin “Konum: “, 10, 4 78 45 8, sağ
“, 11, 78 110 34 12 Kabul düğmesi”
düğmesi “Iptal”, 12, 39 110 34 12, iptal
kontrol “Show Kullanıcı adı”, 13, 63 97 50 10
)
iletişim Auto_Translator_Exclude (
Başlık “Otomatik Tercüman Hariç Yöneticisi”
size -1 -1 144 144
seçeneği dBu
text “Hariç”, 1, 4 7 27 8, sağ
metin “Istisnalar”, 2, 1 21 142 8, center
“”, 3, düzenleme 33 6 72 10, autohs
liste 4, 6 33 131 94, vsbar
düğmesi “”, 5, 107 5 29 12 ekle
düğmesi “Silmek”, 6, 50 130 37 12
düğmesi “Kapat”, 7, 97 130 37 12, iptal
)
*: Dialog: Auto_Translator_Exclude: AçıkSclick: 5,6: (
if ($) & & == 5 did ($ ($ diddname, 3). Metin) (hadd-m notrans $ v1 | did-r $dname 3)
if ($) & & == 6 did ($ ($ diddname, 4). Seltext) ( hdel notrans $ v1)
did-r $ dname 4
didtok $ dname 4 32 $ regsubex ($ str (. $ nick (notrans, 0). öğe ),/./ g, $ nick (notrans, \ n). öğe $ + $ chr (32))
)
*: Dialog: Auto_Translator_Exclude: Açıkinit: *: (
didtok $ dname 4 32 $ regsubex ($ str (. $ nick (notrans, 0). öğe ),/./ g, $ nick (notrans, \ n). öğe $ + $ chr (32))
)
on *: dialog: Auto_Translator:Sclick: 6,7,11: (
if ($) == 11 (did
tokenize $ ($ Dname, 5) did 32 $. Seltext $ ($ dname, 7) did ($ dname, 6) yaptı. Seltext. $ ($ Dname, $ ($ dname, 9) yaptı 8). Seltext yaptı seltext. seltext
hadd-m autotrans $ + ($ 1, $ chr (35), $ 2) $ 3 – $ ($ dname, 13) yaptı. devlet
dialog-x $ dname
)
if ($) == 6 (did
did-r $ dname 7
didtok 7 $ dname 35 $Chans($ ($ dname, 6) yaptı. seltext)
did-FC 7 $ dname 1
)
if ($ nick (autotrans ,$+($ ($ dname, 6) yaptı. seltext, $ chr (35), $ ($ dname, 7). seltext))) (did
var%karşılaştırmak $ V1
did-c $ dname 5 $ didwm ($ dname, 5, $ chr (%karşılaştırmak, 1,32))
did-c $ dname 8 $ didwm ($ dname, 8, $ chr (%karşılaştırmak, 2,32))
did-c $ dname 9 $ didwm ($ dname, 9, $ chr (% maç, 3,32))
$ iif ($ gettok (% maç, 4,32), did-c-u) $ dname 13
)
)
on *: dialog: Auto_Translator:init: *: (
didtok 5 $ 44, Afrikaans, Arnavutça, Amharik, Arapça, Ermenice, Azerice, Bask, Belarusça, Bengalce, BIHARI, Bulgarca, BIRMANYA DILI, Katalanca, CHEROKEE dname
didtok $ dname 5 44, CHINESE_TRADITIONAL, Hırvatça, Çekçe, Danca, Dhivehi, Hollandaca, İngilizce, Esperanto, Estonca, CHINESE_SIMPLIFIED ÇİN FILIPINO
didtok 5 $ 44 Fince, Fransızca, Galician, Gürcüce, Almanca, Yunanca, GUARANI, Gujarati, İbranice, HINTÇE, Macarca, İzlandaca, Endonezyaca, INUKTITUT dname
didtok 5 $ 44 İrlandaca, İtalyanca, Japonca, Kannada, KAZAK, TURKISH, Korece, Kürtçe, KIRGIZ, Litvanyaca, Letonca, Litvanyaca, Makedonca, MALAY, Malayalam dname
didtok $ dname 5 44 MALTESE, Marathi, Mongolian, nepali, NORVEÇ, Oriya, Peştuca, Farsça, Lehçe, Portekizce, Pencapça, Romence, Rusça, Sanskritçe, SIRPÇA
didtok $ dname 5 44 Sindhi, Sinhalese, Slovakça, Slovence, İspanyolca, Swahili, İsveççe, Tacikçe, Tamil, TAKALOTÇA, Telugu, Tayca, TİBET, Türkçe, Ukraynaca
didtok $ dname 5 44 Urduca, Özbekçe, Uygurca, Vietnamca, Galli, Yidiş
did-c $ dname 5 $ didwm ($ dname, 5, İNGİLİZCE)
var% $ ağlarıscon(0)
(% ağları) ise ( scon % ağları did-a $ dname 6 $! Network | Aralık% ağları)
did-c $ dname 6 $ didwm ($ dname, 6, $ ağı)
didtok 7 $ dname 35 $Chans($ ağı)
did-c $ dname 7 $ didwm ($ dname, 7, $ mid ($ aktif, 2 -))
didtok $ dname 8 44 Echo,. Msg. Bildirimi
did-c $ dname 8 1
didtok 9 $ 44 Açık, Kapalı dname
did-c $ dname 9 2
if ($ nick (autotrans ,$+($ şebeke, $ aktif))) (
var% $ v1 maç
did-c $ dname 5 $ didwm ($ dname, 5, $ chr (% maç, 1,32))
did-c $ dname 8 $ didwm ($ dname, 8, $ chr (% maç, 2,32))
did-c $ dname 9 $ didwm ($ dname, 9, $ chr (% maç, 3,32))
$ iif ($ gettok (% maç, 4,32), did-c-u) $ dname 13
)
)
alias-l LangPair (
var% return $ af, ARNAVUTÇA, sq, Amharik, am, ARAPÇA, ar, ERMENİ, HY, AZERİCE, AZ, Baskça, AB, Belarusça, olmak ($ 1 -, Afrikaans, yerine Bengali, BN, $ &
BIHARI, BH, Bulgaristan, bg, BIRMANYA DILI, benim, Katalanca, ca, CHEROKEE, chr, Çince, zh, CHINESE_SIMPLIFIED, CN, CHINESE_TRADITIONAL, TW, $ &
Hırvatça, saat, ÇEK, CS, Danca, da, Dhivehi, DV, Hollandaca, nl, İNGİLİZCE, en, Esperanto, eo, ESTONYA, et, FILIPINO, tl, Fince, fi, FRANSIZCA, fr, $ &
Galician, GL, Gürcü, ka, ALMANCA, de, Yunanca, el, GUARANI, GN, Gujarati, Gu, İbranice, iw, HINTÇE, merhaba, Macarca, hu, İzlandaca, $ & is
ENDONEZYACA, id INUKTITUT, iu, İrlandaca, GA, İTALYAN, o, ja, KANNADA, kn, KAZAK, KK, TURKISH, km, Korece, ko, Kürtçe, ku, KIRGIZ, KY) JAPON
(% dönmek, Litvanyaca, lo, Letonca, lv, Litvanyaca, lt, Makedonca, MK, MALAY, MS, Malayalam, ml, MALTESE, MT, Marathi, mr, Moğol, MN, nepali, ne, $ & yerine return $
NORVEÇ, hayır, Oriya, veya, Peştuca, PS, Farsça, fa, polish, pl, Portekizce, pt, Pencapça, PA, Romence, ro, RUSÇA, ru, Sanskrit, SA, $ &
SIRPÇA, SR, Sindhi,, SD Sinhalese, si, Slovakça, SK, Slovence, sl, İspanyolca, es, Swahili, sw, İsveççe, sv, Tacikçe, TG, Tamil, ta, TAKALOTÇA, tl, $ &
Telugu, te, Tayca, th, TİBET, bo, TÜRK, tr, Ukrayna, İngiltere, Urduca, ur, Özbek, uz, Uygur, UG, Vietnamca, VI, Galli, cy, Yidiş, Yi)
)
alias-l Chans ( scon $ netid ($ 1) return $! regsubex ($ str (. $ chan (0 )),/./ g, $ chan (\ n)))
alias-l netid (
var% netcount $ scon (0)
ise% netcount (
if ($ scon (% netcount). şebeke == $ 1) (return% netcount)
Aralık% netcount
)
)
*: Başlangıç: On (
hmake AutoTrans 5
hmake NoTrans 5
if ($ (AutoTrans.hsh)) (hload AutoTrans AutoTrans.hsh) var
if ($ (NoTrans.hsh)) (hload NoTrans NoTrans.hsh) var
)
On *: Disconnect: (
if ($ nick (AutoTrans)) (hsave AutoTrans AutoTrans.hsh)
if ($ nick (NoTrans)) (hsave NoTrans NoTrans.hsh)
)
* On:Exit: (
if ($ nick (AutoTrans)) (
hsave AutoTrans AutoTrans.hsh
hfree AutoTrans
)
if ($ nick (NoTrans)) (
hsave NoTrans NoTrans.hsh
hfree NoTrans
)
)
* On: Unload: (hfree AutoTrans | hfree NoTrans)

<< Önceki    Sonraki >>

PDF dökümanı olarak indir!	Arkadaşıma Gönder >>
Sizden önce 725 kişi okudu.

Toplam Oy : 0 Puan : 0

İlk yorumu yazan siz olmak ister misiniz?