IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Niyetin Away kontrol ise bu kod işine yarayabilir (maelstrom yazmıştı sanırsam):
Kod:
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

}