Создаю стратегию.

[Вадим Буренков]

У меня тоже сильно тормозит, да и памяти занимает 10мб. На какой стадии разработки игра стала так тормозить?

Сейчас посмотрю исходник.

------------------
Посмотрел....
Безжалостно удаляй этот код:

case map[m,n] of
'1': begin mp[m,n].Utexture.LoadFromFile('../Images/Land/Grass.bmp'); buf.Canvas.Draw(gx+m*50-50,gy+n*50-50,mp[m,n].Utexture); end;
'2': begin mp[m,n].Utexture.LoadFromFile('../Images/Land/Tree.bmp'); buf.Canvas.Draw(gx+m*50-50,gy+n*50-50,mp[m,n].Utexture); end;
'3': begin mp[m,n].Utexture.LoadFromFile('../Images/Land/Land.bmp'); buf.Canvas.Draw(gx+m*50-50,gy+n*50-50,mp[m,n].Utexture); end;
'6': begin mp[m,n].Utexture.LoadFromFile('../Images/Land/PROTIVOTANK.bmp'); buf.Canvas.Draw(gx+m*50-50,gy+n*50-50,mp[m,n].Utexture); end;
'7': begin mp[m,n].Utexture.LoadFromFile('../Images/Land/Grass.bmp'); buf.Canvas.Draw(gx+m*50-50,gy+n*50-50,mp[m,n].Utexture); mp[m,n].Utexture.LoadFromFile('../Images/Buildings/Russian/Shtab1.bmp'); mp[m,n].Utexture.Transparent:=true; buf.Canvas.Draw(gx+m*50-50,gy+n*50-50,mp[m,n].Utexture); end;
'8': begin mp[m,n].Utexture.LoadFromFile('../Images/Land/Grass.bmp'); buf.Canvas.Draw(gx+m*50-50,gy+n*50-50,mp[m,n].Utexture); mp[m,n].Utexture.LoadFromFile('../Images/Buildings/Russian/Shtab1.bmp'); mp[m,n].Utexture.Transparent:=true; buf.Canvas.Draw(gx+m*50-50,gy+n*50-50,mp[m,n].Utexture); end;
end;

Дело в том, что при рисовании карты все графические обьекты у тебя загружаются постоянно!!!!. Так делать ни в коем случае нельзя. В блоке FormCreate должна происходить загрузка всех изображений в буфферы, в FormDestroy должно быть уничтожение всех буфферов. А в таймере должен быть код рисования.

[Shadow_1329]

Сейчас попробую.

[Shadow_1329]

Все сделал как ты и сказал но как сделать чтобы таймер всю карту перерисовывал заново?

[Shadow_1329]

Если я напишу этот код только в FormCreate то он загрузится один раз и прорисуется один раз. Таймер при этом ничего не рисует получается.

[Beermonza]

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

Если я напишу этот код только в FormCreate то он загрузится один раз и прорисуется один раз. Таймер при этом ничего не рисует получается.

Как же так, ...щас накажу, поставлю в угол ) ...ты же читал темы соответственные!

mp[m,n].Utexture - это массив карты, в ячейке будет некая текстура TBitmap, какая? ...та, что хранится в банке текстур!
Тебе нужно создать одномерный массив, в который один раз в FormCreate ты закидываешь все текстуры. В карте у тебя будут номера картинок, пробегая по файлу ты берешь значение и загружаешь картинку в банк, подряд, ячейка за ячейкой.
Когда ты прорисовываешь карту, ты используешь лишь индекс, номер ячейки в банке текстур (ячейка массива), и пишешь запись типа:

buf.Canvas.Draw(gx+m*50-50,gy+n*50-50,ImageBank[mp[m,n].UIndex]);

ImageBank[i] - массив типа TBitmap, mp[m,n].UIndex - ссылка.

[Shadow_1329]

Это конечно полезная информация но я сделал чуточку проще. Во всяком случае для меня. В будущем пригодится. Спс.

[Shadow_1329]

У меня в игре на данный момент будет происходить следующее. Ты тыкаешь на юнита и он выделяется(другог слова не нашел), затем когда ты тыкаешь куда нибудь правой кнопой мыши он будет ехать туда. У меня вопрос. По одному же ты передвигать юниты не будешь(нудно). А как сделать так чтобы они все выделялись специальными границами(ну это когда зажимаешь мышку на рабочем столе и водишь ею, такими границами)?

[Вадим Буренков]

Я не занимался разработкой стратегий, но я вижу код таким.
Делаешь процедуру, назовем ее MouseControl(Unit:TUnit), где Unit - переменная под юнит типа TUnit. В TUnit должна быть переменная

Selected:boolean;

В ее коде должно быть примерно следующее:
1)Проверка, находится ли юнит под мышью и нажата ли левая кнопка мыши. Если да, то Selected:=true;

2)Если юнит выделен,

if Selected=true then

то рисуем рамку вокруг юнита и ставим условие нажатия правой кнопки мыши. Если правая кнопка нажата, то двигаем юнит в точку нажатия.
Также нужно сделать условие снятия выделения с Unit'a.

Но как же найти координаты мыши и проверку нажата ли мышь?
Можно с помошью Event'ов OnMouseDown и OnMouseMove, но мне эти методы не нравятся из-за излишнего усложнения кода.
Поэтому я советую использовать
1)Для определения координат мыши:
Во всех программах сушествует переменная Mouse с различными данными.Нам потребуются свойства Mouse.CursorPos.X и Mouse.CursorPos.Y они и отвечают за координаты.
2)Проверить нажатия мыши можно с помощью написанной мной функции:

function MousePressed(Button:integer):boolean;
//VK_LBUTTON - левая кн. мыши
//VK_RBUTTON - правая кн. мыши
begin
if (GetKeyState(Button)=0) or  (GetKeyState(Button)=1) then result:=false;
if (GetKeyState(Button)=-127) or  (GetKeyState(Button)=-128) then result:=true;

end;

end.

Пример использования:

//При нажатии левой кнопки мыши форма закрывается
if MousePressed(VK_LBUTTON) then Form1.Close;

[Shadow_1329]

А как нарисовать рамку выделения вогруг юнитов?

[Shadow_1329]

Блин танк едет с такими тормозами... Вот исходник посмотри.