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

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.

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

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

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

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

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

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

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

Правила: http://www.boolean.name/faq.php
icq юзайте ;)

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

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 рисовались с прозрачностью?

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

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

(версия 2.0.2)

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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