miRC | Türkçe mIRC indir - Resmi mIRC indirme Sitesi

mIRC Mp3 Player Addon

03 Mart 2014 • 22:43 OxiGeN Hazır Kodlar

on 1:LOAD:/setup | /playlist
Alias setup {
set %mp3.dir $sdir=\\&amp;quot;Locate you mp3 files\\&amp;quot; | /echo -a 4,1 æ8M15p3 Directory set t8o4æ :2 %mp3.dir
set %mp3.player $findfile(c:\\\\,winamp.exe,1) | /echo -a 4,1 æ8M15p3 Player set t8o4æ :2 %mp3.player
}
Alias Mp3play {
if (%mp3.dir == $null) { set %mp3.dir $sdir=\\&amp;quot;Locate you mp3 directory\\&amp;quot; }
if (%mp3.player == $null) { set %mp3.player $dir=\\&amp;quot;Locate your mp3 player (winamp.exe)\\&amp;quot; winamp.exe }
%mp3.dir1 = %mp3.dir $+ \\\\ $+ *.mp?
set %mp3 $dir=\\&amp;quot;Which mp3 do you want to play?\\&amp;quot; %mp3.dir1
if (%mp3 == $null) { goto end }
%mp3.size = $round($calc($lof(%mp3)/1000000),2) $+ mb
%mp3.len = $mp3.len(%mp3)
%mp3.kbps = $mp3.kbps(%mp3)
say 0,2Non-Random-Mp3 $nopath(%mp3) 4/15 $+ %mp3.size $+ 4/15 $+ %mp3.len $+ 4/15 $+ %mp3.kbps $+ 4/
run %mp3.player $shortfn(%mp3)
unset %mp3.len %mp3.size %mp3.kbps
:end
}
Alias sF3 {
if (%mp3.dir == $null) { set %mp3.dir $sdir=\\&amp;quot;Locate you mp3 directory\\&amp;quot; }
if (%mp3.player == $null) { set %mp3.player $dir=\\&amp;quot;Locate your mp3 player (winamp.exe)\\&amp;quot; *.exe }
set %rand.mp3.1 $findfile(%mp3.dir,*.mp?,0)
set %rand.mp3.2 $rand(1,%rand.mp3.1)
set %mp3 $findfile(%mp3.dir,*.mp?,%rand.mp3.2)
%mp3.size = $round($calc($lof(%mp3)/1000000),2) $+ mb
%mp3.len = $mp3.len(%mp3)
%mp3.kbps = $mp3.kbps(%mp3)
say 0,2Random-Mp3 $nopath(%mp3) 4/15 $+ %mp3.size $+ 4/15 $+ %mp3.len $+ 4/15 $+ %mp3.kbps $+ 4/
run %mp3.player $shortfn(%mp3)
unset %mp3.len %mp3.size %mp3.kbps
:end
}
alias playlist {
set %mp3.list.starttime $ctime
set %mp3.list.nick $me
set %mp3.list.textfile $mircdir $+ $me $+ mp3.txt
window -dhnal @list
$findfile(%mp3.dir,*.mp3,@list)
set %mp3.list.total $findfile(%mp3.dir,*.mp3,0)
write %mp3.list.textfile $cr
write -c %mp3.list.textfile $me $+ \\\'s Mp3 List by: æAcidMp3æ Created by Juston
write %mp3.list.textfile type ! $+ $me filename.mp3 in the channel to request a file.
write %mp3.list.textfile Total $calc(%mp3.list.total - 1) MP3 files
set %mp3.list.count 1
set %mp3.list.filesize.total 0
set %mp3.list.file.lastdir \\&amp;quot;\\&amp;quot;
:next
set %mp3.list.file $line(@list,%mp3.list.count)
set %mp3.list.file.dir $nofile(%mp3.list.file)
set %mp3.list.file.name $nopath(%mp3.list.file)
set %mp3.list.filesize $round($calc( $file(%mp3.list.file).size / 1048576 ),3)
set %mp3.list.length $calc(60 - $len(%mp3.list.file.name) - $len(%mp3.list.count))
if (%mp3.list.file.dir != %mp3.list.file.lastdir) {
write %mp3.list.textfile $cr
write %mp3.list.textfile $chr(91) $+ %mp3.list.file.dir $+ ]
write %mp3.list.textfile $cr
}
else { }
set %mp3.list.file.lastdir %mp3.list.file.dir
if %mp3.list.count &amp;gt; 1 {
if %mp3.list.filesize &amp;gt; %mp3.list.filesize.high {
set %mp3.list.filesize.high %mp3.list.filesize
set %mp3.list.filename.high %mp3.list.file.name }
elseif %mp3.list.filesize &amp;lt; %mp3.list.filesize.low {
set %mp3.list.filesize.low %mp3.list.filesize
set %mp3.list.filename.low %mp3.list.file.name
}
}
else {
set %mp3.list.filesize.high %mp3.list.filesize
set %mp3.list.filesize.low %mp3.list.filesize
}
write %mp3.list.textfile $chr(91) $+ %mp3.list.count $+ ] %mp3.list.file.name $str($chr(160),%mp3.list.length) %mp3.list.filesize MB
inc %mp3.list.filesize.total %mp3.list.filesize
inc %mp3.list.count 1
if ( %mp3.list.count &amp;lt; %mp3.list.total ) { goto next }
:end
window -c @list
write %mp3.list.textfile
write %mp3.list.textfile $cr
if %mp3.list.filesize.total &amp;lt; 1024 { write %mp3.list.textfile Total $calc(%mp3.list.total - 1) MP3 files encompassing $round(%mp3.list.filesize.total,1) MB }
else { write %mp3.list.textfile Total $calc(%mp3.list.total - 1) MP3 files encompassing $round($calc( %mp3.list.filesize.total / 1024 ),3) GB }
set %mp3.list.time $calc($ctime - %mp3.list.starttime)
/run %mp3.list.textfile | echo -a 4,1 æ8A15n Mp3 lis8t4æ 2 ( $+ $calc(%mp3.list.total - 1) 14files total) 4,1 æ8h15as been create8d4æ 
}
alias dur { return $remove($duration($1),ks,k,ays,ay,rs,r,ins,in,ecs, ec,$chr(32)) }
alias mp3.br { goto $iif($1 isnum 1-14,$1,0) | :0 | return 112000 | :1 | return 32000 | :2 | return 40000 | :3 | return 48000 | :4 | return 56000 | :5 | return 64000 | :6 | return 80000 | :7 | return 92000 | :8 | return 112000 | :9 | return 128000 | :10 | return 160000 | :11 | return 192000 | :12 | return 224000 | :13 | return 256000 | :14 | return 320000 }
alias mp3.kbps { return $remove($mp3.bitrate($1-),000) $+ kbps }
alias mp3.bitrate {
if (($1 == $null) || ($exists($1-) == $false)) return 0
set %_bitrate $read -l1 $1-
if ($pos(%_bitrate,RIFF,1)) { unset %_bitrate | return 128000 }
set %_bitrate $asc($mid(%_bitrate,3,1))
.timer 1 1 unset %_bitrate
return $iif(%_bitrate == $null,128000,$mp3.br($int($calc(%_bitrate / 16))))
}
alias mp3.len {
if ($1 == $null) || ($exists($1) == $false) return 0m0s
else { return $dur($round($calc(($lof($1-) * .008) / $remove($mp3.bitrate($1-),000)),0))) }
}
Menu status,channel,query {
-
DandikMp3
.Setup:/setup
.Create List:/playlist
.Select Mp³:/mp3play
.Random Mp³:/sF3
}

