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_NetworkAdapter,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) { .gline $nick yasak  } }