Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- //start_unprocessed_text
- /*#include "getTime.lsl"
- #include "color.lsl"
- integer i;
- list touched;
- set_text(vector color, string loop)
- {
- llSetText(getInlineTime((integer) llGetTime()) + "\n"
- + (string) i +" : "
- + (string) llGetListLength(touched) +" : "
- + (string) llGetFreeMemory() +"\n"
- + llList2String(touched, -1) + "\n"
- + loop,
- color, 1);
- }
- default
- {
- state_entry()
- {
- llResetTime();
- integer x;
- integer end = 10;
- while(++i)
- {
- end = (integer) llFrand(5);
- for(x=0;x<end;++x)
- {
- set_text(RED, "f");
- touched += llGenerateKey();
- }
- if(llGetListLength(touched) > 500)
- {
- /|/ set_text(RED, "w");
- touched = llDeleteSubList(touched, 0,
- (llGetListLength(touched) - (500 + 1)));
- }
- }
- }
- }
- */
- //end_unprocessed_text
- //nfo_preprocessor_version 0
- //program_version Firestorm-Releasex64 6.6.14.69596 - Madi Melodious
- //last_compiled 09/20/2023 12:32:49
- //mono
- //#line 4 "C:\\Program Files\\Firestorm-Releasex64\\New Script"
- integer i;
- list touched;
- string getInlineTime(integer secs)
- {
- string timeStr;
- integer days;
- integer hours;
- integer minutes;
- if (secs>=86400)
- {
- days=llFloor(secs/86400);
- secs=secs%86400;
- timeStr+=(string)days+" day";
- if (days>1)
- {
- timeStr+="s";
- }
- if(secs>0)
- {
- timeStr+=" ";
- }
- }
- if(secs>=3600)
- {
- hours=llFloor(secs/3600);
- secs=secs%3600;
- timeStr+=(string)hours+" hour";
- if(hours!=1)
- {
- timeStr+="s";
- }
- if(secs>0)
- {
- timeStr+=" ";
- }
- }
- if(secs>=60)
- {
- minutes=llFloor(secs/60);
- secs=secs%60;
- timeStr+=(string)minutes+" minute";
- if(minutes!=1)
- {
- timeStr+="s";
- }
- if(secs>0)
- {
- timeStr+=" ";
- }
- }
- if (secs>0)
- {
- timeStr+=(string)secs+" second";
- if(secs!=1)
- {
- timeStr+="s";
- }
- }
- return timeStr;
- }
- set_text(vector color, string loop)
- {
- llSetText(getInlineTime((integer) llGetTime()) + "\n"
- + (string) i +" : "
- + (string) llGetListLength(touched) +" : "
- + (string) llGetFreeMemory() +"\n"
- + llList2String(touched, -1) + "\n"
- + loop,
- color, 1);
- }
- default
- {
- state_entry()
- {
- llResetTime();
- integer x;
- integer end = 10;
- while(++i)
- {
- end = (integer) llFrand(5);
- for(x=0;x<end;++x)
- {
- set_text(<1.000, 0.255, 0.212>, "f");
- touched += llGenerateKey();
- }
- if(llGetListLength(touched) > 500)
- {
- touched = llDeleteSubList(touched, 0,
- (llGetListLength(touched) - (500 + 1)));
- }
- }
- }
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement