Не обязательно выкладывать весь код тут. Есть же куча сайтов файловых и даже кодохранилищ.
А колизии описываются примерно так:
Задается тип колизии:
Code
Const TYPE_PLAYER=1,TYPE_SCENERY=10
Описывается что с чем будет сталкиватся:
Code
Collisions TYPE_PLAYER,TYPE_SCENERY,2,2
Также можно проверять столкновения на манер:
Code
If CountCollisions( b\sprite )
If EntityCollided( b\sprite,TYPE_TERRAIN )
EndIf
EndIf
А старый добрый пример можно скачать тут