ブログパーツUL5

変なおじさんのモーション

 志村けんがバカ殿でよくやっている変なおじさんのモーションを作成してみました。本当は、物を掴むモーションで大きさを自動判定するように試行錯誤していて、うまくいかないので、気分転換でこんなモーションを作ってしまいました。

【注意】
 基本形の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
'================================================
0

    コメント
    コメントする








       
    この記事のトラックバックURL
    トラックバック

    カレンダ

      12345
    6789101112
    13141516171819
    20212223242526
    27282930   
    << September 2020 >>