志村けんがバカ殿でよくやっている変なおじさんのモーションを作成してみました。本当は、物を掴むモーションで大きさを自動判定するように試行錯誤していて、うまくいかないので、気分転換でこんなモーションを作ってしまいました。
【注意】
基本形のRZ-1であれば、サブルーチンの形になっていますので、自分のソースに合わせて変更してください。なお、ジャイロを積んだモーションで合わせ込んでいますので、個体差がありそのままで動作は保証していません。
'================================================
tono: '-- henna_ojisan --
SPEED 5
MOVE G6A, 96, 75, 144, 100, 100, 96
MOVE G6B,180, 30, 80, 100, 100,
MOVE G6C,180, 30, 80, 100, ,
MOVE G6D, 99, 45, 160, 115, 100, 100
SPEED 10
MOVE G6B,180, 14, 56, 100, 100, 100
MOVE G6C,180, 10, 54, 100, 100, 100
MOVE G6B,180, 14, 80, 100, 100, 100
MOVE G6C,180, 10, 80, 100, 100, 100
MOVE G6B,180, 14, 52, 100, 100, 100
MOVE G6C,180, 10, 50, 100, 100, 100
MOVE G6B,180, 14, 80, 100, 100, 100
MOVE G6C,180, 10, 80, 100, 100, 100
MOVE G6B,180, 14, 52, 100, 100, 100
MOVE G6C,180, 10, 50, 100, 100, 100
WAIT
MOVE G6A,100, 72, 145, 91, 100, 96
MOVE G6B,186, 10, 43, 140, 100,
MOVE G6C,188, 97, 100, 140, ,
MOVE G6D,100, 72, 145, 91, 100, 100
DELAY 1000
SPEED 5
MOVE G6A, 96, 75, 144, 100, 100, 96
MOVE G6B,180, 30, 80, 100, 100,
MOVE G6C,180, 30, 80, 100, ,
MOVE G6D, 99, 45, 160, 115, 100, 100
SPEED 10
MOVE G6B,180, 14, 56, 100, 100, 100
MOVE G6C,180, 10, 54, 100, 100, 100
MOVE G6B,180, 14, 80, 100, 100, 100
MOVE G6C,180, 10, 80, 100, 100, 100
MOVE G6B,180, 14, 52, 100, 100, 100
MOVE G6C,180, 10, 50, 100, 100, 100
MOVE G6B,180, 14, 80, 100, 100, 100
MOVE G6C,180, 10, 80, 100, 100, 100
MOVE G6B,180, 14, 52, 100, 100, 100
MOVE G6C,180, 10, 50, 100, 100, 100
WAIT
MOVE G6A,100, 72, 145, 91, 100, 96
MOVE G6B,188, 97, 100, 140, ,
MOVE G6C,186, 10, 43, 140, 100,
MOVE G6D,100, 72, 145, 91, 100, 100
DELAY 1000
'--
FOR i=0 TO 1
SPEED 5
MOVE G6A, 96, 80, 144, 100, 101, 96
MOVE G6B,130, 30, 80, 100, 100,
MOVE G6C,130, 30, 80, 100, ,
MOVE G6D, 99, 50, 160, 115, 98, 100
SPEED 10
MOVE G6B,160, 14, 56, 100, 100, 100
MOVE G6C,160, 10, 54, 100, 100, 100
MOVE G6B,160, 14, 80, 100, 100, 100
MOVE G6C,160, 10, 80, 100, 100, 100
MOVE G6B,160, 14, 52, 100, 100, 100
MOVE G6C,160, 10, 50, 100, 100, 100
MOVE G6B,160, 14, 80, 100, 100, 100
MOVE G6C,160, 10, 80, 100, 100, 100
MOVE G6B,160, 14, 52, 100, 100, 100
MOVE G6C,160, 10, 50, 100, 100, 100
MOVE G6A,100, 76, 145, 93, 100, 96
MOVE G6B,130, 30, 80, 100, 100,
MOVE G6C,130, 30, 80, 100, ,
MOVE G6D,100, 76, 145, 93, 100, 100
MOVE G6A,100, 76, 145, 101, 100, 96
MOVE G6B, 71, 31, 100, 100, 100, 100
MOVE G6C, 71, 31, 100, 100, 100, 100
MOVE G6D,100, 76, 145, 100, 100, 100
DELAY 1000
NEXT i
RETURN
'================================================