Flight Belt

//ZeroFlight XLR8
//hacked together script by Burke Prefect, peices from other people's code.
//NOT RESPONSIBLE... FOR ANYTHING
float speed = 15; // this is starting speed.
vector mode_color = <.5,.5,.5>; // default display color for HUD.

set_hover() // this keeps you from falling at extreme altitudes. just 'fly' normally. works in either mode.
{
    vector pos = llGetPos();
    float ground = llGround(<0,0,0>);
if(llGetAgentInfo(llGetOwner()) & AGENT_FLYING)
    {
           if((pos.z > 75) && (pos.z > (ground + 35)))
       { 
            llSetForce(<0,0,9.8> * llGetMass(), FALSE);
             llMessageLinked(LINK_SET, 0, "flyingON", NULL_KEY);
        }
        else
        {
            llSetForce(<0,0,0>, FALSE);
            llMessageLinked(LINK_SET, 0, "flyingON", NULL_KEY);
        }
    }
    else
        {
            llSetForce(<0,0,0>, FALSE);
             llMessageLinked(LINK_SET, 0, "flyingOFF", NULL_KEY);
        }
}


helptext()
{
    llWhisper(0,"To Turn ON/OFF :: click pack or say '!fly'.");
    llWhisper(0,"When ON :: say '!s (num)' to set speed boost factor");
    llWhisper(0,"Hover function automatically engaged when avater flying at high altitude");
    llWhisper(0,"To change colors, say !blue, !green, !red, !black.[end]");
}



default // this is where the script starts off. it's not active, it's just waiting for a command.
{
    state_entry()
    {
    key id = llGetOwner();
    llWhisper(0,"*Disengaged*");
    llListen(0,"",id,"");
    llSetText("",<0,0,0>,1);
    llSetTimerEvent(.5);
    llReleaseControls();
    llSetBuoyancy(0.0);
    llMessageLinked(LINK_SET, 0, "flyingOFF", NULL_KEY);
    }
    
    //on_rez(integer total_number) // this is small peice of code that resets the script. It's in both states. 
   // {llWhisper(0,"*Ready To Activate. Say 'fly' to activate. Say 'winghelp' for more.*");}
    
     attach(key id)
    {
      llWhisper(0,"*Ready To Activate. Say '!fly' to activate. Say '!winghelp' for more.*");
    llSetForce(<0,0,0>, FALSE);
    }
    
    touch_start(integer total_number)
    {
        if (llDetectedKey(0) == llGetOwner())
        {
         state freakpack;
        }
    }
     
     
     
   timer()
    {
    set_hover();
     }
     
     listen(integer number, string name, key id, string m)
     {
        if (m=="!fly")
        {
        state freakpack;
        }
        if (m=="!winghelp")
        {
        helptext();
        }
        if (m=="!red")
        {
        llMessageLinked(LINK_SET, 0, "color_red", NULL_KEY);
        mode_color = <1,0,0>;
        }
       if (m=="!blue")
        {
        llMessageLinked(LINK_SET, 0, "color_blue", NULL_KEY);
        mode_color = <0,.25,.5>;
        }
        if (m=="!green")
        {
        llMessageLinked(LINK_SET, 0, "color_green", NULL_KEY);
        mode_color = <0,1,0>;
        }
        if (m=="!black")
        {
        llMessageLinked(LINK_SET, 0, "color_black", NULL_KEY);
        mode_color = <0,0,0>;
        } 
        
    }
}
    

//// By making 'freakpack' it's own state, we can control it much easier. 
state freakpack
{
    state_entry()
    {
        llWhisper(0,"*Engaged*");
        llSetTimerEvent(.5);
        key id = llGetOwner();
        llListen(0,"",id,"");
        llRequestPermissions(id,PERMISSION_TAKE_CONTROLS);
    }
    
    // on_rez(integer total_number)
    //{llResetScript();}
    
    touch_start(integer total_number)
    {
        if (llDetectedKey(0) == llGetOwner())
        {
          llReleaseControls();  
         state default;
        }
    }

     timer()
    {
     set_hover();   
    }
    
    run_time_permissions(integer perm)
    {
         if(perm & PERMISSION_TAKE_CONTROLS)
        {
            llTakeControls(CONTROL_FWD|CONTROL_BACK|CONTROL_LEFT|CONTROL_RIGHT|CONTROL_UP|CONTROL_DOWN,TRUE,TRUE);
        }
    }
    
    control(key av, integer level, integer edge)
    {
         if(level & CONTROL_UP)
        {
            llApplyImpulse(<0,0,speed*3>,FALSE);
        }
         if(level & CONTROL_DOWN)
        {
            llApplyImpulse(<0,0,-speed*3>,FALSE);
        }
          if(level & CONTROL_LEFT)
        {
         if(llGetAgentInfo(llGetOwner()) & AGENT_FLYING)
            {   llApplyImpulse(<0,speed,0>,TRUE);}
        }
          if(level & CONTROL_RIGHT)
        {
            if(llGetAgentInfo(llGetOwner()) & AGENT_FLYING)
            {llApplyImpulse(<0,-speed,0>,TRUE);}
        }
         if(level & CONTROL_FWD)
        {
            if(llGetAgentInfo(llGetOwner()) & AGENT_FLYING)
            {llApplyImpulse(<speed,0,0>,TRUE);}
        }
         if(level & CONTROL_BACK)
        {
            if(llGetAgentInfo(llGetOwner()) & AGENT_FLYING)
            {llApplyImpulse(<-speed,0,0>,TRUE);}
        }
    }
    
    timer()
    {
        vector pos = llGetPos();
        string vel=(string) ( (integer)(llVecMag(llGetVel()))*2);
 //llSetText(llGetRegionName() + " (" + (string) ( (integer)pos.x) + "," + (string) ( (integer)pos.y) + ")\nAlt: " + (string) ( (integer)pos.z) + "m" + "\n Speed: "+ vol + "mph \nBoost: " + (string) ( (integer)speed) + "x\n \n \n \n \n \n \n \n \n \n \n",<0.5,0.5,0.5>,2);
 llSetText("Vel: "+ vel + "mph \nAlt: " + (string) ( (integer)pos.z) + "m" + "\nBoost: " + (string) ( (integer)speed) + "x\n \n \n \n \n \n \n \n \n \n \n",mode_color,2);
    set_hover();
        }
    
    listen(integer channel, string name, key id, string m)
    {
        string ml = llToLower(m);
        list parsed = llParseString2List(ml,[" "],[]);
        if(llList2String(parsed,0) == "!s")
        {
            speed = (float)llList2String(parsed,1);
        }
         if (m=="!fly")
        {
        state default;
         llReleaseControls();
         
        }
         if (m=="!winghelp")
        {
        helptext();
        }
        if (m=="!red")
        {
        llMessageLinked(LINK_SET, 0, "color_red", NULL_KEY);
        mode_color = <1,0,0>;
        }
       if (m=="!blue")
        {
        llMessageLinked(LINK_SET, 0, "color_blue", NULL_KEY);
        mode_color = <0,.25,.5>;
        }
        if (m=="!green")
        {
        llMessageLinked(LINK_SET, 0, "color_green", NULL_KEY);
        mode_color = <0,1,0>;
        }
        if (m=="!black")
        {
        llMessageLinked(LINK_SET, 0, "color_black", NULL_KEY);
        mode_color = <0,0,0>;
        } 
    }
}

default
{
    state_entry()
    {
        llOwnerSay("state_entry triggered");
    }
}