Subversion Repositories aysalia

Compare Revisions

Regard whitespace Rev 1 → Rev 2

/trunk/Zeitalter der Dämonen/Kampf.frm
0,0 → 1,1480
VERSION 5.00
Begin VB.Form Kampf
BackColor = &H00000000&
BorderStyle = 0 'None
Caption = "Kampf"
ClientHeight = 7005
ClientLeft = 0
ClientTop = 0
ClientWidth = 6135
LinkTopic = "Kampf"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 7005
ScaleWidth = 6135
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin VB.CommandButton Command4
BackColor = &H00E0E0E0&
Caption = "Spruch sprechen"
Enabled = 0 'False
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 720
Style = 1 'Graphical
TabIndex = 50
Top = 5400
Width = 2055
End
Begin VB.CommandButton Command3
BackColor = &H00E0E0E0&
Caption = "Objekt benutzen"
Enabled = 0 'False
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 2880
Style = 1 'Graphical
TabIndex = 48
Top = 5640
Width = 1695
End
Begin VB.CommandButton Command2
BackColor = &H00E0E0E0&
Caption = "100%"
Enabled = 0 'False
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 170
Style = 1 'Graphical
TabIndex = 47
Top = 4440
Width = 645
End
Begin VB.CommandButton Command1
BackColor = &H00E0E0E0&
Caption = "100%"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 170
Style = 1 'Graphical
TabIndex = 46
Top = 3840
Width = 645
End
Begin VB.Label Label12
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "#Größe"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 240
Left = 2280
TabIndex = 57
Top = 720
Width = 690
End
Begin VB.Label Faktion
BackColor = &H00400000&
Caption = "Feindaktion"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 255
Left = 120
TabIndex = 56
Top = 6480
Width = 5775
End
Begin VB.Label Haktion
BackColor = &H00004000&
Caption = "Heldenaktion"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 255
Left = 120
TabIndex = 55
Top = 6120
Width = 5775
End
Begin VB.Label Label53
AutoSize = -1 'True
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "Label53"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF8080&
Height = 270
Left = 5040
TabIndex = 54
Top = 5160
Width = 690
End
Begin VB.Label Label52
AutoSize = -1 'True
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "Label52"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H008080FF&
Height = 270
Left = 5040
TabIndex = 53
Top = 4920
Width = 690
End
Begin VB.Label Label51
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Mana"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF8080&
Height = 210
Left = 3240
TabIndex = 52
Top = 5160
Width = 435
End
Begin VB.Label Label50
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Lebensenergie"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H008080FF&
Height = 210
Left = 3240
TabIndex = 51
Top = 4920
Width = 1275
End
Begin VB.Label Label49
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "X"
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 = 4680
TabIndex = 49
Top = 5640
Width = 105
End
Begin VB.Label Label48
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "X"
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 = 2280
TabIndex = 45
Top = 5040
Width = 105
End
Begin VB.Label Label47
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Rüstungsklasse"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0C0C0&
Height = 210
Left = 840
TabIndex = 44
Top = 5040
Width = 1350
End
Begin VB.Label Label46
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "X"
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 = 5280
TabIndex = 43
Top = 4680
Width = 540
End
Begin VB.Label Label45
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "X"
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 = 4200
TabIndex = 42
Top = 4680
Width = 540
End
Begin VB.Label Label44
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "X"
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 = 3240
TabIndex = 41
Top = 4680
Width = 660
End
Begin VB.Label Label43
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "X"
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 = 2160
TabIndex = 40
Top = 4680
Width = 780
End
Begin VB.Label Label42
BackStyle = 0 'Transparent
Caption = "X"
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 = 840
TabIndex = 39
Top = 4680
Width = 1185
End
Begin VB.Label Label41
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Kategorie"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0C0C0&
Height = 210
Left = 2160
TabIndex = 38
Top = 4440
Width = 795
End
Begin VB.Label Label40
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Bolzen"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0C0C0&
Height = 210
Left = 4200
TabIndex = 37
Top = 4440
Width = 555
End
Begin VB.Label Label39
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Pfeile"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0C0C0&
Height = 210
Left = 5280
TabIndex = 36
Top = 4440
Width = 465
End
Begin VB.Label Label38
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Schaden"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0C0C0&
Height = 210
Left = 3240
TabIndex = 35
Top = 4440
Width = 705
End
Begin VB.Label Label37
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Schusswaffe"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0C0C0&
Height = 210
Left = 840
TabIndex = 34
Top = 4440
Width = 1080
End
Begin VB.Label Label36
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "X"
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 = 5280
TabIndex = 33
Top = 4080
Width = 630
End
Begin VB.Label Label35
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "X"
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 = 4200
TabIndex = 32
Top = 4080
Width = 735
End
Begin VB.Label Label34
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "X"
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 = 3240
TabIndex = 31
Top = 4080
Width = 630
End
Begin VB.Label Label33
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "X"
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 = 2160
TabIndex = 30
Top = 4080
Width = 855
End
Begin VB.Label Label32
BackStyle = 0 'Transparent
Caption = "X"
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 = 840
TabIndex = 29
Top = 4080
Width = 1185
End
Begin VB.Label Label31
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Abzug"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0C0C0&
Height = 210
Left = 5280
TabIndex = 28
Top = 3840
Width = 525
End
Begin VB.Label Label30
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Schaden"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0C0C0&
Height = 210
Left = 4200
TabIndex = 27
Top = 3840
Width = 705
End
Begin VB.Label Label29
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Material"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0C0C0&
Height = 210
Left = 3240
TabIndex = 26
Top = 3840
Width = 660
End
Begin VB.Label Label28
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Kategorie"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0C0C0&
Height = 210
Left = 2160
TabIndex = 25
Top = 3840
Width = 795
End
Begin VB.Label Label27
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Waffe"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0C0C0&
Height = 210
Left = 840
TabIndex = 24
Top = 3840
Width = 465
End
Begin VB.Label Label26
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Heldenaktionen"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF8080&
Height = 210
Left = 120
TabIndex = 23
Top = 3480
Width = 1290
End
Begin VB.Shape Shape2
BackColor = &H00404040&
BackStyle = 1 'Opaque
BorderColor = &H0000FFFF&
Height = 2355
Left = 120
Top = 3720
Width = 5775
End
Begin VB.Label Label25
AutoSize = -1 'True
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "Label25"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF8080&
Height = 270
Left = 5040
TabIndex = 22
Top = 2880
Width = 690
End
Begin VB.Label Label24
AutoSize = -1 'True
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "Label24"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H008080FF&
Height = 270
Left = 5040
TabIndex = 21
Top = 2520
Width = 690
End
Begin VB.Label Label23
AutoSize = -1 'True
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "Label23"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 270
Left = 5040
TabIndex = 20
Top = 2160
Width = 690
End
Begin VB.Label Label22
AutoSize = -1 'True
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "Label22"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 270
Left = 5040
TabIndex = 19
Top = 1800
Width = 690
End
Begin VB.Label Label21
AutoSize = -1 'True
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "Label21"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 270
Left = 5040
TabIndex = 18
Top = 1440
Width = 690
End
Begin VB.Label Label20
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Mana"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF8080&
Height = 210
Left = 3600
TabIndex = 17
Top = 2880
Width = 435
End
Begin VB.Label Label19
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Lebensenergie"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H008080FF&
Height = 210
Left = 3600
TabIndex = 16
Top = 2520
Width = 1275
End
Begin VB.Label Label18
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Magieresistenz"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFC0C0&
Height = 210
Left = 3600
TabIndex = 15
Top = 2160
Width = 1290
End
Begin VB.Label Label17
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Gewandtheit"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFC0C0&
Height = 210
Left = 3600
TabIndex = 14
Top = 1800
Width = 1050
End
Begin VB.Label Label16
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Stärke"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFC0C0&
Height = 210
Left = 3600
TabIndex = 13
Top = 1440
Width = 540
End
Begin VB.Label Label15
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Label15"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 255
Left = 360
TabIndex = 12
Top = 2640
Width = 1335
End
Begin VB.Label Label14
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Rüstungsklasse"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF8080&
Height = 210
Left = 360
TabIndex = 11
Top = 2400
Width = 1350
End
Begin VB.Label Label11
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "l11"
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 = 2640
TabIndex = 10
Top = 1800
Width = 705
End
Begin VB.Label Label10
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Label10"
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 = 1560
TabIndex = 9
Top = 1800
Width = 855
End
Begin VB.Label Label9
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Label9"
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 = 360
TabIndex = 8
Top = 1800
Width = 540
End
Begin VB.Label Label8
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Schaden"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF8080&
Height = 210
Left = 2640
TabIndex = 7
Top = 1560
Width = 705
End
Begin VB.Label Label7
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Kategorie"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF8080&
Height = 210
Left = 1560
TabIndex = 6
Top = 1560
Width = 795
End
Begin VB.Label Label6
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Waffe"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF8080&
Height = 210
Left = 360
TabIndex = 5
Top = 1560
Width = 465
End
Begin VB.Label Label5
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "l5"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 240
Left = 360
TabIndex = 4
Top = 1200
Width = 165
End
Begin VB.Line Line1
BorderColor = &H0000FFFF&
X1 = 120
X2 = 5880
Y1 = 1080
Y2 = 1080
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "#krankhaft"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 240
Left = 4920
TabIndex = 3
Top = 720
Width = 990
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "#giftig"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 240
Left = 3840
TabIndex = 2
Top = 720
Width = 585
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "#Art"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 240
Left = 360
TabIndex = 1
Top = 720
Width = 375
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "#Text"
BeginProperty Font
Name = "Arial"
Size = 12.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 600
Left = 360
TabIndex = 0
Top = 120
Width = 5535
End
Begin VB.Shape Shape1
BorderColor = &H00C0C0C0&
FillColor = &H00404040&
FillStyle = 0 'Solid
Height = 1935
Left = 3480
Top = 1320
Width = 2415
End
End
Attribute VB_Name = "Kampf"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
 
