Forum - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|709\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Blitz -> is the type deleted?
Tue, 10 Apr 2007, 07:43
Paul	Is there any way to check this without crashing the program? \|edit\| I dont think i was clear so i will try again function do(in) a.atype=Object.atype(in) return handle(in); it will crash here if the type doesn't excist end function --v \|edit\|
Tue, 10 Apr 2007, 09:01
mike_g	I'm not completely sure. I had the same problem once before but forgot what I did to solve it. When deleted does the object get reverted to Null? If that was it you could check that its not Null before returning it.
Tue, 10 Apr 2007, 09:27
Blitz3Dman	The way to avoid crashing is to exit the for each next loop with the exit command before you do any more with the type. hopefully that helps, I have no idea how to check it. -=-=- There are 10 kinds of people in this world - ( Insert 16 remarks about to what extent people know hex here )
Tue, 10 Apr 2007, 09:45
mike_g	That wouldent work using a handle for your types tho Blitz3Dman. Something like this should though: Have a variable that holds the number of objects that exist. When you delete an object swap its handle with the handle number at the position to where the last object that exists is. Then decrement the number of objects variable. In your FOR loops simply run it till the number of object left. All you will be doing then is swapping the pointers to the objects which should work fine. Sorry if this is a confusing explanation.
Tue, 10 Apr 2007, 10:01
Blitz3Dman	ah... I see. I think.
Tue, 10 Apr 2007, 10:38
mike_g	Heres a working example of what I meant: Graphics 640, 480, 32, 2 SetBuffer BackBuffer() Global things=1000 Dim t_han(1000) Type thing Field x, y, c End Type For i = 1 To 1000 t.thing = New thing t\x = Rand(0, 639) t\y = Rand(0, 479) t\c = Rand(0, 255) t_han(i)=Handle(t) Next While Not KeyHit(1) Cls ;Draw all existing objects For i = 1 To things t = Object thing t_han(i) Color t\c, t\c, t\c Rect t\x, t\y, 10, 10, 1 Next ;Remove a random object rem = Rand(1, things) t = Object thing t_han(rem) Delete t.thing ;Swap the removed objects handle with the last object temp = t_han(things) t_han(things) = t_han(rem) t_han(rem) = temp ;Decrement the number of objects left things = things-1 Flip Wend --v While its a method that works, it would probably be easier if you could check if the object exists.
Tue, 10 Apr 2007, 10:43
mike_g	Hey paul Ignore the above code the Null thing worked and its much easier. Example: Graphics 640, 480, 32, 2 SetBuffer BackBuffer() Dim t_han(1000) Type thing Field x, y, c End Type For i = 1 To 1000 t.thing = New thing t\x = Rand(0, 639) t\y = Rand(0, 479) t\c = Rand(0, 255) t_han(i)=Handle(t) Next While Not KeyHit(1) Cls ;Draw all existing objects For i = 1 To 1000 t = Object thing t_han(i) If t <> Null Color t\c, t\c, t\c Rect t\x, t\y, 10, 10, 1 EndIf Next ;Remove a random object rem = Rand(1, 1000) t = Object thing t_han(rem) Delete t.thing Flip Wend --v
Tue, 10 Apr 2007, 12:19
Paul	Thx Mike and Blitz3dman I'll try these examples out now