|
29.03.2009, 14:32
|
#1
|
Нуждающийся
Регистрация: 07.03.2009
Сообщений: 98
Написано 3 полезных сообщений (для 3 пользователей)
|
Не могу понять в чем ошибка
[s]const
MapHeight=15;
MapWidth=15;
var
exit: command;
tile1,man,kust,dom,tile,fon:image;
map:array[0..19,0..19] of string;
x,y,b,sped,sped2,zx,zc,m,a1,a2,a3,a4,a5,a6,a7,a8,key,image_id,ri,ri2,u,g,g1:integer;
ScreenHeight,ScreenWidth:integer;
res : resource;
line:string;
procedure LoadMap;
begin
res := OpenResource('/map.txt');
for y := 0 to MapHeight do begin
line := ReadLine(res);
for x := 0 to MapWidth do
map[x,y] := GetChar(line,x);
end;
CloseResource(res);
end;
procedure RedrawMap;
begin
for y := 0 to MapHeight do
for x := 0 to MapWidth do
begin
if map[x,y] = '5' then begin
zx:=x*15+sped;
zc:=y*15+sped2;
DrawImage(fon,zx,zc);
end;
if map[x,y] = '1' then begin
zx:=x*15+sped;
zc:=y*15+sped2;
DrawImage(dom,zx,zc);
end;
if map[x,y] = '2' then begin
zx:=x*15+sped2;
zc:=y*15+sped;
DrawImage(kust,zx,zc);
end;
if map[x,y] = '3' then begin
zx:=x*15+sped2;
zc:=y*15+sped;
DrawImage(tile,zx,zc);
end;
if map[x,y] = '4' then begin
zx:=x*15+sped2;
zc:=y*15+sped;
DrawImage(tile1,zx,zc);
end;
end;
end;
procedure render;
begin
setcolor(255,255,255);
RedrawMap;
drawImage(loadImage('/play.png'), 50, 50);
repaint;
end;
procedure pere;
begin
m:=0;
for y := 0 to MapHeight do
for x := 0 to MapWidth do
begin
if map[x,y] = '1,2,3,4' then begin
zx:=x*16+sped2;
zc:=y*16+sped;
if (50<(zx+a1)) and ((50+a2)>zx) and (50<(zc+a3)) and ((50+a4)>zc) then m:=m+2;
end;
end;
end;
begin
ScreenHeight := GetHeight;
ScreenWidth := GetWidth;
ri:=0;
ri2:=0;
sped:=0;
m:=0;
fon := loadImage('/man2.png');
tile1 := loadimage('/tile1.png');
tile := loadimage('/tile.png');
kust := loadimage('/kust.png');
dom := loadimage('/dom.png');
a1:=getImageWidth(loadImage('/play.png'));
a2:=getImageWidth(loadImage('/tile1.png'));
a3:=getImageHeight (loadImage('/play.png'));
a4:=getImageHeight (loadImage('/tile1.png'));
a5:=getImageWidth (loadImage('/kust.png'));
a6:=getImageWidth (loadImage('/tile.png'));
a7:=getImageHeight (loadImage('/kust.png'));
a8:=getImageHeight (loadImage('/tile.png'));
LoadMap;
render;
repeat
key := getKeyPressed;
if key =KE_KEY2 then begin
sped:=sped+6;
pere;
if (m>0) then sped := sped-6;
end;
if key =KE_KEY4 then begin
sped2:=sped2+6;
pere;
if (m>0) then sped2 := sped2-6;
end;
if key =KE_KEY6 then begin
sped2:=sped2-6;
pere;
if (m>0) then sped2 := sped2+6;
end;
if key =KE_KEY8 then begin
sped:=sped-6;
pere;
if (m>0) then sped := sped+6;
end;
render;
until false;
end.[/s]
все картинки в *.png даже не в*.PNG
Последний раз редактировалось KAK? TAK!, 30.03.2009 в 10:44.
|
(Offline)
|
|
30.03.2009, 16:59
|
#2
|
Нуждающийся
Регистрация: 07.03.2009
Сообщений: 98
Написано 3 полезных сообщений (для 3 пользователей)
|
Ответ: Не могу понять в чем ошибка
хелп
|
(Offline)
|
|
30.03.2009, 17:11
|
#3
|
Нуждающийся
Регистрация: 07.03.2009
Сообщений: 98
Написано 3 полезных сообщений (для 3 пользователей)
|
Ответ: Не могу понять в чем ошибка
прикол
|
(Offline)
|
|
31.03.2009, 14:33
|
#4
|
Нуждающийся
Регистрация: 07.03.2009
Сообщений: 98
Написано 3 полезных сообщений (для 3 пользователей)
|
Ответ: Не могу понять в чем ошибка
помогите
|
(Offline)
|
|
31.03.2009, 14:38
|
#5
|
Оператор ЭВМ
Регистрация: 27.11.2006
Сообщений: 28
Написано одно полезное сообщение
|
Re: Ответ: Не могу понять в чем ошибка
Сообщение от KAK? TAK!
помогите
|
proect pri kompileatzii oshibok ne daet jar file 5.55 K vse ok
|
(Offline)
|
|
31.03.2009, 14:52
|
#6
|
Нуждающийся
Регистрация: 07.03.2009
Сообщений: 98
Написано 3 полезных сообщений (для 3 пользователей)
|
Ответ: Не могу понять в чем ошибка
ты его бы запустил все смазивается
|
(Offline)
|
|
31.03.2009, 15:05
|
#7
|
Оператор ЭВМ
Регистрация: 27.11.2006
Сообщений: 28
Написано одно полезное сообщение
|
Re: Ответ: Не могу понять в чем ошибка
Сообщение от KAK? TAK!
ты его бы запустил все смазивается
|
a kak ia mogu zapustiti esli proect u tebea bez resursov : map.txt da eshe : play.png,man2.png,tile1.png ...... tam mnogo chevo nehvataet.
|
(Offline)
|
|
31.03.2009, 15:18
|
#8
|
Нуждающийся
Регистрация: 07.03.2009
Сообщений: 98
Написано 3 полезных сообщений (для 3 пользователей)
|
Ответ: Не могу понять в чем ошибка
лови
|
(Offline)
|
|
31.03.2009, 15:21
|
#9
|
Нуждающийся
Регистрация: 07.03.2009
Сообщений: 98
Написано 3 полезных сообщений (для 3 пользователей)
|
Ответ: Не могу понять в чем ошибка
и код
|
(Offline)
|
|
31.03.2009, 19:18
|
#10
|
ПроЭктировщик
Регистрация: 08.03.2009
Адрес: Saransk
Сообщений: 143
Написано 25 полезных сообщений (для 45 пользователей)
|
Ответ: Не могу понять в чем ошибка
ет че вообще такое? летающий дом? :D
а вообще в цикле прорисовки в самом начале добавь
setcolor(255,255,255);
fillrect(0, 0, getWidth, getHeight);
|
(Offline)
|
|
Сообщение было полезно следующим пользователям:
|
|
01.04.2009, 06:26
|
#11
|
Нуждающийся
Регистрация: 07.03.2009
Сообщений: 98
Написано 3 полезных сообщений (для 3 пользователей)
|
Ответ: Не могу понять в чем ошибка
добавил как литает так и летал
|
(Offline)
|
|
02.04.2009, 16:27
|
#12
|
Нуждающийся
Регистрация: 07.03.2009
Сообщений: 98
Написано 3 полезных сообщений (для 3 пользователей)
|
Ответ: Не могу понять в чем ошибка
спс продолжаю работать над проектом а так проект мерз пока это хрень была спс всем
Dj_Alex респект я эту срочку писал в начале а потом её убрал потому что гдето изза неё небыло вывода на экран
|
(Offline)
|
|
03.04.2009, 15:00
|
#13
|
Нуждающийся
Регистрация: 07.03.2009
Сообщений: 98
Написано 3 полезных сообщений (для 3 пользователей)
|
Ответ: Не могу понять в чем ошибка
нев версия
|
(Offline)
|
|
03.04.2009, 15:01
|
#14
|
Нуждающийся
Регистрация: 07.03.2009
Сообщений: 98
Написано 3 полезных сообщений (для 3 пользователей)
|
Ответ: Не могу понять в чем ошибка
добавил меню нев карту ну и текстуры те кто знает как организировать столкновение пишите
|
(Offline)
|
|
Ваши права в разделе
|
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения
HTML код Выкл.
|
|
|
Часовой пояс GMT +4, время: 20:32.
|