Nick Türkçe mIRC indir - Resmi mIRC indirme Sitesi

Nick – IP takip , Süre:1saat

01 Haziran 2014 • 11:56 OxiGeN Hazır Kodlar

Kanala giriş yapan kişilerin IP lerini 1 saatliğine kaydeder ve tekrar giriş yaptıklarında giren IP lerin hangi nickle giriş yaptıklarını echo olarak size gösterir. İstenilirse bu süre değiştirilebilir. Kod:

<em>on *:start:$iif(!$hget(nicktablo),hmake nicktablo)
on *:join:#:$iif($hget(nicktablo),dogru $nick $duz($address($nick,2)),yalnis $nick $duz($address($nick,2)))
on *:nick:$iif($hget(nicktablo),dogru $newnick $duz($address($newnick,2)),yalnis $newnick $duz($address($newnick,2)))

alias dogru $iif($hfind(nicktablo,$duz($2),*,w).item,$iif($hfind(nicktablo,$1,*,w).data,goster $1 $duz($2),ekle $1 $duz($2)),yalnis $1 $duz($2))  
alias yalnis hadd -mu<span style="color: red">3600</span> nicktablo $duz($2) $1  
alias ekle  var %nickler $hget(nicktablo,$hget(nicktablo,$2).item).data $+ $chr(32) $+ $1 | hadd -u<span style="color: red">3600</span> nicktablo $2 %nickler | echo -a IP: $2 , Kullanmış olduğu nickler :  $hget(nicktablo,$hget(nicktablo,$2).item).data 
alias goster echo -a  IP: $2 , Kullanmış olduğu nickler :  $hget(nicktablo,$hget(nicktablo,$2).item).data  
alias duz return $remove($1,*!*@)</em>

on *:start:$iif(!$hget(nicktablo),hmake nicktablo)

on *:join:#:$iif($hget(nicktablo),dogru $nick $duz($address($nick,2)),yalnis $nick $duz($address($nick,2)))

on *:nick:$iif($hget(nicktablo),dogru $newnick $duz($address($newnick,2)),yalnis $newnick $duz($address($newnick,2)))

alias dogru $iif($hfind(nicktablo,$duz($2),*,w).item,$iif($hfind(nicktablo,$1,*,w).data,goster $1 $duz($2),ekle $1 $duz($2)),yalnis $1 $duz($2))

alias yalnis hadd -mu3600 nicktablo $duz($2) $1

alias ekle var %nickler $hget(nicktablo,$hget(nicktablo,$2).item).data $+ $chr(32) $+ $1 | hadd -u3600 nicktablo $2 %nickler | echo -a IP: $2 , Kullanmış olduğu nickler : $hget(nicktablo,$hget(nicktablo,$2).item).data

alias goster echo -a IP: $2 , Kullanmış olduğu nickler : $hget(nicktablo,$hget(nicktablo,$2).item).data

alias duz return $remove($1,*!*@)

» Devamını Oku

2 yorum Addonlar, hazır kodlar, ipten, Kanal, mircscripting, Nick, takip

mIRC nick, identd, host girişleri için Addon (Listelemek)

19 Nisan 2014 • 19:38 OxiGeN Addonlar

Kullanım : /cs [-nih] mask #kanal
-n parametresi ile belirtilen nicklere göre listeleme yaparsınız.
-i parametresi ile ident listelemesi yaparsınız.
-h parametresi ile host listelemesi yaparsınız.
 *  Mask içinde wildcards karakterlerini kullanabilirsiniz.
Örnek : /cs -n s* #nsohbet

search for (nick: s*!*@*) on #nsohbet
————————————————————————————————
Num Nick Address
————————————————————————————————
1. sdsd web@6EBDAD51.85CF735E.750395D6.IP
————————————————————————————————-
found 1 matches for s*!*@* - [0.156ms]

Şeklinde arama yapıp sonrasında listeme yapmış olacaktır.

