Here are the gaits. No body shift added to code and there not perfect but the main loco is correct. some of them need slowing down especially gallop.
[code];-------------------[GAIT Select]
GaitSelect
;Gait selector
;shifting from (RR-LF-LR-RF)
IF (GaitType = 0) THEN ;Quad gait wave type 18 step [Zenta]
LRGaitLegNr = 11
RFGaitLegNr = 17
RRGaitLegNr = 2
LFGaitLegNr = 8
HalfLiftHeigth = FALSE
NrLiftedPos = 2
TLDivFactor = 16
StepsInGait = 18
VariableGaitSpeed = 150
ENDIF
;-------------------
;shifting from (LR-RF-RR-LF)
IF (GaitType = 1) THEN ;Ripple Gait 12 steps
LRGaitLegNr = 1
RFGaitLegNr = 3
RRGaitLegNr = 7
LFGaitLegNr = 9
NrLiftedPos = 3
HalfLiftHeigth = TRUE
TLDivFactor = 8
StepsInGait = 12
VariableGaitSpeed = 100
ENDIF
;-------------------
;shifting from (LR-RF-RR-LF)
IF (GaitType = 2) THEN ;Quadripple 9 steps
LRGaitLegNr = 1
RFGaitLegNr = 2
RRGaitLegNr = 5
LFGaitLegNr = 7
NrLiftedPos = 2
HalfLiftHeigth = FALSE
TLDivFactor = 6
StepsInGait = 9
VariableGaitSpeed = 150
ENDIF
;-------------------
;shifting from (LR-RF)(-RR-LF)
IF (GaitType = 3) THEN ;Walk 4 steps
LRGaitLegNr = 3
RFGaitLegNr = 3
RRGaitLegNr = 1
LFGaitLegNr = 1
NrLiftedPos = 1
TLDivFactor = 2
StepsInGait = 4
VariableGaitSpeed = 150
ENDIF
;-------------------
;shifting from (LR-RF)(RR-LF)
IF (GaitType = 4) THEN ;Trot 2 steps
LRGaitLegNr = 1
RFGaitLegNr = 1
RRGaitLegNr = 2
LFGaitLegNr = 2
NrLiftedPos = 2
TLDivFactor = 2
StepsInGait = 2
VariableGaitSpeed = 150
ENDIF
;-------------------
;shifting from (LR-(RF-RR)-LF)
IF (GaitType = 5) THEN ;Pace 8 steps
LRGaitLegNr = 5
RFGaitLegNr = 1
RRGaitLegNr = 1
LFGaitLegNr = 5
NrLiftedPos = 3
HalfLiftHeigth = TRUE
TLDivFactor = 4
StepsInGait = 8
VariableGaitSpeed = 110
ENDIF
;-------------------
;shifting from (LR-RR)-LF)-RF)
IF (GaitType = 6) THEN ;Gallop 4 steps
LRGaitLegNr = 1
RFGaitLegNr = 3
RRGaitLegNr = 1
LFGaitLegNr = 2
NrLiftedPos = 1
TLDivFactor = 2
StepsInGait = 4
VariableGaitSpeed = 150
ENDIF
;-------------------
;shifting from (RF-RR-LR-LF)
IF (GaitType = 7) THEN ;Wave 18 steps
LRGaitLegNr = 10
RFGaitLegNr = 1
RRGaitLegNr = 7
LFGaitLegNr = 16
NrLiftedPos = 2
HalfLiftHeigth = FALSE
TLDivFactor = 16
StepsInGait = 18
VariableGaitSpeed = 100
ENDIF
return[/code]