diff options
Diffstat (limited to 'gametypes.bmx')
| -rw-r--r-- | gametypes.bmx | 86 |
1 files changed, 86 insertions, 0 deletions
diff --git a/gametypes.bmx b/gametypes.bmx new file mode 100644 index 0000000..afd9997 --- /dev/null +++ b/gametypes.bmx @@ -0,0 +1,86 @@ +' Missile Lock +' +' Copyright (C) 2006 Ian Cowburn (ianc@noddybox.co.uk) +' +' This program is free software; you can redistribute it and/or modify +' it under the terms of the GNU General Public License as published by +' the Free Software Foundation; either version 2 of the License, or +' (at your option) any later version. +' +' This program is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU General Public License for more details. +' +' You should have received a copy of the GNU General Public License +' along with this program; if not, write to the Free Software +' Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA +' +' ------------------------------------------------------------------------- +' +' $Id$ +' +Strict +Import "global.bmx" + +Type GameState + Global score:Int=0 + Global x:Double=0 + Global y:Double=0 + Global ang:Int=0 + Global shields:Int=0 + + Function Reset() + score=0 + x=0 + y=0 + ang=0 + shields=3 + End Function + + Function Display() + Local s:String="SHIELDS " + + For Local f:Int=1 To shields + s:+"~~" + Next + + GFX.font.Draw("SCORE",-400,-300) + GFX.font.Draw(Number.Format(score),-400,-284,255,255,0) + + GFX.font.Draw(s,-80,-300) + + GFX.font.DrawRight("HISCORE",399,-300) + GFX.font.DrawRight(Number.Format(GameConfig.hiscore),399,-284,255,255,0) + End Function +End Type + + +Type BackdropStar + Field x:Double + Field y:Double + Field r:Int + Field g:Int + Field b:Int + + Method New() + x=Rand(-400,400) + y=Rand(-400,400) + r=Rand(128,255) + g=Rand(128,255) + b=Rand(128,255) + End Method +End Type + + +Type Backdrop + Global s:BackdropStar[] + + Function Init() + s=New BackdropStar[400] + + For Local f:Int=0 To 399 + s[f]=New BackdropStar + Next + End Function +End Type |