Codici sorgenti Robozak
Questi sono i sorgenti dei programmi che permettono di realizzare quanto visto nei filmati. Ovviamente non č tutta farina del mio sacco; io ha raccolto molti programmi disponibili per Robozak e li ho concentrati in un unico super programma che permette di selezionare col telecomando la routine desiderata. Ovviamente parecchi programmi sono stati modificati per renderli pių belli ed interessanti e per adattarli alle pinze.
Queste le varie funzioni richiamabili:
'k1: 'saluti
'k2: 'equilibrio
'k3: 'capriole
'k4: 'camminata in avanti
'k5: 'haka
'k6: 'danza
'k7: 'sport
'k8: 'sit_moving
'k9: 'Arti Marziali
'k10: 'fast_walk (0)
'k15: 'pinze (A)
'k18: 'test
'k19: 'backward_standup
'k21: 'forward_tumbling
'k22: 'matrix (*)
'k24: 'splits (#)
'k25: 'forward_standup
'k28: 'left_tumbling
'k30: 'righ_tumbling
'k31: 'back_tumbling
'k11: 'forward_walk
'k12: 'backward_walk
'k13: 'right_shift
'k14: 'left_shift
'k16: 'stantard pose/down
'k17:
'k20: 'libero
'k23:
'k26: 'stantard pose/down
'k27:
'k29:
'k32: 'test2
TemplatePino.bas
'================================================
' TemplatePino.bas 18.024 bytes rev 30-08-2009
'
' RR : internal parameter variable / ROBOREMOCON / Action command
' A : temporary variable / REMOCON
' A16,A26 : temporary variable
'
'== auto_main ===================================
GOTO AUTO
FILL 255,10000
DIM RR AS BYTE
DIM A AS BYTE
DIM A16 AS BYTE
DIM A26 AS BYTE
CONST ID = 0 ' 1:0, 2:32, 3:64, 4:96,
'== Action command check (50 - 82)
IF RR > 50 AND RR < 83 THEN GOTO action_proc
RR = 0
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 ===================
TEMPO 230
MUSIC "CDE"
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
'== motor power on =============================
SPEED 5
MOTOR G24
GOSUB standard_pose
'================================================
MAIN:
IF RR = 0 THEN GOTO MAIN1
ON RR GOTO MAIN,K1,K2,K3,K4,K5,K6,K7,K8,K9,K10,K11,K12,K13,K14,K15,K16,K17,K18,K19,K20,K21,K22,K23,K24,K25,K26,K27,K28,K29,K30,K31,K32
GOTO main_exit
MAIN1:
A = REMOCON(1)
A = A - ID
ON A GOTO MAIN,K1,K2,K3,K4,K5,K6,K7,K8,K9,K10,K11,K12,K13,K14,K15,K16,K17,K18,K19,K20,K21,K22,K23,K24,K25,K26,K27,K28,K29,K30,K31,K32
GOTO MAIN
action_proc:
A = RR - 50
ON A GOTO MAIN,K1,K2,K3,K4,K5,K6,K7,K8,K9,K10,K11,K12,K13,K14,K15,K16,K17,K18,K19,K20,K21,K22,K23,K24,K25,K26,K27,K28,K29,K30,K31,K32
RETURN
main_exit:
IF RR > 50 THEN RETURN
RR = 0
GOTO MAIN
'================================================
k1:
GOSUB bow_pose
GOSUB standard_pose
GOTO main_exit
k2:
GOSUB hands_up
DELAY 500
GOSUB standard_pose
GOTO main_exit
k3:
GOSUB sit_down_pose
DELAY 1000
GOSUB standard_pose
GOTO main_exit
k4:
GOSUB sit_hands_up
DELAY 1000
GOSUB standard_pose
GOTO main_exit
k5:
GOSUB foot_up
GOSUB standard_pose
GOTO main_exit
k6:
GOSUB body_move
GOSUB standard_pose
GOTO main_exit
k7:
GOSUB wing_move
GOSUB standard_pose
GOTO main_exit
k8:
GOSUB right_shoot
GOSUB standard_pose
DELAY 500
GOSUB left_shoot
GOSUB standard_pose
DELAY 500
GOTO main_exit
k9:
SPEED 8
GOSUB handstanding
DELAY 1000
SPEED 6
GOSUB standard_pose
GOTO main_exit
k10:
GOSUB fast_walk
GOSUB standard_pose
GOTO main_exit
k11:
GOSUB forward_walk
GOSUB standard_pose
GOTO main_exit
k12:
GOSUB backward_walk
GOSUB standard_pose
GOTO main_exit
k13:
SPEED 8
GOSUB right_shift
SPEED 6
GOSUB standard_pose
GOTO main_exit
k14:
SPEED 8
GOSUB left_shift
SPEED 6
GOSUB standard_pose
GOTO main_exit
k15:
GOSUB left_attack
GOSUB standard_pose
GOTO main_exit
k16:
GOSUB sit_down_pose16
GOTO main_exit
k17:
GOSUB left_forward
GOSUB standard_pose
GOTO main_exit
k18:
TEMPO 230
MUSIC "C"
GOTO main_exit
k19:
GOSUB backward_standup
GOSUB standard_pose
GOTO main_exit
k20:
GOSUB right_attack
GOSUB standard_pose
GOTO main_exit
k21:
GOSUB forward_tumbling
GOSUB standard_pose
GOTO main_exit
k22:
GOSUB left_turn
GOSUB standard_pose
GOTO main_exit
k23:
TEMPO 230
MUSIC "D"
GOTO main_exit
k24:
GOSUB right_turn
GOSUB standard_pose
GOTO main_exit
k25:
GOSUB forward_standup
GOSUB standard_pose
GOTO main_exit
k26:
GOSUB sit_down_pose26
GOTO main_exit
k27:
GOSUB right_forward
GOSUB standard_pose
GOTO main_exit
k28:
GOSUB left_tumbling
SPEED 10
GOSUB standard_pose
GOTO main_exit
k29:
GOSUB forward_punch
SPEED 10
GOSUB standard_pose
GOTO main_exit
k30:
GOSUB righ_tumbling
SPEED 10
GOSUB standard_pose
GOTO main_exit
k31:
GOSUB back_tumbling
SPEED 10
GOSUB standard_pose
GOTO main_exit
k32:
TEMPO 230
MUSIC "E"
GOTO main_exit
sit_down_pose16:
IF A16 = 0 THEN GOTO standard_pose16
A16 = 0
SPEED 10
MOVE G6A, 100, 151, 23, 140, 101, 100
MOVE G6D, 100, 151, 23, 140, 101, 100
MOVE G6B, 100, 30, 80, 100, 100, 175
MOVE G6C, 100, 30, 80, 100, 100, 175
WAIT
MOTOROFF G24
TEMPO 230
MUSIC "FEDC"
RETURN
standard_pose16:
TEMPO 230
MUSIC "CDE"
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
MOTOR G24
A16 = 1
SPEED 10
GOSUB standard_pose
RETURN
bow_pose:
MOVE G6A, 100, 58, 135, 160, 100, 100
MOVE G6D, 100, 58, 135, 160, 100, 100
MOVE G6B, 100, 30, 80, , , ,
MOVE G6C, 100, 30, 80, , , ,
WAIT
DELAY 1000
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, 175
MOVE G6C, 100, 30, 80, 100, 100, 175
WAIT
RETURN
hands_up:
SPEED 5
MOVE G6A, 100, 76, 145, 93, 100,
MOVE G6D, 100, 76, 145, 93, 100,
MOVE G6B, 100, 168, 150, , , 100
MOVE G6C, 100, 168, 150, , , 100
WAIT
RETURN
sit_down_pose:
SPEED 10
MOVE G6A, 100, 151, 23, 140, 101, 100
MOVE G6D, 100, 151, 23, 140, 101, 100
MOVE G6B, 100, 30, 80, 100, 100, 175
MOVE G6C, 100, 30, 80, 100, 100, 175
WAIT
RETURN
sit_hands_up:
SPEED 10
MOVE G6A, 100, 151, 23, 140, 101, 100
MOVE G6D, 100, 151, 23, 140, 101, 100
MOVE G6B, 100, 168, 150, , , 100
MOVE G6C, 100, 168, 150, , , 100
WAIT
RETURN
foot_up:
SPEED 5
MOVE G6A, 85, 71, 152, 91, 112, 60,
MOVE G6D, 112, 76, 145, 93, 92, 60,
MOVE G6B, 100, 40, 80, , , 175,
MOVE G6C, 100, 40, 80, , , 175,
WAIT
MOVE G6A, 90, 98, 105, 115, 115, 60,
MOVE G6D, 116, 74, 145, 98, 93, 60,
MOVE G6B, 100, 95, 100, 100, 100, 100,
MOVE G6C, 100, 105, 100, 100, 100, 100,
WAIT
MOVE G6A, 100, 151, 23, 140, 115, 100,
WAIT
DELAY 1000
MOVE G6A, 85, 71, 152, 91, 112, 60,
MOVE G6D, 112, 76, 145, 93, 92, 60,
WAIT
RETURN
body_move:
SPEED 6
GOSUB body_move1
GOSUB body_move2
GOSUB body_move3
MOVE G6A, 93, 76, 145, 94, 109, 100
MOVE G6D, 93, 76, 145, 94, 109, 100
MOVE G6B, 100, 105, 100, , , ,
MOVE G6C, 100, 105, 100, , , ,
WAIT
MOVE G6A, 104, 112, 92, 116, 107
MOVE G6D, 79, 81, 145, 95, 108
MOVE G6B, 100, 105, 100
MOVE G6C, 100, 105, 100
WAIT
MOVE G6A, 93, 76, 145, 94, 109, 100
MOVE G6D, 93, 76, 145, 94, 109, 100
MOVE G6B, 100, 105, 100, , , ,
MOVE G6C, 100, 105, 100, , , ,
WAIT
MOVE G6D, 104, 112, 92, 116, 107
MOVE G6A, 79, 81, 145, 95, 108
MOVE G6B, 100, 105, 100
MOVE G6C, 100, 105, 100
WAIT
MOVE G6A, 93, 76, 145, 94, 109, 100
MOVE G6D, 93, 76, 145, 94, 109, 100
MOVE G6B, 100, 105, 100, , , ,
MOVE G6C, 100, 105, 100, , , ,
WAIT
GOSUB body_move3
GOSUB body_move2
GOSUB body_move1
RETURN
body_move3:
MOVE G6A, 93, 76, 145, 94, 109, 100
MOVE G6D, 93, 76, 145, 94, 109, 100
MOVE G6B,100, 35, 90, , , ,
MOVE G6C,100, 35, 90, , , ,
WAIT
RETURN
body_move2:
MOVE G6D,110, 92, 124, 97, 93, 70
MOVE G6A, 76, 72, 160, 82, 128, 70
MOVE G6B,100, 35, 90, , , ,
MOVE G6C,100, 35, 90, , , ,
WAIT
RETURN
body_move1:
MOVE G6A, 85, 71, 152, 91, 112, 60
MOVE G6D,112, 76, 145, 93, 92, 60
MOVE G6B,100, 40, 80, , ,175
MOVE G6C,100, 40, 80, , ,175
WAIT
RETURN
wing_move:
DIM i AS BYTE
SPEED 5
MOVE G6A, 85, 71, 152, 91, 112, 60
MOVE G6D,112, 76, 145, 93, 92, 60
MOVE G6B,100, 40, 80, , , ,
MOVE G6C,100, 40, 80, , , ,
WAIT
MOVE G6A, 90, 98, 105, 115, 115, 60
MOVE G6D,116, 74, 145, 98, 93, 60
MOVE G6B,100, 150, 150, 100, 100, 175
MOVE G6C,100, 150, 150, 100, 100, 175
WAIT
MOVE G6A, 90, 121, 36, 105, 115, 60
MOVE G6D,116, 60, 146, 138, 93, 60
MOVE G6B,100, 150, 150, 100, 100, 175
MOVE G6C,100, 150, 150, 100, 100, 175
WAIT
MOVE G6A, 90, 98, 105, 64, 115, 60
MOVE G6D,116, 50, 160, 160, 93, 60
MOVE G6B,145, 110, 110, 100, 100, 175
MOVE G6C,145, 110, 110, 100, 100, 175
WAIT
FOR i = 10 TO 15
SPEED i
MOVE G6B,145, 80, 80, 100, 100, 130
MOVE G6C,145, 80, 80, 100, 100, 130
WAIT
MOVE G6B,145, 120, 120, 100, 100, 175
MOVE G6C,145, 120, 120, 100, 100, 175
WAIT
NEXT i
DELAY 1000
SPEED 6
MOVE G6A, 90, 98, 105, 64, 115, 60
'MOVE G6D,116, 50, 160, 160, 93, 60
MOVE G6D,116, 45, 160, 160, 93, 60
MOVE G6B,100, 160, 180, 100, 100, 175
MOVE G6C,100, 160, 180, 100, 100, 175
WAIT
MOVE G6A, 90, 121, 36, 105, 115, 60
MOVE G6D,116, 60, 146, 138, 93, 60
MOVE G6B,100, 150, 150, 100, 100, 175
MOVE G6C,100, 150, 150, 100, 100, 175
WAIT
SPEED 4
MOVE G6A, 90, 98, 105, 115, 115, 60
MOVE G6D,116, 74, 145, 98, 93, 60
WAIT
MOVE G6A, 85, 71, 152, 91, 112, 60
MOVE G6D,112, 76, 145, 93, 92, 60
MOVE G6B,100, 40, 80, , , ,
MOVE G6C,100, 40, 80, , , ,
WAIT
RETURN
right_shoot:
SPEED 4
MOVE G6A,112, 56, 180, 79, 104, 100
MOVE G6D, 70, 56, 180, 79, 102, 100
MOVE G6B,110, 45, 70, 100, 100, 175
MOVE G6C, 90, 45, 70, 100, 100, 175
WAIT
right_shoot1:
SPEED 6
MOVE G6A,115, 60, 180, 79, 95, 100
MOVE G6D, 90, 90, 127, 65, 116, 100
MOVE G6B, 80, 45, 70, 100, 100, 175
MOVE G6C,120, 45, 70, 100, 100, 175
WAIT
SPEED 15
HIGHSPEED SETON
right_shoot2:
MOVE G6A,115, 52, 180, 79, 95, 100
MOVE G6D, 90, 90, 127, 147, 116, 100
MOVE G6B,140, 45, 70, 100, 100, 175
MOVE G6C, 60, 45, 70, 100, 100, 175
WAIT
DELAY 500
HIGHSPEED SETOFF
right_shoot3:
SPEED 5
MOVE G6A,115, 76, 145, 93, 102, 100
MOVE G6D, 70, 76, 145, 93, 104, 100
MOVE G6B,110, 45, 70, 100, 100, 175
MOVE G6C, 90, 45, 70, 100, 100, 175
WAIT
RETURN
left_shoot:
SPEED 4
MOVE G6A, 70, 56, 180, 79, 102, 100
MOVE G6D,112, 56, 180, 79, 104, 100
MOVE G6B, 90, 45, 70, 100, 100, 175
MOVE G6C,110, 45, 70, 100, 100, 175
WAIT
left_shoot1:
SPEED 6
MOVE G6A, 90, 90, 127, 65, 116, 100
MOVE G6D,115, 60, 180, 79, 95, 100
MOVE G6B,140, 45, 70, 100, 100, 175
MOVE G6C, 60, 45, 70, 100, 100, 175
WAIT
SPEED 15
HIGHSPEED SETON
left_shoot2:
MOVE G6A, 90, 90, 127, 147, 116, 100
MOVE G6D,115, 52, 180, 79, 95, 100
MOVE G6B, 60, 45, 70, 100, 100, 175
MOVE G6C,140, 45, 70, 100, 100, 175
WAIT
DELAY 500
HIGHSPEED SETOFF
left_shoot3:
SPEED 5
MOVE G6A, 70, 76, 145, 93, 104, 100
MOVE G6D,115, 76, 145, 93, 102, 100
MOVE G6B, 90, 45, 70, 100, 100, 175
MOVE G6C,110, 45, 70, 100, 100, 175
WAIT
RETURN
handstanding:
GOSUB fall_forward
GOSUB standard_pose
GOSUB foot_up2
GOSUB standard_pose
GOSUB back_stand_up
RETURN
fall_forward:
SPEED 10
MOVE G6A, 100, 155, 25, 140, 100, 100
MOVE G6D, 100, 155, 25, 140, 100, 100
MOVE G6B, 130, 50, 85, 100, 100, 175
MOVE G6C, 130, 50, 85, 100, 100, 175
WAIT
MOVE G6A, 60, 165, 25, 160, 145, 100
MOVE G6D, 60, 165, 25, 160, 145, 100
MOVE G6B, 150, 60, 90, 100, 100, 175
MOVE G6C, 150, 60, 90, 100, 100, 175
WAIT
MOVE G6A, 60, 165, 30, 165, 155, 100
MOVE G6D, 60, 165, 30, 165, 155, 100
MOVE G6B, 170, 10, 100, 100, 100, 175
MOVE G6C, 170, 10, 100, 100, 100, 175
WAIT
SPEED 3
MOVE G6A, 75, 165, 55, 165, 155, 100
MOVE G6D, 75, 165, 55, 165, 155, 100
MOVE G6B, 185, 10, 100, 100, 100, 175
MOVE G6C, 185, 10, 100, 100, 100, 175
WAIT
SPEED 10
MOVE G6A, 80, 155, 85, 150, 150, 100
MOVE G6D, 80, 155, 85, 150, 150, 100
MOVE G6B, 185, 40, 60, 100, 100, 175
MOVE G6C, 185, 40, 60, 100, 100, 175
WAIT
MOVE G6A, 100, 130, 120, 80, 110, 100
MOVE G6D, 100, 130, 120, 80, 110, 100
MOVE G6B, 125, 160, 10, 100, 100, 175
MOVE G6C, 125, 160, 10, 100, 100, 175
WAIT
RETURN
foot_up2:
SPEED 6
MOVE G6A, 100, 125, 65, 10, 100, ,
MOVE G6D, 100, 125, 65, 10, 100, ,
MOVE G6B, 110, 30, 80, , , ,
MOVE G6C, 110, 30, 80, , , ,
SPEED 3
MOVE G6A, 100, 125, 65, 10, 100, ,
MOVE G6D, 100, 125, 65, 10, 100, ,
MOVE G6B, 170, 30, 80, , , ,
MOVE G6C, 170, 30, 80, , , ,
WAIT
DELAY 200
SPEED 6
MOVE G6A, 100, 89, 129, 57, 100, ,
MOVE G6D, 100, 89, 129, 57, 100, ,
MOVE G6B, 180, 30, 80, , , ,
MOVE G6C, 180, 30, 80, , , ,
WAIT
MOVE G6A, 100, 64, 179, 57, 100, ,
MOVE G6D, 100, 64, 179, 57, 100, ,
MOVE G6B, 190, 50, 80, , , ,
MOVE G6C, 190, 50, 80, , , ,
WAIT
DELAY 2000
MOVE G6A, 100, 64, 179, 57, 100, ,
MOVE G6D, 100, 64, 179, 57, 100, ,
MOVE G6B, 190, 50, 80, , , ,
MOVE G6C, 190, 50, 80, , , ,
WAIT
MOVE G6A, 100, 89, 129, 57, 100, ,
MOVE G6D, 100, 89, 129, 57, 100, ,
MOVE G6B, 180, 30, 80, , , ,
MOVE G6C, 180, 30, 80, , , ,
WAIT
SPEED 3
MOVE G6A, 100, 125, 65, 10, 100, ,
MOVE G6D, 100, 125, 65, 10, 100, ,
MOVE G6B, 170, 30, 80, , , ,
MOVE G6C, 170, 30, 80, , , ,
WAIT
SPEED 6
MOVE G6A, 100, 125, 65, 10, 100, ,
MOVE G6D, 100, 125, 65, 10, 100, ,
MOVE G6B, 110, 30, 80, , , ,
MOVE G6C, 110, 30, 80, , , ,
WAIT
RETURN
back_stand_up:
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, 175
MOVE G6C, 150, 160, 10, 100, 100, 175
WAIT
MOVE G6A, 80, 155, 85, 150, 150, 100
MOVE G6D, 80, 155, 85, 150, 150, 100
MOVE G6B, 185, 40, 60, 100, 100, 175
MOVE G6C, 185, 40, 60, 100, 100, 175
WAIT
MOVE G6A, 75, 165, 55, 165, 155, 100
MOVE G6D, 75, 165, 55, 165, 155, 100
MOVE G6B, 185, 10, 100, 100, 100, 175
MOVE G6C, 185, 10, 100, 100, 100, 175
WAIT
MOVE G6A, 60, 165, 30, 165, 155, 100
MOVE G6D, 60, 165, 30, 165, 155, 100
MOVE G6B, 170, 10, 100, 100, 100, 175
MOVE G6C, 170, 10, 100, 100, 100, 175
WAIT
MOVE G6A, 60, 165, 25, 160, 145, 100
MOVE G6D, 60, 165, 25, 160, 145, 100
MOVE G6B, 150, 60, 90, 100, 100, 175
MOVE G6C, 150, 60, 90, 100, 100, 175
WAIT
MOVE G6A, 100, 155, 25, 140, 100, 100
MOVE G6D, 100, 155, 25, 140, 100, 100
MOVE G6B, 130, 50, 85, 100, 100, 175
MOVE G6C, 130, 50, 85, 100, 100, 175
WAIT
RETURN
fast_walk:
DIM A10 AS BYTE
SPEED 10
MOVE G6B,100, 30, 90, 100, 100, 175
MOVE G6C,100, 30, 90, 100, 100, 175
WAIT
SPEED 7
fast_run01:
MOVE G6A, 90, 72, 148, 93, 110, 70
MOVE G6D,108, 75, 145, 93, 95, 70
WAIT
SPEED 15
fast_run02:
MOVE G6A, 90, 95, 105, 115, 110, 70
MOVE G6D,112, 75, 145, 93, 95, 70
MOVE G6B, 90, 30, 90, 100, 100, 175
MOVE G6C,110, 30, 90, 100, 100, 175
WAIT
SPEED 15
FOR A10 = 1 TO 4
fast_run20:
MOVE G6A,100, 80, 119, 118, 106, 100
MOVE G6D,105, 75, 145, 93, 100, 100
MOVE G6B, 80, 30, 90, 100, 100, 175
MOVE G6C,120, 30, 90, 100, 100, 175
fast_run21:
MOVE G6A,105, 74, 140, 106, 100, 100
MOVE G6D, 95, 105, 124, 93, 106, 100
MOVE G6B,100, 30, 90, 100, 100, 175
MOVE G6C,100, 30, 90, 100, 100, 175
fast_run22:
MOVE G6D,100, 80, 119, 118, 106, 100
MOVE G6A,105, 75, 145, 93, 100, 100
MOVE G6C, 80, 30, 90, 100, 100, 175
MOVE G6B,120, 30, 90, 100, 100, 175
fast_run23:
MOVE G6D,105, 74, 140, 106, 100, 100
MOVE G6A, 95, 105, 124, 93, 106, 100
MOVE G6C,100, 30, 90, 100, 100, 175
MOVE G6B,100, 30, 90, 100, 100, 175
NEXT A10
SPEED 8
MOVE G6A, 85, 80, 130, 95, 106, 100
MOVE G6D,108, 73, 145, 93, 100, 100
MOVE G6B, 80, 30, 90, 100, 100, 175
MOVE G6C,120, 30, 90, 100, 100, 175
WAIT
fast_run03:
MOVE G6A, 90, 72, 148, 93, 110, 70
MOVE G6D,108, 75, 145, 93, 93, 70
WAIT
SPEED 5
RETURN
left_turn:
SPEED 6
MOVE G6D, 85, 71, 152, 91, 112, 60
MOVE G6A, 112, 76, 145, 93, 92, 60
MOVE G6C, 100, 40, 80, , , ,
MOVE G6B, 100, 40, 80, , , ,
WAIT
SPEED 9
MOVE G6A, 113, 75, 145, 97, 93, 60
MOVE G6D, 90, 50, 157, 115, 112, 60
MOVE G6B, 105, 40, 70, , , ,
MOVE G6C, 90, 40, 70, , , ,
WAIT
MOVE G6A, 108, 78, 145, 98, 93, 60
MOVE G6D, 95, 43, 169, 110, 110, 60
MOVE G6B, 105, 40, 70, , , ,
MOVE G6C, 80, 40, 70, , , ,
WAIT
RETURN
right_turn:
SPEED 6
MOVE G6A, 85, 71, 152, 91, 112, 60
MOVE G6D, 112, 76, 145, 93, 92, 60
MOVE G6B, 100, 40, 80, , , ,
MOVE G6C, 100, 40, 80, , , ,
WAIT
SPEED 9
MOVE G6D, 113, 75, 145, 97, 93, 60
MOVE G6A, 90, 50, 157, 115, 112, 60
MOVE G6C, 105, 40, 70, , , ,
MOVE G6B, 90, 40, 70, , , ,
WAIT
MOVE G6D, 108, 78, 145, 98, 93, 60
MOVE G6A, 95, 43, 169, 110, 110, 60
MOVE G6C, 105, 40, 70, , , ,
MOVE G6B, 80, 40, 70, , , ,
WAIT
RETURN
forward_walk:
SPEED 10 '5
MOVE24 85, 71,152, 91,112, 60,100, 40, 80,,,,100, 40, 80,,,,112, 76,145, 93, 92,
60,
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,
MOVE24 112, 80,145, 90, 90, 60,105, 40, 80,,,, 80, 40, 80,,,,90, 46, 163, 112,
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,
SPEED 14
'left up
MOVE24 90,107,105,105,114, 60, 90, 40, 80,,,,100, 40, 80,,,,113, 76, 145, 93,
90, 60,
SPEED 5
MOVE24 85, 71,152, 91,112, 60,100, 40, 80,,,,100, 40, 80,,,,112, 76, 145, 93,
92, 60,
RETURN
left_shift:
SPEED 5
GOSUB left_shift1
SPEED 9
GOSUB left_shift2
GOSUB left_shift3
GOSUB left_shift4
SPEED 9
GOSUB left_shift5
GOSUB left_shift6
RETURN
left_shift1:
MOVE G6A, 85, 71, 152, 91, 112, 60,
MOVE G6D, 112, 76, 145, 93, 92, 60,
MOVE G6B, 100, 40, 80, , , ,
MOVE G6C, 100, 40, 80, , , ,
WAIT
RETURN
left_shift2:
MOVE G6D, 110, 92, 124, 97, 93, 70,
MOVE G6A, 76, 72, 160, 82, 128, 70,
MOVE G6B, 100, 35, 90, , , ,
MOVE G6C, 100, 35, 90, , , ,
WAIT
RETURN
left_shift3:
MOVE G6A, 93, 76, 145, 94, 109, 100,
MOVE G6D, 93, 76, 145, 94, 109, 100,
MOVE G6B, 100, 35, 90, , , ,
MOVE G6C, 100, 35, 90, , , ,
WAIT
RETURN
left_shift4:
MOVE G6A, 110, 92, 124, 97, 93, 70,
MOVE G6D, 76, 72, 160, 82, 128, 70,
MOVE G6B, 100, 35, 90, , , ,
MOVE G6C, 100, 35, 90, , , ,
WAIT
RETURN
left_shift5:
MOVE G6D, 86, 83, 135, 97, 114, 60,
MOVE G6A, 113, 78, 145, 93, 93, 60,
MOVE G6C, 90, 40, 80, , , ,
MOVE G6B, 100, 40, 80, , , ,
WAIT
RETURN
left_shift6:
MOVE G6D, 85, 71, 152, 91, 112, 60,
MOVE G6A, 112, 76, 145, 93, 92, 60,
MOVE G6C, 100, 40, 80, , , ,
MOVE G6B, 100, 40, 80, , , ,
WAIT
RETURN
sit_down_pose26:
IF A26 = 0 THEN GOTO standard_pose26
A26 = 0
SPEED 10
MOVE G6A,100, 151, 23, 140, 101, 100
MOVE G6D,100, 151, 23, 140, 101, 100
MOVE G6B,100, 30, 80, 100, 100, 175
MOVE G6C,100, 30, 80, 100, 100, 175
WAIT
RETURN
standard_pose26:
A26 = 1
MOVE G6A,100, 76, 145, 93, 100, 100
MOVE G6D,100, 76, 145, 93, 100, 100
MOVE G6B,100, 30, 80, 100, 100, 175
MOVE G6C,100, 30, 80, 100, 100, 175
WAIT
RETURN
right_shift:
SPEED 5
GOSUB right_shift1
SPEED 9
GOSUB right_shift2
GOSUB right_shift3
GOSUB right_shift4
SPEED 9
GOSUB right_shift5
GOSUB right_shift6
RETURN
right_shift1:
MOVE G6D, 85, 71, 152, 91, 112, 60
MOVE G6A, 112, 76, 145, 93, 92, 60
MOVE G6C, 100, 40, 80, , , ,
MOVE G6B, 100, 40, 80, , , ,
WAIT
RETURN
right_shift2:
MOVE G6A,110, 92, 124, 97, 93, 70
MOVE G6D, 76, 72, 160, 82, 128, 70
MOVE G6B,100, 35, 90, , , ,
MOVE G6C,100, 35, 90, , , ,
WAIT
RETURN
right_shift3:
MOVE G6A, 93, 76, 145, 94, 109, 100
MOVE G6D, 93, 76, 145, 94, 109, 100
MOVE G6B,100, 35, 90, , , ,
MOVE G6C,100, 35, 90, , , ,
WAIT
RETURN
right_shift4:
MOVE G6D,110, 92, 124, 97, 93, 70
MOVE G6A, 76, 72, 160, 82, 128, 70
MOVE G6B,100, 35, 90, , , ,
MOVE G6C,100, 35, 90, , , ,
WAIT
RETURN
right_shift5:
MOVE G6A, 86, 83, 135, 97, 114, 60
MOVE G6D,113, 78, 145, 93, 93, 60
MOVE G6B, 90, 40, 80, , , ,
MOVE G6C,100, 40, 80, , , ,
WAIT
RETURN
right_shift6:
MOVE G6A, 85, 71, 152, 91, 112, 60
MOVE G6D,112, 76, 145, 93, 92, 60
MOVE G6B,100, 40, 80, , , ,
MOVE G6C,100, 40, 80, , , ,
WAIT
RETURN
backward_walk:
SPEED 5
GOSUB backward_walk1
SPEED 13
GOSUB backward_walk2
SPEED 7
GOSUB backward_walk3
GOSUB backward_walk4
GOSUB backward_walk5
SPEED 13
GOSUB backward_walk6
SPEED 7
GOSUB backward_walk7
GOSUB backward_walk8
GOSUB backward_walk9
SPEED 13
GOSUB backward_walk2
SPEED 5
GOSUB backward_walk1
RETURN
backward_walk1:
MOVE G6A, 85, 71, 152, 91, 112, 60
MOVE G6D,112, 76, 145, 93, 92, 60
MOVE G6B,100, 40, 80, , , ,
MOVE G6C,100, 40, 80, , , ,
WAIT
RETURN
backward_walk2:
MOVE G6A, 90, 107, 105, 105, 114, 60
MOVE G6D,113, 78, 145, 93, 90, 60
MOVE G6B, 90, 40, 80, , , ,
MOVE G6C,100, 40, 80, , , ,
WAIT
RETURN
backward_walk9:
MOVE G6A, 90, 56, 143, 122, 114, 60
MOVE G6D,113, 80, 145, 90, 90, 60
MOVE G6B, 80, 40, 80, , , ,
MOVE G6C,105, 40, 80, , , ,
WAIT
RETURN
backward_walk8:
MOVE G6A,100, 62, 146, 108, 100, 100
MOVE G6D,100, 88, 140, 86, 100, 100
MOVE G6B, 90, 40, 80, , , ,
MOVE G6C,100, 40, 80, , , ,
WAIT
RETURN
backward_walk7:
MOVE G6A,113, 76, 142, 105, 90, 60
MOVE G6D, 90, 96, 136, 85, 114, 60
MOVE G6B,100, 40, 80, , , ,
MOVE G6C,100, 40, 80, , , ,
WAIT
RETURN
backward_walk6:
MOVE G6D, 90, 107, 105, 105, 114, 60
MOVE G6A,113, 78, 145, 93, 90, 60
MOVE G6C,90, 40, 80, , , ,
MOVE G6B,100, 40, 80, , , ,
WAIT
RETURN
backward_walk5:
MOVE G6D, 90, 56, 143, 122, 114, 60
MOVE G6A,113, 80, 145, 90, 90, 60
MOVE G6C,80, 40, 80, , , ,
MOVE G6B,105, 40, 80, , , ,
WAIT
RETURN
backward_walk4:
MOVE G6D,100, 62, 146, 108, 100, 100
MOVE G6A,100, 88, 140, 86, 100, 100
MOVE G6C,90, 40, 80, , ,,
MOVE G6B,100, 40, 80, , , ,
WAIT
RETURN
backward_walk3:
MOVE G6D,113, 76, 142, 105, 90, 60
MOVE G6A, 90, 96, 136, 85, 114, 60
MOVE G6C,100, 40, 80, , , ,
MOVE G6B,100, 40, 80, , , ,
WAIT
RETURN
forward_tumbling:
SPEED 8
GOSUB standard_pose
MOVE G6A,100, 155, 20, 140, 100, 100
MOVE G6D,100, 155, 20, 140, 100, 100
MOVE G6B,130, 50, 85, 100, 100, 175
MOVE G6C,130, 50, 85, 100, 100, 175
WAIT
MOVE G6A, 60, 165, 30, 165, 155, 100
MOVE G6D, 60, 165, 30, 165, 155, 100
MOVE G6B,170, 10, 100, 100, 100, 175
MOVE G6C,170, 10, 100, 100, 100, 175
WAIT
MOVE G6A, 75, 165, 55, 165, 155, 100
MOVE G6D, 75, 165, 55, 165, 155, 100
MOVE G6B,185, 10, 100, 100, 100, 175
MOVE G6C,185, 10, 100, 100, 100, 175
WAIT
MOVE G6A, 80, 155, 85, 150, 150, 100
MOVE G6D, 80, 155, 85, 150, 150, 100
MOVE G6B,185, 40, 60, 100, 100, 175
MOVE G6C,185, 40, 60, 100, 100, 175
WAIT
MOVE G6A,100, 130, 120, 80, 110, 100
MOVE G6D,100, 130, 120, 80, 110, 100
MOVE G6B,130, 160, 10, 100, 100, 175
MOVE G6C,130, 160, 10, 100, 100, 175
WAIT
MOVE G6A,100, 160, 110, 140, 100, 100
MOVE G6D,100, 160, 110, 140, 100, 100
MOVE G6B,140, 70, 20, 100, 100, 175
MOVE G6C,140, 70, 20, 100, 100, 175
WAIT
SPEED 15
MOVE G6A,100, 56, 110, 26, 100, 100
MOVE G6D,100, 71, 177, 162, 100, 100
MOVE G6B,170, 40, 50, 100, 100, 175
MOVE G6C,170, 40, 50, 100, 100, 175
WAIT
MOVE G6A,100, 62, 110, 15, 100, 100
MOVE G6D,100, 71, 128, 113, 100, 100
MOVE G6B,190, 40, 50, 100, 100, 175
MOVE G6C,190, 40, 50, 100, 100, 175
WAIT
SPEED 15
MOVE G6A,100, 55, 110, 15, 100, 100
MOVE G6D,100, 55, 110, 15, 100, 100
MOVE G6B,190, 40, 50, 100, 100, 175
MOVE G6C,190, 40, 50, 100, 100, 175
WAIT
SPEED 10
MOVE G6A,100, 110, 100, 15, 100, 100
MOVE G6D,100, 110, 100, 15, 100, 100
MOVE G6B,170, 160, 115, 100, 100, 175
MOVE G6C,170, 160, 115, 100, 100, 175
WAIT
MOVE G6A,100, 170, 70, 15, 100, 100
MOVE G6D,100, 170, 70, 15, 100, 100
MOVE G6B,190, 170, 120, 100, 100, 175
MOVE G6C,190, 170, 120, 100, 100, 175
WAIT
MOVE G6A,100, 170, 30, 110, 100, 100
MOVE G6D,100, 170, 30, 110, 100, 100
MOVE G6B,190, 40, 60, 100, 100, 175
MOVE G6C,190, 40, 60, 100, 100, 175
WAIT
GOSUB sit_pose
GOSUB standard_pose
RETURN
sit_pose:
SPEED 10
MOVE G6A,100, 151, 23, 140, 101, 100,
MOVE G6D,100, 151, 23, 140, 101, 100,
MOVE G6B,100, 30, 80, 100, 100, 175,
MOVE G6C,100, 30, 80, 100, 100, 175,
WAIT
RETURN
left_tumbling:
SPEED 8
MOVE G6A,100, 135, 60, 123, 100, 100
MOVE G6D,100, 135, 60, 123, 100, 100
MOVE G6B,100, 120, 140, 100, 100, 175
MOVE G6C,100, 120, 140, 100, 100, 175
WAIT
DELAY 100
'GOSUB wait_tocco
SPEED 3
MOVE G6A,114, 135, 60, 123, 105, 100
MOVE G6D, 88, 110, 91, 116, 100, 100
MOVE G6B,100, 120, 140, 100, 100, 175
MOVE G6C,100, 120, 140, 100, 100, 175
WAIT
'GOSUB wait_tocco
DELAY 100
MOVE G6A,114, 135, 60, 123, 105, 100
MOVE G6D,89, 135, 60, 123, 100, 100
MOVE G6B,100, 120, 140, 100, 100, 175
MOVE G6C,100, 120, 140, 100, 100, 175
WAIT
'GOSUB wait_tocco
'MOVE G6A,120, 135, 60, 123, 110, 100
MOVE G6A,115, 135, 60, 123, 110, 100
MOVE G6D, 89, 135, 60, 123, 130, 100
MOVE G6B,100, 120, 140, 100, 100, 175
MOVE G6C,100, 120, 140, 100, 100, 175
WAIT
SPEED 4 'girata
'MOVE G6A,120, 135, 60, 123, 120, 100
MOVE G6A,115, 135, 60, 123, 120, 100
MOVE G6D,89, 135, 60, 123, 158, 100
'MOVE G6B,100, 165, 185, 100, 100, 175
'MOVE G6C,100, 165, 185, 100, 100, 175
MOVE G6B,105, 164, 188, 100, 100, 175
MOVE G6C,96, 164, 188, 100, 100, 128
WAIT
'GOSUB wait_tocco
SPEED 8
'MOVE G6A,120, 131, 60, 123, 185, 100
'MOVE G6D,120, 131, 60, 123, 183, 100
MOVE G6A,115, 131, 60, 123, 185, 100
MOVE G6D,115, 131, 60, 123, 183, 100
'MOVE G6B,100, 165, 185, 100, 100, 175
'MOVE G6C,100, 165, 185, 100, 100, 175
MOVE G6B,105, 164, 188, 100, 100, 175
MOVE G6C,96, 164, 188, 100, 100, 128
WAIT
DELAY 200
'GOSUB wait_tocco
SPEED 5
'MOVE G6A,120, 131, 60, 123, 185, 100
'MOVE G6D,120, 131, 60, 123, 183, 100
MOVE G6A,115, 131, 60, 123, 185, 100
MOVE G6D,115, 131, 60, 123, 183, 100
MOVE G6B,100, 120, 145, 100, 100, 175
MOVE G6C,100, 120, 145, 100, 100, 175
WAIT
SPEED 6
MOVE G6A, 86, 112, 73, 127, 101, 100
MOVE G6D,105, 131, 60, 123, 183, 100
MOVE G6B,100, 120, 145, 100, 100, 175
MOVE G6C,100, 120, 145, 100, 100, 175
WAIT
SPEED 3
MOVE G6A, 86, 118, 73, 127, 101, 100
MOVE G6D,112, 131, 62, 123, 133, 100
MOVE G6B,100, 80, 80, 100, 100, 175
MOVE G6C,100, 80, 80, 100, 100, 175
WAIT
SPEED 3
MOVE G6A, 88, 115, 86, 115, 90, 100
MOVE G6D,107, 135, 62, 123, 113, 100
MOVE G6B,100, 80, 80, 100, 100, 175
MOVE G6C,100, 80, 80, 100, 100, 175
WAIT
SPEED 4
MOVE G6A,100, 135, 60, 123, 100, 100
MOVE G6D,100, 135, 60, 123, 100, 100
MOVE G6B,100, 80, 80, 100, 100, 175
MOVE G6C,100, 80, 80, 100, 100, 175
WAIT
RETURN
forward_punch:
SPEED 15
MOVE G6A, 92, 100, 110, 100, 107, 100
MOVE G6D, 92, 100, 110, 100, 107, 100
MOVE G6B,190, 150, 10, 100, 100, 175
MOVE G6C,190, 150, 10, 100, 100, 175
WAIT
SPEED 15
HIGHSPEED SETON
MOVE G6B,190, 10, 75, 100, 100, 175
MOVE G6C,190, 140, 10, 100, 100, 175
WAIT
DELAY 500
MOVE G6B,190, 140, 10, 100, 100, 175
MOVE G6C,190, 10, 75, 100, 100, 175
WAIT
DELAY 500
MOVE G6A, 92, 100, 113, 100, 107, 100
MOVE G6D, 92, 100, 113, 100, 107, 100
MOVE G6B,190, 150, 10, 100, 100, 175
MOVE G6C,190, 150, 10, 100, 100, 175
WAIT
HIGHSPEED SETOFF
MOVE G6A,100, 115, 90, 110, 100, 100
MOVE G6D,100, 115, 90, 110, 100, 100
MOVE G6B,100, 80, 60, 100, 100, 175
MOVE G6C,100, 80, 60, 100, 100, 175
WAIT
RETURN
righ_tumbling:
SPEED 8
MOVE G6A,100, 135, 60, 123, 100, 100
MOVE G6D,100, 135, 60, 123, 100, 100
MOVE G6B,100, 120, 140, 100, 100, 175
MOVE G6C,100, 120, 140, 100, 100, 175
WAIT
'GOSUB wait_tocco
DELAY 100
SPEED 3
MOVE G6A, 88, 110, 91, 116, 100, 100
'MOVE G6D,114, 135, 60, 123, 105, 100
MOVE G6D,114, 135, 60, 123, 110, 100
MOVE G6B,100, 120, 140, 100, 100, 175
MOVE G6C,100, 120, 140, 100, 100, 175
WAIT
'GOSUB wait_tocco
DELAY 100
'MOVE G6A,89, 135, 60, 123, 100, 100
MOVE G6A,88, 134, 60, 123, 100, 100
'MOVE G6D,114, 135, 60, 123, 105, 100
MOVE G6D,115, 135, 60, 123, 110, 100
MOVE G6B,100, 120, 140, 100, 100, 175
MOVE G6C,100, 120, 140, 100, 100, 175
WAIT
'GOSUB wait_tocco
MOVE G6A, 89, 135, 60, 123, 130, 100
'MOVE G6D,120, 135, 60, 123, 110, 100
MOVE G6D,115, 135, 60, 123, 110, 100
MOVE G6B,100, 120, 140, 100, 100, 175
MOVE G6C,100, 120, 140, 100, 100, 175
WAIT
'GOSUB wait_tocco
SPEED 4 'girata
MOVE G6A,89, 135, 60, 123, 158, 100
'MOVE G6D,120, 135, 60, 123, 120, 100
'MOVE G6B,100, 165, 185, 100, 100, 175
'MOVE G6C,100, 165, 185, 100, 100, 175
MOVE G6D,115, 135, 60, 123, 120, 100
''MOVE G6B,100, 160, 188, 100, 100, 144
''MOVE G6C,100, 165, 188, 100, 100, 175
MOVE G6B,98, 164, 188, 100, 100, 130
MOVE G6C,101, 164, 188, 100, 100, 162
WAIT
'GOSUB wait_tocco
SPEED 8
'MOVE G6A,120, 131, 60, 123, 183, 100
'MOVE G6D,120, 131, 60, 123, 185, 100
MOVE G6A,115, 131, 60, 123, 183, 100
MOVE G6D,115, 131, 60, 123, 185, 100
'MOVE G6B,100, 165, 185, 100, 100, 175
'MOVE G6C,100, 165, 185, 100, 100, 175
''MOVE G6B,100, 160, 188, 100, 100, 144
''MOVE G6C,100, 165, 188, 100, 100, 175
MOVE G6B,98, 164, 188, 100, 100, 130
MOVE G6C,101, 164, 188, 100, 100, 162
WAIT
DELAY 200
'GOSUB wait_tocco
SPEED 5
'MOVE G6A,120, 131, 60, 123, 183, 100
'MOVE G6D,120, 131, 60, 123, 185, 100
MOVE G6A,115, 131, 60, 123, 183, 100
MOVE G6D,115, 131, 60, 123, 185, 100
MOVE G6B,100, 120, 145, 100, 100, 175
MOVE G6C,100, 120, 145, 100, 100, 175
WAIT
'GOSUB wait_tocco
SPEED 6
MOVE G6A,105, 131, 60, 123, 183, 100
MOVE G6D, 86, 112, 73, 127, 101, 100
MOVE G6B,100, 120, 145, 100, 100, 175
MOVE G6C,100, 120, 145, 100, 100, 175
WAIT
SPEED 3
MOVE G6A,112, 131, 62, 123, 133, 100
MOVE G6D, 86, 118, 73, 127, 101, 100
MOVE G6B,100, 80, 80, 100, 100, 175
MOVE G6C,100, 80, 80, 100, 100, 175
WAIT
SPEED 3
MOVE G6A,107, 135, 62, 123, 113, 100
MOVE G6D, 88, 115, 89, 115, 90, 100
MOVE G6B,100, 80, 80, 100, 100, 175
MOVE G6C,100, 80, 80, 100, 100, 175
WAIT
SPEED 4
MOVE G6A,100, 135, 60, 123, 100, 100
MOVE G6D,100, 135, 60, 123, 100, 100
MOVE G6B,100, 80, 80, 100, 100, 175
MOVE G6C,100, 80, 80, 100, 100, 175
WAIT
RETURN
back_tumbling:
SPEED 8
GOSUB standard_pose
MOVE G6A, 100, 170, 71, 23, 100, 100
MOVE G6D, 100, 170, 71, 23, 100, 100
MOVE G6B, 80, 50, 70, 100, 100, 175
MOVE G6C, 80, 50, 70, 100, 100, 175
WAIT
MOVE G6A, 100, 133, 71, 23, 100, 100
MOVE G6D, 100, 133, 71, 23, 100, 100
MOVE G6B, 10, 96, 15, 100, 100, 175
MOVE G6C, 10, 96, 14, 100, 100, 175
WAIT
MOVE G6A, 100, 133, 49, 23, 100, 100
MOVE G6D, 100, 133, 49, 23, 100, 100
MOVE G6B, 45, 116, 15, 100, 100, 175
MOVE G6C, 45, 116, 14, 100, 100, 175
WAIT
MOVE G6A, 100, 133, 49, 23, 100, 100
MOVE G6D, 100, 70, 180, 160, 100, 100
MOVE G6B, 45, 50, 70, 100, 100, 175
MOVE G6C, 45, 50, 70, 100, 100, 175
WAIT
SPEED 15
MOVE G6A, 100, 133, 180, 160, 100, 100
MOVE G6D, 100, 133, 180, 160, 100, 100
MOVE G6B, 10, 50, 70, 100, 100, 175
MOVE G6C, 10, 50, 70, 100, 100, 175
WAIT
HIGHSPEED SETON
MOVE G6A, 100, 95, 180, 160, 100, 100
MOVE G6D, 100, 95, 180, 160, 100, 100
MOVE G6B, 160, 50, 70, 100, 100, 175
MOVE G6C, 160, 50, 70, 100, 100, 175
WAIT
HIGHSPEED SETOFF
MOVE G6A, 100, 130, 120, 80, 110, 100
MOVE G6D, 100, 130, 120, 80, 110, 100
MOVE G6B, 130, 160, 10, 100, 100, 175
MOVE G6C, 130, 160, 10, 100, 100, 175
WAIT
GOSUB back_standing
RETURN
back_standing:
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, 175
MOVE G6C,150, 160, 10, 100, 100, 175
WAIT
MOVE G6A, 80, 155, 85, 150, 150, 100
MOVE G6D, 80, 155, 85, 150, 150, 100
MOVE G6B,185, 40, 60, 100, 100, 175
MOVE G6C,185, 40, 60, 100, 100, 175
WAIT
MOVE G6A, 75, 165, 55, 165, 155, 100
MOVE G6D, 75, 165, 55, 165, 155, 100
MOVE G6B,185, 10, 100, 100, 100, 175
MOVE G6C,185, 10, 100, 100, 100, 175
WAIT
MOVE G6A, 60, 165, 30, 165, 155, 100
MOVE G6D, 60, 165, 30, 165, 155, 100
MOVE G6B,170, 10, 100, 100, 100, 175
MOVE G6C,170, 10, 100, 100, 100, 175
WAIT
MOVE G6A, 60, 165, 25, 160, 145, 100
MOVE G6D, 60, 165, 25, 160, 145, 100
MOVE G6B,150, 60, 90, 100, 100, 175
MOVE G6C,150, 60, 90, 100, 100, 175
WAIT
MOVE G6A,100, 155, 25, 140, 100, 100
MOVE G6D,100, 155, 25, 140, 100, 100
MOVE G6B,130, 50, 85, 100, 100, 175
MOVE G6C,130, 50, 85, 100, 100, 175
WAIT
RETURN
left_attack:
SPEED 7
GOSUB left_attack1
SPEED 12
HIGHSPEED SETON
MOVE G6A, 98, 157, 20, 134, 110, 100
MOVE G6D, 57, 115, 77, 125, 134, 100
MOVE G6B,107, 135, 108, 100, 100, 175
MOVE G6C,112, 92, 99, 100, 100, 175
WAIT
DELAY 1000
HIGHSPEED SETOFF
SPEED 15
GOSUB sit_pose
RETURN
left_attack1:
MOVE G6A, 85, 71, 152, 91, 107, 60
MOVE G6D, 108, 76, 145, 93, 100, 60
MOVE G6B, 100, 40, 80, , , ,
MOVE G6C, 100, 40, 80, , , ,
WAIT
RETURN
right_attack:
SPEED 7
GOSUB right_attack1
SPEED 12
HIGHSPEED SETON
MOVE G6D, 98, 157, 20, 134, 110, 100
MOVE G6A, 57, 115, 77, 125, 134, 100
MOVE G6B,112, 92, 99, 100, 100, 175
MOVE G6C,107, 135, 108, 100, 100, 175
WAIT
DELAY 1000
HIGHSPEED SETOFF
SPEED 15
GOSUB sit_pose
RETURN
right_attack1:
MOVE G6D, 85, 71, 152, 91, 107, 60
MOVE G6A, 108, 76, 145, 93, 100, 60
MOVE G6C, 100, 40, 80, , , ,
MOVE G6B, 100, 40, 80, , , ,
WAIT
RETURN
left_forward:
SPEED 7
MOVE G6A, 85, 71, 152, 91, 107, 60
MOVE G6D, 108, 76, 145, 93, 100, 60
MOVE G6B, 130, 40, 80, , , ,
MOVE G6C, 70, 40, 80, , , ,
WAIT
SPEED 12
HIGHSPEED SETON
MOVE G6A, 107, 164, 21, 125, 93
MOVE G6D, 66, 163, 85, 65, 130
MOVE G6B, 189, 40, 77
MOVE G6C, 50, 72, 86
WAIT
DELAY 1000
HIGHSPEED SETOFF
GOSUB sit_pose
RETURN
right_forward:
SPEED 7
MOVE G6D, 85, 71, 152, 91, 107, 60
MOVE G6A, 108, 76, 145, 93, 100, 60
MOVE G6C, 130, 40, 80, , , ,
MOVE G6B, 70, 40, 80, , , ,
WAIT
SPEED 10
HIGHSPEED SETON
MOVE G6D, 107, 164, 21, 125, 93
MOVE G6A, 66, 163, 85, 65, 130
MOVE G6C, 189, 40, 77
MOVE G6B, 50, 72, 86
WAIT
DELAY 1000
HIGHSPEED SETOFF
GOSUB sit_pose
RETURN
forward_standup:
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, 175
MOVE G6C,150, 160, 10, 100, 100, 175
WAIT
MOVE G6A, 80, 155, 85, 150, 150, 100
MOVE G6D, 80, 155, 85, 150, 150, 100
MOVE G6B,185, 40, 60, 100, 100, 175
MOVE G6C,185, 40, 60, 100, 100, 175
WAIT
MOVE G6A, 75, 165, 55, 165, 155, 100
MOVE G6D, 75, 165, 55, 165, 155, 100
MOVE G6B,185, 10, 100, 100, 100, 175
MOVE G6C,185, 10, 100, 100, 100, 175
WAIT
MOVE G6A, 60, 165, 30, 165, 155, 100
MOVE G6D, 60, 165, 30, 165, 155, 100
MOVE G6B,170, 10, 100, 100, 100, 175
MOVE G6C,170, 10, 100, 100, 100, 175
WAIT
MOVE G6A, 60, 165, 25, 160, 145, 100
MOVE G6D, 60, 165, 25, 160, 145, 100
MOVE G6B,150, 60, 90, 100, 100, 175
MOVE G6C,150, 60, 90, 100, 100, 175
WAIT
MOVE G6A,100, 155, 25, 140, 100, 100
MOVE G6D,100, 155, 25, 140, 100, 100
MOVE G6B,130, 50, 85, 100, 100, 175
MOVE G6C,130, 50, 85, 100, 100, 175
WAIT
GOSUB standard_pose
RETURN
backward_standup:
SPEED 10
MOVE G6A,100, 10, 100, 115, 100, 100
MOVE G6D,100, 10, 100, 115, 100, 100
MOVE G6B,100, 130, 10, 100, 100, 175
MOVE G6C,100, 130, 10, 100, 100, 175
WAIT
MOVE G6A,100, 10, 83, 140, 100, 100
MOVE G6D,100, 10, 83, 140, 100, 100
MOVE G6B, 20, 130, 10, 100, 100, 175
MOVE G6C, 20, 130, 10, 100, 100, 175
WAIT
MOVE G6A,100, 126, 60, 50, 100, 100
MOVE G6D,100, 126, 60, 50, 100, 100
MOVE G6B, 20, 30, 90, 100, 100, 175
MOVE G6C, 20, 30, 90, 100, 100, 175
WAIT
MOVE G6A,100, 165, 70, 15, 100, 100
MOVE G6D,100, 165, 70, 15, 100, 100
MOVE G6B, 30, 20, 95, 100, 100, 175
MOVE G6C, 30, 20, 95, 100, 100, 175
WAIT
MOVE G6A,100, 165, 40, 100, 100, 100
MOVE G6D,100, 165, 40, 100, 100, 100
MOVE G6B,110, 70, 50, 100, 100, 175
MOVE G6C,110, 70, 50, 100, 100, 175
WAIT
GOSUB standard_pose
RETURN
TelecomandoPino.bas
'================================================
' TelecomandoPino.bas 7.791 bytes agg. del 30-08-2009
' Richiama TemplatePino.bas
'
'routines:
'k1: 'saluti
'k2: 'equilibrio
'k3: 'capriole
'k4: 'camminata in avanti
'k5: 'haka
'k6: 'danza
'k7: 'sport
'k8: 'sit_moving
'k9: 'Arti Marziali
'k10: 'fast_walk (0)
'k15: 'pinze (A)
'k18: 'test
'k19: 'backward_standup
'k21: 'forward_tumbling
'k22: 'matrix (*)
'k24: 'splits (#)
'k25: 'forward_standup
'k28: 'left_tumbling
'k30: 'righ_tumbling
'k31: 'back_tumbling
'k11: 'forward_walk
'k12: 'backward_walk
'k13: 'right_shift
'k14: 'left_shift
'k16: 'stantard pose/down
'k17:
'k20: 'libero
'k23:
'k26: 'stantard pose/down
'k27:
'k29:
'k32: 'test2
DIM A AS BYTE
DIM counter AS BYTE
DIM i AS BYTE
DIM tocco AS BYTE
DIM luce AS BYTE
DIM ostacolo AS BYTE
DIM suono AS BYTE
PTP SETON
PTP ALLON
ostacolo=255
'== zero point for hands ========================
ZERO G6B, , , , , , 100
ZERO G6C, , , , , , 86
'== 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 ===================
TEMPO 230
MUSIC "CDE"
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
'== motor power on =============================
SPEED 5
MOTOR G24
GOSUB standard_pose 'sit_down_pose
'================================================
MAIN:
'GOSUB input_tocco
A = REMOCON(1)
IF A = 0 THEN
GOSUB blink
ELSE
TEMPO 230
MUSIC "FEDC"
ON A GOTO MAIN,K1,K2,K3,K4,K5,K6,K7,K8,K9,K10,K11,K12,K13,K14,K15,K16,K17,K18,K19,K20,K21,K22,K23,K24,K25,K26,K27,K28,K29,K30,K31,K32
ENDIF
GOTO MAIN
blink:
OUT 52,1
DELAY 300
OUT 52,0
RETURN
bip:
TEMPO 230
MUSIC "FEDC"
RETURN
bip1:
TEMPO 230
MUSIC "C"
RETURN
input_tocco:
tocco=IN(32)
IF tocco = 0 THEN GOSUB bip
RETURN
wait_tocco: 'rtn per fermare l'esecuzione e ripartire dopo il tocco
tocco=1
DELAY 300
tocco=IN(32)
IF tocco <> 0 THEN GOTO wait_tocco
TEMPO 230
MUSIC "C"
RETURN
input_luce:
luce = AD(4)
IF luce < 10 THEN GOSUB bip
RETURN
input_suono:
suono = AD(5)
IF suono < 250 THEN GOSUB bip
RETURN
input_ostacolo:
ostacolo = AD(6)
IF ostacolo < 250 THEN GOSUB bip
RETURN
sit_down_pose:
SPEED 10
MOVE G6A, 100, 151, 23, 140, 101, 100
MOVE G6D, 100, 151, 23, 140, 101, 100
MOVE G6B, 100, 30, 80, 100, 100, 175
MOVE G6C, 100, 30, 80, 100, 100, 175
WAIT
RETURN
'================================================
k1: 'saluti
ACTION 1
DELAY 1000
ACTION 2
DELAY 1000
ACTION 4
DELAY 1000
GOTO MAIN
k2: 'equilibrio
ACTION 5 'foot_up
DELAY 1000
ACTION 6 'body_move
DELAY 1000
ACTION 7 'wing_move
DELAY 1000
ACTION 8 'calci
GOTO MAIN
k3: 'capriole
ACTION 9 'handstanding
DELAY 1500
ACTION 21 'forward_tumbling
DELAY 2000
ACTION 31 'back_tumbling
DELAY 2000
ACTION 29 'forward_punch
DELAY 2000
ACTION 28 'left_tumbling
DELAY 2000
ACTION 30 'righ_tumbling
GOTO MAIN
k4: 'camminata in avanti
GOSUB standard_pose
k44:
FOR counter = 1 TO 4
GOSUB forward_walk 'forward walk
ostacolo = AD(6)
IF ostacolo < 200 THEN
'rilevato ostacolo
TEMPO 230
MUSIC "FEDC"
ACTION 12 'indietro
ACTION 12 'indietro
ACTION 22 'left_turn
ACTION 22 'left_turn
ACTION 22 'left_turn
GOTO k44
ENDIF
NEXT counter
GOSUB ultimo_left_up
GOSUB standard_pose
GOTO main
k5: 'haka
GOSUB standard_pose
GOSUB haka
GOTO MAIN
k6: 'danza
GOSUB standard_pose
GOSUB dance
GOTO MAIN
k7: 'sport
GOSUB standard_pose
GOSUB sport
GOTO MAIN
k8: 'sit_moving
GOSUB sit_moving
GOTO main
k9: 'Arti Marziali
GOSUB Arti_Marziali
GOTO MAIN
k10: 'fast_walk (0)
ACTION 10
GOTO MAIN
k11: 'forward_walk
ACTION 11
GOTO MAIN
k12: 'backward_walk
ACTION 12
GOTO MAIN
k13: 'right_shift
ACTION 13
GOTO MAIN
k14: 'left_shift
ACTION 14
GOTO MAIN
k15: 'pinze
GOSUB pinze
GOTO MAIN
k16:
ACTION 16
GOTO MAIN
k17:
ACTION 17
GOTO MAIN
k18:
GOSUB test
GOTO MAIN
k19: 'backward_standup
ACTION 19
GOTO MAIN
k20: 'libero
ACTION 20
GOTO MAIN
k21: 'forward_tumbling
ACTION 21
GOTO MAIN
k22: '* matrix
GOSUB matrix
GOTO MAIN
k23:
ACTION 23
GOTO MAIN
k24: '# splits
GOSUB splits
GOTO MAIN
k25: 'forward_standup
ACTION 25
GOTO MAIN
k26:
ACTION 26
GOTO MAIN
k27:
ACTION 27
GOTO MAIN
k28:
ACTION 28
GOTO MAIN
k29:
ACTION 29
GOTO MAIN
k30: 'righ_tumbling
ACTION 30
GOTO MAIN
k31: 'back_tumbling
ACTION 31
GOTO MAIN
k32:
GOSUB test2
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,175
MOVE G6C,100,30,80,100,100,175
WAIT
RETURN
' Sequenza motoria per la camminata dell'umanoide
forward_walk:
SPEED 10
MOVE24 85,71,152,91,112,60,100,40,80,,,,100,40,80,,,,112,76,145,93,92,60,
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,
MOVE24 112,80,145,90,90,60,105,40,80,,,,80,40,80,,,,90,46,163,112,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,
SPEED 14
'left up
'MOVE24 90,107,105,105,114,60,90,40,80,,,,100, 40,80,,,,113,76,145,93,90,60,
'SPEED 5
'MOVE24 85,71,152,91,112,60,100,40,80,, ,,100,40,80,,,, 112 76,145,93,92,60,
RETURN
ultimo_left_up:
'left up
MOVE24 90,107,105,105,114,60,90,40,80,,,,100, 40,80,,,,113,76,145,93,90,60,
SPEED 5
MOVE24 85,71,152,91,112,60,100,40,80,, ,,100,40,80,,,, 112 76,145,93,92,60,
RETURN
haka:
SPEED 15
MOVE G6B,100,50,80,100,100,175
MOVE G6C,100,50,80,100,100,175
WAIT
MOVE G6A,90,150,25,140,110,100
MOVE G6D,90,150,25,140,110,100
WAIT
HIGHSPEED SETON
MOVE G6C,187,50,80,100,100,175
'MOVE G6C,187,15,15,100,100,175
MOVE G6C,187,13,12,100,100,175
WAIT
MOVE G6B,170,50,80,100, 100,175
MOVE G6B,170,17,35,100, 100,175
SPEED 10
MOVE G6B,170,40,35,100,100,175
WAIT
MOVE G6C,170,40,35,100,100,175
WAIT
FOR i = 1 TO 6
'MOVE G6B,135,40,35,100,100,175
'MOVE G6C,135,40,35,100,100,175
MOVE G6B,143,40,35,100,100,175
MOVE G6C,144,40,35,100,100,175
WAIT
MOVE G6B,170,40,35,100,100,175
MOVE G6C,170,40,35,100,100,175
DELAY 500
NEXT i
MOVE G6B,170,30,10,100,100,175
MOVE G6C,170,30,10,100,100,175
DELAY 300
MOVE G6A,90,150,23,125,110,100 'mossa veloce
MOVE G6D,90,150,23,125,110,100
MOVE G6B,188,35,54,100,100,175
MOVE G6C,188,35,54,100,100,175
WAIT
DELAY 300 'rallenta per evitare cadute
MOVE G6A,90,150,25,140,110,100
MOVE G6D,90,150,25,140,110,100
WAIT
MOVE G6B,170,40,35,100,100,175
WAIT
MOVE G6C,170,40,35,100,100,175
WAIT
FOR i = 1 TO 2
'MOVE G6B,135,40,35,100,100,175
'MOVE G6C,135,40,35,100,100,175
MOVE G6B,143,40,35,100,100,175
MOVE G6C,144,40,35,100,100,175
WAIT
MOVE G6B,170,40,35,100,100,175
MOVE G6C,170,40,35,100,100,175
DELAY 500
NEXT i
'MOVE G6B,170,30,10,100,100,175
'MOVE G6C,170,30,10,100,100,175
MOVE G6B,170,43,10,100,100,175
MOVE G6C,170,43,10,100,100,175
DELAY 300
MOVE G6A,90,150,23,125,110,100 'mossa veloce
MOVE G6D,90,150,23,125,110,100
MOVE G6B,188,35,54,100,100,175
MOVE G6C,188,35,54,100,100,175
WAIT
DELAY 300
MOVE G6A,90,150,25,140,110,100
MOVE G6D,90,150,25,140,110,100
WAIT
'MOVE G6B,188,10,10,100,100,175
MOVE G6B,188,19,10,100,100,175
DELAY 500
MOVE G6B,188,35,54,100,100,175
WAIT
'MOVE G6C,188,10,10,100,100,175
MOVE G6C,188,19,10,100,100,175
DELAY 500
MOVE G6C,188,35, 54,100,100,175
MOVE G6B,153,11,108,100,100,175
MOVE G6C,159,17, 66,100,100,175
SPEED 2
FOR i = 1 TO 3
MOVE G6C,159,10,40,100,100,175
MOVE G6C,159,17,66,100,100,175
NEXT i
SPEED 5
MOVE G6B,160,40,60,100,100,175
MOVE G6C,160,40,60,100,100,175
WAIT
MOVE G6B,186,40,60,100,100,175
MOVE G6C,186,40,60,100,100,175
WAIT
MOVE G6C,105,185,133,100,100,175
FOR i = 1 TO 2
MOVE G6B,187,11,10,100,100,175
MOVE G6B,187,11,40,100,100,175
DELAY 500
NEXT i
MOVE G6B,186,40,60,100,100,175
MOVE G6C,186,40,60,100,100,175
MOVE G6B,105,185,133,100,100,175
FOR i = 1 TO 2
MOVE G6C,187,11,10,100,100,175
MOVE G6C,187,11,40,100,100,175
DELAY 500
NEXT i
MOVE G6B,186,40,60,100,100,175
MOVE G6C,186,40,60,100,100,175
MOVE G6C,105,185,133,100,100,175
FOR i = 1 TO 2
MOVE G6B,187,11,10,100,100,175
MOVE G6B,187,11,40,100,100,175
DELAY 500
NEXT i
MOVE G6B,186,40,60,100,100,175
MOVE G6C,186,40,60,100,100,175
DELAY 500
MOVE G6B,170,40,35,100,100,175
MOVE G6C,170,40,35,100,100,175
DELAY 500
MOVE G6B,170,70,35,100,100,175
MOVE G6C,170,70,35,100,100,175
WAIT
MOVE G6B,100,70,35,100,100,175
MOVE G6C,100,70,35,100,100,175
WAIT
MOVE G6B,100,70,24,100,100,175
MOVE G6C,100,70,24,100,100,175
WAIT
SPEED 5
HIGHSPEED SETOFF
MOVE G6A,90,150,25,150,110,100
MOVE G6D,90,150,25,150,110,100
WAIT
GOSUB standard_pose
RETURN
dance:
GOSUB break_dance
DELAY 1000
GOSUB dance1
DELAY 1000
GOSUB dance2
DELAY 1000
GOSUB dance3
RETURN
break_dance:
GOSUB front_lie_down
SPEED 6
MOVE G6A,100,125,65,10,100,100
MOVE G6D,100,125,65,10,100,100
MOVE G6B,110,30,80,100,100,175
MOVE G6C,110,30,80,100,100,175
SPEED 3
MOVE G6A,100,125,65,10,100,100
MOVE G6D,100,125,65,10,100,100
MOVE G6B,170,30,80,100,100,175
MOVE G6C,170,30,80,100,100,175
WAIT
DELAY 200
SPEED 6
MOVE G6A,100,89,129,57,100,100
MOVE G6D,100,89,129,57,100,100
MOVE G6B,180,30,80,100,100,175
MOVE G6C,180,30,80,100,100,175
WAIT
MOVE G6A,100,64,179,57,100,100
MOVE G6D,100,64,179,57,100,100
MOVE G6B,190,50,80,100,100,175
MOVE G6C,190,50,80,100,100,175
WAIT
DELAY 500
MOVE G6A,100,64,179,57,160,100
MOVE G6D,100,64,179,57,160,100
WAIT
DELAY 1000
SPEED 10
MOVE G6A,100,64,179,17,160,100
MOVE G6D, 100,64,179,97,160,100
WAIT
DELAY 500
MOVE G6A,100,64,179,97,160,100
MOVE G6D, 100,64,179,17,160,100
WAIT
DELAY 500
MOVE G6A,100,64,179,57,160,100
MOVE G6D,100,64,179,57,160,100
WAIT
DELAY 500
MOVE G6A,100,64,179,57,100,100
MOVE G6D,100,64,179,57,100,100
WAIT
MOVE G6A,100,64,179,57,190,100
MOVE G6D,100,64,179,57,190,100
WAIT
MOVE G6A,100,64,179,57,100,100
MOVE G6D,100,64,179,57,100,100
WAIT
DELAY 1000
MOVE G6B,190,50,80,100,100,175
MOVE G6C,190,50,80,100,100,175
WAIT
MOVE G6A,100,89,129,57,100,100
MOVE G6D,100,89,129,57,100,100
MOVE G6B,180,30,80,100,100,175
MOVE G6C,180,30,80,100,100,175
WAIT
SPEED 3
MOVE G6A,100,125,65,10,100,100
MOVE G6D,100,125,65,10,100,100
MOVE G6B,170,30,80,100,100,175
MOVE G6C,170,30,80,100,100,175
WAIT
SPEED 6
MOVE G6A,100,125,65,10,100,100
MOVE G6D,100,125,65,10,100,100
MOVE G6B,110,30,80,100,100,175
MOVE G6C,110,30,80,100,100,175
WAIT
GOSUB standard_pose
GOSUB back_raise
RETURN
back_raise:
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,175
MOVE G6C,150,160,10,100,100,175
WAIT
MOVE G6A,80,155,85,150,150,100
MOVE G6D,80,155,85,150,150,100
MOVE G6B,185,40,60,100,100,175
MOVE G6C,185,40,60,100,100,175
WAIT
MOVE G6A,75,165,55,165,155,100
MOVE G6D,75,165,55,165,155,100
MOVE G6B,185,10,100,100,100,175
MOVE G6C,185,10,100,100,100,175
WAIT
MOVE G6A,60,165,30,165,155,100
MOVE G6D,60,165,30,165,155,100
MOVE G6B,170,10,100,100,100,175
MOVE G6C,170,10,100,100,100,175
WAIT
MOVE G6A,60,165,25,160,145,100
MOVE G6D,60,165,25,160,145,100
MOVE G6B,150,60,90,100,100,175
MOVE G6C,150,60,90,100,100,175
WAIT
MOVE G6A,100,155,25,140,100,100
MOVE G6D,100,155,25,140,100,100
MOVE G6B,130,50,85,100,100,175
MOVE G6C,130,50,85,100,100,175
WAIT
SPEED 5
GOSUB standard_pose
RETURN
front_lie_down:
SPEED 10
MOVE G6A,100,155,25,140,100,100
MOVE G6D,100,155,25,140,100,100
MOVE G6B,130,50,85,100,100,175
MOVE G6C,130,50,85,100,100,175
WAIT
MOVE G6A,60,165,25,160,145,100
MOVE G6D,60,165,25,160,145,100
MOVE G6B,150,60,90,100,100,175
MOVE G6C,150,60,90,100,100,175
WAIT
MOVE G6A,60,165,30,165,155,100
MOVE G6D,60,165,30,165,155,100
MOVE G6B,170,10,100,100,100,175
MOVE G6C,170,10,100,100,100,175
WAIT
SPEED 3
MOVE G6A,75,165,55,165,155,100
MOVE G6D,75,165,55,165,155,100
MOVE G6B,185,10,100,100,100,175
MOVE G6C,185,10,100,100,100,175
WAIT
SPEED 10
MOVE G6A,80,155,85,150,150,100
MOVE G6D,80,155,85,150,150,100
MOVE G6B,185,40,60,100,100,175
MOVE G6C,185,40,60,100,100,175
WAIT
MOVE G6A,100,130,120,80,110,100
MOVE G6D,100,130,120,80,110,100
MOVE G6B,125,160,10,100,100,175
MOVE G6C,125,160,10,100,100,175
WAIT
GOSUB standard_pose
RETURN
dance1:
SPEED 15
WAIT
FOR i = 1 TO 3
MOVE G6A,85,76,145,93,100,100
MOVE G6D,85,76,145,93,100,100
MOVE G6B,100,55,55,100,100,175
MOVE G6C,100,55,55,100,100,175
WAIT
MOVE G6D,100,76,145,93,100,100
MOVE G6A,100,76,145,93,100,100
MOVE G6C,100,45,65,100,100,175
MOVE G6B,100,45,65,100,100,175
WAIT
DELAY 100
NEXT i
DELAY 200
FOR i = 1 TO 3
MOVE G6A,85,76,145,93,100,100
MOVE G6D,85,76,145,93,100,100
MOVE G6B,100,55,55,100,100,175
MOVE G6C,100,55,55,100,100,175
WAIT
MOVE G6D,100,76,145,93,100,100
MOVE G6A,100,76,145,93,100,100
MOVE G6C,100,45,65,100,100,175
MOVE G6B,100,45,65,100,100,175
WAIT
DELAY 100
NEXT i
FOR i = 1 TO 3
MOVE G6A,85,76,145,93,100,100
MOVE G6D,85,76,145,93,100,100
MOVE G6B,100,55,55,100,100,175
MOVE G6C,100,55,55,100,100,175
WAIT
MOVE G6D,100,76,145,93,100,100
MOVE G6A,100,76,145,93,100,100
MOVE G6C,100,45,65,100,100,175
MOVE G6B,100,45,65,100,100,175
WAIT
DELAY 100
NEXT i
DELAY 200
GOSUB standard_pose
RETURN
dance2:
SPEED 15
FOR i = 1 TO 3
MOVE G6A,101,76,145,93,100,100
MOVE G6D,99,76,145,93,100,100
MOVE G6B,100,145,180,100,100,175
MOVE G6C,100,100,145,100,100,175
WAIT
MOVE G6D,101,76,145,93,100,100
MOVE G6A,99,76,145,93,100,102
MOVE G6C,100,145,180,100,100,175
MOVE G6B,100,120,145,100,100,175
WAIT
DELAY 100
NEXT i
DELAY 100
FOR i = 1 TO 3
MOVE G6A,101,76,145,93,100,100
MOVE G6D,99,76,145,93,100,100
MOVE G6B,100,145,180,100,100,175
MOVE G6C,100,120,145,100,100,175
WAIT
MOVE G6D,101,76,145,93,100,100
MOVE G6A,99,76,145,93,100,100
MOVE G6C,100,145,180,100,100,175
MOVE G6B,100,120,145,100,100,175
DELAY 100
WAIT
NEXT i
DELAY 100
FOR i = 1 TO 3
MOVE G6A,101,76,145,93,100,100
MOVE G6D,99,76,145,93,100,102
MOVE G6B,100,145,180,100,100,175
MOVE G6C,100,120,145,100,100,175
WAIT
MOVE G6D,101,76,145,93,100,100
MOVE G6A,99,76,145,93,100,102
MOVE G6C,100,145,180,100,100,175
MOVE G6B,100,120,145,100,100,175
WAIT
NEXT i
GOSUB standard_pose
RETURN
dance3:
MOVE G6A,87,120,73,130,112,100
MOVE G6D,87,120,73,130,112,100
MOVE G6B,102,100,100,100,100,175
MOVE G6C,102,100,100,100,100,175
WAIT
DELAY 1000
SPEED 5
FOR i = 1 TO 2
MOVE G6A,117,166,22,130,133,100
MOVE G6D,63,77,138,102,89,100
WAIT
DELAY 500
MOVE G6A,87,120,73,130,112,100
MOVE G6D,87,120,73,130,112,100
WAIT
DELAY 500
MOVE G6A,63,77,138,102,89,100
MOVE G6D,117,166,22,130,133,100
WAIT
DELAY 500
MOVE G6A,87,120,73,130,112,100
MOVE G6D,87,120,73,130,112,100
WAIT
DELAY 500
NEXT i
SPEED 5
MOVE G6A,87,120,73,125,112,100
MOVE G6D,87,120,73,125,112,100
WAIT
DELAY 500
SPEED 10
MOVE G6A,100,62,165,90,100,100
MOVE G6D,100,62,165,90,100,100
MOVE G6B,102,30,80,100,100,175
MOVE G6C,102,30,80,100,100,175
SPEED 10
GOSUB standard_pose
RETURN
'-------------------------------------------------
sport:
TEMPO 230
MUSIC "CDE"
DELAY 1000
GOSUB stretching
DELAY 1000
GOSUB legs
DELAY 1000
GOSUB arms
DELAY 1000
GOSUB abdominals
DELAY 1000
GOSUB push_up
DELAY 1000
GOSUB punch
RETURN
stretching:
SPEED 3
MOVE G6B,140,30,80,100,100,175
MOVE G6C,140,30,80,100,100,175
MOVE G6A,100,56,145,160,100,100
MOVE G6D,100,56,145,160,100,100
WAIT
MOVE G6A,100,24,185,160,100,100
MOVE G6D, 98,24,185,160,100,100
MOVE G6C,175,24,80,100,100,175
MOVE G6B,175,24,80,100,100,175
WAIT
'GOSUB wait_tocco
'MOVE G6A,100,35,185,160,100,100
'MOVE G6D,100,35,185,160,100,100
MOVE G6A,100,27,185,160,100,100
MOVE G6D,100,27,185,160,100,100
DELAY 2000
WAIT
MOVE G6D,100,34,184,114,100,100
MOVE G6A,100,34,184,114,100,100
SPEED 5
GOSUB standard_pose
RETURN
legs:
MOVE G6B,186,30,80,100,100,175
MOVE G6C,186,30,80,100,100,175
SPEED 10
DELAY 500
FOR i = 1 TO 5
MOVE G6A,100,160,26,126,100,100
MOVE G6D,100,160,26,126,100,100
MOVE G6B,186,30,80,100,100,100
MOVE G6C,186,30,80,100,100,100
WAIT
'GOSUB wait_tocco
'MOVE G6A,100,76,145,93,100,100
'MOVE G6D,100,76,145,93,100,100
MOVE G6A,100,72,145,93,100,100
MOVE G6D,100,72,145,93,100,100
MOVE G6B,186,30,80,100,100,175
MOVE G6C,186,30,80,100,100,175
WAIT
'GOSUB wait_tocco
NEXT i
SPEED 5
GOSUB standard_pose
RETURN
arms:
MOVE G6B,100,180,150,100,100,175
MOVE G6C,100,180,150,100,100,175
WAIT
SPEED 10
FOR i = 1 TO 5
'GOSUB wait_tocco
MOVE G6B,100,30,80,100,100,175
MOVE G6C,100,30,80,100,100,175
WAIT
'GOSUB wait_tocco
'MOVE G6B,100,180,150,100,100,100
'MOVE G6C,100,180,150,100,100,100
MOVE G6B,100,171,150,100,100,100
MOVE G6C,100,174,150,100,100,100
WAIT
NEXT i
SPEED 5
GOSUB standard_pose
RETURN
push_up:
SPEED 10
MOVE G6A,97,156,26,130,102,100
MOVE G6B,100,96,99,100,100,175
MOVE G6C,100,102,98,100,100,175
MOVE G6D,97,161,27,128,104,100
MOVE G6A,98,161,26,160,103,100
MOVE G6B,180,17,98,100,100,135
MOVE G6C,177,20,91,100,100,135
MOVE G6D,99,158,27,157,102,100
WAIT
MOVE G6A,100,163,60,154,102,100
MOVE G6B,180,17,98,100,100,135
MOVE G6C,177,20,91,100,100,135
MOVE G6D,100,164,63,148,100,100
WAIT
MOVE G6A,100,61,157,74,105,100
MOVE G6D,100,61,167,68,99,100
WAIT
FOR i = 0 TO 5
MOVE G6A,100,61,157,74,105,
MOVE G6B,180,89,11,100,100,135
MOVE G6C,177,84,11,100,100,135
MOVE G6D,100,61,166,68,98,100
WAIT
MOVE G6B,181,17,98,100,100,135
MOVE G6C,177,22,92,100,100,135
WAIT
NEXT i
' Right hand
MOVE G6A,100,60,156,100,162,100
MOVE G6C,160,13,88,100,100,135
MOVE G6D,103,59,162,71,96,100
WAIT
MOVE G6B,181,169,178,100,100,175
WAIT
FOR i = 0 TO 5
'MOVE G6C,177,84,11,100,100,135
MOVE G6C,167,84,11,100,100,135
WAIT
'MOVE G6C,177,22,92,100,100,135
MOVE G6C,167,22,92,100,100,135
WAIT
NEXT i
MOVE G6B,180,17,98,100,100,135
WAIT
' Left hand
MOVE G6D,100,60,156,100,162,100
MOVE G6B,160,13,88,100,100,135
MOVE G6A,103,59,162,71,96,100
WAIT
MOVE G6C,181,169,178,100,100,175
WAIT
FOR i = 0 TO 5
'MOVE G6B,177,84,11,100,100,135
MOVE G6B,167,84,11,100,100,135
WAIT
'MOVE G6B,177,22,92,100,100,135
MOVE G6B,167,22,92,100,100,135
WAIT
NEXT i
MOVE G6C,180,17,98,100,100,135
WAIT
' Rise up
SPEED 10
' 'MOVE G6A,76,165,54,162,156,100
' 'MOVE G6B,181,17,98,100,100,135
' 'MOVE G6C,177,22,92,100,100,135
' 'MOVE G6D,76,165,54,162,156,100
' WAIT
' 'MOVE G6A,76,165,54,162,156,100
' 'MOVE G6B,163,17,98,100,100,135
' 'MOVE G6C,163,17,98,100,100,135
' 'MOVE G6D,76,165,54,162,156,100
' WAIT
' 'MOVE G6A,60,164,21,162,136,100
' 'MOVE G6B,145,17,98,100,100,135
' 'MOVE G6C,145,17,98,100,100,135
' 'MOVE G6D,60,164,21,162,136,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, 135
MOVE G6C,185, 40, 60, 100, 100, 135
WAIT
MOVE G6A, 75, 165, 55, 165, 155, 100
MOVE G6D, 75, 165, 55, 165, 155, 100
MOVE G6B,185, 10, 100, 100, 100, 135
MOVE G6C,185, 10, 100, 100, 100, 135
WAIT
'MOVE G6A, 60, 165, 30, 165, 155, 100
'MOVE G6D, 60, 165, 30, 165, 155, 100
MOVE G6A, 65, 165, 30, 165, 155, 100
MOVE G6D, 65, 165, 30, 165, 155, 100
MOVE G6B,170, 10, 100, 100, 100, 135
MOVE G6C,170, 10, 100, 100, 100, 135
WAIT
'MOVE G6A, 60, 165, 25, 160, 145, 100
'MOVE G6D, 60, 165, 25, 160, 145, 100
MOVE G6A, 65, 165, 25, 160, 145, 100
MOVE G6D, 65, 165, 25, 160, 145, 100
MOVE G6B,150, 60, 90, 100, 100, 135
MOVE G6C,150, 60, 90, 100, 100, 135
WAIT
MOVE G6A,100, 155, 25, 140, 100, 100
MOVE G6D,100, 155, 25, 140, 100, 100
MOVE G6B,130, 50, 85, 100, 100, 135
MOVE G6C,130, 50, 85, 100, 100, 135
WAIT
SPEED 5
GOSUB standard_pose
RETURN
abdominals:
MOVE G6A,100,167,26,123,100,100
MOVE G6D,100,167,26,123,100,100
WAIT
MOVE G6B,44,30,80,100,100,175
MOVE G6C,44,30,80,100,100,175
WAIT
MOVE G6A,100,155,25,105,100,100
MOVE G6D,100,155,25,105,100,100
WAIT
MOVE G6A,100,143,26,95,100,100
MOVE G6D,100,143,26,95,100,100
MOVE G6B,62,31,81,100,100,175
MOVE G6C,62,31,81,100,100,175
WAIT
MOVE G6B,82,32,82,100,100,175
MOVE G6C,82,32,82,100,100,175
MOVE G6A,100,115,25,155,100,100
MOVE G6D,100,115,25,155,100,100
WAIT
MOVE G6A,100,10,110,90,100,100
MOVE G6D,100,10,110,90,100,100
'MOVE G6B,90,185,155,100,100,175
'MOVE G6C,90,185,155,100,100,175
MOVE G6B,90,180,155,100,100,175
MOVE G6C,90,180,155,100,100,175
HIGHSPEED SETON
FOR i = 1 TO 5
MOVE G6A,100,10,110,145,100,100
MOVE G6D,100,10,110,145,100,100
WAIT
MOVE G6A,100,10,110,90,100,100
MOVE G6D,100,10,110,90,100,100
WAIT
NEXT i
DELAY 1000
MOVE G6A,100,10,110,90,152,100
MOVE G6D,100,10,110,90,152,100
MOVE G6B,74,135,110,100,100,175
MOVE G6C,74,135,110,100,100,175
WAIT
MOVE G6B,31,35,90,100,100,175
MOVE G6C,31,35,90,100,100,175
WAIT
MOVE G6B,10,35,90,100,100,175
MOVE G6C,10,35,90,100,100,175
WAIT
MOVE G6A,89,64,135,24,130,100
MOVE G6D,89,65,135,24,130,100
WAIT
MOVE G6A,100,100,100,20,130,100
MOVE G6D,100,100,100,20,130,100
WAIT
MOVE G6A,90,169,50,20,130,100
MOVE G6D,90,169,50,20,130,100
WAIT
MOVE G6A,75,169,50,100,130,100
MOVE G6D,75,169,50,100,130,100
WAIT
HIGHSPEED SETOFF
MOVE G6B,100,35,90,100,100,175
MOVE G6C,100,35,90,100,100,175
WAIT
MOVE G6A,88,168,25,130,114,100
MOVE G6D,88,168,25,130,114,100
WAIT
GOSUB standard_pose
RETURN
punch:
SPEED 15
MOVE G6A,97,65,132,136,104,100
MOVE G6D,102,78,123,131,98,100
WAIT
HIGHSPEED SETON
MOVE G6C,102,50,100,100,100,175
MOVE G6B,102,50,100,100,100,175
FOR i = 1 TO 5
MOVE G6C,180,50,100,100,100,175
MOVE G6C,180,10,50,100,100,175
MOVE G6B,180,50,100,100,100,175
MOVE G6B,180,10,50,100,100,175
MOVE G6C,180,50,100,100,100,175
MOVE G6B,180,50,100,100,100,175
NEXT i
HIGHSPEED SETOFF
SPEED 5
GOSUB standard_pose
RETURN
'---------------------------------------------
Arti_Marziali:
SPEED 7
GOSUB standard_pose
DELAY 500
GOSUB meditation_pose
DELAY 2000
TEMPO 230
MUSIC "ABCABC"
GOSUB standard_pose
DELAY 1000
'ACTION 11 ' forward_walk
'DELAY 1000
'ACTION 1 ' bow
'DELAY 1000
ACTION 13 ' right_shift
DELAY 1000
ACTION 20 ' right_attack
DELAY 2000
GOSUB right_kick
DELAY 2000
ACTION 14 ' left_shift
DELAY 1000
ACTION 15 ' left_attack
DELAY 2000
GOSUB left_kick
DELAY 2000
GOSUB meditation_pose
RETURN
meditation_pose:
SPEED 3
MOVE G6A,100,151,23,140,100,100
MOVE G6B,100,30,80,100,100,175
MOVE G6C,100,30,80,100,100,175
MOVE G6D,100,151,23,140,100,100
WAIT
MOVE G8A,101,154,22,157,100,100
MOVE G6B,101,30,80,100,100,175
MOVE G6C,101,30,80,100,100,175
'MOVE G6D,100,156,23,154,97,100
MOVE G6D,100,154,22,157,100,100
DELAY 500
MOVE G8A,101,156,21,157,100,100
MOVE G6B,146,30,80,100,100,175
MOVE G6C,144,30,80,100,100,175
'MOVE G6D,101,156,23,155,95,100
MOVE G6D,101,156,21,157,100,100
DELAY 500
MOVE G6A,101,159,21,156,102,100
'MOVE G6B,151,15,41,100,100,175
'MOVE G6C,148,10,37,100,100,175
MOVE G6B,150,27,40,100,100,175
MOVE G6C,150,27,40,100,100,175
'MOVE G6D,101,160,23,155,94,100
MOVE G6D,101,159,21,156,102,100
DELAY 3000
MOVE G6A,101,156,21,157,100,100
MOVE G6B,146,30,80,100,100,175
MOVE G6C,144,30,80,100,100,175
MOVE G6D,101,156,21,157,100,100
DELAY 500
MOVE G6A,100,151,23,140,100,100
MOVE G6B,100,30,80,100,100,175
MOVE G6C,100,30,80,100,100,175
MOVE G6D,100,151,23,140,100,100
RETURN
left_kick:
SPEED 5
MOVE G6A,100,76,125,125,100,100
MOVE G6D,100,76,125,125,100,100
WAIT
MOVE G6A,100,145,32,140,100,100
MOVE G6D,100,145,32,140,100,100
MOVE G6B,140,30,80,100,100,175
MOVE G6B,170,20,20,100,100,175
MOVE G6C,170,30,80,100,100,175
MOVE G6D,110,145,32,140,100,100
MOVE G6A,100,145,32,140,109,100
WAIT
MOVE G6D,110,145,32,140,104,100
WAIT
MOVE G6D,115,145,32,140,100,100
MOVE G6A,100,145,32,140,140,100
WAIT
MOVE G6D,115,145,32,140,122,100
DELAY 1000
SPEED 15
HIGHSPEED SETON
MOVE G6A,93, 83,136,103,152,100
'MOVE G6D,115,145,32,140,140,100
MOVE G6D,112,145,32,140,140,100
DELAY 1000
HIGHSPEED SETOFF
SPEED 5
MOVE G6A,93,144,52,103,152,100
MOVE G6A,93,144,52,103,89,100
'MOVE G6D,115,145,32,158,117,100
MOVE G6D,112,137,32,158,117,100
MOVE G6A,93,144,52,120,89,100
'MOVE G6D,97,134,55,129,112,100
MOVE G6D,97,127,55,129,112,100
MOVE G6B,170,61,75,100,100,175
GOSUB standard_pose
RETURN
right_kick:
SPEED 5
MOVE G6A,100,76,125,125,100,100
MOVE G6D,100,76,125,125,100,100
WAIT
MOVE G6D,100,145,32,140,100,100
MOVE G6A,100,145,32,140,100,100
MOVE G6C,140,30,80,100,100,175
MOVE G6C,170,20,20,100,100,175
MOVE G6B,170,30,80,100,100,175
MOVE G6A,110,145,32,140,100,100
MOVE G6D,100,145,32,140,109,100
WAIT
MOVE G6A,110,145,32,140,104,100
WAIT
MOVE G6A,115,145,32,140,100,100
MOVE G6D,100,145,32,140,140,100
WAIT
'MOVE G6A,115,145,32,150,122,100
MOVE G6A,115,145,32,140,122,100
DELAY 1000
SPEED 15
HIGHSPEED SETON
MOVE G6D,93, 83,136,103,152,100
'MOVE G6A,115,145,32,140,140,100
MOVE G6A,112,145,32,140,140,100
DELAY 1000
HIGHSPEED SETOFF
SPEED 5
MOVE G6D,93,144,52,103,152,100
MOVE G6D,93,144,52,103,89,100
'MOVE G6A,115,145,32,158,117,100
MOVE G6A,112,137,32,158,117,100
MOVE G6D,93,144,52,120,89,100
'MOVE G6A,97,134,55,129,112,100
MOVE G6A,97,127,55,129,112,100
MOVE G6C,170,61,75,100,100,175
GOSUB standard_pose
RETURN
test2:
' ostacolo = AD(6)
' IF ostacolo < 200 THEN GOSUB bip1
' DELAY 1000
' tocco=IN(32)
' IF tocco <> 0 THEN GOTO test2
GOSUB standard_pose
GOSUB standard_pose
RETURN
'===============================================
matrix:
SPEED 10
MOVE G6A,72,165,23,70,143,100
MOVE G6D,72,165,23,70,143,100
MOVE G6B,170,100,100,100,100,100
MOVE G6C,170,100,100,100,100,100
MOVE G6A,79,160,23,42,185,100
MOVE G6D,79,160,23,42,185,100
WAIT
DELAY 3000
SPEED 6
MOVE G6A,72,165,23,70,143,100
MOVE G6D,72,165,23,70,143,100
MOVE G6B,170,50,70,100,100,175
MOVE G6C,170,50,70,100,100,175
WAIT
MOVE G6A,100,151,23,140,101,100
MOVE G6D,100,151,23,140,101,100
'MOVE G6B,100,30,80,100,100,175
'MOVE G6C,100,30,80,100,100,175
MOVE G6B,100,45,80,100,100,175
MOVE G6C,100,45,80,100,100,175
WAIT
SPEED 8
GOSUB standard_pose
RETURN
'==========================================
sit_moving:
GOSUB standard_pose
GOSUB sit_forward_walking
GOSUB standard_pose
DELAY 1000
GOSUB sit_right_walking
GOSUB standard_pose
DELAY 1000
GOSUB sit_left_walking
GOSUB standard_pose
DELAY 1000
GOSUB sit_backward_walking
GOSUB standard_pose
RETURN
sit_forward_walking:
MOVE G6B,100,35,80,100,100,130
MOVE G6C,100,35,80,100,100,130
WAIT
FOR i = 1 TO 4
MOVE G6A,115,150,24,140,94,100
MOVE G6D,86,151,26,140,110,100
WAIT
MOVE G6A,100,160,25,133,100,100
MOVE G6D,100,131,26,162,100,100
WAIT
MOVE G6A,86,151,26,140,110,100
MOVE G6D,115,150,24,140,94,100
WAIT
MOVE G6A,100,131,26,162,100,100
MOVE G6D,100,160,25,133,100,100
WAIT
NEXT i
MOVE G6A,115,150,24,140,94,100
MOVE G6D,86,151,26,140,110,100
WAIT
MOVE G6A,100,151,23,140,100,100
MOVE G6D,100,151,23,140,100,100
WAIT
RETURN
sit_backward_walking:
MOVE G6B,100, 35,80,100,100,130
MOVE G6C,100,35,80,100,100,130
WAIT
FOR i = 0 TO 3
MOVE G6A,115,150,24,140,94,100
MOVE G6D,86,151,26,140,110,100
WAIT
MOVE G6A,100,131,26,162,100,100
MOVE G6D,100,160,25,133,100,100
WAIT
MOVE G6A,86,151,26,140,110,100
MOVE G6D,115,150,24,140,94,100
WAIT
MOVE G6A,100,160,25,133,100,100
MOVE G6D,100,131,26,162,100,100
WAIT
NEXT i
MOVE G6A,115,150,24,140,94,100
MOVE G6D,86,151,26,140,110,100
WAIT
MOVE G6A,100,151,23,140,100,100
MOVE G6D,100,151,23,140,100,100
WAIT
RETURN
sit_left_walking:
MOVE G6A,86,151,23,140,105,100
MOVE G6D,112,150,23,140,100,100
MOVE G6B,100,40,75,100,100,100
MOVE G6C,100,40,75,100,100,100
WAIT
MOVE G6A,86,151,26,140,115,100
MOVE G6D,86,151,26,140,115,100
WAIT
MOVE G6A,118,154,24,140,95,100
MOVE G6D,80,154,24,140,110,100
WAIT
MOVE G6A,100,151,23,140,100,100
MOVE G6D,100,151,23,140,100,100
MOVE G6B,100,30,80,100,100,175
MOVE G6C,100,30,80,100,100,175
WAIT
RETURN
sit_right_walking:
MOVE G6D,86,151,23,140,105,100
MOVE G6A,112,150,23,140,100,100
MOVE G6C,100,40,75,100,100,100
MOVE G6B,100,40,75,100,100,100
WAIT
MOVE G6D,86,151,26,140,115,100
MOVE G6A,86,151,26,140,115,100
WAIT
MOVE G6D,118,154,24,140,95,100
MOVE G6A,80,154,24,140,110,100
WAIT
MOVE G6D,100,151,23,140,100,100
MOVE G6A,100,151,23,140,100,100
MOVE G6C,100,30,80,100,100,175
MOVE G6B,100,30,80,100,100,175
WAIT
RETURN
'=========================================
splits:
MOVE G6A,58,75,148,93,190,70
MOVE G6D,58,75,148,93,190,70
MOVE G6B,100,110,110,100,100,100
MOVE G6C,100,110,110,100,100,100
DELAY 2000
'GOSUB wait_tocco
MOVE G6A,58,75,148,149,190,70
MOVE G6D,58,75,148,149,190,70
MOVE G6B,100,60,110,100,100,175
MOVE G6C,100,60,110,100,100,175
'GOSUB wait_tocco
MOVE G6B,100,10,110,100,100,175
MOVE G6C,100,10,110,100,100,175
WAIT
'GOSUB wait_tocco
MOVE G6B,100,10,85,100,100,175
MOVE G6C,100,10,85,100,100,175
WAIT
'GOSUB wait_tocco
MOVE G6A,100,76,145,93,100,100
MOVE G6D,100,76,145,93,100,100
MOVE G6B,100,10,85,100,100,175
MOVE G6C,100,10,85,100,100,175
MOVE G6B,100,30,80,100,100,175
MOVE G6C,100,30,80,100,100,175
WAIT
'GOSUB wait_tocco
SPEED 10
MOVE G6A,100,10,100,115,100,100
MOVE G6D,100,10,100,115,100,100
MOVE G6B,100,130,10,100,100,175
MOVE G6C,100,130,10,100,100,175
WAIT
'GOSUB wait_tocco
MOVE G6A,100,10,83,140,100,100
MOVE G6D,100,10,83,140,100,100
MOVE G6B,20,130,10,100,100,175
MOVE G6C,20,130,10,100,100,175
WAIT
'GOSUB wait_tocco
MOVE G6A,100,126,60,50,100,100
MOVE G6D,100,126,60,50,100,100
MOVE G6B,20,30,90,100,100,175
MOVE G6C,20,30,90,100,100,175
WAIT
'GOSUB wait_tocco
MOVE G6A,100,165,70,15,100,100
MOVE G6D,100,165,70,15,100,100
MOVE G6B,30,20,95,100,100,175
MOVE G6C,30,20,95,100,100,175
WAIT
'GOSUB wait_tocco
MOVE G6A,100,165,40,100,100,100
MOVE G6D,100,165,40,100,100,100
MOVE G6B,110,70,50,100,100,175
MOVE G6C,110,70,50,100,100,175
WAIT
'GOSUB wait_tocco
GOSUB standard_pose
RETURN
'====================================================
pinze:
A = REMOCON(1)
IF A = 0 THEN
GOSUB blink_veloce
ELSE
TEMPO 230
MUSIC "C"
ON A GOTO MAIN,P1,P2,P3,P4,P5,P6,P7,P8,P9
ENDIF
GOTO pinze
blink_veloce:
OUT 52,1
DELAY 100
OUT 52,0
RETURN
right_arm_up:
P1:
SPEED 5
MOVE G6C,,50,,,,
WAIT
MOVE G6C,169,,,,,
WAIT
MOVE G6C,,11,72,,,
GOTO pinze
right_arm_down:
P2:
SPEED 5
MOVE G6C,,30,80,,,
WAIT
MOVE G6C,100,,,,,
GOTO pinze
right_hand_open:
P3:
SPEED 5
MOVE G6C,,,,,,100
GOTO pinze
right_hand_close:
P4:
SPEED 5
MOVE G6C,,,,,,175
GOTO pinze
left_arm_up:
P5:
SPEED 5
MOVE G6B,,50,,,,
WAIT
MOVE G6B,169,,,,,
WAIT
MOVE G6B,,11,72,,,
GOTO pinze
left_arm_down:
P6:
SPEED 5
MOVE G6B,,30,80,,,
WAIT
MOVE G6B,100,,,,,
GOTO pinze
left_hand_open:
P7:
SPEED 5
MOVE G6B,,,,,,100
GOTO pinze
left_hand_close:
P8:
SPEED 5
MOVE G6B,,,,,,175
GOTO pinze
P9:
DELAY 1000
A=0
GOTO main
'========================================
test:
'GOSUB wait_tocco
RETURN
Elenco revisioni | |
12-09-2009 | Prima emissione |