【脚本恢复】猫哥哥·贪吃蛇

yangff

作者:猫哥哥

---

如果作者认为此举有任何不妥，PM我，我亲撤下！

   RP爆发！
今天晚上想试写一下贪吃蛇，没想到很容易就写出来了……不知道有没有bug，欢迎大家debug
预览图一张：

1. 
   
2. #==============================================================================
   
3. #
   
4. #   ●贪吃蛇v1.0
   
5. #                 by 猫哥哥
   
6. #                                                       [email][email protected][/email]
   
7. #==============================================================================
   
8. class Tanchishe
   
9. 
   
10.   def initialize  
    
11.    
    
12.      #生成棋盘
    
13.      @size = 18
    
14.      
    
15.      @world = []
    
16.      for i in 1..@size
    
17.        for j in 1..@size
    
18.          @world.push([i,j])
    
19.        end
    
20.      end
    
21.      
    
22.     @ox = 60 #原点
    
23.     @oy = 40
    
24.      
    
25.     draw_line((@ox/20)-1 ,(@oy/20)-1)
    
26.    
    
27.     @worm = {}
    
28.     @food = {}
    
29.     @balls = []
    
30.     @key = 6
    
31.     draw_worm(4,8)
    
32.     draw_worm(5,8)
    
33.     draw_worm(6,8)
    
34.     draw_worm(7,8)
    
35.     draw_worm(8,8)
    
36.     draw_worm(9,8)
    
37.     draw_food
    
38. 
    
39.     @speed = 5 #值越大，速度越慢
    
40. 
    
41.     $FENSHU_WORM = 0
    
42.    
    
43.      #分数
    
44.       @score2 = Sprite.new
    
45.       @score2.bitmap = Bitmap.new(200,20)
    
46.       @score2.x = @ox +350
    
47.       @score2.y = @oy +330
    
48.       @score2.bitmap.draw_text(0, 0,200,20,"得分",1)
    
49.       @score = Sprite.new
    
50.       @score.bitmap = Bitmap.new(200,40)
    
51.       @score.x = @ox +350
    
52.       @score.y = @oy +350
    
53.       score_refresh #刷新分数
    
54.       
    
55.       @step = 0
    
56.       end
    
57.       
    
58.     def main
    
59.       
    
60.       loop do
    
61.         Graphics.update
    
62.         Input.update
    
63.         update
    
64.         if @step == 1
    
65.           move
    
66.         end  
    
67.       end
    
68.     end   
    
69.    
    
70.     def score_refresh
    
71.       @score.bitmap.clear
    
72.       @score.bitmap.draw_text(0, 20,200,20,$FENSHU_WORM.to_s,2 )
    
73.     end
    
74. 
    
75.     def draw_line(x,y) #描绘边缘
    
76.       k = []
    
77.       for i in 0..3
    
78.          k.push(Sprite.new)
    
79.       end
    
80.       k[0].bitmap = Bitmap.new(380,10) #上
    
81.       k[1].bitmap = Bitmap.new(380,10) #下
    
82.       k[2].bitmap = Bitmap.new(10,400) #左
    
83.       k[3].bitmap = Bitmap.new(10,400) #右
    
84.       for kk in k
    
85.          rect = kk.bitmap.rect
    
86.          color = Color.new(205,205,205)
    
87.          kk.bitmap.fill_rect(rect, color)
    
88.       end
    
89.       k[0].x = x*20 + 20
    
90.       k[0].y = y*20 + 10
    
91.       k[1].x = x*20 + 20
    
92.       k[1].y = y*20 + 400
    
93.       k[2].x = x*20 + 10
    
94.       k[2].y = y*20 + 10
    
95.       k[3].x = x*20 + 400
    
96.       k[3].y = y*20 + 10
    
97.     end
    
98.       
    
99.     def draw(x,y) #描绘形状
    
100.       a = Sprite.new
     
101.       a.bitmap = Bitmap.new(20,20)
     
102.       rect = a.bitmap.rect
     
103.       color = Color.new(255,255,255)
     
104.       a.bitmap.fill_rect(rect, color)
     
105.       a.x = x*20
     
106.       a.y = y*20
     
107.     end
     
108. 
     
109.     def dis_worm(x,y)
     
110.       b = @worm[[x,y]]
     
111.       b.bitmap.clear
     
112.       b.dispose
     
113.       @worm.delete([x,y])
     
114.       @world.push([x,y])
     
115.     end
     
116. 
     
117.     def dis_food
     
118.       b = @food[1]
     
119.       b.bitmap.clear
     
120.       b.dispose
     
121.       draw_food
     
122.     end
     
123.    
     
124.     def move
     
125.       case @key
     
126.       when 6
     
127.       @head = [@balls[0][0]+1,@balls[0][1]]
     
128.       when 2
     
129.       @head = [@balls[0][0],@balls[0][1]+1]
     
130.       when 4
     
131.       @head = [@balls[0][0]-1,@balls[0][1]]
     
132.       when 8
     
133.       @head = [@balls[0][0],@balls[0][1]-1]
     
134.       end
     
135.       if @head == @food[0] #吃到食物
     
136.         $FENSHU_WORM+=9
     
137.         score_refresh
     
138.         draw_worm(@head[0],@head[1])
     
139.         dis_food
     
140.       elsif @balls.include?(@head) == true #碰到自己身体
     
141.        finish                             
     
142.       elsif @head[0]<0 or @head[0]>@size or @head[1]<0 or @head[1]>@size #碰到边缘
     
143.        finish                           
     
144.       else
     
145.         draw_worm(@head[0],@head[1])
     
146.         @tail = @balls.pop
     
147.         dis_worm(@tail[0],@tail[1])
     
148.       end
     
149.        wait(@speed)
     
150.     end
     
151.    
     
152.     def wait(n)
     
153.         for i in 0..n
     
154.            Graphics.update if i > n/2
     
155.         end
     
156.     end
     
157.       
     
158.     def update
     
159.         if Input.trigger?(Input::C)
     
160.           @step = 1
     
161.         end
     
162.         if Input.trigger?(Input::RIGHT)
     
163.           if @key == 4
     
164.             @key = 4
     
165.           else
     
166.             @key = 6
     
167.           end
     
168.         end
     
169.         if Input.trigger?(Input::LEFT)
     
170.           if @key == 6
     
171.             @key = 6
     
172.           else
     
173.             @key = 4
     
174.           end
     
175.         end
     
176.         if Input.trigger?(Input::DOWN)
     
177.           if @key == 8
     
178.             @key = 8
     
179.           else  
     
180.             @key = 2
     
181.           end
     
182.         end
     
183.         if Input.trigger?(Input::UP)
     
184.           if @key == 2
     
185.             @key = 2
     
186.           else
     
187.             @key = 8
     
188.           end
     
189.         end
     
190.     end
     
191. 
     
192.     def draw_worm(x,y) #描绘虫
     
193.       a = Sprite.new
     
194.       a.bitmap = Bitmap.new(20,20)
     
195.       rect = a.bitmap.rect
     
196.       color = Color.new(255,255,255)
     
197.       color2 = Color.new(155,155,155)
     
198.       a.bitmap.fill_rect(rect, color)
     
199.       a.bitmap.fill_rect(0,0,20,2,color2)
     
200.       a.bitmap.fill_rect(0,18,20,2,color2)
     
201.       a.bitmap.fill_rect(0,0,2,20,color2)
     
202.       a.bitmap.fill_rect(18,0,2,20,color2)
     
203.       a.x = x*20 + @ox
     
204.       a.y = y*20 + @oy
     
205.       @worm[[x,y]] = a
     
206.       @balls.unshift([x,y])
     
207.       @world.delete([x,y])
     
208.     end
     
209.    
     
210.     def draw_food #描绘食物
     
211.       if @world.size == 0
     
212.         finish
     
213.       end
     
214.         b = @world[rand(@world.size-1)]
     
215.         a = Sprite.new
     
216.         a.bitmap = Bitmap.new(20,20)
     
217.         rect = a.bitmap.rect
     
218.         color = Color.new(255,255,255)
     
219.         color2 = Color.new(155,155,155)
     
