Advertisement
Madi_Perth

Untitled

Sep 20th, 2023 (edited)
1,966
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Linden Scripting 3.38 KB | Source Code | 0 0
  1. //start_unprocessed_text
  2. /*#include "getTime.lsl"
  3. #include "color.lsl"
  4.  
  5. integer i;
  6. list touched;
  7.  
  8. set_text(vector color, string loop)
  9. {
  10.             llSetText(getInlineTime((integer) llGetTime()) + "\n"
  11.                 + (string) i +" : "
  12.                 + (string) llGetListLength(touched) +" : "
  13.                 + (string) llGetFreeMemory()  +"\n"
  14.                 + llList2String(touched, -1) + "\n"
  15.                 + loop,
  16.                     color, 1);
  17. }
  18.  
  19. default
  20. {
  21.     state_entry()
  22.     {
  23.  
  24.  
  25.         llResetTime();
  26.         integer x;
  27.         integer end = 10;
  28.         while(++i)
  29.         {
  30.             end = (integer) llFrand(5);
  31.             for(x=0;x<end;++x)
  32.             {
  33.                 set_text(RED, "f");
  34.                 touched += llGenerateKey();  
  35.             }
  36.  
  37.             if(llGetListLength(touched) > 500)
  38.             {
  39.                 /|/ set_text(RED, "w");
  40.                 touched = llDeleteSubList(touched, 0,
  41.                             (llGetListLength(touched) - (500 + 1)));
  42.             }
  43.  
  44.         }
  45.     }
  46. }
  47. */
  48. //end_unprocessed_text
  49. //nfo_preprocessor_version 0
  50. //program_version Firestorm-Releasex64 6.6.14.69596 - Madi Melodious
  51. //last_compiled 09/20/2023 12:32:49
  52. //mono
  53.  
  54.  
  55.  
  56.  
  57.  
  58.    
  59.  
  60. //#line 4 "C:\\Program Files\\Firestorm-Releasex64\\New Script"
  61. integer i;
  62. list touched;
  63.  
  64.  
  65. string getInlineTime(integer secs)
  66. {
  67.     string timeStr;
  68.     integer days;
  69.     integer hours;
  70.     integer minutes;
  71.  
  72.     if (secs>=86400)
  73.     {
  74.         days=llFloor(secs/86400);
  75.         secs=secs%86400;
  76.         timeStr+=(string)days+" day";
  77.         if (days>1)
  78.         {
  79.             timeStr+="s";
  80.         }
  81.         if(secs>0)
  82.         {
  83.             timeStr+=" ";
  84.         }
  85.     }
  86.     if(secs>=3600)
  87.     {
  88.         hours=llFloor(secs/3600);
  89.         secs=secs%3600;
  90.         timeStr+=(string)hours+" hour";
  91.         if(hours!=1)
  92.         {
  93.             timeStr+="s";
  94.         }
  95.         if(secs>0)
  96.         {
  97.             timeStr+=" ";
  98.         }
  99.     }
  100.     if(secs>=60)
  101.     {
  102.         minutes=llFloor(secs/60);
  103.         secs=secs%60;
  104.         timeStr+=(string)minutes+" minute";
  105.         if(minutes!=1)
  106.         {
  107.             timeStr+="s";
  108.         }
  109.         if(secs>0)
  110.         {
  111.             timeStr+=" ";
  112.         }
  113.     }
  114.     if (secs>0)
  115.     {
  116.         timeStr+=(string)secs+" second";
  117.         if(secs!=1)
  118.         {
  119.             timeStr+="s";
  120.         }
  121.     }
  122.     return timeStr;
  123. }
  124.  
  125. set_text(vector color, string loop)
  126. {
  127.             llSetText(getInlineTime((integer) llGetTime()) + "\n"
  128.                 + (string) i +" : "
  129.                 + (string) llGetListLength(touched) +" : "
  130.                 + (string) llGetFreeMemory()  +"\n"
  131.                 + llList2String(touched, -1) + "\n"
  132.                 + loop,
  133.                     color, 1);
  134. }
  135.  
  136. default
  137. {
  138.     state_entry()
  139.     {
  140.  
  141.  
  142.         llResetTime();
  143.         integer x;
  144.         integer end = 10;
  145.         while(++i)
  146.         {
  147.             end = (integer) llFrand(5);
  148.             for(x=0;x<end;++x)
  149.             {
  150.                 set_text(<1.000, 0.255, 0.212>, "f");
  151.                 touched += llGenerateKey();  
  152.             }
  153.  
  154.             if(llGetListLength(touched) > 500)
  155.             {
  156.                
  157.                 touched = llDeleteSubList(touched, 0,
  158.                             (llGetListLength(touched) - (500 + 1)));
  159.             }
  160.  
  161.         }
  162.     }
  163. }
  164.  
  165.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement