removed useless _ folders

No_Money_Rental_Script/No_Money_Rental_Script.sol

@@ -0,0 +1,3 @@
+<Solution name="No_Money_Rental_Script">
+<Project name="No_Money_Rental_Script" path="No_Money_Rental_Script\No_Money_Rental_Script.prj" active="true"/>
+</Solution>

No_Money_Rental_Script/No_Money_Rental_Script/No_Money_Rental_Script.prj

@@ -0,0 +1,6 @@
+<Project name="No_Money_Rental_Script" guid="D8E72735-6C00-1014-B904-200204C60A89">
+	<Object name="Object" guid="D8E72829-6C00-1014-B904-200204C60A89">
+		<Script name="No_Money_Rental_Script_1.lsl" guid="D8E797CA-6C00-1014-B904-200204C60A89">
+		</Script>
+	</Object>
+</Project>

No_Money_Rental_Script/No_Money_Rental_Script/Object/No_Money_Rental_Script_1.lsl

@@ -0,0 +1,476 @@
+// :CATEGORY:Rental
+// :NAME:No_Money_Rental_Script
+// :AUTHOR:Ferd Frederix
+// :CREATED:2013-04-03 13:53:53.560
+// :EDITED:2013-09-18 15:38:58
+// :ID:557
+// :NUM:761
+// :REV:1.0
+// :WORLD:Second Life
+// :DESCRIPTION:
+// User can touch the sign and claim  land for a set period.
+//  You can force them to reclaim every so often, set a grace period, and enforce a number of prims.
+// 
+// You need some textures, "land available", "Land is rented", and so on. See the details in the user configuarble section of the script.
+// :CODE:
+
+
+// No Money Rental (Vendor).lsl
+
+
+
+// User configurable variables:
+
+
+
+integer debug = FALSE;    // set to TRUE to see debug info
+
+
+
+// Put this in the Description of the sign prim or you will get these by default
+
+// 1,7,100,1,3,1
+
+// These are PERIOD in days, MAXPERIOD in days, PRIMMAX , IS_RENEWABLE, RENTWARNING ,GRACEPERIOD
+
+
+
+// PERIOD == 1 day
+
+// MAXPERIOD is set to 7 days, that is as long as they can lease, if IS_RENEWABLE is 0
+
+// PRIMMAX is set to 100 prims, aghain, this is up to you. The script does not enforece prim limits.
+
+// IS_RENEWABLE is set to 1, or TRUE, so they can renew, or set to 0, they cannot renew the same plot.
+
+// RENTWARNING is number of days before this claim expires, when a message is sent via IM to reclaim (if IS_RENEWABLE)
+
+// GRACEPERIOD is number of days allowed to miss claiming before it expires
+
+
+
+string  initINFO = "0.5,1,100,0,1,1"; // Default config info if you didn't change the description when this script is first executed
+
+// Debug config info, 5 minutes per claim, 10 minutes max, 100 prims, 2 minute warning, grace period 1 minutes
+
+//string  debugINFO = "0.00347222,0.00694455,100,1,0.00138889, 0.00138889";  //fast timers
+
+string  debugINFO  = "0.041,1,100,1,0.0104,1"; // Default config info if you didn't change the description when this script is first executed
+
+
+
+
+
+// Uses several textures that need to be made and put in the prims inventory: 
+
+string lease_ex = "lease_ex";          // lease is expired
+
+string lease_large = "lease_large";     // leased signage, large size
+
+string lease_busy = "lease_busy";       // busy signage
+
+string leased = "leased";               // leased  - in use
+
+   
+
+vector FULL_SIZE = <1.5,.375,1.5>;        // the signs size when unrented
+
+vector SMALL_SIZE = <.25,.25,.25>;        // the signs size when rented (it will shrink)
+
+string blank_texture = "5748decc-f629-461c-9a36-a35a221fe21f";  //the UUID of a blank sign, for SL only, change to a blank white texture for OpenSim
+
+
+
+//
+
+// don't muck below this, code begins.
+
+//
+
+// The  Description ( config info) of the sign is stored into these variables:
+
+
+
+float PERIOD;     // DAYS  lease is claimed
+
+integer PRIMMAX;    // number of prims
+
+float MAXPERIOD;  // maximum length in days
+
+float RENTWARNING ; //Day allowed to renew earlier
+
+float GRACEPERIOD ; // Days allowed to miss payment
+
+   
+
+list my_data;
+
+integer MY_STATE = 0;  // 0 is unleased, 1 = leased
+
+string LEASER = "";    // name of lessor
+
+key LEASERID;          // their UUID
+
+ 
+
+integer LEASED_UNTIL; // unix time stamp
+
+integer IS_RENEWABLE = FALSE; // can they renew?
+
+integer DAYSEC = 86400;         // a constant
+
+integer SENT_WARNING = FALSE;    // did they get an im?
+
+integer SENT_PRIMWARNING = FALSE;    // did they get an im about going over prim count?
+
+integer listener;    // ID for active listener
+
+key touchedKey ;     // the key of whoever touched us last (not necessarily the renter)
+
+
+
+
+
+DEBUG(string data)
+
+{
+
+    if (debug)
+
+        llOwnerSay("DEBUG: " + data);
+
+}
+
+
+
+integer dialogActiveFlag ;    // true when we have up a dialog box, used by the timer to clear out the listener if no response is given
+
+dialog()
+
+{
+
+    llListenRemove(listener);
+
+    integer channel = llCeil(llFrand(1000000)) + 100000 * -1; // negative channel # cannot be typed
+
+    listener = llListen(channel,"","","");
+
+    llDialog(touchedKey,"Do you wish to claim this parcel?",["Yes","-","No"],channel);
+
+    llSetTimerEvent(30);
+
+    dialogActiveFlag  = TRUE;
+
+}
+
+
+
+string get_rentalbox_info()
+
+{
+
+    return llGetRegionName()  + " @ " + (string)llGetPos() + " (Leaser: \"" + LEASER + "\", Expire: " + timespan(LEASED_UNTIL - llGetUnixTime()) + ")";   
+
+}
+
+
+
+string timespan(integer time)
+
+{
+
+    integer days = time / DAYSEC;
+
+    integer curtime = (time / DAYSEC) - (time % DAYSEC);
+
+    integer hours = curtime / 3600;
+
+    integer minutes = (curtime % 3600) / 60;
+
+    integer seconds = curtime % 60;
+
+    
+
+    return (string)llAbs(days) + " days, " + (string)llAbs(hours) + " hours, "
+
+        + (string)llAbs(minutes) + " minutes, " + (string)llAbs(seconds) + " seconds";
+
+    
+
+}
+
+
+
+load_data()
+
+{
+
+    integer len;
+
+    my_data = llCSV2List(llGetObjectDesc());
+
+
+
+    if (llStringLength(llGetObjectDesc()) < 5) // SL does not allow blank description
+
+    {
+
+        my_data = llCSV2List(initINFO);
+
+    }
+
+    else if (debug)
+
+    {
+
+        my_data = llCSV2List(debugINFO);    // 5 minute fast timers
+
+    }
+
+     
+
+    len = llGetListLength(my_data);
+
+   
+
+    PERIOD = (float) llList2String(my_data,0);
+
+   
+
+    MAXPERIOD = (float) llList2String(my_data,1);
+
+   
+
+    PRIMMAX = (integer) llList2String(my_data,2);
+
+   
+
+    IS_RENEWABLE = (integer) llList2String(my_data, 3);
+
+
+
+    RENTWARNING = (float) llList2String(my_data, 4);
+
+
+
+    GRACEPERIOD = (float) llList2String(my_data, 5);
+
+   
+
+    MY_STATE = (integer) llList2String(my_data, 6);
+
+   
+
+    LEASER = llList2String(my_data, 7);
+
+   
+
+    LEASERID = (key) llList2String(my_data, 8);
+
+   
+
+    LEASED_UNTIL = (integer) llList2String(my_data, 9);
+
+   
+
+    SENT_WARNING = (integer) llList2String(my_data, 10);
+
+
+
+}
+
+
+
+save_data()
+
+{
+
+    DEBUG("Data saved in description");
+
+    my_data =  [(string)PERIOD, (string)MAXPERIOD, (string)PRIMMAX, (string)IS_RENEWABLE, (string) RENTWARNING, (string) GRACEPERIOD, (string)MY_STATE, (string)LEASER, (string) LEASERID,  (string)LEASED_UNTIL, (string)SENT_WARNING  ];
+
+    llSetObjectDesc(llList2CSV(my_data));
+
+    initINFO = llList2CSV(my_data);   // for debugging in LSL Editor.
+
+    debugINFO = initINFO;  // for debugging in fast mode
+
+   
+
+    load_data() ;    // to print it in case of debug
+
+}
+
+
+
+default
+
+{
+
+    state_entry()
+
+    {
+
+        load_data();  
+
+        llSetScale(SMALL_SIZE);   
+
+        llSetTexture(lease_ex,ALL_SIDES);
+
+        llOwnerSay("Click this rental box to activate after configuring the DESCRIPTION.");  
+
+        llSetText("DISABLED",<0,0,0>, 1.0);
+
+    }
+
+    
+
+    on_rez(integer start_param)
+
+    {
+
+        load_data();
+
+    }
+
+    
+
+    touch_start(integer total_number)
+
+    {
+
+        if (llDetectedKey(0) == llGetOwner())
+
+        {
+
+            load_data();
+
+
+
+            llSay(0,"Activating...");
+
+            if (MY_STATE == 0)
+
+                state unleased;
+
+            else if (MY_STATE == 1)
+
+                state leased;
+
+        }
+
+    }
+
+}
+
+
+
+state unleased
+
+{
+
+    state_entry()
+
+    {
+
+        DEBUG("state unleased");
+
+        load_data();
+
+        if (MY_STATE !=0 || PERIOD == 0)
+
+        {
+
+            DEBUG("MY_STATE:" + (string) MY_STATE);
+
+            DEBUG("PERIOD:" + (string) PERIOD);
+
+            DEBUG("IS_RENEWABLE:" + (string) IS_RENEWABLE);
+
+            llOwnerSay("Returning to default. Data is not correct.");
+
+            state default;
+
+        }
+
+       
+
+        llSetScale(FULL_SIZE);
+
+
+
+        //Blank texture
+
+        llSetTexture(blank_texture,ALL_SIDES);
+
+
+
+        llSetTexture(lease_large,1);
+
+        llSetTexture(lease_large,3);
+
+        llOwnerSay("Lease script is unleased");
+
+        llSetText("",<1,0,0>, 1.0);
+
+        
+
+    }
+
+    
+
+    listen(integer channel, string name, key id, string message)
+
+    {
+
+        dialogActiveFlag = FALSE;
+
+        llSetTimerEvent(0);
+
+        llListenRemove(listener);
+
+
+
+        load_data();
+
+       
+
+        if (message == "Yes")
+
+        {
+
+            llSay(0,"Thanks for claiming this spot! Please wait a few moments...");
+
+            MY_STATE = 1;
+
+            LEASER = llKey2Name(touchedKey);
+
+            LEASERID = touchedKey;
+
+            LEASED_UNTIL = llGetUnixTime() + (integer) (DAYSEC * PERIOD);
+
+            DEBUG("Remaining time:" +  timespan(llGetUnixTime()-LEASED_UNTIL));
+
+           
+
+            SENT_WARNING = FALSE;
+
+            save_data();
+
+            llInstantMessage(llGetOwner(), "NEW CLAIM -" +  get_rentalbox_info());
+
+            state leased;
+
+        }
+
+    }
+
+    
+
+    touch_start(integer total_number)
+
+    {
+
+        DEBUG("touch event in unleased");
+
+        load_data();