遠い目

爆　発　し　た ！　！　！

ということで、１２月に一個アレなゲームを作って身内とかしらん人にプレイしてもらったら
そこそこの評判だったけど基本アレだったので
そのまま横になってふとんに入り込んでLOL（League of legends）やってたらこんな時期になりました。

俺は正直に生きることにしました！！１１

360度STGは大海原（主にツール製作中）
うさえほは五里霧中と
規模がでかい物つくろうとするとやっぱり俺じゃ爆発するので。

今後は目標月１ペースでミニゲームぽちぽち作って、面白いなら公開してければなと思います。
とりあえず今週は企画的なものを起こしたのでそれをもとに作っていきます。


今回の目標は３Dを入れること！
といってもDXライブラリあるからそこまで難しくないと思うけど…
あとはBOX2Dとの絡みが厄介そうだけどまぁ、XとYだけ見てたら大丈夫かXD


ちなみにアレだったゲームの画面はこちら。

アレだ…

内容は
鶏が産みまくるひよこをひたすら上の●に入れ続けるゲームでした。

●の中に入れて数秒たてばひよこは浄化される。
画面外にひよこがぶっ飛んだら死ぬ、
死んだらひよこの頭が飛んでいく。血しぶきがすごいことになる。

浄化した数/2　の死亡ひよこ数でゲームオーバー

浄化されたり死んだりすると難易度が上がっていって
最終的にはプレイヤーが処理できない量のひよこが沸いて
半強制的にゲームオーバーになるが、画面がひどいことになってて
そこはみんな面白いらしい、くそ

まぁ基本的にプレイ感は悪かった。
一部プレイヤーに大しての配慮も欠けているため、
LUA導入の実験作としてはそこそこ上手く行ったとは思うが、
ゲームとしてはまぁ、アレだった。

げそ・・・

ゲソプラグインいれてたら
前回の記事がゲソまみれだったでゲソ…

完全に侵略されてたでゲソね

ちなみにゲソプラグインはこちらでゲソ！

こちら

MDIで使いたい

やりたい事

VB.netのMDIとやらで、
１Form内に、１つだけDXライブラリを利用したPreviewウィンドウを作りたいでゲソ。

で、実際ぶちぶち作ってるんだけど、色々と問題が発生しているでゲソ。

１．DxLib_Init()より前にMdiParentにFormを格納すると、DxLib_Initで落ちる
２．DxLib_Init()より後にMdiParentにFormを格納すると、動くが”描画されない”
３．MdiParentになにもしない場合（子にしなければ）正常に動く

PreviewForm = New Preview()
PreviewForm.StartPosition = Windows.Forms.FormStartPosition.CenterParent
'============================================

'DXライブラリ関係
'WindowModeに
DX.ChangeWindowMode(DX.TRUE)
DX.SetWindowText("Preview")
DX.SetUseDirectInputFlag(DX.FALSE)
DX.SetUserWindow(PreviewForm.Handle)

'PreviewForm.MdiParent = form　←ここでやると DX.DxLib_Init()で”プログラムが落ちる”

'起動失敗でスルー
If -1 = DX.DxLib_Init() Then
MessageBox.Show("DxLib.DLL　か　DxLibDotNet.dll が作業フォルダに存在しません", "error", MessageBoxButtons.OK)
Return
End If

'PreviewForm.MdiParent = form　←ここでやると実行時Formはあるが”描画ができない”

DX.SetWindowSizeChangeEnableFlag(DX.TRUE)
DX.SetWindowSizeExtendRate(1.0)
DX.SetAlwaysRunFlag(DX.TRUE)
DX.SetMouseDispFlag(DX.TRUE)
DX.SetMultiThreadFlag(DX.TRUE)

'============================================

参った、何か手段はないものじゃなイカ……

お疲れ様でした！

冬コミ落選です！
俺たちの来年にご期待ください！

ということで冬コミの参加は無しですね、
とりあえず夏コミに向けて（ｗ）せこせこ良いもの作ります。
年の頭あたりに、現在作成中のものをひとまず公開できればいいかなと
思いますのでよろしくお願いします。

運命の明日

冬コミ合否は明日です
うっほ！うっほーう！っほお１１！１１

売かっても受かってなくても、
来年の頭くらいには、変なものをなんとか提供する予定ですけど
受かって欲しい、というか、受かってくれ！

結論

勘　違　い　で　す
日本語はLuaInterfaceでも使えました

先日出したあのソースは確かにCallで失敗していました
結局それは治りませんでしたがそんなことは良かったのです

