01-06-2004 15:43
CODE
`// Prim Calculator 1.3// Catherine Omega Heavy Industries// Tells you the number of prims that can be used on a given size of lot.// Tells you the amount of land you must own to support a certain number of prims.// Example: "/land 512" or "/prims 100"default{    state_entry()    {        llListen(0,"",llGetOwner(),"");    }    listen(integer channel, string name, key id, string m)    {        integer command_divide = llSubStringIndex(m," "); // establish that space (" ") divides words.        string gCommand = llToLower(llGetSubString(m, 0, command_divide - 1)); // grab the first word of the the input string.        string gSubCommand = llToLower(llGetSubString(m, command_divide + 1, 40)); // grab the rest of the input string.                // Calculate Prims        if (gCommand == "/land")        {            float land = (float)gSubCommand;            float primsF = land / 65536 * 15000;            integer primsI = (integer)primsF; // converts the float to an integer for easier reading. Note that land must be purchased in parcels of 16 square metres.                        llSay(0,"You can use up to " + (string)primsI + " prims.");        }                // Calculate Land        if (gCommand == "/prims")        {            integer prims = (integer)gSubCommand;            integer land = prims * 65536 / 15000;            llSay(0,"You need " + (string)land + " square metres of land to support " + (string)prims + " prims.");        }    }}`