type e linked lists!!!

you could change your THuman type:

Type THuman
   Field Name$
   Field Alignment% ;1 = good, -1 = bad
End Type


hum.tHuman = New tHuman
	hum\Name = "Gianluca"
	hum\Alignment = 1
hum.tHuman = New tHuman
	hum\Name = "Cinzia"
	hum\Alignment = 1
	
hum.tHuman = New tHuman
	hum\Name = "Ciccio"
	hum\Alignment = -1
hum.tHuman = New tHuman
	hum\Name = "Peppino" 
	hum\Alignment = -1
	
Print "------ nice guys "
For hum.tHuman = Each tHuman
	If hum\alignment = 1 Then Print hum\Name
Next

Print "------ Now bad guys "

For hum.tHuman = Each tHuman
	If hum\alignment = -1 Then Print hum\Name
Next

While Not KeyHit(1)
Wend