'================================================
rc_handle:
RCX = RCIN(3)
RCY = RCIN(4)
'RC Walk
IF RCX >= 125 THEN ' RIGHT TURN
GOSUB right_turn
GOSUB standard_pose
ENDIF
IF RCX <= 75 AND RCX > 10 THEN 'LEFT TURN
GOSUB left_turn
GOSUB standard_pose
ENDIF
IF RCY >= 125 THEN ' BACKWARD
GOSUB backward_walk
GOSUB standard_pose
ENDIF
IF RCY <= 75 AND RCY > 10 THEN ' FORWARD
GOSUB forward_walk
GOSUB standard_pose
ENDIF
RETURN
'================================================
'================================================
forward_walk:
SPEED 5
MOVE24 85, 71, 152, 91, 112, 60, 100, 40, 80, , , , 100, 40, 80, , , , 112, 76, 145, 93, 92, 60,
fwd_walk_main:
SPEED 14
'left up
MOVE24 90, 107, 105, 105, 114, 60, 90, 40, 80, , , , 100, 40, 80, , , , 114, 76, 145, 93, 90, 60,
'---------------------------------------
'left down
MOVE24 90, 56, 143, 122, 114, 60, 80, 40, 80, , , , 105, 40, 80, , , , 113, 80, 145, 90, 90, 60,
MOVE24 90, 46, 163, 112, 114, 60, 80, 40, 80, , , , 105, 40, 80, , , , 112, 80, 145, 90, 90, 60,
SPEED 10
'left center
MOVE24 100, 66, 141, 113, 100, 100, 90, 40, 80, , , , 100, 40, 80, , , , 100, 83, 156, 80, 100, 100,
MOVE24 113, 78, 142, 105, 90, 60, 100, 40, 80, , , , 100, 40, 80, , , , 90, 102, 136, 85, 114, 60,
SPEED 14
'right up
MOVE24 113, 76, 145, 93, 90, 60, 100, 40, 80, , , , 90, 40, 80, , , , 90, 107, 105, 105, 114, 60,
'right down
MOVE24 113, 80, 145, 90, 90, 60, 105, 40, 80, , , , 80, 40, 80, , , , 90, 56, 143, 122, 114, 60,
SPEED 10
'right center
MOVE24 100, 83, 156, 80, 100, 100, 100, 40, 80, , , , 90, 40, 80, , , , 100, 66, 141, 113, 100, 100,
MOVE24 90, 102, 136, 85, 114, 60, 100, 40, 80, , , , 100, 40, 80, , , , 113, 78, 142, 105, 90, 60,
RCX = RCIN(3)
RCY = RCIN(4)
IF RCX >= 75 AND RCX <= 125 THEN
IF RCY <= 75 THEN
GOTO fwd_walk_main
ENDIF
SPEED 5
MOVE24 85, 71, 152, 91, 112, 60, 100, 40, 80, , , , 100, 40, 80, , , , 112, 76, 145, 93, 92, 60,
RETURN