User:ANSI Soderstrom/Extended Dialog Example - Revision history

ANSI Soderstrom: /* Extended Dialog Example */

2010-09-29T07:21:00Z

Extended Dialog Example

← Older revision		Revision as of 00:21, 29 September 2010
Line 97:		Line 97:
	// and count the time down to our timeout		// and count the time down to our timeout
	llSetTimerEvent(1);		llSetTimerEvent(1);
			// Reset the timer...
			llResetTime();
	}		}

ANSI Soderstrom: /* Extended Dialog Example */

2010-09-29T07:12:17Z

Extended Dialog Example

← Older revision		Revision as of 00:12, 29 September 2010
Line 6:		Line 6:
	Some People in SL are asking me, how would myself realize a extended dialog menu (with timeout, dynamic content, sort-option, ...)		Some People in SL are asking me, how would myself realize a extended dialog menu (with timeout, dynamic content, sort-option, ...)

	Before i invent the wheel every week new, i will post my "best" code here, so ~~ibn~~ future i can simply refer to this page.		Before i invent the wheel every week new, i will post my "best" code here, so in future i can simply refer to this page.

	<lsl>		<lsl>

ANSI Soderstrom: /* Extended Dialog Example */

2010-09-29T07:11:42Z

Extended Dialog Example

← Older revision		Revision as of 00:11, 29 September 2010
Line 19:		Line 19:

	integer Sort = TRUE; // Should i Sort the List ? (Logically) 0..9 --> a...b --> A...B		integer Sort = TRUE; // Should i Sort the List ? (Logically) 0..9 --> a...b --> A...B
	integer ~~Sort_Direction~~ = TRUE; // (TRUE = Ascending, FALSE = Descending) permute the list vertically. Have only Effect if Sort == TRUE;		integer Sort_Ascending = TRUE; // (TRUE = Ascending, FALSE = Descending) permute the list vertically. Have only Effect if Sort == TRUE;

	integer CHANNEL; // We need a global channel...		integer CHANNEL; // We need a global channel...
