компилируется,но не пашет(

[carmageddonist]

program mymap;
var
map:array[0..19,0..19] of integer;
key:integer;
res : resource;
x:integer;
y:integer;
pic:array [0..5] of image;
i:integer;
j:integer;
kx,ky:integer;
player : array [0..3] of image;
dir : integer;
speed : integer;
begin
SetColor(0,0,0);
DrawImage(LoadImage('/dector.png'), 0, 0);
repaint;
delay(3000);
speed := 2;
res := OpenResource('/map.txt');
for i := 0 to 3 do
begin
player[i] := imagefromimage(LoadImage('/ter_skin1.png'),27 * i,0,27,27);
end;
for j := 0 to 5 do
begin
pic[j] := imagefromimage(LoadImage('/map.png'),32 * j,0,32,32);
end;
dir := 0;
X := 50;
Y := 50;
for ky := 0 to 19 do
begin
for kx := 0 to 19 do
begin
map[kx,ky] := StringToInteger(GetChar(ReadLine(res),kx));
end;
end;
CloseResource(res);
repeat
FillRect(0, 0, GetWidth, GetHeight);
key := GetKeyPressed;
if key = KE_KEY6 then
begin
dir := 0;
X := X + SPEED;
end; else
if key = KE_KEY8 then
begin
dir := 1;
Y := Y + SPEED;
end; else
if key = KE_KEY4 then
begin
dir := 2;
X := X - SPEED;
end; else
if key = KE_KEY2 then
begin
dir := 3;
Y := Y - SPEED;
end;
for ky := 0 to 19 do
begin
for kx := 0 to 19 do
begin
if map[kx,ky] = 1 then
DrawImage(pic[2],kx*32 - x,ky*32 - y);
end;
end;
DrawImage(player[dir],GetWidth/2-16,GetHeight/2-16);
repaint;
delay(200);
until key = KE_KEY0;
end.

[Piligrim]

im := LoadImage('/ter_skin1.png');
for i := 0 to 3 do begin
	player[i] := imagefromimage(im,27 * i,0,27,27);
end;
im := LoadImage('/map.png');
for j := 0 to 5 do begin
	pic[j] := imagefromimage(im,32 * j,0,32,32);
end; 
dir := 0; 
X := 50; 
Y := 50;
res := OpenResource('/map.txt'); 
for ky := 0 to 9 do begin
	line := ReadLine(res);
	for kx := 0 to 19 do begin
		map[kx,ky] := StringToInteger(GetChar(line,kx));
	end;
end;
CloseResource(res);

а если так то все классно работает.
немного аккуратности. Сток в файле map.txt 10 а цикл на 20
да еще внутри 20 на каждую.
с удвольствием погоняю в эту игру. Похоже надо сокеты написать. по сети будет весело

[carmageddonist]

боюсь не скоро сделаю(
надо на оригинальный ява переходить(
всёравно не павшет

[carmageddonist]

дай свою прогу и кряк
а то у мя незарегин
мона в этом дело?

[impersonalis]

Правила: http://www.boolean.name/faq.php

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

icq юзайте

[carmageddonist]

for ky := 0 to 19 do
begin
for kx := 0 to 19 do
begin
map[kx,ky] := StringToInteger(GetChar(ReadLine(res),kx));
end;
end;


ктонибудь,
обьясните мне,новичку,почему здесь труба виснет?
Я вродь видел статью,что нелицензионной чёто с ресурсами...



и как сделать чтоб прозрачные png рисовались с прозрачностью?

[carmageddonist]

я вродь понял
мне нужон FW.class

(версия 2.0.2)

[Piligrim]

Версия 2.02 свободная для некоммерческого использования.
Твой цикл не работает т.к. ты ReadLine при каждом чтении GetChar делаешь, а надо один раз на всю строку. Посмотри внимательно мой предыдущий пост.

[carmageddonist]

извини
я цитату не ту сделал
я то понял
но у мя почемуто телефон(и эмулятор) виснети при readline

[carmageddonist]

я думаю на j2me перейти)
можа там будет лучше)

[Piligrim]

на j2me бесспорно лучше, если его знаешь
МР виснет на ReadLine еще и если количество строк в файле ресурсов меньше того что ты пытаешься прочитать.
Люди делают последнюю строку END или #end# например и проверяют это.
ЗЫ: на МР уже написаны неплохие игры

[carmageddonist]

МР виснет на ReadLine еще и если количество строк в файле ресурсов меньше того что ты пытаешься прочитать.

не помогло
я видать очень туп

дай ссылки на j2me и усё что надо дабы его постичь

[carmageddonist]

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

[dermeg]

Надо с сетевой игрой, делать!!!! На сокетах, через gprs. Вот только где эти сокеты взять, уже вторую неделю ищу, нигде нет. Может кто поможет.

[Piligrim]

уговорили. будут сокеты.