This is a reminder of 3 IMPORTANT RULES:
1- External self-promotion websites or apps are NOT allowed here, like Discord/Twitter/Patreon/etc.
2- Do NOT post in other languages. English-only.
3- Crack/Warez/Piracy talk is NOT allowed.
Breaking any of the above rules will result in your messages being deleted and you will be banned upon repetition.
Please, stop by this thread SoccerGaming Forum Rules And Guidelines and make sure you read and understand our policies.
Thank you!
There are still some unknown values
I am not sure about the ingame limit,
If you are able to convert it into an object (obj, 3ds, etc) with the positions of the crowd, everything else can Be done by the exporter.
String Magic; //"CRWD"
Ushort Version;
Uint NumSeats;Vector3 Position;
Float Rotation;
Byte(3) SeatColor;
Byte Section; //home/away : 0 = all home, 255 = all away
Byte Tier; //
Byte Attendance; //Size of crowd: 0 = near no crowd, 255 = full packed
Byte InfluenceArea; //F11/14: always 127 (ea py script: unused! )
Byte Unused; //always 51 (ea py script: unused! )
Float(4) Shade; //lightning, 4 float Values: ussually between 0 - 1 (ea py script: Can be bytes)
Byte Animgroups; //always 0 (ea py script: unused! )
Byte NumAccs; //always 0 (ea py script: unused! )Vector3 Position;
Float Rotation;
Byte(3) SeatColor;
Byte Section0; //home/away ultra : 0 = all home, 255 = all away
Byte Section1; //home/away neutral : 0 = all home, 255 = all away
Byte Tier; //
Byte Attendance; //Size of crowd: 0 = near no crowd, 255 = full packed
Byte NoChair; //(ea py script: unused! )
Byte(3) CardColors; //3 bytes (ea py script: WC )
Byte CrowdPattern; //
Byte(4) Pad; //padding (empty 0 values)Vector3 Position;
Float Rotation;
Byte(3) SeatColor;
Byte Section0; //home/away : 0 = all home, 255 = all away
Byte Unknown_1; //Section1 maybe ?
Byte Unknown_2; //Section2 maybe ?
Byte Unknown_3; //Section4 maybe ?
Byte Unknown_4; //Tier maybe ??
Byte Attendance; //Size of crowd: 0 = near no crowd, 255 = full packed
Float(4) Unknown_5; //might be bytes, maybe shading (lightning) ?? --> always 0,0,0,1
Another major changes!! Lets goooo!!!
- Fix: reading file signatures as integer now
- Fix: mipmaps from rw4 not correctly loaded
- Fix: Values at lists not updated (List parameters at RxFile/Rx3File/Rx2File/Rx3HybridFile)String Magic; //"SCLl"
Uint Unknown_1; //always 1 (version, number of scaledata, ...?)
Uint Unknown_2; //always 0 (padding, index of scaledata , ... ?)
Float Height;
Float Reach;
Float HeadStall;
Uint NumAiScales; //Number of AiScales (always 23)
List(of AiScale) AiScales; // array of AiScaleString BoneName;
Vector3 Scale;
Vector3 Trans;
Uint Unknown; //always 1I ll try make a console tool,
This is great mate, not only for the convertion itself, but been able o editing a crowd data on txt and also been able to export again is a great evolution
m_Crowd.Load(m_CurrentFileName) . The exception indicates a problem that it might be from the library, but I'm not quite sure if this the case.Imports FIFALibrary22
Imports Microsoft.DirectX
Module Module1
Sub Main()
EditCrowdDat()
End Sub
Sub EditCrowdDat()
' Create a new instance of CrwdFile
Dim m_Crowd As New CrowdDat.CrwdFile
' Load the file
Dim m_CurrentFileName As String = "Ccrowd_x_x.dat"
Dim FileType As CrowdDat.CrwdFileHeader.EVersion = CrowdDat.CrwdFileHeader.EVersion.TYPE_0104
' Attempt to load the file only if the file name is not empty
If Not String.IsNullOrEmpty(m_CurrentFileName) Then
m_Crowd.Load(m_CurrentFileName)
' Header info
Dim Signature As String = m_Crowd.Header.Magic ' = "CRWD"
Dim Version As CrowdDat.CrwdFileHeader.EVersion = m_Crowd.Header.Version
Dim NumSeats As UInteger = m_Crowd.Header.NumSeats
' Loop through the Crowd Data
For i = 0 To NumSeats - 1
Dim Vertices As Vector3 = m_Crowd.CrowdData(i).Position
Dim Rotation As Single = m_Crowd.CrowdData(i).Rotation
Dim Color As Byte() = m_Crowd.CrowdData(i).SeatColor
If FileType = CrowdDat.CrwdFileHeader.EVersion.TYPE_0103 Then
Dim m_CrowdStatus As CrowdDat.Seat0103 = CType(m_Crowd.CrowdData(i), CrowdDat.Seat0103)
Dim NumAwayCrowd As Byte = m_CrowdStatus.Attendance
' Handle other properties for TYPE_0103
ElseIf FileType = CrowdDat.CrwdFileHeader.EVersion.TYPE_0104 Then
Dim m_CrowdStatus As CrowdDat.Seat0104 = CType(m_Crowd.CrowdData(i), CrowdDat.Seat0104)
Dim m_Unknown As Byte = m_CrowdStatus.Unknown_1
' Handle other properties for TYPE_0104
ElseIf FileType = CrowdDat.CrwdFileHeader.EVersion.TYPE_0105 Then
Dim m_CrowdStatus As CrowdDat.Seat0105 = CType(m_Crowd.CrowdData(i), CrowdDat.Seat0105)
Dim NumAwayCrowd As Byte = m_CrowdStatus.Attendance
' Handle other properties for TYPE_0105
End If
Next
' Save the File
Dim MySaveLocation As String = "C
Dim FileType_save As CrowdDat.CrwdFileHeader.EVersion = CrowdDat.CrwdFileHeader.EVersion.TYPE_0105
m_Crowd.Save(MySaveLocation, FileType_save)
End If
End Sub
End Module