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

[sir.andrey]

Уважаемые дамы и господа!!!
Помогите разобраться с програмкой,
я пишу игру "Танчики"
Проблема состоит в том, что танк вылазит за пределы желтого квадрата,
хотя не должен!!!
Я надеюсь надеюсь на ваш зоркий глаз товарищи, надеюсь вы увидите где я ошибся.

Uses Graph,Crt;
Var 
    x,y:integer;
    key,key2:char;

{ PRORISOVKA  "TANKA" }
Procedure TANKvniz (var x,y:integer);       {tank edet vniz}
 begin
 SetFillStyle(1,2); Bar(160+x,70+y,214+x,114+y); Bar(160+x,70+y,174+x,124+y);
 Bar(200+x,70+y,214+x,124+y); SetFillStyle(1,4); Bar(175+x,85+y,200+x,95+y);
 Bar(185+x,95+y,190+x,124+y);
 end;

Procedure TANKvverh (var x,y:integer);      {tank edet vverh}
 begin
 SetFillStyle(1,2); Bar(160+x,80+y,214+x,124+y); Bar(160+x,70+y,175+x,124+y);
 Bar(200+x,70+y,214+x,124+y); SetFillStyle(1,4); Bar(200+x,110+y,175+x,100+y);
 Bar(185+x,100+y,189+x,70+y);
 end;

Procedure TANKvpravo (var x,y:integer);     {tank edet vpravo}
 begin
 SetFillStyle(1,2); Bar(160+x,70+y,200+x,124+y); Bar(160+x,70+y,214+x,84+y);
 Bar(160+x,124+y,214+x,110+y); SetFillStyle(1,4); Bar(175+x,85+y,185+x,110+y);
 Bar(185+x,100+y,214+x,95+y);
 end;

Procedure TANKvlevo (var x,y:integer);      {tank edet vlevo}
 begin
 SetFillStyle(1,2); Bar(214+x,124+y,174+x,70+y); Bar(214+x,124+y,160+x,110+y);
 Bar(214+x,70+y,160+x,84+y); SetFillStyle(1,4); Bar(199+x,109+y,190+x,85+y);
 Bar(190+x,95+y,160+x,100+y);
 end;

Procedure ZakraskaTanka (x,y:integer);
 begin
 SetFillStyle(1,0);
 Bar(160+x,70+y,214+x,124+y);
 end;

Begin
SetColor (yellow);                 {cvet izobrajeniya "YELLOW" }
Rectangle (150,60,470,380);        {kyb - storona 320          }
x:=0; y:=0;                        {tank v verhnem levom ygly  }
TANKvniz(x,y);

WHILE KEYPRESSED DO READKEY;       {otchistka byfera klaviatyri}

REPEAT
if keypressed then
 Begin
 key:=readkey;
 If key=#0 Then Begin               {esli klavisha rashirennaya }
                key2:=readkey;
                Case key2 of
                #72:Begin           {strelka vverh              }
                    if (y<>-9) or (y<>319) then
                    begin
                    ZakraskaTanka(x,y);
                    y:=y-1;
                    TANKvverh(x,y);
                    end;
                    End;
                #75:Begin           {strelka vlevo              }
                    if (x<>-9) or (x<>319) then
                    begin
                    ZakraskaTanka(x,y);
                    x:=x-1;
                    TANKvlevo(x,y);
                    end;
                    End;
                #77:begin           {strelka vpravo             }
                    if (x<>-9) or (x<>319) then
                    begin
                    ZakraskaTanka(x,y);
                    x:=x+1;
                    TANKvpravo(x,y);
                    end;
                    End;
                #80:Begin           {strelka vniz               }
                    if (y<>-9) or (y<>319) then
                    begin
                    ZakraskaTanka(x,y);
                    y:=y+1;
                    TANKvniz(x,y);
                    end;
                    End;
                end;
                End;
 End;
UNTIL key=#27;
CloseGraph;
End.

[NiCola999]

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

я пишу игру "Танчики"

у вас вон есть процедуры вверх, вправо итд добавьте в них условия типо если танк дошел до ж. квадрата то остановить его

[sir.andrey]

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

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

у вас вон есть процедуры вверх, вправо итд добавьте в них условия типо если танк дошел до ж. квадрата то остановить его

Я так и сделал!!!
у меня стоят условия

#72:Begin           {strelka vverh              }
                    if (y<>-9) or (y<>319) then
                    begin
                    ZakraskaTanka(x,y);
                    y:=y-1;
                    TANKvverh(x,y);
                    end;
                    End;