Private Sub Command1_Click()
Randomize Timer
Plus = Int(100 * Rnd)
If Plus <= NahkampfChance Then Hitted Else Loss
End Sub
 
Sub Hitted()
Randomize Timer
Plus = Int(ZUschaden * Rnd) + GRschaden
Randomize Timer
Zahl = Int(Grs * Rnd)
Plus = Plus - Zahl
Randomize Timer
Plus = Plus + Int((Strength / 20) * Rnd)
If Plus < 0 Then Plus = 0
If Art = "Dämon" And Material <> "Magisch" Then Plus = 0
Ghp = Ghp - Plus
Haktion.Caption = "Du verletzt " + Feind + " mit " + Str(Plus) + " Schadenspunkten"
FeindZug
End Sub
 
Sub Loss()
Haktion.Caption = "Du verfehlst " + Feind
FeindZug
End Sub
 
Sub FeindZug()
ObjSpeed = 2
If Lähmzeit > 0 Then Faktion.Caption = Feind + " ist noch gelähmt!": GoTo Harakiri
Randomize Timer
Zahl = Int(3 * Rnd)
If Unsichtbar = 0 Then GoTo adss
If Unsichtbar < 3 And Zahl > 0 Then Faktion.Caption = Feind + " schlägt wild um sich!": GoTo Harakiri
If Unsichtbar > 3 Then Unsichtbar = 0
Unsichtbar = Unsichtbar + 1
adss:
Randomize Timer
Plus = Int(100 * Rnd)
If Plus < Gspeed Then GoTo hit Else GoTo los
hit:
Randomize Timer
Plus = Int(Fzuschaden * Rnd) + Fgrschaden
Dim tsRK As Integer
tsRK = RK + (SchildZ * 3)
Randomize Timer
Zahl = Int(tsRK * Rnd)
Randomize Timer
Plus = Plus + Int((Gstrength / 20) * Rnd)
Plus = Plus - Zahl
If Plus < 0 Then Plus = 0
Hp = Hp - Plus
Faktion.Caption = Feind + " verletzt dich mit " + Str(Plus) + " Schadenspunkten"
GoTo Harakiri
los:
Faktion.Caption = Feind + " verfehlt " + Nom
Harakiri:
Enchanted
ManagRighter
initial
CheckLife
End Sub
 
