/////////////////////////////////////////////////////////////////////////// // Copyright (C) Wizardry and Steamworks 2011 - License: GNU GPLv3 // // Please see: http://www.gnu.org/licenses/gpl.html for legal details, // // rights of fair usage, the disclaimer and warranty conditions. // /////////////////////////////////////////////////////////////////////////// //Gremlin: Ice Bullet, see Ice Bullet Peashooter //// integer Key2Number(key objKey) { return ((integer)("0x"+llGetSubString((string)objKey,-8,-1)) & 0x3FFFFFFF) ^ 0xBFFFFFFF; } integer tgtID = 0; key tgtKey = NULL_KEY; integer nTgT = 0; init() { llSetStatus(STATUS_DIE_AT_EDGE | STATUS_PHYSICS, TRUE); llSetDamage(100.0); } integer flag = 0; default { at_target(integer tnum, vector targetpos, vector ourpos) { if(tgtKey == NULL_KEY) return; llSetTimerEvent(0); llDie(); } collision_start(integer num_detected) { llDie(); } timer() { llSetTimerEvent(0); llTargetRemove(nTgT); vector pos = llList2Vector(llGetObjectDetails(tgtKey, [OBJECT_POS]), 0); nTgT = llTarget(pos, 1); llMoveToTarget(pos, .5); llSetTimerEvent(1); } on_rez(integer param) { tgtID = param; llSensorRepeat("", "", AGENT_BY_LEGACY_NAME, 96, TWO_PI, 1.01-llGetRegionTimeDilation()); } sensor(integer num) { --num; do { tgtKey = llDetectedKey(num); if(Key2Number(tgtKey) != tgtID) jump continue; llSensorRemove(); vector pos = llList2Vector(llGetObjectDetails(tgtKey, [OBJECT_POS]), 0); nTgT = llTarget(pos, .01); init(); llSensorRepeat("", NULL_KEY, flag=1, .1, .1, 30); llMoveToTarget(pos, .045); llSetTimerEvent(1); return; @continue; } while(--num>-1); } no_sensor() { if(flag--) { return; } llDie(); } }