Alias r3 {
if (%mp3.dir == $null) { set %mp3.dir $sdir=\\&amp;quot;Locate you mp3 directory\\&amp;quot; }
if (%mp3.player == $null) { set %mp3.player $dir=\\&amp;quot;Locate your mp3 player (winamp.exe)\\&amp;quot; *.exe }
set %rand.mp3.1 $findfile(%mp3.dir,*.mp?,0)
set %rand.mp3.2 $rand(1,%rand.mp3.1)
set %mp3 $findfile(%mp3.dir,*.mp?,%rand.mp3.2)
%mp3.size = $round($calc($lof(%mp3)/1000000),2) $+ mb
%mp3.len = $mp3.len(%mp3)
%mp3.kbps = $mp3.kbps(%mp3)
say 0,4~mp¼ $nopath(%mp3) 4/15 $+ %mp3.size $+ 4/15 $+ %mp3.len $+ 4/15 $+ %mp3.kbps $+ 4/
run %mp3.player $shortfn(%mp3)
unset %mp3.len %mp3.size %mp3.kbps
:end
}

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

on 1:LOAD:/setup | /playlist

Alias setup {

set %mp3.dir $sdir=\\&quot;Locate you mp3 files\\&quot; | /echo -a 4,1 æ8M15p3 Directory set t8o4æ :2 %mp3.dir

set %mp3.player $findfile(c:\\\\,winamp.exe,1) | /echo -a 4,1 æ8M15p3 Player set t8o4æ :2 %mp3.player

}

Alias Mp3play {

if (%mp3.dir == $null) { set %mp3.dir $sdir=\\&quot;Locate you mp3 directory\\&quot; }

if (%mp3.player == $null) { set %mp3.player $dir=\\&quot;Locate your mp3 player (winamp.exe)\\&quot; winamp.exe }

%mp3.dir1 = %mp3.dir $+ \\\\ $+ *.mp?

set %mp3 $dir=\\&quot;Which mp3 do you want to play?\\&quot; %mp3.dir1

if (%mp3 == $null) { goto end }

%mp3.size = $round($calc($lof(%mp3)/1000000),2) $+ mb

%mp3.len = $mp3.len(%mp3)

%mp3.kbps = $mp3.kbps(%mp3)

say 0,2Non-Random-Mp3 $nopath(%mp3) 4/15 $+ %mp3.size $+ 4/15 $+ %mp3.len $+ 4/15 $+ %mp3.kbps $+ 4/

run %mp3.player $shortfn(%mp3)

unset %mp3.len %mp3.size %mp3.kbps

:end

}

Alias sF3 {

if (%mp3.dir == $null) { set %mp3.dir $sdir=\\&quot;Locate you mp3 directory\\&quot; }

if (%mp3.player == $null) { set %mp3.player $dir=\\&quot;Locate your mp3 player (winamp.exe)\\&quot; *.exe }

set %rand.mp3.1 $findfile(%mp3.dir,*.mp?,0)

set %rand.mp3.2 $rand(1,%rand.mp3.1)

set %mp3 $findfile(%mp3.dir,*.mp?,%rand.mp3.2)

%mp3.size = $round($calc($lof(%mp3)/1000000),2) $+ mb

%mp3.len = $mp3.len(%mp3)

%mp3.kbps = $mp3.kbps(%mp3)

say 0,2Random-Mp3 $nopath(%mp3) 4/15 $+ %mp3.size $+ 4/15 $+ %mp3.len $+ 4/15 $+ %mp3.kbps $+ 4/

run %mp3.player $shortfn(%mp3)

unset %mp3.len %mp3.size %mp3.kbps

:end

}

alias playlist {

set %mp3.list.starttime $ctime

set %mp3.list.nick $me

set %mp3.list.textfile $mircdir $+ $me $+ mp3.txt

window -dhnal @list

$findfile(%mp3.dir,*.mp3,@list)

set %mp3.list.total $findfile(%mp3.dir,*.mp3,0)

write %mp3.list.textfile $cr

write -c %mp3.list.textfile $me $+ \\\'s Mp3 List by: æAcidMp3æ Created by Juston

write %mp3.list.textfile type ! $+ $me filename.mp3 in the channel to request a file.

write %mp3.list.textfile Total $calc(%mp3.list.total - 1) MP3 files

set %mp3.list.count 1

set %mp3.list.filesize.total 0

set %mp3.list.file.lastdir \\&quot;\\&quot;

:next

set %mp3.list.file $line(@list,%mp3.list.count)

set %mp3.list.file.dir $nofile(%mp3.list.file)

set %mp3.list.file.name $nopath(%mp3.list.file)

set %mp3.list.filesize $round($calc( $file(%mp3.list.file).size / 1048576 ),3)

set %mp3.list.length $calc(60 - $len(%mp3.list.file.name) - $len(%mp3.list.count))

if (%mp3.list.file.dir != %mp3.list.file.lastdir) {

write %mp3.list.textfile $cr

write %mp3.list.textfile $chr(91) $+ %mp3.list.file.dir $+ ]

write %mp3.list.textfile $cr

}

else { }

