Type Action
as string Name
as ushort TimeCost
as ushort EffortCost ' future use
as ushort AnimationPTR
as ushort Req_Skill ' future use
as ushort Req_Skill_Lvl ' future use
as ushort Req_Object_Location
as ushort Req_Object_Location_Distance
as ushort Req_State(3)
as ushort Req_State_Check(3)
as ushort Req_State_Value(3)
as ushort Affected_State(3)
as ushort Affected_State_Change(3)
as ushort Affected_State_value(3)
end type
notice the 'mini arrays' within the UDT - Req_State & Affected_State?
I would like to do something like this....
type test
obj as ushort
check as ushort
value as ushort
end type
Type Action
as string Name
as ushort TimeCost
as ushort EffortCost ' future use
as ushort AnimationPTR
as ushort Req_Skill ' future use
as ushort Req_Skill_Lvl ' future use
as ushort Req_Object_Location
as ushort Req_Object_Location_Distance
Req_State(3) as test
Affected_State(3) as test
end type
but I don't think I am formatting it correctly and I can't find an example in the Help file as to how to do this....
Last edited by leopardpm on Dec 10, 2018 15:53, edited 1 time in total.
type test
as ushort obj
as ushort check
as ushort value
end type
Type Action
as string Name
as ushort TimeCost
as ushort EffortCost ' future use
as ushort AnimationPTR
as ushort Req_Skill ' future use
as ushort Req_Skill_Lvl ' future use
as ushort Req_Object_Location
as ushort Req_Object_Location_Distance
as test Req_State(3)
as test Affected_State(3)
end type
dim x as Action
x.Affected_State(0).obj=1
x.Affected_State(0).check=2
x.Affected_State(0).value=3
x.Req_State(0).obj=11
x.Req_State(0).check=22
x.Req_State(0).value=33
? x.Affected_State(0).obj
? x.Affected_State(0).check
? x.Affected_State(0).value
?
? x.Req_State(0).obj
? x.Req_State(0).check
? x.Req_State(0).value
my preference is to declare all elements with the type first then the element name
yes, I agree that I prefer the to declare all elements with the type first then the element name
or at least whichever way you choose make sure that it is consistent throughout the code (either elementType then elementName, or, elementName then elementType)
leopardpm wrote:Is it possible to Make an array of UDT within a UDT?
It's possible, but be carreful, if you redim dynamic arrays there will be contructors and destructors calls. Depending on the kind of UDT that you have as element of the array, and its size, you may want to keep with dynamic arrays of standard values rather. I'm not an expert here, but it's kind of obvious (it depends on what you put in your constructors).
type udt1
declare constructor()
declare destructor()
as integer _dummy
end type
constructor udt1()
? "hello"
end constructor
destructor udt1()
? "goodbye"
end destructor
type udt2
as udt1 _array(any)
end type
dim as udt2 u2
redim u2._array(5)
type udt1
as integer dummy
end type
type udt2
as udt1 array(any)
end type
dim as integer lim=30
dim as udt2 u2(0 to lim)
'set array sizes
for n as long=0 to lim
if n<lim\2 then
redim (u2(n).array)(0 to n)
else
redim (u2(n).array)(0 to lim-n)
end if
'fill arrays
for m as integer=lbound(u2(n).array) to ubound(u2(n).array)
u2(n).array(m).dummy=m^2
next m
next n
'print arrays
for n as long=0 to lim
for m as long=lbound(u2(n).array) to ubound(u2(n).array)
print u2(n).array(m).dummy;
next m
print
next n
for n as long=0 to lim
u2(n).constructor ' or destructor to reset
next
for n as long=0 to lim
for m as long=lbound(u2(n).array) to ubound(u2(n).array)
print u2(n).array(m).dummy;
next m
'print
next n
sleep
Last edited by dodicat on Dec 10, 2018 22:41, edited 1 time in total.
