User talk:World Sar
From OpenSimulator
Line 7: | Line 7: | ||
3) 3D Interactive Adventure Game Project<br> | 3) 3D Interactive Adventure Game Project<br> | ||
− | == | + | == == |
− | + | ||
− | + | ||
− | + | ||
− | + | ||
− | + | ||
− | + | ||
− | + | ||
− | + | ||
− | + | ||
− | + | ||
− | + | ||
− | + | ||
− | + | ||
− | + | ||
== Protector Script == | == Protector Script == |
Revision as of 00:37, 20 October 2011
Contents |
AstralGrid Projects
1) HyperLife
2) Freebies SIM
3) 3D Interactive Adventure Game Project
Protector Script
/* ================ A World Star Production ================= Xengine: lsl/oss Script Name: Avatar ip Security (Teleporter) Creator: World Star Data: 19.2.2010 Version: v1 COPYRIGHT LICENCE: Does not sell Greetings by World Star =============== www.virtual.world.ch.vu =============== */
float range = 250.0; // sq. meters to scan float rate = 20.0; // seconds between scanning for new visitors (higher is less lag) string destination = "metaversesims.net:9000"; // Destination Region can be used in HG mode or non vector landing_facing = <128,128,34>; // Landing rotation vector landing_pos = <128, 128, 25>; // Landing Point string ip_url = "http://astral.dyndns-server.com/php/denied inworld.txt"; //list in .txt format "127.0.0.1","123.123.123.123" string Message = "You're recorded as negative!"; list ip_list; // = ["109.117.159.166","74.84.138.70","80.69.94.143"]; // if you dont wonna use an html request addon this string detected_avatar_ip; key ip_id;
Request_allowed() { ip_id = llHTTPRequest(ip_url, [], ""); }
boot(key id) { if (llOverMyLand(id) == TRUE) { osTeleportAgent(id,destination,landing_pos,landing_facing); } }
default
{
state_entry()
{ Request_allowed();// if you dont wonna use an html request remowe this llSensorRepeat( "", "", AGENT, range, TWO_PI, rate ); llSay(0, "Sensor Running"); }
sensor( integer number_detected )
{ integer i; key detected_key = llDetectedKey(i); detected_avatar_ip = osGetAgentIP(detected_key); if(~llListFindList(ip_list,detected_avatar_ip)) { llInstantMessage(llDetectedKey(i),Message); boot(llDetectedKey(i)); } }
http_response(key request_id, integer status, list metadata, string body)
{ if (request_id == ip_id) { list ip_list = "["+body+"]"; llSay(0,"IP List "+body+"\n"); } if(body=="Not Fund") { llSay(0,"IP List "+body+"\n"); } }
}