alias -l a aline @cs $1-
alias -l stp { return $remove($1-,*,!,@) }
alias cs {
var %s = $ticks
if (!$1) { echo 2 -a * /cs: missing parameters | halt }
if (-* iswm $1) {
if ($1 = -n) { var %cs.search = $1, %cs.item = $+($2,!*@*), %cs.channel = $iif($3,$3,$chan), %cs.items = nick | goto search }
elseif ($1 = -h) { var %cs.search = $1, %cs.item = $+(*!*@,$2), %cs.channel = $iif($3,$3,$chan), %cs.items = host | goto search }
elseif ($1 = -i) { var %cs.search = $1, %cs.item = $+(*!,$2,@*), %cs.channel = $iif($3,$3,$chan), %cs.items ident | goto search }
}
elseif (-* !iswm $1) { var %cs.item = $1, %cs.channel = $iif($3,$3,$chan), %cs.items = everything | goto search }
:search
$iif(!$chan(%cs.channel).ial,who %cs.channel)
window -e @cs
a search for ( $+ %cs.items $+ : $replace(%cs.item,$stp(%cs.item),$+(4,$stp(%cs.item),)) $+ ) on %cs.channel
a 4 $str(-,100)
a Num $chr(9) Nick $chr(9) Address
a 4 $str(-,100)
var %c = 1
while ($ialchan(%cs.item,%cs.channel,%c)) {
a $+(,%c,.,) $chr(9) $replace($ialchan(%cs.item,%cs.channel,%c).nick,$stp(%cs.item),$+(4,$stp(%cs.item),)) $chr(9) $replace($ialchan(%cs.item,%cs.channel,%c).addr,$stp(%cs.item),$+(4,$stp(%cs.item),))
inc %c
}
a 4 $str(-,100)
a found $ialchan(%cs.item,%cs.channel,0) matches for $replace(%cs.item,$stp(%cs.item),$+(4,$stp(%cs.item),)) - $+([,$calc(($ticks - %s) /1000),ms,])
if ($ialchan(%cs.item,%cs.channel,0) = 0) {
clear @cs
a no matches for $replace(%cs.item,$stp(%cs.item),$+(4,$stp(%cs.item),)) were found on %cs.channel
}
}
on *:input:@cs:{ cs $1- }
raw 352:*:halt
raw 315:*:halt

Kullanım : /cs [-nih] mask #kanal

-n parametresi ile belirtilen nicklere göre listeleme yaparsınız.

-i parametresi ile ident listelemesi yaparsınız.

-h parametresi ile host listelemesi yaparsınız.

* Mask içinde wildcards karakterlerini kullanabilirsiniz.

Örnek : /cs -n s* #nsohbet

search for (nick: s*!*@*) on #nsohbet

————————————————————————————————

Num Nick Address

————————————————————————————————

1. sdsd web@6EBDAD51.85CF735E.750395D6.IP

————————————————————————————————-

found 1 matches for s*!*@* - [0.156ms]

Şeklinde arama yapıp sonrasında listeme yapmış olacaktır.

alias -l a aline @cs $1-

alias -l stp { return $remove($1-,*,!,@) }

