modstart.bas

一款飞机射击游戏的源代码

Attribute VB_Name = "ModStart"
Option Explicit
Type OptionData
    ReservedHead(1 To 4) As Long
    KeyP(1 To 2, 0 To 6) As Byte
    IsMouse(1 To 2) As Byte
    ImgEffect As Byte
    IsShowToolBar As Byte
    GSound As Byte
    GMusic As Byte
    Reser1 As Byte
    Reser2 As Byte
    Reserved(1 To 3) As Long
End Type
Public CurOption As OptionData
Public RunEffect As Byte
Public BufEffect As Byte

Sub Main()
Dim WinL As Long
 WinL = FindWindow(vbNullString, "天空战记_gy")
If App.PrevInstance Or WinL Then
    Call ShowWindow(WinL, SW_MAXIMIZE)
    Exit Sub
End If
ChDir App.Path
FrmMain.Visible = True
End Sub

Public Sub DelayTime(ByVal DelayT As Long)
Dim DT As Long
    DT = timeGetTime()
    While IsPlaying And Abs(timeGetTime - DT) < DelayT
        DoEvents
    Wend
End Sub
Public Sub LoadOptions()
On Error Resume Next
    Open App.Path & "\ListPro\Option.ini" For Binary As #1
        Get #1, 1, CurOption
    Close #1
CurOption.ImgEffect = Val(GetSetting(App.Title, "Setting", "GameImgEffect", "2"))
BufEffect = Val(GetSetting(App.Title, "Setting", "GameBufEffect", "1"))
RunEffect = CurOption.ImgEffect

End Sub