Screenshot
So the program seems to crash somewhere here:
Code: Select all
' graphics.bi
sub TMovingChessImage.MoveTo(byval aX as integer, byval aY as integer)
'...
do
sx += dx
sy -= dy
screenlock
img.Redraw(sx, sy)
screenunlock
sleep(20, 1)
loop until (sx = XToScreen(fX)) and (sy = YToScreen(fY))
#endif
DEBUG_LOG("<- MoveTo")
end sub