Я сделпл чуть по другому, и всё равно не помогает. Кто нибудь напишите работающий код. Вот на основе этого:
Graphics 800,600,32,2
SetBuffer BackBuffer()
avv=LoadImage("3_1.bmp")
avs=LoadImage("4_2.bmp")
Type avi
Field x,y
Field life
Field img
End Type
Function aviacia()
;Создание игрока-человека
av_s.avi = New avi
av_s\life=100
av_s\x=360
av_s\y=500
av_s\img=avs
;Создание игрока-компа
SeedRnd MilliSecs()
For i= 0 To 9
av_v.avi = New avi
av_v\life=100
av_v\x=Rand(10,600)
av_v\y= Rand(20,250)
av_v\img=avv
Next
End Function
Repeat
Cls()
DrawImage (avv, av_v\x, av_v\y)
DrawImage (avs, av_s\x, av_s\y)
;######################
;Вправо
If KeyDown(205)
av_s\x = av_s\x +5
EndIf
;Влево
If KeyDown(203)
av_s\x = av_s\x -5
EndIf
;Верх
If KeyDown(200)
av_s\y = av_s\y -5
EndIf
;Вниз
If KeyDown(208)
If av_s\y<=520
av_s\y = av_s\y +5
EndIf
EndIf
;######################
Flip()
Until KeyDown(1)