Перенос движка в FreeBasic

[nillsoft]

Перенёс Xors3D в FreeBasic (Нравится этот язык, исполняемые файлы с Xors3D чуть больше 20 Кб), вобщем столкнулся с проблемой, кто нибудь может помочь исправить?

Сам Xors3d работает без проблем, а Phisics вылетает и не выдаёт никакой ошибки.

Ошибка в 444 строке в файле demo.bas:
Dim n_mesh As Integer = pxCreateTriMesh(VB, IB, VB_size, IB_size, 0)
Файлы прикреплены ниже.

Заранее огромное спасибо!

[Myster]

У меня только такая ошибка выскакивает:

+в логе некоторые "Suspicious pointer assignment", где "dim as integer pointer"

Ошибка в 444 строке в файле demo.bas:
Dim n_mesh As Integer = pxCreateTriMesh(VB, IB, VB_size, IB_size, 0)

На это у меня не жалуется, но для верности я бы поменял местами:
"Dim As Integer n_mesh = pxCreateTriMesh(VB, IB, VB_size, IB_size, 0)"
У меня бывало из-за этого )
ПС: Суперско!) Давно ждал на FB ) FB имхо удобней)
nillsoft, буду ждать твоих обновлений

[Knightmare]

Ревизию по-старее найти не могли для порта? А то я могу поискать, эдак годовалой давности может найду.

[Myster]

У мя последняя, и это не помогает. Ощущение, что дело в FB. Хотя могу ошибаться.
Лично у мя проблемы только с xGetMeshVB и xGetMeshIB
Хотя я бы не отказался, если бы кто-то направил на путь истинный))

[Knightmare]

Все там должно работать, только я не понял какова фига юзается Dim n_mesh As Integer. Если мой маразм мне не изменяет в бейсиках оно юзается для объявления массивов, а функция возвращает указатель на тримеш, который по сути обычное число.

[.Squid]

Сообщение от Knightmare

Ревизию по-старее найти не могли для порта? А то я могу поискать, эдак годовалой давности может найду.

Слабак. У меня есть сорцы за 24 ноября 2007.
Смеха ради, можно первого апреля эту сборку зарелизить. А если еще и номер ревизии будет 666, то вообще смак

[Myster]

В FB DIM для всех объявлений используется. По крайней мере, в посл.версии 0.20
Knightmare, ну ты сам попробуй Лучше один раз увидеть, чем 100 раз предположить) Лично я вообще мало че пойму

[Knightmare]

Вот мне делать больше нефиг как искать и качать FB, ставить, втыкать в синтаксис, втыкать где косяки в порте. От поддержки FB мне ни горячо, ни холодно. В любом случае, кто-то делал уже давно порт, и кажется этот кто-то был толи heiko, толи bigsofty. Искать на англоязычном форуме.

[Myster]

Вот вот и я о том, великая могучая лень. Даже создателю двига не нужно ничего постить, если не проверил баг собственноручно.
До этого все молчали, а как Myster написал, пошли пафосные сарказмы Разбирайтесь сами, собачьтесь сами)
ПС: Поэтому об этом форуме плохо отзываются))
ППС: Кстати, ссыль bigsofty не пашет) Не в счет))

[nillsoft]

Вот архив с компилированным исходником Island в FreeBasic, так-же в нём Include и Lib файлы для FreeBasic.

Всё работает кроме двух вещей:
1) При нажатии SPACE вылетают коробочки, при удалении коробочек прога вылетает, но это небольшая проблема (исправлю).
2) На качелях отваливается доска и улетает к воде (напротив качель) - вот это большая проблема никак не испровлю её.

Может кто знает почему доска отваливается, я думаю проблема в строках 1145-1152 create phisics body.

DLL и Media файлы брать из оригинальной демки Island.

[nillsoft]

Кто нибудь знает чем заменить SystemProperty( "AppHWND" ) в FreeBasic или в Delphi?

[Knightmare]

Ничем.

[Данил]

Поэтому об этом форуме плохо отзываются))

тут все хорошо, просто некоторые личности имеют слишком большую гордыню).