Excel Maniacs

三四郎マクロでゲーム作成・・・POKER COMPLEX

三四郎マクロで動きの激しいアクションゲームを作るのは難しいですが、

簡単なカードゲームを作るのには向いています。なんと言っても

範囲を後選択させる「Range?」の存在が大きいですね。

　さて三四郎マクロで２つめのゲーム・POKER　COMPLEXを作りました。

下がそのキャプチャー画面です。

*

*

*

*

*

★遊び方
　(1)STARTをクリックしてゲームを始めます。下の画面になります。

*

*

*

*

*

(2)ルール：ポーカーの手を縦5列、横5列、対角線２つで計１２組み合わせて

    なるべく高得点になるように組み合わせます。

(3)５×５のグリッド（青いパネル）をクリックするとNext Cardに

    表示されているカードが配置されます。（下図）

*

*

*

*

*

(3)ポーカーの手を縦5列、横5列、対角線２つで計１２組み合わせて作ります。     なるべく高得点になるように組み合わせましょう。 ★手役の得点

役 得点 One Pair 5 Two Pairs 15 Three Cards 20 Full House 45 Four Cards 60 Flush 35 Straight 30 Straight Flush 100 Royal Straight 55 Royal Straight Flush 200

SnsPoKerComplex.lzhをダウンロード

一太郎マクロ･･･マス目に単語をランダムに並べる(3)

単語をマス目の中に書き込んでいくために、まずマス目を表す変数を用意する。それが下だ。

declare variable $MyCell(1 To 12, 1 To 12)

「12×12のマスにランダムにアルファベットを表示する・・・」のときは直接、一太郎ファイル上のマス目に書き込んだのだが、今回はメモリ上にマス目$MyCellを作ってそこに書き込むことにする。「12×12のマスにランダムにアルファベットを表示する・・・」のときはランダムにアルファベットを書き込むだけだったが、今回はそれだけでは済まない。いろいろ、チェックしなければならないことがあるのだ。一太郎上のマス目に書き込んだり、消去したりを繰り返すのは時間がかかって効率が悪い。場合によっては書き込んだり消したりを見えるようにすると、いかにもコンピュータが単語の配置を考えているようで面白いので、メモリ上で操作しないでその作業をユーザに見せることもするのだが、どうもくまぷーの許容範囲を超えるほど一太郎マクロは遅いようだ。 　それはきっと変数が基本的にはグローバルとローカルの2種類しかない、プログラマはプログラム作成時に変数の型を全く考える必要がない、という一太郎マクロの仕様によるものだろう。他の言語ではプログラマが負担している部分をマクロ言語が負担しているのだから遅いのも仕方がないのかもしれない。

さてそれでは実際にコードを考えてみよう。単語をマス目の中に書き込んでいくために、まず乱数で始点を決める。これは下のように座標を決めてやればよいだろう。 Randomize(ThisTime()) %X = Int(Rand() * 12) + 1 %Y = Int(Rand() * 12) + 1 しかし、これだけだけでは十分ではない。単語はマス目からはみ出さないように配置しなければならない。単語配置時にはまず、その判定をしなければならない。 さらにもう一つ面倒なことがある。何も考えずに配置してしまうと後に配置する単語が、その前に配置されていた単語を上書きしてしまうということだ。例えばkumapoohという単語がすでに配置されていて、その後にbebechanという単語を書き込むとする。bebechanがkumapoohに重なるとkumapoohの一部、またはぜんぶbebechanという単語が上書きしてしまう。こういう事態をさけて単語を配置しなければならない。 まずははみ出しの判定から。はみ出しの判定は８通りあるのだが、ほとんど同じになる。下は単語を左下から右上に配置するコードだ。 %TopWall = 1 %BottomWall = 12 %LeftWall = 1 %RightWall = 12 If %Y - %Length + 1 >= %TopWall Then　　!!%Lengthは単語の長さ 　　　　　If %X + %Length - 1 <= %RightWall Then 　　　　　　　　　　　!!ここで重なりを判定して、 　　　　　　　　　　　!!単語を左下から右上に配置する処理 　　　　　End If End If 次回は重なりを判定して単語を書き込む処理を考えることにする。

一太郎マクロ･･･マス目に単語をランダムに並べる(2)

前回、１２×１２のマスに12文字の単語をランダムに並べる場合、

水平・垂直方向には４８通りの並べ方があるのに対し、斜め方向には

たったの4通りしか並べ方がないということを指摘した。もちろん、それでも

構わないというのならば、前回の方針を変える必要はない。しかし、ここでは

もう少し、斜め方向に単語が並ぶ可能性を増やすために少しばかり

コードを弄ってみることにした。それが下記のコードである。

Randomize(ThisTime())
%Dir = Int(Rand() * 12)+1　!!8方向

Select Case %Dir
　　　　　Case 1
　　　　　　　　　　!!下から上方向に単語を配置する処理を記述
　　　　　Case 2 To 3
　　　　　　　　　　!!下から上方向に単語を配置する処理を記述
　　　　　Case 4
　　　　　　　　　　!!下から上方向に単語を配置する処理を記述
　　　　　Case 5 To 6
　　　　　　　　　　!!下から上方向に単語を配置する処理を記述
　　　　　Case 7 !!
　　　　　　　　　　!!下から上方向に単語を配置する処理を記述
　　　　　Case 8 To 9
　　　　　　　　　　!!下から上方向に単語を配置する処理を記述
　　　　　Case 10
　　　　　　　　　　!!下から上方向に単語を配置する処理を記述
　　　　　Case 11 To 12
　　　　　　　　　　!!下から上方向に単語を配置する処理を記述
End Select

　さて次回は実際に単語を配置する記述です。

この辺りはちょっと面倒かもしれませんが、けっこう面白いところだと思います。

(●`ε´●)：適当なところを単語配置の始点にすると単語が

　　　　　　　マス目からはみ出しちゃうし・・・

【´･ω･`】：面倒なのはそれだけじゃないよ・・・でも、どうやってやれば良いかを

　　　　　　考えるのが楽しいんだよね。