220.         a.bitmap.fill_rect(rect, color)
     
221.         a.bitmap.fill_rect(0,0,20,2,color2)
     
222.         a.bitmap.fill_rect(0,18,20,2,color2)
     
223.         a.bitmap.fill_rect(0,0,2,20,color2)
     
224.         a.bitmap.fill_rect(18,0,2,20,color2)
     
225.         a.x = b[0]*20 + @ox
     
226.         a.y = b[1]*20 + @oy
     
227.         @food = [b,a]
     
228.     end
     
229. 
     
230.     def finish
     
231.       @score2.dispose
     
232.       @score.dispose
     
233.       a = "您最后的得分是"
     
234.       b = $FENSHU_WORM.to_s
     
235.       c = "分"
     
236.       p a+b+c
     
237.       exit #如果不想游戏结束就退出请把这句##掉
     
238.     end
     
239. end
     
240.   
     
241. #===========================
     
242. begin
     
243.      Font.default_name = (["黑体","宋体"])
     
244.      a = Tanchishe.new
     
245.      a.main
     
246. end

复制代码

Near_DM

用Delphi11 5分钟就写得出来了，但是用rm附带的脚本来写已经算不错了。

yangff

向雷子要密码

yangff

发布完毕
VIP+3
http://rpg.blue/web/shownews.asp?id=887

猫哥哥

{/qiang}谢谢了

---

系统信息：本贴由本区版主认可，66RPG感谢您的热情解答～

burst_TNT

我们的目标是不仅要恢复，还要利用恢复之机顺手升级（看天）

yangff

作者:猫哥哥

---

如果作者认为此举有任何不妥，PM我，我亲撤下！

   RP爆发！
今天晚上想试写一下贪吃蛇，没想到很容易就写出来了……不知道有没有bug，欢迎大家debug
预览图一张：


