Loading and then applying animations to objects

Author

Message

MateiSoft Romania

11

Years of Service

User Offline

Joined: 16th Oct 2013

Location:

Posted: 7th Jun 2015 12:20

Link

Hello Community,

I have a selection of weapons that i must import from a function and then take each one of them and apply some animations to them. I have this code for loading the weapon objects, but the animation part that is in real time i don't know how can i retrieve the each animation information about the each weapon object separately.

Thank You Very Much!

`TEST!!!
    for weapimp = 1 to 10000
    
    if file exist("Media Packs\Scripts\Weapons\" + str$(weapimp)) = 1
    open to read 5, "Media Packs\Scripts\Weapons\" + str$(weapimp)
    if file open(5) = 1
    read string 5, text1$
    read string 5, weaponlocation$
    read string 5, blank1$
    read string 5, text2$
    read string 5, blank3$
    read string 5, text3$
    read string 5, text4$
    read string 5, idleanimationstart$
    read string 5, text5$
    read string 5, idleanimationend$
    read string 5, blank4$
    read string 5, text6$
    read string 5, text7$
    read string 5, forwardanimationstart$
    read string 5, text8$
    read string 5, forwardanimationend$
    read string 5, blank5$
    read string 5, text9$
    read string 5, text10$
    read string 5, backwardanimationstart$
    read string 5, text11$
    read string 5, backwardanimationend$
    read string 5, blank6$
    read string 5, text12$
    read string 5, text13$
    read string 5, fireanimationstart$
    read string 5, text14$
    read string 5, fireanimationend$
    read string 5, blank7$
    read string 5, text15$
    read string 5, text16$
    read string 5, reloadanimationstart$
    read string 5, text17$
    read string 5, reloadanimationend$
    read string 5, blank8$
    read string 5, text18$
    read string 5, text19$
    read string 5, retrieveanimationstart$ `````````
    read string 5, text20$
    read string 5, retrieveanimationend$ ```````````
    read string 5, blank9$
    read string 5, text21$
    read string 5, text22$
    read string 5, holsteranimationstart$ ``````````
    read string 5, text23$
    read string 5, holsteranimationend$ ````````````
    read string 5, blank10$
    read string 5, text23$
    read string 5, text24$
    read string 5, runninganimationstart$ ````````````
    read string 5, text25$
    read string 5, runninganimationend$ `````````````
    read string 5, blank11$
    read string 5, text26$
    read string 5, text27$
    read string 5, weaponfiresoundlocation$
    read string 5, blank12$
    read string 5, text28$
    read string 5, weaponreloadsoundlocation$
    read string 5, blank13$
    read string 5, text29$
    read string 5, weaponequipsoundlocation$
    read string 5, blank14$
    read string 5, text30$
    read string 5, weaponholstersoundlocation$
    read string 5, blank15$
    read string 5, text31$
    read string 5, text32$
    read string 5, weapondiffusetexturelocation$
    read string 5, blank16$
    read string 5, text33$
    read string 5, weaponnormaltexturelocation$
    endif
    close file 5
    
    //LOAD WEAPONS
    inc weaponnumber
    load object weaponlocation$, weaponnumber
    
    //POSITION WEAPONS
    lock object on weaponnumber
    yrotate object weaponnumber, 180
    position object weaponnumber, 12.4786376953, -174.484283447, -9.1628723145
    
    loop object weaponnumber, 55, 100
    
    //LOAD WEAPONS MEDIAS
    //SOUNDS
    for sndload = 9115 to 10051
    if sound exist(sndload) = 1
    delete sound sndload
	ENDIF
    load sound weaponfiresoundlocation$, sndload
	NEXT sndload
	//TEXTURES
	//DIFFUSE
	inc diffusetextures
    load image weapondiffusetexturelocation$, diffusetextures
    texture object weaponnumber, diffusetextures
	//NORMAL
	inc normaltextures
    load image weapondiffusetexturelocation$, normaltextures
    texture object weaponnumber, normaltextures
	ENDIF
	
	for weaphide = 7001 to weaponnumber
	if object exist(weaphide) = 1
	hide object weaphide
	endif
	NEXT weaphide
	
	NEXT weapimp
    `TEST!!!
	
	endif

+ Code Snippet

`TEST!!!
    for weapimp = 1 to 10000
    
    if file exist("Media Packs\Scripts\Weapons\" + str$(weapimp)) = 1
    open to read 5, "Media Packs\Scripts\Weapons\" + str$(weapimp)
    if file open(5) = 1
    read string 5, text1$
    read string 5, weaponlocation$
    read string 5, blank1$
    read string 5, text2$
    read string 5, blank3$
    read string 5, text3$
    read string 5, text4$
    read string 5, idleanimationstart$
    read string 5, text5$
    read string 5, idleanimationend$
    read string 5, blank4$
    read string 5, text6$
    read string 5, text7$
    read string 5, forwardanimationstart$
    read string 5, text8$
    read string 5, forwardanimationend$
    read string 5, blank5$
    read string 5, text9$
    read string 5, text10$
    read string 5, backwardanimationstart$
    read string 5, text11$
    read string 5, backwardanimationend$
    read string 5, blank6$
    read string 5, text12$
    read string 5, text13$
    read string 5, fireanimationstart$
    read string 5, text14$
    read string 5, fireanimationend$
    read string 5, blank7$
    read string 5, text15$
    read string 5, text16$
    read string 5, reloadanimationstart$
    read string 5, text17$
    read string 5, reloadanimationend$
    read string 5, blank8$
    read string 5, text18$
    read string 5, text19$
    read string 5, retrieveanimationstart$ `````````
    read string 5, text20$
    read string 5, retrieveanimationend$ ```````````
    read string 5, blank9$
    read string 5, text21$
    read string 5, text22$
    read string 5, holsteranimationstart$ ``````````
    read string 5, text23$
    read string 5, holsteranimationend$ ````````````
    read string 5, blank10$
    read string 5, text23$
    read string 5, text24$
    read string 5, runninganimationstart$ ````````````
    read string 5, text25$
    read string 5, runninganimationend$ `````````````
    read string 5, blank11$
    read string 5, text26$
    read string 5, text27$
    read string 5, weaponfiresoundlocation$
    read string 5, blank12$
    read string 5, text28$
    read string 5, weaponreloadsoundlocation$
    read string 5, blank13$
    read string 5, text29$
    read string 5, weaponequipsoundlocation$
    read string 5, blank14$
    read string 5, text30$
    read string 5, weaponholstersoundlocation$
    read string 5, blank15$
    read string 5, text31$
    read string 5, text32$
    read string 5, weapondiffusetexturelocation$
    read string 5, blank16$
    read string 5, text33$
    read string 5, weaponnormaltexturelocation$
    endif
    close file 5
    
    //LOAD WEAPONS
    inc weaponnumber
    load object weaponlocation$, weaponnumber
    
    //POSITION WEAPONS
    lock object on weaponnumber
    yrotate object weaponnumber, 180
    position object weaponnumber, 12.4786376953, -174.484283447, -9.1628723145
    
    loop object weaponnumber, 55, 100
    
    //LOAD WEAPONS MEDIAS
    //SOUNDS
    for sndload = 9115 to 10051
    if sound exist(sndload) = 1
    delete sound sndload
	ENDIF
    load sound weaponfiresoundlocation$, sndload
	NEXT sndload
	//TEXTURES
	//DIFFUSE
	inc diffusetextures
    load image weapondiffusetexturelocation$, diffusetextures
    texture object weaponnumber, diffusetextures
	//NORMAL
	inc normaltextures
    load image weapondiffusetexturelocation$, normaltextures
    texture object weaponnumber, normaltextures
	ENDIF
	
	for weaphide = 7001 to weaponnumber
	if object exist(weaphide) = 1
	hide object weaphide
	endif
	NEXT weaphide
	
	NEXT weapimp
    `TEST!!!
	
	endif

Alex Matei CEO
www.alexmatei.com

Back to top

Profile PM Email Website

Green Gandalf

VIP Member

20

Years of Service

User Offline

Joined: 3rd Jan 2005

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

Posted: 7th Jun 2015 13:52

Link

Some questions:

1. What is the initial value of weaponnumber?
2. What is the difference between weapimp and weaponnumber?
3. Where do you store the object IDs and other information for the individual weapon objects that you want to animate?
4. What's the point of this loop?

+ Code Snippet

	for weaphide = 7001 to weaponnumber
	if object exist(weaphide) = 1
	hide object weaphide
	endif
	NEXT weaphide

Looks like you need some arrays and UDTs in there somewhere.

Powered by Free Banners

Back to top

Profile PM Email

MateiSoft Romania

11

Years of Service

User Offline

Joined: 16th Oct 2013

Location:

Posted: 7th Jun 2015 14:05

Link

Hello Green Gandalf, good to see you!

1. weaponnumber = 6999
2. weapimp is the variable for that for loop that detects how many files that includes weapon objects exists(if that makes sense)
3.Well, the thing is that theoretically i am storing all these values in those values that are processed such as "idleanimationstart$"
4.The last loop is for hiding all the rest of the weapon objects except the first weapon object that is 7000

Lastly, yes i thought about arrays but i wasn't so sure about that idea and how to actually create the array...

Alex Matei CEO
www.alexmatei.com

Back to top

Profile PM Email Website

Green Gandalf

VIP Member

20

Years of Service

User Offline

Joined: 3rd Jan 2005

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

Posted: 7th Jun 2015 17:57 Edited at: 7th Jun 2015 18:17

Link

Quote: "Well, the thing is that theoretically i am storing all these values in those values that are processed such as "idleanimationstart$""

Yes, but you are immediately overwriting those values up to 10000 times. When you have finished that loop you will only have the values from the latest successful iteration of the loop. You can access the values you want later if you store them in an array UDT. For example,

+ Code Snippet

type weaponDataItem
  text1$ ` example entries only - just put your full list of variables here
  weaponlocation$
endtype

dim weaponData(10000) as weaponDataItem
weaponNumber = 6999

for weapimp = 1 to 10000
  if file exist("Media Packs\Scripts\Weapons\" + str$(weapimp)) = 1
    open to read 5, "Media Packs\Scripts\Weapons\" + str$(weapimp)
    read string 5, weaponData(weapimp).text1$
    read string 5, weaponData(weapimp).weaponlocation$
    ` and so on
    close file 5
  endif
next weapimp

You'll obviously need to add more code but that snippet will store all the weapon data found in the files so you can refer to them later in your program. You will probably need to give some thought about which weapons you've found and what object IDs to give them. Your original snippet only records the data from the (Edited) last one found which may be what you intended but seems a long-winded way of doing that.

I suggest you test your code manually using just three weapons and two attributes and work through your code by hand. You'll soon see what's missing. For example, you need an array or linked list which links your object IDs to the weapon numbers. Once you have that you can refer to the appropriate weapon data. Untested example (another two arrays

):

+ Code Snippet

dim weaponObjectList(10000) ` add these near the start of your code
dim weaponItemList(10000) ` also check whether you need 10000 in these two lines
.
.
.
for weapimp = 1 to 10000
.
.
.
  weaponObjectList(weapimp) = weaponNumber ` add these when you've loaded each object
  weaponFileList(weaponNumber) = weapimp
.
.
.
next weapimp

Then later in your code you can find which weapon file data is needed for a given weapon object and vice versa.

Powered by Free Banners

Back to top

Profile PM Email

MateiSoft Romania

11

Years of Service

User Offline

Joined: 16th Oct 2013

Location:

Posted: 8th Jun 2015 01:09

Link

Oh ok,

Now i understand, thank you

Alex Matei CEO
www.alexmatei.com

Back to top

Profile PM Email Website

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Loading and then applying animations to objects