Jake, I was given this script from someone in another forum. As I was putting it together, my laptop blue screened me and the HD was fried. Can you look at it and see if there is anything that would cause that sort of problem. It may not. but the same person posted another comment saying it's amazing when you put stuff together how it caused wired things.
I looked through it and I don't see anything wrong..looks like a regular script to me. If it doesn't do anything but what it's intended, and you would know. Why would he say that?
Here it is
CODE
// Menu Driven Transport Script, by Shadow Subagja 07/17/2007
//
// Reads a notecard called "TransportLocations" with each line formatted
// as follows:
// LOCATION|<X,Y,Z>|DIRECTION_TO_FACE
// where:
// LOCATION = name of destination, which will show up on the touch menu
// <x,y,z> = global vector coordinates of destination
// DIRECTION_TO_FACE = direction Transport should face at destination
// (NORTH,SOUTH,EAST,WEST)
// Example:
// GROUND|<245.984,251.110,47.994>|SOUTH
//Communication Channel for llDialog
integer Transport_channel=990;
integer listenHandle;
//NoteCard
string PositionCardName="TransportLocations";
integer PositionCardLine=0;
key DataQueryId;
//Lists To Populate from NoteCard
list PositionNameList;
list PositionVectorList;
list PositionDirectionList;
// warpPos - movement function
// R&D by Keknehv Psaltery, 05/25/2006
// with a little pokeing by Strife, and a bit more
// some more munging by Talarus Luan
// Final cleanup by Keknehv Psaltery
// Compute the number of jumps necessary
warpPos( vector destpos )
{
integer jumps = (integer)(llVecDist(destpos, llGetPos()) / 10.0) + 1;
// Try and avoid stack/heap collisions
if (jumps > 100 )
jumps = 100; // 1km should be plenty
list rules = [ PRIM_POSITION, destpos ]; //The start for the rules list
integer count = 1;
while ( ( count = count << 1 ) < jumps)
rules = (rules=[]) + rules + rules; //should tighten memory use.
llSetPrimitiveParams( rules + llList2List( rules, (count - jumps) << 1, count) );
}
// Rotate the Transport to face a compass direction
RotateTransport(string direction)
{
if(direction=="NORTH")
{
llSetRot(llEuler2Rot( < 0, 0, 180 * DEG_TO_RAD > ));
}
else if(direction=="SOUTH")
{
llSetRot(llEuler2Rot( < 0, 0, 0 * DEG_TO_RAD > ));
}
else if(direction=="EAST")
{
llSetRot(llEuler2Rot( < 0, 0, 90 * DEG_TO_RAD > ));
}
else if(direction=="WEST")
{
llSetRot(llEuler2Rot( < 0, 0, 270 * DEG_TO_RAD > ));
}
}
default
{
state_entry()
{
// Set the camera to behind and slightly above, assuming
// an initial facing direction of SOUTH.
// +ve Y values are to the north of object
// -ve Y values are to the south of object
// Location of Camera itself
llSetCameraEyeOffset(<0, 3, 3>);
// point in space that camera is facing
llSetCameraAtOffset(<0, -2, 2>);
// go parse notecard
state readingLocs;
}
}
state readingLocs
{
state_entry()
{
llOwnerSay("Reading: "+PositionCardName);
PositionCardLine = 0;
//read first line of card, then wait for callback
DataQueryId = llGetNotecardLine(PositionCardName,PositionCardLin e);
}
// handler for llGetNotecardLine function
dataserver(key queryid, string data)
{
if(queryid == DataQueryId)
{
// check if note card end is reached
if(EOF!=data)
{
// parse line into a list based on | separator character
list tmp = llParseString2List(data, ["|"], []);
// store values from card based on expected line format
PositionNameList += llList2String(tmp,0);
PositionVectorList += (vector)llList2String(tmp,1);
PositionDirectionList += llList2String(tmp,2);
// read next line
DataQueryId = llGetNotecardLine(PositionCardName,++PositionCardL ine);
}
else
{
// done parsing card, move on to next state
state active;
}
}
}
// since it uses notecards, reset when inventory changes
changed(integer change)
{
if (change&CHANGED_INVENTORY)
llResetScript();
}
}
state active
{
// when touched raise a dialog with destination options
touch_start(integer total_number)
{
// here is a good place to check for owner, or in this case whether
// the user's gorup is the same as that of the Transport
if(llDetectedGroup(0))
{
// activate listener
listenHandle=llListen( Transport_channel, "", "", "");
// raise dialog
llDialog( llDetectedKey( 0 ), "Transport", PositionNameList, Transport_channel);
}
else
{
llSay(0, "Only group members may use the Transport");
}
}
// listener will be called when dialog selection is made
listen( integer channel, string name, key id, string message )
{
// find index of selection in name list
integer index = llListFindList(PositionNameList,[message]);
// move to corresponding index in position list
warpPos(llList2Vector(PositionVectorList,index));
// rotate Transport to corresponding index in direction list
RotateTransport(llList2String(PositionDirectionLis t,index));
llListenRemove(listenHandle);
}
// since it uses notecards, reset when inventory changes
changed(integer change)
{
if (change&CHANGED_INVENTORY)
llResetScript();
}
}
Again, please no one try this until it can be verified okay,
Justin
