You can do it like this if you only want to delete the first 5.
; Define the CHAIR Type
Type Chair
Field x#
Field y#
Field height#
End Type
; Create 100 new chairs using FOR ... NEXT
For tempx = 1 To 10
For tempy = 1 To 10
c.chair = New Chair
c\x = tempx
c\y = tempy
c\height = Rnd(0,10) ; set a random height 0 to 10
Next
Next
; Move them all over 1 (like the description example)
For c.chair = Each chair
c\x = c\x + 1
Next
Print "CHAIRS: "+CHAIRcount()
;delete the first 5 chairs
For chairs = 1 To 5
c.chair = First chair
Delete c
Next
Print "CHAIRS: "+CHAIRcount()
MouseWait
Function CHAIRcount()
Count = 0
For c.chair = Each chair
Count = Count + 1
Next
Return Count
End Function
|