Pascal: игрушка!!!

[Korben5E]

Сообщение от sir.andrey

Вы на своем паскале проверьте мою игру и посмотрите, бедет ли у вас смещаться снаряд летящий вниз.

даже пытаться не буду, для того чтобы разобраться в вашем коде потребуется целый час, лучше я его на что-нибудь другое потрачу

к тому-же сама структура программы содержит слишком много избыточного кода.... который требует скурпулезной проверки, чем мешает пониманию алгоритма.

[sir.andrey]

Я просто вас прошу запустить мою программу и посмотреть, будет смещаться снаряд или нет!
Я не прошу искать ошибку

[Stilet]

бедет ли у вас смещаться снаряд летящий вниз.

У меня эта ошибка проявляется.
Но я согласен с коллегой - твой код оч. сложен для анализа, слишком уж много ты лишнего навертел. Может всетки подумаешь в сторону переписать программу и желательно в ООП стиле?

[sir.andrey]

В ООП стиле ни разу ни писал, понятия не имею как.

[Stilet]

понятия не имею как.

Ну если далее желаешь писать программы, то рекомендую изучить эту область

[sir.andrey]

Ну все таки убедили вы меня переписать программку!!!!!!!!!!
Но все таки очень жалко, в нее столько трудов угрохано!

[Stilet]

в нее столько трудов угрохано!

А он не в пустую
Танки то двигаются и стреляют - значит каша удалась )

[Korben5E]

Сообщение от sir.andrey

Ну все таки убедили вы меня переписать программку!!!!!!!!!!
Но все таки очень жалко, в нее столько трудов угрохано!

наоборот умнее станешь
вдруг из тебя игровой кодер вырастит... или менеджер компании по создании игр

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

2. я написал код - изучи его (желательно распечатать) и переделай программу по этому образу

3. напиши структуру для снаряда и тут опубликуй с комментариями по каждому полю.

[savva]

ходят слухи,что использование модулей спасают глаза,а то искать в твоем исходнике что есть что(приходится в верх в низ прыгать постоянно) практически не реально,+писал бы в делфях,к делфи хоть отладчики есть нормальные можно было бы проследить что к чему.

[Korben5E]

ну как успехи? автор?
вот тебе структура для снаряда

Snaryad = record
    owner : integer;
    direction: integer;
    X,Y : integer;
    newX,newY : integer;
end;

1. создашь массив снарядов(думаю штук 40 вполне достаточно)
2. присвоишь всем танкам на карте номера
3. при выстреле - перебираешь все элементы массива,
там где owner = 0 указываешь номер танка который выстрелил
в direction указываешь направление куда летит снаряд
в X,Y,newX,newY - точку из которой он полетел.

создашь процедуру где также перебираешь все элементы массива
если owner > 0 то согласно direction - изменяешь newX или newY
потом проверяешь на карте снаряд или нет (ChekPos)
потом проверяешь новые координаты на случай попадания по цели
если ни то ни другое - стираешь снаряд на координатах X,Y
рисуешь на координатах newX,newY
и в X,Y заносишь новые координаты newX,newY
для уничтожения снаряда заносишь в owner := 0

в цикле который опрашивает клавиатуру - вызываешь эту процедуру...

и твои снаряды полетят как пули