すくろーる

/*------------------------------------------------------------------------------
  ぼくのいろ
------------------------------------------------------------------------------*/

!母艦設計=「母艦の可視はオフ」

#format-------------------------------------------------------------------------
!タイトル=「ぼくのいろ」
!バージョン=「0.01」
!ぼく=「●」
!アプリ情報=「
ぼくは　いいました。

"むこうから、こっちまで
ぜーんぶ　ぼくのいろで　うめてやるんだから！"
」

イメージサイズ@x=250
イメージサイズ@y=250

クリア色=4473924
ウェイト=0
表示ウェイト=5 #/1
ぼくいち@x=20
ぼくいち@y=20

#System-------------------------------------------------------------------------
#軽変更時の変数名変更はしないでください。
ocw=0;
och=0;
mx=0;
my=0;
imagecount=0;
stat="starting"

#-------------------------------------------------------------------------------
# GUI Edit
#-------------------------------------------------------------------------------

#定義
#Image--------------------------------------------------------------------------
表示イメージとはイメージ
バッファイメージとはイメージ

#設定
#UI Style-----------------------------------------------------------------------  
//image
表示イメージについて
  幅はイメージサイズ@x
  高さはイメージサイズ@y
  Xは0
  Yは0
  可視はオン
  
バッファイメージについて
  幅はイメージサイズ@x
  高さはイメージサイズ@y
  可視はオフ
//image format
表示イメージを白色で画面クリア
バッファイメージを白色で画面クリア

#Ivent--------------------------------------------------------------------------
母艦のサイズ変更した時は～位置調整
  
#Menu---------------------------------------------------------------------------
「
,mf,システム(&S)
-,f4,ウィンドウフィット(&F),F12,,ピッタリサイズ
-,f2,-,,,
-,f3,閉じる(&X),ESC,,終わる

,my,ぼく(&M)
-,y1,さいしょから(&R),Ctrl+R,,リセット
-,y2,べつの僕(&A),Ctrl+A,,リセット2

,mh,ヘルプ(&H)
-,h1,{タイトル}について(&A),,,アバウト
」をメニュー一括作成

//main window
母艦について
  タイトルは「{タイトル}」
  クライアントWはイメージサイズ@x+100
  クライアントHはイメージサイズ@y+20
  背景色はクリア色
  母艦を中央移動


#表示
#onView-------------------------------------------------------------------------
母艦の可視はオン

#-------------------------------------------------------------------------------
# Mainroutine
#-------------------------------------------------------------------------------
文字サイズは16
リセット
バッファイメージのぼくいち@x,ぼくいち@yへ「{ぼく}」を文字描画
バッファイメージを表示イメージの0,0へ画像コピー
1秒待つ。
//main
1の間
  もしimagecountが0以下ならば
    
    バッファイメージに(13の乱数)の画像ボカシ
    バッファイメージのぼくいち@x,ぼくいち@yへ「{ぼく}」を文字描画//{処理カウンタ}
    バッファイメージを表示イメージの0,0へ画像コピー
    
    処理カウンタ=処理カウンタ+1;
    表示ログは「」//表示ログをからにする
    
    imagecountは表示ウェイト
    描画処理反映
  ここまで
  imagecount=imagecount-1;
  (ウェイト)秒待つ
ここまで
待機。

#-------------------------------------------------------------------------------
# Subroutine
#-------------------------------------------------------------------------------

＊アバウト
  「{タイトル} ver,{バージョン}{\n}{アプリ情報}」と言う
  
＊色リセット
  システム時間で乱数初期化
  ぼくいろは白色の乱数
  文字色はぼくいろ
  処理カウンタ=0
  
＊位置リセット
  システム時間で乱数初期化
  ぼくいち@xは(((イメージサイズ@x-40)の乱数)+20)
  ぼくいち@yは(((イメージサイズ@y-40)の乱数)+20)
  
＊画面リセット
  //バッファイメージを白色で画面クリア
  バッファイメージをクリア色で画面クリア
  
＊リセット
  色リセット
  位置リセット
  画面リセット
＊リセット2
  色リセット
  位置リセット
  
＊位置調整
  ex@w = 表示イメージのX
  ex@h = 表示イメージのY
  イメージサイズをexでステージ位置調整
  表示イメージのX = ex@w
  表示イメージのY = ex@h
  
＊ピッタリサイズ
  母艦について
    クライアントWはイメージサイズ@x
    クライアントHはイメージサイズ@y
  
#-------------------------------------------------------------------------------
# Function
#-------------------------------------------------------------------------------

//内容の位置をオブジェクトの中央に調整
●ステージ位置調整({参照渡し}内容サイズを{参照渡し}exで)
  ocw=cw
  och=ch
  cw=整数部分((母艦のクライアントW/2)-((内容サイズ@x)/2))
  ch=整数部分((母艦のクライアントH/2)-((内容サイズ@y)/2))
  
  もし(cw<=0)ならば、
    cw=0
    もし、((ex@w=1)||(ocw != cw))ならば、
      ex@w = 0
  違えば、
    ex@w = cw
  ここまで
  
  もし(ch<=0)ならば、
    ch=0
    もし、((ex@h=1)||(och != ch))ならば、
      ex@h = 0
  違えば、
    ex@h = ch
  ここまで

//Program is end