I havn't given up. I just ran into a little problem with how to fire the bullets in the right direction. Now I have done a few tutorials and stuff got it all working. The thing is that now it uses code I didn't realy invent. Next time though I'll be able to write it from scratch(I think).
And I still have to learn sound and learn how to reset the game, and levals and the list just goes on. It will be done, someday.
Oh-Ya one more problem is I think I did my drawing wrong.
I have the graphics set to 800,600, and all the drawing was done by adding and subtracting from an 800,600 screen. So in debug mode it crawls along, and I am scared to try it in another graphics resolution. The code looks something like this...
And I still have to learn sound and learn how to reset the game, and levals and the list just goes on. It will be done, someday.
Oh-Ya one more problem is I think I did my drawing wrong.
I have the graphics set to 800,600, and all the drawing was done by adding and subtracting from an 800,600 screen. So in debug mode it crawls along, and I am scared to try it in another graphics resolution. The code looks something like this...
Global fillcolor.hud = New hud fillcolor\x = GraphicsWidth()-800 fillcolor\y = GraphicsHeight()-75 fillcolor\length = 800 fillcolor\height = 85 fillcolor\image = CreateImage(795,75) SetBuffer ImageBuffer(fillcolor\image) Color 10,15,70 Rect 0,0,fillcolor\length,fillcolor\height,1 Global fillcolor_side.hud = New hud fillcolor_side\x = GraphicsWidth()-160 fillcolor_side\y = GraphicsHeight()-675 fillcolor_side\length = 800 fillcolor_side\height = 600 fillcolor_side\image = CreateImage(fillcolor_side\length,fillcolor_side\height) SetBuffer ImageBuffer(fillcolor_side\image) Color 10,15,70 Rect 0,0,fillcolor_side\length,fillcolor_side\height,1 Global fillcolor_top.hud = New hud fillcolor_top\x = GraphicsWidth()-800 fillcolor_top\y = GraphicsHeight()-600 fillcolor_top\length = 800 fillcolor_top\height = 10 fillcolor_top\image = CreateImage(fillcolor_top\length,fillcolor_top\height) SetBuffer ImageBuffer(fillcolor_top\image) Color 10,15,70 Rect 0,0,fillcolor_top\length,fillcolor_top\height,1 Global fillcolor_left.hud = New hud fillcolor_left\x = GraphicsWidth()-800 fillcolor_left\y = GraphicsHeight()-600 fillcolor_left\length = 10 fillcolor_left\height = 600 fillcolor_left\image = CreateImage(fillcolor_left\length,fillcolor_left\height) SetBuffer ImageBuffer(fillcolor_left\image) Color 10,15,70 Rect 0,0,fillcolor_left\length,fillcolor_left\height,1