Menu Driven Texture Script - Need Help

list questions =["What did you have for breakfast this morning?",
		 "What is your star sign?",
		 "Do you like pie?"];

string caption;
list answers;
list temp;

integer in_use;
integer counter;
integer listen_channel = 5;
integer dialog_channel = -15045;
integer handle;

integer max;

key av_id;
give_dialog(key av_id) {
	handle = llListen(dialog_channel, "", av_id, "");
	caption =
	    "Please click OK and then reply on channel " + (string) listen_channel + " to the following question:";
	llDialog(av_id, caption + (string) (counter + 1) + " " + llList2String(questions, counter),["OK"],
		 dialog_channel);
	llSetTimerEvent(20.0);
}

default {

	state_entry() {

		max = llGetListLength(questions);
	}

	touch_start(integer n) {
		key toucher = llDetectedKey(0);
		if (in_use == FALSE) {	// no one's using me
			in_use = TRUE;
			counter = 0;
			av_id = toucher;
			give_dialog(av_id);
		}
		else if (in_use == TRUE) {
			if (toucher != av_id) {
				llInstantMessage(toucher, "Sorry, this is in use at the moment");
				return;
			}
			else {
				give_dialog(av_id);
			}
		}

	}

	timer() {	// the av has got bored with the survey, so let's time out and reset
		llSetTimerEvent(0.0);
		llListenRemove(handle);
		temp =[];
		av_id = NULL_KEY;
		in_use = FALSE;
	}

	listen(integer channel, string name, key id, string msg) {

		if (channel == dialog_channel) {
			llListenRemove(handle);
			llSetTimerEvent(0.0);
			handle = llListen(listen_channel, "", id, "");
		}
		else if (channel == listen_channel) {
			llListenRemove(handle);
			llSetTimerEvent(0.0);
			answers +=["In reply to question " + (string) (counter + 1) + ", " + name + " said "];
			answers +=[msg];
			temp +=[msg];
			++counter;
			if (counter < max) {
				give_dialog(id);
			}
			else {
				for (counter = 0; counter < max; ++counter) {
					llInstantMessage(id,
							 "In reply to the question, \"" + llList2String(questions,
													counter) +
							 "\" you said, \"" + llList2String(temp, counter) + "\"");
				}
				temp =[];
				av_id = NULL_KEY;
				in_use = FALSE;
			}
		}

	}
}

}

list     gaList;
integer  giLoopCount = 1000;

default {
    state_entry() {
        integer  liIndex;
        // Pre-build the main list
        gaList = [];
        for (liIndex = 0; liIndex < 200; ++liIndex)
            gaList += ["1234567890123456789012345"];
    }
    touch_start(integer total_number) {
        list     laList;
        integer  liIndex;
        integer  liCount;
        integer  liInvIndex;
        integer  liStart;
        integer  liEnd;

        llOwnerSay("Testing pulling a list subset");
        liCount = llGetListLength(gaList);
        llOwnerSay(llGetTimestamp());
        for (liIndex = 0; liIndex < giLoopCount; ++liIndex) {
            liStart = llFloor(llFrand((float)liCount-12.0));
            laList = llList2List(gaList,liStart,liStart+11);
        }
        llOwnerSay(llGetTimestamp());
        llOwnerSay("Testing pulling a list from inventory");
        liCount = llGetInventoryNumber(INVENTORY_TEXTURE);
        llOwnerSay(llGetTimestamp());
        for (liIndex = 0; liIndex < giLoopCount; ++liIndex) {
            laList = [];
            liStart = llFloor(llFrand((float)liCount-12.0));
            liEnd = liStart + 11;
            for (liInvIndex = liStart; liInvIndex <= liEnd; ++liInvIndex)
                laList += [llGetInventoryName(INVENTORY_TEXTURE,liInvIndex)];
        }
        llOwnerSay(llGetTimestamp());
    }
}