俺が奮闘しながら初めて0からゲームを製作するスレ

[1 名前は開発中のものです。 2018/04/22(日) 00:16:43.44 ID:h/GNLZ5M]

とりあえずお前ら生中かんぱーい！

[2 名前は開発中のものです。 2018/04/22(日) 00:19:24.11 ID:h/GNLZ5M]

まぁ、ソフトとかもよう分からんしプログラミングとかもよう分からんからエクセルで生暖かく作っていくよ…酒でも飲みながらね

[3 名前は開発中のものです。 2018/04/22(日) 00:21:11.55 ID:h/GNLZ5M]

内容はローグライクに限る！

[4 名前は開発中のものです。 2018/04/22(日) 00:22:27.19 ID:h/GNLZ5M]

今日はマップとキャラの当たり判定を作って逝く

[5 名前は開発中のものです。 2018/04/22(日) 01:47:20.53 ID:h/GNLZ5M]

Declare Function GetAsyncKeyState Lib "User32.dll" (ByVal vKey As Long) As Long

If GetAsyncKeyState(37) <> 0 Then
MsgBox "←"
End If.........

ダメだ今日はねもい！寝る！仕様は固まった。
キーの割当から明日作ってく

[6 名前は開発中のものです。 2018/04/22(日) 22:16:32.53 ID:ixXXVG5k]

奮闘終了

また何年も残るクソスレが出来上がったか

[7 名前は開発中のものです。 2018/04/23(月) 00:05:49.99 ID:pLMsD9VJ]

ごめんの！仕事と家庭の用事で作れんかったわ
また明日から少しずつ作ってく。
今日はテトリスをVBAで作った人が居てその人のソースコピーしてキー操作まで作った

[8 名前は開発中のものです。 2018/04/23(月) 00:20:55.84 ID: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

[9 名前は開発中のものです。 2018/04/23(月) 00:21:20.14 ID:pLMsD9VJ]

Public Function getRnd(ByVal nMin As Long, ByVal nMax As Long) As Long

Randomize
getRnd = Int((nMax - nMin + 1) * Rnd + nMin)

End Function