Private Sub Command2_Click()
If SwKategorie = "Armbrust" And Bolzen = 0 Then Haktion.Caption = "Keine Bolzen im Köcher!": GoTo ec2
If SwKategorie = "Bogen" And Pfeile = 0 Then Haktion.Caption = "Keine Pfeile im Köcher!": GoTo ec2
If Gespannt = 0 Then Spannen: GoTo ec2
If SwKategorie = "Armbrust" Then Bolzen = Bolzen - 1
If SwKategorie = "Bogen" Then Pfeile = Pfeile - 1
Gespannt = 0
Randomize Timer
Plus = Int(100 * Rnd)
If Plus <= FernkampfChance Then GoTo yea Else GoTo no
yea:
Randomize Timer
Plus = Int(SWZUschaden * Rnd) + SWGRschaden
Randomize Timer
Plus = Plus - Int(Grs * Rnd)
Ghp = Ghp - Plus
Haktion.Caption = "Du verletzt " + Feind + " mit " + Str(Plus) + " Schadenspunkten"
FeindZug
GoTo ec2
no:
Haktion.Caption = "Du verfehlst " + Feind
FeindZug
ec2:
End Sub
 
Sub Spannen()
Haktion = "Du spannst " + Schusswaffe
Gespannt = 1
FeindZug
End Sub
 
