Another just bored and not default slap script :D

    menu nicklist {
      .wslap:/wslap $1-
    }
    alias wslap {
      set %wr $rand(1,690000)
      set %wr2 $calc(12756320 + %wr )
      if ($calc( %wr2 * 3.14159265) >= %wrec) {
        msg $chan A new record! old record was $bytes( %wrec ,b) set by %wrecnick
        set %wrec $calc( %wr2 * 3.14159265)
        set %wrecnick $1
      }
      describe $chan grabs a baseballbat and slaps $1- around the world at an altitude of $bytes( %wr ,b) meter. Letting $1- fly for $bytes($calc( %wr2 * 3.14159265),b) Meter. Record: $bytes( %wrec ,b) meter  for %wrecnick
    }