ok igy oldottak meg:


screentosphere(mouse.x, mouse.y, mv_csomagtarto, mh_csomagtarto);
sub(mh_csomagtarto, mh_csomagtarto, -150);
div(mh_csomagtarto, mh_csomagtarto, 40);

mul(framepos, mh_csomagtarto, 10);
roundval(framepos);

if(lastframepos == null, copy(lastframepos,framepos));

sub(framemove, framepos, lastframepos);
copy(lastframepos,framepos);

set(rotatedirection, left);
if(framemove LT 0, mul(framemove,framemove,-1); set(rotatedirection, right); );

if(mbdown_csomagtarto,
if(framemove != 0,
if(rotatedirection == left,
dec(doorframe,get(framemove),1,1);
showdoorframe(get(doorframe));
,
inc(doorframe,get(framemove),10,10);
showdoorframe(get(doorframe));
);
);

delayedcall(0.01,movedoor_csomagtarto());
);