易語(yǔ)言送你999朵玫瑰花源碼

.版本 2
.程序集 窗口程序集1
.子程序 __啟動(dòng)窗口_創(chuàng)建完畢
.局部變量 屏幕快照, 字節(jié)集
屏幕快照 ＝ 快照 (, , )
_啟動(dòng)窗口.可視 ＝ 真
_啟動(dòng)窗口.位置 ＝ 3
畫(huà)板1.移動(dòng) (0, 0, 取屏幕寬度 (), 取屏幕高度 ())
畫(huà)板1.底圖 ＝ 屏幕快照
置隨機(jī)數(shù)種子 ()
播放音樂(lè) (#聲音1, 真)
等待 (500)
獻(xiàn)花 ()
.子程序 獻(xiàn)花
.局部變量 a, 整數(shù)型
.局部變量 b, 整數(shù)型
.局部變量 c, 整數(shù)型
.局部變量 d, 整數(shù)型
a ＝ 載入圖片 (#白玫瑰)
b ＝ 載入圖片 (#紅玫瑰)
c ＝ 載入圖片 (#粉玫瑰)
d ＝ 載入圖片 (#紅玫瑰1)
.判斷循環(huán)首 (a ≠ 0)
  畫(huà)板1.畫(huà)圖片 (a, 取隨機(jī)數(shù) (0, 取屏幕寬度 () － 110), 取隨機(jī)數(shù) (0, 取屏幕高度 () － 110), , , -16777215)
  等待 (100)
  畫(huà)板1.畫(huà)圖片 (b, 取隨機(jī)數(shù) (0, 取屏幕寬度 () － 110), 取隨機(jī)數(shù) (0, 取屏幕高度 () － 110), , , -16777215)
  等待 (100)
  畫(huà)板1.畫(huà)圖片 (c, 取隨機(jī)數(shù) (0, 取屏幕寬度 () － 110), 取隨機(jī)數(shù) (0, 取屏幕高度 () － 110), , , -16777215)
  等待 (100)
  畫(huà)板1.畫(huà)圖片 (d, 取隨機(jī)數(shù) (0, 取屏幕寬度 () － 110), 取隨機(jī)數(shù) (0, 取屏幕高度 () － 110), , , -16777215)
  等待 (100)
.判斷循環(huán)尾 ()
.子程序 _畫(huà)板1_鼠標(biāo)左鍵被按下, 邏輯型
.參數(shù) 橫向位置, 整數(shù)型
.參數(shù) 縱向位置, 整數(shù)型
.參數(shù) 功能鍵狀態(tài), 整數(shù)型
停止播放 ()
結(jié)束 ()
.子程序 _時(shí)鐘1_周期事件
畫(huà)板1.文本顏色 ＝ 取顏色值 (取隨機(jī)數(shù) (0, 255), 取隨機(jī)數(shù) (0, 255), 取隨機(jī)數(shù) (0, 255))
.子程序 等待
.參數(shù) 等待時(shí)間, 整數(shù)型
.局部變量 i, 整數(shù)型
i ＝ 取啟動(dòng)時(shí)間 ()
.循環(huán)判斷首 ()
  處理事件 ()
  延時(shí) (10)
.循環(huán)判斷尾 (取啟動(dòng)時(shí)間 () － i ＜ 等待時(shí)間)
.子程序 __啟動(dòng)窗口_按下某鍵, 邏輯型
.參數(shù) 鍵代碼, 整數(shù)型
.參數(shù) 功能鍵狀態(tài), 整數(shù)型
.如果真 (鍵代碼 ＝ #F4鍵 且 功能鍵狀態(tài) ＝ #Alt鍵狀態(tài))
  停止播放 ()
  結(jié)束 ()
.如果真結(jié)束