Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.
Внимание! Некоторое время письма не доходят до аккаунтов MAIL RU GROUP, не доходят на все почтовые ящики mail.ru, inbox.ru, bk.ru. Пишите им жалобы, чтобы быстрее восстановили получение писем, регистрируйтесь через яндекс почту и gmail, туда письма с активизацией доходят.

Вернуться   Форум программистов > разработка игр, графический дизайн и моделирование > 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,977
Репутация: 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


00:19.


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

RusProfile.ru


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