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

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

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

Ответ
 
Опции темы
Старый 05.05.2011, 16:02   #16
VladEvil
AnyKey`щик
 
Регистрация: 06.04.2011
Сообщений: 12
Написано 0 полезных сообщений
(для 0 пользователей)
Ответ: AfterWaterRPG - DEMO

Сообщение от PassCall Посмотреть сообщение
Скину когда нибудь исходник на общее обозрение.
Но я боюсь, что мой бесмысленный и беспощадный код только собьет с толку
но все равно.
(Offline)
 
Ответить с цитированием
Старый 05.05.2011, 19:05   #17
PassCall
Разработчик
 
Аватар для PassCall
 
Регистрация: 07.04.2011
Адрес: Млечный путь, Земля, Европа, Беларусь, Могилев
Сообщений: 391
Написано 94 полезных сообщений
(для 319 пользователей)
Ответ: AfterWaterRPG - DEMO

Ладно ща скину исходник, потому буду доделывать его. Зырьте пока на то, что есть. Хотя не =) сначала коментов добавлю! Завтра скину!
__________________
Мечта программиста: запрограммировать процесс программирования.

Всё гениальное - просто.

http://passcall.ucoz.com
(Offline)
 
Ответить с цитированием
Старый 05.05.2011, 19:06   #18
PassCall
Разработчик
 
Аватар для PassCall
 
Регистрация: 07.04.2011
Адрес: Млечный путь, Земля, Европа, Беларусь, Могилев
Сообщений: 391
Написано 94 полезных сообщений
(для 319 пользователей)
Ответ: AfterWaterRPG - DEMO

Сообщение от IGR Посмотреть сообщение
я вообще не в курсе.. а можно на MP поддерживать сенсорный ввод ?? и насколько это сложно ??
Ввод? всмысле тыцнуть стилусом в экран и чтобы Мп об этом знал? можно, есть такая либа, не юзал но вроде ничего сложного.
__________________
Мечта программиста: запрограммировать процесс программирования.

Всё гениальное - просто.

http://passcall.ucoz.com
(Offline)
 
Ответить с цитированием
Старый 05.05.2011, 19:47   #19
IGR
Blitz's Shame !!
 
Регистрация: 31.03.2007
Сообщений: 3,639
Написано 832 полезных сообщений
(для 2,012 пользователей)
Ответ: AfterWaterRPG - DEMO

ну да !! Что бы гуи контролы могли реагировать и что бы игровые объекты/карта тоже на нажатие реагировали !!
Сенсорные жкраны сейчас очень популярны, у тебя нет желания подключить эту либу к своему проекту (если бесплатно конечно ) ??
(Offline)
 
Ответить с цитированием
Старый 05.05.2011, 21:11   #20
cherepets
Бывалый
 
Аватар для cherepets
 
Регистрация: 18.08.2009
Сообщений: 745
Написано 146 полезных сообщений
(для 215 пользователей)
Ответ: AfterWaterRPG - DEMO

Заделюсь кодом по теме:


unit trans;

interface
var 
key:integer;
procedure init;
procedure scr;
function 
getkey:integer;

implementation
uses sensor
;
var 
x,y,xx,yy:integer;
butt:boolean;
ons:array[1..6of image;
otp:boolean;

procedure init;
begin
sensor
.init;
butt:=true;
ons[1]:=loadimage('/joy.png');
ons[2]:=loadimage('/joys.png');
ons[4]:=loadimage('/buu.png');
ons[5]:=loadimage('/men.png');
ons[6]:=loadimage('/slow.png');
end;

procedure scr;
begin
drawimage
(ons[1],30,getheight-120);
if 
key=KE_KEY1 then drawimage(ons[2],35,getheight-115) else
if 
key=KE_KEY3 then drawimage(ons[2],60,getheight-115) else
if 
key=KE_KEY4 then drawimage(ons[2],30,getheight-102) else
if 
key=KE_KEY6 then drawimage(ons[2],66,getheight-102) else
drawimage(ons[2],48,getheight-102);
drawimage(ons[4],getwidth-62,getheight-64);
//drawimage(ons[5],5,0);
//drawimage(ons[6],getwidth-75,0);
end;

function 
getkey:integer;
begin
key
:=0;
if 
pointer_state<>0 then begin
    
if (not otp) and (pointer_dragged_x<>0) and (pointer_dragged_x<>xxthen begin
    x
:=pointer_dragged_x;
    
y:=pointer_dragged_yend else begin
    x
:=pointer_pressed_x;
    
y:=pointer_pressed_yend;
    
otp:=false;
        if (
x>30) and (x<=75) and (y>getheight-120) and (y<=getheight-75then key:=KE_KEY1 else
        if (
x>75) and (x<=120) and (y>getheight-120) and (y<=getheight-75then key:=KE_KEY3 else
        if (
x>75) and (x<=120) and (y>getheight-75) and (y<=getheight-30then key:=KE_KEY6 else
        if (
x>30) and (x<=75) and (y>getheight-75) and (y<=getheight-30then key:=KE_KEY4 else
        if (
x>getwidth-62) and (x<=getwidth-17) and (y>getheight-62) and (y<=getheight-17then key:=KE_KEY5 else
        if (
x<=80) and (y<=40then key:=-else
        if (
x>getwidth-80) and (y<=40then key:=KE_STAR;
end else key:=getkeypressed;
if 
key=0 then begin xx:=xotp:=trueend;
getkey:=key;
end;

initialization
    
add initialization code here }
end
И так, init - загрузка графики и инициализация либы.
scr - отрисовка джоя.
getkey - аналог getkeypressed.

Результат в игре такой:


З.Ы. могут быть лишние переменные, ибо часть функций обрезал прямо перед тем как код запостить сюда.
__________________
(Offline)
 
Ответить с цитированием
Сообщение было полезно следующим пользователям:
im_zorg (06.05.2011)
Старый 11.05.2011, 17:13   #21
PassCall
Разработчик
 
Аватар для PassCall
 
Регистрация: 07.04.2011
Адрес: Млечный путь, Земля, Европа, Беларусь, Могилев
Сообщений: 391
Написано 94 полезных сообщений
(для 319 пользователей)
Ответ: AfterWaterRPG - DEMO

Вылаживаю свой неимоверно беспощадный код, вместе с редакторами. Да прибудет с Вами Сила, когда вы будете читать его. Чтобы было не очень уныло читать мой код, я разбавил исходник разными интересными фактами.
Вложения
Тип файла: rar AWRPG.rar (2.59 Мб, 163 просмотров)
__________________
Мечта программиста: запрограммировать процесс программирования.

Всё гениальное - просто.

http://passcall.ucoz.com
(Offline)
 
Ответить с цитированием
Сообщение было полезно следующим пользователям:
scimitar (16.05.2011)
Старый 12.05.2011, 00:20   #22
IGR
Blitz's Shame !!
 
Регистрация: 31.03.2007
Сообщений: 3,639
Написано 832 полезных сообщений
(для 2,012 пользователей)
Ответ: AfterWaterRPG - DEMO

нововведения есть по сравнению с предыдущей версией ?? Есть ли смысл качать ??
(Offline)
 
Ответить с цитированием
Старый 12.05.2011, 06:44   #23
PassCall
Разработчик
 
Аватар для PassCall
 
Регистрация: 07.04.2011
Адрес: Млечный путь, Земля, Европа, Беларусь, Могилев
Сообщений: 391
Написано 94 полезных сообщений
(для 319 пользователей)
Ответ: AfterWaterRPG - DEMO

Сообщение от IGR Посмотреть сообщение
нововведения есть по сравнению с предыдущей версией ?? Есть ли смысл качать ??
Это исходник >_<

А версия - более новая. Естественно =)
__________________
Мечта программиста: запрограммировать процесс программирования.

Всё гениальное - просто.

http://passcall.ucoz.com
(Offline)
 
Ответить с цитированием
Старый 29.05.2011, 11:00   #24
FataMorgana
AnyKey`щик
 
