2016-02-27
ちょぼいち２０１６
サイコロはまあ、こんなもんでしょ。
これだけ色々やっても、ゲーム内容自体は、マニュアルの「数当てゲーム」と全く変わらないっていうね（爆）
でも、これが意外と何度も遊んでしまうんだよ～ｗｗｗ
#----------------------------------------------------------------------- # ちょぼいち２０１６ #----------------------------------------------------------------------- #-----母艦設計----------------------------------------------- ！母艦設計=「母艦の可視はオフ」 母艦のタイトルは「ちょぼいち」 母艦のクライアント幅は640。母艦のクライアント高さは480。 母艦を$FFDDAAで画面クリア。 母艦のスタイルは「枠固定」 母艦はオフに最大化ボタン有効変更。 母艦を中央移動 『#親部品名,部品名,テキスト,ショートカット,オプション,イベント なし,ファイルメニュー,ファイル(&F),,, -,新規メニュー,新しいゲーム(&N),Ctrl+N,,新規ゲーム -,-,,,, -,メッセージメニュー,メッセージ速度(&S),Ctrl+S,, --,速度１,早い(&1),,,メッセージ早い。 --,速度２,普通(&2),,,メッセージ普通。 --,速度３,遅い(&3),,,メッセージ遅い。 -,-,,,, -,閉じるメニュー,閉じる(&X),Ctrl+X,,終わる なし,ヘルプメニュー,ヘルプ(&H),,, -,ルールメニュー,ちょぼいちについて(&R),Ctrl+R,,遊び方 -,-,,,, -,バージョンメニュー,バージョン情報(&A),Ctrl+A,,バージョン 』をメニュー一括作成。 ＊メッセージ早い メッセージ速度＝０ 速度１のチェックはオン。速度２のチェックはオフ。速度３のチェックはオフ。 ＊メッセージ普通 メッセージ速度＝３０ 速度１のチェックはオフ。速度２のチェックはオン。速度３のチェックはオフ。 ＊メッセージ遅い メッセージ速度＝１００ 速度１のチェックはオフ。速度２のチェックはオフ。速度３のチェックはオン。 #------------------------------------------------------------ #-----宣言--------------------------------------------------- ダイスサイズとは整数＝１００ 半径とは整数＝１０ 元手とは整数＝１０００ 標準賭け金＝１００ 一口とは整数＝１０ 所持金とは整数＝元手 賭け金とは整数＝０ 配当とは整数＝５ 予想とは整数。 賭場サイズとは整数＝３００ 板サイズとは整数＝７０ 左マージンとは整数＝１５ 上マージンとは整数＝１５ テキストウィンドウ幅＝５００ テキストウィンドウ高さ＝１２０ メッセージ速度＝３０。 速度２のチェックはオン。 ボタンフラグとは整数＝０ ＃０＝賭ける／待った １＝やる／やめる ２＝再戦／終了 マウス待ちとは整数＝オン 出目とは整数。 裏画面とはイメージ。その可視はオフ。 そのWはダイスサイズ＊６。そのHはダイスサイズ＋板サイズ＊２。 処理用とはイメージ。その可視はオフ。 #---サイコロ振るところ---- 賭場とはイメージ。その可視はオフ。 そのWは賭場サイズ。そのHは賭場サイズ。 賭場を$775533で画面クリア。 #---胴元がしゃべるところ---- テキストウィンドウとはイメージ。その可視はオフ。 そのWはテキストウィンドウ幅。そのHはテキストウィンドウ高さ。 テキストウィンドウを$222222で画面クリア。 #---所持金表示---- 文字書体は「ＭＳ 明朝|24|標準」。 母艦の左マージン＋賭場サイズ＋４０,上マージン＋５０＋板サイズ＊２へ「所持金:」を文字描画。 母艦の左マージン＋賭場サイズ＋１６０,上マージン＋５０＋板サイズ＊２,８０,３３へ「{所持金}」を右,下で枠内文字描画。 母艦の左マージン＋賭場サイズ＋２５０,上マージン＋５０＋板サイズ＊２へ「文」を文字描画。 #---賭け金表示---- 文字書体は「ＭＳ 明朝|24|標準」。 母艦の左マージン＋賭場サイズ＋４０,上マージン＋１００＋板サイズ＊２へ「賭け金:」を文字描画。 母艦の左マージン＋賭場サイズ＋１６０,上マージン＋１００＋板サイズ＊２,８０,３３へ「{賭け金}」を右,下で枠内文字描画。 母艦の左マージン＋賭場サイズ＋２５０,上マージン＋１００＋板サイズ＊２へ「文」を文字描画。 #---勝負ボタン---- 勝負ボタンとはボタン。そのテキストは「勝負！」 そのXは左マージン＊２＋テキストウィンドウ幅。そのYは上マージン＊２＋賭場サイズ＋テキストウィンドウ高さ－８０。 そのWは１００。そのHは３５。 その文字書体は「ＭＳ 明朝|18|標準」。 その有効はオフ。 #---待ったボタン---- 待ったボタンとはボタン。そのテキストは「待った」 そのXは左マージン＊２＋テキストウィンドウ幅。そのYは上マージン＊２＋賭場サイズ＋テキストウィンドウ高さ－３５。 そのWは１００。そのHは３５。 その文字書体は「ＭＳ 明朝|18|標準」。 その有効はオフ。 #---お金を賭けるところ---- 賭け板とはイメージ。その可視はオフ。 そのWは板サイズ＊２。そのHは板サイズ＊６ 賭け板設定とは配列。 #０ボタン表示位置X、１ボタン表示位置Y、２ボタン幅、ボタン高さ ６回 賭け板設定￥回数,0は左マージン＋賭場サイズ＋６０＋（板サイズ＊（（回数－１）％３））。 賭け板設定￥回数,1は上マージン＋２０＋（板サイズ＊（（回数－１）／３を切り下げ）） 賭け板設定￥回数,2は板サイズ 賭け板設定￥回数,3は板サイズ #---お金を賭ける窓---- 賭け窓とはフォーム。賭け窓をウィンドウ背景色で画面クリア。 その幅は２４０。その高さは１８０。 そのXは母艦のX＋（母艦の幅－賭け窓の幅）／２。そのYは母艦のY＋（母艦の高さ－賭け窓の高さ）／２。 そのスタイルは「枠固定」 賭け窓はオフにシステムメニューボタン有効変更。 金額スピンとはエディタ。その親部品は賭け窓。 そのXは50。そのYは60。その幅は120。その高さは30。 その文字サイズは22。 金額スピンの変更した時は～ もし、金額スピンのテキスト＞所持金ならば 金額スピンのテキスト＝所持金 違えば、もし、金額スピンのテキスト＜１ならば 金額スピンのテキスト＝１ 違えば 金額スピンのテキスト＝金額スピンのテキスト プラスボタンとはボタン。その親部品は金額スピン。 そのXは103。プラスボタンのYは0。その幅は13。その高さは17。 その文字書体は「ＭＳ 明朝|6|標準」。そのテキストは「▲」 プラスボタンのマウス押した時は～ もし、プラスボタンの押されたボタン＝左ならば m=0。n=0。 金額プラス プラスボタンのマウス離した時は～ m=1 ＊金額プラス もしm=0ならば 金額スピンのテキスト＝金額スピンのテキスト＋一口 もし、n=0ならば 0.5秒待つ。n=1。 0.1秒待つ 金額プラス マイナスボタンとはボタン。その親部品は金額スピン。 そのXは103。そのYは16。その幅は13。その高さは17。 その文字書体は「ＭＳ 明朝|6|標準」。そのテキストは「▼」 マイナスボタンのマウス押した時は～ もし、マイナスボタンの押されたボタン＝左ならば m=0。n=0。 金額マイナス マイナスボタンのマウス離した時は～ m=1 ＊金額マイナス もしm=0ならば 金額スピンのテキスト＝金額スピンのテキスト－一口 もし、n=0ならば 0.5秒待つ。n=1。 0.1秒待つ 金額マイナス ＯＫボタンとはボタン。その親部品は賭け窓。 そのXは30。そのYは120。 その文字書体は「ＭＳ 明朝|10|標準」。そのテキストは「ＯＫ」 ＯＫボタンのクリックした時は～ 掛け金＝金額スピンのテキスト。 所持金＝所持金－掛け金。 塗り色は$FFDDAA。線色は$FFDDAA。線太さは０。 賭け窓をウィンドウ背景色で画面クリア。 賭け窓の可視はオフ。賭け窓を閉じる。 所持金表示。 「2」で胴元セリフ。 キャンセルボタンとはボタン。その親部品は賭け窓。 そのXは130。そのYは120。 その文字書体は「ＭＳ 明朝|10|標準」。そのテキストは「キャンセル」 キャンセルボタンのクリックした時は～ 賭け窓をウィンドウ背景色で画面クリア。 賭け窓を閉じる 「0」で胴元セリフ。 #------------------------------------------------------------ #-----マウス入力待ち------------------------------------------- 母艦のマウス移動した時は～ もし、マウス待ち＝オンならば 賭け板の賭け板設定を母艦へマウスインアウト反映。 違えば 戻る。 母艦のマウス押した時は～ もし、マウス待ち＝オンならば もし、母艦の押されたボタン＝左ならば もし、前選択ボタン＝０でなければ もし、前選択ボタン＝１ならば 予想＝３ 違えば、もし、前選択ボタン＝３ならば 予想＝１ 違えば、 予想＝前選択ボタン 賭ける 違えば 戻る 違えば 戻る 勝負ボタンのクリックした時は～ マウス待ち＝オフ。 勝負ボタンの有効はオフ。 待ったボタンの有効はオフ。 もし、ボタンフラグ＝０ならば サイコロ振る。 勝ち負け判定。 違えばもし、ボタンフラグ＝１ならば 賭場を母艦の左マージン,上マージンへ画像コピー。 賭け板の賭け板設定を母艦へマウスインアウト反映。 もし、所持金≦０ならば 「破産」で胴元セリフ。 文字色は白色。文字書体は「ＭＳ 明朝|20|太字」。 母艦の左マージン,上マージン,左マージン+賭場サイズ,賭場サイズへ「{元手-所持金}文すりました」を中央,中央で枠内文字描画 ボタンフラグ＝２ 勝負ボタンのテキストは「再戦」 待ったボタンのテキストは「終了」 違えば 「1」で胴元セリフ。 ボタンフラグ＝０ 勝負ボタンのテキストは「勝負！」 待ったボタンのテキストは「待った」 違えばもし、ボタンフラグ＝２ならば 新規ゲーム。 待ったボタンのクリックした時は～ もし、ボタンフラグ＝０ならば 所持金＝所持金＋掛け金。 掛け金＝０。 所持金表示。 勝負ボタンの有効はオフ。 待ったボタンの有効はオフ。 「1」で胴元セリフ。 違えばもし、ボタンフラグ＝１ならば 賭場を母艦の左マージン,上マージンへ画像コピー。 賭け板の賭け板設定を母艦へマウスインアウト反映。 文字色は白色。文字書体は「ＭＳ 明朝|20|太字」。 もし、所持金＞元手ならば 母艦の左マージン,上マージン,左マージン+賭場サイズ,賭場サイズへ「{所持金-元手}文もうかった！」を中央,中央で枠内文字描画 「勝ち逃げ」で胴元セリフ。 違えば、もし、所持金＝元手ならば 母艦の左マージン,上マージン,左マージン+賭場サイズ,賭場サイズへ「勝ち負け無しです」を中央,中央で枠内文字描画 「賢明」で胴元セリフ。 違えば 母艦の左マージン,上マージン,左マージン+賭場サイズ,賭場サイズへ「{元手-所持金}文損しました」を中央,中央で枠内文字描画 「賢明」で胴元セリフ。 勝負ボタンの可視はオフ。 待ったボタンのテキストは「終了」 ボタンフラグ＝２ 違えばもし、ボタンフラグ＝２ならば 終わる。 #------------------------------------------------------------ #-----メインルーチン----------------------------------------- 母艦の可視はオン。 サイコロ準備 ゲーム画面準備 新規ゲーム #------------------------------------------------------------ ＊新規ゲーム 乱数初期化。 所持金＝元手。 掛け金＝０。 所持金表示。 ボタンフラグ＝０ 賭場を母艦の左マージン,上マージンへ画像コピー。 賭け板の賭け板設定を母艦へマウスインアウト反映。 勝負ボタンの可視はオン。 勝負ボタンの有効はオフ。 待ったボタンの有効はオフ。 勝負ボタンのテキストは「勝負！」 待ったボタンのテキストは「待った」 「1」で胴元セリフ。 #------------------------------------------------------------ ＊賭ける 金額スピンのテキストは標準賭け金。 文字色はウィンドウ文字色。文字書体は「ＭＳ 明朝|16|標準」 賭け窓の30,20へ「{予想} の目に賭けるよ！」を文字描画。 賭け窓をモーダル表示。 #------------------------------------------------------------ ＊所持金表示 文字書体は「ＭＳ 明朝|24|標準」。文字色は黒。塗り色は$FFDDAA。線色は$FFDDAA。 母艦の左マージン＋賭場サイズ＋１６０,上マージン＋５０＋板サイズ＊２から左マージン＋賭場サイズ＋１６０＋８０,上マージン＋５０＋板サイズ＊２＋３３へ四角。 母艦の左マージン＋賭場サイズ＋１６０,上マージン＋５０＋板サイズ＊２,８０,３３へ「{所持金}」を右,下で枠内文字描画。 母艦の左マージン＋賭場サイズ＋１６０,上マージン＋１００＋板サイズ＊２から左マージン＋賭場サイズ＋１６０＋８０,上マージン＋１００＋板サイズ＊２＋３３へ四角。 母艦の左マージン＋賭場サイズ＋１６０,上マージン＋１００＋板サイズ＊２,８０,３３へ「{掛け金}」を右,下で枠内文字描画。 #------------------------------------------------------------ ＊サイコロ振る ｒ＝６の乱数。出目＝ｒ＋１。 ｘ＝ｒ＊ダイスサイズ。ｙ＝０。 処理用をダイスサイズ,ダイスサイズへ画像高速リサイズ。 裏画面のｘ,ｙ,ダイスサイズ,ダイスサイズを処理用の０,０へ画像部分コピー。 処理用を母艦の左マージン＋（賭場サイズ／２－ダイスサイズ／２）,上マージン＋（賭場サイズ／２－ダイスサイズ／２）へ画像合成改。 #------------------------------------------------------------ ＊勝ち負け判定 もし、出目＝予想ならば ボタンフラグ＝１ 文字色は白色。文字書体は「ＭＳ 明朝|32|太字」。 母艦の101,51へ「当たり」を文字描画。 文字色は赤色。 母艦の100,50へ「当たり」を文字描画。 「当たり」で胴元セリフ。 所持金＝所持金＋掛け金＊配当。 違えば ボタンフラグ＝１ 文字色は白色。文字書体は「ＭＳ 明朝|32|太字」。 母艦の101,51へ「はずれ」を文字描画。 文字色は青色。 母艦の100,50へ「はずれ」を文字描画。 「外れ」で胴元セリフ。 勝負ボタンのテキストは「やる」 待ったボタンのテキストは「やめる」 掛け金＝０。 所持金表示。 #------------------------------------------------------------ ＊胴元セリフ（Sで） テキストウィンドウを母艦の左マージン,上マージン+賭場サイズ+１０へ画像コピー。 文字色は白色。文字書体は「ＭＳ 明朝|16|標準」。 母艦の左マージン＋１０,上マージン+賭場サイズ+２０へ「【胴元】」を文字描画。 もし、S＝「0」ならば 母艦の左マージン＋３０,上マージン+賭場サイズ+５０へ「さあ、張った張った！」をメッセージ速度で文字遅延描画 もし、S＝「1」ならば 母艦の左マージン＋３０,上マージン+賭場サイズ+５０へ「どの目にいくら張るんだい？」をメッセージ速度で文字遅延描画 マウス待ち＝オン。 もし、S＝「2」ならば 母艦の左マージン＋３０,上マージン+賭場サイズ+５０へ「{予想}に{掛け金}文だな？」をメッセージ速度で文字遅延描画 母艦の左マージン＋３０,上マージン+賭場サイズ+７５へ「良ければ勝負だ！」をメッセージ速度で文字遅延描画 勝負ボタンの有効はオン。 待ったボタンの有効はオン。 マウス待ち＝オフ。 もし、S＝「外れ」ならば 母艦の左マージン＋３０,上マージン+賭場サイズ+５０へ「外れだな。」をメッセージ速度で文字遅延描画 母艦の左マージン＋３０,上マージン+賭場サイズ+７５へ「掛け金は没収だ。」をメッセージ速度で文字遅延描画 母艦の左マージン＋３０,上マージン+賭場サイズ+１００へ「まだ続けるかい？」をメッセージ速度で文字遅延描画 勝負ボタンの有効はオン 待ったボタンの有効はオン マウス待ち＝オフ。 もし、S＝「当たり」ならば 母艦の左マージン＋３０,上マージン+賭場サイズ+５０へ「おめでとう。大当たりだ。」をメッセージ速度で文字遅延描画 母艦の左マージン＋３０,上マージン+賭場サイズ+７５へ「配当を払うぜ。」をメッセージ速度で文字遅延描画 母艦の左マージン＋３０,上マージン+賭場サイズ+１００へ「まだ続けるかい？」をメッセージ速度で文字遅延描画 勝負ボタンの有効はオン 待ったボタンの有効はオン マウス待ち＝オフ。 もし、S＝「破産」ならば 母艦の左マージン＋３０,上マージン+賭場サイズ+５０へ「おやおや、すってんてんじゃねえか。」をメッセージ速度で文字遅延描画 母艦の左マージン＋３０,上マージン+賭場サイズ+７５へ「いいカモっぷりだったぜ。」をメッセージ速度で文字遅延描画 母艦の左マージン＋３０,上マージン+賭場サイズ+１００へ「懲りずにまた遊んでくれよ？」をメッセージ速度で文字遅延描画 勝負ボタンの有効はオン 待ったボタンの有効はオン もし、S＝「勝ち逃げ」ならば 母艦の左マージン＋３０,上マージン+賭場サイズ+５０へ「おいおい、勝ち逃げかよ。」をメッセージ速度で文字遅延描画 もし、S＝「賢明」ならば 母艦の左マージン＋３０,上マージン+賭場サイズ+５０へ「まあ、賢明だな。」をメッセージ速度で文字遅延描画 母艦の左マージン＋３０,上マージン+賭場サイズ+７５へ「そのうち、また遊んでくれ。」をメッセージ速度で文字遅延描画 #------------------------------------------------------------ ＊ゲーム画面準備 #---お金を賭けるところ---- 処理用を板サイズ,板サイズ＊６へ画像高速リサイズ。 数を０から５まで繰り返す 塗り色は$DDAA00。線太さは０。 ｘ＝０ ｙ＝数＊板サイズ 処理用のｘ,ｙからｘ＋板サイズ,ｙ＋板サイズへ四角 数で条件分岐 ０ならば 板数＝「三」 １ならば 板数＝「二」 ２ならば 板数＝「一」 ３ならば 板数＝「四」 ４ならば 板数＝「五」 ５ならば 板数＝「六」 文字サイズは42。文字色は$000000。文字書体は「ＭＳ 明朝」 処理用のｘ＋5,ｙ＋5へ板数を文字描画。 処理用を賭け板の０,０へ画像コピー。 処理用を画像ネガポジ。 処理用を賭け板の板サイズ,０へ画像コピー。 賭場を母艦の左マージン,上マージンへ画像コピー。 テキストウィンドウを母艦の左マージン,上マージン＊２+賭場サイズへ画像コピー。 賭け板の0,0を賭け板設定で母艦へマウスオーバーボタン表示。 #------------------------------------------------------------ ＊サイコロ準備 裏画面を$000000で画面クリア。 数を０から５まで繰り返す。 もし、数＝０ならば #１のサイコロ 線色は$000001。塗り色は$FFFFFF #地の色は白 外枠。 #ダイスの外枠 線色は$FF0000。塗り色は$FF0000 #目の色は赤 半径＝１５。 #大き目 中点。 もし、数＝１ならば #２のサイコロ 線色は$000001。塗り色は$FFFFFF 外枠。 線色は$000001。塗り色は$000001 半径＝１０。 左上点。右下点。 もし、数＝２ならば #３のサイコロ 線色は$000001。塗り色は$FFFFFF 外枠。 線色は$000001。塗り色は$000001 半径＝１０。 中点。左上点。右下点。 もし、数＝３ならば #４のサイコロ 線色は$000001。塗り色は$FFFFFF 外枠。 線色は$000001。塗り色は$000001 半径＝１０。 左上点。左下点。右上点。右下点。 もし、数＝４ならば #５のサイコロ 線色は$000001。塗り色は$FFFFFF 外枠。 線色は$000001。塗り色は$000001 半径＝１０。 中点。左上点。左下点。右上点。右下点。 もし、数＝５ならば #６のサイコロ 線色は$000001。塗り色は$FFFFFF 外枠。 線色は$000001。塗り色は$000001 半径＝９。 左上点。左下点。右上点。右下点。左中点。右中点。 ＊外枠 ｘ＝数＊ダイスサイズ。ｙ＝０。 ｘ２＝ｘ＋ダイスサイズ。ｙ２＝ダイスサイズ。 裏画面のｘ,ｙからｘ２,ｙ２へ30,30で角丸四角。 ＊中点 ｘｘ＝（ｘ＋ダイスサイズ／２）－半径。ｙｙ＝ダイスサイズ／２－半径 ｘｘ２＝（ｘ＋ダイスサイズ／２）＋半径。ｙｙ２＝ダイスサイズ／２＋半径。 裏画面のｘｘ,ｙｙからｘｘ２,ｙｙ２へ円。 ＊左上点 ｘｘ＝（ｘ＋ダイスサイズ／４）－半径。ｙｙ＝ダイスサイズ／４－半径 ｘｘ２＝（ｘ＋ダイスサイズ／４）＋半径。ｙｙ２＝ダイスサイズ／４＋半径。 裏画面のｘｘ,ｙｙからｘｘ２,ｙｙ２へ円。 ＊左下点 ｘｘ＝（ｘ＋ダイスサイズ／４）－半径。ｙｙ＝（ダイスサイズ／４）＊３－半径 ｘｘ２＝（ｘ＋ダイスサイズ／４）＋半径。ｙｙ２＝（ダイスサイズ／４）＊３＋半径。 裏画面のｘｘ,ｙｙからｘｘ２,ｙｙ２へ円。 ＊右上点 ｘｘ＝（ｘ＋ダイスサイズ／４＊３）－半径。ｙｙ＝ダイスサイズ／４－半径 ｘｘ２＝（ｘ＋ダイスサイズ／４＊３）＋半径。ｙｙ２＝ダイスサイズ／４＋半径。 裏画面のｘｘ,ｙｙからｘｘ２,ｙｙ２へ円。 ＊右下点 ｘｘ＝（ｘ＋ダイスサイズ／４＊３）－半径。ｙｙ＝（ダイスサイズ／４）＊３－半径 ｘｘ２＝（ｘ＋ダイスサイズ／４＊３）＋半径。ｙｙ２＝（ダイスサイズ／４）＊３＋半径。 裏画面のｘｘ,ｙｙからｘｘ２,ｙｙ２へ円。 ＊左中点 ｘｘ＝（ｘ＋ダイスサイズ／４）－半径。ｙｙ＝ダイスサイズ／２－半径 ｘｘ２＝（ｘ＋ダイスサイズ／４）＋半径。ｙｙ２＝ダイスサイズ／２＋半径。 裏画面のｘｘ,ｙｙからｘｘ２,ｙｙ２へ円。 ＊右中点 ｘｘ＝（ｘ＋ダイスサイズ／４＊３）－半径。ｙｙ＝ダイスサイズ／２－半径 ｘｘ２＝（ｘ＋ダイスサイズ／４＊３）＋半径。ｙｙ２＝ダイスサイズ／２＋半径。 裏画面のｘｘ,ｙｙからｘｘ２,ｙｙ２へ円。 #------------------------------------------------------------ ＊遊び方 ダイアログタイトルは「ちょぼいちについて」 「【ちょぼいちのルール】 さいころ１個を振り、出目に賭ける賭博。 賭け者は１から６の好きな目に賭け、 当たれば４～５倍の配当が払われるが、 外れれば親に賭け金全額没収される。」を言う。 #------------------------------------------------------------ ＊バージョン ダイアログタイトルは「バージョン情報」 「｛二重カッコ｝ちょぼいち｛二重カッコ閉じ｝{改行} Version 1.91{改行}{改行} by 雪乃☆雫」と言う。 #------------------------------------------------------------ #------------------------------------------------------------ ●枠内文字描画（{グループ=?}OBJのX,Y,W,HへSをA,Vで） xxとは整数。yyとは整数。 もし、A＝左ならば xx＝X 違えば、もし、A＝中央ならば xx＝X+(W-(Sの文字幅取得))/2 違えば、もし、A＝右ならば xx＝(X+W)-(Sの文字幅取得) もし、V＝上ならば yy＝Y 違えば、もし、V＝中央ならば yy＝Y+(H-(Sの文字高さ取得))/2 違えば、もし、V＝下ならば yy＝(Y+H)-(Sの文字高さ取得) OBJのxx,yyへSを文字描画。 #------------------------------------------------------------ ●画像合成改({グループ}Sを{グループ}DのX,Yへ) Cとは整数 //マスク画像はSの透過色を黒色、それ以外を白色にしたもの マスク画像をイメージとして作成 マスク画像→可視はオフ マスク画像→画像はS→名前 マスク画像の0,0を画像色取得してCに代入 マスク画像をCで画像マスク作成 //ソース画像はSの透明色を黒色に変換したもの ソース画像をイメージとして作成 ソース画像→可視はオフ ソース画像→画像はS→名前 マスク画像を画像ネガポジ マスク画像をソース画像の0,0へ画像ANDコピー マスク画像を画像ネガポジ //合成実行 マスク画像をDのX,Yへ画像ANDコピー ソース画像をDのX,Yへ画像ORコピー VCL_FREE(マスク画像) VCL_FREE(ソース画像) // マスク画像→壊す // ソース画像→壊す #------------------------------------------------------------ ●マウスオーバーボタン表示（{グループ=?}OBJ1のX,YをAで{グループ=?}OBJ2へ） A\0,0=X。A\0,1=Y （Aの要素数-1）回 OBJ1のX,Y+(回数-1)*(A￥回数,3),(A￥回数,2),(A￥回数,3)をOBJ2の(A￥回数,0),(A￥回数,1)へ画像部分コピー。 ●マウスインアウト反映（{グループ=?}OBJ1のAを{グループ=?}OBJ2へ） （Aの要素数-1）回 もし、（(OBJ2→マウスX)＞（A￥回数,0））かつ （(OBJ2→マウスX)＜（A￥回数,0）+(A￥回数,2)）かつ （(OBJ2→マウスY)＞（A￥回数,1））かつ （(OBJ2→マウスY)＜（A￥回数,1）+(A￥回数,3)）ならば 選択ボタンは回数。 違えば、もし、（回数＝Aの要素数）かつ（選択ボタン＝０）ならば 選択ボタンは０。 ここまで もし、前選択ボタン＜＞選択ボタンならば もし、前選択ボタン＞０ならば OBJ1の(A\0,0),(A\0,1)+(前選択ボタン-1)*(A￥(前選択ボタン),3),(A￥(前選択ボタン),2),(A￥(前選択ボタン),3)をOBJ2の(A￥(前選択ボタン),0),(A￥(前選択ボタン),1)へ画像部分コピー。 もし、選択ボタン＞０ならば OBJ1の(A\0,0)+(A￥(選択ボタン),2),(A\0,1)+(選択ボタン-1)*(A￥(選択ボタン),3),(A￥(選択ボタン),2),(A￥(選択ボタン),3)をOBJ2の(A￥(選択ボタン),0),(A￥(選択ボタン),1)へ画像部分コピー。 前選択ボタン＝選択ボタン 選択ボタン＝０ 描画処理反映 #------------------------------------------------------------
トラックバック - http://nadesiko.g.hatena.ne.jp/snowdrops89/20160227
でも、これだけのプログラム書けるってうらやましいです。
仕事ではバッチ的に良く使ってますが、趣味では最近書けなくなって来ました(￣ー￣)
雫さんに負けないように頑張ろう。
雫さんのわかりやすいコード、いろいろと参考にさせて頂きます。
仕事帰りで、全然まとまりの無い文章ですが。。。
長い長い間放置で、ものすごくさりげなくこっそりと再開したというのに、また見て下さっていたなんて感激です！
コード、わかりやすいかな？（恥）
だったらうれしいけど、自分的にはぐちゃぐちゃな気分で、それはもう、ナデシコさまのおかげ～♪
プログラムも、長いっていっても、サイコロの絵を描くのや胴元がしゃべるのに、無駄に行数使ってるだけで、内容的には全然大したヤツじゃないです（汗）
以前のような気合いはないので、時間を掛けてゆるゆる遊んでますけど、またよろしくおつきあいくださいませ☆