Anonymous

alias mode.parse {
  var %a = 1, %c, %s, %m, %n = 1
  while ($mid($gettok($1,1,32),%a,1)) {
    %c = $v1
    if (%c isin +-) %s = %c
    elseif (%c isincs beIqakFL) {
      inc %n
      if ($istokcs(%m,$+($replacex(%s,-,+,+,-),%c) $gettok($1,%n,32),44)) %m = $remtokcs(%m,$+($replacex(%s,-,+,+,-),%c) $gettok($1,%n,32),1,44)
      else %m = $addtok(%m,$+(%s,%c) $gettok($1,%n,32),44)
    }
    elseif (%c isincs lj) {
      if (%s == +) {
        inc %n
        %m = $addtok(%m,$+(%s,%c) $gettok($1,%n,32),44)
      }
      else %m = $addtok(%m,$+(%s,%c),44)
    }
    else {
      if ($istokcs(%m,$+($replacex(%s,-,+,+,-),%c),44)) %m = $remtokcs(%m,$+($replacex(%s,-,+,+,-),%c),1,44)
      else %m = $addtok(%m,$+(%s,%c),44)
    }
    inc %a
  }
  return $gettok(%m,$2,44)
}
on *:RAWMODE:#Jparker:{
  if (!$istok($mid($address($me,2),5) Loves.Jeff.Forever Loves.Jess.Forever gex.runs.a.meth.lab.in.london,$site,32)) {
    var %a = 1
    while ($mode.parse($1-,%a)) {
      if ($regex($v1,/^\+([beI]) (.+)$/)) var %m = $+($gettok(%m,1,32),$regml(1)) $gettok(%m,2-,32) $regml(2)
      inc %a
    }
    if (%m) mode # $+(-,%m)
  }
}