cps测一测你的手速，logo代码

to cp
cs pd
make "c 0
wk sb wait 600 stop
end
to cps
wait 60 cp pr :c/10
end
to sb
mouseon[make "x first mousepos make "y last mousepos][if and :x<200 :x>(-200)[if and :y<300 :y>0[make "c :c+1]
]][make "x mousepos make "y last mousepos][if and :x<200 :x>(-200)[if and :y<300 :y>0[make "c :c+1]]][]
end
to wk
pu setx -200 pd repeat 2[fd 300 rt 90 fd 400 rt 90]
pu fd 20 rt 90 fd 20 pd fill pu bk 20 lt 90 bk 20 setx 0
fd 150 lt 90 fd 100 rt 180 setpc 7 pd setpc 0
pu home pd
end