Регистрация: 29.05.2011
Сообщений: 3
Написано 0 полезных сообщений
(для 0 пользователей)
Ответ: AfterWaterRPG - DEMO

Геймдизайн еще требуется?
(Offline)
 
Ответить с цитированием
Старый 29.05.2011, 13:39   #25
PassCall
Разработчик
 
Аватар для PassCall
 
Регистрация: 07.04.2011
Адрес: Млечный путь, Земля, Европа, Беларусь, Могилев
Сообщений: 391
Написано 94 полезных сообщений
(для 319 пользователей)
Ответ: AfterWaterRPG - DEMO

Сообщение от FataMorgana Посмотреть сообщение
Геймдизайн еще требуется?
Нам требуется тот, кто сможет придумать сюжет, новые вещи (характеристики), монстров, локации и т.д.

Вот на всякий случай редакторы.
Вложения
Тип файла: rar Editors.rar (1.43 Мб, 118 просмотров)
__________________
Мечта программиста: запрограммировать процесс программирования.

Всё гениальное - просто.

http://passcall.ucoz.com
(Offline)
 
Ответить с цитированием
Старый 01.06.2011, 10:30   #26
PassCall
Разработчик
 
Аватар для PassCall
 
Регистрация: 07.04.2011
Адрес: Млечный путь, Земля, Европа, Беларусь, Могилев
Сообщений: 391
Написано 94 полезных сообщений
(для 319 пользователей)
Ответ: AfterWaterRPG - DEMO

