俺が奮闘しながら初めて0からゲームを製作するスレ
2018/04/22(日) 00:16:43.44ID:h/GNLZ5M
とりあえずお前ら生中かんぱーい!
2018/04/22(日) 00:19:24.11ID:h/GNLZ5M
まぁ、ソフトとかもよう分からんしプログラミングとかもよう分からんからエクセルで生暖かく作っていくよ…酒でも飲みながらね
2018/04/22(日) 00:21:11.55ID:h/GNLZ5M
内容はローグライクに限る!
2018/04/22(日) 00:22:27.19ID:h/GNLZ5M
今日はマップとキャラの当たり判定を作って逝く
2018/04/22(日) 01:47:20.53ID:h/GNLZ5M
Declare Function GetAsyncKeyState Lib "User32.dll" (ByVal vKey As Long) As Long
If GetAsyncKeyState(37) <> 0 Then
MsgBox "←"
End If.........
ダメだ今日はねもい!寝る!仕様は固まった。
キーの割当から明日作ってく
If GetAsyncKeyState(37) <> 0 Then
MsgBox "←"
End If.........
ダメだ今日はねもい!寝る!仕様は固まった。
キーの割当から明日作ってく
2018/04/22(日) 22:16:32.53ID:ixXXVG5k
奮闘終了
また何年も残るクソスレが出来上がったか
また何年も残るクソスレが出来上がったか
2018/04/23(月) 00:05:49.99ID:pLMsD9VJ
ごめんの!仕事と家庭の用事で作れんかったわ
また明日から少しずつ作ってく。
今日はテトリスをVBAで作った人が居てその人のソースコピーしてキー操作まで作った
また明日から少しずつ作ってく。
今日はテトリスをVBAで作った人が居てその人のソースコピーしてキー操作まで作った
2018/04/23(月) 00:20:55.84ID:pLMsD9VJ
Option Explicit
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Declare Function GetAsyncKeyState Lib "User32.dll" (ByVal vKey As Long) As Long
Public Const VK_SPACE = &H20 '[Space]
Public Const VK_A = &H41 '[A]
Public Const VK_S = &H53 '[S]
Public Const VK_LEFT = &H25 '[←]
Public Const VK_UP = &H26 '[↑]
Public Const VK_RIGHT = &H27 '[→]
Public Const VK_DOWN = &H28 '[↓]
Private m_MoveKeyLog As lBlockMove
Private m_SpinKeyLog As lBlockMove
Private m_MoveKeyCount As Long
Private m_SpinKeyCount As Long
Private nDebugCount As Long
Public Function getRnd(ByVal nMin As Long, ByVal nMax As Long) As Long
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Declare Function GetAsyncKeyState Lib "User32.dll" (ByVal vKey As Long) As Long
Public Const VK_SPACE = &H20 '[Space]
Public Const VK_A = &H41 '[A]
Public Const VK_S = &H53 '[S]
Public Const VK_LEFT = &H25 '[←]
Public Const VK_UP = &H26 '[↑]
Public Const VK_RIGHT = &H27 '[→]
Public Const VK_DOWN = &H28 '[↓]
Private m_MoveKeyLog As lBlockMove
Private m_SpinKeyLog As lBlockMove
Private m_MoveKeyCount As Long
Private m_SpinKeyCount As Long
Private nDebugCount As Long
Public Function getRnd(ByVal nMin As Long, ByVal nMax As Long) As Long
2018/04/23(月) 00:21:20.14ID:pLMsD9VJ
Public Function getRnd(ByVal nMin As Long, ByVal nMax As Long) As Long
Randomize
getRnd = Int((nMax - nMin + 1) * Rnd + nMin)
End Function
Randomize
getRnd = Int((nMax - nMin + 1) * Rnd + nMin)
End Function
2018/04/23(月) 00:22:50.00ID:pLMsD9VJ
とかいろいろ…どっかUpろだなかったっけ?その辺初心者なんでご教授お願いします。
2018/04/23(月) 05:37:55.94ID:bGa2Gm35
ほかのすれ読んでりやそれくらいわかりそうなもんだが
ほんとこの板ってggらない、読まないクソが多いな
ttp://fast-uploader.com/
ほんとこの板ってggらない、読まないクソが多いな
ttp://fast-uploader.com/
2018/04/23(月) 06:47:13.22ID:pLMsD9VJ
探してもなかったんじゃい!
あーうぷロダってそれじゃない。それなら知ってる!
ソースだけ貼ってurlだけで見れるやつ
てか出来てから貼りたいだけだから、間の近況報告要らないなくね?と。
このスレが流行って質問でも出てきたりすれば別だが。
あーうぷロダってそれじゃない。それなら知ってる!
ソースだけ貼ってurlだけで見れるやつ
てか出来てから貼りたいだけだから、間の近況報告要らないなくね?と。
このスレが流行って質問でも出てきたりすれば別だが。
2018/04/23(月) 06:58:06.76ID:bGa2Gm35
ていうか写経のソースなんか誰もみないし価値なし写しみるなら元を見るだろ普通は
自分なりの工夫とか機能追加したのなら価値はあるが他人のコード
丸パクリしたのを公開するなんてどっかの国の人みたいだぞ
githubみたいのか?
自分なりの工夫とか機能追加したのなら価値はあるが他人のコード
丸パクリしたのを公開するなんてどっかの国の人みたいだぞ
githubみたいのか?
2018/04/23(月) 07:37:08.33ID:NVnCFnT8
連休終わったら消えるパターンだなこれ
2018/04/23(月) 07:50:47.10ID:dU/k4p/8
2018/04/23(月) 07:52:46.09ID:dU/k4p/8
2018/04/23(月) 22:24:15.89ID:NMAuWoWJ
エクセルでゲームなんかつくって何が面白いんだよ
バカじゃないの?
バカじゃないの?
2018/04/23(月) 22:31:20.53ID:bGa2Gm35
バカだからやってんだろ察しろよ
2018/04/23(月) 22:46:45.92ID:YdFBUrjJ
>>17
じゃあVB.netとかでやればよかったのかい?
じゃあVB.netとかでやればよかったのかい?
2018/04/23(月) 22:47:46.02ID:YdFBUrjJ
>>18
まぁ。まだ1本もゲーム作った経験無いからな…処女作ということで…
まぁ。まだ1本もゲーム作った経験無いからな…処女作ということで…
レスを投稿する