alias cs {

var %s = $ticks

if (!$1) { echo 2 -a * /cs: missing parameters | halt }

if (-* iswm $1) {

if ($1 = -n) { var %cs.search = $1, %cs.item = $+($2,!*@*), %cs.channel = $iif($3,$3,$chan), %cs.items = nick | goto search }

elseif ($1 = -h) { var %cs.search = $1, %cs.item = $+(*!*@,$2), %cs.channel = $iif($3,$3,$chan), %cs.items = host | goto search }

elseif ($1 = -i) { var %cs.search = $1, %cs.item = $+(*!,$2,@*), %cs.channel = $iif($3,$3,$chan), %cs.items ident | goto search }

}

elseif (-* !iswm $1) { var %cs.item = $1, %cs.channel = $iif($3,$3,$chan), %cs.items = everything | goto search }

:search

$iif(!$chan(%cs.channel).ial,who %cs.channel)

window -e @cs

a search for ( $+ %cs.items $+ : $replace(%cs.item,$stp(%cs.item),$+(4,$stp(%cs.item),)) $+ ) on %cs.channel

a 4 $str(-,100)

a Num $chr(9) Nick $chr(9) Address

a 4 $str(-,100)

var %c = 1

while ($ialchan(%cs.item,%cs.channel,%c)) {

a $+(,%c,.,) $chr(9) $replace($ialchan(%cs.item,%cs.channel,%c).nick,$stp(%cs.item),$+(4,$stp(%cs.item),)) $chr(9) $replace($ialchan(%cs.item,%cs.channel,%c).addr,$stp(%cs.item),$+(4,$stp(%cs.item),))

inc %c

}

a 4 $str(-,100)

a found $ialchan(%cs.item,%cs.channel,0) matches for $replace(%cs.item,$stp(%cs.item),$+(4,$stp(%cs.item),)) - $+([,$calc(($ticks - %s) /1000),ms,])

if ($ialchan(%cs.item,%cs.channel,0) = 0) {

clear @cs

a no matches for $replace(%cs.item,$stp(%cs.item),$+(4,$stp(%cs.item),)) were found on %cs.channel

}

on *:input:@cs:{ cs $1- }

raw 352:*:halt

raw 315:*:halt

» Devamını Oku

Yorum yaz addon, giris, host, identd, liste, mirc, Nick

mIRC Nick identify Addon

19 Nisan 2014 • 19:28 OxiGeN Addonlar

on *:notice:*NickServ*IDENTIFY*:*: { if ( $nick
== nickserv ) /dialog -m sifre sifre } 
on *:notice:*Kayıt*Nick*:*: { if ( $nick == nickserv ) /dialog -m sifre sifre } 

dialog sifre { 
title "Şifre Paneli" 
size -1 -1 110 60 
option dbu 
box $me Kayitli Bir Nicktir.., 20, 0 0 110 60 
text "Nick Degistir:", 4, 10 22 33 10 
text "Sifre Gir: ", 3, 10 10 23 13 
edit "", 5, 45 8 60 10, style(pass) 
edit "", 6, 45 20 60 10 

button "Uygula", 1, 10 35 40 15, ok 
button "I&amp;ptal", 2, 60 35 40 15, cancel 

}
| xxxx identify xxxx 
on 1:dialog:sifre:sclick:1: { 
if ($did(sifre,6)) &amp;&amp; ($did(sifre,5)) .nickserv identify $did(sifre,6) $did(sifre,5) 
if ($did(sifre,5)) .nickserv identify $did(sifre,5) 
if ($did(sifre,6)) .nick $did(sifre,6) 
}İdentify Kutucugu

on *:notice:*NickServ*IDENTIFY*:*: { if ( $nick

== nickserv ) /dialog -m sifre sifre }

on *:notice:*Kayıt*Nick*:*: { if ( $nick == nickserv ) /dialog -m sifre sifre }

dialog sifre {

title "Şifre Paneli"

size -1 -1 110 60

option dbu

box $me Kayitli Bir Nicktir.., 20, 0 0 110 60

text "Nick Degistir:", 4, 10 22 33 10

text "Sifre Gir: ", 3, 10 10 23 13

edit "", 5, 45 8 60 10, style(pass)

edit "", 6, 45 20 60 10

button "Uygula", 1, 10 35 40 15, ok

button "I&ptal", 2, 60 35 40 15, cancel

}

| xxxx identify xxxx

on 1:dialog:sifre:sclick:1: {

if ($did(sifre,6)) && ($did(sifre,5)) .nickserv identify $did(sifre,6) $did(sifre,5)

if ($did(sifre,5)) .nickserv identify $did(sifre,5)

if ($did(sifre,6)) .nick $did(sifre,6)

}İdentify Kutucugu

» Devamını Oku

Yorum yaz addon, identify, mirc, Nick

Otomatik Oper/Nick giriş Addonu

10 Nisan 2014 • 15:21 OxiGeN Addonlar

on *:notice:*:?: { 
if ($nick == NickServ) { 
if (Bu kayitli ve sifre korumali bir nick'tir isin $1-) { msg NickServ IDENTIFY pass } 
} 
} 
on *:notice:*:?: { 
if ($nick == NickServ) { 
if (Bu nick kayitli bir nicktir, siz bu nicki kullanamazsiniz isin $1-) { msg NickServ ghost nick pass | msg NickServ release nick pass | timer 2 5 nick nick | timer 2 10 msg NickServ IDENTIFY pass } 
} 
}
on *:start: { .server irc.sohbet.net }
on *:connect: { if $server == irc.sohbet.net { .nick nick | .oper nick operpass } }

on *:notice:*:?: {

if ($nick == NickServ) {

if (Bu kayitli ve sifre korumali bir nick'tir isin $1-) { msg NickServ IDENTIFY pass }

}

on *:notice:*:?: {

if ($nick == NickServ) {

if (Bu nick kayitli bir nicktir, siz bu nicki kullanamazsiniz isin $1-) { msg NickServ ghost nick pass | msg NickServ release nick pass | timer 2 5 nick nick | timer 2 10 msg NickServ IDENTIFY pass }

}

on *:start: { .server irc.sohbet.net }

on *:connect: { if $server == irc.sohbet.net { .nick nick | .oper nick operpass } }

» Devamını Oku

Yorum yaz addon, giris, mirc, Nick, oper, otomatik

Bad nick’leri kanala toplayan Remote

27 Mart 2014 • 17:40 OxiGeN Hazır Kodlar

alias bad { .auser 02 $1 }
on ^&amp;*:JOIN:#:{
if ($nick != $me) {
if ($ulist($address($nick,-1),02,1)) {
if (o isin $usermode) {
mode # +b $nick | kick # $nick %logo
sapart $nick # | sajoin $nick #KANAL
}
}
}
}

alias bad { .auser 02 $1 }

on ^&*:JOIN:#:{

if ($nick != $me) {

if ($ulist($address($nick,-1),02,1)) {

if (o isin $usermode) {

mode # +b $nick | kick # $nick %logo

sapart $nick # | sajoin $nick #KANAL

}

» Devamını Oku

Yorum yaz Bad, mirc, Nick, remote, toplayan

mIRC Baska Nickle Gireni Belirleme Kodu

15 Mart 2014 • 03:24 OxiGeN Hazır Kodlar

1: start: (. Hmake nicksch 100)
1art Do?um: #: (($ comchan ($ nick, 0) &lt;2) (nick $ site)) $ nicksgrab e?er
1: ç?k?n: (nick $ site) $ nicksgrab
1: kick: #: (
($ Comchan ($ önemsiz, e?er 0) &lt;2) (
?v?r $ ifmatch) $ nicksgrab ($ ial ($ ?v?r birlikte). host! = $ null) (
)
)
alias (nicksgrab
. $ Nicksch hadd IIf (($ gettok ($ 2, -1,46) == virtuel) &amp; &amp; ($ numtok (2,46 $)&gt; 3 ),$+($ gettok ($ 2,1-2, 46). virtuel), $ 2) $ 1
)
NicksTrouve (alias
var% a = $ IIf (($ gettok ($ 2, -1,46) == virtuel) &amp; &amp; ($ numtok (2,46 $)&gt; 3 ),$+($ gettok ($ 2,1-2 , 46). virtuel), $ 2)
return $ IIf ($ hget (nicksch,% a)! = $ 1, $ ifmatch)
)
1: JOIN: #: (
var% NickPrecedent = $ IIf ($ NicksTrouve ($ nick, $ site),? 4 [? 2Onceki Nicki? 4]? 12 $ ifmatch?)
(% NickPrecedent) (echo-tm $ chan $ ifmatch) e?er
)

1: start: (. Hmake nicksch 100)

1art Do?um: #: (($ comchan ($ nick, 0) <2) (nick $ site)) $ nicksgrab e?er

1: ç?k?n: (nick $ site) $ nicksgrab

1: kick: #: (

($ Comchan ($ önemsiz, e?er 0) <2) (

?v?r $ ifmatch) $ nicksgrab ($ ial ($ ?v?r birlikte). host! = $ null) (

)

alias (nicksgrab

. $ Nicksch hadd IIf (($ gettok ($ 2, -1,46) == virtuel) & & ($ numtok (2,46 $)> 3 ),$+($ gettok ($ 2,1-2, 46). virtuel), $ 2) $ 1

)

NicksTrouve (alias

var% a = $ IIf (($ gettok ($ 2, -1,46) == virtuel) & & ($ numtok (2,46 $)> 3 ),$+($ gettok ($ 2,1-2 , 46). virtuel), $ 2)

return $ IIf ($ hget (nicksch,% a)! = $ 1, $ ifmatch)

)

1: JOIN: #: (

var% NickPrecedent = $ IIf ($ NicksTrouve ($ nick, $ site),? 4 [? 2Onceki Nicki? 4]? 12 $ ifmatch?)

(% NickPrecedent) (echo-tm $ chan $ ifmatch) e?er

)

» Devamını Oku

Yorum yaz addon, baska, belirleme, kod, mirc, Nick

Nick Kayit Addon

14 Mart 2014 • 22:51 OxiGeN Addonlar

alias regnick dialog -m regn regn 
dialog regn { 
title Nick Register 
size -1 -1 125 205 
icon $mircexe 

text Şifre:,4,10 10 100 15, 
edit ,5,10 30 100 20,autohs 

text Email: ,6,10 60 190 15, 
edit ,7,10 75 100 20,autohs 

;box 
box ,8,1 1 120 55 
box ,9,1 49 120 55 
box ,10,1 97 120 57 

; button 
button "&amp;Kayıt Et",11,10 160 100 20,flat ok 
button "&amp;Kapat",12,10 180 100 20,flat 

;text 
text "şu andaki nickiniz registerlenecektir",13,20 115 150 40, 

} 

on 1:dialog:regn:*:*:{ 
if ($devent == init) { 
if ($did == 5) { did -a regn 5 %reg.p } 
if ($did == 7) { did -a regn 7 %reg.em } 
} 
if ($devent == edit) { 
if ($did == 5) { set %reg.p $did(5) } 
if ($did == 7) { set %reg.em $did(7) } 
} 
if ($devent == sclick) { 
if ($did == 11) { /msg nickserv register %reg.p %reg.em | /echo -a 6(12 $+ $timestamp $+ 6) 4Nickiniz Kayıt Ediliyor. } 
} 
}

alias regnick dialog -m regn regn

dialog regn {

title Nick Register

size -1 -1 125 205

icon $mircexe

text Şifre:,4,10 10 100 15,

edit ,5,10 30 100 20,autohs

text Email: ,6,10 60 190 15,

edit ,7,10 75 100 20,autohs

;box

box ,8,1 1 120 55

box ,9,1 49 120 55

box ,10,1 97 120 57

; button

button "&Kayıt Et",11,10 160 100 20,flat ok

button "&Kapat",12,10 180 100 20,flat

;text

text "şu andaki nickiniz registerlenecektir",13,20 115 150 40,

}

on 1:dialog:regn:*:*:{

if ($devent == init) {

if ($did == 5) { did -a regn 5 %reg.p }

if ($did == 7) { did -a regn 7 %reg.em }

}

if ($devent == edit) {

if ($did == 5) { set %reg.p $did(5) }

if ($did == 7) { set %reg.em $did(7) }

}

if ($devent == sclick) {

if ($did == 11) { /msg nickserv register %reg.p %reg.em | /echo -a 6(12 $+ $timestamp $+ 6) 4Nickiniz Kayıt Ediliyor. }

}

» Devamını Oku

Yorum yaz addon, kayit, mirc, Nick, register

« 1 2 3 »