Извините, ничего не найдено.

Не расстраивайся! Лучше выпей чайку!
Регистрация
Справка
Календарь

Вернуться   forum.boolean.name > Программирование игр для мобильных телефонов > MidletPascal

Ответ
 
Опции темы
Старый 19.02.2010, 23:06   #16
odd
Мастер
 
Аватар для odd
 
Регистрация: 06.09.2007
Адрес: Донецк, ДНР
Сообщений: 1,023
Написано 298 полезных сообщений
(для 713 пользователей)
Ответ: Беркут 2.1

Сообщение от Mig-29 Посмотреть сообщение
Вышел хотфикс на версию 2.0
Но всё равно ещё работать и работать.
Не под все экраны нормально идет, да и хотелось бы на весь экран.
(Offline)
 
Ответить с цитированием
Старый 20.02.2010, 15:56   #17
Mig-29
AnyKey`щик
 
Регистрация: 08.02.2010
Сообщений: 16
Написано одно полезное сообщение
(для 2 участников)
Ответ: Плавный полёт снаряда - как реализовать?

В версии 3.0 много доработано.
Конкретно по экранам - теперь можно играть на экране до
264x176, это уже смартовские разрешения.
Я понимаю, что ты хочешь сказать - на весь экран проще и экономнее растянуть текстуру спрайтами =)
В аркаде так и будет, а тут код как "Война и мир" уже.

Изначальная ориентация на прямоугольные экраны, у которых высота больше ширины.

P.S. поборол тот глюк с исчезновением объектов во время repaint'а
(Offline)
 
Ответить с цитированием
Старый 21.07.2010, 16:11   #18
NetBuilding
ПроЭктировщик
 
Аватар для NetBuilding
 
Регистрация: 07.06.2010
Сообщений: 105
Написано 5 полезных сообщений
(для 13 пользователей)
Ответ: Плавный полёт снаряда - как реализовать?

Помогите.
нужен пример, как реализовать многократный выстрел.
(Offline)
 
Ответить с цитированием
Старый 21.07.2010, 17:08   #19
SBJoker
Злобный Админ
 
Аватар для SBJoker
 
Регистрация: 04.09.2005
Сообщений: 5,926
Написано 3,415 полезных сообщений
(для 9,330 пользователей)
Ответ: Плавный полёт снаряда - как реализовать?

Эм.. Пыщь-Пыщь - некатит?
--
Если серьёзно то изложи подробнее что неполучается.
__________________
(Offline)
 
Ответить с цитированием
Старый 21.07.2010, 17:42   #20
NetBuilding
ПроЭктировщик
 
Аватар для NetBuilding
 
Регистрация: 07.06.2010
Сообщений: 105
Написано 5 полезных сообщений
(для 13 пользователей)
Ответ: Плавный полёт снаряда - как реализовать?

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

надо так: пуля еще не долетела до конца, а мы нажимем еще раз кнопку и вылетает уже другая пуля и т.д.
оно не получается.

вот пример как сейчас:
program pula;
var a,b,key:integer;
ip:boolean;
begin
a:=100;
ip:=false;
repeat
key:=getKeyPressed;
if keyToAction(key)=GA_FIRE then ip:=true;
setColor(0, 0, 0);
fillRect(0, 0, 240, 320);
if ip=true then
a:=a+5;
if a<240 then
drawImage(loadImage('/icon.png'), a, 100);
else begin
a:=100; ip:=false; end;
repaint;
until b=10;
end.


SBJoker личный вопрос, под iPhone на чем програмиш?
(Offline)
 
Ответить с цитированием
Старый 21.07.2010, 18:11   #21
SBJoker
Злобный Админ
 
Аватар для SBJoker
 
Регистрация: 04.09.2005
Сообщений: 5,926
Написано 3,415 полезных сообщений
(для 9,330 пользователей)
Ответ: Плавный полёт снаряда - как реализовать?

Ну нужно загонять пули в объекты или в массив и циклом их обновлять.

Под iPhone пишу на C++/Obj-C в XCode в качестве движка iXors3d
__________________
(Offline)
 
Ответить с цитированием
Старый 21.07.2010, 19:53   #22
NetBuilding
ПроЭктировщик
 
Аватар для NetBuilding
 
Регистрация: 07.06.2010
Сообщений: 105
Написано 5 полезных сообщений
(для 13 пользователей)
Ответ: Плавный полёт снаряда - как реализовать?

сделал так:

var b,i,key,g:integer;
a:array [0..10] of integer;
ip:boolean;
begin
g:=0;
a[0]:=100;
ip:=false;
repeat
key:=getKeyClicked;
if keyToAction(key)=GA_FIRE then begin ip:=true; g:=g+1; end
if g>9 then g:=0;
setColor(0, 0, 0);
fillRect(0, 0, 240, 320);
a[g+1]:=100;
if ip=true then
a[g]:=a[g]+5;
for i:=0 to 10 do begin
if a[g]<240 then
drawImage(loadImage('/icon.png'), a[i], 100);
else begin
ip:=false; end;
end;
repaint;
until b=10;
end.

чего-то не хватает.

Ребята покажите пожалуйста на примере как это сделать у меня игруха без этого непроходимая получается.

Последний раз редактировалось NetBuilding, 22.07.2010 в 15:10.
(Offline)
 
Ответить с цитированием
Старый 22.07.2010, 16:20   #23
SBJoker
Злобный Админ
 
Аватар для SBJoker
 
Регистрация: 04.09.2005
Сообщений: 5,926
Написано 3,415 полезных сообщений
(для 9,330 пользователей)
Ответ: Плавный полёт снаряда - как реализовать?

ну я то на мидлете не программирую, потому нужно ждать помощи завсегдатаев.
Я могу лишь общие советы дать.
После каждого выстрела создавать пулю - записывать её положение и другие параметры в массив или если есть ООП то в класс, после чего работать со всеми пулями в цикле.
__________________
(Offline)
 
Ответить с цитированием
Сообщение было полезно следующим пользователям:
NetBuilding (22.07.2010)
Старый 22.07.2010, 17:51   #24
NetBuilding
ПроЭктировщик
 
Аватар для NetBuilding
 
Регистрация: 07.06.2010
Сообщений: 105
Написано 5 полезных сообщений
(для 13 пользователей)
Ответ: Плавный полёт снаряда - как реализовать?

SBJoker благодарю за посильную помощь
Получилось но все равно чето нето.

var i,key,g:integer;
a,b:array [0..100] of integer;
ip:boolean;p:array [0..100] of image;
begin
g:=0;
for i:=0 to 10 do begin
a[i]:=100;
b[i]:=100;
p[i]:=loadImage('/icon.png');
end;

repeat
key:=getKeyClicked;
if keyToAction(key)=GA_FIRE then begin g:=g+1;end
if g>9 then g:=0;

fillrect(0,0,240,320);


for i:=0 to g do begin
drawImage(p[i], a[i], b[i]);
a[i]:=a[i]+1;
if a[i]>240 then a[i]:=100;
end;
repaint;
until b[0]=10;
end.
помогите пожалуйста

Последний раз редактировалось NetBuilding, 22.07.2010 в 21:32.
(Offline)
 
Ответить с цитированием
Старый 22.07.2010, 23:51   #25
LLI.T.A.L.K.E.R.
Мастер
 
Аватар для LLI.T.A.L.K.E.R.
 
Регистрация: 24.06.2009
Адрес: Набережные Челны
Сообщений: 930
Написано 292 полезных сообщений
(для 504 пользователей)
Сообщение Ответ: Плавный полёт снаряда - как реализовать?

Примерно так:
Var i,key,g:integer;
a,b: array [0..9of integer;
ipboolean;
p:array [0..9of image;
PuleShot: array [0..9of boolean;

Begin
g
:=0;
For 
i:=0 to 9 do begin
a
[i]:=100;
b[i]:=100;
p[i]:=LoadImage('/icon.png');
PuleShot[i]:=False;
end;

Repeat

FillRect
(0,0,240,320);

key:=GetKeyClicked;
If 
KeyToAction(key)=GA_FIRE then begin
    PuleShot
[g]:=True;
    
g:=g+1;
end;

If 
g>5 then g:=0;

For 
i:=0 to 9 do begin
    
If PuleShot[i]=True then begin
        DrawImage
(p[i], a[i], b[i]);
        
a[i]:=a[i]+1;
        If 
a[i]>240 then begin
            PuleShot
[i]:=False;
            
a[i]:=100;
        
end;
    
end;
end;

Repaint;

Until b[0]=10;

End
Добавил свойство пули PuleShot[i]- выстрелить её или нет (рисовать/не рисовать)

И зачем создавать лишний массив 100?
За 9 у меня на эмуляторе и то выстрел сразу не реагирует.

И чтобы игруля была мультиэкранка - нужно не за 240 пикс. пулю проверять, а в переменную
Var ScreenW: integer;
Begin
ScreenW:=GetWidth;
Repeat
If a[i]>ScreenW+5 then a[i]:=ScreenW/2;
(Offline)
 
Ответить с цитированием
Сообщение было полезно следующим пользователям:
NetBuilding (23.07.2010)
Старый 23.07.2010, 11:36   #26
NetBuilding
ПроЭктировщик
 
Аватар для NetBuilding
 
Регистрация: 07.06.2010
Сообщений: 105
Написано 5 полезных сообщений
(для 13 пользователей)
Ответ: Плавный полёт снаряда - как реализовать?

LLI.T.A.L.K.E.R. Огромный тебе респект!
Теперь мою угруху можно будет пройти
(Offline)
 
Ответить с цитированием
Старый 23.07.2010, 11:49   #27
Igor
Мастер
 
Аватар для Igor
 
Регистрация: 03.05.2010
Адрес: Подмосковье
Сообщений: 1,218
Написано 438 полезных сообщений
(для 790 пользователей)
Ответ: Плавный полёт снаряда - как реализовать?

ООП тут нет
__________________
О¯О ¡¡¡ʁɔvʎнdǝʚǝdǝu dиW
(Offline)
 
Ответить с цитированием
Ответ


Опции темы

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

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


Часовой пояс GMT +4, время: 23:02.


vBulletin® Version 3.6.5.
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Перевод: zCarot
Style crйe par Allan - vBulletin-Ressources.com