易語言中如何制作王校長吃熱狗游戲

這篇文章將為大家詳細講解有關易語言中如何制作王校長吃熱狗游戲，小編覺得挺實用的，因此分享給大家做個參考，希望大家閱讀完這篇文章后可以有所收獲。

王校長吃熱狗游戲

.版本 2
.支持庫 iext2
.支持庫 OPenGL
.支持庫 spec
.支持庫 EThread
.程序集 窗口程序集_啟動窗口
.程序集變量 人物標識, 整數型
.程序集變量 熱狗標識, 整數型, , "0"
.程序集變量 死亡, 邏輯型
.程序集變量 得分, 整數型
.子程序 _開始按鈕_被單擊
動畫物體2.圖片 ＝ #人物
人物標識 ＝ 動畫框1.創建物體 (動畫物體2, 取鼠標水平位置 () － _啟動窗口.左邊 － 25, 取鼠標垂直位置 () － _啟動窗口.頂邊 － 26, 真, )
得分 ＝ 0
顯示光標 (假)
開始按鈕.可視 ＝ 假
死亡 ＝ 假
開始游戲 ()
.子程序 開始游戲
.局部變量 熱狗, 整數型
.局部變量 移動速度, 整數型
.局部變量 新增速度, 整數型
.局部變量 i, 整數型
動畫物體1.圖片 ＝ #熱狗
移動速度 ＝ 50
新增速度 ＝ 500
.判斷循環首 (死亡 ＝ 假)
  熱狗 ＝ 動畫框1.創建物體 (動畫物體1, 取隨機數 (24, 368), 38, 真, )
  動畫框1.置角度 (熱狗, 180)
  .如果真 (得分 ％ 20 ＝ 0 且 移動速度 ＞ 10 且 新增速度 ＞ 200)
    移動速度 ＝ 移動速度 － 1
    新增速度 ＝ 新增速度 － 20
  .如果真結束
  動畫框1.自動前進 (熱狗, 5, 移動速度, , , 真, 1, 真, { 0 }, )
  延遲 (新增速度)
.判斷循環尾 ()
.子程序 _動畫框1_鼠標位置被移動, 邏輯型
.參數 橫向位置, 整數型
.參數 縱向位置, 整數型
.參數 功能鍵狀態, 整數型
動畫框1.置物體位置 (人物標識, 取鼠標水平位置 () － _啟動窗口.左邊 － 25, 取鼠標垂直位置 () － _啟動窗口.頂邊 － 26, 真)
.子程序 _動畫框1_碰撞到物體
.參數 碰撞物體標識值, 整數型
.參數 碰撞前橫坐標, 整數型
.參數 碰撞前縱坐標, 整數型
.參數 被碰撞物體標識值, 整數型
.如果真 (被碰撞物體標識值 ＞ 得分 ＋ 1 或 碰撞物體標識值 ＞ 得分 ＋ 1)
  得分 ＝ 得分 ＋ 1
  啟動線程 (&顯示成功圖, , )
  _啟動窗口.標題 ＝ “王校長吃熱狗  得分：” ＋ 到文本 (得分)
.如果真結束
.子程序 顯示成功圖
動畫框1.置圖片 (人物標識, #成功, )
延遲 (200)
動畫框1.置圖片 (人物標識, #人物, )
.子程序 __啟動窗口_可否被關閉, 邏輯型
結束 ()
.子程序 _動畫框1_碰撞到邊界, 邏輯型
.參數 物體標識值, 整數型
.參數 碰撞前橫坐標, 整數型
.參數 碰撞前縱坐標, 整數型
.參數 邊界類型, 整數型
.如果真 (物體標識值 ≠ 人物標識 且 邊界類型 ＝ 8)
  顯示光標 (真)
  死亡 ＝ 真
  動畫框1.銷毀所有物體 ()
  信息框 (“游戲結束，得分：” ＋ 到文本 (得分), 0, , )
  開始按鈕.可視 ＝ 真
  得分 ＝ 0
  _啟動窗口.標題 ＝ “王校長吃熱狗”
.如果真結束

運行結果：

關于“易語言中如何制作王校長吃熱狗游戲”這篇文章就分享到這里了，希望以上內容可以對大家有一定的幫助，使各位可以學到更多知識，如果覺得文章不錯，請把它分享出去讓更多的人看到。