Sk29, конечно, он же и пишет - это не является процедурой, функцией, переменной или модулем. Надо объявить эту процедуру.

cHeRsAnYa1, вот сматри: после var пишу procedure play; begin end; а что после begin писать? Мне надо штоб при нажатии начиналась игра.

Sk29, дык и пиши игру.

cHeRsAnYa1, допустим я хочу в меню сделать пункт "о программе". Вроди всё прописал, а как туда сам текст написать? Ведь drawtext пишет только небольшую фразу.

Sk29, юзай формы.

Нашол как текст написать ток одна проблема - я текст написал по русски, а прога его пишит квадратиками, а английскими буквами всё ок! Как переделать чтоб всё по русски было?

помогите мне найти мидлет на Midlet Паскаль. Мне очень надо, за ранее спасибо:-)

помогите мне найти эмулятор на Midlet Паскаль. Мне очень надо, за ранее спасибо:-)

Помогите хочу что-бы курсор двигался вверх вниз переменные обявленны правельно ошибок не выдает,но прогу не запускает вот и прога:begin kury:=45; kurx:=70; for i:= 0 to -100 do setColor(255,144,0); setFont(FONT_FACE_SYSTEM,FONT_STYLE_UNDERLINE, FONT_SIZE_LARGE); drawImage(loadImage("/i23.png"), 0, 0); drawText("Новая игра.",90,45); drawText("Загрузить.",90,60); drawText("Сохранить.",90,75); drawText("Авторы.",90,90); drawText("Выход.",90,105); drawImage(loadImage("/kur.png"),kurx,kury); if keyToAction(getKeyClicked) <> GA_UP then kury:=kury-15; else if keyToAction(getKeyClicked) <> GA_DOWN then kury:=kury+15; else end; end.

mobilepascal.ucoz.ru

616ый, вторая строчка, там разве -100? Может надо просто 100?

спасиб но я уже сам давно догодался