cky25320
gamescore0gamespeed50000gamelevel1prscore得分初始化while1判断为真可以按Esc退出循环结束游戏whilekbhit无按键按下时，蛇自己移动身体
ifgamelevel1画出障碍物forj0j5jsetcolor5recta
gleblockxjblockyjblockxj10blockyj10
fblockyes0ifgamelevel2画出障碍物forj0j9jsetcolor5recta
gleblockxjblockyjblockxj10blockyj10blockyes0ifgamelevel3画出障碍物forj0j14jsetcolor5recta
gleblockxjblockyjblockxj10blockyj10blockyes0ifgamelevel4画出障碍物forj0j19jsetcolor5recta
gleblockxjblockyjblockxj10blockyj10blockyes0ifgamelevel5画出障碍物forj0j25jsetcolor5recta
gleblockxjblockyjblockxj10blockyj10blockyes0iffoodyes1需要画出新的食物foodxra
d40060获得间隔60的随机数食物坐标值foodyra
d35060whilefoodx100判断坐标值是否满足被10整除，否，自动增加foodxwhilefoody100foodyfoodyes0新的食物已经产生
ifgoodsyes1需要画出新的宝物goodsxra
d38060获得间隔60的随机数宝贝坐标值goodsyra
d32080
fwhilegoodsx100判断坐标值是否满足被10整除，否，自动增加goodsxwhilegoodsy100goodsygoodsyes0新的宝贝已经产生ifgoodsyes0新宝贝产生，应显示出来
setcolor0擦除recta
glegoodsxgoodsygoodsx10goodsy10delay50延时setcolorYELLOWgoodsxgoodsxra
dom10ra
dom20随机数增量goodsygoodsyra
dom10ra
dom20whilegoodsx100判断变化后的坐标值是否满足被10整除，否，自动增加goodsxwhilegoodsy100goodsyrecta
glegoodsxgoodsygoodsx10goodsy10重画出宝贝ifgoodsx65goodsx585goodsy65goodsy445判定宝贝是否越界setcolor0擦除越界的宝贝recta
glegoodsxgoodsygoodsx10goodsy10goodsyes1越界后重新生成宝贝
iffoodyes0新食物产生，应显示出来setcolorGREENsetli
estyleSOLID_LINE0THICK_WIDTH设定当前线型recta
glefoodxfoodyfoodx10foody10foris
ake
ode1i0i取得需重画的蛇的节数s
akexis
akexi1最后一节的坐标值等于倒数第二节的坐标值s
akeyis
akeyi1switchs
akedirectio
判断蛇头的移动方向case1s
akex010break向右case2s
akex010break向左case3s
akey010break向上case4s
akey010break向下fori3is
ake
odei超过4节后，判断蛇自身碰撞
fifs
akexis
akex0s
akeyis
akey0即自身的r