Subversion Repositories aysalia

Compare Revisions

Regard whitespace Rev 1 → Rev 2

/trunk/Schatten über Aysalia/ShRust4.frm
0,0 → 1,416
VERSION 5.00
Begin VB.Form ShRust4
BackColor = &H00400000&
BorderStyle = 0 'None
Caption = "ShRust4"
ClientHeight = 5565
ClientLeft = 0
ClientTop = 0
ClientWidth = 6780
LinkTopic = "ShRust4"
ScaleHeight = 5565
ScaleWidth = 6780
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin VB.CommandButton Command2
BackColor = &H00FF8080&
Cancel = -1 'True
Caption = "Verlassen"
Default = -1 'True
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 4920
Style = 1 'Graphical
TabIndex = 1
Top = 3360
Width = 1335
End
Begin VB.ListBox List1
BackColor = &H00000000&
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFF00&
Height = 1815
ItemData = "ShRust4.frx":0000
Left = 1200
List = "ShRust4.frx":0010
TabIndex = 0
Top = 960
Width = 1575
End
Begin VB.Label Label13
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Auftrag"
Enabled = 0 'False
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF8080&
Height = 240
Left = 4920
TabIndex = 15
Top = 3840
Width = 750
End
Begin VB.Label Label17
BackStyle = 0 'Transparent
Caption = "Tarion, Harnischmacher"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00E0E0E0&
Height = 975
Left = 1200
TabIndex = 14
Top = 3360
Width = 3735
End
Begin VB.Label Label12
BackColor = &H00400000&
Caption = "Label12"
ForeColor = &H0000FFFF&
Height = 255
Left = 4320
TabIndex = 13
Top = 2880
Width = 855
End
Begin VB.Label Label11
BackColor = &H00400000&
Caption = "Goldkronen"
ForeColor = &H0000FFFF&
Height = 255
Left = 3000
TabIndex = 12
Top = 2880
Width = 1095
End
Begin VB.Label Label10
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Label10"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 195
Left = 4320
TabIndex = 11
Top = 2520
Width = 690
End
Begin VB.Label Label9
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Label9"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 195
Left = 4320
TabIndex = 10
Top = 2160
Width = 585
End
Begin VB.Label Label8
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Label8"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 195
Left = 4320
TabIndex = 9
Top = 1800
Width = 585
End
Begin VB.Label Label7
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Label7"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 195
Left = 4320
TabIndex = 8
Top = 1440
Width = 585
End
Begin VB.Label Label6
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Preis"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFC0C0&
Height = 195
Left = 3120
TabIndex = 7
Top = 2520
Width = 435
End
Begin VB.Label Label5
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Material"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFC0C0&
Height = 195
Left = 3120
TabIndex = 6
Top = 2160
Width = 690
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Behinderung"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFC0C0&
Height = 195
Left = 3120
TabIndex = 5
Top = 1800
Width = 1080
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Rüstschutz"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFC0C0&
Height = 195
Left = 3120
TabIndex = 4
Top = 1440
Width = 960
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "RS"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 195
Left = 4080
TabIndex = 3
Top = 1080
Width = 270
End
Begin VB.Shape Shape1
BorderColor = &H00FF0000&
Height = 1815
Left = 3000
Top = 960
Width = 2655
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Harnischmacher Tarion"
BeginProperty Font
Name = "Tahoma"
Size = 14.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 345
Left = 1680
TabIndex = 2
Top = 240
Width = 3315
End
End
Attribute VB_Name = "ShRust4"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command2_Click()
Unload ShRust4
Shaela.Show
End Sub
 
Private Sub Form_Load()
RADIKAL
initial
End Sub
 
Private Sub Label13_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim lHandle As Long
lHandle = LoadCursor(0, HandCursor)
If (lHandle > 0) Then SetCursor lHandle
End Sub
 
Private Sub Label2_Click()
If typus = "Paladin" And kmaterial = "Leder" Then MsgBox "Als Paladin darfst du keine Lederrüstung tragen!": GoTo nixda
If gold < kpreis Then Label17.Caption = "Jau, jetzt brauchst du nur noch Geld.": GoTo nixda
gold = gold - kpreis
rüstung = kwaffe
rs = krs
be = kbe
rsmat = kmaterial
Label17.Caption = "Das wird dir helfen!"
initial
nixda:
End Sub
 
Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim lHandle As Long
lHandle = LoadCursor(0, HandCursor)
If (lHandle > 0) Then SetCursor lHandle
End Sub
 
Private Sub List1_Click()
If List1.Text = "Lederharnisch" Then GoTo khemd
If List1.Text = "Waffenrock" Then GoTo kmantel
If List1.Text = "Hartholzharnisch" Then GoTo spanzer
If List1.Text = "Jagdhemd" Then GoTo pharnisch
Rem If List1.Text = "Schuppenpanzer" Then GoTo ppanzer
khemd:
kwaffe = "Lederharnisch"
krs = 3
kbe = 3
kmaterial = "Leder"
kpreis = 120
GoTo weiter
kmantel:
kwaffe = "Waffenrock"
krs = 3
kbe = 3
kmaterial = "Elfenbausch"
kpreis = 140
GoTo weiter
spanzer:
kwaffe = "Hartholzharnisch"
krs = 4
kbe = 3
kmaterial = "Hartholz"
kpreis = 250
GoTo weiter
pharnisch:
kwaffe = "Jagdhemd"
krs = 1
kbe = 0
kmaterial = "Leder"
kpreis = 60
GoTo weiter
ppanzer:
kwaffe = "Schuppenpanzer"
krs = 5
kbe = 5
kmaterial = "Stahl"
kpreis = 440
weiter:
initial
End Sub
Sub initial()
Label2.Caption = kwaffe
Label7.Caption = krs
Label8.Caption = kbe
Label9.Caption = kmaterial
Label10.Caption = kpreis
Label12.Caption = gold
End Sub