Make Object Box 1,5,5,20
Make Object Sphere 2,1,1,1
Make Mesh From Object 2,2
Add Limb 1,1,2
Delete Object 2
Offset Limb 1,0,0,0,10
Offset Limb 1,1,0,0,20
Make Object Box 2,5,5,10
Add Limb 2,1,2
Offset Limb 2,0,0,0,5
Offset Limb 2,1,0,0,10
Make Object Box 3,5,5,5
Add Limb 3,1,2
Offset Limb 3,0,0,0,2.5
Offset Limb 3,1,0,0,5
Delete Mesh 2
 
Position Object 1,0,-20,50
ArmAng#=0
Wave1#=0
WaveDir1#=1
Wave2#=0
WaveDir2#=-.5
Do
   `Upper Arm
   ArmAng#=WrapValue(ArmAng#+.5)
   Rotate Object 1,0,ArmAng#,0
 
   `Forearm
   If Wave1#>45 Then WaveDir1#=-1:Wave1#=45
   If Wave1#<0 Then WaveDir1#=1:Wave1#=0
   Wave1#=Wave1#+WaveDir1#
   Position Object 2,Limb Position X(1,1),Limb Position Y(1,1),Limb Position Z(1,1)
   Rotate Object 2,Object Angle X(1),Object Angle Y(1)+Wave1#,Object Angle Z(1)
   If Wave2#>0 Then WaveDir2#=-.5:Wave2#=0
   If Wave2#<-50 Then WaveDir2#=.5:Wave2#=-50
   Wave2#=Wave2#+WaveDir2#
   Position Object 3,Limb Position X(2,1),Limb Position Y(2,1),Limb Position Z(2,1)
   Rotate Object 3,Object Angle X(1),Object Angle Y(1)+Wave1#+Wave2#,Object Angle Z(1)
   Sync
Loop