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

[yorri]

Спасибо за Первый вопрос, пробую.
Касательного второго.
Это я понимаю. Проблема в том, что картинок слишком много. В принципе можно сформировать массив нужных картинок заранее (при старте программы), но тогда тоже нужно попиксельно?

[yorri]

Вопрос по коллизиях.
Проверяю столкновение пули с мобом

...
For Local Bullet:TBullet = EachIn BulletList
	
	Local p:Object[] = CollideImage(Bullet.BulletImage, Bullet.BulletX, Bullet.BulletY, 0, 3, 0) 
	
	For Local i:Int = 1 To p.Length
	
		If TImage(p[i - 1] ) Then
		
			Local e:TMob = TMob(p[i - 1] )          
			If e Then e.MobImage = TileImages[11] 
...

И в методе отрисовки моба

...
DrawImage (MobImage, x - xx, y - yy) 
CollideImage(MobImage, x - xx, y - yy, 0, 0, 2, Object(MobImage))
...

Все мобы в списке MobList:TList

Проблема в том, что в переменной е оказывается Null
Может неправильно обьявляю в CollideImage параметр id:Object ?

[Nikich]

Вы уверены, что вам нужно именно столкновение картинок?
Очень часто, хватает нахождения расстояния, или пересечения прямоугольников.

[yorri]

Ну хотелось бы сделать именно так.
У меня работает вариант с Масивом тайлов, но там это как бы статически (то есть масив создается в начале игры) и я делаю так: CollideImage(TileImage, TileX, TileY, 0, 0, 1, MapObj[i, j] ).

А вот с мобами что-то не работает, не могу понять почему.
Другими словами, я не могу узнать в какого конкретного моба из десятка я попал....

[yorri]

Насколько я понял, неправильно передаю пареметр id:Object
CollideImage(MobImage, x - xx, y - yy, 0, 0, 2, Object(MobImage))

Потому как в переменной р (p:Object[]) только тип TImage, а не сам обьект с соответствующими полями...

[yorri]

Все. Как бы сделал. Волшебное слово Self. /Забыл про него/

CollideImage(MobImage, x - xx, y - yy, 0, 0, 2, Self)

[yorri]

Гм. Вот такой вопрос. (Пробую сграбить изображение с альфа каналом)
Вот так работает:

Local z:Float

For x = 0 To 31

z = z + 0.03125

SetAlpha(z)
DrawImage (TileImages[8] , x * 32, 15 * 32)

Next

А так не работает:

Local z,a:Float

a=1/32 '=0.03125

For x = 0 To 31

z = z + a

SetAlpha(z)
DrawImage (TileImages[8] , x * 32, 15 * 32)

Next

[SBJoker]

во втором объяви z как Float\
и будет тебе щастье

[yorri]

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

во втором объяви z как Float\
и будет тебе щастье

Дык.
Так я так и сделал.

Local z,a:Float

[SBJoker]

в блитзмаксе так нельзя, первая переменная у тебя без типа (значит Int)

Local z:Float, a:Float

[yorri]

Да делал и так, и сяк... нефурычит. Ладно это оставим.

Такой вопрос возник. Есть ли стандартнаэ функция затемнения Картинки типа SetAlpha, но чтобы не прозрачность, а именно просто затемнение?
Или самому нужно делать через SetColor?
Спасибо.

[SBJoker]

Через сет колор, а что касается неработающего кода надо кроме того численные константы использовать правильного типа

a=1/32 '= 0 потому что деление 1 на 32 нацело
a=1.0/32 '=0.03125

[yorri]

Спасибо. Понял.

[IgorOK]

Функция FileTime() выдаёт некое значение Int. Как из него получить дату и время последнего изменения файла?

[Randomize]

Function TimeToStrF:String(time:Int, format:String)
    Local buff:Byte[256]    
    strftime_(buff, 256, format, localtime_(Varptr(time)))
    Return String.FromCString(buff)
End Function

Local time:Int = FileTime("MYFILE")
Print TimeToStrF(time, "%Y-%m-%d %H:%M:%S") 


Про strftime:
http://www.cplusplus.com/reference/ctime/strftime/
или
http://php.net/manual/ru/function.strftime.php