Mine

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Public Melee Combat Calc ;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

on 1:TEXT:!cmb *:#: {
  if ( $6 ) && ($6 !& 1) {
    msg $chan A - S - D - H - P
    msg $chan $2- = $calc((($2 * 130)+($3 * 130)+($4 * 100)+($5 * 100)+($6 * 50)) / 400 ) cmb
  }
  elseif ( $6 ) && ($6 & 1) {
    msg $chan A - S - D - H - P
    msg $chan $2- = $calc((($2 * 130)+($3 * 130)+($4 * 100)+($5 * 100)+(($6 - 1) * 50)) / 400 ) cmb
  }
  else msg $chan Error! Syntax: !cmb <att> <str> <def> <hits> <pray>
}

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Private Melee Combat Calc ;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

on 1:TEXT:@cmb *:#: {
  if ( $6 ) && ($6 !& 1) {
    notice $nick A - S - D - H - P
    notice $nick $2- = $calc((($2 * 130)+($3 * 130)+($4 * 100)+($5 * 100)+($6 * 50)) / 400 ) cmb
  }
  elseif ( $6 ) && ($6 & 1) {
    notice $nick A - S - D - H - P
    notice $nick $2- = $calc((($2 * 130)+($3 * 130)+($4 * 100)+($5 * 100)+(($6 - 1) * 50)) / 400 ) cmb
  }
  else notice $nick Error! Syntax: @cmb <att> <str> <def> <hits> <pray>
}

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Public Range Combat Calc ;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

on 1:TEXT:!rcmb *:#: {
  if ( $5 ) && ( $2 !& 1) && ( $5 !& 1) {
    msg $chan R - D - H - P
    msg $chan $2- = $calc((($2 * 195)+($3 * 100)+($4 * 100)+($5 * 50)) / 400 ) cmb
  }
  elseif ( $5 ) && ($2 & 1) && ($5 !& 1) {
    msg $chan R - D - H - P
    msg $chan $2- = $calc((((($2 - 1)+($2 * 2)) * 65 )+($3 * 100)+($4 * 100)+($5 * 50)) / 400 ) cmb
  }
  elseif ( $5 ) && ($2 & 1) && ($5 & 1) {
    msg $chan R - D - H - P
    msg $chan $2- = $calc((((($2 - 1)+($2 * 2)) * 65 )+($3 * 100)+($4 * 100)+(($5 - 1) * 50)) / 400 ) cmb
  }
  elseif ( $5 ) && ($2 !& 1) && ($5 & 1) {
    msg $chan R - D - H - P
    msg $chan $2- = $calc((($2 * 195)+($3 * 100)+($4 * 100)+(($5 - 1) * 50)) / 400 ) cmb
  }
  else msg $chan Error! Syntax: !rcmb <range> <def> <hits> <pray>
}

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Private Range Combat Calc ;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

on 1:TEXT:@rcmb *:#: {
  if ( $5 ) && ( $2 !& 1) && ( $5 !& 1) {
    notice $nick R - D - H - P
    notice $nick $2- = $calc((($2 * 195)+($3 * 100)+($4 * 100)+($5 * 50)) / 400 ) cmb
  }
  elseif ( $5 ) && ($2 & 1) && ($5 !& 1) {
    notice $nick R - D - H - P
    notice $nick $2- = $calc((((($2 - 1)+($2 * 2)) * 65 )+($3 * 100)+($4 * 100)+($5 * 50)) / 400 ) cmb
  }
  elseif ( $5 ) && ($2 & 1) && ($5 & 1) {
    notice $nick R - D - H - P
    notice $nick $2- = $calc((((($2 - 1)+($2 * 2)) * 65 )+($3 * 100)+($4 * 100)+(($5 - 1) * 50)) / 400 ) cmb
  }
  elseif ( $5 ) && ($2 !& 1) && ($5 & 1) {
    notice $nick R - D - H - P
    notice $nick $2- = $calc((($2 * 195)+($3 * 100)+($4 * 100)+(($5 - 1) * 50)) / 400 ) cmb
  }
  else notice $nick Error! Syntax: @rcmb <range> <def> <hits> <pray>
}

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Public Magic Combat Calc ;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

on 1:TEXT:!mcmb *:#: {
  if ( $5 ) && ( $2 !& 1) && ( $5 !& 1) {
    msg $chan M - D - H - P
    msg $chan $2- = $calc((($2 * 195)+($3 * 100)+($4 * 100)+($5 * 50)) / 400 ) cmb
  }
  elseif ( $5 ) && ($2 & 1) && ($5 !& 1) {
    msg $chan M - D - H - P
    msg $chan $2- = $calc((((($2 - 1)+($2 * 2)) * 65 )+($3 * 100)+($4 * 100)+($5 * 50)) / 400 ) cmb
  }
  elseif ( $5 ) && ($2 & 1) && ($5 & 1) {
    msg $chan M - D - H - P
    msg $chan $2- = $calc((((($2 - 1)+($2 * 2)) * 65 )+($3 * 100)+($4 * 100)+(($5 - 1) * 50)) / 400 ) cmb
  }
  elseif ( $5 ) && ($2 !& 1) && ($5 & 1) {
    msg $chan M - D - H - P
    msg $chan $2- = $calc((($2 * 195)+($3 * 100)+($4 * 100)+(($5 - 1) * 50)) / 400 ) cmb
  }
  else msg $chan Error! Syntax: !mcmb <magic> <def> <hits> <pray>
}

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Private Magic Combat Calc ;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

on 1:TEXT:@mcmb *:#: {
  if ( $5 ) && ( $2 !& 1) && ( $5 !& 1) {
    notice $nick M - D - H - P
    notice $nick $2- = $calc((($2 * 195)+($3 * 100)+($4 * 100)+($5 * 50)) / 400 ) cmb
  }
  elseif ( $5 ) && ($2 & 1) && ($5 !& 1) {
    notice $nick M - D - H - P
    notice $nick $2- = $calc((((($2 - 1)+($2 * 2)) * 65 )+($3 * 100)+($4 * 100)+($5 * 50)) / 400 ) cmb
  }
  elseif ( $5 ) && ($2 & 1) && ($5 & 1) {
    notice $nick M - D - H - P
    notice $nick $2- = $calc((((($2 - 1)+($2 * 2)) * 65 )+($3 * 100)+($4 * 100)+(($5 - 1) * 50)) / 400 ) cmb
  }
  elseif ( $5 ) && ($2 !& 1) && ($5 & 1) {
    notice $nick M - D - H - P
    notice $nick $2- = $calc((($2 * 195)+($3 * 100)+($4 * 100)+(($5 - 1) * 50)) / 400 ) cmb
  }
  else notice $nick Error! Syntax: @mcmb <magic> <def> <hits> <pray>
}