form1.frm

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

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   4665
   ClientLeft      =   495
   ClientTop       =   1920
   ClientWidth     =   8700
   LinkTopic       =   "Form1"
   ScaleHeight     =   311
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   580
   Begin VB.CommandButton Command3 
      Caption         =   "CreateHead"
      Height          =   495
      Left            =   2400
      TabIndex        =   8
      Top             =   240
      Width           =   1215
   End
   Begin VB.CommandButton Command2 
      Caption         =   "ActiveObj"
      Height          =   495
      Left            =   1320
      TabIndex        =   7
      Top             =   3600
      Width           =   1215
   End
   Begin VB.PictureBox Picture2 
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      BorderStyle     =   0  'None
      ForeColor       =   &H80000008&
      Height          =   480
      Left            =   1200
      Picture         =   "Form1.frx":0000
      ScaleHeight     =   32
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   203
      TabIndex        =   6
      Top             =   3000
      Width           =   3045
   End
   Begin VB.PictureBox PicPlane 
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      BorderStyle     =   0  'None
      ForeColor       =   &H80000008&
      Height          =   495
      Left            =   7440
      ScaleHeight     =   33
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   57
      TabIndex        =   5
      Top             =   600
      Width           =   855
   End
   Begin VB.CommandButton CmdWriteInBatplane 
      Caption         =   "WriteInBatplane"
      Height          =   495
      Left            =   5160
      TabIndex        =   4
      Top             =   2280
      Width           =   2175
   End
   Begin VB.PictureBox Pic2 
      AutoRedraw      =   -1  'True
      AutoSize        =   -1  'True
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   0  'None
      Height          =   90
      Left            =   6840
      Picture         =   "Form1.frx":4CC2
      ScaleHeight     =   6
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   6
      TabIndex        =   3
      Top             =   600
      Width           =   90
   End
   Begin VB.CommandButton Cmd2 
      Caption         =   "WriteINBullet"
      Height          =   495
      Left            =   3480
      TabIndex        =   2
      Top             =   2280
      Width           =   1575
   End
   Begin VB.PictureBox Picture1 
      Appearance      =   0  'Flat
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      BorderStyle     =   0  'None
      ForeColor       =   &H80000008&
      Height          =   1050
      Left            =   360
      Picture         =   "Form1.frx":4D7C
      ScaleHeight     =   70
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   56
      TabIndex        =   1
      Top             =   240
      Width           =   840
   End
   Begin VB.CommandButton Command1 
      Caption         =   "WriteStaticObject In"
      Height          =   495
      Left            =   120
      TabIndex        =   0
      Top             =   2160
      Width           =   2055
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public AllObject As Integer
Dim HeadStr As String * 20
Dim LenHead As Integer
Dim M() As Long
Private Sub Cmd2_Click()
Dim Bul As SaveBullet
HeadStr = "For Object of SkyWar"
Dim SeatX As Integer
LenHead = Len(HeadStr) + Len(AllObject)
Bul.Width = Pic2.Width
Bul.Height = Pic2.Height
Bul.MaskColor = &HFF00FF
Bul.SaveName = 1
Bul.Power = 10
AllObject = Bul.SaveName
Open "D:\GameProgram\MapEdit\Bullet\All.con" For Binary As #1
    Put #1, 1, HeadStr
    Put #1, Len(HeadStr) + 1, AllObject
    Put #1, LenHead + 1 + (Bul.SaveName - 1) * Len(Bul), Bul
Close #1
'SavePicture Pic2.Picture, "D:\GameProgram\MapEdit\bullet\" & Bul.SaveName & ".Ebj"
MsgBox "ok"
End Sub

Private Sub Command1_Click()
'Dim Eb As SaveObject
Dim Eb As SaveStaticEObject

Dim Debu As SaveObject
Dim SeatX As Integer
HeadStr = "For Object of SkyWar"
LenHead = Len(HeadStr) + Len(AllObject)
'InitSaveObjectX Eb


'Eb.ESize.x = 100 '1064 / 14
'Eb.AllFPS = 14
'Eb.EName = 4
'Eb.MaskColor = &HFF0000
Eb.SaveName = 1
Eb.Width = Picture1.Width
Eb.Height = Picture1.Height
Eb.MaskColor = &HFF00FF
Eb.Life = 100
Eb.IsRotate = True
Eb.IsFlick = True
Eb.FireSet(1).FireType = 0
Eb.FireSet(1).DelayFps = 20
Eb.FireSet(1).FireSeat.X = 16
Eb.FireSet(1).FireSeat.Y = 47
AllObject = Eb.SaveName


Open "D:\GameProgram\MapEdit\StaticEObj\All.con" For Binary As #1
    'Put #1, 1, HeadStr
    'SeatX = Seek(1)
    
    'HeadStr = ""
    'Get #1, 1, HeadStr
    'If HeadStr = "For Object of SkyWar" Then MsgBox "OK"
    
    'Put #1, SeatX, AllObject
    'SeatX = Seek(1)
    'MsgBox SeatX
    SeatX = (Len(HeadStr) + 1)
    Put #1, SeatX, AllObject
    
    SeatX = (LenHead + 1) + (Eb.SaveName - 1) * Len(Eb)
    Put #1, SeatX, Eb
    Get #1, SeatX, Eb
    MsgBox Eb.SaveName & "     " & Eb.MaskColor & "  " & "all:" & AllObject
    
Close #1
'SavePicture Picture1.Picture, "D:\GameProgram\MapEdit\StaticEObj\" & Eb.SaveName & ".Ebj"
End Sub

Private Sub Command2_Click()
Dim Eb As SaveObject

Dim Debu As SaveObject
Dim SeatX As Integer
HeadStr = "For Object of SkyWar"
LenHead = Len(HeadStr) + Len(AllObject)
'InitSaveObjectX Eb


Eb.ESize.X = 52
Eb.AllFps = 3
Eb.EName = 6
Eb.MaskColor = &HFF00FF
AllObject = Eb.EName


Open "D:\GameProgram\MapEdit\EObject\All.con" For Binary As #1
    'Put #1, 1, HeadStr
    'SeatX = Seek(1)
    
    'HeadStr = ""
    'Get #1, 1, HeadStr
    'If HeadStr = "For Object of SkyWar" Then MsgBox "OK"
    
    'Put #1, SeatX, AllObject
    'SeatX = Seek(1)
    'MsgBox SeatX
    SeatX = (Len(HeadStr) + 1)
    Put #1, SeatX, AllObject
    
    SeatX = (LenHead + 1) + (Eb.EName - 1) * Len(Eb)
    Put #1, SeatX, Eb
    Get #1, SeatX, Eb
    MsgBox Eb.EName & "     " & Eb.MaskColor & "  " & "all:" & AllObject
    
Close #1
'SavePicture Picture2.Picture, "D:\GameProgram\MapEdit\EObject\" & Eb.EName & ".Ebj"

End Sub

Private Sub Command3_Click()
    HeadStr = "For Object of SkyWar"
    AllObject = 0
    Open "D:\GameProgram\MapEdit\All.Con" For Binary As #1
        Put #1, 1, HeadStr
        Put #1, Len(HeadStr) + 1, AllObject
    Close #1
End Sub