;
;歩行関連（何か持っている場合）
; Original
;  デアゴスティーニ週刊ロボゼロ68号
;
; File name: F17mXX.TXT
; Modify by Micono Utilities
;  2012/08/02 v01 Wirelessリモコン
;

;---------------
; 音声設定
;---------------
V00=62
V02=0
V03=21
V04=0

;--------------
:KEYCHECK
;--------------
JUMPIF(V123,<,40,MFWD)
JUMPIF(V123,>,87,MBK)
JUMPIF(V122,<,40,MLS)
JUMPIF(V122,>,87,MRS)
JUMPIF(V120,=,2,MLT)
JUMPIF(V120,=,8,MRT)

;-------------
:EXIT
;-------------
MOVE(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1500)
V00=5
FJUMP

;---------------------------
;前進歩行 File #6 Button ▲
;---------------------------
:MFWD
V01=0
MOVE(X,X,X,X,X,X,-33,505,388,-321,-33,-388,388,33,321,-388,-505,33,X,X,X,X,X,X,1200)
:MFWDMOTGENESTART5
MOVE(X,X,X,X,X,X,-114,491,375,-309,-114,-375,387,-48,320,-387,-504,-48,X,X,X,X,X,X,200)
MOVE(X,X,X,X,X,X,-129,580,456,-381,-129,-456,387,-48,320,-387,-504,12,X,X,X,X,X,X,200)
:MFWDLOOP2
V130 = 0
:MFWDMOTGENELOOP5
MOVE(X,X,X,X,X,X,-137,615,486,-407,-137,-486,390,-48,357,-390,-474,42,X,X,X,X,X,X,200)
MOVE(X,X,X,X,X,X,-178,622,425,-278,-178,-425,383,-99,381,-383,-435,-39,X,X,X,X,X,X,200)
MOVE(X,X,X,X,X,X,-110,560,349,-188,-110,-349,390,-48,424,-390,-407,-48,X,X,X,X,X,X,200)
SOUND
WAIT(150)
MOVE(X,X,X,X,X,X,-16,557,374,-242,-16,-374,386,51,453,-386,-370,51,X,X,X,X,X,X,200
MOVE(X,X,X,X,X,X,72,527,377,-278,72,-377,362,136,459,-362,-314,136,X,X,X,X,X,X,200)
MOVE(X,X,X,X,X,X,39,494,378,-312,99,-378,442,185,498,-442,-436,185,X,X,X,X,X,X,200)
MOVE(X,X,X,X,X,X,10,465,382,-349,100,-382,470,195,394,-470,-597,195,X,X,X,X,X,X,200)
MOVE(X,X,X,X,X,X,39,435,383,-381,99,-383,425,178,278,-425,-622,178,X,X,X,X,X,X,200)
MOVE(X,X,X,X,X,X,48,407,390,-424,48,-390,349,110,188,-349,-560,110,X,X,X,X,X,X,200)
SOUND
WAIT(150)
MOVE(X,X,X,X,X,X,-51,370,386,-453,-51,-386,374,16,242,-374,-557,16,X,X,X,X,X,X,200)
MOVE(X,X,X,X,X,X,-136,314,362,-459,-136,-362,377,-72,278,-377,-527,-72,X,X,X,X,X,X,200)
MOVE(X,X,X,X,X,X,-130,450,458,-515,-130,-458,387,-48,320,-387,-504,12,X,X,X,X,X,X,200)
:MFWDMOTGENELOOPCHECK5
JUMPIF(V130,=,0,MFWDMOTGENELOOP5)
;JUMPIF(V130,#,V29,MFWDLOOP2)
JUMPIF(V130,<,V28,MFWDLOOP2)
JUMPIF(V130,>,V33,MFWDLOOP2)
:MOTGENELOOPCHECKEND5
MOVE(X,X,X,X,X,X,-129,580,456,-381,-129,-456,387,-48,320,-387,-504,12,X,X,X,X,X,X,200)
MOVE(X,X,X,X,X,X,-33,505,388,-321,-33,-388,388,33,321,-388,-505,33,X,X,X,X,X,X,200)
JUMP(KEYCHECK)

;--------------------------
;左回転 File #7, Button 左
;--------------------------
:MLT
V01=21
MOVE(X,X,X,X,X,X,-31,438,326,-264,-31,-326,326,31,264,-326,-438,31,X,X,X,X,X,X,1720)
:MLTLOOP2
V130 = 0
:MLTMOTGENESTART6
MOVE(X,X,X,X,X,X,-240,497,445,-443,-110,-445,426,107,283,-426,-619,237,X,X,X,X,X,X,24)
SOUND
WAIT(1)
MOVE(X,X,X,X,X,X,-31,438,326,-264,-31,-326,326,31,264,-326,-438,31,X,X,X,X,X,X,720)
JUMPIF(V130,=,0,MLTMOTGENESTART6)
;JUMPIF(V130,#,V29,MLTLOOP2)
JUMPIF(V130,<,V26,MLTLOOP2)
JUMPIF(V130,>,V33,MLTLOOP2)
JUMPIF(V130,=,V27,MLTLOOP2)
JUMP(KEYCHECK)

;--------------------------
;右回転 File #9, Button 右
;--------------------------
:MRT
V01=21
MOVE(X,X,X,X,X,X,-31,438,326,-264,-31,-326,326,31,264,-326,-438,31,X,X,X,X,X,X,1720)
:MRTLOOP2
V130=0
:MRTMOTGENESTART6
MOVE(X,X,X,X,X,X,-237,619,426,-283,-107,-426,445,110,443,-445,-497,240,X,X,X,X,X,X,24)
SOUND
WAIT(1)
MOVE(X,X,X,X,X,X,-31,438,326,-264,-31,-326,326,31,264,-326,-438,31,X,X,X,X,X,X,720)
JUMPIF(V130,=,0,MRTMOTGENESTART6)
;JUMPIF(V130,#,V29,MRTLOOP2)
JUMPIF(V130,<,V26,MRTLOOP2)
JUMPIF(V130,>,V33,MRTLOOP2)
JUMPIF(V130,=,V27,MRTLOOP2)
JUMP(KEYCHECK)

;-----------------------------
;後退歩行 File #11, Button ▼ 
;-----------------------------
:MBK
V01=0
MOVE(X,X,X,X,X,X,-33,505,388,-321,-33,-388,388,33,321,-388,-505,33,X,X,X,X,X,X,1200)
:MBKMOTGENESTART5
MOVE(X,X,X,X,X,X,-114,491,375,-309,-114,-375,387,-48,320,-387,-504,-48,X,X,X,X,X,X,200)
MOVE(X,X,X,X,X,X,-129,580,456,-381,-129,-456,387,-48,320,-387,-504,12,X,X,X,X,X,X,200
:MBKLOOP2
V130 = 0
:MBKMOTGENELOOP5
MOVE(X,X,X,X,X,X,-137,615,486,-407,-137,-486,385,-48,307,-385,-513,42,X,X,X,X,X,X,200)
MOVE(X,X,X,X,X,X,-184,540,443,-396,-184,-443,375,-98,287,-375,-513,-38,X,X,X,X,X,X,200)
MOVE(X,X,X,X,X,X,-114,461,378,-345,-114,-378,381,-48,281,-381,-530,-48,X,X,X,X,X,X,200)
SOUND
WAIT(100)
MOVE(X,X,X,X,X,X,-16,486,392,-347,-16,-392,378,50,267,-378,-538,50,X,X,X,X,X,X,200)
MOVE(X,X,X,X,X,X,73,490,385,-329,73,-385,356,135,238,-356,-524,135,X,X,X,X,X,X,200)
MOVE(X,X,X,X,X,X,39,494,378,-312,99,-378,433,182,318,-433,-597,182,X,X,X,X,X,X,200)
MOVE(X,X,X,X,X,X,9,503,376,-299,99,-376,470,195,394,-470,-597,195,X,X,X,X,X,X,200)
MOVE(X,X,X,X,X,X,38,513,375,-287,98,-375,443,184,396,-443,-540,184,X,X,X,X,X,X,200)
MOVE(X,X,X,X,X,X,48,530,381,-281,48,-381,378,114,345,-378,-461,114,X,X,X,X,X,X,200)
SOUND
WAIT(100)
MOVE(X,X,X,X,X,X,-50,538,378,-267,-50,-378,392,16,347,-392,-486,16,X,X,X,X,X,X,200)
MOVE(X,X,X,X,X,X,-135,524,356,-238,-135,-356,385,-73,329,-385,-490,-73,X,X,X,X,X,X,200)
MOVE(X,X,X,X,X,X,-127,616,448,-331,-127,-448,387,-48,320,-387,-504,12,X,X,X,X,X,X,200)
:MBKMOTGENELOOPCHECK5
JUMPIF(V130,=,0,MBKMOTGENELOOP5)
;JUMPIF(V130,#,V29,MBKLOOP2)
JUMPIF(V130,<,V26,MBKLOOP2)
JUMPIF(V130,>,V33,MBKLOOP2)
JUMPIF(V130,=,V27,MBKLOOP2)
:MOTGENELOOPCHECKEND5
MOVE(X,X,X,X,X,X,-129,580,456,-381,-129,-456,387,-48,320,-387,-504,12,X,X,X,X,X,X,200)
MOVE(X,X,X,X,X,X,-33,505,388,-321,-33,-388,388,33,321,-388,-505,33,X,X,X,X,X,X,200)
JUMP(KEYCHECK)

;-----------------------------
;左移動 File #10, Button 0 
;-----------------------------
:MLS
V01=0
MOVE(X,X,X,X,X,X,-31,383,331,-329,-31,-331,331,31,329,-331,-383,31,X,X,X,X,X,X,1640)
:MLSLOOP2
V130=0
:MLSMOTGENESTART7
MOVE(X,X,X,X,X,X,-77,431,319,-258,-77,-319,327,-15,265,-327,-439,-15,X,X,X,X,X,X,160)
MOVE(X,X,X,X,X,X,-80,466,352,-288,-80,-352,327,-15,265,-327,-439,15,X,X,X,X,X,X,160)
MOVE(X,X,X,X,X,X,-201,416,305,-244,-201,-305,327,-15,265,-327,-439,15,X,X,X,X,X,X,160)
MOVE(X,X,X,X,X,X,-194,378,269,-211,-194,-269,327,-15,265,-327,-439,-15,X,X,X,X,X,X,160)
SOUND
MOVE(X,X,X,X,X,X,-117,419,308,-247,-117,-308,321,67,259,-321,-433,67,X,X,X,X,X,X,160)
MOVE(X,X,X,X,X,X,-36,437,325,-264,-36,-325,296,146,236,-296,-406,146,X,X,X,X,X,X,160)
MOVE(X,X,X,X,X,X,46,436,324,-262,46,-324,248,221,191,-248,-356,221,X,X,X,X,X,X,160)
MOVE(X,X,X,X,X,X,1,438,326,-264,31,-326,296,215,236,-296,-406,215,X,X,X,X,X,X,160)
MOVE(X,X,X,X,X,X,1,438,326,-264,31,-326,348,96,285,-348,-462,96,X,X,X,X,X,X,160)
MOVE(X,X,X,X,X,X,-2,439,327,-265,-2,-327,322,62,260,-322,-434,62,X,X,X,X,X,X,160)
SOUND
MOVE(X,X,X,X,X,X,-31,438,326,-264,-31,-326,326,31,264,-326,-438,31,X,X,X,X,X,X,640)
JUMPIF(V130,=,0,MLSMOTGENESTART7)
;JUMPIF(V130,#,V29,MLSLOOP2)
JUMPIF(V130,<,V26,MLSLOOP2)
JUMPIF(V130,>,V33,MLSLOOP2)
JUMPIF(V130,=,V27,MLSLOOP2)
JUMP(KEYCHECK)

;-----------------------------
;右移動 File #12, Button -
;-----------------------------
:MRS
V01=0
MOVE(X,X,X,X,X,X,-31,383,331,-329,-31,-331,331,31,329,-331,-383,31,X,X,X,X,X,X,640)
:MRSLOOP2
V130=0
:MRSMOTGENESTART7
MOVE(X,X,X,X,X,X,15,439,327,-265,15,-327,319,77,258,-319,-431,77,X,X,X,X,X,X,160)
MOVE(X,X,X,X,X,X,-15,439,327,-265,15,-327,352,80,288,-352,-466,80,X,X,X,X,X,X,160)
MOVE(X,X,X,X,X,X,-15,439,327,-265,15,-327,305,201,244,-305,-416,201,X,X,X,X,X,X,160)
MOVE(X,X,X,X,X,X,15,439,327,-265,15,-327,269,194,211,-269,-378,194,X,X,X,X,X,X,160)
SOUND
MOVE(X,X,X,X,X,X,-67,433,321,-259,-67,-321,308,117,247,-308,-419,117,X,X,X,X,X,X,160)
MOVE(X,X,X,X,X,X,-146,406,296,-236,-146,-296,325,36,264,-325,-437,36,X,X,X,X,X,X,160)
MOVE(X,X,X,X,X,X,-221,356,248,-191,-221,-248,324,-46,262,-324,-436,-46,X,X,X,X,X,X,160)
MOVE(X,X,X,X,X,X,-215,406,296,-236,-215,-296,326,-31,264,-326,-438,-1,X,X,X,X,X,X,160)
MOVE(X,X,X,X,X,X,-96,462,348,-285,-96,-348,326,-31,264,-326,-438,-1,X,X,X,X,X,X,160)
MOVE(X,X,X,X,X,X,-62,434,322,-260,-62,-322,327,-2,265,-327,-439,-2,X,X,X,X,X,X,160)
SOUND
MOVE(X,X,X,X,X,X,-31,438,326,-264,-31,-326,326,31,264,-326,-438,31,X,X,X,X,X,X,640)
JUMPIF(V130,=,0,MRSMOTGENESTART7)
;JUMPIF(V130,#,V29,MRSLOOP2)
JUMPIF(V130,<,V26,MRSLOOP2)
JUMPIF(V130,>,V33,MRSLOOP2)
JUMPIF(V130,=,V27,MRSLOOP2)
JUMP(KEYCHECK)