Var field:integer;
ok:command;
text,code: string;
begin
ok:=createCommand('ok',CM_OK,1);
addCommand(ok);
showTextBox('Введите код:', '', 255, TF_ANY);
while getClickedCommand<>ok do delay(100);
code := getTextBoxString;
text := '(ничего)';
if code='111' then text:='земля';
showCanvas;
drawText(text,0,0);
repaint;
delay(4000);
end.
__________________
Мой сайт-блог. Игры, обновления, примеры для Haxe, JavaScript(+HTML5), GameMaker, Love2d...