LuaInterfaceで動いたからイイノデス！


LuaInterfaceで日本語を使う方法は簡単な事だった。

'日本語を書き込むところの処理
            If (System.IO.Directory.Exists(System.IO.Path.GetDirectoryName(_targetFullPass)) = True) Then
                System.IO.File.WriteAllText(_targetFullPass, Writestr, System.Text.Encoding.GetEncoding("shift_jis"))
            Else
                Dim GrfPath As String = New System.IO.FileInfo(URLTextBox.Text).Directory.Name
                System.IO.Directory.CreateDirectory(_exeurl + "\scripts\GraphicScripts\" + GrfPath + "\")
                System.IO.File.WriteAllText(_targetFullPass, Writestr, System.Text.Encoding.GetEncoding("shift_jis"))
            End If

まぁ説明もなしなんでどうかと思うんですが
ようは.GetEncoding("shift_jis")ですよ.GetEncoding("shift_jis")

前まで、ここの
.GetEncoding("shift_jis")
が
.GetEncoding("EUC_jp")
だったんですよねー

ﾆﾎﾁﾆﾋﾎﾘみたいな文字化けしてたんで
おかしいなーとか心の浅いところで思ってたんだけど
LuaInterfaceのせいにしてたよ俺

最低だ……

あ、ちなみに前にも書いたけど
LuaInterfaceでの記述はこんな感じね、
最新版じゃなくてちょっと古いやつを使っているよ

'存在している場合
            Dim L As New LuaInterface.Lua
            'LUA読み取り
            L.DoFile(full)
            'LUAのGraphicSettingを格納
            Dim func As LuaInterface.LuaFunction = L.GetFunction("GraphicSetting")
            '関数呼び出し
            Dim a = func.Call()
            '関数の戻り値を格納
            HelpTextBox.Text = a(0)
            TypeComBox.SelectedIndex = a(1)
            AllNumNmBox.Text = a(2)
            XNumNmBox.Text = a(3)
            YNumNmBox.Text = a(4)
            XSizeNmBox.Text = a(5)
            YSizeNmBox.Text = a(6)

ぐぬぬ(メモ）

LuaInterfaceだと日本語読めないよといわれたから
仕方ないからTaoを使うようにした

そしたらどうもCallがうまいこといかない

            '存在している場合
            Dim L As New System.IntPtr

            L = Tao.Lua.Lua.luaL_newstate()
            Tao.Lua.Lua.lua_open()

            'LUA読み取り
            Tao.Lua.Lua.luaL_openlibs(L)

            If Tao.Lua.Lua.luaL_loadfile(L, full) Then
                Dim str = Tao.Lua.Lua.lua_tostring(L, 1)
                MessageBox.Show(str, "err")
            End If

            Dim top = Tao.Lua.Lua.lua_gettop(L)

            '関数名Push
            Tao.Lua.Lua.lua_getglobal(L, "GraphicSetting")

            '関数呼び出し（ここでNULLがかえる）
            If Tao.Lua.Lua.lua_pcall(L, 0, 7, 0) Then
                Dim str = Tao.Lua.Lua.lua_tostring(L, 1)
                MessageBox.Show(str, "err2")
            End If
            '関数の戻り値を格納

            Dim a = Tao.Lua.Lua.lua_tostring(L, 1)
            Dim b = Tao.Lua.Lua.lua_tointeger(L, 2)
            Dim c = Tao.Lua.Lua.lua_tointeger(L, 3)
            Dim d = Tao.Lua.Lua.lua_tointeger(L, 4)
            Dim f = Tao.Lua.Lua.lua_tointeger(L, 5)
            Dim g = Tao.Lua.Lua.lua_tointeger(L, 6)
            Dim h = Tao.Lua.Lua.lua_tointeger(L, 7)

            'HelpTextBox.Text = Tao.Lua.Lua.lua_tostring(L, 0)
            'TypeComBox.SelectedIndex = Tao.Lua.Lua.lua_tointeger(L, 1)
            'AllNumNmBox.Value = Tao.Lua.Lua.lua_tointeger(L, 2)
            'XNumNmBox.Value = Tao.Lua.Lua.lua_tointeger(L, 3)
            'YNumNmBox.Value = Tao.Lua.Lua.lua_tointeger(L, 4)
            'XSizeNmBox.Value = Tao.Lua.Lua.lua_tointeger(L, 5)
            'YSizeNmBox.Value = Tao.Lua.Lua.lua_tointeger(L, 6)

            Tao.Lua.Lua.lua_settop(L, top)