Вопрос-Ответ (для новичков BlitzMax)

[yorri]

Вопрос.
Есть тайловое игровое поле - большое (1000х1000), когда я двигаюсь и его перерисовываю части изображения начинают как бы "дребезжать и смазываться"...
1. Можно ли как то это устранить, может синхронизацией какой то?
2. Может лучше давать перерисовывать только видимые тайлы , а не все поле?
Спасибо.

[Nikich]

Рисовать обязательно надо только видимые тайлы. Во-первых, какой смысл рисовать то, что мы не видим? Во-вторых, мало того, что это бесполезно, мы ещё и производительность теряем.
Измени Flip, на Flip(1), должно помочь.

[yorri]

Спасибо, попробую.

[yorri]

Еще раз спасибо, все сделал, все получилось.

Тут возник такой вопрос.
Есть главный файл
В нем

...
Include "Bullet.bmx"
Import "Collisions.bmx"
...

Global BulletList:TList = CreateList() 

...
в главном цикле
...
CollisionsCheck()
...

Хочу сделать в отдельном файле Collisions.bmx всякую проверку столкновений, но не могу "добраться" ...

Function CollisionsCheck() 

For Local Bullet:TBullet = EachIn BulletList
	
   If Bullet.BulletCollided = 1 Then DrawText "Collide" + BulletX, 10, 30

Next
EndFunction

Выдает ошибку "Compile Error: Identifier 'TBullet' not found"

Параметр BulletCollided описан в Bullet.bmx

Спасибо.

[Nex]

Поидее должно работать но к чему тут Import?

Include "Bullet.bmx"
Import "Collisions.bmx"

[SBJoker]

Емнип Import в BlitzMAX это как Include_once, добавляет только если ещё не было добавлено ранее.

[yorri]

Спасибо, заработало. Поменял Import на Include.
/не опытен я еще /

[yorri]

Вопрос.
А можно ли как-то узнать координаты точки в которой произошла коллизия? Я имею ввиду не координаты двух обьектов (это мы знаем), а именно координати пикселя где они с толкнулись.
Спасибо.

[yorri]

Еще вопрос.

Проверяю столкновение.
Вот такой вариант работает

Local p:Object[] = CollideImage(BulletImage, BulletX, BulletY, 0, 1, 0) 
For Local i:Int = 1 To p.Length
DrawText "Collide" + (TTile(p[i - 1] ).MapX), 10, 250
Next

А такой нет

Local p:Object = CollideImage(BulletImage, BulletX, BulletY, 0, 1, 0) 
If p <> Null Then
Local i:Int = TTile(p).MapX
DrawText "Collide " + BulletX, 10, 250
EndIf

Как бы одно и тоже, но во втором варианте выдает ошибку, типа ссылка на Null объект... хотя отладчик показывает, что переменная р не пустая...

[Platon]

в первом случае кастуешь указатель на объект к тайлу
во втором случае кастуешь указатель на коллекцию обьектов, что неверно, преобразовать тип не удалось, в результате указатель на TTile становится null

и еще

For Local i:Int = 1 To p.Length
...[i - 1]...

Юзай Until:

For Local i:Int = 0 Until p.Length
...[i]...

[yorri]

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

в первом случае кастуешь указатель на объект к тайлу
во втором случае кастуешь указатель на коллекцию обьектов, что неверно, преобразовать тип не удалось, в результате указатель на TTile становится null...

Спасибо. Кажись понял.

[Nikich]

Не подскажите, как можно свернуть окно приложения так, чтобы оно не отображалось на панели задач? Желательно также, чтобы в трее тоже не было видно.

[Reizel]

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

Не подскажите, как можно свернуть окно приложения так, чтобы оно не отображалось на панели задач? Желательно также, чтобы в трее тоже не было видно.

WinAPI. онли

[yorri]

Назрели два вопроса. Буду признателен за помощь.
Первый.
Каким образом можно узнать/отсчитывать отрезки времени. Например мне нужно выполнять некоторое действие скажем каждые 10, 15, 30 сек?...

Второй.
Есть тайл-изображение (32х32, png), есть другой тайл (32х32, png). Нужно обьеденить эти изображения (скажем методом "И"), то есть поверх первого нарисовать другое, и что бы результат действий записался вместо первого изображения. Можно как то это сделать?, а то сейчас просто рисую второе поверх первого, что не есть хорошо.
Спасибо.

[Nikich]

Global time=MilliSecs(), interval = 500
...

if MilliSecs()-time>interval
...
time=MilliSecs()
endif

Мне кажется, попиксельно изменять картинку будет медленнее, чем нарисовать 2 картинки.