I was trying to create a teleport system using menu button and the code given in this topic with some modification
but I Failed, here is my code can anyone help me to find out where is my mistake ?
Note card
Club=<32,96,2500>
Store=<32,96,1000>
Ground=<32,96,34>
Deep=<32,96,1>
LSL Script
string gCard = "destinations";
string dText = "Touch to Teleport";
vector gTarget;
list gLstMnu;
list gDlabels;
list location;
list address;
integer gCount;
integer gDChan;
integer gDLisn;
integer gLine;
integer lMenu;
integer nMenu;
integer iTouched;
key gQuery;
key kAgent;
list uDlgBtnLst( integer vIntPag ){
integer vIdxBeg = 10 * (~-vIntPag); //-- 10 * (vIntPag - 1), enclose "~-X" in parens to avoid LSL bug
integer vIdxMax = -~(~([] != gLstMnu) / 10); //-- (llGetListLength( gLstMnu ) - 1) / 10 + 1
lMenu = (vIntPag + (-(vIntPag > 1) | vIdxMax - vIntPag));
nMenu = (-~((vIntPag < vIdxMax) * vIntPag));
list vLstRtn = llListInsertList(llList2List(gLstMnu, vIdxBeg, vIdxBeg + 9),["Back"],-1)+["Next"];
return llList2List(vLstRtn, -3, -1) + llList2List(vLstRtn, -6, -4) + llList2List(vLstRtn, -9, -7) + llList2List(vLstRtn, -12, -10);
}
default{
on_rez(integer start_param){llResetScript();}
changed(integer change){
if(change & CHANGED_OWNER){llResetScript();}
if (change & CHANGED_INVENTORY){llResetScript();} //restart if the notecard was modified
}
state_entry(){
iTouched = FALSE;
llSetText(dText, <1.0, 1.0, 1.0>, 1.0);
if (llGetInventoryKey(gCard) == NULL_KEY){llOwnerSay("destinations notecard missing");}
else{
gQuery =llGetNotecardLine(gCard,gLine);
gCount = 1;
}
}
dataserver(key qID, string data){
if (qID == gQuery){
if (data != EOF){
integer idx = llSubStringIndex(data,"=");
if (~idx){
location += [llStringTrim(llGetSubString(data,0,idx-1),STRING_TRIM)]; //location names from NC
address += [llStringTrim(llGetSubString(data,idx+1,-1),STRING_TRIM)]; //address from NC
gDlabels += [(string)gCount + ". " +llStringTrim(llGetSubString(data,0,idx-1),STRING_TRIM) + " \n"]; //Dialog text
gLstMnu += [(string)gCount]; // Button labels
++gCount;
}
gQuery = llGetNotecardLine(gCard,++gLine);
}
}
}
touch_start(integer total_number){
if(!iTouched){ // no one can touch it again while it's trying to teleport you
if (llDetectedType(0) & AGENT){ //though how on earth you can touch things without being an agent is a bit of puzzle
kAgent = llDetectedKey(0);
llSetText(llGetDisplayName(kAgent) + " is using the teleporter please wait...", <1.0, 1.0, 1.0>, 1.0);
llSetTimerEvent(10.0);//need to turn on the timer here in case the toucher changes his mind and wanders off. If this happens, the object becomes touchable again.
iTouched = TRUE;
gDChan = (integer)("0xF" + llGetSubString(llDetectedKey(0),0,6));
gDLisn = llListen(gDChan,"","","");
string temp = "";
integer i;
for (i=0;i<10;++i){temp += llList2String(gDlabels,i);}
llDialog(kAgent,"Choose a destination \n"+ temp, uDlgBtnLst(1) ,gDChan);
}
}
}
listen (integer channel, string name, key id, string msg){
if((msg == "Back") | (msg == "Next")){
llSetTimerEvent(10.0);
gDLisn = llListen(gDChan,"","","");
integer menu;
string temp = "";
if(msg == "Back"){menu = lMenu;}
else if(msg == "Next"){menu = nMenu;}
integer i;
for (i=(10*(menu-1));i<(10*menu);++i){temp += llList2String(gDlabels,i);}
llDialog( id, "Choose a destination \n"+ temp, uDlgBtnLst(menu), gDChan );
}else{
integer Choice = (integer) msg -1;
gTarget = (vector)llList2String(address,Choice);
llRequestExperiencePermissions(kAgent, "");
}
}
experience_permissions(key agent){
if(agent == kAgent){
llTeleportAgent(kAgent, "", gTarget, ZERO_VECTOR);
llSetTimerEvent(2.0);
}
}
timer(){
iTouched =FALSE;
gTarget = ZERO_VECTOR;
llSetTimerEvent(0.0);
llListenRemove(gDLisn);
llSetText(dText, <1.0, 1.0, 1.0>, 1.0);
llWhisper(0,"Timeout. Please close the dialog box on your screen.");
}
}
Facebook
Instagram
Twitter
YouTube
Flickr