Undocumented Commands

Blitz3D Forums/Blitz3D Programming/Undocumented Commands

Red
 #1
TYPE ASS
END TYPE

TYPE NOSE
END TYPE

dim suprises(100)

for i=1 to 50
suprises(i)=Handle(New ASS)
suprises(50+i)=Handle(New NOSE)
next

KissMy suprises(rand(1,100)),1




function kissMy ( what%,type )

if type = 0 then MyBottom.ASS = object.ASS ( what )
if type = 1 then MyNose.NOSE = object.NOSE ( what )

end function