Forums Scripts & Popups Me again - Prb with on op help voice

on ^*:op:#: {
  echo $chan $asctime(10(04HH:nn:ss T10)) 10[4Op10] $nick Opped $opnick
  haltdef
}
on ^*:deop:#: {
  echo $chan $asctime(10(04HH:nn:ss T10)) 10[4Op10] $nick DeOpped $opnick
  haltdef
}
on ^*:help:#: {
  echo $chan $asctime(10(04HH:nn:ss T10)) 10[4HalfOp10] $nick HalfOpped $hnick
  haltdef
}
on ^*:dehelp:#: {
  echo $chan $asctime(10(04HH:nn:ss T10)) 10[4DeHalfOp10] $nick DeHalfOpped $hnick
  haltdef
}
on ^*:voice:#: {
  echo $chan $asctime(10(04HH:nn:ss T10)) 10[4Voice10] $nick Voiced $vnick
  haltdef
}
on ^*:devoice:#: {
  echo $chan $asctime(10(04HH:nn:ss T10)) 10[4DeVoice10] $nick DeVoiced $vnick
  haltdef
}
  

on *:RAWMODE:#: { 
  if ($1 == +a) {
    echo $chan $asctime(10(04HH:nn:ss T10)) 10[4 [color:red]what ever "a" means[/color] 10] $nick [color:red]what ever "a" means[/color] $2-
  }
  if ($1 == -a) {
    echo $chan $asctime(10(04HH:nn:ss T10)) 10[4 [color:red]what ever "a" means[/color] 10] $nick [color:red]what ever "a" means[/color] $2-
  }
  [color:blue]/echo -s Raw mode line: $nick set $1-[/color] 
}

alias getmodes {
  var %param = 2, %m = 1
  while (%m <= $len($gettok($1, 1, 32))) {
    var %chr = $mid($gettok($1, 1, 32), %m, 1)
    if (%chr isin +-) var %mod = %chr
    else {
      if ((%chr isincs $remove($gettok($chanmodes,1-3,44),$chr(44))) || (%chr isincs qaohv)) {
        var %modes = $addtok(%modes, $+(%mod,%chr,:,$gettok($1, %param, 32)), 32)
        /inc %param
      }
      else var %modes = $addtok(%modes, $+(%mod,%chr), 32)
    }
    /inc %m
  }
  return %modes
}

on *:RAWMODE:#: {
  var %modes = $getmodes($1-)
  if ($wildtok(%modes, +a:*, 1, 32)) {
    var %nick = $gettok($ifmatch, 2, $asc(:))
    ; use %nick instead of $2-, and viola
  }
}

on *:RAWMODE:#: {
  var %modes = $getmodes($1-)
  ; +a
  if ($wildtok(%modes, [color:Red]+a[/color]:*, 1, 32)) {
    var %nick = $gettok($ifmatch, 2, $asc(:))
    ;
  }
  ; -a
  else if ($wildtok(%modes, [color:Red]-a[/color]:*, 1, 32)) {
    var %nick = $gettok($ifmatch, 2, $asc(:))
    ;
  }
}