Type Handle Example

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|657\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
SoCoder -> Snippet Home -> Variables

mike_g	Created : 10 April 2007 Language : Blitz Type Handle Example
Heres some example code of using a handle to get types. I dident write this, it was originally posted on CW by Bram32, but its a good explanation and a useful thing to know so here it is: Type enemy Field x Field y End Type ;make an array to store the handles Dim han(10) ;make 10 new enemies For i = 0 To 10 root.enemy = New enemy root\x = Rnd(800) root\y = Rnd(600) ;store their handle han(i) = Handle(root) Next ;graphics mode Graphics 800, 600, 0, 3 SetBuffer BackBuffer() ;main loop While Not KeyHit(1) Cls ;draw each enemy For root = Each enemy Oval root\x, root\y, 10, 10 Next ;this is the code to retreive the 3rd object root = Object enemy han(2) root\x = Rnd(800) Flip Wend --v Hope you don't mind Bram.

Comments