Subversion Repositories aysalia

Compare Revisions

Regard whitespace Rev 1 → Rev 2

/trunk/Zeitalter der Dämonen/Equipment.frm
0,0 → 1,487
VERSION 5.00
Begin VB.Form Equipment
BackColor = &H00400000&
BorderStyle = 1 'Fixed Single
Caption = "Ausrüstung"
ClientHeight = 5850
ClientLeft = 45
ClientTop = 330
ClientWidth = 5520
ControlBox = 0 'False
LinkTopic = "Equipment"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5850
ScaleWidth = 5520
StartUpPosition = 2 'CenterScreen
Begin VB.CommandButton Command2
BackColor = &H00FF8080&
Caption = "Objekt anlegen"
Enabled = 0 'False
Height = 255
Left = 240
Style = 1 'Graphical
TabIndex = 13
Top = 5520
Width = 1575
End
Begin VB.CommandButton Command1
BackColor = &H00FF8080&
Cancel = -1 'True
Caption = "Verlassen"
Default = -1 'True
Height = 255
Left = 3720
Style = 1 'Graphical
TabIndex = 10
Top = 5520
Width = 1575
End
Begin VB.Label Label15
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Rüstungsteile"
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 285
Left = 240
TabIndex = 16
Top = 3120
Width = 5100
End
Begin VB.Label Label14
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Waffen"
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 285
Left = 240
TabIndex = 15
Top = 1320
Width = 5055
End
Begin VB.Label Label13
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Helm"
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 285
Left = 240
TabIndex = 14
Top = 120
Width = 5100
End
Begin VB.Line Line4
BorderColor = &H00FF8080&
X1 = 240
X2 = 5280
Y1 = 4080
Y2 = 4080
End
Begin VB.Line Line3
BorderColor = &H00FF8080&
X1 = 240
X2 = 5280
Y1 = 4680
Y2 = 4680
End
Begin VB.Line Line1
BorderColor = &H00FF8080&
X1 = 240
X2 = 5280
Y1 = 2400
Y2 = 2400
End
Begin VB.Label Label11
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Label1"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 210
Left = 285
TabIndex = 12
Top = 2400
Width = 540
End
Begin VB.Label Label12
BackStyle = 0 'Transparent
Caption = "Label1"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 330
Left = 285
TabIndex = 11
Top = 2640
Width = 4980
End
Begin VB.Label Label10
BackStyle = 0 'Transparent
Caption = "Label1"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 330
Left = 285
TabIndex = 9
Top = 4320
Width = 4980
End
Begin VB.Label Label9
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Label1"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 210
Left = 285
TabIndex = 8
Top = 4080
Width = 540
End
Begin VB.Label Label8
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Label1"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 210
Left = 285
TabIndex = 7
Top = 720
Width = 540
End
Begin VB.Label Label7
BackStyle = 0 'Transparent
Caption = "Label1"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 330
Left = 285
TabIndex = 6
Top = 4920
Width = 4980
End
Begin VB.Label Label6
BackStyle = 0 'Transparent
Caption = "Label1"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 330
Left = 285
TabIndex = 5
Top = 3720
Width = 4980
End
Begin VB.Label Label5
BackStyle = 0 'Transparent
Caption = "Label1"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 450
Left = 285
TabIndex = 4
Top = 1920
Width = 4980
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Label1"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 210
Left = 285
TabIndex = 3
Top = 480
Width = 540
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Label1"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 210
Left = 285
TabIndex = 2
Top = 4680
Width = 540
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Label1"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 210
Left = 285
TabIndex = 1
Top = 3480
Width = 540
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Label1"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 210
Left = 285
TabIndex = 0
Top = 1680
Width = 540
End
Begin VB.Shape Shape3
BorderColor = &H00FFFFFF&
Height = 2055
Left = 240
Top = 3360
Width = 5055
End
Begin VB.Shape Shape2
BorderColor = &H00FFFFFF&
Height = 1455
Left = 240
Top = 1560
Width = 5055
End
Begin VB.Shape Shape1
BorderColor = &H00FFFFFF&
Height = 855
Left = 240
Top = 360
Width = 5055
End
End
Attribute VB_Name = "Equipment"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
 
Private Sub Command1_Click()
Unload Equipment
End Sub
 
Private Sub Command2_Click()
Command2.Enabled = False
A = Manager.Inventar.Text
dqWAFFE = ""
If Typus = "Magier" And A = "Magierstab des Irion" Then GoTo overjump
If Typus = "Magier" And A = "Magierstab" Then GoTo overjump
 
 
If Typus = "Magier" Then GoTo nonee
overjump:
WeaponCheck
If A = dqWAFFE Then AddWeap: GoTo jau
nonee:
BowCheck
If A = dqWAFFE Then AddBow: GoTo jau
RüstCheck
If A = dqWAFFE Then addrüst
jau:
End Sub
 
Private Sub Form_Load()
Dim MFG As String
Label4.Caption = Helm
Label8.Caption = Str(Hrs) + " RS / " + Str(Hbe) + " BE"
If Helm = "" Then Label4.Caption = "kein Helm!": Label8.Caption = ""
 
Label1.Caption = Waffe
If Kategorie = "Sch" Then MFG = "Schwert"
If Kategorie = "Ax" Then MFG = "Axt"
If Kategorie = "Sp" Then MFG = "Stabwaffe"
If Kategorie = "Hie" Then MFG = "Hiebwaffe"
Label5.Caption = Str(GRschaden) + " -" + Str(GRschaden + ZUschaden) + " / " + MFG + " aus " + Material + " / Abzug (" + Str(Abzug) + " )"
If Hände = 1 Then MFG = "einhändig"
If Hände = 2 Then MFG = "zweihändig"
Label5.Caption = Label5.Caption + ", " + MFG
 
Label3.Caption = Schild
Label7.Caption = Str(Srs) + " RS / " + Str(Sbe) + " BE"
If Schild = "" Then Label3.Caption = "kein Schild!": Label7.Caption = ""
 
Label2.Caption = Rüstung
Label6.Caption = " " + Rmaterial + " / " + Str(Rrs) + " RS / " + Str(Rbe) + " BE"
If Rüstung = "" Then Label2.Caption = "keine Rüstung!": Label6.Caption = ""
 
Label9.Caption = Umhang
Label10.Caption = Str(Urs) + " RS / " + Str(Ube) + " BE"
If Umhang = "" Then Label9.Caption = "kein Umhang!": Label10.Caption = ""
 
Label11.Caption = Schusswaffe
Label12.Caption = Str(SWGRschaden) + " -" + Str(SWGRschaden + SWZUschaden) + " / " + SwKategorie
If Schusswaffe = "" Then Label11.Caption = "keine Schusswaffe!": Label12.Caption = ""
End Sub
 
Sub AddWeap()
If Magician = 1 And dqHÄNDE = 2 Or Typus = "Dieb" And dqHÄNDE = 2 Then GoTo zunk
Manager.Inventar.AddItem Label1.Caption
A = Manager.Inventar.Text
Waffe = dqWAFFE
GRschaden = dqGRSCHADEN
ZUschaden = dqZUSCHADEN
Kategorie = dqKATEGORIE
Material = dqMATERIAL
Abzug = dqABZUG
Hände = dqHÄNDE
A = Manager.Inventar.ListIndex
Manager.Inventar.RemoveItem A
Form_Load
zunk:
End Sub
Sub AddBow()
A = Manager.Inventar.ListIndex
Manager.Inventar.RemoveItem A
If Label11.Caption = "keine Schusswaffe!" Then GoTo kb
Manager.Inventar.AddItem Label11.Caption
kb:
A = Manager.Inventar.Text
Schusswaffe = dqWAFFE
SWGRschaden = dqGRSCHADEN
SWZUschaden = dqZUSCHADEN
SwKategorie = dqKATEGORIE
Form_Load
End Sub
Sub addrüst()
If Typus = "Paladin" And dqMATERIAL = "Leder" Then GoTo klop212
If Typus = "Paladin" Then GoTo zdf
If dqMATERIAL = "Stahl" And Magician = 1 Then GoTo klop212
zdf:
A = Manager.Inventar.Text
If dqKATEGORIE = "Helm" Then Helm = dqWAFFE: Hrs = dqGRSCHADEN: Hbe = dqABZUG: If Label4.Caption <> "kein Helm!" Then Manager.Inventar.AddItem Label4.Caption
If dqKATEGORIE = "Rüstung" Then Rmaterial = dqMATERIAL: Rüstung = dqWAFFE: Rrs = dqGRSCHADEN: Rbe = dqABZUG: If Label2.Caption <> "keine Rüstung!" Then Manager.Inventar.AddItem Label2.Caption
If dqKATEGORIE = "Schild" Then Schild = dqWAFFE: Srs = dqGRSCHADEN: Sbe = dqABZUG: If Label3.Caption <> "kein Schild!" Then Manager.Inventar.AddItem Label3.Caption
If dqKATEGORIE = "Umhang" Then Umhang = dqWAFFE: Urs = dqGRSCHADEN: Ube = dqABZUG: If Label9.Caption <> "kein Umhang!" Then Manager.Inventar.AddItem Label9.Caption
A = Manager.Inventar.ListIndex
Manager.Inventar.RemoveItem A
Form_Load
klop212:
End Sub