K. Let me just run upstairs.

Edit: How much code?

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...

Okay

Nice screenie!!!!
I +1ed

hm, if anyone's interested, I can post some code for a possible implementation of a rotation movement engine, something like the one in Base 671 (look in my sig)

Cool yeah.

Okay, so basically you have a variable representing how much your character has rotated. I'll use F. You have two variables for position, X and Y, and two variables for direction, D and E. And you have a jump table (just a bunch of data organized in an optimized way) stored in GDB1.

.jump table goes here
Data(-3r,0r,-2r,-1r,-1r,-2r,0r,-3r,1r,-2r,2r,-1r,3r,0r,2r,1r,1r,2r,0r,3r,-1r,2r,-2r,1r)->GDB1

.vars
.facing left (0)
0->F
.start at 10,10
10->X->Y
.not moving
0->D->E

.let's get this party started
Repeat getkey(15)

.2nd moves forward
If getkey(54)
X+D->X
Y+E->Y
End

.Alpha moves backward
If getkey(48)
X-D->X
Y-E->Y
End

.turning right
If getkey(3)
F++
If F>11
0->F
End
End

.turning left
If getkey(2)
F--
If F<<0
11->F
End
End

.put the directions from the jump table into D and E
{F*2+GDB1}->D
{F*2+1+GDB1}->E

.draw the dude
ClrDraw
.who is a circle
Circle(X,Y,2)
.(a small circle)

.draw a tail
Line(X,Y,X-(D*3),Y-(E*3))

Dispgraph

End

That should work. If you want to make your own sprite table so your character isn't just a circle, you can draw some sprites and put a pointer to the start of the data in, let's say, Pic1, and you can use this:

Pt-On(X-4,Y-4,F*8+Pic1

(it's X-4,Y-4 and not X,Y because you want to center the sprite)

I don't think I could use rotation for this project, though.