Graphics 640, 480, 16, 2 SetBuffer BackBuffer() Type Bullet ; Bullet type Field A, R# ; Angle and Radius End Type ; Create Ship Local S_A1 = 0, S_A2 = 90, S_A3 = 180 ; Ships 3 Points (Angles) While Not KeyDown(1) ; Render Bullets For b.Bullet = Each Bullet Color 255, 255, 0: Rect b\R * Cos(b\A) + 320, b\R * Sin(b\A) + 240, 1, 1, 1 b\R = b\R + 1 If b\R >= 250 Then Delete b Next ; Render Ship Color 255, 255, 255 Line (10 * Cos(S_A1)) + 320, (10 * Sin(S_A1)) + 240, (10 * Cos(S_A2)) + 320, (10 * Sin(S_A2)) + 240 Line (10 * Cos(S_A2)) + 320, (10 * Sin(S_A2)) + 240, (10 * Cos(S_A3)) + 320, (10 * Sin(S_A3)) + 240 Line (10 * Cos(S_A3)) + 320, (10 * Sin(S_A3)) + 240, (10 * Cos(S_A1)) + 320, (10 * Sin(S_A1)) + 240 If KeyDown(203) Then S_A1 = S_A1 - 3: S_A2 = S_A2 - 3: S_A3 = S_A3 - 3 ; Turn Left If KeyDown(205) Then S_A1 = S_A1 + 3: S_A2 = S_A2 + 3: S_A3 = S_A3 + 3 ; Turn Right If KeyHit(57) Then ; Create Bullet on Spacebar press b.Bullet = New Bullet b\A = S_A2: b\R = 10 EndIf Flip: Cls Wend: End