ну код от spy4433 имеет смысл т.к направление задается по углу
осталось только пошевелить "МОЗГОМ",а как будешь задавать этот угл неважно от мыши или от клавиш, а может от джостика
я так полагаю в итоге должно получится управление как в crimsonland?
if keyhit(UP) then
speedy#=-1
endif
playery#=playery#+speedy#
speedy=speedy*0.99