|
Знающий
Регистрация: 04.10.2008
Адрес: Киев
Сообщений: 230
Написано 3 полезных сообщений
(для 3 пользователей)
|
Painter
Вот я решил написать прогу для рисования на мобилке:
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 на мобе,оно не хочет рисовать!В чем проблема?Заранее спасибо! |
15.11.2008, 19:23
((((
