This script calculates your body mass index. That shows if your weight is just fine, too much, or too low. Type !BMI to start. Weight in kilogrammes, length in meters.

on *:text:*:#: {
  if ($1 == !bmi) {
    if (!$3) || ($2 !isnum) || ($3 !isnum) { 
      .notice $nick Syntax: !bmi <weight> <length>
      .notice $nick !BMI calculates your Body-Mass-Index (BMI) to see if you're underweight, overweight, or have a normal weight.
      .notice $nick Please insert your weight in kilograms and your length in metres.
      .halt
    }
    set %bmi $calc($2 / ($3 ^2))
    if (16.5 > [ %bmi ]) {
      .msg # $nick $+ 's BMI is %bmi $+ . He/she is severely underweight.
      halt
    }
    if (18.5 > [ %bmi ]) {
      .msg # $nick $+ 's BMI is %bmi $+ . He/she is underweight.
      halt
    }
    if (25 > [ %bmi ]) {
      .msg # $nick $+ 's BMI is %bmi $+ . He/she has a normal weight.
      halt
    }
    if (30 > [ %bmi ]) {
      .msg # $nick $+ 's BMI is %bmi $+ . He/she is overweight.
      halt
    }
    if (35 > [ %bmi ]) {
      .msg # $nick $+ 's BMI is %bmi $+ . He/she is in obese class 1.
      halt
    }
    if (40 > [ %bmi ]) {
      .msg # $nick $+ 's BMI is %bmi $+ . He/she is obese class 2.
      halt
    }
    if (40 < [ %bmi ]) {
      .msg # $nick $+ 's BMI is %bmi $+ . He/she is in obese class 3.
      halt
    }
  }
}