Вторник, 16 Августа 2022, 13:01

Приветствую Вас Гость

[ Новые сообщения · Игроделы · Правила · Поиск ]
  • Страница 1 из 1
  • 1
Форум игроделов » Программирование » Программирование .NET » Что случилось с кодом (ObjectPascal.NET)
Что случилось с кодом
kantabrinaДата: Вторник, 09 Апреля 2013, 17:58 | Сообщение # 1
постоянный участник
Сейчас нет на сайте
Вот код, по идее красный квадрат должен двигаться но он этого не делает, при этом не каких ошибок он не выводит sad что случилось???

Цитата
uses GraphABC;

var
s : array [,] of integer;
i,x,y,vspeed : integer;
game_end : boolean;

procedure KeyPress(key: char); begin

if (key='d') and (s[(x div 8)+1,(y div 8)]=0) then
x:=x+8;

if (key='a') and (s[(x div 8)-1,(y div 8)]=0) then
x:=x-8;

if (key='w') and (vspeed=0) and (s[(x div 8),(y div 8)+1]=1) then
vspeed:=-16;

end;

procedure KeyDown(key: integer); begin
if (key=vk_enter) then game_end:=true;
end;

procedure Gravity(); begin

if vspeed=0 then begin
if s[(x div 8),(y div 8)+1]=0 then y+=8;
end;

if s[(x div 8),(y div 8)+vspeed]=0 then y+=vspeed;

if vspeed<>0 then
vspeed+=2;

end;

procedure Draw(); begin

Redraw;
LockDrawing;


setbrushcolor(clwhite);
fillrectangle(0,0,640,480);


setbrushcolor(clblack);
fillrectangle(0,192,640,224);

setbrushcolor(clred);
fillrectangle(x,y,x+8,y+8);

end;

Begin

game_end:=false;
x:=0;
y:=0;


s := new integer[200,200];


for i:=0 to 79 do
s[i,24] := 1;

while game_end=false do begin


Draw();

Gravity();

OnKeyPress:=KeyPress;
OnKeyDown:=KeyDown;

sleep(30);

end;

end.



cry


[2D] Adventure in the pixel town [2D] Time To Dream

Сообщение отредактировал kantabrina - Вторник, 09 Апреля 2013, 17:59
Shkololo_KillerДата: Вторник, 09 Апреля 2013, 18:39 | Сообщение # 2
почетный гость
Сейчас нет на сайте
о нет! Это явно проблема в движке, потому что гений конструкторов, знающий 3 языка программирования, не мог ошибиться!
такой "изящный" стиль программирования я еще не видел....
kantabrinaДата: Среда, 10 Апреля 2013, 13:39 | Сообщение # 3
постоянный участник
Сейчас нет на сайте
Не оффтопь angry по теме давай

Добавлено (10.04.2013, 13:39)
---------------------------------------------
Сейчас попробовал на другом компьютере всё нормально, что то с железом wink


[2D] Adventure in the pixel town [2D] Time To Dream
woofДата: Среда, 10 Апреля 2013, 13:45 | Сообщение # 4
самый главный
Сейчас нет на сайте
можно вопрос.
просто заинтересовал ОП.НЕТ
как он устанавливается? что для него нужно? какие компиляторы и тд.
хочу попробовать его.
UndeadДата: Среда, 10 Апреля 2013, 14:15 | Сообщение # 5
NeoAxis User
Сейчас нет на сайте
Цитата (woof)
можно вопрос. просто заинтересовал ОП.НЕТ как он устанавливается? что для него нужно? какие компиляторы и тд. хочу попробовать его.

Link


Вcем зла.
kantabrinaДата: Среда, 10 Апреля 2013, 15:17 | Сообщение # 6
постоянный участник
Сейчас нет на сайте
Цитата (woof)
что для него нужно

Если не ошибаюсь, то фреймворк 4 и выше

Цитата (woof)
как он устанавливается? что для него нужно? какие компиляторы и тд.


Скачать


[2D] Adventure in the pixel town [2D] Time To Dream

Сообщение отредактировал kantabrina - Среда, 10 Апреля 2013, 15:19
Форум игроделов » Программирование » Программирование .NET » Что случилось с кодом (ObjectPascal.NET)
  • Страница 1 из 1
  • 1
Поиск:

Все права сохранены. GcUp.ru © 2008-2022 Рейтинг