# JRuby Swing 中的貪食蛇 > 原文： [http://zetcode.com/gui/jrubyswing/nibbles/](http://zetcode.com/gui/jrubyswing/nibbles/) 在 JRuby Swing 編程教程的這一部分中，我們將創建一個貪食蛇游戲克隆。 貪食蛇是較舊的經典視頻游戲。 它最初是在 70 年代后期創建的。 后來它被帶到 PC 上。 在這個游戲中，玩家控制蛇。 目的是盡可能多地吃蘋果。 蛇每次吃一個蘋果，它的身體就會長大。 蛇必須避開墻壁和自己的身體。 ## 開發 蛇的每個關節的大小為 10px。 蛇由光標鍵控制。 最初，蛇具有三個關節。 游戲立即開始。 游戲結束后，我們在窗口中心顯示`"Game Over"`消息。 ```rb #!/usr/local/bin/jruby # ZetCode JRuby Swing tutorial # # In this program, we create # a Nibbles game clone. # # author: Jan Bodnar # website: www.zetcode.com # last modified: December 2010 include Java import java.awt.Color import java.awt.Font import java.awt.Dimension import java.awt.Toolkit import java.awt.event.ActionListener import java.awt.event.KeyEvent import java.awt.event.KeyListener import javax.swing.JFrame import javax.swing.ImageIcon import javax.swing.JPanel import javax.swing.Timer NWIDTH = 300 NHEIGHT = 300 DOT_SIZE = 10 ALL_DOTS = NWIDTH * NHEIGHT / (DOT_SIZE * DOT_SIZE) RAND_POS = 25 DELAY = 140 $x = [0] * ALL_DOTS $y = [0] * ALL_DOTS class Board < JPanel include KeyListener, ActionListener def initialize super self.setFocusable true self.initGame end def initGame @left = false @right = true @up = false @down = false @inGame = true @dots = 3 begin iid = ImageIcon.new "dot.png" @ball = iid.getImage iia = ImageIcon.new "apple.png" @apple = iia.getImage iih = ImageIcon.new "head.png" @head = iih.getImage rescue puts "cannot load images" end for i in 0..@dots $x[i] = 50 - i * 10 $y[i] = 50 end self.locateApple self.setBackground Color.black self.addKeyListener self @timer = Timer.new DELAY, self @timer.start end def paint g super g if @inGame self.drawObjects g Toolkit.getDefaultToolkit.sync g.dispose else self.gameOver g end end def drawObjects g g.drawImage @apple, @apple_x, @apple_y, self for z in 0..@dots if z == 0 g.drawImage @head, $x[z], $y[z], self else g.drawImage @ball, $x[z], $y[z], self end end end def gameOver g msg = "Game Over" small = Font.new "Helvetica", Font::BOLD, 14 metr = self.getFontMetrics small g.setColor Color.white g.setFont small g.drawString msg, (NWIDTH - metr.stringWidth(msg)) / 2, NHEIGHT / 2 @timer.stop end def checkApple if $x[0] == @apple_x and $y[0] == @apple_y @dots = @dots + 1 self.locateApple end end def move z = @dots while z > 0 $x[z] = $x[(z - 1)] $y[z] = $y[(z - 1)] z = z - 1 end if @left $x[0] -= DOT_SIZE end if @right $x[0] += DOT_SIZE end if @up $y[0] -= DOT_SIZE end if @down $y[0] += DOT_SIZE end end def checkCollision z = @dots while z > 0 if z > 4 and $x[0] == $x[z] and $y[0] == $y[z] @inGame = false end z = z - 1 end if $y[0] > NHEIGHT - DOT_SIZE @inGame = false end if $y[0] < 0 @inGame = false end if $x[0] > NWIDTH - DOT_SIZE @inGame = false end if $x[0] < 0 @inGame = false end end def locateApple r = rand RAND_POS @apple_x = r * DOT_SIZE r = rand RAND_POS @apple_y = r * DOT_SIZE end def actionPerformed e if @inGame self.checkApple self.checkCollision self.move end self.repaint end def keyReleased e end def keyPressed e key = e.getKeyCode if key == KeyEvent::VK_LEFT and not @right @left = true @up = false @down = false end if key == KeyEvent::VK_RIGHT and not @left @right = true @up = false @down = false end if key == KeyEvent::VK_UP and not @down @up = true @right = false @left = false end if key == KeyEvent::VK_DOWN and not @up @down = true @right = false @left = false end end end class Example < JFrame def initialize super "Nibbles" self.initUI end def initUI board = Board.new board.setPreferredSize Dimension.new NWIDTH, NHEIGHT self.add board self.pack self.setResizable false self.setDefaultCloseOperation JFrame::EXIT_ON_CLOSE self.setLocationRelativeTo nil self.setVisible true end end Example.new ``` 首先，我們將定義一些在游戲中使用的常量。 `WIDTH`和`HEIGHT`常數確定電路板的大小。 `DOT_SIZE`是蘋果的大小和蛇的點。 `ALL_DOTS`常數定義了板上可能的最大點數。 `RAND_POS`常數用于計算蘋果的隨機位置。 `DELAY`常數確定游戲的速度。 ```rb $x = [0] * ALL_DOTS $y = [0] * ALL_DOTS ``` 這兩個數組存儲蛇的所有可能關節的 x，y 坐標。 `initGame`方法初始化變量，加載圖像并啟動超時功能。 ```rb def paint g super g if @inGame self.drawObjects g Toolkit.getDefaultToolkit.sync g.dispose else self.gameOver g end end ``` 在`paint`方法內部，我們檢查`@inGame`變量。 如果為真，則繪制對象。 蘋果和蛇的關節。 否則，我們顯示`"Game Over"`文本。 `Toolkit.getDefaultToolkit.sync`方法可確保顯示為最新。 這對于動畫很有用。 ```rb def drawObjects g g.drawImage @apple, @apple_x, @apple_y, self for z in 0..@dots if z == 0 g.drawImage @head, $x[z], $y[z], self else g.drawImage @ball, $x[z], $y[z], self end end end ``` `drawObjects`方法繪制蘋果和蛇的關節。 蛇的第一個關節是其頭部，用紅色圓圈表示。 ```rb def gameOver g msg = "Game Over" small = Font.new "Helvetica", Font::BOLD, 14 metr = self.getFontMetrics small g.setColor Color.white g.setFont small g.drawString msg, (NWIDTH - metr.stringWidth(msg)) / 2, NHEIGHT / 2 @timer.stop end ``` 在`gameOver`方法中，我們在窗口中心顯示`"Game Over"`消息。 我們也停止計時器。 ```rb def checkApple if $x[0] == @apple_x and $y[0] == @apple_y @dots = @dots + 1 self.locateApple end end ``` `checkApple`方法檢查蛇是否擊中了蘋果對象。 如果是這樣，我們添加另一個蛇形關節并調用`locateApple`方法，該方法將隨機放置一個新的`Apple`對象。 在`move`方法中，我們有游戲的關鍵算法。 要了解它，請看一下蛇是如何運動的。 您控制蛇的頭。 您可以使用光標鍵更改其方向。 其余關節在鏈上向上移動一個位置。 第二關節移動到第一個關節的位置，第三關節移動到第二個關節的位置，依此類推。 ```rb while z > 0 $x[z] = $x[(z - 1)] $y[z] = $y[(z - 1)] z = z - 1 end ``` 該代碼將關節向上移動。 ```rb if @left $x[0] -= DOT_SIZE end ``` 將頭向左移動。 在`checkCollision`方法中，我們確定蛇是否擊中了自己或撞墻之一。 ```rb while z > 0 if z > 4 and $x[0] == $x[z] and $y[0] == $y[z] @inGame = false end z = z - 1 end ``` 如果蛇用頭撞到關節之一，我們就結束游戲。 ```rb if $y[0] > NHEIGHT - DOT_SIZE @inGame = false end ``` 如果蛇擊中了棋盤的底部，我們就結束了游戲。 `locateApple`方法在板上隨機放置一個蘋果。 ```rb r = rand RAND_POS ``` 我們得到一個從 0 到`RAND_POS-1`的隨機數。 ```rb @apple_x = r * DOT_SIZE ... @apple_y = r * DOT_SIZE ``` 這些行設置了`apple`對象的 x，y 坐標。 ```rb def actionPerformed e if @inGame self.checkApple self.checkCollision self.move end self.repaint end ``` 每隔`DELAY` ms，將調用`actionPerformed`方法。 如果我們參與了游戲，我們將調用三種構建游戲邏輯的方法。 在`Board`類的`keyPressed`方法中，我們確定按下的鍵。 ```rb if key == KeyEvent::VK_LEFT and not @right @left = true @up = false @down = false end ``` 如果單擊左光標鍵，則將`@left`變量設置為`true`。 在`move`方法中使用此變量來更改蛇對象的坐標。 還要注意，當蛇向右行駛時，我們不能立即向左轉。 ```rb class Example < JFrame def initialize super "Nibbles" self.initUI end def initUI board = Board.new board.setPreferredSize Dimension.new NWIDTH, NHEIGHT self.add board self.pack self.setResizable false self.setDefaultCloseOperation JFrame::EXIT_ON_CLOSE self.setLocationRelativeTo nil self.setVisible true end end ``` 在這個類中，我們設置了貪食蛇游戲。  圖：貪食蛇 這是使用 Swing 庫和 JRuby 編程語言編寫的貪食蛇電腦游戲。