最新天堂中文在线丨午夜嘿嘿嘿影院丨亚洲国产精品高清久久久丨中文字幕人成乱码熟女app丨www91亚洲丨97成人资源丨成人中文字幕+乱码+中文字幕丨一区二区三区在线 | 日丨日韩免费大片丨亚洲欧美一区二区三区丨国产在线观看a丨亚洲成人第一区丨国内免费视频成人精品丨亚洲综合色网站丨午夜精品美女久久久久av福利丨国产午夜人做人免费视频网站丨国产又黄视频丨97se狼狼狼狼狼亚洲网丨狠狠亚洲婷婷综合色香五月丨中国一级毛片黄丨国产女人十八毛片丨国产色视频在线播放丨国产亚洲精久久久久久无码苍井空丨天天摸日日摸爽爽狠狠丨久久综合香蕉国产蜜臀av

//**********************************************************開始游戲
if start == true and snake_len == 0 then
   snake_pos_x[0] = 9
   snake_pos_y[0] = 9
   snake_len = 1
   //繪制小蛇
   for index = 0 to snake_len - 1
       snake_index = snake_pos_y[index] * 20 + snake_pos_x[index]
       SetData(ON, "Local HMI", LB, snake_index, 1)
   next
   SetData(ON, "Local HMI", LB, 2000, 1)
end if
//**********************************************************暫停游戲
if stop then
   SetData(OFF, "Local HMI", LB, 1001, 1)
   SetData(OFF, "Local HMI", LB, 1002, 1)
   start = false
end if
if snake_len > 0 and start == true then

   ////**********************************************************
   ////**********************************************小蛇向上移動
   ////**********************************************************
   if snake_UP == true and snake_DOWN == false then
      //清除小蛇
      for index = 0 to snake_len-1
          snake_index = snake_pos_y[index] * 20 + snake_pos_x[index]
          SetData(OFF, "Local HMI", LB, snake_index, 1)
      next
      
      //蛇頭撞墻
      if snake_pos_y[0] == 0 then
         game_over = true
         SetData(ON, "Local HMI", LB, 2010, 1)
      else
         snake_len1  = snake_len-1
         snake_tail_pos_x = snake_pos_x[snake_len1]
         snake_tail_pos_y = snake_pos_y[snake_len1]
         snake_head_pos_x = snake_pos_x[0]
         snake_head_pos_y = snake_pos_y[0] - 1