set %mp3.list.file.lastdir %mp3.list.file.dir

if %mp3.list.count &gt; 1 {

if %mp3.list.filesize &gt; %mp3.list.filesize.high {

set %mp3.list.filesize.high %mp3.list.filesize

set %mp3.list.filename.high %mp3.list.file.name }

elseif %mp3.list.filesize &lt; %mp3.list.filesize.low {

set %mp3.list.filesize.low %mp3.list.filesize

set %mp3.list.filename.low %mp3.list.file.name

}

else {

set %mp3.list.filesize.high %mp3.list.filesize

set %mp3.list.filesize.low %mp3.list.filesize

}

write %mp3.list.textfile $chr(91) $+ %mp3.list.count $+ ] %mp3.list.file.name $str($chr(160),%mp3.list.length) %mp3.list.filesize MB

inc %mp3.list.filesize.total %mp3.list.filesize

inc %mp3.list.count 1

if ( %mp3.list.count &lt; %mp3.list.total ) { goto next }

:end

window -c @list

write %mp3.list.textfile

write %mp3.list.textfile $cr

if %mp3.list.filesize.total &lt; 1024 { write %mp3.list.textfile Total $calc(%mp3.list.total - 1) MP3 files encompassing $round(%mp3.list.filesize.total,1) MB }

else { write %mp3.list.textfile Total $calc(%mp3.list.total - 1) MP3 files encompassing $round($calc( %mp3.list.filesize.total / 1024 ),3) GB }

set %mp3.list.time $calc($ctime - %mp3.list.starttime)

/run %mp3.list.textfile | echo -a 4,1 æ8A15n Mp3 lis8t4æ 2 ( $+ $calc(%mp3.list.total - 1) 14files total) 4,1 æ8h15as been create8d4æ

}

alias dur { return $remove($duration($1),ks,k,ays,ay,rs,r,ins,in,ecs, ec,$chr(32)) }

alias mp3.br { goto $iif($1 isnum 1-14,$1,0) | :0 | return 112000 | :1 | return 32000 | :2 | return 40000 | :3 | return 48000 | :4 | return 56000 | :5 | return 64000 | :6 | return 80000 | :7 | return 92000 | :8 | return 112000 | :9 | return 128000 | :10 | return 160000 | :11 | return 192000 | :12 | return 224000 | :13 | return 256000 | :14 | return 320000 }

alias mp3.kbps { return $remove($mp3.bitrate($1-),000) $+ kbps }

alias mp3.bitrate {

if (($1 == $null) || ($exists($1-) == $false)) return 0

set %_bitrate $read -l1 $1-

if ($pos(%_bitrate,RIFF,1)) { unset %_bitrate | return 128000 }

set %_bitrate $asc($mid(%_bitrate,3,1))

.timer 1 1 unset %_bitrate

return $iif(%_bitrate == $null,128000,$mp3.br($int($calc(%_bitrate / 16))))

}

alias mp3.len {

if ($1 == $null) || ($exists($1) == $false) return 0m0s

else { return $dur($round($calc(($lof($1-) * .008) / $remove($mp3.bitrate($1-),000)),0))) }

}

Menu status,channel,query {

DandikMp3

.Setup:/setup

.Create List:/playlist

.Select Mp³:/mp3play

.Random Mp³:/sF3

}

Alias r3 {

if (%mp3.dir == $null) { set %mp3.dir $sdir=\\&quot;Locate you mp3 directory\\&quot; }

if (%mp3.player == $null) { set %mp3.player $dir=\\&quot;Locate your mp3 player (winamp.exe)\\&quot; *.exe }

set %rand.mp3.1 $findfile(%mp3.dir,*.mp?,0)

set %rand.mp3.2 $rand(1,%rand.mp3.1)

set %mp3 $findfile(%mp3.dir,*.mp?,%rand.mp3.2)

%mp3.size = $round($calc($lof(%mp3)/1000000),2) $+ mb

%mp3.len = $mp3.len(%mp3)

%mp3.kbps = $mp3.kbps(%mp3)

say 0,4~mp¼ $nopath(%mp3) 4/15 $+ %mp3.size $+ 4/15 $+ %mp3.len $+ 4/15 $+ %mp3.kbps $+ 4/

run %mp3.player $shortfn(%mp3)

unset %mp3.len %mp3.size %mp3.kbps

:end

}

