mIRCbuL.Net Türkçe mIRC indir

Arkadaslar bu konumuzda da gerekli mirc komutlarini yazicam.

/ajinvite [on | off] : Davet edildiğimiz kanala otomatik girme komutudur. Kullanım şekli /ajinvite on şeklindedir. Bu şeklide on yaptığımzda bizi her davet edilen kanala mIRC programı otomatik sokacaktır.

/amsg <message> : Bulunduğumuz tüm kanallara düz yazı şeklinde mesaj atmamızı sağlar. Kullanımı /amsg mesajınız şeklindedir.

/anick <nickname> :Sunucuya bağlanırken eğer ki nickimiz kayıtlı değilse ya da kayıtlı nickimiz başkaları tarafından kullanılıyor ise alternative nick ayarlamamız gerekir. Yani girişte ayarladığımız nick kullanılıyorsa bu nicki kullanmamızı bu komut sağlayacaktır. Kullanımı /anick nickiniz şeklindedir.

/ban [-kruN] [#channel] <nickname|address> [type] : Sunucu ortamında atılan ban ile aynı görevdedir tek fark nick ident ve hostun tamamına ban koyar. Normal kullanımı /ban #kanal nick şeklindedir.Parametre olarak k r uN kullanılabilir.

-k; ban + kick şeklinde kanaldan kişiyi hem banlamamızı hem kicklememezi (atmamızı) sağlar.
Kullanımı : /ban -k #kanal nick

-r; Attığımız bir banı kaldırmamızı sağlar.
Kullanımı : /ban -r #kanal ( Sadece nick yazmamız kafi gelecektir. Ban hosta ve ident e atıldımasına rağmen sadece nick ile banı kaldırmamız mümkündür. )

-uN; Süreli ban atmaya yarar.
Kullanımı : /ban uNSaniye #kanal nick şeklindedir. ( Süre saniye cinsinden yazılmalıdır. )
Örneğim 2 dakika sonra kalk sonra kalkmasını isteğim ban için uN120 yazmalıyım. /ban uN120 #kanal nick

/channel [#channel] : Kanal penceresine çift tıklayınca açılan menüyü açmaya yarar. buradan Mouse yi kullanarak ban kaldırabilir, invite komutu uygulanmış ise onu kaldırabilir ve Excepts komutlarını kaldırabiliriz.
Kullanımı : /channel #kanalismi şeklindedir.

/clear : O anki aktif pencereyi tamamen temizlemeye yarar. Kanalsa , status yada özel penceresi ise /clear yapıldığı anda pencereyi temizleyip tertemiz yapacaktır.

/clearall : Bütüm Kanal, özelleri ve statüs pencelerisi temizler.

/close -m : Özel penceleri kapatmaya yarar.
Kullanımı : /close -m Bütün özelleri kapatır , /close -m nick sadece belirlenen nick kapatır.

/part : Kanaldan çıkmanızı saglar.
Kullanımı : /part #kanal , /part #kanal1,#kanal2,#kanal3,#kanal4

/join : Kanala girmenizi saglar
Kullanımı : /join #kanal , /join #kanal1,#kanal2,#kanal3,#kanal4

/partall : Bütün kanallardan çıkmanızı saglar.
Kullanımı : /partall

/leave : /part komutu ile aynı işlemi yapar.
Kullanımı : /leave #kanal

Whois : Bir kullanıcının biglilerine bakmak için kullanılır.
Kullanımı : /whois nick , /whois nick1,nick2,nick3

/msg : Özele yada kanala mesaj yollar.
Kullanımı : /msg nick mesajınız , /msg #kanal mesajınız vaya /msg nick1,nick2,nick3 mesajınız , /msg #kanal1,kanal2,kanal3 mesajınız

/ping : Yazı yazma zamanınızı ölçer. ( Kanal yada nick ile aranızdaki bilgi alış veirş hızı )
Kullanımı : /ping #kanal ( Kanaldaki herkezi pingler ) , /ping nick ( Sadece seçilen nick pingler )

/finger : Kişi hakkında nick, fullname, konuşmadıgı süre hakkında bilgi verir.
Kullanımı : /finger nick

/version : Kişinin sunucuya baglandıgı yazılım hakkında bilgi verir.
Kullanımı : /version nick

/dns : Kişi yada bir web sayfasnın ip hakkında bilgi verir.
Kullanımı : /dns nick , /dns sunucu.com

/away : Otomatik mesaj.
Kullanımı : /away mesajınız.

/run : Bir klasör yada web sayfası açmak için kullanılır.
Kullanımı : /run belge , /run www.site.com
Örnek : /run c: , /run www.shelltc.net

/server : Bir sunucuya baglanmak için kullanılır.
Kullanımı : /server irc.sunucu.com
/server irc.sunucu.com:port veya /server irc.sunucu.com port Port belirleyerek sunucuya giresiniz.
/server irc.sunucu.com password Şifreli sunuculara şifreli girişi saglar.
/server -m irc.sunucu2.com aynı mircte 2. sunucuyu açmayı saglar.

/exit : Scripti kapatmak için kullanırlır.
Kullanımı : /exit

/quit : Bulundugunuz sunucudan ayrılmanızı saglar.
Kullanımı : /quit

Ctrl + K : Yazılara renk vermek için kullanılır.
Kullanımı : Ctrl + K bastıgımızda önümüze renk penceresi gelir oradan bir renk seçerek bu işlemi yapabiliriz yada aşagıdaki renk kodelerini kullanabiliriz.
Renk kodeleri :
00 : Beyaz
01 : Siyah
02 : Lacivert
03 : Yeşil
04 : Kırmızı
05 : Kahverengi
06 : Mor
07 : Turuncu
08 : Sarı
09 : Açık Yeşil
10 : Turkuaz
11 : Açık Mavi
12 : Mavi
13 : Açık Pembe
14 : Koyu Gri
15 : Gri

Ctrl +K basıp bir renk seçtigimizde yazımız tek renkli olur.
Örnek : Ctrl + K 03 Yaptıgımızda 03 Şeklinde bir ifade önümüze çıkar.
08Selam yazdıgımızda; Selam Şeklinde yazımız kanal yada özele çıkar.

Bu komutla çift renkte yapmamız münkündür Ctrl + K 08,01 yaptıgımızda yazının alt fonu siyah , yazının kendiside sarı olacaktır. Yani Selam Şeklinde olacaktır.

Ctrl + u : Yazıların altına çizgi çeker.
Kullanımı : Ctrl + u yazını.
Örnegin : Selam

Ctrl + b : Yazdıgınız yazıyı kalınlaştırır.
Kullanımı : Ctrl + b yazını.
Örnegin : Selam

Ctrl + r : Yazdıgınızda yazı siyah zemin üzerine beyaz şekilde yazılır.
Kullanımı : Ctrl + r yazını.
Örnegin : Selam

Ctrl + w : Kanallar arası geçişi saglar
Kullanımı : Ctrl +w Basın elinizi w çekin bir daha basın istediginiz kanala gelen bu işleme devam edin.

Ctrl + q : Özeller arası geçişi saglar
Kullanımı : Ctrl +q Basın elinizi q çekin bir daha basın istediginiz kullanıcın özeline gelen bu işleme devam edin.

Ctrl + l : Bu komutu kanalda kullanırsanız kanalda yapılan en son işlemden önce kırımızı bir çizgi çıkar, özelde yaparsanız en son özele bakmadıgınız anda yazılan yazıyı gösterir böylece kaldıgınız yeri unutmamış olursunuz.
Kullanımı : Ctrl + l yazını.

Ctrl +f : Komutu ile rahat kolay ve hızlı arama yaparsınız.
Kullanımı : Ctrl + f bastıgınızda önünüze çıkan pencereye metin yazarak aratırsınız.

Ctrl + tab : Kanal ve Özeller arasında geçiş yapamızı saglar. ctrl +w ve ctrl +q birleşmiş halidir.
Kullanımı : Ctrl + tab Basın elinizi tab çekin bir daha basın istediginiz kanalı yada kullanıcın gelen kadar bu işleme devam edin.

Harf + Tab : Kanaldaki kullanıcı adlarını yazı yazma cubuguna otomatik getirir.
Kullanımı : Harf + Tab Kolay ve hatasız şekilde kişin nickkini yazı yazma sekmesine getirebilirsiniz. Istediginiz nick gelene kadar eliniz tab tuşuna basın çekin.

Tab : Kanaldaki kişiye hızlı bir şekilde özel mesaj atabilirsiniz.
Kullanımı : Tab . Istediginiz kişiye gelene kadar eliniz tab tuşuna basın çekin.

---

Alt + l : Kanal listesi
Alt + r : Script editörü
Alt + s : Dosya gönderme
Alt + c : Dcc chat
Alt + b : Adres defteri , Kullanıcılara özel renk vb kullanıcı özellikleri
Alt + ı : Online zamanlayıcı
Alt + g : İşaretleyici
Alt + o : Kanal ayarları
Alt + n : Notify list
Alt + u : Url list
Alt + k : mIRC renk menü
Alt + e : Scripte kayıtlı serverleri gösterir seçme olanagı saglar.

Kolay gelsin arkadaslar.

Kanal Topic ve Görevli Bilgi Verme Addonu

Bu kod her girdiğiniz kanalın topic bilgilerini ve kanal görevli bilgilerini size detaylı olarak sunuyor. Yapmanız gereken tek şey kodu alt+r yaparak mircinizde remoteler kısmına eklemeniz.

on *^:Join:#:{
if ($nick == $me) {
echo $chan 5 ~ X Script ~ 6[ 4 $+ # 2Kanalına Girdiniz6 ] | halt
}
}
raw 332:* {
echo $2 5 ~ X Script ~ 6[4 $2 $+ $+ 6 ] [4 Topic 6] 2= 6[ $3- $+ 6 ]
halt
}
raw 333:* {
echo $2 5 ~ X Script ~ 6[ 4Kanalın Kuruluş Tarihi 6] 2=6 [2 $asctime($4) 6]
echo $2 5 ~ X Script ~ 6[ 4Topic Kurucusu6 ] 2= 6[2 $3 6]
halt
}
raw 366:*: {
echo 10 $2 5 ~ X Script ~ 6[ 2Kanaldaki Op Sayısı :4 $opnick($2,0) 6] [2 Voice Sayısı:4 $vnick($2,0) 6] [ 2Toplam:4 $nick($2,0) 2Kişi Bulunmaktadır 6] }
echo 10 -s 5 ~ X Script ~ 6[ 2Kanaldaki Op Sayısı :4 $opnick($2,0) 6] [2 Voice Sayısı:4 $vnick($2,0) 6] [ 2Toplam:4 $nick($2,0) 2Kişi Bulunmaktadır 6] }
echo -s 10 $str(¯,60)
halt

}