В нашей.. хм.. группе появился новый участник - FataMorgana. Он занимается сюжетом, монстрами, характеристиками, короче механикой игры. Вывернув движок наизнанку Разработав много новых идей, мы приступили к работе. Возможно, через пару недель Вы увидите результат нашей совместной работы. Было бы хорошо, если бы нашелся тестер, который протестирует (и увековечит свое имя в почетных титрах) будущую игру.
__________________
Мечта программиста: запрограммировать процесс программирования.

Всё гениальное - просто.

http://passcall.ucoz.com
(Offline)
 
Ответить с цитированием
Сообщение было полезно следующим пользователям:
Gector (01.06.2011)
Старый 01.06.2011, 10:39   #27
JACUK
Знающий
 
Регистрация: 09.10.2009
Сообщений: 340
Написано 37 полезных сообщений
(для 61 пользователей)
Ответ: AfterWaterRPG - DEMO

Готов быть тестером! А вобще это не проблема
__________________




(Offline)
 
Ответить с цитированием
Старый 01.06.2011, 19:33   #28
FataMorgana
AnyKey`щик
 
Регистрация: 29.05.2011
Сообщений: 3
Написано 0 полезных сообщений
(для 0 пользователей)
Ответ: AfterWaterRPG - DEMO

Не хотелось бы давать призрачных надежд, но велика вероятность того, что игра не будет похожа ни на одну РПГ на мобильных телефонах. Причем это касается всего - начиная с монстров и заканчивая развитием персонажа и инвентарем. Что из этого винегрета получиться - неизвестно. Посмотрим...
(Offline)
 
Ответить с цитированием
Старый 03.09.2011, 09:41   #29
rus21d
AnyKey`щик
 
Регистрация: 20.06.2011
Сообщений: 8
Написано одно полезное сообщение
Ответ: AfterWaterRPG - DEMO

а что делает тестер воообщще?
(Offline)
 
Ответить с цитированием
Старый 03.09.2011, 10:33   #30
DIMMON4IK
Знающий
 
Аватар для DIMMON4IK
 
Регистрация: 21.07.2009
Адрес: Украина
Сообщений: 219
Написано 44 полезных сообщений
(для 78 пользователей)
Ответ: AfterWaterRPG - DEMO

rus21d
играет и ищет баги, делает замечания или предложения
__________________


(Offline)
 
Ответить с цитированием
Ответ


Опции темы

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

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


Часовой пояс GMT +1, время: 08:35.


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