Mine

Alias c1 { return $+($chr(3),07,$1-) } 
Alias c2 { return $+($chr(3),01,$1-) } 
Alias c3 { return $+($chr(3),04,$1-) }
on $*:TEXT:/^[!.@]n(o)?b(urn)?/Si:#:{  
  if (@ isin $1) && ($nick isreg $chan) { halt }
  if (%noburn == on) {
    if (!$2) {
      $iif($left($1,1) == @, msg $chan, notice $nick) $c2(*** [) $+ $c1(No-Burn) $+ $c2(]:) Levels of some seafood are: $c2([) $+ $c1(Normal) $c3([Gauntlets]) $+ $c2(]) $c1(Tuna) 65 $c3([n/a]) $c2(~) $c1(Lobster) 74 $c3([68]) $c2(~) $c1(Swordfish) 86 $c3([81]) $c2(~) $c1(Monkfish) 89 $c3([89]) $c2(~) $c1(Shark) n/a $c3([94])  $c1($chr(40)) $+ $c2(Ryan) $+ $c1($chr(41))
    }
    if ($2) {
      $iif($left($1,1) == @, msg $chan, notice $nick) $Fish($2)
    }
  }
}
Alias Fish {
  if (Tu* iswm $1) return $c2(*** [) $+ $c1(No-Burn) $+ $c2(]:) $c2([) $+ $c1(Normal) $c3([Gauntlets]) $+ $c2(]) Fish: $c1(Tuna) 65 $c3([n/a])
  if (Lo* iswm $1) return $c2(*** [) $+ $c1(No-Burn) $+ $c2(]:) $c2([) $+ $c1(Normal) $c3([Gauntlets]) $+ $c2(]) Fish: $c1(Lobster) 74 $c3([68])
  if (Sw* iswm $1) return $c2(*** [) $+ $c1(No-Burn) $+ $c2(]:) $c2([) $+ $c1(Normal) $c3([Gauntlets]) $+ $c2(]) Fish: $c1(Swordfish) 86 $c3([81])
  if (Mo* iswm $1) return $c2(*** [) $+ $c1(No-Burn) $+ $c2(]:) $c2([) $+ $c1(Normal) $c3([Gauntlets]) $+ $c2(]) Fish: $c1(Monkfish) 89 $c3([89])
  if (Sh* iswm $1) return $c2(*** [) $+ $c1(No-Burn) $+ $c2(]:) $c2([) $+ $c1(Normal) $c3([Gauntlets]) $+ $c2(]) Fish: $c1(Shark) n/a $c3([94])
}