Line 56:		Line 56:
	CreateMenu(key id, list menu) {		CreateMenu(key id, list menu) {
	if(Sort) {		if(Sort) {
	menu = llListSort(menu,1,~~Sort_Direction~~);		menu = llListSort(menu,1,Sort_Ascending);
	}		}
	integer PAGES = llCeil(llGetListLength(menu)/(maxButtons-3));		integer PAGES = llCeil(llGetListLength(menu)/(maxButtons-3));

ANSI Soderstrom: /* Extended Dialog Example */

2010-09-29T07:08:31Z

Extended Dialog Example

← Older revision		Revision as of 00:08, 29 September 2010
Line 78:		Line 78:

	touch_start(integer i) {		touch_start(integer i) {
			// If we touch in this state, iam sure we are on the first Page
	PAGE = 1;		PAGE = 1;
			// Let us find a random channel
	CHANNEL = -llRound(llFrand(1000000));		CHANNEL = -llRound(llFrand(1000000));
			// remember for the user
	LastMenuUser = llDetectedKey(0);		LastMenuUser = llDetectedKey(0);
			// All done, we have the point to create our first menupage
	CreateMenu(LastMenuUser,TEST_DIALOG_CHOICES);		CreateMenu(LastMenuUser,TEST_DIALOG_CHOICES);
	~~llResetTime();~~		// and for better code reading, we use a new state !
	state Dialog;		state Dialog;
	}		}
Line 89:		Line 93:
	state Dialog {		state Dialog {
	state_entry() {		state_entry() {
			// Listen to the opened channel
	llListen(CHANNEL,"",NULL_KEY,"");		llListen(CHANNEL,"",NULL_KEY,"");
			// and count the time down to our timeout
	llSetTimerEvent(1);		llSetTimerEvent(1);
	}		}

	listen(integer channel, string name, key id, string message) {		listen(integer channel, string name, key id, string message) {
			// if we have clicked a menuchoice, we can find the answer from the dialog here
	if(~llListFindList(TEST_DIALOG_CHOICES,[message])) {		if(~llListFindList(TEST_DIALOG_CHOICES,[message])) {
			// for debugging, tell us our choice
	llSay(0, "Your Choice : " + message);		llSay(0, "Your Choice : " + message);
			// and back to standby
	state default;		state default;
	} else {		} else {
			// we have clicked a Navigation button, find out which button ...
	if(message == "<<<" \|\| message == "BACK") {		if(message == "<<<" \|\| message == "BACK") {
	--PAGE;		--PAGE;
Line 107:		Line 117:
	PAGE = llCeil(llGetListLength(TEST_DIALOG_CHOICES)/(maxButtons-3));		PAGE = llCeil(llGetListLength(TEST_DIALOG_CHOICES)/(maxButtons-3));
	} else {		} else {
			// ... or for confusing, abort all :) (will reached with the "No Clue"-Button)
	state default;		state default;
	}		}
			// if we click a button, be sure we reset the timercount and start a new timeout-counter
	llResetTime();		llResetTime();
			// We are still in the listen event, so we can draw a new menu
	CreateMenu(id,TEST_DIALOG_CHOICES);		CreateMenu(id,TEST_DIALOG_CHOICES);
	}		}
Line 115:		Line 128:

	touch_start(integer i) {		touch_start(integer i) {
			// listen only to the control-user and give him the chance to draw a new menu if one page is not appearing...
	if(llDetectedKey(0) == LastMenuUser) {		if(llDetectedKey(0) == LastMenuUser) {
	CreateMenu(llDetectedKey(0),TEST_DIALOG_CHOICES);		CreateMenu(llDetectedKey(0),TEST_DIALOG_CHOICES);
Line 121:		Line 135:

	timer() {		timer() {
			// draw the timeout-counter on the prim
	llSetText((string)(llRound(TimeOut - llGetTime())) + " seconds left",<1,1,1>,1);		llSetText((string)(llRound(TimeOut - llGetTime())) + " seconds left",<1,1,1>,1);
			// and tell us if we run out of time...
	if(llGetTime() > TimeOut) {		if(llGetTime() > TimeOut) {
	llSay(0,"Dialog expired");		llSay(0,"Dialog expired");
			// back to standby
	state default;		state default;
	}		}

ANSI Soderstrom: /* Extended Dialog Example */

2010-09-29T06:57:37Z

Extended Dialog Example

← Older revision		Revision as of 23:57, 28 September 2010
Line 19:		Line 19:

	integer Sort = TRUE; // Should i Sort the List ? (Logically) 0..9 --> a...b --> A...B		integer Sort = TRUE; // Should i Sort the List ? (Logically) 0..9 --> a...b --> A...B
	integer ~~ReverseUp2Down~~ = ~~FALSE~~; // permute the list vertically. Have only Effect if Sort == TRUE;		integer Sort_Direction = TRUE; // (TRUE = Ascending, FALSE = Descending) permute the list vertically. Have only Effect if Sort == TRUE;

	integer CHANNEL; // We need a global channel...		integer CHANNEL; // We need a global channel...
Line 55:		Line 55:

	CreateMenu(key id, list menu) {		CreateMenu(key id, list menu) {
			if(Sort) {
			menu = llListSort(menu,1,Sort_Direction);
			}
	integer PAGES = llCeil(llGetListLength(menu)/(maxButtons-3));		integer PAGES = llCeil(llGetListLength(menu)/(maxButtons-3));
	list NAVIGATION = CreateNavigation(PAGES);		list NAVIGATION = CreateNavigation(PAGES);

ANSI Soderstrom: /* Extended Dialog Example */

2010-09-29T06:42:28Z

Extended Dialog Example

← Older revision		Revision as of 23:42, 28 September 2010
Line 16:		Line 16:

	float TimeOut = 30; // (in Seconds) We need a Timeout for the Listener, not least because laaaaag.		float TimeOut = 30; // (in Seconds) We need a Timeout for the Listener, not least because laaaaag.
	float maxButtons = 12; // How many Buttons shall we have per Page ?		float maxButtons = 12; // How many Buttons shall we have per Page ? (12 is the maximum)

	integer Sort = TRUE; // Should i Sort the List ? (Logically) 0..9 --> a...b --> A...B		integer Sort = TRUE; // Should i Sort the List ? (Logically) 0..9 --> a...b --> A...B
Line 64:		Line 64:
	default {		default {
	state_entry() {		state_entry() {
			// prevent errormessages
			if(maxButtons > 12) {
			maxButtons = 12;
			}
			// Let us scramble the List... (...as example)
			TEST_DIALOG_CHOICES = llListRandomize(TEST_DIALOG_CHOICES,1);
			// and clear the timerview
	llSetText("",<1,1,1>,1);		llSetText("",<1,1,1>,1);
	}		}

ANSI Soderstrom: /* Extended Dialog Example */

2010-09-29T06:36:28Z

Extended Dialog Example

← Older revision		Revision as of 23:36, 28 September 2010
Line 4:		Line 4:
	== Extended Dialog Example ==		== Extended Dialog Example ==

	Some People in SL are asking me, how ~~woud~~ myself realize a extended dialog menu (with timeout, dynamic content, sort-option, ...)		Some People in SL are asking me, how would myself realize a extended dialog menu (with timeout, dynamic content, sort-option, ...)

	Before i invent the wheel every week new, i will post my "best" code here, so ibn future i can simply refer to this page.		Before i invent the wheel every week new, i will post my "best" code here, so ibn future i can simply refer to this page.
Line 12:		Line 12:
	// (C) 09/2010 ANSI Soderstrom		// (C) 09/2010 ANSI Soderstrom

			// First, let us define some example choices...
	list TEST_DIALOG_CHOICES = ["A","B","C","1","2","3","a","b","c","test1","test3","test2"];		list TEST_DIALOG_CHOICES = ["A","B","C","1","2","3","a","b","c","test1","test3","test2"];

	float TimeOut = 30; // ~~seconds~~		float TimeOut = 30; // (in Seconds) We need a Timeout for the Listener, not least because laaaaag.
	float maxButtons = 12; // How many Buttons		float maxButtons = 12; // How many Buttons shall we have per Page ?

	integer Sort = TRUE; // Should i Sort the List ?		integer Sort = TRUE; // Should i Sort the List ? (Logically) 0..9 --> a...b --> A...B
			integer ReverseUp2Down = FALSE; // permute the list vertically. Have only Effect if Sort == TRUE;

	// ~~Have only Effect if Sort == TRUE;~~		integer CHANNEL; // We need a global channel...
	integer ~~ReverseUp2Down = FALSE~~;		integer PAGE; // ...and a global memory for the actual Pagenumber

	~~integer CHANNEL;~~		key LastMenuUser; // ...and don´t forget who is the actual controluser.
	~~integer PAGE;~~

	key LastMenuUser;

	list CreateNavigation(integer PAGES) {		list CreateNavigation(integer PAGES) {

ANSI Soderstrom: /* Extended Dialog Example */

2010-09-29T06:30:37Z

Extended Dialog Example

← Older revision		Revision as of 23:30, 28 September 2010
Line 4:		Line 4:
	== Extended Dialog Example ==		== Extended Dialog Example ==

	Some People in SL are asking me, how to realize extended dialog ~~menus~~ (with timeout, dynamic content, sort-option, ...)		Some People in SL are asking me, how woud myself realize a extended dialog menu (with timeout, dynamic content, sort-option, ...)

	Before i invent the wheel every week new, i will post my "best" code here, so ibn future i can simply refer to this page.		Before i invent the wheel every week new, i will post my "best" code here, so ibn future i can simply refer to this page.

ANSI Soderstrom at 06:25, 29 September 2010

2010-09-29T06:25:53Z

← Older revision		Revision as of 23:25, 28 September 2010
Line 4:		Line 4:
	== Extended Dialog Example ==		== Extended Dialog Example ==

	~~Text text text~~		Some People in SL are asking me, how to realize extended dialog menus (with timeout, dynamic content, sort-option, ...)
			Before i invent the wheel every week new, i will post my "best" code here, so ibn future i can simply refer to this page.

	<lsl>		<lsl>
			// Extended Dialog Example for your Items
			// (C) 09/2010 ANSI Soderstrom

	list TEST_DIALOG_CHOICES = ["A","B","C","1","2","3","a","b","c","test1","test3","test2"];		list TEST_DIALOG_CHOICES = ["A","B","C","1","2","3","a","b","c","test1","test3","test2"];

ANSI Soderstrom: Created page with '== Leave a comment == * My User Talk about this Page == Extended Dialog Example == Text text text list TEST_DIALOG_CHOICES = ["A","B","C","1",...'

2010-09-29T06:18:34Z

Created page with '== Leave a comment == * [[User_talk:{{PAGENAME}}|My User Talk about this Page]] == Extended Dialog Example == Text text text <lsl> list TEST_DIALOG_CHOICES = ["A","B","C","1",...'

New page

== Leave a comment ==
* [[User_talk:{{PAGENAME}}|My User Talk about this Page]]

== Extended Dialog Example ==

Text text text

<lsl>
list TEST_DIALOG_CHOICES = ["A","B","C","1","2","3","a","b","c","test1","test3","test2"];

float TimeOut = 30; // seconds
float maxButtons = 12; // How many Buttons

integer Sort = TRUE; // Should i Sort the List ?

// Have only Effect if Sort == TRUE;
integer ReverseUp2Down = FALSE;

integer CHANNEL;
integer PAGE;

key LastMenuUser;

list CreateNavigation(integer PAGES) {
list navi = ["No Clue"];
if((PAGE < 1 || PAGE == PAGES) && PAGES != 1) {
PAGE = PAGES;
navi += ["<<<","FIRST"];
} else if((PAGE > PAGES || PAGE == 1) && PAGES != 1) {
PAGE = 1;
navi += ["LAST",">>>"];
} else if (PAGES != 1) {
navi += ["<<<",">>>"];
}
if(PAGES==1) {
navi += [" "," "];
}
return navi;
}

list Padding(integer FillUp) {
list PlaceHolder;
if(FillUp<0) {
do {
PlaceHolder += ["~"]; // Nr# 126 in ASCII Table (Highest one, will be ever the last Letter in List?)
++FillUp;
} while(FillUp!=0);
}
return PlaceHolder;
}

CreateMenu(key id, list menu) {
integer PAGES = llCeil(llGetListLength(menu)/(maxButtons-3));
list NAVIGATION = CreateNavigation(PAGES);
integer length = (integer)maxButtons-llGetListLength(NAVIGATION);
list NEW_MENU = llList2List(menu,(PAGE*length-length),(PAGE*length-1)) + Padding(llGetListLength(menu)-(PAGE*length));
llDialog(id, "(Page " + (string)PAGE + "/" + (string)PAGES + ")\n \nSelect your Height",NAVIGATION + NEW_MENU, CHANNEL);
}

default {
state_entry() {
llSetText("",<1,1,1>,1);
}

touch_start(integer i) {
PAGE = 1;
CHANNEL = -llRound(llFrand(1000000));
LastMenuUser = llDetectedKey(0);
CreateMenu(LastMenuUser,TEST_DIALOG_CHOICES);
llResetTime();
state Dialog;
}
}

state Dialog {
state_entry() {
llListen(CHANNEL,"",NULL_KEY,"");
llSetTimerEvent(1);
}

listen(integer channel, string name, key id, string message) {
if(~llListFindList(TEST_DIALOG_CHOICES,[message])) {
llSay(0, "Your Choice : " + message);
state default;
} else {
if(message == "<<<" || message == "BACK") {
--PAGE;
} else if(message == ">>>") {
++PAGE;
} else if(message == "FIRST") {
PAGE = 1;
} else if(message == "LAST") {
PAGE = llCeil(llGetListLength(TEST_DIALOG_CHOICES)/(maxButtons-3));
} else {
state default;
}
llResetTime();
CreateMenu(id,TEST_DIALOG_CHOICES);
}
}

touch_start(integer i) {
if(llDetectedKey(0) == LastMenuUser) {
CreateMenu(llDetectedKey(0),TEST_DIALOG_CHOICES);
}
}

timer() {
llSetText((string)(llRound(TimeOut - llGetTime())) + " seconds left",<1,1,1>,1);
if(llGetTime() > TimeOut) {
llSay(0,"Dialog expired");
state default;
}
}
}
</lsl>