/ТОРМОЗА\

[PatriotIK]

Делаю игруху на DirectDraw'е (Неплохо получается, когда зделаю обезательно скину!), типа Противостояние 3. Я конечно понимаю что 1000 человек на однойкарте - это совсем не мало, но все же.
Все циклы , у меня, происходят следующим образом:

Public Unt(1 to 1000) - Ето у меня переменная юнита, Если больше 1 то он существует и его мона рисовать, и 1-2 ето то как он выглядит(русский не русский)
Все остальное думаю нет смысла перечислять!
Вот...
Дальше круче...

for g=1 to 1000 - 1000 ето макс кол. юнитов
if unt(g)=1 then
рисуем
end if
next g
нарисовали
И всего етого добра в том же духе навалом (Самолеты, ракеты,взрывы там всякие)
Результат - Все круто! но тормаза офигительные!

Что делать прям не знаю. Может мой метод устарел ?!
Если кому надо могу скинуть исходник или Ехешник? заодно позырете

Прошу помощи... SOS mayday!!!!!!

[|kerish|]

Создавай массив динамически !

[|kerish|]

Поясняю:
Объявляй его: Unt() as нужное
А задем пользуйся Redim-ом и Ubound-ами.

[PatriotIK]

Объявляй его: Unt() as нужное - ну... ето хорошая идея попробуем

Redim
Ubound
Объясника поподробнее че ето за штуки такие?(я лол)

[ZipFeR]

Скинь мне respaunt@mail.ru гляну

[Amed]

Пример динамического массива:

Dim A() As Long 'Сам динамич. массив

ReDim A(1 To 2) 'Теперь это массив A(1 To 2)

A(1)=1
A(2)=2

ReDim A(1 To 3) 'Теперь это массив A(1 To 3), но все значения в массиве стёрлись

ReDim Preserve A(1 To 3) 'Теперь это массив A(1 To 3), но все значения в массиве сохранились

LBound(A), UBound(A) - границы массива...

Попробуй, сам поймешь...

[PatriotIK]

Спасибо конечно. Вот токо я вопряки всем ожиданиям Ничего не понял.
Как етим добром пользоваться то?
Я привык делать так допустим:
Module1
public G - ето ни чего не значит
public Unt(1 to 1000)
******************

private form1_load ()

Do While DoEvents
Dessine
Loop
end sub

private sub Dessine ()
for G= 1 to 1000
unt(G)=1
next G

for G= 1 to 1000
if unt(G)=1 then рисуем
next G

end sub

Примерно так.
Как мне тоже самое зделать чтобы не тормозило? потому что так тормозит.

[PatriotIK]

Да хоть ссылку кинте где я мог бы поподробнее про ето почтиать !
Плииииииз
И еще кидаю то что получилось (правда здесь максимум 100 человек но всеравно ЛАГИ)
D добавить на карту своих!
R немцев
S Бомбардировка немцев
1 - убить выделенного чела
В башни мона залаить
Управление нулевое, юниты стреляют когда стоят и только.
И жду откликов (типа стоит этим воще заниматься или лучше зделать что то вроде CS или Half-life 2)

[pitbull]

Лучше Windows напиши или Unix, только чур на VB

[PatriotIK]

Не... Мне ето не интересно. Я токо по части игр прогаю.

[ALX_2002]

2 PatriotIK

Отец, тут тебе по ходу предлагают массив увеличивать по ходу проги

Т.е
Dim UNT() as long
Dim N as long

Private Sub Form_Click()
N=N+1
Redim Preserve UNT(N)
UNT(N)=1
End Sub

Sub TIMERLOOP()
For N=1 to ubound(UNT)
if UNT(N)=1 then
'Рисуем
End if
Next
End Sub


Могу ошибиться с синтаксисом кода, т.к пишу в блокноте. VB ещё не успел поставить.

[Amed]

С динамическими массивами:

Код: Выделить всё

Module1
public G - ето ни чего не значит
public Unit_count as long
public Unt() As Byte
******************

private form1_load ()
unit_count=100

redim unt(unit_count)
Do While DoEvents
Dessine
Loop
end sub

private sub Dessine ()
for G= 1 to unit_count
unt(G)=1
next G

for G= 1 to unit_count
if unt(G)=1 then рисуем
next G

end sub


Замечу, что unt надо объявлять как Byte, Integer или Long (в данном случае - Byte)...

[GSerg]

Если ты юзаешь класс sprite, то большой тебе привет, ибо это суть главный тормоз. Где-то в разделе DirectX был примерчик быстрых спрайтов...

[PatriotIK]

Интересно, а с помощью етой штуки 1000 юнитов,которые одновременно ищут врага, стреляют по нему или просто гуляют, лагать не будут?! Мне чето не верится, а жаль.
Может быть тормозит действительно из-за прорисовки DirectXсовских спрайтов? Хотя точно таким же способом я делал и на Dark Basic'е и даже на Sprite Crafte. Последний хоть и меньше но всеравно тормозил.
Проверим. . . . . .

[ZipFeR]

Знаешь че ? Привет ! Прикинь, но как не странно у меня не капли не тормозит и игра довольно простенькая и смысла в ней не вижу, я имею ввиду так то может сложно писать, но она без смысла

ИМХО

[PatriotIK]

Ну прям опустил...
Ето же не игра еще! ПОКА, я токо кинул посмотреть что происходит, а воще ща минометчиков доделываю там снайперы и т.д. пойдут.
Смысл придумаю, может и кампанию забацаю. Вот тока юнитов поболе нарисую и тогда... ну ето не скоро, пока токо сырьем пахнет...
А воще посмотрим что получится.