Miko/LSL-Scripts
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

add web link to not6ecard giver

Browse Source
This commit is contained in:
Fred Beckhusen
2017-11-18 20:41:26 -06:00
parent 4b6d1f7292
commit e622132f03
16 changed files with 1114 additions and 336 deletions
Download Patch File Download Diff File Expand all files Collapse all files

108
Hyperica Hypergate/Hyperica Hypergate/Gate/Hyperica_Teleport.lsl Normal file
View File

@@ -0,0 +1,108 @@
string URL ="http://www.hyperica.com/lookup/?cat=";
//Cat (category) numbers:
//0: WELCOME
//3: EDUCATION
//8: RETAIL
//10: VENUES
//Sort codes: 1=popularity 2=latest additions
string SimAddress; //the hypergrid address
string SimName; //the destination region name
string SimSnapshotURL; //URL of the photo -- this script doesn't use it, but you can use
string GridName; //name of the destination's grid
string SimLocation; //Upper, middle or lower
key httpkey;//This stores the key for the HTTP request we send.
string body_retrieved; // this will hold what is returned from http request
vector LandingPoint = <128.0, 128.0, 22.0>;
vector LookAt = <1.0,1.0,1.0>;
list LastFewAgents;
LoadDestination ()
{
list Description = llParseString2List(llGetObjectDesc(),[","," "],[]);
string Category = llList2String(Description,0);
integer CatNum = 0;
if (llToUpper(Category)=="EDUCATION") CatNum=3;
if (llToUpper(Category)=="RETAIL") CatNum=8;
if (llToUpper(Category)=="VENUES") CatNum=10;
URL = URL+(string) CatNum+"&region="+llList2String(Description,1)+"&sort=1";
llSay(0, URL);
httpkey=llHTTPRequest(URL, [] ,"");
llSetText("No destination set.",<1,1,1>,1);
}
PerformTeleport( key WhomToTeleport )
{
integer CurrentTime = llGetUnixTime();
integer AgentIndex = llListFindList( LastFewAgents, [ WhomToTeleport ] ); // Is the agent we're teleporting already in the list?
if (AgentIndex != -1) // If yes, check to make sure it's been > 5 seconds
{
integer PreviousTime = llList2Integer( LastFewAgents, AgentIndex+1 ); // Get the last time they were teleported
if (PreviousTime >= (CurrentTime - 30)) return; // Less than five seconds ago? Exit without teleporting
LastFewAgents = llDeleteSubList( LastFewAgents, AgentIndex, AgentIndex+1); // Delete the agent from the list
}
LastFewAgents += [ WhomToTeleport, CurrentTime ]; // Add the agent and current time to the list
llMapDestination(SimAddress, LandingPoint, LookAt);
//IF OS scripts are enabled, you can use this:
//osTeleportAgent( WhomToTeleport, SimAddress, LandingPoint, LookAt );
}
default
{
state_entry()
{
LoadDestination();
}
http_response(key id, integer status, list meta, string body)
{
body_retrieved = body;
SimName = llGetSubString(body_retrieved, llSubStringIndex(body,"<!--REGION NAME-->")+18, llSubStringIndex(body, "<!--END REGION NAME-->")-1);
GridName = llGetSubString(body_retrieved, llSubStringIndex(body,"<!--GRID NAME-->")+16, llSubStringIndex(body, "<!--END GRID NAME-->")-1);
SimLocation = llGetSubString(body_retrieved, llSubStringIndex(body,"<!--LOCATION-->")+15, llSubStringIndex(body, "<!--END LOCATION-->")-1);
SimAddress = llGetSubString(body_retrieved, llSubStringIndex(body,"<!--HGURL-->")+12, llSubStringIndex(body, "<!--END HGURL-->")-1);
llSetText("Hypergate to\n"+ SimName +"\non\n"+GridName,<1,1,1>,1);
string CommandList = "";
CommandList = osMovePen( CommandList, 25, 75 );
CommandList += "FontSize 16;";
CommandList = osDrawText( CommandList, SimName +" on "+GridName );
osSetDynamicTextureDataBlendFace( "", "vector", CommandList, "width:256,height:256", FALSE, 2, 0, 255, 3 );
}
touch_start(integer number)
{ LoadDestination(); }
collision(integer number)
{ PerformTeleport( llDetectedKey( 0 )); }
}

244
Hyperica Hypergate/Hyperica Hypergate/Gate/Hyperica_events.lsl Normal file
View File

