//start_unprocessed_text
/*hp_display()
{
    integer t;
    string display="[";
    for(t=10;t!=0;--t)
    {
        if(hp>((10-t)*max_hp/10))display+="█";
        else display+="-";
    }
    display+="]";
    llSetText(display,<1.-(float)hp/max_hp,(float)hp/max_hp,0.>,1);
    if(hp==0)llDie();
}

rotation adjustRotByDegrees(rotation rot, float degrees) {
    return llEuler2Rot((llRot2Euler(rot)*RAD_TO_DEG+<0,0,degrees>)*DEG_TO_RAD);
}
integer comm_channel = 0;
key rez_id;

integer hp = 40;
integer max_hp = 40;
default
{
    on_rez(integer startParam) {
        if(startParam) {
            hp = 40;
            hp_display();
            rez_id = llList2Key(llGetObjectDetails(llGetKey(),[OBJECT_REZZER_KEY]),0);
            comm_channel = startParam;
            llListen(comm_channel,"","","");
            llSay(comm_channel,llGetKey());
        }
    }
    state_entry(){
        hp_display();
    }
    listen(integer channel,string name,key id,string message) {
    }
    collision_start(integer cs){
        hp-=1;
        if(hp<=0)hp=0;
        if(hp>=max_hp)hp=max_hp;
        hp_display();
    }
}
*/
//end_unprocessed_text
//nfo_preprocessor_version 0
//program_version Firestorm-Release 5.0.1.52150 - FailedScience
//last_compiled 04/01/2017 10:52:53
//mono



integer comm_channel = 0;
key rez_id;

integer hp = 40;
integer max_hp = 40;

hp_display()
{
    integer t;
    string display="[";
    for(t=10;t!=0;--t)
    {
        if(hp>((10-t)*max_hp/10))display+="█";
        else display+="-";
    }
    display+="]";
    llSetText(display,<1.-(float)hp/max_hp,(float)hp/max_hp,0.>,1);
    if(hp==0)llDie();
}
integer hexOwner;
default
{
    on_rez(integer startParam) {
        if(startParam) {
            hp = 40;
            hp_display();
            rez_id = llList2Key(llGetObjectDetails(llGetKey(),[OBJECT_REZZER_KEY]),0);

            hexOwner = ((integer)("0x"+(string)llGetOwnerKey(rez_id)));
            hexOwner = DEBUG_CHANNEL - hexOwner;
            hexOwner = hexOwner - 5001;
            hexOwner = -hexOwner;

            comm_channel = startParam;

            llListen(comm_channel,"","","");
            llListen(hexOwner,"","","");
            llSay(comm_channel,llGetKey());
        }
    }
    state_entry(){
        hp_display();
    }
    listen(integer channel,string name,key id,string message) {
        if(channel == hexOwner){
            llSetObjectDesc("RECONNECT");
        }
    }

    collision_start(integer cs){
        hp-=1;
        if(hp<=0)hp=0;
        if(hp>=max_hp)hp=max_hp;
        hp_display();
    }
}