mIRCbuL.Net Türkçe mIRC indir

Arkadaslar bir kac hazir kod paylasmak istiyorum.

Düşman kanal koruması

on *:join:#:{
set %nickler (%nickler,,32)
whois
}
raw 319:*#istemediginizkanal *:{
ban #sizinkanalınız $2
kick #sizinkanalınız $2 SEBEP
set %nickler (%nickler,$2,32)
}

Düşman listesine nick ekleme

on @shit:join:#:{
ban 2
kick 4Düşman Listemdesin…!
echo -a 12*** Düşman Listenizdeki 4 $+ 12 $+ Kanalına Girdi. Ve Atıldı.
}

alias shitlist { /dialog -m shitlist shitlist }
dialog shitlist {
title “mIRCBUL Script – Düşman Listesi”
size -1 -1 136 99
option dbu
box “Nick:”, 6, 66 0 68 97
button “Ekle(+)”, 4, 82 25 39 11
button “Kaldır(-)”, 10, 82 41 39 11
edit “”, 1, 70 8 61 10, autohs
button “&Tamam”, 3, 82 70 39 18, ok default
list 2, 5 3 57 83, size
; check “Düşman Listesi Aktif”, 5, 5 90 57 6
}
on 1:dialog:shitlist:init:0: {
unset %vo1
shitkontrol
}
on 1:dialog:shitlist:sclick:4: {
.auser shit (1)
did -a shitlist 2 (1)
; shitkontrol
}

on 1:dialog:shitlist:sclick:10: {
.ruser shit (2,(2).sel)
did -r shitlist 2
shitkontrol
}
alias shitkontrol {
goto shitlist
:shitlist
inc %vo1
if ((*,shit,%vo1) == ) { unset %vo1 | halt }
did -a shitlist 2 (*,shit,%vo1)
goto shitlist
}

Kick Sayacı&klıne sayacı

Kick Sayacı:

alias kick { kick $1- %kicksayac | kicksayac }

alias kicksayac {
if (%kicksayac == ) {
set %kicksayac 1
}
%kicksayac = %kicksayac + 1
halt
}

Kline Sayacı:

alias kline { kline $1- %klinesayac | klinesayac }

alias klinesayac {
if (%klinesayac == ) {
set %klinesayac 1
}
%klinesayac = %klinesayac + 1
halt
}

Memo Bilgi kutusu

;Memo geldiÄŸinde uyaran bir dialog.
dialog ms {
title “MemoServ Bilgi Kutusu”
size -1 -1 220 85
text “*** Yeni bir notunuz var.”,2,10 10 220 200
text “*** Okumak için tamam butonuna basınız.”,3,10 30 220 200
button “&Tamam”,4,70 50 85 25,ok
}
on ^*:notice:*yeni bir notunuz*:*:{
if ($nick == MemoServ) {
dialog -ma ms ms
halt
}
}
on 1:ACTIVE:*:{
if ($dialog(idrqm)) { dialog -v ms }
}
on 1:dialog:ms:sclick:4:/ms read last
}