AirDogs 1942, a TBDI sample game

   thinBasic web site
   What's new
   thinBasic help
   On Facebook
  
   Scripts repository
  
   Downloads
    - Stable version
  
   MIRROR SERVERs
    - Italy
    - US
  
   File repository

1 Spider, 4 Guests, 1 User
Bagamut
Google spider

[Michael Hartlef]

Hi folks,

after 3 weeks part time work, I proud to show off a little 2 player game.

I have to say thank you to Petr Schreiber for providing the TopDown3D
sources as they helped a lot during the development.

The game is called AirDogs 1942 and is a WW2 dogfighting game. It's not 100% finished
but allready fun to play. My son and I enjoy it very much.

The controls are simple:

JoyY to go faster or slower, or UP and Down
JoyX to turn
Button 1 to shot
Button 2 to select

If no joystick is connected, you ADWS and space    or LEFT,RIGHT,UP,DOWN,L

Once the bundle functionality is working again, I will create an exe for it.

Like allways, comments are welcome.

Take care
Michael

EDIT on June 7th, 2008: Updated the code with bug fixes and singler player code by Petr Schreiber. Also the menu buttons have a better size now so the FPS isn't dropping down anymore.

[Petr Schreiber]

Mike,

this is perfect !
Finally my joypad got some use

Really good, nice and clean look ... fantastic !

I tried to use my PC steering wheel and joypad to control planes and it worked perfectly.


Good work!,
Petr

[Michael Hartlef]

Steering wheel, not that is something. Thanks for the nice words. 

[Eros Olmi]

  FANTASTIC !
Thanks a lot to you for this astonishing example and for your new TBDI module. Tell me when you will be ready for official release.
Also a big thanks to your son, that I imagine he was your beta tester  ;D

I will play with my son too and will give you back impressions.

A big  :-*

[Michael Hartlef]

I can tell you, he had a blast.

The game isn't 100% finished because I was suffering from headaches and neckpains a lot this week. But the publisher made me releasing it.  ;D

I will work further on it, as I have some ideas.

Single player mode, different planes, options, maaaayyyyybe network playing.

It's a simple game but you can do a lot with it.

[Eros Olmi]

It's a simple game but you can do a lot with it.

Well, not so simple. All is present: presentation, interface, multiple controllers plus keyboards, graphics, sprites, sounds. An impressive job, Mike.
Code is perfectly organized, clear. A joy to have a look for study purposes.

[Petr Schreiber]

Mike,

I hope my work on new TBGL will go ok as till now,
when released, it will simplify even more whole source of AirDogs

Just after playing Airdogs I finished attaching camera to entity which was making problems before,
so your game has brainhealing efffect too


Bye,
Petr

[Michael Hartlef]

Code is perfectly organized, clear. A joy to have a look for study purposes.

That was another goal I had. Writing a playable game in that short period and still having a codebase that is reusable and readable. Overall I put around 30-40 hours into it. It also helped me to figure out how fast and far I could come in a given timeframe.

has brainhealing efffect too

I'm glad I could help out here.  I can't wait till you release it.

[kent sarikaya]

Thanks Mike, as Eros said, you did a complete job, I really liked it from start to finish. A beautiful splashscreen, a nice menu, sound, sprites, action, and scenery, plus wide support of input. Excellent, thanks so much for the hard work and release!!!

[Michael Hartlef]

You're welcome.

[Eros Olmi]

Mike,

I had some time today to test AirDogs 1942 game.
I tested on my laptop that has no any DI devices so consider it a non ideal situation. Here my observations:

• if I change
    dim xRes               as long = 640
    dim yRes               as long = 480
  to
    dim xRes               as long = 1024
    dim yRes               as long =  768
  initial menu is not centered (or redimensioned). The same happen if TBGL window is redimensioned at runtime by manual operation.
  
  
• if TBGL window is redimensione at runtime while paying game (let say you start from 640x480 and than make TBGL bigger) the new game playground is not considered by planes that continue to see previous logical size.
  
  
• Using up/down arrows while in initial menu takes more than 2 second to to move current active menu. Maybe it can me related to the fact I've no DI devices. While inside RenderMenu function I get only 1 FPS.
  
  

I will test more maybe this evening when home. I will have joystick.

Ciao
Eros

[Michael Hartlef]

1) The game is not ment to be played at bigger resolutions.
2) Because of the lag, could it be that you have vertical sync off?

[Eros Olmi]

All other TBGL scripts run as expected at big FPS.

Also AirDogs 1942 works as expected once inside the game. It is just the menu that has this problem. As soon as I'm inside the game, it is perfect!

[Eros Olmi]

I limited the problematic part. If I comment the following commented part in RenderMenu function all run at high speed.

Code

...
      tbgl_PushMatrix      
        tbgl_Translate 320, 100, 0
        for j = 1 to 5
          if j = actmenu then
            tbgl_Color 255,255,255
          else
            tbgl_color 200,200,200
          end if
