module1.bas

小型RPG游戏设计

Attribute VB_Name = "Module1"
Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Public Midi As String
Public CmdStr As String
Public ReturnVal As String

Public Char_X As Single
Public Char_Y As Single
Public Char_Face As Single
Public Draw_Position As Single
Public Map(50) As String
Public Newline As String
Public Answers(30) As String
Public Y As Single
Public X As Single
Public look_at As String
Public Found_Scroll As Boolean