Land Editor

integer CHANNEL;
 integer ACTION;
 integer SIZE;
 
 string MAIN_MENU_STRING;
 string SIZE_MENU_STRING;
 
 list MAIN_MENU = [ "Level", "Raise", "Lower", "Smooth", "Noise", "Revert", "Size", "Stop", "Help", "Ground"];
 list SIZE_MENU = [ "Small (2x2)", "Medium (4x4)", "Large (8x8)", "Back" ];
 
 default
 {
 	state_entry()
 	{
 		
 		llSetPrimitiveParams([PRIM_COLOR, ALL_SIDES, <1, 0, 0>, 0.5, PRIM_SIZE, <3, 3, 0.5>]);
 		//ACTION = LAND_LEVEL;
 		//SIZE = LAND_SMALL_BRUSH;
 		MAIN_MENU_STRING = "Pick a tool or size of tool";
 		SIZE_MENU_STRING = "Pick size of tool or back to return";
 		CHANNEL = llFloor(llFrand(100000.0)) + 1000;
 		llListen(CHANNEL, "", NULL_KEY, "");
 	}
 	
 	touch_start(integer num_detected)
 	{
 		if (llDetectedOwner(0) == llGetOwner())
 		{
 			llDialog(llDetectedKey(0), MAIN_MENU_STRING, MAIN_MENU, CHANNEL);
 		}
 	}
 	
 	listen(integer CHANNEL, string name, key id, string message) 
 	{
 		if (llListFindList(MAIN_MENU + SIZE_MENU, [message]) != -1)  // verify dialog choice
 		{
 			if (message == "Size")
 			{
 				llDialog(id, SIZE_MENU_STRING, SIZE_MENU, CHANNEL);
 			}
 			
 			if (message == "Help")
 			{
 				llGiveInventory(id, "Land Leveller");
 			}
 			
 			if (message == "Level")
 			{
 				ACTION = LAND_LEVEL;
 				llSetTimerEvent(0.1);
 			}
 			
 			if (message == "Raise")
 			{
 				ACTION = LAND_RAISE;
 				llSetTimerEvent(0.1);
 			}
 			
 			if (message == "Lower")
 			{
 				ACTION = LAND_LOWER;
 				llSetTimerEvent(0.1);
 			}
 			
 			if (message == "Smooth")
 			{
 				ACTION = LAND_SMOOTH;
 				llSetTimerEvent(0.1);
 			}
 			
 			if (message == "Noise")
 			{
 				ACTION = LAND_NOISE;
 				llSetTimerEvent(0.1);
 			}
 			
 			if (message == "Revert")
 			{
 				ACTION = LAND_REVERT;
 				llSetTimerEvent(0.1);
 			}
 			
 			if (message == "Small (2x2)")
 			{
 				SIZE = LAND_SMALL_BRUSH;
 				llSetPrimitiveParams([PRIM_COLOR, ALL_SIDES, <1, 0, 0>, 0.5, PRIM_SIZE, <3, 3, 0.5>]);
 			}
 			
 			if (message == "Medium (4x4)")
 			{
 				SIZE = LAND_MEDIUM_BRUSH;
 				llSetPrimitiveParams([PRIM_COLOR, ALL_SIDES, <0, 1, 0>, 0.5, PRIM_SIZE, <5, 5, 0.5>]);
 			}
 			
 			if (message == "Large (8x8)")
 			{
 				SIZE = LAND_LARGE_BRUSH;
 				llSetPrimitiveParams([PRIM_COLOR, ALL_SIDES, <0, 0, 1>, 0.5, PRIM_SIZE, <9, 9, 0.5>]);
 			}
 			
 			if (message == "Stop")
 			{
 				llSetTimerEvent(0);
 			}
 			
 			if (message == "Ground")
 			{
 				// THIS PORTION BY STRIFE ONIZUKA //
 				float height = llGround(ZERO_VECTOR);
 				vector pos = llGetPos();
 				integer count = llCeil(llFabs(height - pos.z) / 10.0);
 				pos.z = height;
 				for(;count;--count)
 					llSetPos(pos);
 				// THANK YOU STRIFE! //
 				llSay(0, "Now at ground level");
 				ACTION = LAND_LEVEL;
 				llSetTimerEvent(0.1);
 			}
 		}
 	}
 
 	timer()
 	{
 		llModifyLand((integer)ACTION, (integer)SIZE);
 		llSetTimerEvent(0.1);
 	}
 }