тогда что-то вроде этого.
hero1 = loadimage("hero.bmp")
hero2 = copyimage(hero1)
rotateimage hero2, 90
hero3 = copyimage(hero1)
rotateimage hero3, 180
hero4 = copyimage(hero1)
rotateimage hero4, 270
................
If KeyHit(200)
b=1
end if
If KeyHit(208)
b=3
end if
If KeyHit(205)
b=4
end if
If KeyHit(203)
b=2
end if
...................
select b
case 1
drawimage hero1,x,y
case 2
drawimage hero2,x,y
case 3
drawimage hero3,x,y
case 4
drawimage hero4,x,y
end select
потому что
RotateImage image,value#
Эта команда работает не достаточно быстро, чтобы выполнять вращение рисунка в режиме реального времени!
Цель этой команды состоит в том, чтобы повернуть изображение на указанный угол. Так как она работает медленно, Вы должны будете это сделать заранее, до того, как они будут выведены на экран.
|
у тебя не совсем реальное время, но поворачиваться будит не только герой же?)