action entity_radar() // attach this action to the radar entity
{
while (1)
{
// scan all the entities that are closer than 1000 quants to this entity
c_scan(my.x, my.pan, vector(360, 180, 1000), IGNORE_ME);
wait (1);
}
}
function i_am_scanned()
{
while (event_type == EVENT_SCAN)
{
my.ambient = 100;
wait (1);
}
my.ambient = 100;
}
action scanned_entities() // attach this action to the scanned entities
{
my.emask |= ENABLE_SCAN; // make the entity sensitive to scanning
my.event = i_am_scanned;
}