Public paste
Channel whois
By: Guest | Date: Jan 3 2012 14:10 | Format: mIRC Scripting | Expires: never | Size: 1.84 KB | Hits: 539

  1. raw 319:*: {
  2.   var %aantal = $numtok($3-,32)
  3.   var %i = 0
  4.   while (%i <= %aantal) {
  5.     unset %tocheck
  6.     var %cur = $gettok($3-,%i,32)
  7.     ; 45 - 33 ! 60 <
  8.     if ($asc($left(%cur,1)) == 45 || $asc($left(%cur,1)) == 33 || $asc($left(%cur,1)) == 60) {
  9.       %tocheck = $mid(%cur,2)
  10.     }
  11.     if ($asc($left(%tocheck,1)) == 45 || $asc($left(%tocheck,1)) == 33 || $asc($left(%tocheck,1)) == 60) {
  12.       %tocheck = $mid(%tocheck,2)
  13.     }
  14.     if ($asc($left(%tocheck,1)) == 45 || $asc($left(%tocheck,1)) == 33 || $asc($left(%tocheck,1)) == 60) {
  15.       %tocheck = $mid(%tocheck,2)
  16.     }
  17.     if (%tocheck) %toshow = %cur
  18.     else {
  19.       %tocheck = %cur
  20.       %toshow = $mid(%cur,2,300)
  21.     }
  22.     var %wchan = $remove(%cur, $gettok(%cur, 1, 35))
  23.     if ($left(%tocheck,1) == @ || $left(%tocheck,2) == :@) {
  24.       var %op = %op %toshow
  25.     }
  26.     elseif ($left(%tocheck,1) == +) {
  27.       var %voice = %voice %toshow
  28.     }
  29.     elseif ($left(%tocheck,1) == %) {
  30.       var %hop = %hop %toshow
  31.     }
  32.     elseif ($left(%tocheck,1) == &) {
  33.       var %admin = %admin %toshow
  34.     }
  35.     elseif ($left(%tocheck,1) == ~) {
  36.       var %owner = %owner %toshow
  37.     }
  38.     else {
  39.       if ($left(%tocheck,1) == $chr(35)) {
  40.         var %regged = %regged %cur
  41.       }
  42.     }
  43.     inc %i
  44.   }
  45.   if (%owner) echo -at $+($chr(160),$chr(160),[,$2,]) - $+([,Owner in: %owner,])
  46.   if (%admin) echo -at $+($chr(160),$chr(160),[,$2,]) - $+([,Admin in: %admin,])
  47.   if (%op) echo -at $+($chr(160),$chr(160),[,$2,]) - $+([,Opped in: %op,])
  48.   if (%hop) echo -at $+($chr(160),$chr(160),[,$2,]) - $+([,HalfOpped in: %hop,])
  49.   if (%voice) echo -at $+($chr(160),$chr(160),[,$2,]) - $+([,Voiced in: %voice,])
  50.   if (%regged) echo -at $+($chr(160),$chr(160),[,$2,]) - $+([,Reg in: %regged,])
  51.   if (%aantal) echo -at $+($chr(160),$chr(160),[,$2,]) - $+([,Total chans: %aantal,])
  52.   halt
  53. }