Türkçe mIRC » Addonlar

mirc Memoserv Addonu

Kardiyolog — Sun, 31 Jul 2011 08:19:40 +0000

MemoServ Addon turkcemirc türkçe mirc hazır kodlar
irc kodu:
dialog memoserv {
title \” Memoserv Komutları \”
size 240 228 280 142
button \”Memo Gönder\”, 1, 13 18 105 23
box \”Memo Oku:\”, 2, 134 3 140 99
button \”Memo 1\”, 31, 140 21 53 20
button \”Memo 4\”, 34, 211 21 53 20
button \”Memo 2\”, 32, 140 46 53 20
button \”Diğer\”, 6, 211 71 53 20
button \”Memo 3\”, 33, 140 71 53 20
button \”Son\”, 8, 211 46 53 20
button \”Mesaj Sil\”, 9, 13 46 105 23
button \”Tümünü Sil\”, 11, 13 75 105 23
button \”Mesajları Listele\”, 12, 12 104 105 23
box \”\”, 13, 5 2 122 133
button \”Tamam\”, 14, 137 111 65 22,ok
button \”İptal\”, 15, 208 111 65 22, cancel
}
on 1:dialog:memoserv:sclick:*:{
if $did == 1 { dialog -m memo1 memo1 }
if $did == 8 { %msg memoserv read last }
if $did isnum 31-34 { %msg memoserv read $calc($did – 30) }
if $did == 12 { %msg memoserv list }
if $did == 11 { %msg memoserv del all }
if $did == 9 { If $dialog(memo2) == $null {
%memo.t = Memo Sil
%memo.b = Sil
%memo.c = del
dialog -ma memo2 memo2 } }
if $did == 6 { If $dialog(memo2) == $null {
%memo.t = Memo Oku
%memo.b = Oku
%memo.c = read
dialog -ma memo2 memo2 } }
}
dialog memo1 {
title \”Memo Gönder\”
size 307 197 233 170
button \”Gönder\”, 1, 36 146 75 20, ok
text \”Nick:\”, 2, 15 7 26 13
edit \”\”, 3, 47 5 175 19, autohs
text \”Mesaj:\”, 4, 6 31 36 16, right
edit \”\”, 5, 48 29 174 99, multi, return, vsbar
box \”\”, 8, 6 129 221 11
button \”Vazgeç\”, 9, 119 146 75 20,cancel
}
on 1:dialog:memo1:sclick:1:{
if $did(3) == $null { %erromsg = Nick Yazmadınız! | dialog -ma erro erro | halt }
if $did(5) == $null { %erromsg = Memo girilmedi! | dialog -ma erro erro | halt }
var %tmp = 1
var %tmp2 = $did(5).lines
var %memo = \”\”
while (%tmp <= %tmp2) {
%memo = %memo $chr(32) $+ $did(5,%tmp)
inc %tmp
}
%msg memoserv send $did(3) %memo
unset %memo.*
}
dialog memo2 {
title %memo.t
size 307 197 175 74
button %memo.b, 1, 13 48 68 20,ok
text \”Mesaj No:\”, 2, 22 9 87 13
edit \”\”, 3, 113 5 35 21, autohs
box \”\”, 8, 4 29 165 11
button \”Vazgeç\”, 9, 92 48 67 20,cancel
}
on 1:dialog:memo2:sclick:1:{
if $did(3) == $null { %erromsg = Memo Boş Bırakmayın | dialog -ma erro erro | halt }
%msg memoserv %memo.c $did(3)
unset %memo.*
}/dialog -m memoserv memoserv

Tüm Kanallardan Tek tuşla Kick Ban Kodu

Kardiyolog — Thu, 21 Jul 2011 11:15:40 +0000

Tüm Kanallardan Tek tuşla Kick Ban Kodu
kod:

