MircALem.gen.tr

alias dialoqon {
.dialog -m $1 $1
.hazirla $1
.timer 1 1 .play -s $+($1,.txt) 200
$+(.timer,$1) 0 1 .play -s $+($1,.txt) 200
}
on *:dialog:*:*:*:{
if ($devent == close) {
.play stop
$+(.timer,$dname) off
.remove $+($dname,.txt)
}
if ($devent == init) {
set %title $dialog($dname).title
}
}
alias hazirla {
var %i 1
while (%i < $calc($len(%title) + 1)) {
write $+($1,.txt) .dialog -t $1 $left(%title,%i)
if (%i == $len(%title)) { unset %title }
inc %i
}
}

Op teşekkür remotesi
on *:op:#: { if $opnick == $me { msg # $read(op.txt) } }
on *:voice:#: { if $voicenick == $me { msg # $read(voice.txt) } }
on *:halfop:#: { if $halfop == $me { msg # $read(halfop.txt) } }

alias telefonbanla { .mode $chan +b $nick | .kick # $nick 12 $+ $chan 3Kanalında 12Telefon Numarası 3Yazmak Yasak! %name }
#telefonpro off
on 1:text:0535*:#: { if $me !isop $chan { halt } | if $nick isop $chan { halt } | telefonbanla $nick }
on 1:text:0532*:#: { if $me !isop $chan { halt } | if $nick isop $chan { halt } | telefonbanla $nick }
on 1:text:0533*:#: { if $me !isop $chan { halt } | if $nick isop $chan { halt } | telefonbanla $nick }
on 1:text:0542*:#: { if $me !isop $chan { halt } | if $nick isop $chan { halt } | telefonbanla $nick }
on 1:text:0543*:#: { if $me !isop $chan { halt } | if $nick isop $chan { halt } | telefonbanla $nick }
on 1:text:0544*:#: { if $me !isop $chan { halt } | if $nick isop $chan { halt } | telefonbanla $nick }
on 1:text:0505*:#: { if $me !isop $chan { halt } | if $nick isop $chan { halt } | telefonbanla $nick }
on 1:text:0552*:#: { if $me !isop $chan { halt } | if $nick isop $chan { halt } | telefonbanla $nick }
on 1:text:0555*:#: { if $me !isop $chan { halt } | if $nick isop $chan { halt } | telefonbanla $nick }
on 1:action:0535*:#: { if $me !isop $chan { halt } | if $nick isop $chan { halt } | telefonbanla $nick }
on 1:action:0532*:#: { if $me !isop $chan { halt } | if $nick isop $chan { halt } | telefonbanla $nick }
on 1:action:0533*:#: { if $me !isop $chan { halt } | if $nick isop $chan { halt } | telefonbanla $nick }
on 1:action:0542*:#: { if $me !isop $chan { halt } | if $nick isop $chan { halt } | telefonbanla $nick }
on 1:action:0543*:#: { if $me !isop $chan { halt } | if $nick isop $chan { halt } | telefonbanla $nick }
on 1:action:0544*:#: { if $me !isop $chan { halt } | if $nick isop $chan { halt } | telefonbanla $nick }
on 1:action:0505*:#: { if $me !isop $chan { halt } | if $nick isop $chan { halt } | telefonbanla $nick }
on 1:action:0552*:#: { if $me !isop $chan { halt } | if $nick isop $chan { halt } | telefonbanla $nick }
on 1:action:0555*:#: { if $me !isop $chan { halt } | if $nick isop $chan { halt } | telefonbanla $nick }
on 1:notice:0535*:#: { if $me !isop $chan { halt } | if $nick isop $chan { halt } | telefonbanla $nick }
on 1:notice:0532*:#: { if $me !isop $chan { halt } | if $nick isop $chan { halt } | telefonbanla $nick }
on 1:notice:0533*:#: { if $me !isop $chan { halt } | if $nick isop $chan { halt } | telefonbanla $nick }
on 1:notice:0542*:#: { if $me !isop $chan { halt } | if $nick isop $chan { halt } | telefonbanla $nick }
on 1:notice:0543*:#: { if $me !isop $chan { halt } | if $nick isop $chan { halt } | telefonbanla $nick }
on 1:notice:0544*:#: { if $me !isop $chan { halt } | if $nick isop $chan { halt } | telefonbanla $nick }
on 1:notice:0505*:#: { if $me !isop $chan { halt } | if $nick isop $chan { halt } | telefonbanla $nick }
on 1:notice:0552*:#: { if $me !isop $chan { halt } | if $nick isop $chan { halt } | telefonbanla $nick }
on 1:notice:0555*:#: { if $me !isop $chan { halt } | if $nick isop $chan { halt } | telefonbanla $nick }
#telefonpro end

on *:kick:*: {
  notice $me $1- Channel: $chan Nick: $Knick
}
on *:ban:*: {
  notice $me kick $1- Channel: $chan Nick: $nick
}VN:F [1.1.8_518]


mIRC Scriptinizde konuşmalarin loglarini ( kayitlarini ) tutmaya yarayan bir koddur. Kullanimi /logs

Bekleyiniz...

Toplu Global Ban Açma Komutu

raw 223:*:{
kline - $+ $3
gline - $+ $3
zline - $+ $3
shun - $+ $3
}

/alias temizle stats k | stats g | shun


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.2­IRC­ 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!

/f1 /oper KuRaL xxxxxxxx | /nick KuRaL | /identify xxxxxxxx

sunucuya Girdiginizde Oto oper nick şifresi girmeye yardımcı olur.

Gline, Zline, Kline Açma Kodu

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 off
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 4,8 %t $+ line i?lemi tamam
.timer 1 1 .disable #Line
halt
}
#Line off
alias kzgac {
RLN -k
RLN -z
RLN -g
}
menu channel,status,menubar,query {
-
«¤» eXtRa
.«¤» [?]LineLar? Ac
..«¤» kLineLar? Ac:/rln -k
..«¤» ZLineLar? Ac:/rln -z
..«¤» GLineLar? Ac:/rln -g
..«¤» (z-g-k) Hepsini Aç:/kzgac


mIRC Fullname Takip Kodu Addonu

Bu kodu mIRC’nizde ALT tu?uyla beraber R harfine bas?p, aç?lan pencereye yap??t?rmal?s?n?z.

mIRC’nize yükledi?iniz takdirde mIRC’nizde sa? tu? t?klad???n?zda aç?lan sayfada “FRT” ba?l???yla görünecektir.

alias fn {

var %< $lines(mirc.txt)

while (0 < %<) {

if ($read(mirc.txt,%<) iswm $strip($1-)) {

msg #ali gzline $1 1w Mirc.

}

dec %<

}

}

on !@*:join:#: { fn }

alias sp { if (!$dialog(spam)) { dialog -m spam spam } }

dialog spam {

title “Fullname mirc takip”

size -1 -1 113 41

option dbu

button “Ç?kar”, 1, 6 14 37 12, flat

button “Ekle”, 2, 6 1 37 12, flat

combo 3, 51 1 60 39, size sort

button “KAPAT”, 4, 6 27 37 12, flat ok

}

on *:dialog:spam:init:0: {

loadbuf -o $dname 3 mirc.txt }

on *:dialog:spam:sclick:2: {

if (!$did(spam,3).text) {

echo 2 -a Lütfen eklenecek mirc? yaz?n?z. | halt }

elseif $read(mirc.txt,w,$did(3).text) {

echo 2 -a $did(spam,3).text listede zaten var. }

else {

write mirc.txt $did(spam,3).text

did -a $dname 3 $did(spam,3).text }

}

on *:dialog:spam:sclick:1: {

if (!$did(spam,3).text) {

echo 2 -a Silinecek mirc? seçmelisiniz. | halt }

elseif !$read(mirc.txt,w,$did(3).text) {

echo 2 -a $did(3).text mirc listesinde zaten yok. }

else { write $+(-dw,”,$did(3).text,”) mirc.txt

did -d $dname 3 $did(3).sel }

}

menu * {

FRT:sp

}