pc logo画一个在地上滚动的六边形

这个我好像做过,那是在比赛中,不过不太完善,而且答案也不太对
这个是五边形的,修改一下才行
TO X
ht
lt 90
repeat 5[fd 50 rt 360/5]
make "g 0
label "c
if :g=14 then make "g 0 setx (xcor+50) lt (5*14) clean go "c
wait 10
clean
rt 5
repeat 5[fd 50 rt 360/5]
make "g :g+1
go "c
END
可以吗?

TO LBX
REPEAT 6[FD 60 RT 60]
END
TO 滚动
LT 90 SETW 5 FD 1500 HOME
PU SETW 2 FD 6 LT 90
REPEAT 100[REPEAT 12[LBX PE WAIT 3 LBX RT 5 PD]PU LT 60 BK 60 PD]
END