polycode-engine/Examples/Lua/2D_Physics/2DPhysics_CollisionOnly/Scripts/2DPhysics_CollisionOnly.lua

class "Detector" (EventHandler)

function Detector:Detector(shape)
        self.shape = shape
        EventHandler.EventHandler(self)
end

function Detector:handleEvent(e)
        if e:getDispatcher() == screen then
                local pe = PhysicsScreenEvent(e)
                if e:getEventCode() == PhysicsScreenEvent.EVENT_NEW_SHAPE_COLLISION then
                        if pe:getFirstEntity() == self.shape or pe:getSecondEntity() == self.shape then
                                pe:getFirstEntity():setColor(1.0, 0.0, 0.0, 1.0)
                                pe:getSecondEntity():setColor(1.0, 0.0, 0.0, 1.0)
                        end
                elseif e:getEventCode() == PhysicsScreenEvent.EVENT_END_SHAPE_COLLISION then
                        pe:getFirstEntity():setColor(1.0, 1.0, 1.0, 1.0)
                        pe:getSecondEntity():setColor(1.0, 1.0, 1.0, 1.0)
                end
        end
end

screen = PhysicsScreen(10, 60)

checkShape = ScreenShape(ScreenShape.SHAPE_RECT, 90,10)
screen:addCollisionChild(checkShape, PhysicsScreenEntity.ENTITY_RECT)

for i=0,50 do
        shape = ScreenShape(ScreenShape.SHAPE_RECT, 30,15)
        shape:setRotation(random(360))
        shape:setPosition(random(640), random(480))
        screen:addCollisionChild(shape, PhysicsScreenEntity.ENTITY_RECT)
end

detector = Detector(checkShape)
screen:addEventListener(detector, PhysicsScreenEvent.EVENT_NEW_SHAPE_COLLISION)
screen:addEventListener(detector, PhysicsScreenEvent.EVENT_END_SHAPE_COLLISION)

function onMouseMove(x,y)
	checkShape:setPosition(x,y)
end

function Update(e)
	checkShape:setRotation(checkShape:getRotation() + (e*100))
end