» Devamını Oku

Yorum yaz addon, mirc, mp3, player

mIRC /seen kodu

03 Mart 2014 • 22:41 OxiGeN Hazır Kodlar

/seen nick yazaran belirlediginiz nickle en son nezaman hangi kanalda bulundugunuzu gorebilirsiniz. /seen list yaparak listenizi gorebilir, /seen clear yaparak listeyi temizleyebilirsiniz.

Kod;

;$_find($1,1) = nick, $_find($1,2) = time, $_find($1,3) == date
alias _find return $gettok($hget(seen. $+ $server,$hfind(seen. $+ $server,$+(*,$1,*),1,w).data),$2,46)
on *:JOIN:#: {
if !$findfile($mircdir,$+(seen.,$server,.data),1) {
hmake seen. $+ $server 50
hsave seen. $+ $server $+(seen.,$server,.data)
}
elseif !$hget(seen. $+ $server) { hmake seen. $+ $server | hload seen. $+ $server $+(seen.,$server,.data) }
if $_find($nick,1) { hdel seen. $+ $server $hfind(seen. $+ $server,$+(*,$1,*),1,w).data }
hadd seen. $+ $server $r(0,99999999) $+($nick,$chr(46),$time,$chr(46),$date)
hsave seen. $+ $server $+(seen.,$server,.data)

}
alias seen {
if $server {
if $1 {
if $1 == clear {
hdel -w seen. $+ $server *
echo -a Temizlendi
hsave seen. $+ $server $+(seen.,$server,.data)
}
elseif $1 == list {
var %s = 1,%nick,%time,%date
while %s &amp;lt;= $hget(seen. $+ $server,0).item {
%nick = $gettok($hget(seen. $+ $server,%s).data,1,46)
%time = $gettok($hget(seen. $+ $server,%s).data,2,46)
%date = $gettok($hget(seen. $+ $server,%s).data,3,46)
echo -a %s Nick: %nick Time: %time Date: %date
inc %s
}
}
elseif $_find($1,1) {
echo -a $_find($1,1) $+ , En son $_find($1,3) Tarihinde Saat $_find($1,2) Saatinde Görüldü...
}
else echo -a $1 $+ , Listemde yok....
}
}
else echo -a Ba?l? De?ilsiniz...

/seen nick yazaran belirlediginiz nickle en son nezaman hangi kanalda bulundugunuzu gorebilirsiniz. /seen list yaparak listenizi gorebilir, /seen clear yaparak listeyi temizleyebilirsiniz.

Kod;

;$_find($1,1) = nick, $_find($1,2) = time, $_find($1,3) == date

alias _find return $gettok($hget(seen. $+ $server,$hfind(seen. $+ $server,$+(*,$1,*),1,w).data),$2,46)

on *:JOIN:#: {

if !$findfile($mircdir,$+(seen.,$server,.data),1) {

hmake seen. $+ $server 50

hsave seen. $+ $server $+(seen.,$server,.data)

}

elseif !$hget(seen. $+ $server) { hmake seen. $+ $server | hload seen. $+ $server $+(seen.,$server,.data) }

if $_find($nick,1) { hdel seen. $+ $server $hfind(seen. $+ $server,$+(*,$1,*),1,w).data }

hadd seen. $+ $server $r(0,99999999) $+($nick,$chr(46),$time,$chr(46),$date)

hsave seen. $+ $server $+(seen.,$server,.data)

}

