Mine

on *:TEXT:*:#: {
  if ($chan == #heart) {
    if (/ulist >3 ) {
      if ($left($1,1) !isin !) halt
      elseif ($right($1,-1) == voice) var %style = mev
      elseif ($right($1,-1) == devoice) var %style = medv
      elseif ($right($1,-1) == k) var %style = kick
      elseif ($right($1,-1) == kb) var %style = ban
      elseif ($right($1,-1) == unban) var %style = unban
    }
    if (/ulist >4 ) {
      if ($left($1,1) !isin !) halt
      elseif ($right($1,-1) == k) var %style = mehop
      elseif ($right($1,-1) == kb) var %style = medehop
      elseif ($right($1,-1) == voice) var %style = v
      elseif ($right($1,-1) == devoice) var %style = dv
    } 
    if (/ulist >1000 ) {
      if ($left($1,1) !isin !) halt
      elseif ($right($1,-1) == halfop) var %style = op
      elseif ($right($1,-1) == dehop) var %style = deop
      elseif ($right($1,-1) == voice) var %style = hop
      elseif ($right($1,-1) == devoice) var %style = dehop
    }

  }
  if ($chan == #stomach) {
    if (/ulist >2 ) {
      if ($left($1,1) !isin !) halt
      elseif ($right($1,-1) == voice) var %style = mev
      elseif ($right($1,-1) == devoice) var %style = medv
      elseif ($right($1,-1) == k) var %style = kick
      elseif ($right($1,-1) == kb) var %style = ban
    }
    if (/ulist >3 ) {
      if ($left($1,1) !isin !) halt
      elseif ($right($1,-1) == halfop) var %style = mehop
      elseif ($right($1,-1) == dehop) var %style = medehop
      elseif ($right($1,-1) == voice) var %style = v
      elseif ($right($1,-1) == devoice) var %style = dv
    }
    if (/ulist >4 ) {
      if ($left($1,1) !isin !) halt
      elseif ($right($1,-1) == halfop) var %style = meop
      elseif ($right($1,-1) == dehop) var %style = medeop
      elseif ($right($1,-1) == voice) var %style = hop
      elseif ($right($1,-1) == devoice) var %style = dehop
    }
    if (/ulist >1000 ) {
      if ($left($1,1) !isin !) halt
      elseif ($right($1,-1) == halfop) var %style = op
      elseif ($right($1,-1) == dehop) var %style = deop
      elseif ($right($1,-1) == voice) var %style = hop
      elseif ($right($1,-1) == devoice) var %style = dehop
    }
  }
  if (%style == mev) {
    mode $chan +v $nick
  }
  if (%style == medv) {
    mode $chan -v $nick
  }
  if (%style == kick) {
    kick $chan $2 $iif($3,$3-,kicked by: $nick)
  }
  if (%style == ban) {
    ban $chan $2
    kick $chan $2 $iif($3,$3-,kicked by: $nick)
  }
  if (%style == mev) {
    mode $chan +v $nick
  }
  if (%style == medv) {
    mode $chan -v $nick
  }
  if (%style == kick) {
    kick $chan $2 $iif($3,$3-,kicked by: $nick)
  }
  if (%style == ban) {
    ban $chan $2
    kick $chan $2 $iif($3,$3-,kicked by: $nick)
  }
  if (%style == ban) {
    unban $chan $2
  }
  if (%style == mehop) {
    mode $chan +h $nick
  }
  if (%style == medehop) {
    mode $chan -h $nick
  }
  if (%style == v) {
    mode $chan +v $2
  }
  if (%style == dv) {
    mode $chan -v $2
  }
  if (%style == meop) {
    mode $chan +o $nick
  }
  if (%style == medeop) {
    mode $chan -0 $nick
  }
  if (%style == kick) {
    kick $chan $2 $iif($3,$3-,kicked by: $nick)
  }
  if (%style == ban) {
    ban $chan $2
    kick $chan $2 $iif($3,$3-,kicked by: $nick)
  }
  if (%style == mehop) {
    mode $chan +h $nick
  }
  if (%style == medehop) {
    mode $chan -h $nick
  }
  if (%style == v) {
    mode $chan +v $2
  }
  if (%style == dv) {
    mode $chan -v $2
  }
  if (%style == op) {
    mode $chan +o $iif($2,$2,$nick)
  }
  if (%style == deop) {
    mode $chan -0 $iif($2,$2,$nick)
  }
  if (%style == hop) {
    mode $chan +h $iif($2,$2,$nick)
  }
  if (%style == dehop) {
    mode $chan -h $iif($2,$2,$nick)
  }
}

on 2:join:#stomach: {
  if (heart !ison $chan) {
    mode $chan +v $nick
  }
}
on 3:join:#: {
  if (heart !ison $chan) {
    if ($chan == #heart) { 
      mode $chan +v $nick
    }
    if ($chan == #stomach) {
      mode $chan +h $nick
    }
  }
}
on 4:join:#: { 
  if (heart !ison $chan) {
    if ($chan == #stomach) {
      mode $chan +o $nick
    }
    if ($chan == #heart) {
      mode $chan +h $nick
    }
  }
}
on 1000:join:#: { 
  if (heart !ison $chan) {
    if ($chan == #stomach || $chan == #heart) {
      mode $chan +o $nick
    }
  }
}
ctcp 9000:guser:?: { 
  if ($2 =< 9000) { notice $nick you have added $2 to lvl $3 | /guser -a $2 $address($3,2)
  }
  else notice $nick sorry but you do not have access for adding to that lvl.
}
ctcp 1000:guser:?: { 
  if ($2 =< 1000) { notice $nick you have added $2 to lvl $3 | /guser -a $2 $address($3,2)
  }
  else notice $nick sorry but you do not have access for adding to that lvl.
}