this is close.
but it wont work
img=1
img2=2
img3=3
obj=4
obj2=5
obj3=6
`load test tube
load image "tube8.png", img,1
load image "circle.png", img2,1
load image "circle.png", img3,1
make object plain obj,2,1
set object transparency obj,1
set alpha mapping on obj,100
texture object obj,img
set object light obj,0
position object obj,0,2,0
make object plain obj2,.2,.2
set object transparency obj2,1
set alpha mapping on obj2,100
texture object obj2,img2
set object light obj2,0
position object obj2,-.4,1.97,-.01
make object plain obj3,.2,.2
set object transparency obj3,1
set alpha mapping on obj3,100
texture object obj3,img3
set object light obj3,0
position object obj3,.4,1.97,-.01
`PLAYER
load object "mourner.dbo",p.id
scale object p.id,10,10,10
yrotate object p.id,-180
`ENEMY
make object cube e.id,1
`PLAYER HEALTH
Make Object Plain p.id+1,1.25,.1
set object transparency p.id+1,1
fix object pivot p.id+1
position object p.id+1,0,0,10
set object light p.id+1,0
SET OBJECT FILTER p.id+1,0
set object smoothing p.id+1,100
CreateBar(p.id+1,1,0,0,p.id,0,0,100,10,p.health#,rgbalpha(255,0,0,255),rgbalpha(255,255,0,255), p.maxhealth#)
hide object p.id+1
`PLAYER MAGIC
Make Object Plain p.id+2,1.25,.1
set object transparency p.id+2,1
fix object pivot p.id+2
position object p.id+2,0,4,2
set object light p.id+2,0
SET OBJECT FILTER p.id+2,0
set object smoothing p.id+2,100
CreateBar(p.id+2,1,0,0,p.id,0,0,100,10,p.magic#,rgbalpha(68,207,0,255),rgbalpha(68,207,255,255), p.maxmagic#)
hide object p.id+2
`ENEMY HEALTH
Make Object Plain e.id+1,1.25,.1
set object transparency e.id+1,1
fix object pivot e.id+1
position object e.id+1,0,0,5
set object light e.id+1,0
SET OBJECT FILTER e.id+1,0
set object smoothing e.id+1,100
CreateBar(e.id+1,1,0,0,e.id,0,0,100,10,e.health#,rgbalpha(255,0,0,255),rgbalpha(255,255,0,255), e.maxhealth#)
hide object e.id+1
global u#
global v#
make mesh from object 1,p.id+1
make mesh from object 2,obj
make mesh from object 3,obj2
make mesh from object 4,obj3
glue_object_to_object(obj2,obj)
glue_object_to_object(obj3,obj)
glue_object_to_object(obj,p.id)
glue_object_to_object(p.id+1,obj)
do
if GetDist(0,0,p.id,e.id)<10 and GetDist(1,0,obj,0)>1.6
rotate object p.id+1,0,camera angle y(),0
rotate object obj,0,camera angle y(),0
rotate object obj2,0,camera angle y(),0
rotate object obj3,0,camera angle y(),0
position object p.id+1,object position x(p.id),object position y(p.id) + (object size y(p.id)+1)/2.0,object position z(p.id)
position object obj,object position x(p.id+1),object position y(p.id+1)+.04,object position z(p.id+1)
position object obj2,object position x(p.id+1)-.6,object position y(p.id+1)+.02,object position z(p.id+1)-.01
position object obj3,object position x(p.id+1)+.6,object position y(p.id+1)+.02,object position z(p.id+1)-.01
Show Object p.id+1
Show Object obj
Show Object obj2
Show Object obj3
else
hide Object p.id+1
hide Object obj
hide Object obj2
hide Object obj3
endif
sync
loop
function glue_object_to_object(a,b)
`get start and end point offsets
`start point
EZro_ObjFindOffsetFromPoint b, object position x(a),object position y(a),object position z(a)
x1#=EZro_GetOffsetX()
y1#=EZro_GetOffsetY()
z1#=EZro_GetOffsetZ()
`end point
move object a, 1
EZro_ObjFindOffsetFromPoint b, object position x(a),object position y(a),object position z(a)
x2#=EZro_GetOffsetX()
y2#=EZro_GetOffsetY()
z2#=EZro_GetOffsetZ()
`position child
position object a, x1#,y1#,z1#
`point at end point
point object a, x2#,y2#,z2#
`glue to main limb
glue object to limb a, b, 0
endfunctionCHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD! http://www.imageposeidon.com/
