look :: Float -> Float -> Bot ()
look y p = modifyPlayer $ \s -> s { playerYaw = y, playerPitch = p }
look :: Float -> Float -> Bot ()
look y p = modifyPlayer $ \s -> s { playerYaw = y, playerPitch = p }
look y p = modifyPlayer $ \s -> s { playerYaw = y, playerPitch = p }