mIRC indir

raw 006:*: {
if !%xw { set %xw 1 }
if %xw {
hadd -m c $+(c,%xw) $2-
inc %xw
}
if %xw == 10 {
var %char = 32 22 17 34 30 28 29 17 16 14
[...]

merhaba bu anddon avrupada çok kulanıyor çok moda örnegin awayken kanaldan seslenen ayrı özeline yazana ayrı away mesajı ayrı ayrı seslenen cevap veriyor umarım bilrinin işine yarar iyi çalışmalar ..
kod :
alias awayon {
if ($readini(away.ini,settings,nickchange) == on) {
/nick $readini(away.ini,settings,awaynick)
set %timeaway $time
set %timeaway2 $ctime
/away $readini(away.ini,settings,awayreason) $chr(166) %version
/ame Away: $readini(away.ini,settings,awayreason) $chr(166) %version
}
else {
set %timeaway $time
set %timeaway2 $ctime
/away $readini(away.ini,settings,awayreason) [...]

Bu kod kanalda herhangi birisi away olursa deop oto deop eder. Kodun mantığı ; yok , away , gelecek gibi Nicke ek alırsa deop eder.
on !*:NICK:{
if (away isin $newnick) || (yok isin $newnick) || (gelcek isin $newnick) {
deopall
}
[...]

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 Yasaktir2 [14!2] 7¤
}
}

*\Bu kod ile sunucuya giriş yapanlara whois çeker ve fullname kısmında reklam bulunan kişileri size bildirir*\
Raw 352:*: {
if $regex($upper($strip($9-)),İRCDE|.COM|WWW.|HTTP:|.ORG) && $regex($strip($2),/#) {
var %ö 1
while %ö <= $comchan($6,0) {
msg #x $comchan($6,%ö) $6 4FULLNAME’de Reklam Tespit Edildi.14 mIRCReal
[...]

on @Ahmet:JOIN:#: {
if ($chan isin %knl) { halt }
mode # +b $nick
/kick # $nick Nickiniz şuan kanal seviyesi ile bağdaşmıyor.. Lütfen “/nick yeninickiniz” 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.
}

- raw 301:*: {
haltdef
echo -a 4» Away: Evet: ( $+ $3- $+ )
}
raw 307:*: {
haltdef
echo -a 4» Bu Nick Kayıtlı ve Şifrelidir
}
raw 310:*: {
haltdef
echo -a 4» IRC Helper
}
raw 311:*:{
haltdef
echo -a 4————————-1<12Kimlik Bilgisi Sorgulaması1>4————————
echo -a 4» Nick: $2
echo -a 4» FullName: $6-
echo -a 4» İp Adresi: $3 $+ 4 $+ @ $+ 1 $+ $4
}
raw 312:*:{
haltdef
echo [...]

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 [...]

menu menubar {
save-Notice
.$iif(%noticer == on,désactiver,activer) : //set %noticer $iif(%noticer == on,off,on)
.log-Notice
..$iif($exists(notice.txt),Voir les notices) : /run notice.txt
..$iif(%logtxt == on,désactiver,activer) : //set %logtxt $iif(%logtxt == on,off,on)
}
alias noticer {
$iif(!$window(@Notice),window -ng2 @Notice,)
aline @Notice $timestamp $+(4«1,$nick,4») $+(4«1,$1-,4»)
}
on ^*:NOTICE:*:*:{
if (%noticer == on) { noticer $1- [...]

IRC Sunucularında memoserv kullanılarak size yollanan mesajları bu kodu kullanarak çok daha kolayca okuyabileceksiniz

dialog ms {
title “MemoServ Bilgi Kutusu”
size -1 -1 220 85
text “*** Yeni bir notunuz var.”,2,10 10 220 200
text “*** Okumak için tamam butonuna basınız.”,3,10 30 220 200
button “&Tamam”,4,70 50 85 25,ok
}
on ^*:notice:*yeni bir notunuz*:*:{
if ($nick == MemoServ) {
dialog -ma ms ms
halt
}
}
on 1:ACTIVE:*:{
if [...]