Excel Maniacs

三四郎マクロでゲーム作成・・・１５パズル

三四郎そのものが消えていくようです。

当然、三四郎マクロも消えていきます。

一太郎2013玄の初期設定では「マクロ」はメニューにありません・・・

 そう言えば、昔、一太郎マクロで１５パズル、作ったよな～

消えゆくSuper Play Lite（Justsystemのマクロ）が不憫でなりません。

 

 

あ、Excelだって「開発」タブは初期状態では隠れているってか！！

**************************************************************************************

 

遊び方：「開始」をクリックする。
 　　　　　ESCを押すとゲーム中止。  
   
白いパネルの隣の数字をパネルをクリックすると   
２つのパネルが入れ替わります。   

上のようになるように数字パネルを並べて下さい。

15PUZZLE(Slide)をダウンロード

 

 

 

 

三四郎マクロでゲーム作成第三弾・・・Speed

名称：スピード

*

*

*

*

*

*

*

ゲームの目的：同じ牌をクリックするとその牌が裏向きになります。

　　　　　　　　　なるべく短時間で全ての牌を裏返してください。

　　　　　　　　　全部裏返すと所要時間が表示されます。

ゲームの開始：「START」をクリックする。

※ゲームを中止するときには「中止」を２回クリックしてください。

ダウンロード：SPEED.lzhをダウンロード

スピードのコード：

Call Init()
MsgBox("ゲームを始めます")
%BlankCell=0
%StartTime = ThisTime()
Do While %BlankCell <108

Set %FirstCell = Range?
Set %SecondCell = Range?
If %FirstCell ="中止"　Or %SecondCell ="中止"Then
  MsgBox("ゲームを中止します。")
  Stop
End If
%X1 = Col(%FirstCell)
%Y1 = Row(%FirstCell)
%X2 = Col(%SecondCell)
%Y2 = Row(%SecondCell)

If Cells(%Y1, %X1)=Cells(%Y2, %X2) Then
  %FirstCell.Clear(1, false, false, false)
  %SecondCell.Clear(1, false, false, false)
  %FirstCell.CellStyle.BackColor = RGB(204, 153, 0)
  %SecondCell.CellStyle.BackColor = RGB(204, 153, 0)
  %BlankCell=%BlankCell+2
End If
Loop

%EndTime = ThisTime()
%ElapsedTime =%EndTime-%StartTime
%MyMsg=Minute(%ElapsedTime) & " 分" & Second(%ElapsedTime) & " 秒かかりました。"
MsgBox(%MyMsg)

Sub Init()

declare variable Pai(108) As String
declare variable Temp As String
declare variable Moji As String
declare variable X as Integer
declare variable Y as Integer
declare variable i as Integer

Pai()={"一索","二索","三索","四索","五索","六索","七索","八索","九索",\\
        "一索","二索","三索","四索","五索","六索","七索","八索","九索", \\
        "一索","二索","三索","四索","五索","六索","七索","八索","九索",\\
        "一索","二索","三索","四索","五索","六索","七索","八索","九索",\\
        "一筒","二筒","三筒","四筒","五筒","六筒","七筒","八筒","九筒",\\
        "一筒","二筒","三筒","四筒","五筒","六筒","七筒","八筒","九筒",\\
        "一筒","二筒","三筒","四筒","五筒","六筒","七筒","八筒","九筒",\\
        "一筒","二筒","三筒","四筒","五筒","六筒","七筒","八筒","九筒",\\
        "一萬","二萬","三萬","四萬","五萬","六萬","七萬","八萬","九萬",\\
        "一萬","二萬","三萬","四萬","五萬","六萬","七萬","八萬","九萬",\\
        "一萬","二萬","三萬","四萬","五萬","六萬","七萬","八萬","九萬",\\
        "一萬","二萬","三萬","四萬","五萬","六萬","七萬","八萬","九萬"}
       

Range("D6:O14").Clear(1, false, false, false)
Range("D6:O14").CellStyle.BackColor = RGB(204, 153, 0)

MsgBox("ゲームを始めます")
  !!シャッフル
  Randomize(ThisTime())
 
  For i = 1 TO 1000
   X = Int(Rand() * 108)+1
   Y = Int(Rand() * 108)+1
   Temp=Pai(x)
   Pai(x) =Pai(y)
   Pai(y)=Temp
  Next
  i=1
  For y = 6 To 14
   For x = 4 To 15
    Cells(y, x) = Pai(i)
    Moji = Right(Pai(i),1)
    select case Moji
     Case "萬"
      Cells(y, x).CellStyle.BackColor = RGB(204, 255, 255)
     Case "筒"
      Cells(y, x).CellStyle.BackColor = RGB(255, 204, 204)
     Case "索"
      Cells(y, x).CellStyle.BackColor = RGB(204, 255, 153)
    End Select
    i = i +1
   Next
  Next
End Sub

三四郎マクロでゲーム作成・・・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をダウンロード