this is a old maxhit, im not too sure how the outputs should be like, so ill leave that too you, the main idea works :), i know i used vars, but this script will barely be used so it doesnt matter.

ON $*:TEXT:/^[!@.]maxhit/Si:#:{ 
  var %return [ $+ [ $nick ] ] $iif(@ isin $1,msg $chan,notice $nick)
  if ($2 == $!) { 
    %return [ $+ [ $nick ] ] 7typ your str lvl, if u want to add bonuses12 typ !maxhit -(trig letter) <str> <equipment bonus> 7,4 eg !maxhit -ab str lvl includes pots 
    %return [ $+ [ $nick ] ] 7trig letters: 12-s 7Salve Amulet (Versus Undeads) 12-w Salve Amulet(e) (Versus Undeads)7 -b 12Black Mask (Slayer Missions Only)12 -u 7Ultimate Strength Prayer12 -p7 Superhuman Strength 12-q7 Burst of Strength 
    %return [ $+ [ $nick ] ] 7also trig letters u must specify 12one of these, -c for controlled attack -a for aggresive. 7if u use other attack do -o 
    halt 
  } 
  if (- isin $2) { 
    var %b [ $+ [ $nick ] ] 1 
    if (s isin $2) { var %b [ $+ [ $nick ] ] $calc( %b [ $+ [ $nick ] ] + 0.20 ) } 
    if (w isin $2) { var %b [ $+ [ $nick ] ] $calc( %b [ $+ [ $nick ] ] + 0.15 ) } 
    if (b isin $2) { var %b [ $+ [ $nick ] ] $calc( %b [ $+ [ $nick ] ] + 0.15 ) } 
    if (u isin $2) { var %b [ $+ [ $nick ] ] $calc( %b [ $+ [ $nick ] ] + 0.15 ) } 
    if (p isin $2) { var %b [ $+ [ $nick ] ] $calc( %b [ $+ [ $nick ] ] + 0.10 ) } 
    if (q isin $2) { var %b [ $+ [ $nick ] ] $calc( %b [ $+ [ $nick ] ] + 0.05 ) } 
    if (c isin $2) { var %a [ $+ [ $nick ] ] $calc( %a [ $+ [ $nick ] ] + 1 ) } 
    if (a isin $2) { var %a [ $+ [ $nick ] ] $calc( %a [ $+ [ $nick ] ] + 3 ) } 
    if (o isin $2) { var %a [ $+ [ $nick ] ] $calc( %a [ $+ [ $nick ] ] + 0 ) } 
    var %a [ $+ [ $nick ] ] $3 
    var %d [ $+ [ $nick ] ] $4 
    var %c [ $+ [ $nick ] ] $calc( %a [ $+ [ $nick ] ] * %b [ $+ [ $nick ] ] ) 
    var %e [ $+ [ $nick ] ] $log( %c [ $+ [ $nick ] ] ) 
    var %e [ $+ [ $nick ] ] $calc( %e [ $+ [ $nick ] ] * 0.1085 ) 
    inc %e [ $+ [ $nick ] ] 
    var %e [ $+ [ $nick ] ] $calc( %e [ $+ [ $nick ] ] * %d [ $+ [ $nick ] ] ) 
    var %e [ $+ [ $nick ] ] $calc( %e [ $+ [ $nick ] ] / 100 ) 
    var %e [ $+ [ $nick ] ] $calc( %c [ $+ [ $nick ] ] * %e [ $+ [ $nick ] ] ) 
    var %e [ $+ [ $nick ] ] $calc( %e [ $+ [ $nick ] ] + %c [ $+ [ $nick ] ] ) 
    var %e [ $+ [ $nick ] ] $calc( %e [ $+ [ $nick ] ] / 10 ) 
    %return [ $+ [ $nick ] ] $c1(Woohoo) $c2($nick) $c1(Your max hit) is: $c2($floor( %e [ $+ [ $nick ] ] )) 
  } 
  else { %return [ $+ [ $nick ] ] 7You did something wrong!12 typ !maxhit for help } 
}