Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > разработка игр, графический дизайн и моделирование > Gamedev - cоздание игр: Unity, OpenGL, DirectX
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 06.03.2010, 11:00   #1
Frody14
Новичок
Джуниор
 
Регистрация: 06.03.2010
Сообщений: 2
По умолчанию Делаю арканоид

проблема в том что мой мяч движется, но не отталкивается от стен..
не понимаю почему не срабатывает условие.. вот собственно процедура:

Код:
Procedure SharS();
var SSX,SSY: integer;
begin
ssx:=2;
ssy:=2;
sx:=sx-ssx;
sy:=sy-ssy;

If sx<=0 then
ssx:=-2;
If sy<=0 then
ssy:=-2;
If sx>=800 then
ssx:=2;
If sy<=800 then
ssy:=2

end;
вот исходник:
Вложения
Тип файла: rar Arcanoid.rar (8.8 Кб, 14 просмотров)
Frody14 вне форума Ответить с цитированием
Старый 06.03.2010, 12:24   #2
DeKot
Участник клуба
 
Аватар для DeKot
 
Регистрация: 12.08.2008
Сообщений: 1,977
По умолчанию

Делаем следующее:
1. Переменные SSX и SSY переносим в глобальные
Код:
 SX,SY: integer;
  SSX,SSY: integer;
и задаем им начальные значения в
Код:
procedure TForm1.FormCreate(Sender: TObject);
begin
sx:=400;
sy:=700;
ssx:=-2;
ssy:=-2;
....
Сама процедура движения принимает вид
Код:
Procedure SharS();
begin

If sx<=0 then
ssx:=2;
If sy<=0 then
ssy:=2;
If sx>=800 then
ssx:=-2;
If sy>=800 then
ssy:=-2;

sx:=sx+ssx;
sy:=sy+ssy;

end;
И будет Ваш мячик бегать в "клеточке" [0,800] по X и [0,800] по Y.
И не сомневайся даже ... отдых - кайф, работа - лажа!
DeKot вне форума Ответить с цитированием
Старый 06.03.2010, 12:36   #3
Frody14
Новичок
Джуниор
 
Регистрация: 06.03.2010
Сообщений: 2
По умолчанию

DeKot, работает, спасибо!
Frody14 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Арканоид Kostia Gamedev - cоздание игр: Unity, OpenGL, DirectX 11 03.04.2021 21:50
арканоид aruy Помощь студентам 4 30.07.2009 11:37
арканоид aruy Общие вопросы Delphi 4 29.07.2009 17:30
Арканоид Mclaren Помощь студентам 10 14.05.2009 15:06
АРКАНОИД!? Mclaren Помощь студентам 5 28.04.2009 14:18