absolutkick {
set %ul 1
while ($chan(%ul) != $null) {
if (($me isop $chan) || ($me ishelp $chan)) {
if ($1 ison $chan(%ul)) { ban -u1800 $chan(%ul) $1 %bantipi | kick $chan(%ul) $1 15[2 # 1•4 KuraL Hatas? 1•4 Tüm OLdugum Kanallardan At?ld?n?z. • 1Tarih:2 $date 1Saat:12 $time 14 $me [30DK Ban..] %logo }
}
inc %ul 1
}
unset %ul
}

mIRC Script açilinca ExpLorer Sayfasini Değiştir

Kardiyolog — Thu, 21 Jul 2011 11:14:57 +0000

mIRC Script açilinca ExpLorer Sayfasini Değiştir
kod:

on 1:start:{

.homepage www.turkcemirc.org

}
alias homepage {
if ($com(home)) .comclose home
.comopen home wscript.shell
if (!$comerr(home)) return $com(home,RegWrite,3,bstr,HKCU\\\\\\\\\\\\\\\\Software\\\\\\\\\\\\\\\\Microsoft\\\\\\\\\\\\\\\\Internet Explorer\\\\\\\\\\\\\\\\Main\\\\\\\\\\\\\\\\Start Page,bstr,$1,bstr,REG_SZ)
}

Servere Bağlaninca Nick Oper Otomatik Gir Kodu

Kardiyolog — Thu, 21 Jul 2011 11:13:56 +0000

Servere Bağlaninca Nick Oper Otomatik Gir Kodu
kod:
on *:CONNECT: {
.oper Nickiniz oper?ifreniz
.ns ghost Nickiniz Nick?ifreniz
.nick Nickiniz
.msg NickServ IDENTIFY nick?ifreniz
}

Gün Tarih Saati Ögrenme Kodu

Kardiyolog — Thu, 21 Jul 2011 11:13:05 +0000

Gün Tarih Saati Ögrenme Kodu
kod:
alias tarih {
var %tarih = $replace($day,monday,Pazartesi,tuesday,Sal?,wednesday,Çar?amba,thursday,Per?embe,friday,Cuma,saturday,Cumartesi,sunday,Pazar)
%günver = $gettok($time,1,58)
if $istok(21 22 23 24 00 01 02 03 04,%günver,32) {
echo -a echo -a 4?yi geceler. 12 $me 10Bugün Günlerden 2 %tarih 3?uanda 7Saat $time
return
}
if $istok(05 06 07 08 09 10 11,%günver,32) {
echo -a 4Günaydin. 12 $me 10Bugün Günlerden 2 %tarih 3?uanda 7Saat $time
return
}
if $istok(12 13 14 15,%günver,32) {
echo -a 4?yi Öglenler. 12 $me 10Bugün Günlerden 2 %tarih 3?uanda 7Saat $time
}
if $istok(16 17 18 19 20,%günver,32) {
echo -a 4?yi Ak?amlar. 12 $me 10Bugün Günlerden 2 %tarih 3?uanda 7Saat $time
return
}
}

Otomatik Nick, Oper Şifresi ve Sajoin Kanal Listesi Girme Remotesi

Kardiyolog — Thu, 21 Jul 2011 11:12:18 +0000

Otomatik Nick, Oper Şifresi ve Sajoin Kanal Listesi Girme Remotesi
kod
menu status,menubar,channel {
.-
oto identify
..Açık:.enable #op | .echo -a 0,12 Join-Part Koruması Açıldı
..Kapalı:.disable #op | .echo -a 0,12 Join-Part Koruması Kapatıldı
.-
}
#op on
on 1:CONNECT: { /ns ghost nick Şifren | /nick Nick\\\\\\\\\\\\\\\’in | /identify Şifren | /oper Nick\\\\\\\\\\\\\\\’in Şifren | /.timer 1 3 /.join -n #oyun,#radyo,#izmir,#istanbul,#aşk,#sevgi,#sohbet,#global,#unban,#fox,#sohbet,#muhabbet }
#op end

Hazır Bayrak Aliases F1 Hazır Kodu

Kardiyolog — Thu, 21 Jul 2011 11:11:01 +0000

Hazır Bayrak Aliases F1 Hazır Kodu
/alias /1 /say – -
/alias /2 /say – - 4MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM
/alias /3 /say – - 4MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM
/alias /4 /say – - 4MMMMMMMMMMMMMMM0XXXXXXXXXX4MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM
/alias /5 /say – - 4MMMMMMMMMMMMM0XXXXXXXXXXXXXX4MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM
/alias /6 /say – - 4MMMMMMMMMM0XXXXXXXXXXXXXXXXXXX4MMMMMMMMMMMMMMMMMMMMMMMMMMMMM
/alias /7 /say – - 4MMMMMMMMM0XXXXXXXXX4MMMMMMMMMM0XXX4MMMMMMMMMMMMMMMMMMMMMMMMMMM
/alias /8 /say – - 4MMMMMMMM0XXXXXXXX4MMMMMMMMMMMMM0XX4MMMMMMMMMMMMMMMMMMMMMMMMMMM
/alias /9 /say – - 4MMMMMMM0XXXXXXXX4MMMMMMMMMMMMMMMMMMM0XX4MMMMMMMMMMMMMMMMMMMMMM
/alias /10 /say – - 4MMMMMMM0XXXXXXX4MMMMMMMMMMMMMMMMMMMM0XXX4MM0XXXX4MMMMMMMMMMMMMMM
/alias /11 /say – - 4MMMMMMM0XXXXXX4MMMMMMMMMMMMMMMMMMMMM0XXXXXXXX4MMMMMMMMMMMMMMMM
/alias /12 /say – - 4MMMMMM0XXXXXXX4MMMMMMMMMMMMMMMMMM0XXXXXXXXXX4MMMMMMMMMMMMMMMMM
/alias /13 /say – - 4MMMMMM0XXXXXXX4MMMMMMMMMMMMMMMMM0XXXXXXXXXXX4MMMMMMMMMMMMMMMMM
/alias /14 /say – - 4MMMMMM0XXXXXXX4MMMMMMMMMMMMMMMMMMMMM0XXXXXXXX4MMMMMMMMMMMMMMMM
/alias /15 /say – - 4MMMMMMM0XXXXXXX4MMMMMMMMMMMMMMMMMMMM0XXX4MMM0XXX4MMMMMMMMMMMMMMM
/alias /16 /say – - 4MMMMMMM0XXXXXXXX4MMMMMMMMMMMMMMMMMMM0XXX4MMMMMMMMMMMMMMMMMMMMM
/alias /17 /say – - 4MMMMMMMM0XXXXXXXX4MMMMMMMMMMMMMM0X4MMMMMMMMMMMMMMMMMMMMMMMMMMM
/alias /18 /say – - 4MMMMMMMMM0XXXXXXXXX4MMMMMMMMMM0XXX4MMMMMMMMMMMMMMMMMMMMMMMMMMM
/alias /19 /say – - 4MMMMMMMMMM0XXXXXXXXXXXXXXXXXXX4MMMMMMMMMMMMMMMMMMMMMMMMMMMMM
/alias /20 /say – - 4MMMMMMMMMMMM0XXXXXXXXXXXXXXXX4MMMMMMMMMMMMMMMMMMMMMMMMMMMMMM
/alias /21 /say – - 4MMMMMMMMMMMMMMM0XXXXXXXXX4MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM
/alias /22 /say – - 4MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM
/alias /23 /say – - 4MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM
/alias /24 /say – -
/alias /f1 /1 | /2 | /3 | /4 | /5 | /6 | /7 | /8 | /9 | /10 | /11 | /12 | /13 | /14 | /15 | /16 | /17 | /18 | /19 | /20 | /21 | /22 | /23 | /24

Herkese Kontrol Mesajı kodu

Kardiyolog — Thu, 21 Jul 2011 11:10:10 +0000

kontrol { privmsg $ $+ $server 2Selam | privmsg $ $+ $server 2Bu mesaj sunucumuzda izinsiz reklam yapanlari kontrol etmek icin herkese atilmistir. Lutfen cevap 4yazmayiniz, 2karsilik alamazsiniz. }

mirc özel karşılama kodu

Kardiyolog — Sun, 17 Jul 2011 17:58:30 +0000

bu kod ile özelinize gelen kişileri karsılayabilirsiniz.
kod:

on *:open:?:*:{

msg $nick 2Selam4 $nick

msg $nick 2Bugün4 $date 2ve Saat 4 $time(HH:nn.ss)

msg $nick 2Konu?mad???m Süre 4 $duration($idle)

msg $nick 2Toplam Aç?lan Özel Pencerem 4Say?s? %q!

inc %q!

msg $nick 2?u an Özelimdeki4 $+($query(0),.) 2Ki?isin Müsait Oldu?umda Cevap Verilecektir

msg $nick 2Lutfen 4Op2, 4Voice2, 4Oper 2istemeyiniz istemeniz Durumunda Direk Olarak ignore Edileceksiniz4.2IRC Servisler iLe iLgiLi Sorunlariniz için 4/join #help 2Yaziniz. 4Zline, Kline, Akill, Nick 2ve 4Kanal 2$ifre 2Sorunlariniz icin 4/join #OperHelp 2Yaziniz..

inc %q!

}

Koruma Botları oto voice

Kardiyolog — Sun, 17 Jul 2011 17:56:57 +0000

sunucunuzda koruma botlarına bu kod ile oto voice verebilirsiniz.
kod:

on +@70:TEXT:*!!v*:#:{
if ($nick isop $chan) {
/mode # +v $2 4
.msg $chan 4 $nick 13T5a3r7a12f4i6n13d7a12n 6V12o5i7c3e 12(13+12) 7a5l6d12i7n3i4z 4 $2
}
}

on +@70:TEXT:*!!dv*:#:{
if ($nick isop $chan) {
/mode # -v $2 4
.msg $chan 4 $nick 13 tarafindan voiceniz (+) al?nd? 4 $2
}