dd

on *:text:!gratzz*:#: { 
  if ($2- == $null) {
    notice $nick You have to indicate something to be  be congradulated on.
    halt
  }
  else {
    msg $chan   0~4^7°8'9\14,15.0;4:7,8/9'14°15^0~4^7°8'9\14,15.0;4:7,8/9'14°15^0| 12c11o9n3g13r6a8t7z4 w15i14t0h 4 $2- 7!13! 0|4^7°8'9\14,15.0;4:7,8/9'14°15^0~4^7°8'9\14,15.0;4:7,8/9'14°15^0~
  }











on $*:text:/^[!@]calc ./iS:#:{ 
  $iif(@* iswm $1,msg #,.notice $nick) 4,15  $2- = $bytes($calc($regsubex($replace($2-,$chr(44),,x,*,pi,$pi),/(\d+(?:\.\d+)?)([kmb])/gi,( \1 $replace(\2,b,*1000m,m,*1000k,k,*1000) ))),db)
}