2219
« on: November 07, 2011, 06:39:12 pm »
I think this is everything that is relevant to the bullets
:55→S→T
:8→O
:2→I
:For(V,0,I)
:0→{V*5+L5}
:0→{V*5+L5+3}
:End
:.Main Loop
:Repeat getKey(25)
:.All the other getkeys
:If getKey(54)
:If T=S
:For(V,0,I)
:!If {V*5+L5}
:1→{V*5+L5}
:0→T
:Goto X
:End
:End
:End
:End
:Lbl X
:If R
:Pt-On(X,Y,L*8+Pic1)
:Else
:Pt-On(X,Y,FlipH(L*8+Pic1)
:End
:For(V,0,I)
:If {V*5+L5}=1
:X+4→{V*5+L5+1}
:Y+1→{V*5+L5+2}
:Pt-On({V*5+L5+1},{V*5+L5+2},Pic2
:1→{V*5+L5+3}
:2→{V*5+L5}
:R→{V*5+L5+4}
:End
:End
:For(V,0,I)
:If {V*5+L5+3}
:If {V*5+L5+4}
:{V*5+L5+1}++
:Else
:{V*5+L5+1}--
:End
:Pt-On({V*5+L5+1},{V*5+L5+2},Pic2)
:End
:End
:For(V,0,I)
:If {V*5+L5+1}=1 or {V*5+L5+1}>90
:sub(SET)
:Goto I
:Lbl SET
:0→{V*5+L5}→{V*5+L5+3}+100→{V*5+L5+1}→{V*5+L5+2}
:Return
:Lbl I
:End
:End
:.Stuff
:If T<S
:T++
:End
:. Collision below
:For(V,0,I)
:For(P,0,C)
:If {P*3+L2+2}
:If abs({V*5+L5+1}-{P*2+L1})<6
:If abs({V*5+L5+2}-{P*2+L1+1})<6
:{P*3+L2}-O→{P*3+L2}
:sub(SET)
:End
:End
:End
:. Other stuff including enemy death code
:DispGraph
:End
Works fine except for the random bullet at the beginning....
And occasional enemy invincibility...
Show Posts
