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

[4aunuk]

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

[ABTOMAT]

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

Ацки жжош

[KeipL]

красавчик

[4aunuk]

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

[ViNT]

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

[KeipL]

http://liveofpc.3dn.ru/publ/9-1-0-89

[odd]

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

[Frank]

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

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.

[InkutaY]

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

[Romanzes]

http://www.xakep.ru/post/33659/default.asp