Private Sub Command3_Click()
Dim objdes As String
objdes = Manager.Inventar.Text
If objdes = "Kleiner Heiltrank" Then KleinerHeiltrank: GoTo zyd
If objdes = "Kleiner Zaubertrank" Then KleinerZaubertrank: GoTo zyd
If objdes = "Großer Heiltrank" Then GroßerHeiltrank: GoTo zyd
If objdes = "Großer Zaubertrank" Then GroßerZaubertrank: GoTo zyd
If objdes = "Magischer Opferdolch" Then MagischerOpferdolch: GoTo zyd
If objdes = "Silberner Dolch" Then SilbernerDolch: GoTo zyd
If objdes = "Unsichtbarkeitstrank" Then UnsichtbarkeitsTrank: GoTo zyd
GoTo nonjo
zyd:
ObjSpeed = ObjSpeed - 1
If ObjSpeed = 0 Then FeindZug: ObjSpeed = 2
RHMP
ManagRighter
initial
 
If objdes = "Magischer Opferdolch" Or objdes = "Silberner Dolch" Then GoTo nonjo
Equipment.Command2.Enabled = False
Manager.Command2.Enabled = False
A = Manager.Inventar.ListIndex
Manager.Inventar.RemoveItem A
nonjo:
Command3.Enabled = False
End Sub
 
Private Sub Command4_Click()
If Manager.SpruchBuch.Text = "" Then GoTo schuub
If MP < dqMANA Then Haktion.Caption = "Nicht genug Mana!": GoTo hippo
If dqSPELL = "Kreaturen abwenden" And Art <> "Kreatur" Then Haktion.Caption = "Gegner ist keine Kreatur!": GoTo hippo
If dqSPELL = "Kreaturen abwenden" And Fliehen = 0 Then Haktion.Caption = "Kreatur findet keinen Ausweg!": GoTo hippo
MP = MP - dqMANA
 
If dqSPELL = "Lähmung" Then LähmZauber: GoTo hippo
If dqSPELL = "Genesung" Then GenesZauber: GoTo hippo
If dqSPELL = "Kreaturen abwenden" Then Kreazauber: GoTo hippo
If dqSPELL = "Schild" Then SchiZauber: GoTo hippo
 
If dqWHAT = "S" Then GoTo Smove
If dqWHAT = "H" Then HeilZauber: GoTo hippo
Smove:
If dqSPELL = "Zauberranken" Then Ranken = 1
If dqSPELL = "Verwesung" Then Wesung = 1
Dim SpellDamage As Integer
Randomize Timer
Plus = Int(100 * Rnd)
If Plus > SpellHit Then GoTo sda
Randomize Timer
Plus = Int(dqGRADDAM * Rnd) + dqGRDAMAGE
Plus = Plus - Gmr
If dqSPELL = "Exorzismus" And Art <> "Dämon" Then Plus = 0
Haktion.Caption = dqSPELL + " verletzt " + Feind + " mit " + Str(Plus) + " Schadenspunkten."
If dqSPELL = "Lebensentzug" Then Hp = Hp + Plus
 
Ghp = Ghp - Plus
GoTo hippo
sda:
Haktion.Caption = dqSPELL + " verfehlt " + Feind
hippo:
FeindZug
schuub:
End Sub
 
Sub SchiZauber()
SchildZ = 1
Haktion.Caption = "Du formst ein Schild um dich herum!"
End Sub
 
Sub Kreazauber()
Ghp = 0: Exp = Int(Exp / 2): CheckLife
End Sub
 
Sub GenesZauber()
KrAnK = 0
VeRgIfTeT = 0
Haktion.Caption = "Du bist nun geheilt!"
End Sub
 
