Results 1 to 5 of 5

Thread: questions "shoot example" (tbgl)

  1. #1
    Senior Member Lionheart008's Avatar
    Join Date
    Sep 2008
    Location
    Germany, Bad Sooden-Allendorf
    Age
    51
    Posts
    934
    Rep Power
    109

    questions "shoot example" (tbgl)

    hello. I have some simple question about a simple shooter example. I used as basis the funshooter example (old one).

    a) how to set a front view for camera (I used entity template) and think it's the perspective view so I must changed laser shoot position (centre of cube)

    b) I wanted to rotate the playerX (here: cube with sphere in it) AND the weapon laser should follow him to shoot in all directions (linear)

    c) playerX/playerY modus is correct in my example? I don't think so...

    d) obstacle part isn't correct because of array dimensions (I will check it next time)

    e) "shoot" with "space" key, rotate with "left,right" keys (only for the beginning)

    my dummy example:
    ' The entity skeleton for TBGL
    ' , started on 06-12-2012 by frank brübach (lionheart)
    ' questions: 
    ' a) how To Set front view ? b) how To rotate playerX With laser weapon
    ' to shoot linear in every direction like playerX's rotation ?
    
    Uses "TBGL"
      
    Begin Const
      ' -- Scene IDs
      %sScene  = 1
     
      ' -- Entity IDs 
      %eCamera = 1
      %eLight  
      %eBox
      %eBox2
      %eSphere                
    End Const 
    
    
      ' Game statistics
      Dim Score As Long, Life As Long, GameOver As Long
      Dim PlayerX, PlayerY As Single
      ' Speed control
      Dim FrameRate As Double
      Life = 100
      %PLAYERSHIP = 1
    
      ' Lasers
      Type tLasers
        X     As Double
        Y     As Double
        Z     As Double
        S     As Double
      End Type
      %NUMLASERS = 10
      Dim Laser(%NUMLASERS) As tLasers
      Dim LaserIndex As Long
    
      ' Obstacles to shoot
      Type tObstacles
        X     As Double
        Y     As Double
        Z     As Double
        S     As Double  
      End Type
      %NUMOBSTACLES = 5
      Dim Obstacle(%NUMOBSTACLES) As tObstacles
    
    '----------- MAIN ----------
    Function TBMain() As Long
      Local hWnd As DWord, i As Long
      Local FrameRate As Double
      MsgBox 0, "shoot with <space> key, rotate <left>, <right> key"
      
      ' -- Create and show window
      hWnd = TBGL_CreateWindowEx("TBGL Shoot script 1a - press ESC to quit", 640, 480, 32, %TBGL_WS_WINDOWED Or %TBGL_WS_CLOSEBOX) 
      TBGL_ShowWindow 
    
      ' -- Create scene
      TBGL_SceneCreate(%sScene)
      
      ' -- Create basic entities
      ' -- Create camera to look from 15, 15, 15 to 0, 0, 0 
      TBGL_EntityCreateCamera(%sScene, %eCamera)
        TBGL_EntitySetPos(%sScene, %eCamera, 18, 18, 18)
        TBGL_EntitySetTargetPos(%sScene, %eCamera, 0, 0, 0)  
        ' perspective view ? - better to use front view into depth (z)
        
      ' -- Create point light  
      TBGL_EntityCreateLight(%sScene, %eLight)
        TBGL_EntitySetPos(%sScene, %eLight, 15, 10, 5)
    
      ' -- Create something to look at
      TBGL_EntityCreateBox(%sScene, %eBox+PlayerX, 0, 2, 2, 2, 0, 255, 0, 0)
        TBGL_EntitySetPos(%sScene, %eBox, -8, 1.7, 1.5)
    
      TBGL_EntityCreateBox(%sScene, %eBox2+PlayerY, 0, 6, 6, 6, 0, 0, 255, 0)
        TBGL_EntitySetPos(%sScene, %eBox2, 4, 0, 0)
      TBGL_EntityCreateSphere(%sScene, %eSphere, 0, 4, 255, 255, 0)
        TBGL_EntitySetPos(%sScene, %eSphere, 4, 0, 0) 
       For i = 1 To %NUMOBSTACLES
        initObstacle(i) 
      Next
    
      ' -- Resets status of all keys 
      TBGL_ResetKeyState() 
    
      ' -- Main loop
      While TBGL_IsWindow(hWnd) 
        FrameRate = TBGL_GetFrameRate
            
        TBGL_ClearFrame           
        
          TBGL_SceneRender(%sScene)
          RenderLasers
          'RenderObstacles ' doesn't work because of uncorrect initobstacles
          
        TBGL_DrawFrame 
     
        If TBGL_GetWindowKeyOnce( hWnd, %VK_SPACE) Then Shoot()
        If TBGL_GetWindowKeyState( hWnd, %VK_ESCAPE) Or GameOver = 1 Then Exit While
        
        If TBGL_GetWindowKeyState(hWnd, %VK_LEFT) Then
          TBGL_EntityTurn(%sScene, %eBox, 0,-90/FrameRate, 0)
          TBGL_EntityTurn(%sScene, %eBox, 0,0,-90/FrameRate)
        ElseIf TBGL_GetWindowKeyState(hWnd, %VK_RIGHT) Then
          TBGL_EntityTurn(%sScene, %eBox, 0, 90/FrameRate, 0)
          TBGL_EntityTurn(%sScene, %eBox, 0,0,90/FrameRate)
        End If    
    
        If TBGL_GetWindowKeyState(hWnd, %VK_LEFT) Then
          TBGL_EntityTurn(%sScene, %eBox2, 0,-90/FrameRate, 0)
        ElseIf TBGL_GetWindowKeyState(hWnd, %VK_RIGHT) Then
          TBGL_EntityTurn(%sScene, %eBox2, 0, 90/FrameRate, 0)
        End If
    
      Wend 
    
      TBGL_DestroyWindow
    End Function
    
      ' Lasers ' ok -------------------------------------------
      Function Shoot() As Long 
        Incr LaserIndex
        If LaserIndex > %NUMLASERS Then LaserIndex = 1
        Laser(LaserIndex).x = %eBox+PlayerX+6                 
        Laser(LaserIndex).y = %eBox2+PlayerY+1
        Laser(LaserIndex).z = 6'-1
        Laser(LaserIndex).s = 46'15 ' speed
    
      End Function
    
      'render laser ok ? ----------------
      Function RenderLasers() As Long
        Local i As Long, j As Long
        TBGL_Color 0,255,255
        TBGL_LineWidth 4    
        
        For i = 1 To %NUMLASERS
          If Laser(i).s = 0 Then Exit For              
          '--------- error with division, I took "60"
          Laser(i).x =Laser(i).x - Laser(i).s / 60 'FrameRate ''tbgl_GetFrameRate 
          '--------- error with division, I took "60"
          TBGL_PushMatrix       
            TBGL_Translate Laser(i).x-1.65, Laser(i).y-3.15, Laser(i).z-4.55
            'TBGL_Rotate 90,1,0,0
            TBGL_Rotate 90,0,1,0 'ok        
            TBGL_BeginPoly %GL_LINES
              TBGL_Vertex 0,0,0
              TBGL_Vertex 0,0,-2 
            TBGL_EndPoly
          TBGL_PopMatrix
          
          ' Very simple collison detection with the boxes
          For j = 1 To %NUMOBSTACLES
            If Laser(i).x < Obstacle(j).x+1 And Laser(i).x > Obstacle(j).x-1 And _
               Laser(i).z < Obstacle(j).z+1 And Laser(i).z > Obstacle(j).z-1 And _
               Laser(i).y < Obstacle(j).y+1 And Laser(i).y > Obstacle(j).y-1 Then
                 initObstacle(j)
                 Score = Score + 100
            End If
          Next 
        Next  
      End Function
    
    
    '############################################################################
    '---------------------------------------------------- obstacles not ok ------
    'Obstacles '' 
      Function InitObstacle( index As Long ) As Long   
          'Obstacle(index).x = Rnd(-2,2)
          'Obstacle(index).y = Rnd(-2,2)
          'Obstacle(index).z = Rnd(-10,+20)
          'Obstacle(index).s = Rnd(5,7)
      End Function
    
    
      Function RenderObstacles() As Long
        Local i As Long,hwnd As Long
          'TBGL_PolygonLook IIf(TBGL_GetWindowKeyState(hWnd, %VK_TAB), %GL_LINE, %GL_FILL)
    
        '---Script will run on different PCs so we must assure
        '---constant speed of movement by scaling movement relative to framerate
        'FrameRate = TBGL_GetFrameRate
    
        TBGL_Color 128,0,0  
    
        For i = 1 To %NUMOBSTACLES
          Obstacle(i).z = Obstacle(i).z + Obstacle(i).s / 60'FrameRate
    
          If Obstacle(i).z > 0 Then initObstacle(i)
    
          ' Very simple collison detection with the player
          If Obstacle(i).x < PlayerX+1 And Obstacle(i).x > PlayerX-1 And _
             Obstacle(i).y < PlayerY+1 And Obstacle(i).y > PlayerY-1 And _
             Obstacle(i).z > -2 Then
              
               initObstacle(i)
               Life = Life - 10
               If Life <= 0 Then GameOver = 1
          End If
          TBGL_PushMatrix      
            TBGL_Translate Obstacle(i).x, Obstacle(i).y, Obstacle(i).z
            TBGL_Rotate Timer*100,1,1,1
            TBGL_Box 1,1,1
          TBGL_PopMatrix
        Next 
        
      End Function  
      '############################################################################
    '---------------------------------------------------- obstacles not ok ------
    

    any help is welcome here. the idea is to shoot down some enemies (coming up from all directions in space) with one rotating playerX.

    best regards, frank
    Attached Images Attached Images
    Attached Files Attached Files
    you can't always get what you want, but if you try sometimes you might find, you get what you need

  2. #2
    Super Moderator Petr Schreiber's Avatar
    Join Date
    Aug 2005
    Location
    Brno - Czech Republic
    Posts
    7,128
    Rep Power
    732
    Hi Frank!,

    Front camera
    If you want first person camera on some object, you need to do it this way:
    • create the object (player)
    • create the camera and set the object as parent (something like: TBGL_EntityCreateCamera(%sScene, %eCamera, %eMyPlayerEntity))
    • set the camera position to some offset, otherwise it will be "inside player", you can use for example TBGL_EntitySetPos(%sScene, %eCamera, 0, 0, -10) to set camera watching the players back for start


    Making the lasers follow the player orientation
    In your code, you render scene using entities, and lasers via other technique - that can complicate the things a bit.
    The better approach would be to create lasers dynamically as entities. The best way is to create custom entity, as described here, or to shoot boxes for a start. The key is:
    • to generate id for each new shot use TBGL_EntityGetFreeID
    • to synchronize rotation of player and shot use TBGL_EntitySyncAxes


    Aaaa, so confusing!
    Written in steps, I would recommend:
    • create new tBasicU based on actor_object template, use this file to represent single laser shot
      • that means, after file is created, rename all occurences of <object> to for example "LaserShot"
      • you want the shot to appear at players position and heading the same direction, modify the _Create function to:
        • take player entity as parameter
        • after creation set the laser at players position and sync the axes

      • put the graphic code (tbgl_BeginPoly ... ) to LaserShot_Render, which will be predefined for you

    • in main code include the tBasicU file
    • when you want to shoot, just call LaserShot_Create(%sScene, %ePlayer)... yes, with custom entity it will be as simple as that
    • to make the camera follow the player direction of looking, set it the player as parent, push it a bit forward or backward as you need and that's it


    Petr
    Learn 3D graphics with ThinBASIC, learn TBGL!
    Windows 10 64bit - Intel Core i5-3350P @ 3.1GHz - 16 GB RAM - NVIDIA GeForce GTX 1050 Ti 4GB

  3. #3
    Senior Member Lionheart008's Avatar
    Join Date
    Sep 2008
    Location
    Germany, Bad Sooden-Allendorf
    Age
    51
    Posts
    934
    Rep Power
    109
    thank you petr for infos, but "tBasicU" is still too complicate for me at momement.

    what do you think about this setup ? one cube to rotate and move and you can shot with it... that's just an idea some minutes before and I like that..

    ' The entity skeleton for TBGL
    ' , started on 06-12-2012 by frank brübach (lionheart)
    ' - part two, 06-14-2012
    
    Uses "TBGL"
      
    Begin Const
      ' -- Scene IDs
      %sScene  = 1
     
      ' -- Entity IDs 
      %eCamera = 1
      %eLight  
      %eBox
      %eBox2
      %eSphere
      %ePlayerX
      %ePlayerY
    End Const 
    
      ' Game statistics
      Dim Score As Long, Life As Long, GameOver As Long
      Dim PlayerX, PlayerY As Single
      ' Speed control
      Dim FrameRate As Double
      Life = 100
      %PLAYERSHIP = 1
    
      ' Lasers
      Type tLasers
        X     As Double
        Y     As Double
        Z     As Double
        S     As Double
      End Type
      %NUMLASERS = 10
      Dim Laser(%NUMLASERS) As tLasers
      Dim LaserIndex As Long
    
      ' Obstacles to shoot
      Type tObstacles
        X     As Double
        Y     As Double
        Z     As Double
        S     As Double  
      End Type
      %NUMOBSTACLES = 5
      Dim Obstacle(%NUMOBSTACLES) As tObstacles
    
    '----------- MAIN ----------
    Function TBMain() As Long
      Local hWnd As DWord, i As Long
      Local FrameRate As Double
      MsgBox 0, "shoot with <space> key, rotate <left>, <right> move: <up> <down> key"
      
      ' -- Create and show window
      hWnd = TBGL_CreateWindowEx("TBGL Shoot script 1b_exp - press ESC to quit", 740, 580, 32, %TBGL_WS_WINDOWED Or %TBGL_WS_CLOSEBOX) 
      TBGL_ShowWindow 
    
      ' -- Create scene
      TBGL_SceneCreate(%sScene)
      
      ' -- Create basic entities
      ' -- Create camera to look from 15, 15, 15 to 0, 0, 0 
      TBGL_EntityCreateCamera(%sScene, %eCamera,%ePlayerX)
        TBGL_EntitySetPos(%sScene, %eCamera, 1, 1, -34)
        'TBGL_EntitySetTargetPos(%sScene, %eCamera,0,0,0)  
    
      TBGL_EntityCreateDLSlot(%sScene, %ePlayerX, 0, 0)
        TBGL_EntitySetPos(%sScene, %ePlayerX, 0, 0, 0)     
        
      TBGL_EntityCreateDLSlot(%sScene, %ePlayerY, 0, 0)
        TBGL_EntitySetPos(%sScene, %ePlayerY, 2, 1, 0)      
    
      ' -- Create point light  
      TBGL_EntityCreateLight(%sScene, %eLight)
         TBGL_EntitySetPos(%sScene, %eLight, 4, 10, -35)
         
      ' -- Create something to look at
      TBGL_EntityCreateBox(%sScene, %eBox, 0, 2, 2, 2, 0, 255, 0, 0)
        TBGL_EntitySetPos(%sScene, %eBox, 0, 0, 0)
         
     
       For i = 1 To %NUMOBSTACLES
        initObstacle(i) 
      Next
    
      ' -- Resets status of all keys 
      TBGL_ResetKeyState() 
    
      ' -- Main loop
      While TBGL_IsWindow(hWnd) 
        FrameRate = TBGL_GetFrameRate
            
        TBGL_ClearFrame           
        
          TBGL_SceneRender(%sScene)
          RenderLasers      
          
        TBGL_DrawFrame 
     
        If TBGL_GetWindowKeyOnce( hWnd, %VK_SPACE) Then Shoot()
        If TBGL_GetWindowKeyState( hWnd, %VK_ESCAPE) Or GameOver = 1 Then Exit While
        
        If TBGL_GetWindowKeyState(hWnd, %VK_LEFT) Then
          TBGL_EntityTurn(%sScene, %ePlayerX, 0,-90/FrameRate, 0)
          TBGL_EntityTurn(%sScene, %ePlayerX, 0,0, -90/FrameRate)
          
        ElseIf TBGL_GetWindowKeyState(hWnd, %VK_RIGHT) Then
          TBGL_EntityTurn(%sScene, %ePlayerX, 0,90/FrameRate, 0)
          TBGL_EntityTurn(%sScene, %ePlayerX, 0,0,90/FrameRate)      
        End If    
    
        If TBGL_GetWindowKeyState(hWnd, %VK_LEFT) Then
          TBGL_EntityTurn(%sScene, %eBox2, 0,-90/FrameRate, 0)
        ElseIf TBGL_GetWindowKeyState(hWnd, %VK_RIGHT) Then
          TBGL_EntityTurn(%sScene, %eBox2, 0, 90/FrameRate, 0)
        End If
        
            If TBGL_GetWindowKeyState( hWnd, %VK_UP) Then     
            TBGL_EntityPush(%sScene, %eBox2, 5/FrameRate,0, 0)      
            TBGL_EntityPush(%sScene, %ePlayerX, 5/FrameRate,0, 0)      
          End If
          If TBGL_GetWindowKeyState( hWnd, %VK_DOWN) Then     
            TBGL_EntityPush(%sScene, %eBox2, -5/FrameRate,0, 0)
            TBGL_EntityPush(%sScene, %ePlayerX, -5/FrameRate,0, 0)            
          End If
      Wend 
    
      TBGL_DestroyWindow
    End Function
    
      ' Lasers ' ok -------------------------------------------
      Function Shoot() As Long 
        Incr LaserIndex
        If LaserIndex > %NUMLASERS Then LaserIndex = 1
        Laser(LaserIndex).x = %ePlayerX-6
        Laser(LaserIndex).y = %ePlayerY-7
        Laser(LaserIndex).z = 0'-1
        Laser(LaserIndex).s = 15
      End Function
    
      'render laser ok ? ----------------
      Function RenderLasers() As Long
        Local i As Long, j As Long
        TBGL_Color 0,255,0
        TBGL_LineWidth 3
        
        For i = 1 To %NUMLASERS
          If Laser(i).s = 0 Then Exit For                  
          Laser(i).z = Laser(i).z + Laser(i).s / 60 'FrameRate ''tbgl_GetFrameRate 
          TBGL_PushMatrix       
            TBGL_Translate Laser(i).x, Laser(i).y, Laser(i).z        
            TBGL_BeginPoly %GL_LINES
              TBGL_Vertex 0,0,0
              TBGL_Vertex 0,0,-1 
            TBGL_EndPoly
          TBGL_PopMatrix
          
          ' Very simple collison detection with the boxes
          For j = 1 To %NUMOBSTACLES
            If Laser(i).x < Obstacle(j).x+1 And Laser(i).x > Obstacle(j).x-1 And _
               Laser(i).z < Obstacle(j).z+1 And Laser(i).z > Obstacle(j).z-1 And _
               Laser(i).y < Obstacle(j).y+1 And Laser(i).y > Obstacle(j).y-1 Then
                 initObstacle(j)
                 Score = Score + 100
            End If
          Next 
        Next  
      End Function
    
    '############################################################################
    '---------------------------------------------------- obstacles not ok ------
    'Obstacles '' 
      Function InitObstacle( index As Long ) As Long   
          'Obstacle(index).x = Rnd(-2,2)
          'Obstacle(index).y = Rnd(-2,2)
          'Obstacle(index).z = Rnd(-10,+20)
          'Obstacle(index).s = Rnd(5,7)
      End Function
    
    
      Function RenderObstacles() As Long
        Local i As Long,hwnd As Long
          'TBGL_PolygonLook IIf(TBGL_GetWindowKeyState(hWnd, %VK_TAB), %GL_LINE, %GL_FILL)
    
        '---Script will run on different PCs so we must assure
        '---constant speed of movement by scaling movement relative to framerate
        'FrameRate = TBGL_GetFrameRate
    
        TBGL_Color 128,0,0  
    
        For i = 1 To %NUMOBSTACLES
          Obstacle(i).z = Obstacle(i).z + Obstacle(i).s / 60'FrameRate
    
          If Obstacle(i).z > 0 Then initObstacle(i)
    
          ' Very simple collison detection with the player
          If Obstacle(i).x < PlayerX+1 And Obstacle(i).x > PlayerX-1 And _
             Obstacle(i).y < PlayerY+1 And Obstacle(i).y > PlayerY-1 And _
             Obstacle(i).z > -2 Then
              
               initObstacle(i)
               Life = Life - 10
               If Life <= 0 Then GameOver = 1
          End If
          TBGL_PushMatrix      
            TBGL_Translate Obstacle(i).x, Obstacle(i).y, Obstacle(i).z
            TBGL_Rotate Timer*100,1,1,1
            TBGL_Box 1,1,1
          TBGL_PopMatrix
        Next 
        
      End Function  
      '############################################################################
    '---------------------------------------------------- obstacles not ok ------
    
    thanks, frank
    Attached Images Attached Images
    Attached Files Attached Files
    you can't always get what you want, but if you try sometimes you might find, you get what you need

  4. #4
    Senior Member Lionheart008's Avatar
    Join Date
    Sep 2008
    Location
    Germany, Bad Sooden-Allendorf
    Age
    51
    Posts
    934
    Rep Power
    109
    @petr: I suppose the idea with box and player with same coordinates (position) wasn't very good because there's no feedback ?
    the tbgl actor-unit stuff I will check another time, I have some difficulties to grasp it at the moment (sorry, but that's true!).

    kind regards, frank
    Last edited by Lionheart008; 16-06-2012 at 09:47.
    you can't always get what you want, but if you try sometimes you might find, you get what you need

  5. #5
    Super Moderator Petr Schreiber's Avatar
    Join Date
    Aug 2005
    Location
    Brno - Czech Republic
    Posts
    7,128
    Rep Power
    732
    Hi Frank,

    there is no good/bad - you are the coder, whatever suits you best - use it
    I personally prefer the actor based units, because they are reusable in other project and keep the same structure.

    I think the time you invest to learn the principle pays back later in other projects.

    Fingers crossed for difficulty grasping


    Petr
    Last edited by Petr Schreiber; 16-06-2012 at 11:57.
    Learn 3D graphics with ThinBASIC, learn TBGL!
    Windows 10 64bit - Intel Core i5-3350P @ 3.1GHz - 16 GB RAM - NVIDIA GeForce GTX 1050 Ti 4GB

Similar Threads

  1. Forum: added "Auto Youtube Link-Converter" plugin
    By ErosOlmi in forum Web and Forum
    Replies: 0
    Last Post: 07-05-2011, 12:47
  2. thinBasic mentioned in "Webster's Quotations, Facts and Phrases"
    By Petr Schreiber in forum thinBasic where ...
    Replies: 0
    Last Post: 17-08-2010, 11:18
  3. Replies: 17
    Last Post: 21-02-2010, 07:45
  4. Uses "File", "Crypto" ... ???
    By marcuslee in forum thinBasic General
    Replies: 3
    Last Post: 01-12-2009, 19:38

Members who have read this thread: 0

There are no members to list at the moment.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •