Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

массив [D7]

Страницы: 1 2 3 >
b86 © (2007-12-08 13:33:00)
привет. у меня у меня в программе сбой, ни как не могу его вычислить.
procedure vpravo;
begin
x:=(l div 50) ;
y:=(t div 50);
G[x,y]:=y*11+x+1;
reshytka; {в этой в процедуре вручную задаётся массив А}
begin
if x-1>=0 then
begin
for t:=1 to n do
if g[x-1,y]<>А(t) then l:=l-50
else l:=l;
end;
end;end;
в результате сравнение if g[x-1,y]<>А(t) игнорируется или g[x,y] задается какое-то астрономическое число.
помогите, буду очень признателен

_Denis_ (2007-12-08 18:33:00) [1]

> Картинку персонажа найти не смог так что ногами не бейте
> =)

Маладэц, Dib@zol! Так держать! NFS отдыхает :D

Dib@zol (2007-12-08 17:52:00) [2]
http://webfile.ru/1632789

Вощем вот :)

Картинку персонажа найти не смог так что ногами не бейте =)

{RASkov} (2007-12-08 17:51:00) [3]
> [54] b86 (08.12.07 17:42)

тогда можно сделать так:
.... for w:=1 to 29 do if a[w]=g[x-1,y] then Exit; Dec(l, 50); end;

> [57] b86 (08.12.07 17:44)

ню-ню... тебе того же )

b86 (2007-12-08 17:44:00) [4]
{RASkov} тебе тоже большой РАХМАТ

b86 (2007-12-08 17:43:00) [5]
Отдельное спасибо Dib@zolу

{RASkov} (2007-12-08 17:43:00) [6]
> [53] Dib@zol © (08.12.07 17:40)

Все-таки спёр идею.... :)

b86 (2007-12-08 17:42:00) [7]
Блин! Заработало! Всем спасибо! тока я с этим не разобрался!
if a[w]=g[x-1,y] then collide:=true;
if not collide then dec(l, 50);
обьясните пожалуйста и всё! надеюсь!!!

Dib@zol (2007-12-08 17:40:00) [8]
Короче, счас я (дописываю уже) выложу сюда свою МЕГА ИГРУЛЮ про лабЕринт :) Ибо надоело уже ;)

Германн (2007-12-08 17:34:00) [9]

> {RASkov} © (08.12.07 17:29) [51]

"У меня правильнописание хромает. Оно хорошее, но хромает."
(с) Винни Пух

{RASkov} (2007-12-08 17:29:00) [10]
> Правельный

Угу... как у меня правописание:)

{RASkov} (2007-12-08 17:28:00) [11]
> [49] b86 (08.12.07 17:25)
> он не ходит влево совсем.

Да он просто - Правельный весь :)

b86 (2007-12-08 17:25:00) [12]

> Так пойдёт?

он не ходит влево совсем.

{RASkov} (2007-12-08 17:21:00) [13]
> [38] b86 (08.12.07 17:07)
> нету. я методом тыка развиваюсь

Методом тыка - это конечно хорошо)
Но начни с основ.... хотябы оформление кода делай читабельным.... глобальные переменные - зло, особенно с такими именами как у тебя, вот догадайся, что значт G...
А имена объектам(компонентам), ....научись давать "правильные" имена - это большой плюс в отладке.

> [42] Германн © (08.12.07 17:16)

Не дождетесь :)
Сегодня, да и обычно, у меня настроение мирное )

Dib@zol (2007-12-08 17:19:00) [14]
всё равно что l:=l-50;только текста меньше, и работает быстрее.

ЗЫ Ну как, работает наконец???

Anatoly Podgoretsky (2007-12-08 17:19:00) [15]
> Dib@zol (08.12.2007 17:17:44) [44]

> Так пойдёт?

Ты его с ума сведешь.

b86 (2007-12-08 17:18:00) [16]
dec(l, 50);- это что?

Dib@zol (2007-12-08 17:17:00) [17]
procedure vlevo;
var
collide : boolean;
begin
collide:=false;
schet;
reshytka;
k:=y;
if od<>0 then begin
if x-1>=0 then begin
for w:=1 to 29 do
if a[w]=g[x-1,y] then collide:=true;
if not collide then dec(l, 50);
end;
end;erd;end;

Так пойдёт?

b86 (2007-12-08 17:16:00) [18]

> Скоро и Расков с Дибазолом туда залезут с горя :)

очень смешно

Германн (2007-12-08 17:16:00) [19]
Скоро и Расков с Дибазолом туда залезут с горя :)

b86 (2007-12-08 17:13:00) [20]
я пишу игружку. g[x,y] положение на поле героя. a[w] массив стен, который герой пройти не может. вот и получается, что при
for w:=1 to 29 do
if a[w]<>g[x-1,y] then begin
l:=l-50;
break;
end;
он залазит на стену. вот.

Страницы: 1 2 3 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »