Stuff

on $*:TEXT:/^[!@.]MaxHit/Si:#: { 
 set %max.display $iif($left($1,1) == @,msg $chan,.notice $nick)
        if ($iif(-* iswm $2,$5,$4) == $null) {
          %max.display $c1(Specify) $c2(bonus, strength level, strength bonus, attack style) $c1(in this squence) $c2(!maxhit -(bonus) <strength level> <strength bonus> <attack style>)
          %max.display $c1(Replace the bonus with these letters) $c2(Strength Potion: SP) $c1(|) $c2(Zamorak Potion: ZP) $c1(|) $c2(Super Strength Potion: SS) $c1(|) $c2(Burst of Strength: BS) $c1(|) $c2(Superhuman Strength: HS) $c1(|) $c2(Ultimate Strength: US) $c1(If you are not using them, leave it blank)
          halt
        }
        elseif ($iif(-* iswm $2,$3,$2) !isnum 1-99) {
          %max.display $c2(Strength level) $c1(has to be a) $c2(number) $c1(and between) $c2(1-99)
          halt
        }
        elseif ($iif(-* iswm $2,$4,$3) !isnum 1-144) {
          %max.display $c2(Strength bonus) $c1(has to be a) $c2(number) $c1(and between) $c2(1-144)
          halt
        }
        elseif ($stylee($iif(-* iswm $2,$5,$4)) == Error) {
          %max.display $c1(Specify a correct) $c2(attack style)
          halt
        }
        if (-* iswm $2) {
          if (*SP*ZP* iswm $2 || *SP*SS* iswm $2 || *ZP*SS* iswm $2 || *ZP*SP* iswm $2 || *SS*ZP* iswm $2 || *SS*SP* iswm $2 || *SS*SS* iswm $2 || *ZP*ZP* iswm $2 || *SP*SP* iswm $2) {
            %max.display $c1(You can not have 2) $c2(Pot bonuses)
            halt
          }
          if (*BS*BS* iswm $2 || *BS*HS* iswm $2 || *BS*US* iswm $2 || *HS*BS* iswm $2 || *HS*HS* iswm $2 || *HS*US* iswm $2 || *US*BS* iswm $2 || *US*HS* iswm $2 || *US*US* iswm $2) {
            %max.display $c1(You can not have 2) $c2(Prayer bonuses)
            halt
          }
          elseif ($mid($2,2,2) == $right($2,2)) {
            if ($right($2,2) == SP || $right($2,2) == ZP || $right($2,2) == SS) {
              %max.display $c1(Estimated) $c2(max hit) $c1(for) $c2($replace($bonus($mid($2,2,2)),_,$chr(32))) $c1(and) $c2(No Pray) $c1(with a strength level of) $c2($3) $c1(and strength bonus of) $c2($4) $c1(using) $c2($stylee($5)) $c1(is) $c2($formula($bonus($mid($2,2,2)) No_Prayer $3 $4 $stylee($5)))
              halt     
            }
            elseif ($mid($2,2,2) == BS || $mid($2,2,2) == HS || $mid($2,2,2) == US) {
              %max.display $c1(Estimated) $c2(max hit) $c1(for) $c2(No Pot) $c1(and) $c2($replace($bonus($mid($2,2,2)),_,$chr(32))) $c1(with a strength level of) $c2($3) $c1(and strength bonus of) $c2($4) $c1(using) $c2($stylee($5)) $c1(is) $c2($formula(No_Pot $bonus($mid($2,2,2)) $3 $4 $stylee($5)))
              halt     
            }
          }
          else { 
            %max.display $c1(Estimated) $c2(max hit) $c1(for) $c2($replace($bonus($mid($2,2,2)),_,$chr(32))) $c1(and) $c2($replace($bonus($right($2,2)),_,$chr(32))) $c1(with a strength level of) $c2($3) $c1(and strength bonus of) $c2($4) $c1(using) $c2($stylee($5)) $c1(is) $c2($formula($bonus($mid($2,2,2)) $bonus($right($2,2)) $3 $4 $stylee($5))) 
            halt
          }
        }
        else { 
          %max.display $c1(Estimated) $c2(max hit) $c1(for) $c2(No Pot) $c1(and) $c2(No Pray) $c1(with a strength level of) $c2($2) $c1(and strength bonus of) $c2($3) $c1(using) $c2($stylee($4)) $c1(is) $c2($formula(No_Pot No_Pray $2 $3 $stylee($4))) 
          halt  
        }
      }