2
.支持庫
iext2
.支持庫
iext
.程序集
窗口程序集1
.程序集變量
炮標識值,
整數型
.程序集變量
發射次數,
整數型
.程序集變量
打中次數,
整數型
.子程序
_動畫框1_碰撞到物體
.參數
碰撞物體標識值,
整數型
.參數
橫坐標,
整數型
.參數
縱坐標,
整數型
.參數
被碰撞物體標識值,
整數型
動畫框1.創建物體
(爆炸,
動畫框1.取物體左邊
(被碰撞物體標識值),
動畫框1.取物體頂邊
(被碰撞物體標識值),
,
)
動畫框1.銷毀物體
(碰撞物體標識值,
被碰撞物體標識值)
創建飛機
()
打中次數
=
打中次數
+
1
.子程序
_動畫框1_監視鍵被按下
.參數
鍵代碼,
整數型
.參數
功能鍵狀態,
整數型
動畫框1.自動前進
(動畫框1.創建物體
(炮彈,
動畫框1.取物體左邊
(炮標識值)
+
炮.取內容寬度
()
÷
2,
動畫框1.取物體頂邊
(炮標識值)
-
炮彈.取內容高度
(),
,
),
10,
20,
,
,
真,
,
真,
,
)
發射次數
=
發射次數
+
1
透明標簽1.標題
=
“妳發射了”
+
到文本
(發射次數)
+
“發炮彈,已經打中
”
+
到文本
(打中次數)
+
“只飛機”