-- Properties
Define Properties()
    max_range = 1000
    ExposeProperty('max_range','Time-to-live in milliseconds.')
    SetPropRange('max_range',1000,10000)
    
    tintRed = 255
    tintGreen = 0
    tintBlue = 0
   
end

-- Triggers
Trigger attach()
    TintSpritePartial(self, "none", self.tintRed, self.tintGreen, self.tintBlue, "gray")
end

Trigger hit(obstacle)
    if(obstacle.type ~= "meep_pet") then
        Debug("Hit obstacle: %s (%s)", obstacle.name, obstacle.type)
        DestroyObject(self)
    end
end

-- hit a border
Trigger bounce_border(dir)
    Debug("Hit border")
    DestroyObject(self)
end

-- Functions