forum.boolean.name - Нужна помошь!!!

forum.boolean.name (http://forum.boolean.name/index.php)

- Основной форум (http://forum.boolean.name/forumdisplay.php?f=49)

- - Нужна помошь!!! (http://forum.boolean.name/showthread.php?t=6175)

Нужна помошь!!!

Здравствуйте, хочу написать простенькую игрушку с небольшим сюжетом, но на вашем форуме не могу ничего найти(может просто не внимателен). Прошу написать саму игру и рассказать что к чему.:SOS: :SOS: :SOS: :SOS: Заранее спасибо))

Ответ: Нужна помошь!!!

Цитата:

Прошу написать саму игру

Ацки жжош :-D

Ответ: Нужна помошь!!!

:-D красавчик

Ответ: Нужна помошь!!!

А что тут такого?!

Ответ: Нужна помошь!!!

Поищи в интернете, я где-то видел описание создания игры на MP.

Ответ: Нужна помошь!!!

Насмешил. Напишите мне игру, а копирайты на себя я сам переделаю :-D

Ответ: Нужна помошь!!!

Вот тебе супер-мега игра :)

Код:

program UgadaiChislo;                                // Супер мега игра угадай число

var i,s,n,m:integer; cmdOK, cmdExit, click: command;        // объявление переменных

begin                                // начало

        Randomize;                // это чтобы разные числа загадывались

        showForm;                        // отобразим форму

        cmdOk:=CreateCommand('Ввод',CM_OK,0);                                // создадим команду выбора

        cmdExit:=CreateCommand('Выход',CM_Exit,1);        // и команду выхода

        addCommand(cmdOk); addCommand(cmdExit);                        // и добавим их на экран

        n:=Random(100)+1;                                                                                                                // загадываем число от 1 до 100

        i:=FormAddTextField('Угадай число','',3,TF_NUMERIC);        // сюда мы будем вводить наше число

        s:=FormAddString('Загадано число от 1 до 100. Угадай его!');        // а сюда выводить сообщения

        repeat                                                                        // главный цикл игры

        repeat                                                                        // ждем нажатия комманды

                click:=GetClickedCommand;

        until click<>EmptyCommand;

        

        if click=cmdOK then begin        // если нажали на выбор

                m:=StringToInteger(FormGetText(i));        // преобразуем введенный нами текст в число

                formRemove(s);        // в МидлетПаскаль нельзя изменить строку текста. Но можно ее пересоздать. так что удалим старый текст

                formSetText(i,'');        // а заодно очистим и текстовое поле куда мы число ввели

                if m>n then s:=FormAddString('Меньше чем '+IntegerToString(m));        // если наше число больше загаданного

                if m<n then s:=FormAddString('Больше чем '+IntegerToString(m));        // если меньше..

                if m=n then begin                                                                                                                                                                                                // если мы угадали

                        s:=FormAddString('Пилять! Угадал :) Давай снова!');                        // выводим победное сообщение %)

                        n:=Random(100)+1;                                                                                                                                                                // и загадаем новое число

                end;

        end;

        until click=cmdExit;        // выходим из главного цикла если нажали Выход

end.

Ответ: Нужна помошь!!!

http://mirgames.ru/articles/mobile/midlet.html
---------------------------
и мне тож пожалуйста игруху, чтоб по приличней была и закончена, желательно онлине рпгэшка, а то таких в уроках и статьях не нашел.
Так что с большим удовольствием жду ваших готовых исходников с подробными объяснениями :)

Ответ: Нужна помошь!!!