Multi Notecard Vendor

// multi-notecard distributor
// Author: Jesrad Seraph
// Modify and redistribute freely as long as you permit free modification and redistribution

list cards = [];
integer channel;
integer handle;

default
{
	changed(integer c)
	{
		if (c & CHANGED_INVENTORY) llResetScript();
	}

	state_entry()
	{
		integer max = llGetInventoryNumber(INVENTORY_NOTECARD);
		if (max > 0)
		{
			integer n;
			for(n = 0; n<max, ++n) cards += [llGetInventoryName(INVENTORY_NOTECARD, n)];
		}
	}
			
	touch_start(integer c)
	{
		llListenRemove(handle);
		channel = (integer)llFrand(4000000) + 10000;
		handle = llListen(channel, "", llDetectedKey(0), "");

		llSetTimerEvent(45.0);

		if (llGetListLength(cards) > 12)
		{
			llDialog(llDetectedKey(0), "Choose a notecard:", llList2List(cards, part * 11, part * 11 + 10) + ["More..."], channel);
		} else llDialog(llDetectedKey(0), "Choose a notecard:", cards, channel);
	}

	timer()
	{
		llListenRemove(handle);
		llSetTimerEvent(0.0);
	}

	listen(integer ch, string name, key id, string msg)
	{
		if (msg == "More...")
		{
			part = (part + 1) % (llGetListLength(cards));
			llSetTimerEvent(45.0);
			if (llGetListLength(cards) > 11)
			{
				llDialog(id, "Choose a notecard:", llList2List(cards, part * 11, part * 11 + 10) + ["More..."], channel);
			} else llDialog(id, "Choose a notecard:", cards, channel);
		} else {
			llGiveInventory(id, msg);
			llSetTimerEvent(0.0);
			llListenRemove(handle);
		}
	}
}

integer n;
for(n = 0; n<max; ++n) cards += [llGetInventoryName(INVENTORY_NOTECARD, n)];
		}