Painter

[Mark Castle]

Вот я решил написать прогу для рисования на мобилке:

program Painter;
const
fieldX=100;
fieldY=80;
var
pole,act,bomb,jizn,level,black,white,gray,yellow,blue:image;
x,y,a,b,c,d,e,f,g,h,key,fg,fh:integer;
i,j,k,l,p,u,o,r,t:integer;
color:string;
procedure q;
begin
setcolor(255,0,0);
fillrect(a,b,10,10);
end;
begin
pole:=LoadImage('/pole.png');
act:=LoadImage('/act.png');
bomb:=loadImage('/bomb.png');
black:=loadImage('/black.png');
white:=loadImage('/white.png');
gray:=loadImage('/gray.png');
yellow:=loadImage('/yellow.png');
a:=10;
b:=40;
j:=90;
k:=0;
l:=100;
p:=0;
u:=90;
o:=10;
r:=100;
t:=10;
fg:=a;
fh:=b;
begin
SetColor(255,255,255);
FillRect(0,0,GetWidth,GetHeight);
DrawImage(LoadImage('/zagl.png'),35,30);
DrawImage(LoadImage('/zagl1.png'),50,65);
repaint;
delay(3000);
end;

                     repeat
                     
                     SetColor(231,211,154);
                     FillRect(0,0,GetWidth,GetHeight);
                     FillRect(10,70,10,10);
                     DrawImage(pole,0,0);
                     DrawImage(pole,10,0);
                     DrawImage(pole,20,0);
                     DrawImage(pole,30,0);
                     DrawImage(pole,40,0);
                     DrawImage(pole,50,0);
                     
                     DrawImage(pole,0,10);
                     DrawImage(pole,0,20);
                     DrawImage(pole,0,30);
                     DrawImage(pole,0,40);
                     DrawImage(pole,0,50);
                      
                     DrawImage(pole,10,10);
                     DrawImage(pole,20,10);
                     DrawImage(pole,30,10);
                     DrawImage(pole,40,10);
                     DrawImage(pole,50,10);
                     
                     DrawImage(pole,10,20);
                     DrawImage(pole,20,20);
                     DrawImage(pole,30,20);
                     DrawImage(pole,40,20);
                     DrawImage(pole,50,20);
                     
                     DrawImage(pole,10,30);
                     DrawImage(pole,20,30);
                     DrawImage(pole,30,30);
                     DrawImage(pole,40,30);
                     DrawImage(pole,50,30);
                     
                     DrawImage(pole,10,40);
                     DrawImage(pole,20,40);
                     DrawImage(pole,30,40);
                     DrawImage(pole,40,40);
                     DrawImage(pole,50,40);
                     
                     DrawImage(pole,10,50);
                     DrawImage(pole,20,50);
                     DrawImage(pole,30,50);
                     DrawImage(pole,40,50);
                     DrawImage(pole,50,50);
                     
                     DrawImage(pole,0,60);
                     DrawImage(pole,10,60);
                     DrawImage(pole,20,60);
                     DrawImage(pole,30,60);
                     DrawImage(pole,40,60);
                     DrawImage(pole,50,60);
                     
                     DrawImage(pole,60,0);
                     DrawImage(pole,60,10);
                     DrawImage(pole,60,20);
                     DrawImage(pole,60,30);
                     DrawImage(pole,60,40);
                     DrawImage(pole,60,50);
                     DrawImage(pole,60,60);
                     
                     DrawImage(pole,0,70);
                     DrawImage(pole,10,70);
                     DrawImage(pole,20,70);
                     DrawImage(pole,30,70);
                     DrawImage(pole,40,70);
                     DrawImage(pole,50,70);
                     DrawImage(pole,60,70);
                     
                     DrawImage(pole,70,0);
                     DrawImage(pole,70,10);
                     DrawImage(pole,70,20);
                     DrawImage(pole,70,30);
                     DrawImage(pole,70,40);
                     DrawImage(pole,70,50);
                     DrawImage(pole,70,60);
                     DrawImage(pole,70,70);
                     
                     DrawImage(pole,80,0);
                     DrawImage(pole,80,10);
                     DrawImage(pole,80,20);
                     DrawImage(pole,80,30);
                     DrawImage(pole,80,40);
                     DrawImage(pole,80,50);
                     DrawImage(pole,80,60);
                     DrawImage(pole,80,70);
                     
                     DrawImage(pole,0,80);
                     DrawImage(pole,10,80);
                     DrawImage(pole,20,80);
                     DrawImage(pole,30,80);
                     DrawImage(pole,40,80);
                     DrawImage(pole,50,80);
                     DrawImage(pole,60,80);
                     DrawImage(pole,70,80);
                     DrawImage(pole,80,80);
                   
                     
                     DrawImage(black,j,k);
                     DrawImage(white,l,p);
                     DrawImage(gray,u,o);
                     DrawImage(yellow,r,t);
                     DrawImage(LoadImage('/darkgreen.png'),90,20);
                     DrawImage(LoadImage('/green.png'),100,20);
                     DrawImage(LoadImage('/narrow.png'),90,30);
                     DrawImage(LoadImage('/blue.png'),100,30);
                     DrawImage(LoadImage('/orange.png'),90,40);
                     DrawImage(LoadImage('/lightblue.png'),100,40);
                     
                     DrawImage(act,a,b);
                     
                     key:=keyToAction(getKeyClicked);
                     if (key=GA_LEFT) then a:=a-10;
                     if (key=GA_RIGHT) then a:=a+10;
                     if (key=GA_UP) then b:=b-10;
                     if (key=GA_DOWN) then b:=b+10;
                     
                     if(key=GA_FIRE) then 
                     begin 
                     setcolor(255,0,0);
                     fillrect(fg,fh,10,10);
                     end;
                     if (a<0) then a:=0;
                     if (b<0) then b:=0;
                     if (a>fieldX) then a:=fieldX;
                     if (b>fieldY) then b:=fieldY;//j,k,l,p,u,o,r,t;
                     
                      
                     
                     if (key=GA_FIRE) and (a=j) and (b=k) then 
                                                  begin
                                                  SetColor(0,0,0);
                                                  a:=0;
                                                  b:=0;
                                                  end;   
                     if (key=GA_FIRE) and (a=l) and (b=p) then 
                                                  begin
                                                  SetColor(255,255,255);
                                                  a:=0;
                                                  b:=0;
                                                  end;   
                     if (key=GA_FIRE) and (a=u) and (b=o) then 
                                                  begin
                                                  SetColor(192,192,192);
                                                  a:=0;
                                                  b:=0;
                                                  end;       
                     if (key=GA_FIRE) and (a=r) and (b=t) then 
                                                  begin
                                                  SetColor(255,255,0);
                                                  a:=0;
                                                  b:=0;
                                                  end;           
                     if (key=GA_FIRE) and (a=90) and (b=20) then 
                                                  begin
                                                  SetColor(50,126,67);
                                                  a:=0;
                                                  b:=0;
                                                  end;      
                     if (key=GA_FIRE) and (a=100) and (b=20) then 
                                                  begin
                                                  SetColor(81,227,111);
                                                  a:=0;
                                                  b:=0;
                                                  end;   
                 
                 
                     repaint;
                     delay(10);
                     until key=KE_KEY0;
                     
end. 


Так вот вроде все классно,только когда нажимаю 5 на мобе,оно не хочет рисовать!В чем проблема?Заранее спасибо!

[beZ_probleM]

чего не упростил фсё через цыкл For? зачем так много кода?
И шо ты вообще хочешь нарисовать там? я так и не понял....
попробуй написать алгоритм словами то шо ты хош делать и проверь так ли код сложен... =)

[Mark Castle]

Сообщение от beZ_probleM

чего не упростил фсё через цыкл For? зачем так много кода?
И шо ты вообще хочешь нарисовать там? я так и не понял....
попробуй написать алгоритм словами то шо ты хош делать и проверь так ли код сложен... =)

короче,я по точкам рисую иконку для мидлет игры,а потом её уменьшаю.
но оно почему-то не рисует точки...

[beZ_probleM]

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

[Mark Castle]

Сообщение от beZ_probleM

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

да((((