irc.komutlari

mIRC Muaf Listesini nasıl olacağını mIRCAra.net olarak tanıtalım.

alias MuafListesi { dialog -m koru koru }

dialog koru {
title “Ban Muaf Listesi”
size -1 -1 265 170
tab “Nickler”,9,5 5 255 140
tab “IP’ler”,100
tab “Yazılar”,200
tab “Kanallar”,300
button “Tamam”,2, 100 146 80 30, ok
box “Serbest Nickler”,1, 8 32 140 102, tab 9
list 3, 13 47 130 90, tab 9
box “Ayarlar ( Ekle/Sil )”,8, 152 32 102 102, tab 9
text “Nick: “,6, 157 47 35 15, tab 9
edit “”,5, 157 62 90 20, tab 9
button “Ekle”,4, 157 87 50 40, tab 9
button “Sil”,7, 209 87 40 40, tab 9
box “Serbest IP’ler”,101, 8 32 140 102, tab 100
list 103, 13 47 130 90, tab 100
box “Ayarlar ( Ekle/Sil )”,108, 152 32 102 102, tab 100
text “IP: “,106, 157 47 35 15, tab 100
edit “”,105, 157 62 90 20, tab 100
button “Ekle”,104, 157 87 50 40, tab 100
button “Sil”,107, 209 87 40 40, tab 100
box “Serbest Yazılar”,201, 8 32 140 102, tab 200
list 203, 13 47 130 90, tab 200
box “Ayarlar ( Ekle/Sil )”,208, 152 32 102 102, tab 200
text “Yazı: “,206, 157 47 35 15, tab 200
edit “”,205, 157 62 90 20, tab 200
button “Ekle”,204, 157 87 50 40, tab 200
button “Sil”,207, 209 87 40 40, tab 200
box “Serbest Kanallar”,301, 8 32 140 102, tab 300
list 303, 13 47 130 90, tab 300
box “Ayarlar ( Ekle/Sil )”,308, 152 32 102 102, tab 300
text “#Kanal: “,306, 157 47 35 15, tab 300
edit “”,305, 157 62 90 20, tab 300
button “Ekle”,304, 157 87 50 40, tab 300
button “Sil”,307, 209 87 40 40, tab 300
}

on 1:dialog:Koru:sclick:*: {
if ($did == 3) {
did -ra $dname 5 $did(3).seltext
}
if ($did == 103) {
did -ra $dname 105 $did(103).seltext
}
if ($did == 203) {
did -ra $dname 205 $did(203).seltext
}
if ($did == 303) {
did -ra $dname 305 $did(303).seltext
}
if ($did == 4) {
set %Korumali-Nick [ %Korumali-Nick ] $did(5)
did -a $dname 3 $did(5)
did -ra $dname 5
}
if ($did == 104) {
set %Korumali-IP [ %Korumali-IP ] $did(105)
did -a $dname 103 $did(105)
did -ra $dname 105
}
if ($did == 204) {
set %Korumali-Yazi [ %Korumali-Yazi ] $did(205)
did -a $dname 203 $did(205)
did -ra $dname 205
}
if ($did == 304) {
set %Korumali-Kanal [ %Korumali-Kanal ] $did(305)
did -a $dname 303 $did(305)
did -ra $dname 305
}
if ($did == 7) {
if ($did(3).sel > 0) {
set %Korumali-Nick $remtok(%Korumali-Nick,$did(3).seltext,32)
did -d Koru 3 $did(3).sel
did -ra $dname 5
}
}
if ($did == 107) {
if ($did(103).sel > 0) {
set %Korumali-IP $remtok(%Korumali-IP,$did(103).seltext,32)
did -d Koru 103 $did(103).sel
did -ra $dname 105
}
}
if ($did == 207) {
if ($did(203).sel > 0) {
set %Korumali-Yazi $remtok(%Korumali-Yazi,$did(203).seltext,32)
did -d Koru 203 $did(203).sel
did -ra $dname 205
}
}
if ($did == 307) {
if ($did(303).sel > 0) {
set %Korumali-Kanal $remtok(%Korumali-Kanal,$did(303).seltext,32)
did -d Koru 303 $did(303).sel
did -ra $dname 305
}
}
}

on *:dialog:Koru:init:*: {
var %a = 1
while ($gettok(%Korumali-Nick,%a,32)) {
did -a Koru 3 $gettok(%Korumali-Nick,%a,32)
inc %a
}
var %a = 1
while ($gettok(%Korumali-IP,%a,32)) {
did -a Koru 103 $gettok(%Korumali-IP,%a,32)
inc %a
}
var %a = 1
while ($gettok(%Korumali-Yazi,%a,32)) {
did -a Koru 203 $gettok(%Korumali-Yazi,%a,32)
inc %a
}
var %a = 1
while ($gettok(%Korumali-Kanal,%a,32)) {
did -a Koru 303 $gettok(%Korumali-Kanal,%a,32)
inc %a
}
}

on *:join:#: {
var %Z 1
while %Z if $nick == $gettok(%Korumali-Nick,%Z,32) { halt }
inc %Z
}
var %A 1
while %A if $gettok(%Korumali-IP,%A,32) isin $address($nick,2)) { halt }
inc %A
}
var %K 1
while %K if $gettok(%Korumali-Kanal,%K,32) isin $chan { halt }
inc %K
}
;——————————————————————-
; Eventa ait Kendi kodlarınız bu kısma yazacaksınız
;——————————————————————-
}

on *:text:*:#:{
var %Z 1
while %Z if $nick == $gettok(%Korumali-Nick,%Z,32) { halt }
inc %Z
}
var %A 1
while %A if $gettok(%Korumali-IP,%A,32) isin $address($nick,2)) { halt }
inc %A
}
var %K 1
while %K if $gettok(%Korumali-Kanal,%K,32) isin $chan { halt }
inc %K
}
var %T 1
while %T if $gettok(%Korumali-Yazi,%T,32) isin $1- { halt }
inc %T
}
;——————————————————————-
; Eventa ait Kendi kodlarınızı bu kısma yazacaksınız.
;————————————————————–