[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.