Weird crash problem - GameCreators Forum

Author

Message

Paronamixxe

AGK Bronze Backer

14

Years of Service

User Offline

Joined: 10th Feb 2012

Location: Sweden

Posted: 11th Aug 2013 14:59 Edited at: 11th Aug 2013 15:01

Link

Hi all! Working on a project and I've hit a snag. Basically, completely randomly, my game crashes every time a sub is run, however I cannot work out why? would be grateful if anyone could shed some light on this problem!

Anyway, I get an error report as follows:

+ Code Snippet

[COMMON]
PathToEXE=A:\DEV\Programs\The Game Creators\Projects\Mephisto\CrashOn_08_11_13.txt
[CEXE]
m_dwRuntimeErrorDWORD=Internal Code:12002
m_dwRuntimeErrorLineDWORD=548

... I have check up the line number in the temp file. And it refers to this sub:

+ Code Snippet

case 3:
            
                gosub _IMAGES_CURSOR
                gosub _IMAGES_LOAD_SHADER_IMAGES
                gosub _IMAGES_LOAD_HUD
                gosub _WORLD_LOAD //THIS ONE HERE!!!!!****
                gosub _CONTROL_LOAD_PLAYER
                gosub _WORLD_BUILD
                gosub _CONTROL_CAMERA_SETUP
                gosub _SHADERS_SETUP
                gosub _SHADERS_CREATE_SKY
                core = 4
                 
            endcase

I then obviously went to check this sub:

+ Code Snippet

_WORLD_LOAD:
    
    for i = 1 to INI_models_amount
        load object Models(i).Obj , Models(i).ID
        if Models(i).Texture = "null"
            else
                load image Models(i).Texture , Models(i).ID 
                texture object Models(i).ID , Models(i).ID
        endif
        if Models(i).Xrot = 0
            else
                xrotate object Models(i).ID , Models(i).Xrot
        endif
        SC_setupComplexObject Models(i).ID , 1 , 2
    next i

    set object transparency Models(15).iD , 6
    
return

... And I cannot find anything wrong?

Thanks in advance!

Mephisto - WIP

Back to top

Profile PM Email

Chris Tate

DBPro Master

17

Years of Service

User Offline

Joined: 29th Aug 2008

Location: London, England

Posted: 11th Aug 2013 15:28

Link

How comes the transparency command references model 15 and not I?

Back to top

Profile PM Email Website

Paronamixxe

AGK Bronze Backer

14

Years of Service

User Offline

Joined: 10th Feb 2012

Location: Sweden

Posted: 11th Aug 2013 16:48

Link

Since it is outside the "For i = " loop! I only want to change the transparency on that particular object.

Mephisto - WIP

Back to top

Profile PM Email

Chris Tate

DBPro Master

17

Years of Service

User Offline

Joined: 29th Aug 2008

Location: London, England

Posted: 11th Aug 2013 17:27 Edited at: 11th Aug 2013 17:33

Link

Duh!

Anyway,.. I cannot see what is stored in the variables at the moment of termination.

What happens when you compile with some of these lines commented out; does the error still occur? Who knows, perhaps Sparkys collision has an issue with a model file, or INI_models_amount is not what is supposed to be; or perhaps there is a constant with a similar name as a subroutine label.

Back to top

Profile PM Email Website

Paronamixxe

AGK Bronze Backer

14

Years of Service

User Offline

Joined: 10th Feb 2012

Location: Sweden

Posted: 11th Aug 2013 18:23

Link

I kind of sorted it out! ... XD Well, it was sparky's command which was causing the crash, which really isn't good news, I've been experimenting with some other solutions, however, I am having a lot of trouble setting up collision :/

I changed world load to this (just so I can test collision)

+ Code Snippet

_WORLD_LOAD:
    
    for i = 1 to INI_models_amount
        load object Models(i).Obj , Models(i).ID
        if Models(i).Texture = "null"
            else
                load image Models(i).Texture , Models(i).ID 
                texture object Models(i).ID , Models(i).ID
        endif
        if Models(i).Xrot = 0
            else
                xrotate object Models(i).ID , Models(i).Xrot
        endif
    next i

    SC_SetupComplexObject Models(6).ID , 1 , 2
    SC_UpdateObject Models(6).ID
    set object transparency Models(15).iD , 6
    
