Function CreateArrow(x2,y2)
ar.arrow_=New arrow_
ar\x=x2
ar\y=y2
ar\angle=ATan2(MouseY()-y,MouseX()-x)+180
End Function
Function UpdateArrow()
For ar.arrow_=Each arrow_
ar\x=ar\x+Cos(ar\angle)*15
ar\y=ar\y+Sin(ar\angle)*15
DrawImage arrow1(Int(ar\angle)),ar\x,ar\y
If ar\x>R1 Or ar\x<0 Or ar\y>R2 Or ar\y<0
Delete ar
EndIf
Next
End Function
Почему-то, стрела летит в противоположную сторону от курсора. Если поменять "+Cos(ar\angle)*15" на "-" то полетит куда надо, вот только рисоваться тогда будет не той стороной
Можете подсказать что не так?
Также, нужны картинки лука, стрелы, копья, верстака, крабового мяса, сундука, двери. Всё кроме верстака 32х32, верстак 64х32. Заранее спасибо!
UPD
Всё проблема решена: просто перевернул картинку стрелы. Хотя, не ясно почему нужен минус, а не плюс.