аГА!! у меня получилось!!
Vint спсибо те за идею!!! Расцеловал бы
вот кароче така я фигня:
работает на одно нажатие тока кнопка 2 (вверх)
остальные срабатывают на непрерывное нажатие, но заменить их эт как делать нечего))
var
key:integer;
ScreenHeight,ScreenWidth:integer;
x,y,a4:integer;
keys:array[1..10]of boolean;//массив состояний клавиш
index:integer;//номер в массиве последней нажатой клавиши
begin
ScreenHeight := GetHeight;
ScreenWidth := GetWidth;
a4:=getImageHeight (loadImage('/man.png'));
repeat
key := getKeyPressed;
if (keys[2]=false) and (key =KE_KEY2) then
begin
y:=y-1;
keys[2]:=true;
end;
if key=ke_none then keys[2]:=false;
if key =KE_KEY4 then x:=x-1;
if key =KE_KEY6 then x:=x+1;
if key =KE_KEY8 then y:=y+1;
setcolor(255,255,255);
FillRect(0, 0, GetWidth, GetHeight);
drawImage(loadImage('/man.png'), x, y);
repaint;
delay(40);
until key = KE_KEY0 ;
end.
я думаю и с либовскими функциями будет работать, хотя чесн остаточно и стандартных, единственно что кнопки надо будет прописывать както под другому в отличие от цифер