Subversion Repositories aysalia

Compare Revisions

Regard whitespace Rev 1 → Rev 2

/trunk/Schatten über Aysalia/GrSmith3.frm
0,0 → 1,602
VERSION 5.00
Begin VB.Form GrSmith3
BackColor = &H00000040&
BorderStyle = 0 'None
Caption = "GrSmith3"
ClientHeight = 6030
ClientLeft = 0
ClientTop = 0
ClientWidth = 7650
LinkTopic = "GrSmith3"
ScaleHeight = 6030
ScaleWidth = 7650
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin VB.ListBox List1
BackColor = &H00404040&
BeginProperty Font
Name = "Tahoma"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 2790
ItemData = "GrSmith3.frx":0000
Left = 1440
List = "GrSmith3.frx":0013
TabIndex = 1
Top = 1200
Width = 1815
End
Begin VB.CommandButton Command1
BackColor = &H008080FF&
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 = 5640
Style = 1 'Graphical
TabIndex = 0
Top = 4680
Width = 1215
End
Begin VB.Label Label21
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 = 5640
TabIndex = 22
Top = 5160
Width = 750
End
Begin VB.Label Label18
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Waffe verkaufen"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF8080&
Height = 195
Left = 1080
TabIndex = 21
Top = 4320
Width = 1440
End
Begin VB.Label Label19
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "x Goldkronen l19"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF8080&
Height = 195
Left = 5160
TabIndex = 20
Top = 4320
Width = 1455
End
Begin VB.Label Label20
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Label20"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF8080&
Height = 195
Left = 3000
TabIndex = 19
Top = 4320
Width = 690
End
Begin VB.Label Label17
BackStyle = 0 'Transparent
Caption = "Orgham der Waffenschmied"
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 = 1215
Left = 1080
TabIndex = 18
Top = 4680
Width = 4455
End
Begin VB.Shape Shape1
BorderColor = &H00FF0000&
Height = 2775
Left = 3360
Top = 1200
Width = 2775
End
Begin VB.Label Label16
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 = 3600
TabIndex = 17
Top = 3600
Width = 435
End
Begin VB.Label Label15
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 = 3600
TabIndex = 16
Top = 3000
Width = 690
End
Begin VB.Label Label14
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Abzug"
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 = 3600
TabIndex = 15
Top = 2520
Width = 540
End
Begin VB.Label Label13
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Kategorie"
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 = 3600
TabIndex = 14
Top = 2040
Width = 825
End
Begin VB.Label label12
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Schaden"
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 = 3600
TabIndex = 13
Top = 1680
Width = 765
End
Begin VB.Label Label11
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Label11"
ForeColor = &H0000FFFF&
Height = 195
Left = 4320
TabIndex = 12
Top = 4080
Width = 570
End
Begin VB.Label Label10
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Goldkronen"
ForeColor = &H0000FFFF&
Height = 195
Left = 3360
TabIndex = 11
Top = 4080
Width = 825
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "-"
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 = 5160
TabIndex = 10
Top = 1680
Width = 75
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 = &H0000FFFF&
Height = 195
Left = 4560
TabIndex = 9
Top = 3600
Width = 585
End
Begin VB.Label Label8
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "xxxxx"
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 = 4920
TabIndex = 8
Top = 3000
Width = 465
End
Begin VB.Label Label7
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "x"
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 = 5160
TabIndex = 7
Top = 2520
Width = 105
End
Begin VB.Label Label6
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "xxx"
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 = 5040
TabIndex = 6
Top = 2040
Width = 285
End
Begin VB.Label Label5
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "xxx"
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 = 5280
TabIndex = 5
Top = 1680
Width = 285
End
Begin VB.Label Label3
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "xxx"
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 = 4860
TabIndex = 4
Top = 1680
Width = 285
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "xxxxxxxxxxxx"
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 = 4560
TabIndex = 3
Top = 1320
Width = 1095
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Orgham der Waffenschmied"
BeginProperty Font
Name = "Tahoma"
Size = 21.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF8080&
Height = 525
Left = 840
TabIndex = 2
Top = 360
Width = 6135
End
End
Attribute VB_Name = "GrSmith3"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Unload GrSmith3
Gragook.Show
End Sub
 
Private Sub Form_Load()
RADIKAL
initial
End Sub
 
Private Sub Label18_Click()
If waffe = "" Then GoTo kk
gold = gold + zahl
waffe = ""
grundwert = 0
zusatzwert = 0
ABZUG = 0
material = ""
kateg = ""
initial
Label17.Caption = "Danke für's Geschäft!"
kk:
End Sub
 
Private Sub Label18_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 = "Nekromant" Then GoTo a
If magician = 1 And kkateg = "Ax" Then MsgBox "Als Zauberkundiger darfst du keine Axt tragen!": GoTo nixda
a:
If gold < kpreis Then Label17.Caption = "Tut mir leid, aber etwas Gold bräucht ich auch noch.": GoTo nixda
gold = gold - kpreis
waffe = kwaffe
grundwert = kgrundschaden
zusatzwert = kzusatzschaden
material = kmaterial
ABZUG = kabzug
kateg = kkateg
Label17.Caption = "Gute Wahl!"
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 Label21_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 = "Barbarenstreitaxt" Then GoTo schwert
If List1.Text = "Langaxt" Then GoTo breitschwert
If List1.Text = "Handaxt" Then GoTo handaxt
If List1.Text = "Streitaxt" Then GoTo streitaxt
If List1.Text = "Hellebarde" Then GoTo bischwert
schwert:
kwaffe = "Barbarenstreitaxt"
kgrundschaden = 10
kzusatzschaden = 10
kkateg = "Ax"
kabzug = 8
kmaterial = "Stahl"
kpreis = 650
initial
GoTo weiter
breitschwert:
kwaffe = "Langaxt"
kgrundschaden = 3
kzusatzschaden = 9
kkateg = "Ax"
kabzug = 5
kmaterial = "Stahl"
kpreis = 225
initial
GoTo weiter
handaxt:
kwaffe = "Handaxt"
kgrundschaden = 4
kzusatzschaden = 4
kkateg = "Ax"
kabzug = 3
kmaterial = "Stahl"
kpreis = 155
initial
GoTo weiter
streitaxt:
kwaffe = "Streitaxt"
kgrundschaden = 6
kzusatzschaden = 6
kkateg = "Ax"
kabzug = 6
kmaterial = "Stahl"
kpreis = 380
initial
GoTo weiter
bischwert:
kwaffe = "Hellebarde"
kgrundschaden = 2
kzusatzschaden = 16
kkateg = "Ax"
kabzug = 6
kmaterial = "Stahl"
kpreis = 360
initial
weiter:
End Sub
 
Sub initial()
Label20.Caption = waffe + " " + Str(grundwert) + "-" + Str(grundwert + zusatzwert)
zahl = grundwert + zusatzwert * 16
Label19.Caption = zahl
Label2.Caption = kwaffe
Label3.Caption = kgrundschaden
Label5.Caption = kgrundschaden + kzusatzschaden
Label6.Caption = kkateg
Label7.Caption = kabzug
Label8.Caption = kmaterial
Label9.Caption = Str(kpreis) + " Goldkronen"
Label11.Caption = gold
End Sub