強制完結２

無駄インクル

　
夢のシナリオ強制完結インクルード公開から四ヶ月。
私ハクがまた恐ろしいものを開発してしまいました。
　
今作では前作の、敵との決着を全て投げてしまうという欠点を克服し
全ての敵を確実に葬り去る機能を入れることに成功しました。
　
使い方はいたって簡単。
終わらせたいところで以下のように記述するだけです。

Call 強制完結２

今作では手間のかかる作者のＨＮ記入が省かれています。
なんと素晴らしい進化でしょうか。
　
Include.eveに記述すべきソースはこちら↓

強制完結２:
FadeOut
PaintPicture Map\earth0000.bmp 208 208
PaintPicture Map\earth0001.bmp 240 208
PaintPicture Map\earth0002.bmp 208 240
PaintPicture Map\earth0003.bmp 240 240
Font 10pt
PaintString - 450 "地球を左クリックして下さい"
Refresh
Do While (((MouseX < 208) Or (272 < MouseX) Or (MouseY < 208) Or (272 < MouseY)) Or (KeyState(1) <> 1))
　Wait 0
Loop
Cls
PaintPicture Map\earth0000.bmp 158 208
PaintPicture Map\earth0001.bmp 290 208
PaintPicture Map\earth0002.bmp 158 240
PaintPicture Map\earth0003.bmp 290 240
Font 50pt
PaintString - 50 "悪は去った!!"
Refresh
Wait Click
GameClear

例によって例の如く、自由にお使いいただけます。
それでも私は使いませんが。