- if getasynckeystate(vk_up) <> 0 then
- begin
- my_x := my_x-0.4*sin(degtorad(rot))*timefactor;
- my_y := my_y+0.4*cos(degtorad(rot))*timefactor;
- end;
- if getasynckeystate(vk_down) <> 0 then
- begin
- my_x := my_x+0.4*sin(degtorad(rot))*timefactor;
- my_y := my_y-0.4*cos(degtorad(rot))*timefactor;
- end;