alias seen {

if $server {

if $1 {

if $1 == clear {

hdel -w seen. $+ $server *

echo -a Temizlendi

hsave seen. $+ $server $+(seen.,$server,.data)

}

elseif $1 == list {

var %s = 1,%nick,%time,%date

while %s &lt;= $hget(seen. $+ $server,0).item {

%nick = $gettok($hget(seen. $+ $server,%s).data,1,46)

%time = $gettok($hget(seen. $+ $server,%s).data,2,46)

%date = $gettok($hget(seen. $+ $server,%s).data,3,46)

echo -a %s Nick: %nick Time: %time Date: %date

inc %s

}

elseif $_find($1,1) {

echo -a $_find($1,1) $+ , En son $_find($1,3) Tarihinde Saat $_find($1,2) Saatinde Görüldü...

}

else echo -a $1 $+ , Listemde yok....

}

else echo -a Ba?l? De?ilsiniz...

» Devamını Oku

Yorum yaz kodu, mirc, seen

mIRC Lag Durumunuz

03 Mart 2014 • 19:57 OxiGeN Hazır Kodlar

bu kod ile sunucudaki lagdaki durumunuzu ögrenebilirsiniz. Kullanimi /lag.


alias lag { set %lag $ticks | .quote PING $ticks }
on ^*:PONG:{
  if (%lag) {
    echo -a * Lag: $calc($ticks - $iif($2 isnum,$2,%lag))  ( $+ $nick $+ )
    unset %lag
    haltdef
  }
}

alias lag { set %lag $ticks | .quote PING $ticks }

on ^*:PONG:{

if (%lag) {

echo -a * Lag: $calc($ticks - $iif($2 isnum,$2,%lag)) ( $+ $nick $+ )

unset %lag

haltdef

}

» Devamını Oku

Yorum yaz

mIRC Auto kick

03 Mart 2014 • 19:34 OxiGeN Hazır Kodlar

on @Ahmet:JOIN:#: {
if ($chan isin %knl) { halt }
mode # +b $nick
/kick # $nick Nickiniz ?uan kanal seviyesi ile bagdaşmıyorr.. Lütfen &amp;amp;#8220;/nick yeninickiniz&amp;amp;#8221; komutu ile nickiniz de?i?tirin. 2 $network ~
/msg $nick Kufur, hakaret, msn/cam veya cinsellik ifade eden rumuzlari global kanallarimizda kullanamazsiniz. Bu nicki 4( $nick ) kullanmak yasakt?r.
}

on @Ahmet:JOIN:#: {

if ($chan isin %knl) { halt }

mode # +b $nick

/kick # $nick Nickiniz ?uan kanal seviyesi ile bagdaşmıyorr.. Lütfen &amp;#8220;/nick yeninickiniz&amp;#8221; komutu ile nickiniz de?i?tirin. 2 $network ~

/msg $nick Kufur, hakaret, msn/cam veya cinsellik ifade eden rumuzlari global kanallarimizda kullanamazsiniz. Bu nicki 4( $nick ) kullanmak yasakt?r.

}

» Devamını Oku

Yorum yaz autokick remote, kick remotesi, oto kick remotesi, otomatik kick remote

Nick değişikliklerini farklı bir pencerede gösteren mirc kodu

03 Mart 2014 • 19:04 OxiGeN Hazır Kodlar, IRC Komutları

Oper ve Adminler için irc’de çok ideal bir kod olan ve nick değişenleri ayrı bir pencerede gösteren bu kodu sadece mircinizde remote kısmına eklemeniz yeterlidir. Remoteye eklemek için mirciniz açıkken alt+r yapmanız ve açılan dosyada yeni bir dosya açıp kodu oraya yerleştirmeniz kafidir. Nick değişikliklerini farklı bir pencerede gösteren mirc kodu. on ^*:snotice:*his/her*: { window -e @Nickler […]

» Devamını Oku

Yorum yaz farklı pencere, mirc, mirc kodları, nick değişikliği gösterme kodu, nick kodu, nickler penceresi, oper admin kodları, oper adminler için

mIRC Baska Nickle Gireni Belirleme Kodu

03 Mart 2014 • 18:32 OxiGeN Hazır Kodlar

Kod;

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
)

Kod;

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 mirc nick kodu, nick belirleme kodu

Clone Taramasi kodu

02 Mart 2014 • 17:54 OxiGeN Addonlar

alias Clone { var %ğ = $nick(#,0) while %ğ { if !$hget(host,$address($nick(#,%ğ),2)) { hadd -m host $address($nick(#,%ğ),2) 1 } else { hinc host $address($nick(#,%ğ),2) } dec %ğ } echo 4 -st # kanalı için clone taraması başlatıldı… echo -s – .timer 1 1 .h_al # } alias h_al { var %ı = $hget(host,0).item while %ı { if $hget(host,%ı).data > 1 […]

» Devamını Oku

Yorum yaz addon, IRC, irc komutları, komutlar, mirc, Mirc indir, mirc komutlari

« 1 … 53 54 55 56 57 … 84 »