;
;歩行関連プログラム
; Original
;  デアゴスティーニ週刊ロボゼロ68号
;    File F6,7,9-12.TXT
; Modify
;  2012/07/29 Micono Utilities F6m01.TXT
;

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

;----------------------
:KEYCHECK
;----------------------
JUMPIF(V130,=,V26,FWD)
JUMPIF(V130,=,V28,LTURN)
JUMPIF(V130,=,V30,RTURN)
JUMPIF(V130,=,V32,BACK)
JUMPIF(V130,=,V31,LSTEP)
JUMPIF(V130,=,V33,RSTEP)

;-------------
: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 ▲
;---------------------------
:FWD
V01=0
MOVE(0,0,700,0,0,0,-30,403,301,-300,-30,-301,301,30,300,-301,-403,30,0,0,0,-700,0,0,1500)
:MOTGENESTART1
MOVE(21,X,X,X,X,X,-119,332,280,-279,-119,-280,297,-60,295,-297,-349,-60,0,X,X,X,X,-4,200)

MOVE(-61,X,X,X,X,X,-130,414,362,-360,-130,-362,297,-60,295,-297,-349,20,0,X,X,X,X,-4,200)
:FWDLOOP
V130 = 0
:FWDMOTGENELOOP1
MOVE(-90,X,X,X,X,X,-135,443,391,-389,-135,-391,296,-60,326,-296,-316,60,0,X,X,X,X,-37,200)
MOVE(-109,X,X,X,X,X,-159,462,345,-278,-159,-345,285,-88,344,-285,-276,-8,-75,X,X,X,X,-77,200)
MOVE(-59,X,X,X,X,X,-101,412,274,-185,-101,-274,287,-43,377,-287,-248,-43,-130,X,X,X,X,-105,200)
MOVE(-54,X,X,X,X,X,-14,407,297,-237,-14,-297,277,45,396,-277,-209,45,-150,X,X,X,X,-144,200)
SOUND
JUMPIF(V130,#,0,FWDMOTGENELOOPCHECK2)
:FWDMOTGENELOOP2
MOVE(-22,X,X,X,X,X,65,375,295,-265,65,-295,241,120,385,-241,-147,120,-130,X,X,X,X,-206,200)
MOVE(11,X,X,X,X,X,10,342,290,-288,90,-290,335,158,446,-335,-274,158,-75,X,X,X,X,-79,200)
MOVE(44,X,X,X,X,X,-30,309,289,-319,90,-289,380,168,378,-380,-432,168,0,X,X,X,X,79,200)
MOVE(77,X,X,X,X,X,8,276,285,-344,88,-285,345,159,278,-345,-462,159,75,X,X,X,X,109,200)
MOVE(105,X,X,X,X,X,43,248,287,-377,43,-287,274,101,185,-274,-412,101,130,X,X,X,X,59,200)
MOVE(144,X,X,X,X,X,-45,209,277,-396,-45,-277,297,14,237,-297,-407,14,150,X,X,X,X,54,200)
SOUND
MOVE(206,X,X,X,X,X,-120,147,241,-385,-120,-241,295,-65,265,-295,-375,-65,130,X,X,X,X,22,200)
MOVE(70,X,X,X,X,X,-128,283,346,-459,-128,-346,297,-60,295,-297,-349,20,75,X,X,X,X,-4,200)
:FWDMOTGENELOOPCHECK1
JUMPIF(V130,=,0,FWDMOTGENELOOP1)
;JUMPIF(V130,#,V29,FWDLOOP)
JUMPIF(V130,<,V28,FWDLOOP)
JUMPIF(V130,>,V33,FWDLOOP)
MOVE(-61,X,X,X,X,X,-130,414,362,-360,-130,-362,297,-60,295,-297,-349,20,0,X,X,X,X,-4,200)
:FWDMOTGENELOOPCHECKEND2
MOVE(0,X,X,X,X,X,-30,353,301,-300,-30,-301,301,30,300,-301,-353,30,0,X,X,X,X,0,200)
JUMP(KEYCHECK)

:FWDMOTGENELOOPCHECK2
JUMPIF(V130,<,V28,FWDMOTGENELOOP2)
JUMPIF(V130,>,V33,FWDMOTGENELOOP2)
JUMP(FWDMOTGENELOOPCHECKEND2)


;--------------------------
;左回転 File #7, Button 左
;--------------------------
:LTURN
V01=21
MOVE(0,0,700,0,0,0,-31,383,331,-329,-31,-331,331,31,329,-331,-383,31,0,0,0,-700,0,0,1500)
:LTURNLOOP
V130 = 0
:LTURNMOTGENESTART1
MOVE(-35,X,X,X,X,X,-239,418,440,-513,-109,-440,440,109,368,-440,-563,239,X,X,X,X,X,180,24)
SOUND
WAIT(1)
MOVE(0,X,X,X,X,X,-31,383,331,-329,-31,-331,331,31,329,-331,-383,31,X,X,X,X,X,0,720)
JUMPIF(V130,=,0,LTURNMOTGENESTART1)
;JUMPIF(V130,#,V29,LTURNLOOP)
JUMPIF(V130,<,V26,LTURNLOOP)
JUMPIF(V130,>,V33,LTURNLOOP)
JUMPIF(V130,=,V27,LTURNLOOP)
JUMP(KEYCHECK)

;--------------------------
;右回転 File #9, Button 右
;--------------------------
:RTURN
V01=21
MOVE(0,0,700,0,0,0,-31,383,331,-329,-31,-331,331,31,329,-331,-383,31,0,0,0,-700,0,0,1500)
:RTURNLOOP
V130 = 0
:RTURNMOTGENESTART1
MOVE(-180,X,X,X,X,X,-239,563,440,-368,-109,-440,440,109,513,-440,-418,239,X,X,X,X,X,35,24)
SOUND
WAIT(1)
MOVE(0,X,X,X,X,X,-31,383,331,-329,-31,-331,331,31,329,-331,-383,31,X,X,X,X,X,0,720)
JUMPIF(V130,=,0,RTURNMOTGENESTART1)
;JUMPIF(V130,#,V29,RTURNLOOP)
JUMPIF(V130,<,V26,RTURNLOOP)
JUMPIF(V130,>,V33,RTURNLOOP)
JUMPIF(V130,=,V27,RTURNLOOP)
JUMP(KEYCHECK)

;-----------------------------
;後退歩行 File #11, Button ▼ 
;-----------------------------
:BACK
V01=0
MOVE(0,0,700,0,0,0,-31,383,331,-329,-31,-331,331,31,329,-331,-383,31,0,0,0,-700,0,0,1500)
:BACKMOTGENESTART1
MOVE(17,X,X,X,X,X,-114,366,314,-313,-114,-314,329,-53,327,-329,-381,-53,0,X,X,X,X,-2,200)
MOVE(-47,X,X,X,X,X,-123,430,378,-376,-123,-378,329,-53,327,-329,-381,7,0,X,X,X,X,-2,200)
:BACKLOOP
V130 = 0
:BACKMOTGENELOOP1
MOVE(-70,X,X,X,X,X,-127,453,402,-400,-127,-402,328,-53,307,-328,-399,27,0,X,X,X,X,16,200)
MOVE(12,X,X,X,X,X,-150,371,367,-413,-150,-367,322,-79,280,-322,-413,-19,75,X,X,X,X,30,200)
MOVE(80,X,X,X,X,X,-98,303,314,-375,-98,-314,325,-37,263,-325,-437,-37,130,X,X,X,X,54,200)
MOVE(45,X,X,X,X,X,-16,338,330,-371,-16,-330,320,45,238,-320,-453,45,150,X,X,X,X,70,200)
SOUND
JUMPIF(V130,#,0,BACKMOTGENELOOPCHECK2)
:BACKMOTGENELOOP2
MOVE(26,X,X,X,X,X,58,357,327,-348,58,-327,298,117,197,-298,-448,117,130,X,X,X,X,65,200)
MOVE(8,X,X,X,X,X,20,375,324,-322,80,-324,362,150,286,-362,-488,150,75,X,X,X,X,105,200)
MOVE(-11,X,X,X,X,X,0,394,323,-303,80,-323,393,157,391,-393,-445,157,0,X,X,X,X,62,200)
MOVE(-30,X,X,X,X,X,19,413,322,-280,79,-322,367,150,413,-367,-371,150,-75,X,X,X,X,-12,200)
MOVE(-54,X,X,X,X,X,37,437,325,-263,37,-325,314,98,375,-314,-303,98,-130,X,X,X,X,-80,200)
MOVE(-70,X,X,X,X,X,-45,453,320,-238,-45,-320,330,16,371,-330,-338,16,-150,X,X,X,X,-45,200)
SOUND
MOVE(-65,X,X,X,X,X,-117,448,298,-197,-117,-298,327,-58,348,-327,-357,-58,-130,X,X,X,X,-26,200)
MOVE(-115,X,X,X,X,X,-122,498,371,-294,-122,-371,329,-53,327,-329,-381,7,-75,X,X,X,X,-2,200)
:BACKMOTGENELOOPCHECK1
JUMPIF(V130,=,0,BACKMOTGENELOOP1)
;JUMPIF(V130,#,V29,BACKLOOP)
JUMPIF(V130,<,V26,BACKLOOP)
JUMPIF(V130,>,V33,BACKLOOP)
JUMPIF(V130,=,V27,BACKLOOP)
MOVE(-47,X,X,X,X,X,-123,430,378,-376,-123,-378,329,-53,327,-329,-381,7,0,X,X,X,X,-2,200)
:BACKMOTGENELOOPCHECKEND2
MOVE(0,X,X,X,X,X,-31,383,331,-329,-31,-331,331,31,329,-331,-383,31,0,X,X,X,X,0,200)
JUMP(KEYCHECK)

:BACKMOTGENELOOPCHECK2
JUMPIF(V130,<,V26,BACKMOTGENELOOP2)
JUMPIF(V130,>,V33,BACKMOTGENELOOP2)
JUMPIF(V130,=,V27,BACKMOTGENELOOP2)

;-----------------------------
;左移動 File #10, Button 0 
;-----------------------------
:LSTEP
V01=0
MOVE(0,0,700,0,0,0,-31,383,331,-329,-31,-331,331,31,329,-331,-383,31,0,0,0,-700,0,0,1500)
:LSTEPLOOP
V130 = 0
:LSTEPMOTGENESTART1
MOVE(13,X,X,X,X,X,-100,370,319,-317,-100,-319,330,-39,329,-330,-382,-39,X,X,X,X,X,-1,160)
MOVE(-79,X,X,X,X,X,-113,462,410,-408,-113,-410,330,-39,329,-330,-382,51,X,X,X,X,X,-1,160)
MOVE(14,X,X,X,X,X,-296,369,317,-315,-296,-317,330,-39,329,-330,-382,51,X,X,X,X,X,-1,160)
MOVE(125,X,X,X,X,X,-267,258,206,-204,-267,-206,330,-39,329,-330,-382,-39,X,X,X,X,X,-1,160)
SOUND
MOVE(35,X,X,X,X,X,-159,348,296,-294,-159,-296,323,85,321,-323,-374,85,X,X,X,X,X,-9,160)
MOVE(1,X,X,X,X,X,-39,382,330,-329,-39,-330,270,201,268,-270,-322,201,X,X,X,X,X,-61,160)
MOVE(9,X,X,X,X,X,85,374,323,-321,85,-323,144,303,142,-144,-196,303,X,X,X,X,X,-187,160)
MOVE(4,X,X,X,X,X,-28,379,327,-325,62,-327,297,316,295,-297,-349,316,X,X,X,X,X,-34,160)
MOVE(4,X,X,X,X,X,-28,379,327,-325,62,-327,404,138,402,-404,-455,138,X,X,X,X,X,72,160)
MOVE(-1,X,X,X,X,X,16,384,332,-330,16,-332,324,77,322,-324,-376,77,X,X,X,X,X,-7,160)
SOUND
MOVE(0,X,X,X,X,X,-31,383,331,-329,-31,-331,331,31,329,-331,-383,31,X,X,X,X,X,0,640)
JUMPIF(V130,=,0,LSTEPMOTGENESTART1)
;JUMPIF(V130,#,V29,LSTEPLOOP)
JUMPIF(V130,<,V26,LSTEPLOOP)
JUMPIF(V130,>,V33,LSTEPLOOP)
JUMPIF(V130,=,V27,LSTEPLOOP)
JUMP(KEYCHECK)

;-----------------------------
;右移動 File #12, Button -
;-----------------------------
:RSTEP
V01=0
MOVE(0,0,700,0,0,0,-31,383,331,-329,-31,-331,331,31,329,-331,-383,31,0,0,0,-700,0,0,1500)
:RSTEPLOOP
V130 = 0
:RSTEPMOTGENESTART1
MOVE(1,X,X,X,X,X,39,382,330,-329,39,-330,319,100,317,-319,-370,100,X,X,X,X,X,-13,160)
MOVE(1,X,X,X,X,X,-51,382,330,-329,39,-330,410,113,408,-410,-462,113,X,X,X,X,X,79,160)
MOVE(1,X,X,X,X,X,-51,382,330,-329,39,-330,317,296,315,-317,-369,296,X,X,X,X,X,-14,160)
MOVE(1,X,X,X,X,X,39,382,330,-329,39,-330,206,267,204,-206,-258,267,X,X,X,X,X,-125,160)
SOUND
MOVE(9,X,X,X,X,X,-85,374,323,-321,-85,-323,296,159,294,-296,-348,159,X,X,X,X,X,-35,160)
MOVE(61,X,X,X,X,X,-201,322,270,-268,-201,-270,330,39,329,-330,-382,39,X,X,X,X,X,-1,160)
MOVE(187,X,X,X,X,X,-303,196,144,-142,-303,-144,323,-85,321,-323,-374,-85,X,X,X,X,X,-9,160)
MOVE(34,X,X,X,X,X,-316,349,297,-295,-316,-297,327,-62,325,-327,-379,28,X,X,X,X,X,-4,160)
MOVE(-72,X,X,X,X,X,-138,455,404,-402,-138,-404,327,-62,325,-327,-379,28,X,X,X,X,X,-4,160)
MOVE(7,X,X,X,X,X,-77,376,324,-322,-77,-324,332,-16,330,-332,-384,-16,X,X,X,X,X,1,160)
SOUND
MOVE(0,X,X,X,X,X,-31,383,331,-329,-31,-331,331,31,329,-331,-383,31,X,X,X,X,X,0,640)
JUMPIF(V130,=,0,RSTEPMOTGENESTART1)
;JUMPIF(V130,#,V29,RSTEPLOOP)
JUMPIF(V130,<,V26,RSTEPLOOP)
JUMPIF(V130,>,V33,RSTEPLOOP)
JUMPIF(V130,=,V27,RSTEPLOOP)
JUMP(KEYCHECK)