Hi Omnimaga Community,
I'm working on my first Axe prog. I started it as the Axe example AXESDEMO
and added a shoot and pause feature, but there is some trouble by
storing new shoots into into L1 (savesscreen).
ClrDraw
DrawInv
For(A,0,63
sub(D
End
L1->B
For(H,0,29
0->{B+H}
End
ClrHome
43->X
Repeat XøX
sub(D
sub(U
DispGraph
sub(U
If getKey(2) and (Xø1
X-1->X
End
If getKey(3) and (Xø87
X+1->X
End
If getKey(54) and (T=0
For(H,1,9
!If {B+3*H}
1->{B+3*H}
X->{B-1+3*H}
55->{B-2+3*H}
15->T
Goto G
End
End
End
Lbl G
T=0+T-1->T
For(H,1,9)
If {B+H*3}
{B-2+H*3}-1->{B-2+H*3}
!If {B-2+H*3}
0->{B+3*H}
End
End
End
If getKey(55)
Fix 3
Text(37,19,"Pause
Text(20,26,"ENTER) CONTINUE
Text(27,33,"CLEAR) QUIT
Repeat getKey(9)
If getKey(15)
Goto Z
End
End
End
End
ClrDraw
ClrHome
Return
Lbl D
Vertical +
If rand^16
Pxl-Off(rand^96,1
End
Return
Lbl U
Pt-Change(X,55,Pic1
For(H,1,9)
If {B+H*3}
Pt-Change({B-1+H*3},{B-2+H*3},Pic2)
End
End
Return
Lbl Z
Fix 0What happened:

Does anyone know where my mistake is?
Regards,
Aichi

Yeah, it's really tiny

Nice screenshot, though.

@ _player1537
Better?

@ Deep Thought
It would be nicer, if the shoots on the screenshot do not activate by themself.

Edit:
@ quidgetx
The shoots will be deleted, if position y of a shoot reaches 0 (On start of Lbl G).
But Im wondering about the main problem: The shoots appear without shooting (getkey=54) and move back one pixel on X per frame.

ok looked at it a bit more closely but this
!If {B+3*H}
1->{B+3*H}
X->{B-1+3*H}
55->{B-2+3*H}
is the same as
!If {B+3*H}
1->{B+3*H}
X->{B+2*H}
55->{B+1*H}
remember, Axe does order of operations left to right, ignoring conventional algebra styles.

What I think you want is
!If {H*3+B}
1->{H*3+B}
X->{H*3+B-1}
55->{H*3+B-2}

Teehee, everyone is copying me   I made something very similar   And with the same method of having bullets on or off

Looks very nice so far ^^  G'luck

I put the 'H*3' to the front and that solved the problems.
Thank you guys!

And that is a sweet screenie

Looks like a nice screenie.  Good luck.