桐で「麻雀牌ゲーム(四川省風)」です

今回のイベントは

http://www.mars.dti.ne.jp/~ven02573/indexc.htm
「黒龍江省 Ver.1.10」　松村幸広さん作成より引用させていただきました
　松村さん、マクロのご紹介ありがとうございました

さて、エクセルマクロのなかで、なかなか桐に展開できない部分もありました
・If kokuruu_v(sx, sy) = 0 Then
  当然配列は無理でしたので
　#対応文字列(&面配列,(&sy-1)*18+&sx)=#U)・・みたいに対応文字列で処理しました

・ If 検索2(i, i2, i3, sx, sy, x2, y2) = True Then
  If分で、手続き結果を反映させるためにはいい方法がみつからず
　そのまま
　手続き実行 検索2(&i,&i2,&i3,&sx,&sy,&x2,&y2)
　if(#文字位置(&一致="一致"))・・みたいな処理で行ってます

上記オリジナルにはなかったのですが、とれる判定をしたとき直線で
つないでみました

数回しかテストしてませんがとりあえず動くようになりましたのでご紹介させて
いただきます


【多遊】