Allow different speeds of movement.

1 files changed, 33 insertions, 0 deletions

diff --git a/1AOor2.lsl b/1AOor2.lsl
index 360b702..f9cae44 100644
--- a/1AOor2.lsl
+++ b/1AOor2.lsl
@@ -269,6 +269,26 @@ integer doThing(key id, string button, string fr, string cmd, string data, integ
         Smile = llList2String(Smiles, (integer) llFrand(2.5));
         addEvent(3.0 + llFrand(5.0), cmd);
         animBegin(llGetOwner(), Smile);
+    else if ("SLOWER_-" == cmd)
+    {
+        integer sp = llListFindList(AOspeeds, [getSetting("SPEED")]);
+        if (sp > 0)  sp--;  else sp = 0;
+        setSetting(id, "SPEED", llList2String(AOspeeds, sp), fMENU);
+        s("Now moving at " + llList2String(AOspeedNames, sp) + " speed.");
+    }
+    else if ("NORMAL_SPEED" == cmd)
+    {
+        setSetting(id, "SPEED", "1.0", fMENU);
+        s("Now moving at normal speed.");
+    }
+    else if ("FASTER_+" == cmd)
+    {
+        integer sp = llListFindList(AOspeeds, [getSetting("SPEED")]);
+        integer l = llGetListLength(AOspeeds) - 1;
+        if (sp < l)  sp++;  else sp = l;
+        setSetting(id, "SPEED", llList2String(AOspeeds, sp), fMENU);
+        s("Now moving at " + llList2String(AOspeedNames, sp) + " speed.");
+    }
     }
     else if ("LESS_-" == cmd)
     {
@@ -651,6 +671,18 @@ integer Swimming;
 integer Bobbing;
 float Tick = 0.2;
 float AOspeed = 1.0;
+list AOspeeds = ["0.1", "0.5", "1.0", "2.0", "5.0", "10.0", "20.0", "50.0"];  // Strings coz LSL can't find floats.
+list AOspeedNames =
+[
+    "snail",
+    "slow",
+    "normal",
+    "fast",
+    "light",
+    "ridiculous",
+    "ludicrous",
+    "plaid"
+];
 list flyStates;
 list initialStates;     //    "Taking Off",           "hover_up",
 list ANIMATIONS;
@@ -1631,6 +1663,7 @@ checkAO()
         else            AOspeed = 4.0;
     }
     else                AOspeed = 1.0;
+    AOspeed = AOspeed * (float) getSetting("speed");
     if (0.0 < AOspeed)  speed(Owner, AOspeed + ((AOspeed / 2) * (fast + (2 * (integer) getSetting("super")))));
     else                AOspeed = 1.0;
     for (f = 0; f < l; f += pSTRIDE)