Paylaşan : Ayaz

Değerli mIRCBuL.Net kullanıcıları. Benden son zamanlarda serverda en çok istenilen komutları / addonları sizlerle paylaşayım.

Bir arkadaşım dediki benim iki tane nick’im var, birinine seslenince bana seslenen’e bir mesaj, diğer nick’e geçtiğimde ona seslendiklerinde başka bir güzel mesaj notice atayım. Sitene girdiğimde de otomatik kendi #adana kanalıma gireyim ve setnamem değişsin ve adana kanalıma gelenlere hoşgeldin, gidenlere güle güle diyim dedi.

Bende tamam yapalım dedim ve yaptıklarımız aşağıda.

on *:text:*surgun_sevdam*:*: { /notice $nick  4,1Gid€ne ÜzüLm£ S€vseyDi Gitm£zDI, G€Lene S£vinme O da ßaSkaSInDan G€Ldi… ßugün S€nI D€Li GißI S£v£n DÜN ßaSkaSInin uGRuna ÖL€c€k 0,1…
}
on *:text:*asiiii*:*: { /notice $nick  4,1Sen asi gönüllerin son durağı olamassın 0,1…
}
on *:connect:{ /setname 4,1߀nkI 14,1sürgün 4,1s€vDaLardayIm0,1 ..
/join #adana
}

on *:join:#adana:{  /notice $nick Hoşgeldiniz $nick

}

on *:part:#adana:{ /notice $nick Güle güle $nick

}

Yazan: Ayaz

Kişiye Özel Host ve İdent Verme Addonu.

Benim kullandığım bir kodu örnek vericem. LiderChat yönetimizden Kustah nick’li oper’imiz askerde suan komando olarak görevini yapıyor. Bende izinlere geldiğinde ona özel host ident mirc addonu yaptım ve onu kullanıyor.

Host İdent Kodu:

on *:text:*!kustah*:*:{ .chghost Kustah ndo
.chgident Kustah Kom
}

Kustah (Kom@ndo)

şeklinde görülüyor.

Badident Koruması mIRC Addonu – Kodu

Değerli mIRC kullanıcıları. Şimdi sizler için badident korumasını sunacağız.

on @*:JOIN:#:{
if (*!*fuck*@* iswm $fulladdress) || (*!*yarak*@* iswm $fulladdress) || (*!*Amcik*@* iswm $fulladdress) || (*!*Orosp*@* iswm $fulladdress) { .ban $chan $nick 0 | .kick # $nick $+ # Badident kullanmak yasaktır. }
}

Yukarıdaki kod’u aynı şekilde bir çok badident daha ekliyebilirsiniz. mIRC kodunu alt+r yaparak remotelerinize ekleyiniz.

Hazır Küfür Koruması mIRC Addonu Kodu

Değerli mirc kullanıcılarımız. İşte sizlere süper bir küfür koruması addonu.

Kod:

on 1:TEXT:*:#: {
if $me !isop $chan { halt }
if $nick isop $chan { halt }
if (fuck isin $1-) || (AMINA isin $1-) || (orrospu isin $1-) || (Goyim isin $1-) || (bacın isin $1-) || (AMINI isin $1-) || (kavat isin $1-) || (sike isin $1-) {
.mode $chan +b $wildsite | .kick $chan $nick Kanalda küfür etmek yasaktır. }
}

Bu kodu mircinizde alt+r yaparak remoteler kısmıne  ekleyiniz.

Tags: küfür koruması, mirc küfür koruması, argo koruması, mirc argo koruması, argo küfür koruması, mirc korumaları

Uzun Yazı Koruma Addonu

Değerli mIRC kullanıcıları, sizlere yakın zaman önce mIRC Addonları kategorisine eklediğim uzun yazı mirc korumasını vermiştim, fakat benimkisi sürekli açık, sadece /remote off yaptığınızda kapanıyor. Şimdi vericeğim ise farklı kanal menüsünden otomatik kapatıp açabiliyorsunuz korumayı.

Uzun Yazı mIRC Koruması

menu status,menubar,channel {
.-
.» Uzun Yazi Koruması
..Acık:.enable #Longtext | .echo -a 4 Uzun Yazi Koruması Açıldı 
..Kapalı:.disable #Longtext | .echo -a 4 Uzun Yazi Koruması Kapatıldı 
.-
}
#longtext on
on @*:TEXT:*:#:{
set -u1200 %lt. [ $+ [ $address($nick,3) ] ] $calc( %lt. [ $+ [ $address($nick,3) ] ] + 1)
if (%lt. [ $+ [ $address($nick,3) ] ] == 1) {
if $me !isop $chan { halt }
if $nick !isop $chan { halt }
if ($len($strip($1-)) > %lenght) {
.cs akick # add $nick $+ !*@* 1,9 ~ Uzun Yazı Koruması ~ 9,1 %Lenght 1,9 ~ Harften Fazla Yazamazsınız! ~ 
.cs akick # enforce
.cs akick # del $nick $+ !*@*
}
}
if (%lt. [ $+ [ $address($nick,3) ] ] >= 2) {
if $me !isop $chan { halt }
if $nick !isop $chan { halt }
if ($len($strip($1-)) > %lenght) {
/msg chanserv akick # add $nick $+ !*@* 1,9 ~ Uzun Yazı Koruması ~ 9,1 %Lenght 1,9 ~ Harften Fazla Yazamazsınız! ~ 
/msg chanserv akick # enforce
/msg chanserv akick # del $nick $+ !*@*
unset %lt. [ $+ [ $address($nick,3) ] ]
}
}
}
#longtext end

mIRC kodunu txt metin belgesi içine atıp,belgenin ismini uzunyazi yapın ve mirc klasörünün içine atınız. mIRC’î açıp yüklemek ve silmek için aşağıdaki komutları kullanın.

Yüklemek için:

/load -rs uzunyazi.txt yazın

Silmek İçin:

/unload -rs uzunyazi.txt yazın

Bu kadar uğraşmam diyorsanız direk mirc’inizde alt+r yapın ve remotelerinize yerleştirin.

Saygılar: Ayaz

Tags: uzun yazı addonu, uzun yazı koruması, mirc korumaları, uzun yazı kodu, mirc uzun yazı koruması

Serverda / Sunucuda Tüm Lineleri Tek Tek Yani Ayrı Ayrı Açma mIRC Addonu – Kodu

Değerli mIRC kullanıcılarımız, serverda her yönetici farklı yöntem uygulayabilir, kimi ister tüm zlineleri açayım, kimisi ister glineleri veya klineleri açayım. Bunun için sizlere oper/admin line addonunu sunuyoruz.

mIRC Addonu. Oper/Adminler için.

alias RLN {
if ($1 = $null) {
echo -a Eksik parametre
echo -a /Rln -z Zline acmak için
echo -a /Rln -k Kline acmak için
echo -a /Rln -g Gline acmak için
}
if ($1 = -k) {
set %t -k
.enable #Line
stats k
}
if ($1 = -z) {
set %t -z
.enable #Line
stats k
}
if ($1 = -g) {
set %t -g
.enable #Line
stats g
}
}
#Line on
raw 223*:*:{
if ($1 = z ) || (%t = -z ) {
if (!$window(@Line)) { .window -bLe @Line }
else { echo @Line Acılan: %t $+ Line 5 $+ $3 }
zline – $+ $3
}
if ($1 = k ) || (%t = -k ) {
if (!$window(@Line)) { .window -bLe @Line }
else { echo @Line Acılan: %t $+ Line 5 $+ $3 }
kline – $+ $3
}
if ($1 = g ) || (%t = -g ) {
if (!$window(@Line)) { .window -bLe @Line }
else { echo @Line Acılan: %t $+ Line 5 $+ $3 }
gline – $+ $3
}
halt
}
raw 219*:*:{
unset %t
.echo @line 14,2 %t $+ line işlemi tamam
.timer 1 1 .disable #Line
halt
}
#Line off

Paylaşan: Ayaz

Tags: oper admin mirc kodları, oper admin mirc addonlari, oper mirc addonu, admin mirc addonu, mirc addonlar, mirc kodları

Mass Gline mIRC Addonu (Herkese Gline)

Yönetiminde bulunduğunuz server’da aynı anda bir çok kişiye glinemi atmak istiyorsunuz?  şimdi sizlere sunacağız bu kodu. Mass Gline demek mass herkes anlamına gelir. Herkes’i gline seçeneği ile sunucudan atarsınız.

Mass Gline mIRC Kodunun Anlatımı:

mIRC’inize kodu tanıttıktan sonra Kanalda “Mass Gline” diye bir buton göreceksiniz bunun içerisindeki “Settings” butonu ayarlar butonudur. Buna bastığınızda iki tane kutucuk çıkacak birincisinde “10″ yazıyor olmalı bu kaç saatte bir listedeki nickleri cezalandıracağını belirler, aşşağısındaki bütük kutu ise sebep olarak ne yazıcağını belirler. Bu ayarları yaptıktan sonra Nick Listesinde bir nick seçip sağ tuşla tıklayıp listeye ekleyeceksiniz, eklenen nick siz bilgisayar başında yok iken bile belirlediğiniz saatte sürekli atılmayı deneyecektir.

Mass Gline mIRC Kodu:

on *:LOAD: {
echo -a * Mass Gline was loaded.
echo -a * Type /mass_gline to change settings.
set %gline.message [mass] bot/clone/spam.
set %gline.time 10
}

on *:UNLOAD: {
echo -a * Mass Gline was unloaded.
unset %gline.*
}

dialog mass_gline {
title “mass_gline”
size -1 -1 220 100
option dbu
box “Mass Gline Settings”, 1, 6 5 210 90
edit “”, 2, 15 30 50 10, autohs
edit “”, 3, 15 60 180 10, autohs
text “Gline time in days (eg: 10):”, 4, 15 20 70 10
text “Kill message:”, 5, 15 50 50 10
button “OK”, 6, 35 80 50 12, ok
}

alias mass_gline {
dialog -mrv mass_gline mass_gline
}

on *:DIALOG:mass_gline:EDIT:*: {
IF ($did == 2) {
set %gline.time $did($dname,2).text
}
IF ($did == 3) {
set %gline.message $did($dname,3).text
}
}

on *:DIALOG:mass_gline:INIT:0: {
did -a $dname 2 %gline.time
did -a $dname 3 %gline.message
}

menu menubar,channel {
Mass Gline
.Settings { mass_gline }
}

