on *:TEXT:*:#: {
   if $1 == !тело {
     if $remove($3-,$chr(32)) isnum && $5 && $2 isin мужен {
       if $2 isin жен {
         set %telo.massa $calc(($3 * 3 - 450 + $4) * 0.225 + 40.4)
         set %telo.zhir $calc(($5 - %telo.massa) / $5 * 100 + 22)
       }
       else {
         set %telo.massa $calc(($3 * 3 - 450 + $4) * 0.25 + 45)
         set %telo.zhir $calc(($5 - %telo.massa) / $5 * 100 + 15)
       }
       set %telo.plot $calc(8.9 * %telo.zhir + 11 * (100 - %telo.zhir))
       set %telo.obyem $calc(%telo.massa / %telo.plot)
       set %telo.ploshad $calc($biton((%telo.massa * 1000),(($log(1 / %telo.massa) / $log(10) + 35.75) / 53.2)) * $biton($3,0.3) / 3118.2)
       msg $chan $nick $+ , Идеальная масса для Вас: %telo.massa $+ кг., Жирность Вашего тела: %telo.zhir $+ $chr(37), Средняя плотность тела: %telo.plot $+ кг/куб.м., Объем тела: %telo.obyem $+ куб.м., Площадь тела: %telo.ploshad $+ кв.м.
     }
     else { msg $chan $nick $+ , use: $1 <муж|жен> <рост> <возраст> <вес> }
   }
}
Created by GeSHI 1.0.7.20