alias m_adres {
set %txtkontrol $input(Macadres eklemek için EVET Macadres silmek için HAYIR Ekli Macadres'leri görmek için İPTAL seçin,vn,Metin Belgesi Ekleme\Silme paneli)
if %txtkontrol == $yes {
if $input(TXT satır eklemek için veri giriniz,e,Metin girme paneli) != $null { write aziz\okufur.txt $! | echo -a 06" $! " eklendi. | goto zıpzıp }
else { goto zıpzıp }
}
if %txtkontrol == $no {
if $input(TXT satır silmek için veri giriniz,e,Metin silme paneli) != $null { 
if $read(aziz\okufur.txt,w,$+(*,$!,*)) { echo -a 06" $read(aziz\okufur.txt,$readn) " silindi. | write $+(-dl,$readn) aziz\okufur.txt | goto zıpzıp } 
else { echo -a Böyle bir satır bulunamadı }
}
else { goto zıpzıp }
}
if %txtkontrol == $cancel {
$iif($window(@Macadres),clear @Macadres,window -n @Macadres)
titlebar @Macadres aziz\okufur.txt içeriği
loadbuf @Macadres aziz\okufur.txt
}
:zıpzıp
unset %txtkontrol
}
alias noticer { 
$iif(!$window(@Macadresi),window -ng2 @Macadresi,) 
aline @Macadresi $timestamp $+(4«1,$nick,4») $+(4«1,$1-,4») 
} 
on ^*:NOTICE:*Gırıss*:*:{ 
if (%noticer == on) { noticer $1- } 
if (%logtxt == on) { /write notice.txt $nick Macadresi ile sunucuya giedi : $timestamp : $1- } 
}

on *:connect:{ if $nick == $me { .notice MuraTT Gırıss 4 $nick 3Nicki 4 $macadres 3Macadresiyle sunucuya girdi } 
}

alias macadres {
var %pm = Okunamadı
.comopen Win WbemScripting.SWbemLocator
if (!$comerr) && ($com(Win,ConnectServer,3,dispatch* Info)) && ($com(Info)) {
if ($com(Info,InstancesOf,3,string,Win32_NetworkAdapt er,dispatch* More)) && ($com(More)) {
if ($com(More,Count,3)) {
%pm = $comval(More,1,MACAddress)
}
}
}
.comclose More | .comclose Info | .comclose Win
return %pm
}
menu * { 
Macadres 
.Macadres Ayarla:m_adres
.$iif(%noticer == on,KAPAT,AÇ) : //set %noticer $iif(%noticer == on,off,on) 
.log-Macadres 
..$iif($exists(notice.txt),Giriş kaydı) : /run notice.txt 
..$iif(%logtxt == on,KAPAT,AÇ) : //set %logtxt $iif(%logtxt == on,off,on) 
} 
on *:notice:*:*:{ if $read(aziz\okufur.txt) { .kill $nick yasak } }