自己紹介

低層をがむしゃらに走る自称プログラマ ちょっとWebとかに手を出してる

ブログ アーカイブ

2011年8月30日火曜日

ゴメンゴ

諦めずがんばります

2011年2月7日月曜日

遠い目

爆 発 し た ! ! !

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

俺は正直に生きることにしました!!11

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

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


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


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

アレだ…

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

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

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

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

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

2010年11月24日水曜日

げそ・・・

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

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

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

こちら

2010年11月20日土曜日

MDIで使いたい

やりたい事

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

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

1.DxLib_Init()より前にMdiParentにFormを格納すると、DxLib_Initで落ちる
2.DxLib_Init()より後にMdiParentにFormを格納すると、動くが”描画されない”
3.MdiParentになにもしない場合(子にしなければ)正常に動く

  1. PreviewForm = New Preview()  
  2. PreviewForm.StartPosition = Windows.Forms.FormStartPosition.CenterParent  
  3. '============================================  
  4.   
  5. 'DXライブラリ関係  
  6. 'WindowModeに  
  7. DX.ChangeWindowMode(DX.TRUE)  
  8. DX.SetWindowText("Preview")  
  9. DX.SetUseDirectInputFlag(DX.FALSE)  
  10. DX.SetUserWindow(PreviewForm.Handle)  
  11.   
  12. 'PreviewForm.MdiParent = form ←ここでやると DX.DxLib_Init()で”プログラムが落ちる”  
  13.   
  14. '起動失敗でスルー  
  15. If -1 = DX.DxLib_Init() Then  
  16. MessageBox.Show("DxLib.DLL か DxLibDotNet.dll が作業フォルダに存在しません""error", MessageBoxButtons.OK)  
  17. Return  
  18. End If  
  19.   
  20. 'PreviewForm.MdiParent = form ←ここでやると実行時Formはあるが”描画ができない”  
  21.   
  22. DX.SetWindowSizeChangeEnableFlag(DX.TRUE)  
  23. DX.SetWindowSizeExtendRate(1.0)  
  24. DX.SetAlwaysRunFlag(DX.TRUE)  
  25. DX.SetMouseDispFlag(DX.TRUE)  
  26. DX.SetMultiThreadFlag(DX.TRUE)  
  27.   
  28. '============================================  

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

2010年11月1日月曜日

お疲れ様でした!

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

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

2010年10月29日金曜日

運命の明日

冬コミ合否は明日です
うっほ!うっほーう!っほお11!11

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

2010年10月20日水曜日

結論

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

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

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


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

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

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

前まで、ここの
.GetEncoding("shift_jis")

.GetEncoding("EUC_jp")
だったんですよねー

ニホチニヒホリみたいな文字化けしてたんで
おかしいなーとか心の浅いところで思ってたんだけど
LuaInterfaceのせいにしてたよ俺

最低だ……

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

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