{"author_name":"MrPhil","cat":"LD #13 - Roads - 2008","comments":[],"epoch":1228507320,"likes":0,"metadata":{"p_key":"74439","p_author":"MrPhil","p_authorkey":"165","p_urlkey":"110271","p_title":"Count Me In","p_cat":"LD #13 - Roads - 2008","p_event":"LD13","p_time":"1228507320","p_likes":"0","p_comments":"0","p_status":"UPD5","us_key":"165","us_name":"MrPhil","us_username":"mrphil","event_start":"1228435200","event_key":"92","event_name":"LD13"},"text":"

I’ve decided to enter again.\u00a0 This will be Ludum Dare number 4 for me.\u00a0 This time I’m planning to use BlitzMax<\/a> and Jake Birkett’s Grey Alien BlitzMax Game Framework<\/span><\/a>.\u00a0 Here is the basic setup code I’ll be using (if you follow the “Start Here” document this should be your result, except I added a try-catch around everything for unhandled exceptions):<\/span><\/p>\n

SuperStrict<\/p>\n

?Win32
\n Import “..\/include\/fullaccess.cpp”
\n Import “-ladvapi32”
\n ?<\/p>\n

‘Import various Mac OS API calls made in C.<\/p>\n

?MacOS
\n Import “..\/include\/GAGMacLib.m”
\n ?<\/p>\n

Include “..\/include\/commoncode.bmx”
\n Include “..\/include\/commontypes.bmx”<\/p>\n

Try<\/p>\n

ccCreateMutex(“BasicSetup”)<\/p>\n

AppTitle = “BasicSetup”<\/p>\n

ScreenWidth = 800
\n ScreenHeight = 600<\/p>\n

Game = New TGame
\n Game.SetSubPathWrapper(“Grey Alien Games\/Basic Setup”)
\n Game.Init()
\n Game.DebugDisplayX = 5
\n Game.DebugDisplayY = 95
\n Game.SetEscapeSound(“ButtonClick”)<\/p>\n

Global images:TImageBank = New TImageBank
\n images.SetPath(Game.ImagePath)
\n Global sounds:TSoundBank = New TSoundBank
\n sounds.SetPath(Game.SoundPath)<\/p>\n

‘Instance both types that we created
\n Global TitleScreen: TTitleScreen = New TTitleScreen
\n Global GameScreen: TGameScreen= New TGameScreen<\/p>\n

Game.GraphicsCreate() ‘Create a graphics context
\n HideMouse ‘hide the mouse
\n LoadData() ‘load data using a function we will define
\n ccFlushAll() ‘flush keys and mouse<\/p>\n

Local LoopExit:Int = 0 ‘boolean for exiting the main loop
\n Game.FixedRateLogic.Init()
\n Game.NoTimingTicks = 3 ‘only applied if Game.NoTiming=1<\/p>\n

Repeat
\n ‘do the logic separately from the drawing
\n If Game.MainLogicLoop() = -1 Then ShutDown()
\n ‘draw the screen and flip it to show it
\n Game.ScreenDraw()
\n Until LoopExit = 1
\n ShutDown()<\/p>\n

Function Shutdown()
\n Tgame.MakeGoodExit()
\n ShowMouse() ‘just in case it was hidden.
\n ‘Exit the program
\n End
\n End Function<\/p>\n

‘Instance both types that we created<\/p>\n

Function LoadData()
\n AutoMidHandle True
\n ccClsVSync()’Ensure clear screen when loading<\/p>\n

LoadSounds()
\n LoadImages()
\n TitleScreen.Load() ‘Call load method of TitleScreen
\n TitleScreen.Start() ‘Call start method of TitleScreen
\n ‘Now loading is complete, let the main loop handle the drawing
\n Game.CurrentTScreen = TitleScreen<\/p>\n

?Win32 ‘Has the app been suspended while loading? If so, deal with it.
\n If GetForegroundWindow()<>Game.WindowHandle
\n Game.SuspendedEvent = 1
\n EndIf
\n ?
\n End Function<\/p>\n

Function LoadSounds()
\n sounds.Load(“ButtonClick”) ‘load the sound “buttonclick”
\n End Function<\/p>\n

Function LoadImages()
\n Game.mouse.Load(“pointer”) ‘load mouse pointer image
\n images.Load(“Paused”) ‘Load “paused” graphic
\n ‘Create Paused sprite
\n Game.SpritePausedCreate(Images.Find(“Paused”))
\n End Function<\/p>\n

Type TTitleScreen Extends TScreen
\n Field x#,y#<\/p>\n

Method Load()
\n ‘this is a TScreen method
\n ImageLoad(“title.jpg”,FILTEREDIMAGE)
\n MidHandleImage(Image)
\n ‘this gets midhandled automatically
\n HeaderLoad(“logolarge”,screenwidth\/2,100)
\n Menu = TMenu.Create(“ButtonMO”, “ButtonClick”,0,0,10)
\n ‘Add a new Button
\n ‘Allow Space and Enter to trigger it
\n Menu.AddNew(“playgame”, “playgameMO”).OKButton = 1
\n Menu.AddNew(“exitgame”,”exitgameMO”)
\n Menu.Centre() ‘Center the Menu
\n ‘Move the Y position of the menu
\n Menu.SetY(Menu.Y+50)
\n End Method<\/p>\n

Method Start()
\n Super.Start() ‘Call Start method of base type TScreen
\n Game.GameFade.Init(FADE_SPEED,0) ‘fade in
\n Game.Mouse.On()
\n Game.FixedRateLogic.Init()
\n End Method<\/p>\n

Method Logic()
\n ‘Call the logic method of the base type
\n Super.Logic()
\n ‘If the start button is clicked, fade to the next screen
\n ‘and set that next screen to the GameScreen
\n If Menu.FindButton(“playgame”).Clicked Then
\n Game.GameFade.Init(FADE_SPEED,1,Game.MusicChannel, True)
\n Game.DestinationTScreen = GameScreen
\n EndIf<\/p>\n

‘If the exit button is clicked, fade the screen and exit
\n If Menu.FindButton(“exitgame”).Clicked Then
\n Game.GameFade.Init(FADE_SPEED,1,Game.MusicChannel, True)
\n Game.DestinationTScreen = Game.ExitScreen
\n EndIf
\n End Method<\/p>\n

Method Draw()
\n SetBlend SOLIDBLEND
\n ‘Image is a field of the base type TScreen
\n DrawImage(Image,screenwidth\/2+x,screenheight\/2+y)
\n SetBlend ALPHABLEND
\n Header.Draw() ‘Draw the logo that we loaded earlier
\n Menu.Draw() ‘Draw the Menu
\n End Method
\n End Type<\/p>\n

Type TGameScreen Extends TScreen<\/p>\n

Method Load()
\n ImageLoad(“bg1.jpg”)
\n HeaderLoad(“logosmall”,210,35)
\n End Method<\/p>\n

Method Start()
\n Super.Start()
\n Game.GameFade.Init(FADE_SPEED,0) ‘initiate fading
\n Game.Mouse.Off() ‘Turn the mouse off
\n Game.FixedRateLogic.Init()
\n End Method<\/p>\n

Method Logic()
\n Super.Logic() ‘handles menu core logic
\n End Method<\/p>\n

Method Draw()
\n Cls
\n SetBlend ALPHABLEND
\n DrawImage(image,0,0)
\n Header.Draw() ‘Draw the header
\n SetColor 255,255,255
\n ‘Draw instructional text
\n ccDrawTextCentre(“Press <esc> to Exit”,560,1)
\n End Method<\/p>\n

Method SetEscDestination() ‘over ride base type method
\n ‘if esc is pressed, go to the TitleScreen
\n Game.DestinationTScreen = TitleScreen
\n End Method
\n End Type<\/p>\n

Catch ex:Object<\/p>\n

Print “Unhandled exception:”
\n Print ex.ToString()<\/p>\n

End Try<\/p>\n \n

Tags: MrPhil<\/a><\/p>","time":"December 5th, 2008 3:02 pm","title":"Count Me In"}