Anonymous

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) {
      Fish $2
    }
  }
}
Alias NoBurn {
  if (!$1) { echo -a $timestamp $c2(*** [) $+ $c1(Error) $+ $c2(]:) Incorrect Syntax. | halt }
  if ($1 == -a) { msg $active $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 ($1 == -f) { Fish $2 }
  if ($1 == -t) { set %noburn $2 }
}
Alias Fish {
  if (Tu* iswm $1) msg $active $c2(*** [) $+ $c1(No-Burn) $+ $c2(]:) $c2([) $+ $c1(Normal) $c3([Gauntlets]) $+ $c2(]) Fish: $c1(Tuna) 65 $c3([n/a])
  if (Lo* iswm $1) msg $active $c2(*** [) $+ $c1(No-Burn) $+ $c2(]:) $c2([) $+ $c1(Normal) $c3([Gauntlets]) $+ $c2(]) Fish: $c1(Lobster) 74 $c3([68])
  if (Sw* iswm $1) msg $active $c2(*** [) $+ $c1(No-Burn) $+ $c2(]:) $c2([) $+ $c1(Normal) $c3([Gauntlets]) $+ $c2(]) Fish: $c1(Swordfish) 86 $c3([81])
  if (Mo* iswm $1) msg $active $c2(*** [) $+ $c1(No-Burn) $+ $c2(]:) $c2([) $+ $c1(Normal) $c3([Gauntlets]) $+ $c2(]) Fish: $c1(Monkfish) 89 $c3([89])
  if (Sh* iswm $1) msg $active $c2(*** [) $+ $c1(No-Burn) $+ $c2(]:) $c2([) $+ $c1(Normal) $c3([Gauntlets]) $+ $c2(]) Fish: $c1(Shark) n/a $c3([94])
}