menu nicklist {
.Mass G $+ $chr(58) $+ LINE – 1-10 ( $+ %gline.time days): {
enable #massg
/timermassg 1 20 /disable #massg
IF ($1) && ($1 != $me) {
set -u20 %gline.nick1 $$1
whois $$1
}
IF ($2) && ($2 != $me) {
set -u20 %gline.nick2 $$2
whois $$2
}
IF ($3) && ($3 != $me) {
set -u20 %gline.nick3 $$3
whois $$3
}
IF ($4) && ($4 != $me) {
set -u20 %gline.nick4 $$4
whois $$4
}
IF ($5) && ($5 != $me) {
set -u20 %gline.nick5 $$5
whois $$5
}
IF ($6) && ($6 != $me) {
set -u20 %gline.nick6 $$6
whois $$6
}
IF ($7) && ($7 != $me) {
set -u20 %gline.nick7 $$7
whois $$7
}
IF ($8) && ($8 != $me) {
set -u20 %gline.nick8 $$8
whois $$8
}
IF ($9) && ($9 != $me) {
set -u20 %gline.nick9 $$9
whois $$9
}
IF ($10) && ($10 != $me) {
set -u20 %gline.nick10 $$10
whois $$10
}
}
}

#massg off
RAW 378:*: {
IF ($$2 == %gline.nick1) || ($$2 == %gline.nick2)  || ($$2 == %gline.nick3)  || ($$2 == %gline.nick4)  || ($$2 == %gline.nick5)  || ($$2 == %gline.nick6)  || ($$2 == %gline.nick7) || ($$2 == %gline.nick8)  || ($$2 == %gline.nick9)  || ($$2 == %gline.nick10) {
//gline *@ $+ $7 %gline.time $+ d $2 – %gline.message
}
}
#massg end

Bu mirc kodunu tek bir remote sayfasına ekleyiniz.

Not: Bu mirc kodu yapımcısı GothGirl nick’li yabancı bir mirc coder’dir, teşekkürlerimizi sunuyoruz.

Paylaşan: Ayaz

Tags: gline addonu, mass gline addonu, mass gline kodu, mirc kodları, mirc addonlar, kodlar, remoteler

Selam mIRC kullanıcıları. Şimdi sizler’e istediğiniz dil’i istediğiniz dil’e çevirebiliceğiniz süper bir sözlük mirc kodu vericeğim.

Dil’den Dile Çeviri mIRC Kodu

menu menubar,status,channel,query {
-
Translation v1.0 { dialog $iif($dialog(trans),-x,-md) trans trans }
-
}

;============================== DIALOG

dialog trans {
title “Translation v1.0″
size -1 -1 128 168
option dbu notheme
combo 1, 4 9 59 250, size drop
text “From:”, 2, 4 1 25 8
text “To:”, 3, 65 1 25 8
combo 4, 65 9 59 250, size drop
edit “”, 5, 4 29 120 52, multi return vsbar
text “Text:”, 6, 4 21 25 8
text “Translation:”, 7, 4 84 29 8
edit “”, 8, 4 92 120 52, read multi return vsbar
box “”, 9, -7 144 141 4
button “&Clipboard”, 10, 48 152 37 12
button “&OK”, 11, 85 152 37 12, ok
button “&Translate!”, 12, 4 152 37 12
}
on *:dialog:trans:sclick:1:{ %from = $did(1).seltext }
on *:dialog:trans:sclick:4:{ %to = $did(4).seltext }
on *:dialog:trans:sclick:10:{
var %a = 1
while (%a <= $did(8,0).lines) {
if (%a == 1) { clipboard $did(8,%a).text }
else { clipboard -a $+($chr(160),$did(8,%a).text) }
inc %a
}
}
on *:dialog:trans:close:0:{
unset %answer
unset %att
}
on *:dialog:trans:init:0:{
%att = 5
var %lng = ar,bg,zh-CN,zh-TW,hr,cs,da,nl,en,fi,fr,de,el,hi,it,ja,ko,no,pl,pt,ro,ru,es,sv
var %lng2 = Arabic,Bulgarian,Chinese (Simp.),Chinese (Trad.),Croatian,Czech,Danish,Dutch,English,Finnish,French,German,Greek,Hindi,Italian,Japanese,Korean,Norwegian,Polish,Portuguese,Romanian,Russian,Spanish,Swedish
var %a = 1, %b
while ($gettok(%lng2,%a,44)) {
%b = $ifmatch
did -a trans 1 %b
did -a trans 4 %b
if (%from == %b) { did -c trans 1 %a }
elseif (%to == %b) { did -c trans 4 %a }
inc %a
}
did -f trans 5
}
on *:dialog:trans:sclick:12:{
if (!$did(5).text || !$did(4).seltext || !$did(1).seltext || $did(4).seltext == $did(1).seltext) { beep | return }
unset %txt
var %a = 1, %b
while ($did(5,%a).text) {
%b = %b $ifmatch
inc %a
}
var %txt = $replace(%b,$chr(39),%!039,$chr(44),%!2C,$chr(35),%!32,!,%!31,$chr(36),%!24,’,%!27,$chr(40),%!28,$chr(41),%!29)
did -ra trans 8 Translating…
translate %txt
%att = 5
}

