declare function mapCollision(ctime as integer, x1 as integer, y1 as integer, x2 as integer, y2 as integer) as integer

  dX = (x1) - 128
    dY = (y1) - 128 - 24

    reload Map, ((ctime+dX>>3)*52)+((dY>>3)*2)
    readint collMapDetect
    if collMapDetect > 0 then return 1

    dX = (x2) - 128
    dY = (y1) - 128 - 24

    reload Map, ((ctime+dX>>3)*52)+((dY>>3)*2)
    readint collMapDetect
    if collMapDetect > 0 then return 1

    dX = (x1) - 128
    dY = (y2) - 128 - 24

    reload Map, ((ctime+dX>>3)*52)+((dY>>3)*2)
    readint collMapDetect
    if collMapDetect > 0 then return 1

    dX = (x2) - 128
    dY = (y2) - 128 - 24

    reload Map, ((ctime+dX>>3)*52)+((dY>>3)*2)
    readint collMapDetect
    if collMapDetect > 0 then return 1

    return

end function