do_memcheck()
{
    if (memcheck) {
        integer free_memory = llGetFreeMemory();
        if (free_memory!=freemem) {
        llOwnerSay((string)free_memory + " bytes of free memory available for allocation.");
        freemem=free_memory;
        }

        integer used_memory = llGetUsedMemory();
        if (used_memory!=usedmem) {
        llOwnerSay((string)used_memory + " bytes of memory currently used.");
        usedmem=used_memory;
        }

    }
}