integer hit;
vector pos1;
vector pos2;
vector pos3;
vector pos4;
vector pos5;
vector pos6;
vector pos7;
vector pos8;
vector pos9;
vector pos10;
vector pos11;
vector pos12;
vector pos13;
vector pos14;
vector pos15;
vector pos16;
vector pos17;
vector pos18;
vector pos19;
vector pos20;
vector pos21;
vector pos22;
vector pos23;
vector pos24;
vector pos25;
vector pos26;
vector pos27;
vector pos28;
vector pos29;
vector pos30;
string reg1;
string reg2;
string reg3;
string reg4;
string reg5;
string reg6;
string reg7;
string reg8;
string reg9;
string reg10;
string reg11;
string reg12;
string reg13;
string reg14;
string reg15;
string reg16;
string reg17;
string reg18;
string reg19;
string reg20;
string reg21;
string reg22;
string reg23;
string reg24;
string reg25;
string reg26;
string reg27;
string reg28;
string reg29;
string reg30;

pos_log()
{
    pos30 = pos29;
    pos29 = pos28;
    pos28 = pos27;
    pos27 = pos26;
    pos26 = pos25;
    pos25 = pos24;
    pos24 = pos23;
    pos23 = pos22;
    pos22 = pos21;
    pos21 = pos20;
    pos20 = pos19;
    pos19 = pos18;
    pos18 = pos17;
    pos17 = pos16;
    pos16 = pos15;
    pos15 = pos14;
    pos14 = pos13;
    pos13 = pos12;
    pos12 = pos11;
    pos11 = pos10;
    pos10 = pos9;
    pos9 = pos8;
    pos8 = pos7;
    pos7 = pos6;
    pos6 = pos5;
    pos5 = pos4;
    pos4 = pos3;
    pos3 = pos2;
    pos2 = pos1;
    pos1 = llGetPos();
    reg30 = reg29;
    reg29 = reg28;
    reg28 = reg27;
    reg27 = reg26;
    reg26 = reg25;
    reg25 = reg24;
    reg24 = reg23;
    reg23 = reg22;
    reg22 = reg21;
    reg21 = reg20;
    reg20 = reg19;
    reg19 = reg18;
    reg18 = reg17;
    reg17 = reg16;
    reg16 = reg15;
    reg15 = reg14;
    reg14 = reg13;
    reg13 = reg12;
    reg12 = reg11;
    reg11 = reg10;
    reg10 = reg9;
    reg9 = reg8;
    reg8 = reg7;
    reg7 = reg6;
    reg6 = reg5;
    reg5 = reg4;
    reg4 = reg3;
    reg3 = reg2;
    reg2 = reg1;
    reg1 = llGetRegionName();
}

default
{
    attach(key id)
    {
        llResetScript();
    }

    state_entry()
    {
        llSetTimerEvent(1.0);
    }

    collision_start(integer num_detected)
    {
        float speed = llVecMag(llDetectedVel(0));
        if(speed > 10)
        {
            llOwnerSay(llKey2Name(llDetectedOwner(0))+"'s object "+llDetectedName(0)+" hit you.");
            hit = 1;
        }
    }
    
    timer()
    {
        pos_log();
        float blastcheck = llVecDist(pos1,pos2);
        if((blastcheck > 15 || reg1 != reg2) && hit)
        {
            llMapDestination(reg30,pos30,<0,0,0>);
        }
        hit = 0;
    }
}