📄 frmfighter.frm
字号:
Size = 11.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 270
Left = 120
TabIndex = 97
Top = 360
Width = 945
End
Begin VB.Label lblPlayerPoints
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "0"
BeginProperty Font
Name = "Arial"
Size = 11.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 270
Left = 1350
TabIndex = 96
Top = 360
Width = 135
End
Begin VB.Image m
Height = 1470
Left = 7560
Picture = "frmFighter.frx":FE345
Top = 5280
Width = 1815
End
Begin VB.Image f
Height = 1470
Left = 240
Picture = "frmFighter.frx":FEB84
Top = 5280
Width = 1815
End
Begin VB.Label GameStatus
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Game Status:"
ForeColor = &H0000FFFF&
Height = 255
Left = 120
TabIndex = 45
Top = 7200
Width = 9375
End
Begin VB.Label lblCompMoney
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "100"
BeginProperty Font
Name = "Arial"
Size = 11.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 270
Left = 7950
TabIndex = 23
Top = 840
Width = 375
End
Begin VB.Label lblPlayerMoney
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "100"
BeginProperty Font
Name = "Arial"
Size = 11.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 270
Left = 3240
TabIndex = 22
Top = 840
Width = 375
End
Begin VB.Label lblCompCaption
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Current Earnings: $"
BeginProperty Font
Name = "Arial"
Size = 11.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 270
Left = 5760
TabIndex = 21
Top = 840
Width = 2070
End
Begin VB.Label lblPlayerCaption
BackStyle = 0 'Transparent
Caption = "Current Earnings: $"
BeginProperty Font
Name = "Arial"
Size = 11.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 270
Left = 1020
TabIndex = 20
Top = 840
Width = 2145
End
Begin VB.Shape Shape3
BackColor = &H00000000&
BorderColor = &H00004080&
BorderWidth = 3
DrawMode = 15 'Merge Pen Not
FillColor = &H00004080&
FillStyle = 0 'Solid
Height = 135
Left = 120
Top = 6800
Width = 9375
End
Begin VB.Label lblFighter
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "The Spider on the Stick"
BeginProperty Font
Name = "MS Sans Serif"
Size = 24
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 555
Left = 2040
TabIndex = 19
Top = 120
Width = 5340
End
Begin VB.Label lblWinner
Alignment = 2 'Center
BackStyle = 0 'Transparent
BeginProperty Font
Name = "Arial"
Size = 24
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 1335
Left = 2880
TabIndex = 4
Top = 3600
Width = 4095
End
Begin VB.Shape Shape1
BackColor = &H00000000&
BorderColor = &H00FF0000&
BorderWidth = 3
Height = 1215
Left = 120
Shape = 4 'Rounded Rectangle
Top = 720
Width = 9375
End
Begin VB.Label lblCompName
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Computer"
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 255
Left = 6120
TabIndex = 1
Top = 1200
Width = 2055
End
Begin VB.Label lblPlayerName
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Player"
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 255
Left = 1200
TabIndex = 0
Top = 1200
Width = 2055
End
Begin VB.Shape Shape2
BackColor = &H00000000&
BorderColor = &H00FF0000&
BorderWidth = 3
Height = 5055
Left = 120
Top = 2040
Width = 9375
End
Begin VB.Menu mnuGame
Caption = "&Game"
Begin VB.Menu mnuNewGameItem
Caption = "&New Game"
Begin VB.Menu mnuSinglePlayerItem
Caption = "&Single Player vs Computer"
Checked = -1 'True
Shortcut = ^S
End
Begin VB.Menu mnuTwoPlayerItem
Caption = "Multiplayer (&Keyboard)"
Shortcut = ^K
End
Begin VB.Menu mnuTwoPlayer2Item
Caption = "Multiplayer (&LAN/Internet)"
Shortcut = ^L
End
End
Begin VB.Menu mnuFightItem
Caption = "&Fight!"
Visible = 0 'False
End
Begin VB.Menu mnuVarietyItem
Caption = "Variety of Different Spider Selection"
Begin VB.Menu mnuVarietyItemPlayer1
Caption = "Variety of Spiders Selection for Player 1"
Begin VB.Menu mnuSpiderNormalItem
Caption = "&Normal Spider - Default"
Checked = -1 'True
End
Begin VB.Menu mnuSpiderDomesticItem
Caption = "&Domestic Spider -Worth $250.00"
End
Begin VB.Menu mnuSpiderCaveItem
Caption = "&Cave Spider - Worth $500.00"
End
Begin VB.Menu mnuSpiderJungleItem
Caption = "&Jungle Spider - Worth $750.00"
End
End
Begin VB.Menu mnuVarietyItemPlayer2
Caption = "Variety of Spiders Selection for Player 2"
Begin VB.Menu mnuSpiderNormalItem2
Caption = "&Normal Spider - Default"
Checked = -1 'True
End
Begin VB.Menu mnuSpiderDomesticItem2
Caption = "&Domestic Spider -Worth $250.00"
End
Begin VB.Menu mnuSpiderCaveItem2
Caption = "&Cave Spider - Worth $500.00"
End
Begin VB.Menu mnuSpiderJungleItem2
Caption = "&Jungle Spider - Worth $750.00"
End
End
End
Begin VB.Menu mnuDifficultyItem
Caption = "&Type of Stages"
Begin VB.Menu mnuNormalItem
Caption = "&Normal - Default"
Checked = -1 'True
Shortcut = ^N
End
Begin VB.Menu mnuEasyItem
Caption = "&Easy - House"
Shortcut = ^E
End
Begin VB.Menu mnuMediumItem
Caption = "&Medium - Basketball Court"
Shortcut = ^M
End
Begin VB.Menu mnuHardItem
Caption = "&Hard - Playground"
Shortcut = ^H
End
End
Begin VB.Menu separator2
Caption = "-"
End
Begin VB.Menu mnuControlsItem
Caption = "&Control Setting"
Shortcut = ^C
End
Begin VB.Menu mnuHowtoPlayItem
Caption = "H&ow to Play"
Shortcut = ^O
End
Begin VB.Menu mnuSpiderInformation
Caption = "Spider &Information"
Shortcut = ^I
End
Begin VB.Menu mnuCreditsItem
Caption = "C&redits"
Shortcut = ^R
End
Begin VB.Menu separator
Caption = "-"
End
Begin VB.Menu mnuExitItem
Caption = "E&xit"
Shortcut = ^X
End
End
End
Attribute VB_Name = "frmFighter"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'=============================================================================================================================
'
' Developed by Walter A. Narvasa
' jawoltze@edsamail.com.ph
'
' Walter A. Narvasa of
' WANCOM SYSTEMS
'
' READ THIS BEFORE USING THE CODE:
'
' You can study and view the source code for creating your
' own apps, but do not reproduce/release The Spider on the Stick fully
' or partially for any commercial and/or personal purposes. All
' rights of this product is related to it's author. Any violation
' of above conditions will be treated seriously and is punishable.
'
' I do not have full time to add complete explanation, read the help
' file (click Help->Contents) in The Spider on the Stick. Contact me for
' additional help/suggestions
'
'
' VISIT MY WEBSITE : http://jawoltze.gq.nu/
'
'=============================================================================================================================
Option Explicit
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -