Исходник - > ЕХЕ файл

[WhatZ]

Вообщем стояла задача сделать игру. Вообщем написал я исходник игры змейка, но как с него сделать ехе файл я не знаю)
Помогите люди добрые, обьясните как и покажите
Вот исходник(если что не правильно прошу изивинть и исправить )

uses crt,graph;
var a,b,bb,x,y,i,jx,jy:integer;
    xx,yy:array[1..1000] of integer;
    c:char;
    n:boolean;
begin
     initgraph(a,b,'');
     randomize;
     a:=1;
     i:=1;
     n:=false;
     x:=100;
     y:=240;
     rectangle(0,0,639,479);
     repeat
     jx:=random(640);
     jy:=random(480);
     if getpixel(jx,jy)=0 then begin
     for i:=-3 to 3 do begin
     putpixel(jx+i, jy, 14);
     putpixel(jx,jy+i,14);
     end;
     a:=1; end else a:=0;
     until a=1;
     i:=1;
     repeat
     a:=a+1;
     if a=150*i+1 then a:=1;
     if n=false then x:=x+1;
     if ord(c)=72 then y:=y-1;
     if ord(c)=75 then x:=x-1;
     if ord(c)=77 then x:=x+1;
     if ord(c)=80 then y:=y+1;
     if getpixel(x,y)=15 then c:='x';
     if getpixel(x,y)=14 then begin
     for b:=y-10 to y+10 do begin
     for bb:=x-10 to x+10 do
     if getpixel(bb,b)=14 then putpixel(bb,b,0);
     end;
     repeat
     jx:=random(640);
     jy:=random(480);
     if getpixel(jx,jy)=0 then begin
     for b:=-3 to 3 do begin
     putpixel(jx+b, jy, 14);
     putpixel(jx,jy+b,14);
     end;
     b:=1; end else b:=0;
     until b=1;
     i:=i+1;
     end;
     putpixel(x,y,15);
     delay(15);
     putpixel(xx[a],yy[a],0);
     xx[a]:=x;
     yy[a]:=y;
     if keypressed then n:=true;
     if keypressed then c:=readkey;
     until (c='x') or (i=10);
     if c='x' then begin
     settextstyle(1,0,8);
     setcolor(9);
     outtextxy(150,200,'THE END...');
     end;
     if i=10 then begin
     setcolor(10);
     settextstyle(3,0,8);
     outtextxy(150,200,'CONGRATS!');
     end;
     delay(500);
     readkey;

     closegraph;
end.

[Sazary]

WhatZ Я правильно понял, что вам просто нужно его скомпилировать?
Если в Турбо Паскале, то F9.
Ну или в меню, Compile -> Compile

Вопрос: А как вы раньше компилили свои проги? о_О

[WhatZ]

Вообще компилировал) Но на паскале работал последний раз больше года назад, и чет призабыл. Но разве после компиляции появляеться ЕХЕ файл? Мне нужно чтобы именно как игра было...ну да ладно)

Есть проблемка : оно не компилируеться) у меня отсутствует файл GRAPH. Че делать и как с этим бороться? ))

[Sazary]

Там по Alt+F9 идет компиляция, а по F9 - Make.

у меня отсутствует файл GRAPH. Че делать и как с этим бороться?

Очевидно найти и скопировать в папку TPU этот самый GRAPH )
Приложил свой:

[WhatZ]

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

Вообщем может не правильно выражаюсь, но мне нужно что игра запускалась не с под паскаля... ну чтобы в папке был сразу файлик змейка.ехе и при его запуске начиналась игра))) Как это сделать то?(

[Sazary]

WhatZ При нажатии F9 в папке с исходником должен появиться и екзешник
У вас не появляется?

[WhatZ]

нет, а можете тогда попробывать у себя и переслать мне?))

[Sazary]

WhatZ Врядли это вам поможет: запускаю екзешник - появляется окно и сразу исчезает. В общем, наверняка там ошибки есть..
С графикой не работал, поэтому искать баги сейчас не буду.. Подождите до утра - люди проснутся, посмотрят ) Не уверен, но, может быть, будет целесообразно создать новую тему, конкретно по этому вопросу (найти ошибки).
Если у вас не появляется exe-файл (проверьте всю паскалевскую папку, на всякий случай), попробуйте скачать с другого места.

[WhatZ]

ну когда я запускал с паскаля, то мне появлялось через определенное время окно с надписью ГЕЙМ ОВЕР и вбитой в стенку змейкой))) Я так понимаю скорость процесора больше чем требуеться)

[Sazary]

WhatZ Хм.. У меня не было такого )
Но заметил, что там проскакивает сообщение про InitGraph. В общем, возможно, это косяк моего паскаля. У меня всегда с графикой в консоли проблемы были )
Думаю, что я, к сожалению, вам помочь врядли смогу )