IP ye tıklayarak k:line atmak
IP ye tıklayarak k:line nasıl atılır.
on ^1:SNOTICE:*:{
if (exiting isin $1-) {
if (!$window(@Giris/Cikis)) { window -en @Giris/Cikis }
echo 4 -t @Giris/Cikis Çıkış : $1- | halt
}
if (Connecting isin $1-) {
if (!$window(@Giris/Cikis)) { window -en @Giris/Cikis }
echo 3 -t @Giris/Cikis Giriş : $1- | halt
}
halt
}
on ^1:HOTLINK:*.*.*:*:{
if ( $active = #) { halt }
else {
if (@ isin $1) {
$x:CoCoRiCo($1,2)
return $1
}
}
halt
}
on *:HOTLINK:*.*.*:*:{
if ($active = #) { halt }
else {
if (@ isin $1) {
$x:CoCoRiCo($1,1)
}
}
}
alias -l X:CoCoRiCo {
if ($2 = 1 ) {
var %q $mid($1,$pos($1,@),$len($1))
var %x $calc($len(%q) – 1 )
;S:ban secenegi (Kline)
.Kline $+(*,$left(%q,%x))
echo 4:lined ip $+(*,$left(%q,%x))
}
if ($2 = 2 ) {
var %q $mid($1,$pos($1,@),$len($1))
var %x $calc($len(%q) – 1 )
Titlebar: K:LINED EDILECEK! $+(*,$left(%q,%x))
}
}
Statuste olan herşeyi kanalina yansitmak
Statuste olan herşeyi kanalina yansitmak.
on ^*:snotice:*: { msg #kanaladı $1- | halt }
mIRC Away kayit | Notify gösterici
1. Awayken acaßa ßenim dedikodumu herhangi ßi kanalda yapiyolarmi veya
awayken ozelime kim gelmis kim gitmis ne demis diyosaniz:
;ozelinize yazilanlari kontrol eder ßu
on *:text:*:?: { if $away { if !$window(@Away) { window -a @Away } | aline @Away $timestamp $+(<,$nick,>) $1- | close -m } }}}}
;ßu ise herhangi bi kanalda ßiri sizin nickinizle ilgili ßi?e derse o sat?r? al?r
on *:text:*nickiniz*:#: { if $away { if !$window(@Away) { window -m @Away } | echo @Away $timestamp $+(<,$nick,>) $1- ( $+ $chan $+ ) } }}
2. Notify listeme adam ekledim ama sadece echoladigi icin goremiorum aklimda kalmiyo veya ben awayken bekledigim ki?i gelmismi geldiyse ne kadar kalmis felan die soruosaniz kisiyi notify listeye a?agidaki kodu ise remoteye ekleyin
on *:NOTIFY: { if !$window(@Notify) { window -m @Notify } | .aline @Notify $nick Su anda online.. Online oldu?u zaman :: ( $time )
}
on *:UNOTIFY: { if !$window(@Notify) { window -m @Notify } | .echo @Notify $nick IRC den c?kt?.. Offline oldu?u zaman :: ( $time )
mIRC MemoServ ve SAJOIN Pencereleri
Kod:
on ^*:notice:*:?: {
if ($nick == Operserv) {
if (!$window(@SAJOIN)) { window -en @SAJOIN }
echo 5 -t @SAJOIN Operserv ~ $1- | haltdef
}
if ($nick == Memoserv) {
if (!$window(@Memoserv)) { window -en @Memoserv }
echo 5 -t @Memoserv Memoserv ~ $1- | haltdef
}
}
mIRC Helper Asistani
; Cod
# Yard?mc?lar? hakk?nda
* Do?um!: Join: # help: (
($ Me # Help isop) | | ($ me ishop # Help) (if
$ + (. Timer, $ nick) 1 1 usermi $ nick
)
)
# Yard?mc?lar? sonu
alias usermi (
($ 1 isreg yard?m #) (if
set% ki? i $ 1
. Ns durumu 1 $
)
)
^ * On: haber :*:?: (
($ Nick == NickServ) (if
Durum% ki (* olur? I 0 * iswm $ 1 -) (($ 2 == e?er% ki? I) & & (! $ Dialog (Hasist)) (% ki belirlerim? I1 Kay? Ts? Z Nick. | Hasist))
elseif (* Durum% ki? i 1 * iswm $ 1 -) (($ 2 == e?er% ki? i) & & (! $ dialog (Hasist)) (% ki belirlerim? i1 Nick? Tan ifresi? t? lmam?. | Hasist))
elseif (* Durum% ki? i 3 * iswm $ 1 -) (($ 2 == e?er% ki? i) & & (! $ dialog (Hasist)) (% ki belirlerim? i1 Kay? tl? Nick. | Hasist))
else (return)
)
)
Hasist (ileti?im
Ba?l?k Yard?mc?s? Uyar? Sistemi
boyutu -1 -1 161 52
seçenek dBu
Metin “” \ \ \ \, 1, 3 14 70 8
metin \ \ “Kay? ts? z Nick \ \”, 2, 78 14 79 8
dü?mesine \ \ “Yardim Et \ \”, 3, 44 40 30 10
\ \ “Ay?e Uyar onay? Y? gösterme \ \ “, 4, 48 25 74 10
dü?mesine \ \ “Es GEC \ \”, 5, 79 40 30 10
metin \ \ “Yerd? m Bekleyen Rumuz: \ \”, 6, 3 5 70 8
metin \ \ “Durum Durmu: \ \”, 7, 78 5 79 8
)
alias Hasist ($ IIf (! $ dialog (Hasist), dialog-ma Hasist Hasist))
* Do?um: dialog: Hasist :*:*:{
== Init ($ devent) (if
. Timerac 1 10 kapat
did-a $ dname% 1 ki? i
did-a $ dname% 2 ki? i1
($ Grup (# yard?mc?lar? birlikte). Durum == kapal?) (did-c $ dname 4)
bip 1 1
)
== Sclick ($ devent) (if
($ Did == 4) (if
($ Did (4) e?er. Devlet == 1) (. # Yard?mc?lar? devre d???)
else (.) # yard?mc?lar? etkinle?tirmek
)
+ V% yard?m # ($ did == 3) (mode e?er ki? I | msg # help Merhaba,% ki? I Boyut Nas? L Yard? Mc? Olabilirim? | Dialog-x $ dname)
($ Did == 5) (dialog-x $ dname) e?er
)
)
1: Ses: # help: ($ IIf ($ nick == $ me, set% ki? I $ vnick, kapat))
* Sanat: # help: (
% Ki ($ nick == olur? I) (unset% ki? I * | kapat)
)
* Do?um: ç?k?n: ($ IIf ($ nick ==% ki? I, unset% ki? I *))
menü nicklist (
$ IIf ($ aktif == $ IIf ($ grubu (# yard?mc?lar?) yard?m #. Durum == tarihinde 1 $ chr (11) Yard?mc? uyari Acik))
. $ IIf ($ grup (# yard?mc?lar?). Durum == tarihinde Kapat):. Disable # yard?mc?lar?
$ IIf ($ aktif == $ IIf ($ grubu (# yard?mc?lar?) yard?m #. Durum == kapal?, 1 $ chr (11) Yard?mc? uyari Kapal?))
. $ IIf ($ grup (# yard?mc?lar?). Durum == kapal?, Ac):. # Yard?mc?lar? etkinle?tirmek
)
1: nick: ($ IIf ($ nick ==% ki? I, set% ki? I $ newnick))
alias kapat ($ IIf ($ dialog (Hasist), dialog-x Hasist))
* Do?um: yük: (echo-a? 7Helper Asistan? 12 Yüklediniz.Bu menuye? 7 \ \ “kanal Yard?m #? N? N nick listesi \ \”? 12nden ula? Abilirsiniz. )
; Codu kopyalayip mIRC te alt + R kismina yapistirin
; # Help kanalinda Nickliste sag tikla ***** Aç?p / kapatabilirsiniz ..
Standart mIRC Renkli Nickler
Kod:
İleti? cnl (im
Ba? L? K \ \ “Renkli nickler \ \”
boyutu -1 -1 0 0
Dü? mesine \ \ “& Tamam \ \”, 1, 30 245 50 25, ok, varsay? lan
\ \ “IPTAL \ \”, 2, 80 245 50 25, IPTAL Dü? Mesi
Metin \ \ “Gurbet_t Tarafindan Edit Edildi. \ \”, 99, 30 280 1000 1000
Kutu \ \ “Ben \ \”, 3, 30 10 100 50
4, 40 30 80 100, damla combo
Kutu \ \ “Oplar \ \”, 5, 170 10 100 50psd
6, 180 30 80 100, damla combo
Kutu \ \ ‘Helperlar \ \’, 7, 170 80 100 50
combo 8, 180 100 80 100 Dü? ürmeyin
Kutu \ \ “Voiceler \ \”, 9, 170 150 100 50
10, 180 170 80 100, damla combo
Kutu \ \ “Kay? tl? nick \ \”, 11, 170 220 100 50
12, 180 240 80 100, damla combo
\ ‘Bildir liste \ \ \ “, 13, Kutu 30 80 100 50
14, 40 100 80 100, damla combo
Kutu \ \ “Ignoreler \ \”, 15, 30 150 100 50
16, 40 170 80 100, damla combo
Radyo “AC \ \ \ \, 17, 38 220 30 15
Radyo \ “\ \ \” kapalı, 18, 88 220 30 15
)
* Musunuz? Um: dialog: cnl: init: 0: (
% Anim.cnl = 0 |. Timer_anim_cnl-m 0 1 anim.cnl
did-i cnl 4,6,8,10,12,14,16 1 Beyaz (0)
did-i cnl 4,6,8,10,12,14,16 2 Siyah (1)
did-i cnl 4,6,8,10,12,14,16 3 Blue (2)
did-i cnl 4,6,8,10,12,14,16 4 Ye? il (3)
did-i cnl 4,6,8,10,12,14,16 5 LightRed (4)
did-i cnl 4,6,8,10,12,14,16 6 Brown (5)
did-i cnl 4,6,8,10,12,14,16 7 Purple (6)
did-i cnl 4,6,8,10,12,14,16 8 Orange (7)
did-i cnl 4,6,8,10,12,14,16 9 Sar? (8)
did-i cnl 4,6,8,10,12,14,16 10 LightGreen (9)
did-i cnl 4,6,8,10,12,14,16 11 Mavi (10)
did-i cnl 4,6,8,10,12,14,16 12 LightCyan (11)
did-i cnl 4,6,8,10,12,14,16 13 lightblue (12)
did-i cnl 4,6,8,10,12,14,16 14 Pembe (13)
did-i cnl 4,6,8,10,12,14,16 15 Grey (14)
did-i cnl 4,6,8,10,12,14,16 16 LightGrey (15)
did-c cnl 4 $ calc (% cnl.me 1)
did-c cnl 6 $ calc (% cnl.op 1)
did-c cnl 8 kalk $ (% cnl.help 1)
did-c cnl 10 $ calc (% cnl.voice 1)
did-c cnl 12 $ calc (% 1 cnl.reg)
did-c cnl 14 $ calc (%) 1 cnl.notify
did-c cnl 16 $ calc (%) 1 cnl.ignore
($ Grup (# cnl) == üzerinde) (eğer did-c $ dname 17)
($ Grup (# cnl) == kapal?) (Eğer did-c $ dname 18 | did-b $ dname 3,4,5,6,7,8,9,10,11,12,13,14, 15, 16)
)
* Musunuz? Um: dialog: cnl: *: 1: (
% Cnl.me calc ($ did (cnl, 4) $ ayarlay? I. Sel -1)
$ Cnl.op% calc ($ did (cnl, 6). Sel -1) set
% Cnl.help calc ($ did (cnl, 
$ ayarlay? I. Sel -1)
% Cnl.voice calc ($ did (cnl, 10) $ ayarlay? I. Sel -1)
% Calc ($ did (cnl, 12) $ cnl.reg ayarlayın. Sel -1)
($ Did (cnl, 14)% $ cnl.notify ayarlay? I. sel -1) calc
% Calc ($ did (cnl, 16) $ cnl.ignore ayarlayın. Sel -1)
# CNL | make.co) enable ($ did (cnl, 17) e? Er. Devlet == 1) (.
($ Mi (cnl, 18) e? Er. Devlet == 1) (. # CNL | un.co Devre d??)
)
* Musunuz? Um: Yük: (
% Scnl2 $ orta (2,5 saliascnl) $ Orta set (2,8 sidentifycnl)
% Scnl3 $ orta (2,8 sidentifycnl) chr (36) $ + 1 – $ chr (124) $ set
% Orta () orta (000-u4000, 4,5) set $ 00.ignoreed, 3,7 $ Scnl4
% Scnl5 $ orta (2,8 smemoservcnl) chr (124) $ set
% Scnl6 $ orta (2,9 s.memoservcnl) set
% Scnl7 $ orta (1,4 sendscnl) set
% Scnl8 $ orta (3,7 scserversnl) chr (36) $ + 1 $ set -
/ /% Scnl2% scnl3% scnl4% scnl5% scnl6% scnl7% scnl8
unset% scnl *
)
* IALOG musunuz? Um: cnl: sclick: 17: (did-e $ dname 3,4,5,6,7,8,9,10,11,12,13,14,15,16)
* IALOG musunuz? Um: cnl: sclick: 18: (did-b $ dname 3,4,5,6,7,8,9,10,11,12,13,14,15,16)
sop hakk? nda: Metin :!*:# hizmetler: (
. Duyuru $ nick? 8,1 <
sop musunuz? um: text:! takip *: # hizmetler: (if (nicktakip belirleyebilir miyim? 2 $ ON n) (% nicktakip / ON) else% off)
alias make.co (
set-U0% i 1
i <(% * When = $ chan (0)) (
set-U0% j 1
(% J <= $ nick ($ chan (% i), 0)) (süre
($ Nick ($ chan (% i),% j) $ isreg chan (% i)) (cline% chan ($ e? I% er cnl.reg) $ nick ($ chan (%),% j)) )
($ Nick ($ chan (e?% I er),% j) isvo $ chan (% i)) (cline% cnl.voice $ chan (% i) $ nick ($ chan (% i),% j) ))
($ Nick ($ chan (% i),% j) $ ishelp chan (% i)) (cline% cnl.help $ chan (% i) $ nick ($ chan (%),% j))) İMKB
($ Nick ($ chan (% i),% j) $ isop chan (% i)) ($ cnl.op cline% chan (% i) $ nick ($ chan (%),% j))) İMKB
($ Nick ($ chan (% i),% j) == $ me) (cline% cnl.me $ chan (% i) $ nick ($ chan (% i),% j))) İMKB
% I),% j)) ($ () nick ($ chan (% i),% j))) $% cline% ($ (nick ($ chan isnotify i chan cnl.notify e? Er
($ Nick ($ chan (% i),% j) $ +! * @ * Isignore) (cline% chan ($ cnl.ignore e? I) $ nick ($ chan (%),% j))% er )
inc% j
)
inc% i
)
)
alias un.co (
set-U0% i 1
i <(% * When = $ chan (0)) (
set-U0% j 1
(% J <= $ nick ($ chan (% i), 0)) (süre
($ Nick ($ chan (e?% I er),% j) Ison $ chan (% i)) (cline 01 $ chan (% i) $ nick ($ chan (% i),% j)))
inc% j
)
inc% i
)
)
alias cnl (dialog-m cnl cnl)
alias anim.cnl (if ((% anim.cnl == 300) | | ($ dialog (cnl) == $ null)) (. unset% anim.cnl | off) timer_anim_cnl başka (dialog-s cnl 250 150 | % 300 anim.cnl | inc% anim.cnl 5)
)
* Musunuz? Um: dialog: cnlg: Inuit: 0: (
did-i cnl 4,6,8,10,12,14,16 1 Beyaz (0)
did-i cnl 4,6,8,10,12,14,16 2 Siyah (1)
did-i cnl 4,6,8,10,12,14,16 3 Blue (2)
did-i cnl 4,6,8,10,12,14,16 4 Ye? il (3)
did-i cnl 4,6,8,10,12,14,16 5 LightRed (4)
did-i cnl 4,6,8,10,12,14,16 6 Kahverengi (5)
did-i cnl 4,6,8,10,12,14,16 7 Purple (6)
did-i cnl 4,6,8,10,12,14,16 8 Portakal (7)
did-i cnl 4,6,8,10,12,14,16 9 Sar? (8)
did-i cnl 4,6,8,10,12,14,16 10 LightGreen (9)
did-i cnl 4,6,8,10,12,14,16 11 Mavi (10)
did-i cnl 4,6,8,10,12,14,16 12 LightCyan (11)
did-i cnl 4,6,8,10,12,14,16 13 lightblue (12)
did-i cnl 4,6,8,10,12,14,16 14 Pembe (13)
did-i cnl 4,6,8,10,12,14,16 15 Grey (14)
did-i cnl 4,6,8,10,12,14,16 16 LightGrey (15)
did-c cnl 4 $ calc (% cnl.me 1)
did-c cnl 6 $ calc (% cnl.op 1)
did-c cnl 8 $ calc (% cnl.help 1)
did-c cnl 10 $ calc (% cnl.voice 1)
did-c cnl 12 $ calc (% 1 cnl.reg)
did-c cnl 14 $ calc (%) 1 cnl.notify
did-c cnl 16 $ calc (%) 1 cnl.ignore
($ Grup (# cnl) == üzerinde) (eğer did-c $ dname 17)
)
menu menu çubu? unun, kanal makarnalık (
Renkli nickler: / cnl
)
Flood Koruması – Mırc kodu
Flood Koruması – Mırc kodu
on @1:text:*:#:{
if $me !isop $chan { halt } | if $nick isop $chan { halt }
var %bflood $strip($1-)
var %mflood $strip($$1)
if ($len(%bflood) >= 250 ) || ($len($1) >= 50 ) {
/mode $chan +b $address($2,2) | /kick $chan $nick 7¤ 13Flood Yasaktir 2 [ 14! 2] 7¤
}
}
Admin Helperlere Özel Yazi Tipi
Admin ve Helper Arkadaşlara özel yazi.. Help Kanalinda Nickleri ince yazmak için CTRL+B tuşunu kullanilar buna hiç gerek kalmamasi için altdaki kodu mirc remotelerinize ekleyiniz.
menu status,menubar, {
.-
.? © Helpere,Admine Özel Yazı !
..? Açık !:.enable #absoyazı | .echo -a 0,4 Helpere,Admine Özel Yazı AcıLdı.. %logo
..? Kapalı !:.disable #absoyazı | .echo -a 0,4 Helpere,Admine Özel Yazı KapatıLdı.. %logo
..? Bilgi !:.echo -a 0,4 Bu Yazı Tipi Helper,Admin, ArkadasLara KoLaylık Saglasın diye EkLendi.. %logo
.-
}
#absoyazı off
on *:input:#:{
if (/* iswm $1) { return }
var %a 0, %b, %c
while (%a < $numtok($1-,32)) {
inc %a
%c = $gettok($1-,%a,32)
if ($remove(%c,!,?,:,;,.,$chr(44),?) ison #) { %b = $iif(%b,%b) $+(,%c,) }
else { %b = %b %c }
}
if (!%b) { %b = $1- }
say %b
halt
}
#absoyazı end
Ortak Kanal ve Cafe Uyarici
Sohbet Ederken özelinizdeki kişilerin ortak girdiginiz kanallari ve o nickten başka giriş varsa cafe tarzi girişleri size bildirir. Kod aşagidaki gibidir.
menu status,menubar, {
.-
.? © Cafe and Ortak KanaL Uyarı !
..? Açık !:.enable #cafeuyar | .echo -a 0,4 Cafe and Ortak KanaL Uyarı Açıldı.. %logo
..? Kapalı !:.disable #cafeuyar | .echo -a 0,4 Cafe and Ortak KanaL Uyarı KapatıLdı.. %logo
.-
}
#cafeuyar on
on 1:open:?: {
if $address($nick,2) != $null qc $nick
else {
set %ial query
.who $nick
}
.echo $query($nick) 12***4 $nick ile Ortak Kanallar :12 $comchan($nick,1) $comchan($nick,2) $comchan($nick,3) $comchan($nick,4) $comchan($nick,5) $comchan($nick,6) $comchan($nick,7) $comchan($nick,8) $comchan($nick,9) $comchan($nick,10)
}
alias qc {
unset %qc*
if $ial( $address($1,2) , 0 ) < 2 halt
:başla
inc %qc
if $ial( $address($1,2) , %qc ).nick == $1 goto başla
if $ial( $address($1,2) , %qc ).nick == $null goto son
set %qc [ $+ [ $1 ] ] $left( %qc [ $+ [ $1 ] ] , 100 ) & $ial( $address($1,2) , %qc ).nick
goto başla
:son
if %qc [ $+ [ $1 ] ] == $null halt
echo $1 12*** 4Özelinizdeki 12 $1 %qc [ $+ [ $1 ] ] 4aynı cafe’den yada aynı kişiler. 2( $+ $address($1,2) $+ )
unset %qc*
}
#cafeuyar end
