dihan, Процедуру я это знаю,просто забыл записать,а вот во второй строке,что то про библиотеки

Magatino, там не надо ни чего писать. Пишешь только в 1 строчке и строчке Save to и всё

dihan, Спасибо,без помощи тут никак

ImageFromCanvas(x:integer, y:integer, w:integer, h:integer):image
не поддерживает МобПаскаль?

после входящего звонка, нажатия музыкальных кнопок ничего не происходит..

NoSuchMethodError: no such method gameover.. Пишет при вызове процедуры gameOver в игре

Вот код

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

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

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

1. program MegaBALL;
2. var
3.   waiting, x, y, xStep, yStep, down, up, len, speed, go: integer;
4.   fon, kur: image;
5. procedure gameOver(go: integer);
6. begin
7.   setColor(0, 0, 0);
8.   drawImage(kur, 0, 150);
9.   drawText('Nabrano ' + go + 'ochkov!', 10, 151);
10.   repaint;
11.   delay(10000);
12.   halt;
13. end;
14. begin
15.   waiting := 0;
16.   kur := loadImage('/kur.png');
17.   fon := loadImage('/fon.jpg');
18.   while (waiting < 200) do
19.   begin
20.     drawImage(fon, 0, 0);
21.     setColor(0, 0, 0);
22.     drawRect(17, 143, 205, 26);
23.     drawRect(18, 144, 203, 24);
24.     drawRect(19, 145, 201, 22);
25.     setColor(255, 255, 0);
26.     fillRect(20, 146, waiting, 21);
27.     drawText('MegaBALL', 120 - GetStringWidth('MegaBALL') / 2, 5);
28.     waiting := waiting + 1;
29.     setColor(100, 100, 100);
30.     drawText(' ' + waiting / 2 + '%', 107, 145);
31.     setColor(0, 0, 0);
32.     drawText('Naik Software', 120 - GetStringWidth('Naik Software') / 2, 280);
33.     repaint;
34.   end;
35.   x := 50 + random(150);
36.   y := 100 + random(100);
37.   xStep := 1;
38.   yStep := 1;
39.   down := 100;
40.   up := 100;
41.   len := 40;
42.   speed := 0;
43.   go := 0;
44.   while (true) do
45.   begin
46.     drawImage(fon, 0, 0);
47.     if (x > -1) and (x < 256) then
48.       setColor(255, x, 255 - x);
49.     drawText(' ' + go, 100, 150);
50.     if (y <= 10) and (x > up - 20) and (x < up + len) then
51.     begin
52.       go := go + 1;
53.       if (go > 10) and (go < 20) then
54.         speed := 1;
55.       if (go > 20) and (go < 30) then
56.         speed := 2;
57.       if (go > 30) and (go < 40) then
58.         speed := 3;
59.       if (go > 40) and (go < 50) then
60.         speed := 4;
61.       if (go > 50) then
62.         speed := 5;
63.       yStep := 1 + speed;
64.       y := 10;
65.     end;
66.     if (y >= 290) and (x > down - 20) and (x < down + len) then
67.     begin
68.       yStep := -1 - speed;
69.       go := go + 1;
70.       if (go > 10) and (go < 20) then
71.         speed := 1;
72.       if (go > 20) and (go < 30) then
73.         speed := 2;
74.       if (go > 30) and (go < 40) then
75.         speed := 3;
76.       if (go > 40) and (go < 50) then
77.         speed := 4;
78.       if (go > 50) then
79.         speed := 5;
80.       yStep := -1 - speed;
81.       y := 290;
82.     end;
83.     if (x <= 0) then
84.       xStep := 1 + speed;
85.     if (x >= 220) then
86.       xStep := -1 - speed;
87.     if (y <= -20) then
88.       gameOver(go);
89.     if (y >= 320) then
90.       gameOver(go);
91.     x := x + xStep;
92.     y := y + yStep;
93.     fillEllipse(x, y, 20, 20);
94.     setColor(0, 0, 255);
95.     if (getKeyPressed = KE_KEY7) then
96.       down := down - speed - 1;
97.     if (getKeyPressed = KE_KEY9) then
98.       down := down + speed + 1;
99.     if (down < 0) then
100.       down := 0;
101.     if (down > 240 - len) then
102.       down := 240 - len;
103.     if (getKeyPressed = KE_KEY1) then
104.       up := up - speed - 1;
105.     if (getKeyPressed = KE_KEY3) then
106.       up := up + speed + 1;
107.     if (up < 0) then
108.       up := 0;
109.     if (up > 240 - len) then
110.       up := 240 - len;
111.     fillRoundRect(down, 310, len, 10, 3, 3);
112.     fillRoundRect(up, 0, len, 10, 3, 3);
113.     repaint;
114.   end;
115. end.

Это телефон пишет или компилятор?

Naik (22.08.2011/19:33)Вот код[spoiler][code]program MegaBALL;var waiting, x, y, xStep, yStep, down, up, len, speed, go: integer; fon, kur: image;procedure gameOver(go: integer);begin setColor(0, 0, 0); drэто код паскаля давай его в турбопаскаль.

P@bloid (23.08.2011/14:00)
Это телефон пишет или компилятор?Телефон , когда я вызываю процедуру(