RblSb (18.12.2013/11:22)
kingdosya, Какой код?вот код

Hellatr, извини, забыл прикрепить код

kingdosya,

Helltar (18.12.2013/12:31)
kingdosya,fon:= loadimage('/fon.png');Ооо не знаю с чем благодарить тебя.

здесь
появилось новая проблема. В игре процедура бот не открывается в главном коде, когда нажимаю кнопку 2, а откроется в процедуре мулти, когда нажимаю кнопку 2. Расскажу подробнее: Собираю эту код. Открываю игру. Игра откроется и выводится рисунок меню, нажимаю кнопку 1 вызывается процедура мулти, а потом после 3 секунды управление вернется в главный код потом нажимаю 2 но ничего не происходить. Потом заново нажимаю 1, вызывается процедура мулти, и тут сразу нажимаю кнопку 2 потом после 3 секунды вызывается процедура бот и после 3 секунды управление передается в главный код. Думаю проблему поняли (процедура бот вызывается только через процедуры мулти). Помогите решить проблему.?

Naik, работает, спасибо

kingdosya, Процедурам вообще-то нужно параметры передавать, разве нет?

ВитаминКО (18.12.2013/21:01)
kingdosya, Процедурам вообще-то нужно параметры передавать, разве нет?Да но это не является обязательным.

kingdosya,

Открыть спойлер

Закрыть спойлер

[копировать] [скачать]

1.     Program dos;
2.     var
3. fon, igrofon, menu: image;
4. key: integer; //добавляем переменную для сохранения кода клавиши при ее нажатии
5.  
6.     procedure multi;
7.     begin
8.     drawimage(igrofon,0,0);
9.     repaint;
10.     delay(3000);
11.     end;
12.     procedure bot;
13.     begin
14.     drawimage(fon,0,0);
15.     repaint;
16.     delay(3000);
17.     end;
18.     Begin
19.             fon:=loadimage('/fon.png');
20.             igrofon:=loadimage('/igrofon.png');
21.             menu:=loadimage('/menu.png');
22.             while true do
23.             begin
24.             drawimage(menu,0,0);
25.             repaint;
26.             key:=getKeyClicked; //записываем нажатую клавишу в переменную
27.             if key = KE_KEY1 then multi;
28.             if key = KE_KEY2 then bot;
29.             end;
30.     End.

Так вроде должно работать, не тестировал, удачи.

Странно.. У меня без передачи не работает, плюс еще нужно объявить внутри процедуры