DIM A AS BYTE
DIM I AS BYTE
PTP SETON
PTP ALLON
'== motor diretion setting ======================
DIR G6A,1,0,0,1,0,0
DIR G6B,1,1,1,1,1,1
DIR G6C,0,0,0,0,0,0
DIR G6D,0,1,1,0,1,0
'== motor start position read ===================
GETMOTORSET G6A,1,1,1,1,1,0
GETMOTORSET G6B,1,1,1,0,0,0
GETMOTORSET G6C,1,1,1,0,0,0
GETMOTORSET G6D,1,1,1,1,1,0
SPEED 5
'== motor power on =============================
MOTOR G24
GOSUB standard_pose
'================================================
MAIN:
SPEED 8
GOSUB push_up
DELAY 1000
GOSUB forward_standup
SPEED 6
GOSUB standard_pose
DELAY 1000
GOTO MAIN
'================================================
'================================================
standard_pose:
MOVE G6A,100, 76, 145, 93, 100, 100
MOVE G6D,100, 76, 145, 93, 100, 100
MOVE G6B,100, 30, 80, 100, 100, 100
MOVE G6C,100, 30, 80, 100, 100, 100
WAIT
RETURN
'================================================
sit_position:
SPEED 10
MOVE G6A,100, 151, 27, 140, 100, 100
MOVE G6D,100, 151, 27, 140, 100, 100
MOVE G6B,100, 30, 80, , ,
MOVE G6C,100, 30, 80, , ,
WAIT
MOVE G6A,100, 151, 23, 140, 101, 100
MOVE G6D,100, 151, 23, 140, 101, 100
MOVE G6B,100, 30, 80, , ,
MOVE G6C,100, 30, 80, , ,
WAIT
RETURN
push_up:
MOVE G6A,101, 164, 23, 168, 100, 100
MOVE G6B,159, 30, 81, 100, 100, 100
MOVE G6C,160, 30, 81, 100, 100, 100
MOVE G6D,100, 167, 20, 169, 99, 100
FOR i=0 TO 10
MOVE G6A,100, 75, 145, 100, 100, 100
MOVE G6B,190, 25, 80, 100, 100, 100
MOVE G6C,190, 25, 80, 100, 100, 100
MOVE G6D,100, 75, 145, 100, 100, 100
MOVE G6A,100, 75, 145, 100, 100, 100
MOVE G6B,190, 90, 45, 100, 100, 100
MOVE G6C,190, 90, 45, 100, 100, 100
MOVE G6D,100, 75, 145, 100, 100, 100
MOVE G6A,100, 75, 145, 100, 100, 100
MOVE G6B,190, 25, 80, 70, 100, 100
MOVE G6C,190, 25, 80, 70, 100, 100
MOVE G6D,100, 75, 145, 100, 100, 100
NEXT i
WAIT
RETURN
forwardstandup:
SPEED 10
MOVE G6A,100, 130, 120, 80, 110, 100
MOVE G6D,100, 130, 120, 80, 110, 100
MOVE G6B,150, 160, 10, 100, 100, 100
MOVE G6C,150, 160, 10, 100, 100, 100
WAIT
MOVE G6A, 80, 155, 85, 150, 150, 100
MOVE G6D, 80, 155, 85, 150, 150, 100
MOVE G6B,185, 40, 60, 100, 100, 100
MOVE G6C,185, 40, 60, 100, 100, 100
WAIT
MOVE G6A, 75, 165, 55, 165, 155, 100
MOVE G6D, 75, 165, 55, 165, 155, 100
MOVE G6B,185, 10, 100, 100, 100, 100
MOVE G6C,185, 10, 100, 100, 100, 100
WAIT
MOVE G6A, 60, 165, 30, 165, 155, 100
MOVE G6D, 60, 165, 30, 165, 155, 100
MOVE G6B,170, 10, 100, 100, 100, 100
MOVE G6C,170, 10, 100, 100, 100, 100
WAIT
MOVE G6A, 60, 165, 25, 160, 145, 100
MOVE G6D, 60, 165, 25, 160, 145, 100
MOVE G6B,150, 60, 90, 100, 100, 100
MOVE G6C,150, 60, 90, 100, 100, 100
WAIT
MOVE G6A,100, 155, 25, 140, 100, 100
MOVE G6D,100, 155, 25, 140, 100, 100
MOVE G6B,130, 50, 85, 100, 100, 100
MOVE G6C,130, 50, 85, 100, 100, 100
WAIT
GOSUB standard_pose
RETURN
I modded this just a little by using the forward_stand up codding instead of the one that was givin to me. So he will gett up much better
. I also used different codding so he will have better range plus the one givin to me was not quite right. 
OK HERE IS HOW YOU DO POST THESE ON THE CODING PROGRAM...........
Pushup:
sit_position:
SPEED 10
MOVE G6A,100, 151, 27, 140, 100, 100
MOVE G6D,100, 151, 27, 140, 100, 100
MOVE G6B,100, 30, 80, , ,
MOVE G6C,100, 30, 80, , ,
WAIT
MOVE G6A,100, 151, 23, 140, 101, 100
MOVE G6D,100, 151, 23, 140, 101, 100
MOVE G6B,100, 30, 80, , ,
MOVE G6C,100, 30, 80, , ,
WAIT
push_up:
MOVE G6A,101, 164, 23, 168, 100, 100
MOVE G6B,159, 30, 81, 100, 100, 100
MOVE G6C,160, 30, 81, 100, 100, 100
MOVE G6D,100, 167, 20, 169, 99, 100
FOR i=0 TO 10
MOVE G6A,100, 75, 145, 100, 100, 100
MOVE G6B,190, 25, 80, 100, 100, 100
MOVE G6C,190, 25, 80, 100, 100, 100
MOVE G6D,100, 75, 145, 100, 100, 100
MOVE G6A,100, 75, 145, 100, 100, 100
MOVE G6B,190, 90, 45, 100, 100, 100
MOVE G6C,190, 90, 45, 100, 100, 100
MOVE G6D,100, 75, 145, 100, 100, 100
MOVE G6A,100, 75, 145, 100, 100, 100
MOVE G6B,190, 25, 80, 70, 100, 100
MOVE G6C,190, 25, 80, 70, 100, 100
MOVE G6D,100, 75, 145, 100, 100, 100
NEXT i
WAIT
forwardstandup:
SPEED 10
MOVE G6A,100, 130, 120, 80, 110, 100
MOVE G6D,100, 130, 120, 80, 110, 100
MOVE G6B,150, 160, 10, 100, 100, 100
MOVE G6C,150, 160, 10, 100, 100, 100
WAIT
MOVE G6A, 80, 155, 85, 150, 150, 100
MOVE G6D, 80, 155, 85, 150, 150, 100
MOVE G6B,185, 40, 60, 100, 100, 100
MOVE G6C,185, 40, 60, 100, 100, 100
WAIT
MOVE G6A, 75, 165, 55, 165, 155, 100
MOVE G6D, 75, 165, 55, 165, 155, 100
MOVE G6B,185, 10, 100, 100, 100, 100
MOVE G6C,185, 10, 100, 100, 100, 100
WAIT
MOVE G6A, 60, 165, 30, 165, 155, 100
MOVE G6D, 60, 165, 30, 165, 155, 100
MOVE G6B,170, 10, 100, 100, 100, 100
MOVE G6C,170, 10, 100, 100, 100, 100
WAIT
MOVE G6A, 60, 165, 25, 160, 145, 100
MOVE G6D, 60, 165, 25, 160, 145, 100
MOVE G6B,150, 60, 90, 100, 100, 100
MOVE G6C,150, 60, 90, 100, 100, 100
WAIT
MOVE G6A,100, 155, 25, 140, 100, 100
MOVE G6D,100, 155, 25, 140, 100, 100
MOVE G6B,130, 50, 85, 100, 100, 100
MOVE G6C,130, 50, 85, 100, 100, 100
WAIT
GOSUB standard_pose
RETURN
with this on all you is copy and past this to the MAIN file in RoboBasic Program. You and add more or less PUSH_UPS: (FOR i=0 TO 10) Just add more or less to the 10.Then to get to your remote find a letter I USED F: then type
Pushup
GOSUB standard_pose
HAVE FUN With these I worked hard to get these right if there is any problem with them conntact me atxSVxSHaDOwZ@yahoo.com
Well good look, have thanks for looking and everything I hope you like it.
Or post anyother Codes you have to share!!!!!!
CJ aka xSVxSHaDOwZ
Statistics: Posted by xSVxSHaDOwZ — Sun Apr 03, 2011 3:38 am
]]>