Anonymous

--registers creatures to allow them to communicate latergha_register_table = {}--gha_register creature in the tablefunction gha_register(LuaAI)local zoneid = LuaAI:GetCreature():GetZoneId()if gha_register_table[zoneid] == nil then gha_register_table[zoneid] = {} end gha_register_table[zoneid][LuaAI:GetCreature():GetGUIDLow()] =  LuaAI:GetCreature():GetGUID()end-- gha_unregisterfunction gha_unregister(LuaAI)local zoneid = LuaAI:GetCreature():GetZoneId()if gha_register_table[zoneid] ~= nil then gha_register_table[zoneid][LuaAI:GetCreature():GetGUIDLow()] = nil endendgha_send_help_request_sender = nilgha_send_help_helpers_count = 0gha_send_help_max_needed_helpers = 5function gha_send_help_request(index,respval)if gha_send_help_request_sender == nil then return false endif DispatchMsg( 0,gha_send_help_request_sender,respval,GHA_NEED_HELP, nil ) == GHA_YES thengha_send_help_helpers_count = gha_send_help_helpers_count + 1endif gha_send_help_helpers_count >=  gha_send_help_max_needed_helpers then return true endreturn nilend-- gha_checkforhelpfunction gha_checkforhelp(LuaAI,unit)gha_unregister(LuaAI)local zoneid = LuaAI:GetCreature():GetZoneId()if gha_register_table[zoneid] == nil then gha_register(LuaAI) return false endgha_send_help_helpers_count = 0gha_send_help_request_sender =  LuaAI:GetCreature():GetGUID()gha_send_help_max_needed_helpers = 5table.foreach (gha_register_table[zoneid], gha_send_help_request)if gha_send_help_helpers_count > 0 then  LuaAI:GetCreature():DoYell( "Anybody wana help me ?!" , 0,nil )gha_register(LuaAI) return true  endgha_register(LuaAI)return falseend-- TEST FUNCfunction gha_test(LuaAI)log("test")    rx,ry,rz = i_creature:GetRespawnCoord()    log("%f %f %f",rx,ry,rz)    length = i_creature:GetDistanceSq(rx,ry,rz)    log("lenght = " .. length)endfunction gha_victim_is_within_combat_range(LuaAI)		if ( not i_creature:isAlive() ) or ( i_creature:getVictim() == nil ) 		then        return false        end            rx,ry,rz = i_creature:GetRespawnCoord()    length = i_creature:getVictim():GetDistanceSq(rx,ry,rz)    return ( length < GHA_THREAT_RADIUS )end