#==============================================================================
#
#   ●贪吃蛇v1.0
#                 by 猫哥哥
#                                                       [email protected]
#==============================================================================
class Tanchishe

  def initialize  
   
     #生成棋盘
     @size = 18
     
     @world = []
     for i in 1..@size
       for j in 1..@size
         @world.push([i,j])
       end
     end
     
    @ox = 60 #原点
    @oy = 40
     
    draw_line((@ox/20)-1 ,(@oy/20)-1)
   
    @worm = {}
    @food = {}
    @balls = []
    @key = 6
    draw_worm(4,8)
    draw_worm(5,8)
    draw_worm(6,8)
    draw_worm(7,8)
    draw_worm(8,8)
    draw_worm(9,8)
    draw_food

    @speed = 5 #值越大，速度越慢

    $FENSHU_WORM = 0
   
     #分数
      @score2 = Sprite.new
      @score2.bitmap = Bitmap.new(200,20)
      @score2.x = @ox +350
      @score2.y = @oy +330
      @score2.bitmap.draw_text(0, 0,200,20,"得分",1)
      @score = Sprite.new
      @score.bitmap = Bitmap.new(200,40)
      @score.x = @ox +350
      @score.y = @oy +350
      score_refresh #刷新分数
      
      @step = 0
      end
      
    def main
      
      loop do
        Graphics.update
        Input.update
        update
        if @step == 1
          move
        end  
      end
    end   
   
    def score_refresh
      @score.bitmap.clear
      @score.bitmap.draw_text(0, 20,200,20,$FENSHU_WORM.to_s,2 )
    end

    def draw_line(x,y) #描绘边缘
      k = []
      for i in 0..3
         k.push(Sprite.new)
      end
      k[0].bitmap = Bitmap.new(380,10) #上
      k[1].bitmap = Bitmap.new(380,10) #下
      k[2].bitmap = Bitmap.new(10,400) #左
      k[3].bitmap = Bitmap.new(10,400) #右
      for kk in k
         rect = kk.bitmap.rect
         color = Color.new(205,205,205)
         kk.bitmap.fill_rect(rect, color)
      end
      k[0].x = x*20 + 20
      k[0].y = y*20 + 10
      k[1].x = x*20 + 20
      k[1].y = y*20 + 400
      k[2].x = x*20 + 10
      k[2].y = y*20 + 10
      k[3].x = x*20 + 400
      k[3].y = y*20 + 10
    end
      
    def draw(x,y) #描绘形状
      a = Sprite.new
      a.bitmap = Bitmap.new(20,20)
      rect = a.bitmap.rect
      color = Color.new(255,255,255)
      a.bitmap.fill_rect(rect, color)
      a.x = x*20
      a.y = y*20
    end

    def dis_worm(x,y)
      b = @worm[[x,y]]
      b.bitmap.clear
      b.dispose
      @worm.delete([x,y])
      @world.push([x,y])
    end

    def dis_food
      b = @food[1]
      b.bitmap.clear
      b.dispose
      draw_food
    end
   
    def move
      case @key
      when 6
      @head = [@balls[0][0]+1,@balls[0][1]]
      when 2
      @head = [@balls[0][0],@balls[0][1]+1]
      when 4
      @head = [@balls[0][0]-1,@balls[0][1]]
      when 8
      @head = [@balls[0][0],@balls[0][1]-1]
      end
      if @head == @food[0] #吃到食物
        $FENSHU_WORM+=9
        score_refresh
        draw_worm(@head[0],@head[1])
        dis_food
      elsif @balls.include?(@head) == true #碰到自己身体
       finish                             
      elsif @head[0]<0 or @head[0]>@size or @head[1]<0 or @head[1]>@size #碰到边缘
       finish                           
      else
        draw_worm(@head[0],@head[1])
        @tail = @balls.pop
        dis_worm(@tail[0],@tail[1])
      end
       wait(@speed)
    end
   
    def wait(n)
        for i in 0..n
           Graphics.update if i > n/2
        end
    end
      
    def update
        if Input.trigger?(Input::C)
          @step = 1
        end
        if Input.trigger?(Input::RIGHT)
          if @key == 4
            @key = 4
          else
            @key = 6
          end
        end
        if Input.trigger?(Input::LEFT)
          if @key == 6
            @key = 6
          else
            @key = 4
          end
        end
        if Input.trigger?(Input::DOWN)
          if @key == 8
            @key = 8
          else  
            @key = 2
          end
        end
        if Input.trigger?(Input::UP)
          if @key == 2
            @key = 2
          else
            @key = 8
          end
        end
    end

    def draw_worm(x,y) #描绘虫
      a = Sprite.new
      a.bitmap = Bitmap.new(20,20)
      rect = a.bitmap.rect
      color = Color.new(255,255,255)
      color2 = Color.new(155,155,155)
      a.bitmap.fill_rect(rect, color)
      a.bitmap.fill_rect(0,0,20,2,color2)
      a.bitmap.fill_rect(0,18,20,2,color2)
      a.bitmap.fill_rect(0,0,2,20,color2)
      a.bitmap.fill_rect(18,0,2,20,color2)
      a.x = x*20 + @ox
      a.y = y*20 + @oy
      @worm[[x,y]] = a
      @balls.unshift([x,y])
      @world.delete([x,y])
    end
   
    def draw_food #描绘食物
      if @world.size == 0
        finish
      end
        b = @world[rand(@world.size-1)]
        a = Sprite.new
        a.bitmap = Bitmap.new(20,20)
        rect = a.bitmap.rect
        color = Color.new(255,255,255)
        color2 = Color.new(155,155,155)
        a.bitmap.fill_rect(rect, color)
        a.bitmap.fill_rect(0,0,20,2,color2)
        a.bitmap.fill_rect(0,18,20,2,color2)
        a.bitmap.fill_rect(0,0,2,20,color2)
        a.bitmap.fill_rect(18,0,2,20,color2)
        a.x = b[0]*20 + @ox
        a.y = b[1]*20 + @oy
        @food = [b,a]
    end

    def finish
      @score2.dispose
      @score.dispose
      a = "您最后的得分是"
      b = $FENSHU_WORM.to_s
      c = "分"
      p a+b+c
      exit #如果不想游戏结束就退出请把这句##掉
    end
end
  
#===========================
begin
     Font.default_name = (["黑体","宋体"])
     a = Tanchishe.new
     a.main
end