Вот код, то что у меня получилось, немного не так как у вас, но по принцепу верхних статей. Хотя не то что я хотел. Там всего 1 карабль вместо 10-ти хотел
Graphics 800,600,32,2
;Генератор случайных чисел
SeedRnd(MilliSecs())
SetBuffer BackBuffer()
gal=LoadImage("galaxi.jpg"); Фон(галактика)
MaskImage gal ,0,0,0 ; Маска
;звёзы
star=LoadImage("fon.png");Звезды, движутся
star2=LoadImage("fon2.png");Звезды, движутся
avv=LoadImage("3_1.bmp");Aviacia Vrag
avs=LoadImage("4_2.bmp");Aviacia Souznik
plamia=LoadAnimImage("Fire.bmp",39,16,0,4)
Type avi ; Tip Aviacia
Field x,y
Field life
Field fire
Field id
End Type
Global av_s.avi
Global av_v.avi
;Создание игрока-человека
av_s.avi = New avi
;Начальное значение очков
av_s\life=100
;позиция
av_s\x=360
av_s\y=500
Function creat_av_v() ;img,life,x,y,id
;Создание игрока-компа
av_v.avi = New avi
;Начальное значение очков
av_v\life=100
;Позиция
;av_v\fire=creat_av_v()
For i = 1 To 10
av_v\id=i
av_v\x=Rnd(10,600)
av_v\y= Rnd(20,250)
Next
End Function
creat_av_v()
Repeat
Cls()
DrawImage (gal, 0, 0);Позиция галактики
TileImage star,0,qq:qq=qq- -3
TileImage star2,0,hh:hh=hh- -1
DrawImage (avv, av_v\x, av_v\y,av_v\id=i)
DrawImage (avs, av_s\x, av_s\y)
;##################
If KeyDown(2)
av_v\id=1
av_v\x = av_v\x +5
EndIf
If KeyDown(3)
av_v\id=2
av_v\x = av_v\x -5
EndIf
;######################
;Вправо
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)