Sub LähmZauber()
Lähmzeit = Int((NEKROMANTIE) - (Gstrength / 30))
Haktion.Caption = Feind + " für " + Str(Lähmzeit) + " Runden gelähmt."
End Sub
 
Sub HeilZauber()
Dim HealingRate As Integer
Randomize Timer
Plus = Int(dqGRADDAM * Rnd) + dqGRDAMAGE
Haktion.Caption = dqSPELL + " gibt " + Str(Plus) + " Lebenspunkte wieder."
Hp = Hp + Plus
RHMP
End Sub
 
Sub initial()
Label1.Caption = "Du musst gegen " + Feind + " kämpfen!"
Label2.Caption = Art
If MK = 100 Then Label12.Caption = "Normal groß"
If MK >= 180 Then Label12.Caption = "Riesig groß": GoTo gaga
If MK >= 150 Then Label12.Caption = "Sehr Groß": GoTo gaga
If MK > 100 Then Label12.Caption = "Groß"
gaga:
If MK <= 50 Then Label12.Caption = "Winzig klein": GoTo gag
If MK <= 75 Then Label12.Caption = "Klein": GoTo gag
If MK <= 99 Then Label12.Caption = "Etwas kleiner"
gag:
If Giftig = 0 Then Label3.Caption = ""
If Giftig > 0 Then Label3.Caption = "Giftig!"
If Giftig >= 40 Then Label3.Caption = "Sehr giftig!"
If Giftig >= 75 Then Label3.Caption = "Extrem giftig!"
If Krankhaft = 0 Then Label4.Caption = ""
If Krankhaft > 0 Then Label4.Caption = "Krankhaft!"
If Krankhaft >= 40 Then Label4.Caption = "Sehr krankhaft!"
If Krankhaft >= 75 Then Label4.Caption = "Extrem krankhaft!"
If Schusswaffe <> "" Then Command2.Enabled = True
Label49.Caption = ObjSpeed
Label5.Caption = Feind
Label9.Caption = Gwaffe
Label10.Caption = Fkategorie
Label11.Caption = Str(Fgrschaden) + " -" + Str(Fzuschaden + Fgrschaden)
Label15.Caption = Str(Grs) + " RS"
Label21.Caption = Gstrength
Label22.Caption = Gspeed
Label23.Caption = Gmr
Label24.Caption = Ghp
Label25.Caption = Gmp
Label32.Caption = Waffe
Label33.Caption = Kategorie
Label34.Caption = Material
Label35.Caption = Str(GRschaden) + " -" + Str(ZUschaden + GRschaden)
Label36.Caption = Abzug
 
Label42.Caption = Schusswaffe
Label43.Caption = SwKategorie
Label44.Caption = Str(SWGRschaden) + "-" + Str(SWZUschaden + SWGRschaden)
Label45.Caption = Bolzen
Label46.Caption = Pfeile
 
RK = Rrs + Urs + Hrs + Srs
Label48.Caption = RK
Label52.Caption = Hp
Label53.Caption = MP
PercentChance
End Sub
Sub PercentChance()
NahkampfChance = Speed
If Kategorie = "Sch" Then Plus = SCHWERTER
If Kategorie = "Hie" Then Plus = HIEBWAFFEN
If Kategorie = "Sp" Then Plus = SPEERE
If Kategorie = "Ax" Then Plus = ÄXTE
GBE = Rbe + Ube + Hbe + Sbe
NahkampfChance = (NahkampfChance + Plus) - GBE - Abzug
NahkampfChance = Int(NahkampfChance * (MK / 100))
FernkampfChance = Speed + SCHUSSWAFFEN
FernkampfChance = Int(FernkampfChance * (MK / 100))
Command1.Caption = Str(NahkampfChance) + "%"
Command2.Caption = Str(FernkampfChance) + "%"
If Schusswaffe = "" Then Command2.Caption = "xx"
End Sub
 
Sub Enchanted()
If Wesung = 1 Then
Randomize Timer
Plus = Int(5 * Rnd) + 1
Ghp = Ghp - Plus
Haktion.Caption = Haktion.Caption + " (+" + Str(Plus) + " SP)"
End If
If Ranken = 1 Then
Randomize Timer
Plus = Int(5 * Rnd) + 3
Ghp = Ghp - Plus
Haktion.Caption = Haktion.Caption + " (+" + Str(Plus) + " SP)"
End If
End Sub
 
Private Sub Form_Activate()
ObjSpeed = 2
initial
End Sub