Function doesn't seem to do what it's suppose too o.O

Author

Message

Mudbud Productions

15

Years of Service

User Offline

Joined: 1st May 2011

Location: Cloud 9

Posted: 14th May 2012 06:36

Link

Hey I have been working with 3D modelling and trying to get cars working with dark physics but this function I made which, is suppose to collect limb information and output it to a file, isn't doing anything.

FUNCTION GetObjectInfo(id)
    IF OBJECT EXIST(id)
    limbN = 1 ` Limb should be body
    LimbCount = 0
        WHILE LIMB EXIST(id, limbN) = 0
            INC LimbCount, 1     
            INC limbN, 1       
        ENDWHILE
        
         GLOBAL DIM LimbData#(LimbCount, 17) `Each Limb has 18 slots for data to be in
         GLOBAL DIM LimbName$(LimbCount) ` Names of the limbs
         GLOBAL DIM ObjectData(7) ` Object Data
         
        FOR i = 1 TO LimbCount
            FOR ii = 1 TO 17
                LimbData#(i, ii) = LIMB VISIBLE(id, i)             
                INC ii
                
                LimbData#(i, ii) = LIMB OFFSET X(id, i)
                INC ii
                
                LimbData#(i, ii) = LIMB OFFSET Y(id, i)
                INC ii
                
                LimbData#(i, ii) = LIMB OFFSET Z(id, i)
                INC ii
                
                LimbData#(i, ii) = LIMB SCALE X(id, i)
                INC ii
                
                LimbData#(i, ii) = LIMB SCALE Y(id, i)
                INC ii
                
                LimbData#(i, ii) = LIMB SCALE Z(id, i)
                INC ii
                
                LimbData#(i, ii) = LIMB ANGLE X(id, i)
                INC ii
                
                LimbData#(i, ii) = LIMB ANGLE Y(id, i)
                INC ii
                
                LimbData#(i, ii) = LIMB ANGLE Z(id, i)
                INC ii
                
                LimbData#(i, ii) = LIMB DIRECTION X(id, i)
                INC ii
                
                LimbData#(i, ii) = LIMB DIRECTION Y(id, i)
                INC ii
                
                LimbData#(i, ii) = LIMB DIRECTION Z(id, i)
                INC ii
                
                LimbData#(i, ii) = LIMB POSITION X(id, i)
                INC ii
                
                LimbData#(i, ii) = LIMB POSITION Y(id, i)
                INC ii
                
                LimbData#(i, ii) = LIMB POSITION Z(id, i)
            NEXT ii                                  
        NEXT i
        
        FOR i = 1 TO LimbCount
            LimbName$(i) = LIMB NAME$(id, i)
        NEXT i

OPEN TO WRITE 1, "ObjectInfo.txt"
        FOR i = 1 TO LimbCount
            FOR ii = 1 TO 17
                WRITE STRING 1, "NAME: " + LimbName$(i)
                WRITE STRING 1, "LIMB DATA: " + STR$(LimbData#(i, ii))                        
            NEXT ii
        NEXT i
    CLOSE FILE 1            
    ENDIF
ENDFUNCTION

+ Code Snippet

FUNCTION GetObjectInfo(id)
    IF OBJECT EXIST(id)
    limbN = 1 ` Limb should be body
    LimbCount = 0
        WHILE LIMB EXIST(id, limbN) = 0
            INC LimbCount, 1     
            INC limbN, 1       
        ENDWHILE
        
         GLOBAL DIM LimbData#(LimbCount, 17) `Each Limb has 18 slots for data to be in
         GLOBAL DIM LimbName$(LimbCount) ` Names of the limbs
         GLOBAL DIM ObjectData(7) ` Object Data
         
        FOR i = 1 TO LimbCount
            FOR ii = 1 TO 17
                LimbData#(i, ii) = LIMB VISIBLE(id, i)             
                INC ii
                
                LimbData#(i, ii) = LIMB OFFSET X(id, i)
                INC ii
                
                LimbData#(i, ii) = LIMB OFFSET Y(id, i)
                INC ii
                
                LimbData#(i, ii) = LIMB OFFSET Z(id, i)
                INC ii
                
                LimbData#(i, ii) = LIMB SCALE X(id, i)
                INC ii
                
                LimbData#(i, ii) = LIMB SCALE Y(id, i)
                INC ii
                
                LimbData#(i, ii) = LIMB SCALE Z(id, i)
                INC ii
                
                LimbData#(i, ii) = LIMB ANGLE X(id, i)
                INC ii
                
                LimbData#(i, ii) = LIMB ANGLE Y(id, i)
                INC ii
                
                LimbData#(i, ii) = LIMB ANGLE Z(id, i)
                INC ii
                
                LimbData#(i, ii) = LIMB DIRECTION X(id, i)
                INC ii
                
                LimbData#(i, ii) = LIMB DIRECTION Y(id, i)
                INC ii
                
                LimbData#(i, ii) = LIMB DIRECTION Z(id, i)
                INC ii
                
                LimbData#(i, ii) = LIMB POSITION X(id, i)
                INC ii
                
                LimbData#(i, ii) = LIMB POSITION Y(id, i)
                INC ii
                
                LimbData#(i, ii) = LIMB POSITION Z(id, i)
            NEXT ii                                  
        NEXT i
        
        FOR i = 1 TO LimbCount
            LimbName$(i) = LIMB NAME$(id, i)
        NEXT i

        OPEN TO WRITE 1, "ObjectInfo.txt"
        FOR i = 1 TO LimbCount
            FOR ii = 1 TO 17
                WRITE STRING 1, "NAME: " + LimbName$(i)
                WRITE STRING 1, "LIMB DATA: " + STR$(LimbData#(i, ii))                        
            NEXT ii
        NEXT i
    CLOSE FILE 1            
    ENDIF
ENDFUNCTION

So I put in an object ID as the perimeter, then it checks if that object ID is valid. If it is then it checks how many limbs are in the object, then creates an array that holds each limb, and some information per limb, so limb 1 has 17 slots, for positions, angles, etc. Each command is a float so I initialized the array as a float aswell. It even creates a file like it's suppose to. But nothing is put in... I don't see why.

I've debugged it with putting models I know have limbs in them, like the beach buggy. So it should have output into the file in this order:

limbname
Limbdata
..
...
....

etc

But nothing is written.

If someone could help me find the error and/ test the function I would be ever grateful. Thanks

Back to top

Profile PM

MrValentine

AGK Backer

15

Years of Service

User Offline

Joined: 5th Dec 2010

Playing: FFVII

Posted: 14th May 2012 09:49 Edited at: 14th May 2012 10:29

Link

As far as I know and remember that file ["ObjectInfo.txt"] must be checked for existence, and then be deleted ... so you MUST perform a check for its existence then delete and then open to write...

please confirm this

EDIT

Here is what I did and yup does not write anything...

Rem Project: FORUM CODE TESTING 1
Rem Created: Monday, May 14, 2012

Rem ***** Main Source File *****
SYNC ON:SYNC RATE 30

LOAD OBJECT ".\media\H-Tank 2.x",1
GetObjectInfo(1)
do
    perform checklist for object limbs 1
        for c=1 to checklist quantity()
            print checklist string$(c)
            wait 1000
            sync
        next c
    `GetObjectInfo(1)
    sync
LOOP

FUNCTION GetObjectInfo(id)
    IF OBJECT EXIST(id)
    limbN = 1 ` Limb should be body
    LimbCount = 0
        WHILE LIMB EXIST(id, limbN) = 0
            INC LimbCount, 1     
            INC limbN, 1       
        ENDWHILE
        
         GLOBAL DIM LimbData#(LimbCount, 17) `Each Limb has 18 slots for data to be in
         GLOBAL DIM LimbName$(LimbCount) ` Names of the limbs
         GLOBAL DIM ObjectData(7) ` Object Data
         
        FOR i = 1 TO LimbCount
            FOR ii = 1 TO 17
                LimbData#(i, ii) = LIMB VISIBLE(id, i)             
                INC ii
                
                LimbData#(i, ii) = LIMB OFFSET X(id, i)
                INC ii
                
                LimbData#(i, ii) = LIMB OFFSET Y(id, i)
                INC ii
                
                LimbData#(i, ii) = LIMB OFFSET Z(id, i)
                INC ii
                
                LimbData#(i, ii) = LIMB SCALE X(id, i)
                INC ii
                
                LimbData#(i, ii) = LIMB SCALE Y(id, i)
                INC ii
                
                LimbData#(i, ii) = LIMB SCALE Z(id, i)
                INC ii
                
                LimbData#(i, ii) = LIMB ANGLE X(id, i)
                INC ii
                
                LimbData#(i, ii) = LIMB ANGLE Y(id, i)
                INC ii
                
                LimbData#(i, ii) = LIMB ANGLE Z(id, i)
                INC ii
                
                LimbData#(i, ii) = LIMB DIRECTION X(id, i)
                INC ii
                
                LimbData#(i, ii) = LIMB DIRECTION Y(id, i)
                INC ii
                
                LimbData#(i, ii) = LIMB DIRECTION Z(id, i)
                INC ii
                
                LimbData#(i, ii) = LIMB POSITION X(id, i)
                INC ii
                
                LimbData#(i, ii) = LIMB POSITION Y(id, i)
                INC ii
                
                LimbData#(i, ii) = LIMB POSITION Z(id, i)
            NEXT ii                                  
        NEXT i
        
        FOR i = 1 TO LimbCount
            LimbName$(i) = LIMB NAME$(id, i)
        NEXT i

` it is best practice to do this first...
        if FILE EXIST ("ObjectInfo.txt")
        DELETE FILE "ObjectInfo.txt"
        endif

OPEN TO WRITE 1, "ObjectInfo.txt"
        ` I added this string to see whether the file was being written to and it is...
        WRITE STRING 1, "TESTING"
        FOR i = 1 TO LimbCount
            FOR ii = 1 TO 17
                WRITE STRING 1, "NAME: " + LimbName$(i)
                WRITE STRING 1, "LIMB DATA: " + STR$(LimbData#(i, ii))                        
            NEXT ii
        NEXT i
    CLOSE FILE 1
    ENDIF
ENDFUNCTION

+ Code Snippet

Rem Project: FORUM CODE TESTING 1
Rem Created: Monday, May 14, 2012

Rem ***** Main Source File *****
SYNC ON:SYNC RATE 30


LOAD OBJECT ".\media\H-Tank 2.x",1
GetObjectInfo(1)
do
    perform checklist for object limbs 1
        for c=1 to checklist quantity()
            print checklist string$(c)
            wait 1000
            sync
        next c
    `GetObjectInfo(1)
    sync
LOOP

FUNCTION GetObjectInfo(id)
    IF OBJECT EXIST(id)
    limbN = 1 ` Limb should be body
    LimbCount = 0
        WHILE LIMB EXIST(id, limbN) = 0
            INC LimbCount, 1     
            INC limbN, 1       
        ENDWHILE
        
         GLOBAL DIM LimbData#(LimbCount, 17) `Each Limb has 18 slots for data to be in
         GLOBAL DIM LimbName$(LimbCount) ` Names of the limbs
         GLOBAL DIM ObjectData(7) ` Object Data
         
        FOR i = 1 TO LimbCount
            FOR ii = 1 TO 17
                LimbData#(i, ii) = LIMB VISIBLE(id, i)             
                INC ii
                
                LimbData#(i, ii) = LIMB OFFSET X(id, i)
                INC ii
                
                LimbData#(i, ii) = LIMB OFFSET Y(id, i)
                INC ii
                
                LimbData#(i, ii) = LIMB OFFSET Z(id, i)
                INC ii
                
                LimbData#(i, ii) = LIMB SCALE X(id, i)
                INC ii
                
                LimbData#(i, ii) = LIMB SCALE Y(id, i)
                INC ii
                
                LimbData#(i, ii) = LIMB SCALE Z(id, i)
                INC ii
                
                LimbData#(i, ii) = LIMB ANGLE X(id, i)
                INC ii
                
                LimbData#(i, ii) = LIMB ANGLE Y(id, i)
                INC ii
                
                LimbData#(i, ii) = LIMB ANGLE Z(id, i)
                INC ii
                
                LimbData#(i, ii) = LIMB DIRECTION X(id, i)
                INC ii
                
                LimbData#(i, ii) = LIMB DIRECTION Y(id, i)
                INC ii
                
                LimbData#(i, ii) = LIMB DIRECTION Z(id, i)
                INC ii
                
                LimbData#(i, ii) = LIMB POSITION X(id, i)
                INC ii
                
                LimbData#(i, ii) = LIMB POSITION Y(id, i)
                INC ii
                
                LimbData#(i, ii) = LIMB POSITION Z(id, i)
            NEXT ii                                  
        NEXT i
        
        FOR i = 1 TO LimbCount
            LimbName$(i) = LIMB NAME$(id, i)
        NEXT i

        ` it is best practice to do this first...
        if FILE EXIST ("ObjectInfo.txt")
        DELETE FILE "ObjectInfo.txt"
        endif

        OPEN TO WRITE 1, "ObjectInfo.txt"
        ` I added this string to see whether the file was being written to and it is...
        WRITE STRING 1, "TESTING"
        FOR i = 1 TO LimbCount
            FOR ii = 1 TO 17
                WRITE STRING 1, "NAME: " + LimbName$(i)
                WRITE STRING 1, "LIMB DATA: " + STR$(LimbData#(i, ii))                        
            NEXT ii
        NEXT i
    CLOSE FILE 1
    ENDIF
ENDFUNCTION

conclusion, there is something wrong with your code... and I am not experienced enough to fix it...

but this has been an interesting experience

Back to top

Profile PM

WLGfx

18

Years of Service

User Offline

Joined: 1st Nov 2007

Location: NW United Kingdom

Posted: 14th May 2012 13:02

Link

You also have 'ii' set as a loop but within the loop you're using 'inc ii'. I'd check what you're after because that's wrong.

Mental arithmetic? Me? (That's for computers) I can't subtract a fart from a plate of beans!
Warning! May contain Nuts!

Back to top

Profile PM Email Website

Green Gandalf

VIP Member

21

Years of Service

User Offline

Joined: 3rd Jan 2005

Playing: Malevolence:Sword of Ahkranox, Skyrim, Civ6.

Posted: 14th May 2012 13:39

Link

There are at least three errors in the original code:

1. This line

+ Code Snippet

WHILE LIMB EXIST(id, limbN) = 0

should be

+ Code Snippet

WHILE LIMB EXIST(id, limbN) = 1

2. Limbs are numbered from 0 to LimbCount-1 so you need something like:

+ Code Snippet

        FOR i = 0 TO LimbCount-1

instead of

+ Code Snippet

        FOR i = 1 TO LimbCount

3. You need to delete the following two lines:

+ Code Snippet

            FOR ii = 1 TO 17

and

+ Code Snippet

           NEXT ii

and initialise ii for each limb, e.g.

+ Code Snippet

        FOR i = 0 TO LimbCount-1
            ii=0

The problem with this:

+ Code Snippet

            FOR ii = 1 TO 17
                LimbData#(i, ii) = LIMB VISIBLE(id, i)             
                INC ii
                
                LimbData#(i, ii) = LIMB OFFSET X(id, i)
                INC ii

                (etc)

                LimbData#(i, ii) = LIMB POSITION Z(id, i)
            NEXT ii

is that ii is being incremented in two different ways and rapidly exceeds the valid range.

I don't know why you didn't get array runtime errors.

I attach a typical file I get when I make those changes. I don't guarantee there aren't other errors - but at least you should get something you can check.

Back to top

Profile PM Email

Pincho Paxton

23

Years of Service

User Offline

Joined: 8th Dec 2002

Location:

Posted: 14th May 2012 14:52

Link

I don't like this use of ii, it look too much like...

11
iii
i
ll
lll
l
jj

They all look the same, or similar. The very first program I ever worked on in 1980 was written from a magazine. They used A = 1, and also A = i. My mate had typed the program in, but asked me if I could fix it. I changed A = i to A = 1, and it worked. So I would never use i in a program.

Back to top

Profile PM Email Website

Mudbud Productions

15

Years of Service

User Offline

Joined: 1st May 2011

Location: Cloud 9

Posted: 14th May 2012 18:09 Edited at: 14th May 2012 21:26

Link

Ah I see. Thanks GG, I guess my code was worse than I thought since it was a very late night

@ Pincho I've been using that for a few years now and I don't mix up i with 1..

I also know that the problem was with the for loop and before you all posted I already had it fixed a few hours later

Thanks for the help though.

Quote: "I don't know why you didn't get array runtime errors. "

I didn't get array errors but sometimes when I compiled the project it would throw an addpkt to exe error.. Seems like I've fixed it since then.

Thanks again

EDIT: If anyone was curious to see the new working function I've posted it below

FUNCTION GetObjectData(id)
    IF OBJECT EXIST(id)
        LimbCount = 1 ` First limb is always the body
        
        WHILE LIMB EXIST(id,LimbCount) = 1
            INC LimbCount, 1
        ENDWHILE 
        
        DIM LimbData#(LimbCount, 30) `Array to hold limb data like position, scale, offset, etc
        DIM LimbName$(LimbCount) `Array holds limb names
        
        `Get Limb Names
        FOR i = 1 TO LimbCount - 1
            LimbName$(i) = LIMB NAME$(id, i) `Set array id to limb name
        NEXT i
        
        FOR ii = 1 TO LimbCount - 1
            a = 1
                     
            LimbData#(ii, a) = LIMB OFFSET X(id, ii)
            INC a
            
            LimbData#(ii, a) = LIMB OFFSET Y(id, ii)
            INC a
            
            LimbData#(ii, a) = LIMB OFFSET Z(id, ii)
            INC a
            
            LimbData#(ii, a) = LIMB SCALE X(id, ii)
            INC a
            
            LimbData#(ii, a) = LIMB SCALE Y(id, ii)
            INC a
            
            LimbData#(ii, a) = LIMB SCALE Z(id, ii)
            INC a
            
            LimbData#(ii, a) = LIMB ANGLE X(id, ii)
            INC a
            
            LimbData#(ii, a) = LIMB ANGLE Y(id, ii)
            INC a
            
            LimbData#(ii, a) = LIMB ANGLE Z(id, ii)
            INC a
            
            LimbData#(ii, a) = LIMB DIRECTION X(id, ii)
            INC a
            
            LimbData#(ii, a) = LIMB DIRECTION Y(id, ii)
            INC a
            
            LimbData#(ii, a) = LIMB DIRECTION Z(id, ii)
            INC a
            
            LimbData#(ii, a) = LIMB POSITION X(id, ii)
            INC a
            
            LimbData#(ii, a) = LIMB POSITION Y(id, ii)
            INC a
            
            LimbData#(ii, a) = LIMB POSITION Z(id, ii)
            INC a
        NEXT ii
        
        `Write Data of limbs and names to file
        IF FILE EXIST("ObjectData.txt")
            DELETE FILE "ObjectData.txt"
            OPEN TO WRITE 1, "ObjectData.txt"
            
            FOR iii = 1 TO LimbCount - 1               
                WRITE STRING 1, LimbName$(iii)
                a = 1
                
                WRITE FLOAT 1, LimbData#(iii, a) = LIMB OFFSET X(id, iii)
                INC a
                
                WRITE FLOAT 1, LimbData#(iii, a) = LIMB OFFSET Y(id, iii)
                INC a
                
                WRITE FLOAT 1, LimbData#(iii, a) = LIMB OFFSET Z(id, iii)
                INC a
                
                WRITE FLOAT 1, LimbData#(iii, a) = LIMB SCALE X(id, iii)
                INC a
                
                WRITE FLOAT 1, LimbData#(iii, a) = LIMB SCALE Y(id, iii)
                INC a
                
                WRITE FLOAT 1, LimbData#(iii, a) = LIMB SCALE Z(id, iii)
                INC a
                
                WRITE FLOAT 1, LimbData#(iii, a) = LIMB ANGLE X(id, iii)
                INC a
                
                WRITE FLOAT 1, LimbData#(iii, a) = LIMB ANGLE Y(id, iii)
                INC a
                
                WRITE FLOAT 1, LimbData#(iii, a) = LIMB ANGLE Z(id, iii)
                INC a
                
                WRITE FLOAT 1, LimbData#(iii, a) = LIMB DIRECTION X(id, iii)
                INC a
                
                WRITE FLOAT 1, LimbData#(iii, a) = LIMB DIRECTION Y(id, iii)
                INC a
                
                WRITE FLOAT 1, LimbData#(iii, a) = LIMB DIRECTION Z(id, iii)
                INC a
                
                WRITE FLOAT 1, LimbData#(iii, a) = LIMB POSITION X(id, iii)
                INC a
                
                WRITE FLOAT 1, LimbData#(iii, a) = LIMB POSITION Y(id, iii)
                INC a
                
                WRITE FLOAT 1, LimbData#(iii, a) = LIMB POSITION Z(id, iii)
                INC a  
                WRITE STRING 1, " "              
            NEXT iii
            
            CLOSE FILE 1
         ELSE 
            OPEN TO WRITE 1, "ObjectData.txt"
            
            FOR iii = 1 TO LimbCount - 1
                WRITE STRING 1, LimbName$(iii)
                a = 1
                
                WRITE FLOAT 1, LimbData#(iii, a) = LIMB OFFSET X(id, iii)
                INC a
                
                WRITE FLOAT 1, LimbData#(iii, a) = LIMB OFFSET Y(id, iii)
                INC a
                
                WRITE FLOAT 1, LimbData#(iii, a) = LIMB OFFSET Z(id, iii)
                INC a
                
                WRITE FLOAT 1, LimbData#(iii, a) = LIMB SCALE X(id, iii)
                INC a
                
                WRITE FLOAT 1, LimbData#(iii, a) = LIMB SCALE Y(id, iii)
                INC a
                
                WRITE FLOAT 1, LimbData#(iii, a) = LIMB SCALE Z(id, iii)
                INC a
                
                WRITE FLOAT 1, LimbData#(iii, a) = LIMB ANGLE X(id, iii)
                INC a
                
                WRITE FLOAT 1, LimbData#(iii, a) = LIMB ANGLE Y(id, iii)
                INC a
                
                WRITE FLOAT 1, LimbData#(iii, a) = LIMB ANGLE Z(id, iii)
                INC a
                
                WRITE FLOAT 1, LimbData#(iii, a) = LIMB DIRECTION X(id, iii)
                INC a
                
                WRITE FLOAT 1, LimbData#(iii, a) = LIMB DIRECTION Y(id, iii)
                INC a
                
                WRITE FLOAT 1, LimbData#(iii, a) = LIMB DIRECTION Z(id, iii)
                INC a
                
                WRITE FLOAT 1, LimbData#(iii, a) = LIMB POSITION X(id, iii)
                INC a
                
                WRITE FLOAT 1, LimbData#(iii, a) = LIMB POSITION Y(id, iii)
                INC a
                
                WRITE FLOAT 1, LimbData#(iii, a) = LIMB POSITION Z(id, iii)
                INC a  
                WRITE STRING 1, " "
            NEXT iii
            
            CLOSE FILE 1
        ENDIF                
        UNDIM ObjectData#()
        UNDIM LimbData#()
        UNDIM LimbName$() 
              
    ENDIF
ENDFUNCTION

+ Code Snippet

FUNCTION GetObjectData(id)
    IF OBJECT EXIST(id)
        LimbCount = 1 ` First limb is always the body
        
        WHILE LIMB EXIST(id,LimbCount) = 1
            INC LimbCount, 1
        ENDWHILE 
        
        DIM LimbData#(LimbCount, 30) `Array to hold limb data like position, scale, offset, etc
        DIM LimbName$(LimbCount) `Array holds limb names
        
        `Get Limb Names
        FOR i = 1 TO LimbCount - 1
            LimbName$(i) = LIMB NAME$(id, i) `Set array id to limb name
        NEXT i
        
        FOR ii = 1 TO LimbCount - 1
            a = 1
                     
            LimbData#(ii, a) = LIMB OFFSET X(id, ii)
            INC a
            
            LimbData#(ii, a) = LIMB OFFSET Y(id, ii)
            INC a
            
            LimbData#(ii, a) = LIMB OFFSET Z(id, ii)
            INC a
            
            LimbData#(ii, a) = LIMB SCALE X(id, ii)
            INC a
            
            LimbData#(ii, a) = LIMB SCALE Y(id, ii)
            INC a
            
            LimbData#(ii, a) = LIMB SCALE Z(id, ii)
            INC a
            
            LimbData#(ii, a) = LIMB ANGLE X(id, ii)
            INC a
            
            LimbData#(ii, a) = LIMB ANGLE Y(id, ii)
            INC a
            
            LimbData#(ii, a) = LIMB ANGLE Z(id, ii)
            INC a
            
            LimbData#(ii, a) = LIMB DIRECTION X(id, ii)
            INC a
            
            LimbData#(ii, a) = LIMB DIRECTION Y(id, ii)
            INC a
            
            LimbData#(ii, a) = LIMB DIRECTION Z(id, ii)
            INC a
            
            LimbData#(ii, a) = LIMB POSITION X(id, ii)
            INC a
            
            LimbData#(ii, a) = LIMB POSITION Y(id, ii)
            INC a
            
            LimbData#(ii, a) = LIMB POSITION Z(id, ii)
            INC a
        NEXT ii
        
        `Write Data of limbs and names to file
        IF FILE EXIST("ObjectData.txt")
            DELETE FILE "ObjectData.txt"
            OPEN TO WRITE 1, "ObjectData.txt"
            
            FOR iii = 1 TO LimbCount - 1               
                WRITE STRING 1, LimbName$(iii)
                a = 1
                
                WRITE FLOAT 1, LimbData#(iii, a) = LIMB OFFSET X(id, iii)
                INC a
                
                WRITE FLOAT 1, LimbData#(iii, a) = LIMB OFFSET Y(id, iii)
                INC a
                
                WRITE FLOAT 1, LimbData#(iii, a) = LIMB OFFSET Z(id, iii)
                INC a
                
                WRITE FLOAT 1, LimbData#(iii, a) = LIMB SCALE X(id, iii)
                INC a
                
                WRITE FLOAT 1, LimbData#(iii, a) = LIMB SCALE Y(id, iii)
                INC a
                
                WRITE FLOAT 1, LimbData#(iii, a) = LIMB SCALE Z(id, iii)
                INC a
                
                WRITE FLOAT 1, LimbData#(iii, a) = LIMB ANGLE X(id, iii)
                INC a
                
                WRITE FLOAT 1, LimbData#(iii, a) = LIMB ANGLE Y(id, iii)
                INC a
                
                WRITE FLOAT 1, LimbData#(iii, a) = LIMB ANGLE Z(id, iii)
                INC a
                
                WRITE FLOAT 1, LimbData#(iii, a) = LIMB DIRECTION X(id, iii)
                INC a
                
                WRITE FLOAT 1, LimbData#(iii, a) = LIMB DIRECTION Y(id, iii)
                INC a
                
                WRITE FLOAT 1, LimbData#(iii, a) = LIMB DIRECTION Z(id, iii)
                INC a
                
                WRITE FLOAT 1, LimbData#(iii, a) = LIMB POSITION X(id, iii)
                INC a
                
                WRITE FLOAT 1, LimbData#(iii, a) = LIMB POSITION Y(id, iii)
                INC a
                
                WRITE FLOAT 1, LimbData#(iii, a) = LIMB POSITION Z(id, iii)
                INC a  
                WRITE STRING 1, " "              
            NEXT iii
            
            CLOSE FILE 1
         ELSE 
            OPEN TO WRITE 1, "ObjectData.txt"
            
            FOR iii = 1 TO LimbCount - 1
                WRITE STRING 1, LimbName$(iii)
                a = 1
                
                WRITE FLOAT 1, LimbData#(iii, a) = LIMB OFFSET X(id, iii)
                INC a
                
                WRITE FLOAT 1, LimbData#(iii, a) = LIMB OFFSET Y(id, iii)
                INC a
                
                WRITE FLOAT 1, LimbData#(iii, a) = LIMB OFFSET Z(id, iii)
                INC a
                
                WRITE FLOAT 1, LimbData#(iii, a) = LIMB SCALE X(id, iii)
                INC a
                
                WRITE FLOAT 1, LimbData#(iii, a) = LIMB SCALE Y(id, iii)
                INC a
                
                WRITE FLOAT 1, LimbData#(iii, a) = LIMB SCALE Z(id, iii)
                INC a
                
                WRITE FLOAT 1, LimbData#(iii, a) = LIMB ANGLE X(id, iii)
                INC a
                
                WRITE FLOAT 1, LimbData#(iii, a) = LIMB ANGLE Y(id, iii)
                INC a
                
                WRITE FLOAT 1, LimbData#(iii, a) = LIMB ANGLE Z(id, iii)
                INC a
                
                WRITE FLOAT 1, LimbData#(iii, a) = LIMB DIRECTION X(id, iii)
                INC a
                
                WRITE FLOAT 1, LimbData#(iii, a) = LIMB DIRECTION Y(id, iii)
                INC a
                
                WRITE FLOAT 1, LimbData#(iii, a) = LIMB DIRECTION Z(id, iii)
                INC a
                
                WRITE FLOAT 1, LimbData#(iii, a) = LIMB POSITION X(id, iii)
                INC a
                
                WRITE FLOAT 1, LimbData#(iii, a) = LIMB POSITION Y(id, iii)
                INC a
                
                WRITE FLOAT 1, LimbData#(iii, a) = LIMB POSITION Z(id, iii)
                INC a  
                WRITE STRING 1, " "
            NEXT iii
            
            CLOSE FILE 1
        ENDIF                
        UNDIM ObjectData#()
        UNDIM LimbData#()
        UNDIM LimbName$() 
              
    ENDIF
ENDFUNCTION

I loaded in a random car from DarkMATTER and it successfully wrote the limb names, followed by some data and then creates new line and starts with the next name. It's dynamic so there can be any number of limbs from 1 to 900 etc

This is the output from the police car in DarkMATTER:

+ Code Snippet

x3ds_BODY
  €?  €?  €?  €?  €?  €?  €?  €?  €?  €?  €?  €?  €?  €?  €? 
x3ds_WHEEL_br
  €?  €?  €?  €?  €?  €?  €?  €?  €?  €?  €?  €?  €?  €?  €? 
x3ds_WHEEL_fr
  €?  €?  €?  €?  €?  €?  €?  €?  €?  €?  €?  €?  €?  €?  €? 
x3ds_WHEEL_bl
  €?  €?  €?  €?  €?  €?  €?  €?  €?  €?  €?  €?  €?  €?  €? 
x3ds_WHEEL_fl
  €?  €?  €?  €?  €?  €?  €?  €?  €?  €?  €?  €?  €?  €?  €?

Back to top

Profile PM

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Function doesn't seem to do what it's suppose too o.O