'          tbgl_BindTexture %mnplate+j    ' Sets texture #1 as actual
'          tbgl_BeginPoly %GL_QUADS
'            tbgl_TexCoord2D 0, 0
'            tbgl_Vertex -64, -20+j*46, 0
 
'            tbgl_TexCoord2D 1, 0      
'            tbgl_Vertex  64, -20+j*46, 0
'        
'            tbgl_TexCoord2D 1, 1      
'            tbgl_Vertex  64,  20+j*46, 0
'        
'            tbgl_TexCoord2D 0, 1      
'            tbgl_Vertex -64,  20+j*46, 0
'          tbgl_EndPoly        
        next
      tbgl_PopMatrix
      TBGL_ResetMatrix
      tbgl_drawframe
...
 

But of course menu items are not on screen.

Going home now. I will test more later.

Ciao
Eros

[Petr Schreiber]

Eros,

1 FPS is a bit scary.
Such a low FPS you should not get even in case OpenGL falls to software mode on your dual core monster.
Try to comment out TBDI commands, maybe some device lags it ? ( but this is highly unprobable ).

Here is slightly more optimized ( still not to maxx ) RenderMenu procedure:

Code

  '*-------------------------------------------------------*
  '*                       drawMenu                        *
  '*-------------------------------------------------------*
  sub RenderMenu()
    local pressed as long
    local jx as long
 
    pressed = %FALSE
 
    tbgl_GetAsyncKeyState(-1)    ' Resets keys status before checking
 
    tbgl_UseAlphaTest 1
    tbgl_AlphaFunc %tbGL_GREATER, 0.5
    tbgl_UseDepth 0       ' No depth - it's useless for smokes, it will look better without it
    tbgl_Uselighting 0    ' No light
    tbgl_usetexture 1     ' Texturing on
 
    while IsWindow(hWnd)
 
      'FPSCount = TBGL_GetFramerate 'help_CalcFramerate
 
      ' *******************************
      ' *     RENDERING THE SCENE     *
      ' *******************************  
      tbgl_RenderMatrix2D   
      tbgl_ClearFrame
 
      tbgl_BindTexture %mnPlate    ' Sets texture #1 as actual
 
      tbgl_PushMatrix      
        tbgl_backColor 0, 67,171   
        tbgl_Color 255,255,255
        tbgl_Translate 320, 240, 0
 
        ' We will map player texture to square polygon
 
        tbgl_BeginPoly %GL_QUADS
          tbgl_TexCoord2D 0, 0
          tbgl_Vertex -128, -128, 0
 
          tbgl_TexCoord2D 1, 0      
          tbgl_Vertex  128, -128, 0
 
          tbgl_TexCoord2D 1, 1      
          tbgl_Vertex  128,  128, 0
 
          tbgl_TexCoord2D 0, 1      
          tbgl_Vertex -128,  128, 0
        tbgl_EndPoly        
 
      tbgl_PopMatrix
 
      tbgl_PushMatrix      
        tbgl_Translate 320, 100, 0
        for j = 1 to 5
          if j = actmenu then
            tbgl_Color 255,255,255
          else
            tbgl_color 200,200,200
          end if
          tbgl_BindTexture %mnplate+j    ' Sets texture #1 as actual
          tbgl_BeginPoly %GL_QUADS
            tbgl_TexCoord2D 0, 0
            tbgl_Vertex -64, -20+j*46
 
            tbgl_TexCoord2D 1, 0      
            tbgl_Vertex  64, -20+j*46
 
            tbgl_TexCoord2D 1, 1      
            tbgl_Vertex  64,  20+j*46
 
            tbgl_TexCoord2D 0, 1      
            tbgl_Vertex -64,  20+j*46
          tbgl_EndPoly        
        next
      tbgl_PopMatrix
 
      tbgl_drawframe
 
      if tbgl_getwindowkeyonce(hWnd,%VK_DOWN) THEN actmenu = actmenu - 1
      if tbgl_getwindowkeyonce(hWnd,%VK_UP) THEN actmenu = actmenu + 1
 
      jx = tbdi_joyY(0)
      if Pressed = %TRUE and jx > -10 and jx < 10 then
        pressed = %FALSE
      end if
      if Pressed = %FALSE and jx < -10 then
        pressed = %TRUE
        actmenu = actmenu + 1
      end if
      if Pressed = %FALSE and jx > 10 then
        pressed = %TRUE
        actmenu = actmenu - 1
      end if
 
      If actmenu = 6 then actmenu = 1
      If actmenu = 0 then actmenu = 5
      if TBDI_JoyButton(0,2) <> 0 then exit while
      if GetAsyncKeyState(%VK_RETURN) THEN exit while  
    wend
 
  end sub
 

This code runs 400 FPS on my PC with onboard GeForce 6150, your Radeon is much faster !


Bye,
Petr

[Tags:]

