今天小編就爲大家分享一篇關於易語言製作王校長吃熱狗遊戲的源碼，小編覺得內容挺不錯的，現在分享給大家，具有很好的參考價值，需要的朋友一起跟隨小編來看看吧
王校長吃熱狗遊戲
.版本 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
_啓動窗口.標題 ＝ “王校長吃熱狗”
.如果真結束
運行結果：
總結
以上就是這篇文章的全部內容了，希望本文的內容對大家的學習或者工作具有一定的參考學習價值，謝謝大家對神馬文庫的支持。如果你想了解更多相關內容請查看下面相關鏈接