[Atomikc]

Значит, есть у меня авианосец, и на нём 3 турели. У каждой турели 7 анимаций (Взависимости от угла их поворота). Лень было мудиться с вращением . Из каждой турельки вылетают пули. И я нашёл баг. При определённом угле стрельбы не равном 90 градусов вылетает по 2, затем по 3 итд. пули. Помогите кто чем может.
Если стоит не MouseDown(1) а Mousehit(1) то такой проблем не возникает. Но каждый раз нажимат кнопку мышы очень неудобно.
вот код

.....
Type pula
    Field xp#,yp#
    Field image
    Field frame
    Field ide
End Type
......
deletpula =0
Repeat
Cls

If MouseDown(1)
deletpula =1
For id=0 To 2
pula.pula=New pula
pula\xp=100
pula\yp=200
pula\image=LoadAnimImage("pul.png",17,17,0,2)
pula\frame= 3
pula\ide= id

If id=0
pula\xp=pula\xp-32
pula\yp=pula\yp-37
EndIf
If id=1
pula\xp=pula\xp+11
pula\yp=pula\yp-41
EndIf
If id=2
pula\xp=pula\xp+55
pula\yp=pula\yp-44
EndIf

If ka=0 Then pula\frame=0
If ka=1 Then pula\frame=1

If ka=0 Then vx=-10
If ka=1 Then vx=-7.8

If ka=0 Then vy=-5
If ka=1 Then vy=-8
Next

EndIf

For pula.pula = Each pula   
pula\yp=pula\yp+vy
pula\xp=pula\xp+vx
  If pula\yp <= 30
        Delete pula
        deletpula =0
    Else    
    DrawImage(pula\image, pula\xp, pula\yp,pula\frame)

    EndIf
Next