при y=0
танк будет на 10 от границы, т.е. когда y=-9 танк будет стоять впритык
к границе, но не на ней. ну и все остальные грани так же.

И еще не могу понять, почему мигает изображение?

[_-Re@l-_]

Как бы в паскале не DirectX или OpenGL графика, а BGI(16-цветная), да и тем более Turbo Pascal рассчитан под DOS - вот и делайте соответствующие выводы.
И ещё вот. Танк двигается слишком медленно - поставьте не y:=y-1(к примеру), а y:=y-3. Однако, если вы это сделаете, моргать будет ещё сильней

[sir.andrey]

Сообщение от _-Re@l-_

Как бы в паскале не DirectX или OpenGL графика, а BGI(16-цветная), да и тем более Turbo Pascal рассчитан под DOS - вот и делайте соответствующие выводы.

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

[_-Re@l-_]

И еще не могу понять, почему мигает изображение?

Как бы в паскале не DirectX или OpenGL графика, а BGI(16-цветная), да и тем более Turbo Pascal рассчитан под DOS - вот и делайте соответствующие выводы.

Вы...э-э-э...сами то смотрите, какие вопросы задаёте?Выводы состоят в том, что графика в те времена была несколько другая, чем сейчас, собственно, качество было заметно хуже.

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

Типа я верю, сам писал - однако, это достаточно сложно; уж поверьте, сделать подобное на Delphi куда проще.Допустим, вот вы изменяете направление танка процедурами, которые просто отрисовывают новый танк, но повёрнутый в другую сторону - а вот в Delphi можно просто стирать старое изображение и загружать картинку, на которой танк повёрнут в другую сторону(т.е. есть 4 спрайта, где танк изображён в разных направлениях - и в нужный момент можно загружать нужное изображение).
P.S. Если нужна помощь в реализации какой-нибудь процедуры или фукнции для танчиков, обращайтесь(я не фрилансер, помогаю бесплатно)

[sir.andrey]

P.S. Если нужна помощь в реализации какой-нибудь процедуры или фукнции для танчиков, обращайтесь(я не фрилансер, помогаю бесплатно)

Спасибо!
Мне надо именно на паскале!!!
И не понятно мне почему танк вылазит за пределы квадрата, по идее он не должен!

[_-Re@l-_]

Вроде как-то так: (допустим, координаты прямоугольника (10,10,100,100) - это координаты крайних углов)
Пусть х и у - координаты крайних сторон танка

Case key2 of
                #72:Begin           {strelka vverh              }
                    if y>10 then
                    begin
                    ZakraskaTanka(x,y);
                    y:=y-1;
                    TANKvverh(x,y);
                    end;
                    End;
                #75:Begin           {strelka vlevo              }
                    if x>10 then
                    begin
                    ZakraskaTanka(x,y);
                    x:=x-1;
                    TANKvlevo(x,y);
                    end;
                    End;
                #77:begin           {strelka vpravo             }
                    if x<100 then
                    begin
                    ZakraskaTanka(x,y);
                    x:=x+1;
                    TANKvpravo(x,y);
                    end;
                    End;
                #80:Begin           {strelka vniz               }
                    if y<100 then
                    begin
                    ZakraskaTanka(x,y);
                    y:=y+1;
                    TANKvniz(x,y);
                    end;
                    End;
                end;

И помните, что при движении по горизонтали изменяются только координаты абсцисс, а по вертикали только координаты ординат.

[sir.andrey]

Как же я затупил...
Ставил везде двойные условия...

_-Re@l-_ спасибо вам огромное!

У меня возникла новая проблема...
Когда вражеский танк стреляет в мой, причем у моего танка
координаты больше чем у вражеского, то полет снаряда меняется,
снаряд летит не прямо, а сдвигаясь, по идее этого не должно происходить.
А раз происходит, то вероятно, меняются переменные stopX и stopY
Помогите мне пожалуйста, я понимаю что это будет не легко.

p.s. Скрин сдвига и txt файл с кодом в архиве.

[Stilet]

то полет снаряда меняется,
снаряд летит не прямо, а сдвигаясь

Знаешь я бы на твоем месте подумал сейчас не об этом а о том что тебе бы стоило переписать игру заново. Танки слишком большие, двигаются медленно, как-то рывками... А у тебя уже код разросся в достаточно тяжелую программу.
Может быть конечно я придираюсь зря, но всетки подумай - твою программу стоит оптимизировать. Возможно проще будет перевести ее на объектную модель.