@@ -0,0 +1,244 @@
//
// HYPEvents in-world teleporter board script
//
// Author: Tom Frost <tomfrost@linkwater.org>
//
// GPLv3
//
// configuration:
float refreshTime = 1800;
// internal, do not touch:
integer lineHeight = 30;
integer startY = 90;
integer texWidth = 512;
integer texHeight = 512;
key httpRequest;
list events;
integer channel;
integer listenHandle;
integer listening = 0;
list avatarDestinations = [];
//
// manipulate global avatarDestinations list
//
// insert or overwrite destination for agent with dest
//
tfSetAvatarDest(key agent, string dest)
{
list newList = [];
integer idx;
integer len = llGetListLength(avatarDestinations)/2;
integer set = FALSE;
for(idx=0;idx<len;idx++) {
key avatar = llList2Key(avatarDestinations, (idx*2));
if(avatar==agent) {
newList += [ agent, dest ];
set = TRUE;
} else {
newList += [ avatar, llList2String(avatarDestinations, (idx*2)+1) ];
}
}
if(!set) {
newList += [ agent, dest ];
}
avatarDestinations = newList;
}
//
// retrieve avatar dest from global avatarDestination list
//
// returns hgurl if destination set, NULL_KEY otherwise
//
string tfGetAvatarDest(key agent)
{
integer idx;
integer len = llGetListLength(avatarDestinations)/2;
for(idx=0;idx<len;idx++) {
if(llList2Key(avatarDestinations, (idx*2))==agent) {
return llList2String(avatarDestinations, (idx*2)+1);
}
}
return NULL_KEY;
}
doRequest()
{
httpRequest = llHTTPRequest("http://hypevents.net/events.lsl", [], "");
}
string tfTrimText(string in, string fontname, integer fontsize,integer width)
{
integer i;
integer trimmed = FALSE;
for(;llStringLength(in)>0;in=llGetSubString(in,0,-2)) {
vector extents = osGetDrawStringSize("vector",in,fontname,fontsize);
if(extents.x<=width) {
if(trimmed) {
return in + "..";
} else {
return in;
}
}
trimmed = TRUE;
}
return "";
}
refreshTexture()
{
string commandList = "";
integer fontSize=50;
commandList = osMovePen(commandList, 20, 5);
commandList = osDrawImage(commandList, 400, 70, "http://linkwater.org/dyntex/hypevents_logo.png");
commandList = osSetPenSize(commandList, 1);
commandList = osDrawLine(commandList, 0, 80, 512, 80);
integer numEvents = llGetListLength(events)/3;
integer i;
integer y = startY;
commandList = osSetFontName(commandList, "Arial");
commandList = osSetFontSize(commandList, 20);
for(i=0;i<numEvents;i++) {
integer base = i*3;
commandList = osMovePen(commandList, 10, y);
string text = llList2String(events, base+1) + " " + llList2String(events, base);
text = tfTrimText(text, "Arial", 20, texWidth-40);
commandList = osDrawText(commandList, text);
y += lineHeight;
}
osSetDynamicTextureData("", "vector", commandList, "width:"+(string)texWidth+",height:"+(string)texHeight, 0);
}
tfLoadURL(key avatar)
{
llLoadURL(avatar, "Visit the HYPEvents web-site for more detailed event information and technical information.", "http://hypevents.net/");
}
tfGoToEvent(key avatar, integer eventIndex)
{
integer numEvents = llGetListLength(events)/3;
integer base = eventIndex * 3;
if(eventIndex<numEvents) {
string text=llList2String(events, base+0);
text += "\n\n";
text += "The hypergrid url for this event is:\n\n"+llList2String(events, base+2)+"\n\n";
text += "Is this hgurl a hypergrid url for you or a local url?\n\n";
tfSetAvatarDest(avatar, llList2String(events, base+2));
llDialog(avatar, text, ["Hypergrid","Local grid", "Cancel"], channel);
if(listening==0) {
listenHandle = llListen(channel, "", NULL_KEY, "");
listening = (integer)llGetTime();
}
} else {
}
}
default
{
state_entry()
{
channel = -25673 - (integer)llFrand(1000000);
listening = 0;
avatarDestinations = [];
llSetTimerEvent(refreshTime);
doRequest();
}
http_response(key requestID, integer status, list metadata, string body)
{
if(status==200) {
events = llParseString2List(body, ["\n"], []);
refreshTexture();
} else {
llOwnerSay("Unable to fetch event.lsl, status: "+(string)status);
}
}
listen(integer chan, string name, key agent, string msg)
{
if(chan==channel) {
if(msg!="Cancel") {
string dest = tfGetAvatarDest(agent);
if(dest!=NULL_KEY) {
string dsturl = dest;
if(msg=="Local grid") {
list hgurl = llParseString2List(dest, [":"], []);
dsturl = llList2String(hgurl, 2);
}
osTeleportAgent(agent, dsturl, <128.0,128.0,23.0>, <1.0,1.0,0.0> );
}
}
}
}
touch_end(integer num)
{
integer i;
for(i=0;i<num;i++) {
vector touchPos = llDetectedTouchUV(i);
integer touchX = (integer)(touchPos.x * texWidth);
integer touchY = texHeight - (integer)(touchPos.y * texHeight);
key avatar = llDetectedKey(i);
if(touchY < 80) {
tfLoadURL(avatar);
} else if(touchY>=startY) {
integer touchIndex;
touchIndex = (integer)((touchY - startY) / lineHeight);
tfGoToEvent(avatar, touchIndex);
}
}
}
timer()
{
// timeout listener
if(listening!=0) {
if( (listening + 300) < (integer)llGetTime() ) {
llListenRemove(listenHandle);
avatarDestinations=[];
listening = 0;
}
}
// refresh texture
doRequest();
}
}