I need help.... read the code to see where...
;//Create Body
temp$="ODE_CreateBody mybody,"+Chr$(34)+"box"+Chr$(34)
If Instr(temp$,"ODE_CreateBody ")
;blah blah
cmd$=Replace(temp$,"ODE_CreateBody","")
cmd$=Replace(cmd$," ","");tab
param_handle$=Replace(cmd$," ","");space
my_Handle$=entry$(1,param_handle$)
my_shaper$=entry$(2,param_handle$)
my_shaper$=Replace(my_shaper$,Chr$(34),"")
;should work...
g.TODEGeom = New TODEGeom ;new ode object
g\body=ODE_dBodyCreate()
DebugLog "ODE BODY CREATED - "+my_handle$
g\name$=my_handle$
;think it works... works with debug saying it did it...
For g.TODEGeom=Each TODEGeom
If my_handle$=g\name$
If my_shaper$="sphere"
g\geom=ODE_dCreateSphere(space,1,1)
DebugLog "g\geom - Sphere Created - "+g\geom
Else
g\geom=ODE_dCreateBox(space,1,1,1,1)
DebugLog "g\geom - Box Created - "+g\geom
EndIf
EndIf
Next
;I cant get the next two commands to go where they are supposed to go...
;I don't know where to put them... It doesn't work any way I've tried...
;I want it to have the conditions of the 'if statement' its commented in...
;I'm sooooo confused.... :(
;Everywhere I put it, I get an error... :(
;If g\name$=my_Handle$
ODE_dGeomSetBody g\geom,g\body:DebugLog "g\body and g\geom combinded";<< THESE
ODE_dBodySetPosition(g\body,0,0,0) ;<< COMMANDS DONT WORKY! :(
;EndIf
EndIf
And... yes... I need it like that... :(
|