Jump to: Please select a destination: ----------------------------- General community ----------------------------- => Shout Box Area => General ===> Events ===> PCOPY! ===> Development ===> 3rd party library ===> Science ===> Technology ===> Search engines ===> Software discussion ===> Gaming ===> Other programming languages =====> C / C++ =====> Free Basic =====> Free Pascal =====> Power Basic =======> Power Basic tools and resources =======> Power Basic specific boards =========> Power Basic OpenGL =========> Power Basic and DBMS =========> Power Basic COM =======> Power Basic sources =====> Pure Basic =====> ScriptBasic =====> Scripting ===> Security => Announcements ===> thinBasic Beta testing ===> Server, web site and Forum updates ===> vBulletin new forum updates => ThinBasic Journal ===> Suggest new articles => thinStudio ===> thinGaming Scoring web site ===> CM contest 2009 =====> Media =====> Code ----------------------------- User projects ----------------------------- => User files and/or user projects ===> T.A.B. (ThinBasic Adventure Builder) ----------------------------- thinBasic (the language) ----------------------------- => General ===> Polls ===> Installation ===> Help Material =====> Fixed or cleared errors in help material ===> YouTube ===> Challenge ===> thinBasic development blog ===> thinBasic vaporware :D ===> thinBasic where ... => Modules specific issues ===> Suggest new module ===> BIFF ===> CGI and FastCGI ===> COM ===> COMM (Serial communication module) ===> Console =====> Console: source code examples for beginners =====> Console: advanced source code examples ===> Core module ===> Dictionary module ===> DT (Date module) ===> Eval ===> EXE ===> File ===> iComplex ===> INet ===> INI ===> Irrlicht ===> LAN ===> ODBC ===> OS ===> Statistics Module ===> TBASS ===> Tcp/Udp module ===> TImage ===> Tokenizer ===> UI (User Interface) module ===> VBRegExp ===> Win API interface ===> WMI => Sources, Templates, Code Snipets, Tips & Tricks, Do you know ... ===> Do you know ... ===> thinBasic tutorials =====> General purpose scripts =====> Execution speed tests =====> Files and directories handling =====> Internet related scripts =====> Math scripts =======> Eval =====> Tips & Tricks =====> User Interface scripts ===> Samples for help file ===> Templates ===> Real world situations and solutions using thinBasic =====> Project: 3D Warehouse ===> Math: all about => Suggest new features ===> New features: Developed or solved => Bug report ===> Fixed or cleared bug reports ===> thinBasic Beta testing suggestions or bug reports ----------------------------- thinAir (the IDE) ----------------------------- => thinAir General ===> thinAir Tips and Tricks ===> thinAir CodeTips/CodeSense => thinAir Suggest new features ===> thinAir new features developed => thinAir Bug report ===> thinAir Fixed or Cleared Bug report => Alternative IDEs ----------------------------- thinTools ----------------------------- => thinSVN => thinDebug => thinBundle ===> thinBundle suggest new features ===> thinBundle bugs report => thinBasic SDK ===> Basic language SDK development =====> Module SDK (Power Basic version) =====> Module SDK (Freebasic version) ===> Turbo Delphi language SDK development ===> C/C++ language SDK development =====> Module SDK (Microsoft C /C++) =======> MSVC++ 6.0 =======> MSVC .NET =====> Module SDK (Borland C /C++) =====> Module SDK (GCC C /C++) ===> Other languages SDK development =====> Module SDK (MASM32 assembler) => User tools => 3rd party tools ----------------------------- User modules (the user developed modules expansions) ----------------------------- => TBGL module by Petr Schreiber ===> TBGL General ===> TBGL Bonus Pack ===> TBGL Bonus Pack Pro ===> TBGL Suggest new features ===> TBGL Bug Report ===> TBGL Scripts and Projects =====> TBGL Random Trees =====> TBGL Robot duel =====> TBGL Labyrinth =====> Top Down 3D =======> Game general =======> Game story and Character Development =======> Game executable =======> Game sources =======> Media material =======> Bugs handling =====> TBGL ScreenSavers =====> TBGL Gui projects =====> TBGL nmg_tankwars =====> TBGL Arkanoid ===> TBGL Modelling, 3D, other SW integration ===> M15 file format ===> Resources ===> TBGL Tutorials =====> ThinBASIC programming in OpenGL/TBGL ===> TBGL Font Creator => TBDI module. thinBasic Direct Input integration by MikeHart ===> TBDI Bug report => TBEM module - thinBasic Event Manager module => O2 JIT Compiler / Assembler ===> O2h Compiler ===> Machine Code =====> Machine Code references =====> Machine Code: script sources and examples ===> Programs ===> Legacy => Experimental modules or library interface ===> AStar - (A Star) path-finding algorithm ===> ODE - Open Dynamics Engine ===> OpenCL ===> tb_graphx ===> TBCDL Collision Dection Library ===> TBTIL Texture Image Library ----------------------------- Utilities working with thinBasic ----------------------------- => Tray Agent