return

And I'm using code stolen from Comet's demo using sparky's plugin:

_CONTROL_CHARACTER:

CONTROL_KEY_W = 0
    CONTROL_KEY_A = 0
    CONTROL_KEY_D = 0
    CONTROL_SHIFT = 0
    CONTROL_CRTL = 0
    
    if keystate ( 17 ) = 1  or upkey ( ) = 1 //"W" - Up arrow
        CONTROL_KEY_W = 1
    endif
    if keystate ( 30 ) = 1 or leftkey ( ) = 1 //"A" - Left arrow
        CONTROL_KEY_A = 1
    endif
    if keystate ( 32 ) = 1 or rightkey ( ) = 1 //"D" - Right arrow
        CONTROL_KEY_D = 1
    endif
    if shiftkey ( ) = 1 then CONTROL_SHIFT = 1
    if controlkey ( ) = 1 then CONTROL_CTRL = 1
    
    if CONTROL_SHIFT = 0
        CONTROL_PLAYER_ANIM = 0
        if CONTROL_KEY_W = 1
            CONTROL_PLAYER_ANIM = 1
            move object Player , - 5
        endif
        if CONTROL_KEY_A = 1
            yrotate object player , object angle y ( Player ) - 3
            if CONTROL_KEY_W = 1 : CONTROL_PLAYER_ANIM = 1 : else : CONTROL_PLAYER_ANIM = 0 : endif
        endif
        if CONTROL_KEY_D = 1
            yrotate object player , object angle y ( Player ) + 3
            if CONTROL_KEY_W = 1 : CONTROL_PLAYER_ANIM = 1 : else : CONTROL_PLAYER_ANIM = 0 : endif
        endif
    else
        if CONTROL_KEY_W = 1
            CONTROL_PLAYER_ANIM = 2
            move object Player, - 20
        endif
        if CONTROL_KEY_A = 1
            yrotate object player , object angle y ( Player ) - 1.5
            if CONTROL_KEY_W = 1 : CONTROL_PLAYER_ANIM = 2 : else : CONTROL_PLAYER_ANIM = 0 : endif
        endif
        if CONTROL_KEY_D = 1
            yrotate object player , object angle y ( Player ) + 1.5
            if CONTROL_KEY_W = 1 : CONTROL_PLAYER_ANIM = 2 : else : CONTROL_PLAYER_ANIM = 0 : endif
        endif
    endif
    
    //Collision
    oldx# = object position x ( Player )
    oldz# = object position z ( Player )
    if spacekey()=1 and grav#=0.0 then grav#=jumppower#
    dec grav#,velocity#
    inc y#,grav#
    
    if SC_SphereSlide(Player,oldx#,0,oldz#,x#,y#,z#,3.5,0)
   
      x#=SC_GetCollisionSlideX()
      z#=SC_GetCollisionSlideZ()
      
      rem cast a ray to the ground to check if the player is touching the ground. If so, reset gravity
      if SC_RayCast(Player,x#,y#,z#,x#,y#-4,z#,0)
         grav#=0.0
      endif
      
      rem cast a ray to the roof to check if the player is touching the roof. If so, reset gravity
      if SC_RayCast(Player,x#,y#,z#,x#,y#+4,z#,0)
         grav#=0-velocity#
      endif
      
   endif
   
   rem update player positions
   position object player,x#,0,z#
    
return

+ Code Snippet

_CONTROL_CHARACTER:

    CONTROL_KEY_W = 0
    CONTROL_KEY_A = 0
    CONTROL_KEY_D = 0
    CONTROL_SHIFT = 0
    CONTROL_CRTL = 0
    
    if keystate ( 17 ) = 1  or upkey ( ) = 1 //"W" - Up arrow
        CONTROL_KEY_W = 1
    endif
    if keystate ( 30 ) = 1 or leftkey ( ) = 1 //"A" - Left arrow
        CONTROL_KEY_A = 1
    endif
    if keystate ( 32 ) = 1 or rightkey ( ) = 1 //"D" - Right arrow
        CONTROL_KEY_D = 1
    endif
    if shiftkey ( ) = 1 then CONTROL_SHIFT = 1
    if controlkey ( ) = 1 then CONTROL_CTRL = 1
    
    if CONTROL_SHIFT = 0
        CONTROL_PLAYER_ANIM = 0
        if CONTROL_KEY_W = 1
            CONTROL_PLAYER_ANIM = 1
            move object Player , - 5
        endif
        if CONTROL_KEY_A = 1
            yrotate object player , object angle y ( Player ) - 3
            if CONTROL_KEY_W = 1 : CONTROL_PLAYER_ANIM = 1 : else : CONTROL_PLAYER_ANIM = 0 : endif
        endif
        if CONTROL_KEY_D = 1
            yrotate object player , object angle y ( Player ) + 3
            if CONTROL_KEY_W = 1 : CONTROL_PLAYER_ANIM = 1 : else : CONTROL_PLAYER_ANIM = 0 : endif
        endif
    else
        if CONTROL_KEY_W = 1
            CONTROL_PLAYER_ANIM = 2
            move object Player, - 20
        endif
        if CONTROL_KEY_A = 1
            yrotate object player , object angle y ( Player ) - 1.5
            if CONTROL_KEY_W = 1 : CONTROL_PLAYER_ANIM = 2 : else : CONTROL_PLAYER_ANIM = 0 : endif
        endif
        if CONTROL_KEY_D = 1
            yrotate object player , object angle y ( Player ) + 1.5
            if CONTROL_KEY_W = 1 : CONTROL_PLAYER_ANIM = 2 : else : CONTROL_PLAYER_ANIM = 0 : endif
        endif
    endif
    
    //Collision
    oldx# = object position x ( Player )
    oldz# = object position z ( Player )
    if spacekey()=1 and grav#=0.0 then grav#=jumppower#
    dec grav#,velocity#
    inc y#,grav#
    
    if SC_SphereSlide(Player,oldx#,0,oldz#,x#,y#,z#,3.5,0)
   
      x#=SC_GetCollisionSlideX()
      z#=SC_GetCollisionSlideZ()
      
      rem cast a ray to the ground to check if the player is touching the ground. If so, reset gravity
      if SC_RayCast(Player,x#,y#,z#,x#,y#-4,z#,0)
         grav#=0.0
      endif
      
      rem cast a ray to the roof to check if the player is touching the roof. If so, reset gravity
      if SC_RayCast(Player,x#,y#,z#,x#,y#+4,z#,0)
         grav#=0-velocity#
      endif
      
   endif
   
   rem update player positions
   position object player,x#,0,z#
    
return

I set up my player like so:

+ Code Snippet

_CONTROL_LOAD_PLAYER:

    load object Characters(LOADED_SAVE_CHAR).Obj , Player
    Position object Player , 2000, 2 , 2000
    scale object Player , 250 , 250 , 250
    if LOADED_SAVE_CHARTEX = 1 then load image Characters(LOADED_SAVE_CHAR).Tex1 , Player
    if LOADED_SAVE_CHARTEX = 2 then load image Characters(LOADED_SAVE_CHAR).Tex2 , Player
    if LOADED_SAVE_CHARTEX = 3 then load image Characters(LOADED_SAVE_CHAR).Tex3 , Player
    texture object Player , Player
    SC_SetupComplexObject Player , 0 , 2
    SC_UpdateObject Player
    
return

But it does not work! HELP!

Mephisto - WIP

Back to top

Profile PM Email

Mage

Valued Member

19

Years of Service

User Offline

Joined: 3rd Feb 2007

Location:

Posted: 20th Aug 2013 09:20

Link

I was just gonna say before I read your last post. Usually crashes that occur without error messages are the result of plugins. Was gonna suggest Sparky's but I see you discovered it.

Also you seem to be using If Else a lot just for the purpose of using Else. You should use <> in place of the equal sign (greater than and less than operators). That way you can remove the else statements. It'll make the code look a bit cleaner.

There's some other symbols you can use to but I'm more familiar with Java, and C and I know DBP is a bit different.

Back to top

Profile PM

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Weird crash problem