Заделюсь кодом по теме:
unit trans;
interface
var key:integer;
procedure init;
procedure scr;
function getkey:integer;
implementation
uses sensor;
var x,y,xx,yy:integer;
butt:boolean;
ons:array[1..6] of image;
otp:boolean;
procedure init;
begin
sensor.init;
butt:=true;
ons[1]:=loadimage('/joy.png');
ons[2]:=loadimage('/joys.png');
ons[4]:=loadimage('/buu.png');
ons[5]:=loadimage('/men.png');
ons[6]:=loadimage('/slow.png');
end;
procedure scr;
begin
drawimage(ons[1],30,getheight-120);
if key=KE_KEY1 then drawimage(ons[2],35,getheight-115) else
if key=KE_KEY3 then drawimage(ons[2],60,getheight-115) else
if key=KE_KEY4 then drawimage(ons[2],30,getheight-102) else
if key=KE_KEY6 then drawimage(ons[2],66,getheight-102) else
drawimage(ons[2],48,getheight-102);
drawimage(ons[4],getwidth-62,getheight-64);
//drawimage(ons[5],5,0);
//drawimage(ons[6],getwidth-75,0);
end;
function getkey:integer;
begin
key:=0;
if pointer_state<>0 then begin
if (not otp) and (pointer_dragged_x<>0) and (pointer_dragged_x<>xx) then begin
x:=pointer_dragged_x;
y:=pointer_dragged_y; end else begin
x:=pointer_pressed_x;
y:=pointer_pressed_y; end;
otp:=false;
if (x>30) and (x<=75) and (y>getheight-120) and (y<=getheight-75) then key:=KE_KEY1 else
if (x>75) and (x<=120) and (y>getheight-120) and (y<=getheight-75) then key:=KE_KEY3 else
if (x>75) and (x<=120) and (y>getheight-75) and (y<=getheight-30) then key:=KE_KEY6 else
if (x>30) and (x<=75) and (y>getheight-75) and (y<=getheight-30) then key:=KE_KEY4 else
if (x>getwidth-62) and (x<=getwidth-17) and (y>getheight-62) and (y<=getheight-17) then key:=KE_KEY5 else
if (x<=80) and (y<=40) then key:=-6 else
if (x>getwidth-80) and (y<=40) then key:=KE_STAR;
end else key:=getkeypressed;
if key=0 then begin xx:=x; otp:=true; end;
getkey:=key;
end;
initialization
{ add initialization code here }
end.
И так, init - загрузка графики и инициализация либы.
scr - отрисовка джоя.
getkey - аналог getkeypressed.
Результат в игре такой:
З.Ы. могут быть лишние переменные, ибо часть функций обрезал прямо перед тем как код запостить сюда.