by bigdeal » Sat Dec 02, 2006 12:00 am
by bigdeal
Sat Dec 02, 2006 12:00 am
Hi,
I was playing with my bot and this is my first attempt to do a sidekick.
What do u think of this (activate with remocon press 5)
' action_05
'== template ====================================
DIM A 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:
A = REMOCON(1)
IF A <> 5 THEN GOTO main
GOSUB template
GOSUB standard_pose
GOTO MAIN
'================================================
template:
SPEED 3
MOVE G24, 88, 76, 145, 93, 117, , 100, 45, 80, , , , 100, 30, 80, , , , 114, 76, 145, 93, 82,
WAIT
SPEED 10
MOVE G24, 88, 165, 29, 122, 118, , , 45, 80, , , , 100, 30, 80, , , , 114, 165, 39, 112, 82,
WAIT
MOVE G24, 88, 165, 29, 122, 118, , 171, 13, 43, , , , 101, 82, 80, , , , 114, 165, 39, 112, 135,
WAIT
SPEED 15
MOVE G24, 88, 60, 154, 90, 168, , 171, 13, 43, , , , 101, 82, 80, , , , 114, 165, 39, 112, 135,
WAIT
MOVE G24, 88, 165, 29, 122, 118, , 171, 13, 43, , , , 101, 82, 80, , , , 114, 165, 39, 112, 135,
WAIT
SPEED 10
MOVE G24, 88, 165, 29, 122, 118, , 171, 34, 74, , , , 102, 22, 80, , , , 114, 165, 39, 112, 81,
WAIT
SPEED 10
MOVE G24, 88, 165, 29, 122, 118, , 107, 53, 74, , , , 102, 22, 80, , , , 114, 165, 39, 112, 81,
WAIT
SPEED 3
MOVE G24, 99, 165, 29, 122, 105, , 109, 36, 74, , , , 102, 22, 80, , , , 102, 165, 39, 112, 91,
WAIT
SPEED 10
MOVE G24, 100, 76, 145, 93, 100, , 100, 30, 80, , , , 100, 30, 80, , , , 100, 76, 145, 93, 100,
RETURN
'================================================
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
'================================================
greetings,
bigdeal
Hi,
I was playing with my bot and this is my first attempt to do a sidekick.
What do u think of this (activate with remocon press 5)
' action_05
'== template ====================================
DIM A 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:
A = REMOCON(1)
IF A <> 5 THEN GOTO main
GOSUB template
GOSUB standard_pose
GOTO MAIN
'================================================
template:
SPEED 3
MOVE G24, 88, 76, 145, 93, 117, , 100, 45, 80, , , , 100, 30, 80, , , , 114, 76, 145, 93, 82,
WAIT
SPEED 10
MOVE G24, 88, 165, 29, 122, 118, , , 45, 80, , , , 100, 30, 80, , , , 114, 165, 39, 112, 82,
WAIT
MOVE G24, 88, 165, 29, 122, 118, , 171, 13, 43, , , , 101, 82, 80, , , , 114, 165, 39, 112, 135,
WAIT
SPEED 15
MOVE G24, 88, 60, 154, 90, 168, , 171, 13, 43, , , , 101, 82, 80, , , , 114, 165, 39, 112, 135,
WAIT
MOVE G24, 88, 165, 29, 122, 118, , 171, 13, 43, , , , 101, 82, 80, , , , 114, 165, 39, 112, 135,
WAIT
SPEED 10
MOVE G24, 88, 165, 29, 122, 118, , 171, 34, 74, , , , 102, 22, 80, , , , 114, 165, 39, 112, 81,
WAIT
SPEED 10
MOVE G24, 88, 165, 29, 122, 118, , 107, 53, 74, , , , 102, 22, 80, , , , 114, 165, 39, 112, 81,
WAIT
SPEED 3
MOVE G24, 99, 165, 29, 122, 105, , 109, 36, 74, , , , 102, 22, 80, , , , 102, 165, 39, 112, 91,
WAIT
SPEED 10
MOVE G24, 100, 76, 145, 93, 100, , 100, 30, 80, , , , 100, 30, 80, , , , 100, 76, 145, 93, 100,
RETURN
'================================================
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
'================================================
greetings,
bigdeal
greetings,
bigdeal