Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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


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

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

Код:

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 Кб, 7 просмотров)
Frody14 вне форума   Ответить с цитированием
Старый 06.03.2010, 13:24   #2
DeKot
Профессионал
 
Аватар для DeKot
 
Регистрация: 12.08.2008
Адрес: Молдова
Сообщений: 1,980
Репутация: 898
По умолчанию

Делаем следующее:
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, 13:36   #3
Frody14
Новичок
 
Регистрация: 06.03.2010
Сообщений: 2
Репутация: 10
По умолчанию

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

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
арканоид 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
Арканоид Kostia Gamedev - cоздание игр: Unity, OpenGL, DirectX 10 18.02.2008 13:54


05:48.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru