Tiny Type prob

I wish to let a variable 'equal' a sprite entity that is included in a type.

This isn't my exact code, but it's all the relevant stuff:

Type My_type
Field X
Field Y
Field Z
Field Sprite
End Type

For f=1 to 10
Type_data.My_Type=New My_type
Type_data/X=rnd(10,20)
Type_data/Y=rnd(10,20)
Type_data/Z=rnd(10,20)
Type_data/Mesh=LoadSprite("My_Sprite"+f+".png")
Next

;Further on in my program, I need to retrieve the FIRST Sprite handle. (The handle of the sprite in the first occurence. I can guarantee there WILL always be a valid entity)

target_sprite=My_Type/Sprite

---------
target_sprite=My_Type/Sprite
---------


Is that the correct syntax?
How can I specify it to be just the first if I have more than one occurence?

(Jst when I thought I was getting to grips with types!)

Type_data = First My_Type
target_sprite=Type_data\sprite

Also, you need to use the backslash character for types:

My_data\x=456

Ah- thanks!
Also, I am concerned whether the program will still remember that I used the syntax of "Type_data" earlier. Since this was only when creating the types.

I will give it a try!

If you want the first type, do this:

FirstMy_type.My_type=First My_type

Excellent! Works a treat, Thanks :)

Check if no types exists:

If First My_type=null Then Text 10,10,"NO TYPES Available"

Insert one at top/bottom:

;at top
Insert MyType.My_type before First My_type

;at bottom
Insert MyType.My_type After Last My_type

Hmm new problem.

The following code stops at where I have inserted the [*] with the error "Expected End Of Line"
can anyone help?

I have 3 varieties of Types. Any of which may be selected by 'targetentity'. What I need to do is allow targetentity to scroll through them, and if it reaches the FIRST one way or the LAST the other way, it will change to a different Type.

.Change_target_back

PlaySound radar_change

If targetentity=First setup_star[*]\sprite Then targetentity=Last setup_object\mesh :Exit: Return

If targetentity=First setup_planet\mesh Then targetentity=Last setup_star\sprite :Exit: Return

If targetentity=First setup_object\mesh Then targetentity=Last setup_planet\mesh :Exit: Return

For check_targets.setup_star = Each setup_star 
If targetentity=check_targets/sprite Then targetentity=Before check_targets/sprite
Next 

For check_targetp.setup_planet = Each setup_planet 
If targetentity=check_targetp/mesh Then targetentity=Before check_target/mesh
Next 

For check_targeto.setup_object = Each setup_object 
If targetentity=check_targeto/mesh Then targetentity=Before check_target/mesh
Next 

Return

.Change_target_forward

PlaySound radar_change

If targetentity=Last setup_star\sprite Then targetentity=First setup_planet\mesh :Exit: Return

If targetentity=Last setup_planet\mesh Then targetentity=First setup_object\mesh : Exit:Return

If targetentity=Last setup_object\mesh Then targetentity=First setup_star\sprite :Exit: Return

For check_targets.setup_star = Each setup_star 
If targetentity=check_targets\sprite Then targetentity=After check_targets\sprite
Next 

For check_targetp.setup_planet = Each setup_planet 
If targetentity=check_targetp\mesh Then targetentity=After check_target\mesh
Next 

For check_targeto.setup_object = Each setup_object 
If targetentity=check_targeto\mesh Then targetentity=After check_target\mesh
Next 

Return

-----------------------------

Due to cross-posting, the IS NULL idea might actually sort this new prob out! thanks!

Sussed it!!!

I'ts good practice for types!

here's what I ended up with:

.Change_target_back

PlaySound radar_change

radar_sorter_1.sector_star=First sector_star
radar_sorter_2.sector_planet=First sector_planet
radar_sorter_3.sector_object=First sector_object
radar_sorter_4.sector_star=Last sector_star
radar_sorter_5.sector_planet=Last sector_planet
radar_sorter_6.sector_object=Last sector_object


If targetentity=radar_sorter_1\sprite
targetentity=radar_sorter_6\mesh 

Return
EndIf


If targetentity=radar_sorter_2\mesh
targetentity=radar_sorter_4\sprite 

Return
EndIf

If targetentity=radar_sorter_3\mesh
targetentity=radar_sorter_5\mesh

Return
EndIf





For check_targets.sector_star = Each sector_star 
If targetentity=check_targets\sprite 
check_targets=Before check_targets
targetentity=check_targets\sprite
Exit
EndIf
Next

For check_targetp.sector_planet = Each sector_planet
If targetentity=check_targetp\mesh 
check_targetp=Before check_targetp
targetentity=check_targetp\mesh
Exit
EndIf
Next


For check_targeto.sector_object = Each sector_object 
If targetentity=check_targeto\mesh 
check_targeto=Before check_targeto
targetentity=check_targeto\mesh
Exit
EndIf
Next
 

Return














.Change_target_forward

PlaySound radar_change


radar_sorter_1.sector_star=First sector_star
radar_sorter_2.sector_planet=First sector_planet
radar_sorter_3.sector_object=First sector_object
radar_sorter_4.sector_star=Last sector_star
radar_sorter_5.sector_planet=Last sector_planet
radar_sorter_6.sector_object=Last sector_object



If targetentity=radar_sorter_4\sprite 
targetentity=radar_sorter_2\mesh 

Return
EndIf

If targetentity=radar_sorter_5\mesh 
targetentity=radar_sorter_3\mesh 

Return
EndIf

If targetentity=radar_sorter_6\mesh
targetentity=radar_sorter_1\sprite

Return
EndIf




For check_targets.sector_star = Each sector_star 
If targetentity=check_targets\sprite 
check_targets=After check_targets
targetentity=check_targets\sprite
Exit
EndIf
Next

For check_targetp.sector_planet = Each sector_planet
If targetentity=check_targetp\mesh 
check_targetp=After check_targetp
targetentity=check_targetp\mesh
Exit
EndIf
Next


For check_targeto.sector_object = Each sector_object 
If targetentity=check_targeto\mesh 
check_targeto=After check_targeto
targetentity=check_targeto\mesh
Exit
EndIf
Next
 

Return