menu channel {
  • Away Scan:{ if ($group(#awayscan) = on) { wawayscan 04> hata; başka bir away taraması yapılıyor.. } | elseif ($group(#awayscan) = off) { wawayscan 04> # kanalında away taraması başlatıldı.. | unset %awayscan | .enable #awayscan | who # } }
}
#awayscan off
raw 352:*:{ if (G isincs $7) { set %awayscan $addtok(%awayscan,$6,32) | raw -q whois $6 } }
raw 315:*:{ if ($group(#awayscan) = on) { .disable #awayscan | wawayscan 07> $iif($numtok(%awayscan,32) > 0,$2 kanalında $ifmatch tane away nick bulundu $+ $chr(44) away mesajlarına bakılıyor.,$2 kanalında kimse away değil..) } }
#awayscan end
raw 301:*:{ if $istok(%awayscan,$2,32) { wawayscan 05! away nick; $+(,$2,) mesaj; $3- | set %awayscan $remtok(%awayscan,$2,1,32) } }
alias wawayscan { if !$window(@AwayScan) { window -lk0z @AwayScan } | aline -p @AwayScan $time(HH:nn.sst) $1- }
menu @AwayScan {
  Kopyala:clipboard $sline(@AwayScan,1)
  -
  $iif($strip($gettok($sline(@AwayScan,1),2,32)) = $chr(33),Kick):{
    var %o = $comchan($strip($gettok($sline(@AwayScan,1),5,32)) ,0) | while %o {
      var %c = $comchan($strip($gettok($sline(@AwayScan,1),5,32)) ,%o), %ö = $strip($gettok($sline(@AwayScan,1),5,32))
    if $me isop %c { kick %c %ö Away } | dec %o }
  }
  $iif($strip($gettok($sline(@AwayScan,1),2,32)) = $chr(33),Kick $+($chr(40),?,$chr(41))):{
    if $?="Kick mesajını yazınız:" {
      var %ç = $!
      var %o = $comchan($strip($gettok($sline(@AwayScan,1),5,32)) ,0) | while %o {
        var %c = $comchan($strip($gettok($sline(@AwayScan,1),5,32)) ,%o), %ö = $strip($gettok($sline(@AwayScan,1),5,32))
      if $me isop %c { kick %c %ö %ç } | dec %o }
    }
  }
  -
  $iif($strip($gettok($sline(@AwayScan,1),2,32)) = $chr(33),KBan):{
    var %o = $comchan($strip($gettok($sline(@AwayScan,1),5,32)) ,0) | while %o {
      var %c = $comchan($strip($gettok($sline(@AwayScan,1),5,32)) ,%o), %ö = $strip($gettok($sline(@AwayScan,1),5,32))
    if $me isop %c { ban -k %c %ö 2 Away } | dec %o }
  }
  $iif($strip($gettok($sline(@AwayScan,1),2,32)) = $chr(33),KBan $+($chr(40),?,$chr(41))):{
    if $?="KickBan mesajını yazınız:" {
      var %ç = $!
      var %o = $comchan($strip($gettok($sline(@AwayScan,1),5,32)) ,0) | while %o {
        var %c = $comchan($strip($gettok($sline(@AwayScan,1),5,32)) ,%o), %ö = $strip($gettok($sline(@AwayScan,1),5,32))
      if $me isop %c { ban -k %c %ö 2 %ç } | dec %o }
    }
  }
  -
  $iif($line(@AwayScan,0) > 0,$style(0),$style(2)) Temizle:clear @AwayScan
  Kapat:window -c @AwayScan
}