;============================== ALIASES

alias -l translate {
sockclose xtranslate
sockopen xtranslate google.com 80
sockmark xtranslate $1-
}
alias -l striphtml {
var %p = 1, %b = $remove($replace($1-,>,$+(>,$chr(32)),<,$+($chr(32),<,)),$chr(35),amp), %c
while ($gettok(%b,%p,32)) {
%c = $ifmatch
if (*&*;* iswm %c) {
var %g = $remove(%c,&,amp,#,1,2,3,4,5,6,7,8,9,0)
var %left = $gettok(%c,1,38)
var %right = $gettok(%c,2,59)
var %middle = $remove(%c,%left,%right,&,$chr(35),;)
%g = $replace(%g,;,$chr(%middle))
%b = $replace(%b,%c,%g) | %p = 0
}
elseif (*<* iswm %c || *</* iswm %c || *solid* iswm %c || *px* iswm %c || *:* iswm %c && $remove(%c,:) !isnum || */* iswm %c || *’* iswm %c || *&* iswm %c || *<*>* iswm %c || *=* iswm %c || *”* iswm %c || *>* iswm %c || $+(*,$chr(40),*) iswm %c || $+(*,$chr(41),*) iswm %c || $+(*,$chr(123),*) iswm %c || $+(*,$chr(125),*) iswm %c) { %b = $remove(%b,%c) | %p = 0 }
inc %p
}
return %b
}
alias -l endtranslate {
did -ra trans 8 Nothing found.
unset %a
}
alias -l checkfile {
if (%txt) {
did -ra trans 8 $striphtml($remove(%txt,$+($chr(32),$chr(32)),</textarea))
unset %txt
}
else { did -ra trans 8 Nothing found. }
}

;============================== EVENTS

on *:sockopen:xtranslate:{
var %lng = ar,bg,zh-CN,zh-TW,hr,cs,da,nl,en,fi,fr,de,el,hi,it,ja,ko,no,pl,pt,ro,ru,es,sv
var %from = $gettok(%lng,$did(trans,1).sel,44)
var %to = $gettok(%lng,$did(trans,4).sel,44)
if ($sockerr > 0 && $dialog(trans)) { did -ra trans 8 Socket error(s). Try again later. | return }
var %get = $+(http://translate.google.com/translate_t?&sl=,%from,&tl=,%to,&text=,$replace($sock($sockname).mark,$chr(32),+))
sockwrite -n $sockname GET %get HTTP/1.1
sockwrite -n $sockname Host: $+(www.google.com,$str($crlf, 2))
}
on *:sockread:xtranslate:{
if ($sockerr > 0 && $dialog(trans)) { did -ra trans 8 Socket error(s). Try again later. | return }
sockread -f 8096 &a
while ($sockbr > 0) {
if ($bfind(&a,1,id=suggestion>)) {
var %a = $ifmatch
bset -t &a %a $bvar(&a,%a,990000000).text
tokenize 32 $gettok($bvar(&a,%a,99000000000).text,2,62)
%txt = $1-
}
elseif ($bfind(&a,1,</textarea>)) {
%txt = %txt $gettok($bvar(&a,1,99000000000).text,1,60)
}
sockread 8096 &a
}
.timercheck -o 1 1 checkfile
}

Bu kodu remotelerinize ekleyiniz ve kanala sağ tıkladığınızda en alt’da çıkacaktır.

Tags: dil mirc kodu, sözlük mirc kodu, süper çeviri kodu, süper çeviri addonu, addonlar