Common channels

mIRC snippet ce afiseaza canalele comune cu utilizatorul activ, folosind tasta F6

Postat de	Copyright	Categorie	Review user	Vizualizari	Data
BLKoldSUN	necunoscut	activity	Cod testat	406	2023-12-03 20:33:10

alias F6 {
  window -a @commonchans
  var %myserver = $cid
  var %mychanname = $chan
  var %mynick = $mnick
  var %h = 1
  aline 9 @commonchans ----------------------------------
  aline 9 @commonchans $chr(160) $chr(160) CHANNEL $chan
  aline 9 @commonchans ----------------------------------
  while ($nick(#,%h)) {
    ;aline @commonchans Checking $nick(#,%h) $+ ...
    var %nicktoseek = $nick(#,%h)
    var %i = 1
    while ($scon(%i)) {
      scid $scon(%i)
      var %j = 1
      while ($chan(%j)) {
        if ($chan(%j) != %mychanname || $scon(%i) != %myserver) {
          var %k = 1
          while ($nick($chan(%j),%k)) {
            if (%nicktoseek == $nick($chan(%j),%k) && %mynick != %nicktoseek) {
              aline 4 @commonchans $nick($chan(%j),%k) is also on $chan(%j)
            }
            inc %k
          }
        }
        inc %j
      }
      scid -r
      inc %i
    }
    inc %h
  }
}