aysaliaalarmingautosfxcalllibchecksum-toolscolormanagercryptochatcurrency_converterdecoderdelphiutilsdistributeddpcstudiodpg2fastphpfileformatsfilter_foundryforestgridgameht46f47_simulatorindexer_suiteipe_artfile_utilsjavautilsjumperlightgamelogviewermusikboxmystic_houseoidconverteroidinfo_apioidinfo_new_designoidpluspersonal-webbasephp_antispamphp_clientchallengephp_guestbookphp_utilsplumbersprependrecyclebinunitsimple_log_eventsokobanspacemissionstackmanuserdetect2uuid_mac_utilsvgwhoisvnagwebcounterwinbugtrackeryt_downloader

BlueGreycalmElegant

Català-Valencià – Catalan中文 – Chinese (Simplified)中文 – Chinese (Traditional)Česky – CzechDansk – DanishNederlands – DutchEnglish – EnglishSuomi – FinnishFrançais – FrenchDeutsch – Germanעברית – Hebrewहिंदी – HindiMagyar – HungarianBahasa Indonesia – IndonesianItaliano – Italian日本語 – Japanese한국어 – KoreanМакедонски – Macedonianमराठी – MarathiNorsk – NorwegianPolski – PolishPortuguês – PortuguesePortuguês – Portuguese (Brazil)Русский – RussianSlovenčina – SlovakSlovenščina – SlovenianEspañol – SpanishSvenska – SwedishTürkçe – TurkishУкраїнська – UkrainianOëzbekcha – Uzbek

Compare Revisions

• This comparison shows the changes necessary to convert path

  → /trunk/Schatten über Aysalia/AzTrain1.frm @ 1

  → /trunk/Schatten über Aysalia/AzTrain1.frm @ 2

  ↔ Reverse comparison

• Compare Path:	Rev

  With Path:	Rev

Regard whitespace Rev 1 → Rev 2

/trunk/Schatten über Aysalia/AzTrain1.frm
0,0 → 1,386
VERSION 5.00
Begin VB.Form AzTrain1
BackColor = &H00400040&
BorderStyle = 0 'None
Caption = "AzTrain1"
ClientHeight = 6510
ClientLeft = 0
ClientTop = 0
ClientWidth = 7620
LinkTopic = "AzTrain1"
ScaleHeight = 6510
ScaleWidth = 7620
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin VB.CommandButton Command1
BackColor = &H00FFC0FF&
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 = 13
Top = 4080
Width = 1455
End
Begin VB.Label Label14
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 = 14
Top = 4560
Width = 750
End
Begin VB.Label Label13
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Label13"
ForeColor = &H0000FFFF&
Height = 195
Left = 5520
TabIndex = 12
Top = 3720
Width = 570
End
Begin VB.Label Label12
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Goldkronen"
ForeColor = &H0000FFFF&
Height = 195
Left = 4440
TabIndex = 11
Top = 3720
Width = 825
End
Begin VB.Label Label11
BackStyle = 0 'Transparent
Caption = "Lutana die Amazone"
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 = 1335
Left = 1920
TabIndex = 10
Top = 4320
Width = 4575
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 = 3360
TabIndex = 9
Top = 3480
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 = 3360
TabIndex = 8
Top = 2640
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 = 3360
TabIndex = 7
Top = 1800
Width = 585
End
Begin VB.Label Label7
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 = &H00FFFFFF&
Height = 195
Left = 1920
TabIndex = 6
Top = 3480
Width = 435
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 = &H00FFFFFF&
Height = 195
Left = 1920
TabIndex = 5
Top = 2640
Width = 435
End
Begin VB.Label Label5
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 = &H00FFFFFF&
Height = 195
Left = 1920
TabIndex = 4
Top = 1800
Width = 435
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Trainingsstunde Bogen"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 300
Left = 1920
TabIndex = 3
Top = 3120
Width = 2790
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Trainingsstunde Speere und Stäbe"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 300
Left = 1920
TabIndex = 2
Top = 2280
Width = 4200
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Trainingsstunde Hiebwaffen"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 300
Left = 1920
TabIndex = 1
Top = 1440
Width = 3375
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Trainingslager"
BeginProperty Font
Name = "Tahoma"
Size = 18
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0080FFFF&
Height = 435
Left = 2400
TabIndex = 0
Top = 240
Width = 2550
End
End
Attribute VB_Name = "AzTrain1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Unload AzTrain1
Amazon.Show
End Sub
Private Sub Command2_Click()
Unload AzTrain1
Amazon.Show
End Sub
Private Sub Form_Load()
initial
End Sub
Private Sub Label14_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 HIEBWAFFEN >= 8 Then errornix: GoTo nixda
If gold < trainhie Then errorgold: GoTo nixda
Label11.Caption = "Gut gemacht!"
gold = gold - trainhie
HIEBWAFFEN = HIEBWAFFEN + 1
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 Label3_Click()
If STÄBE >= 6 Then errornix: GoTo nixda2
If gold < trainsp Then errorgold: GoTo nixda2
Label11.Caption = "Sehr gut!"
gold = gold - trainsp
STÄBE = STÄBE + 1
initial
nixda2:
End Sub
Private Sub Label3_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 Label4_Click()
If BÖGEN >= 8 Then errornix: GoTo nixda3
If gold < trainbo Then errorgold: GoTo nixda3
Label11.Caption = "Wann trainieren wir weiter?"
gold = gold - trainbo
BÖGEN = BÖGEN + 1
initial
nixda3:
End Sub
Sub initial()
trainhie = HIEBWAFFEN * 65
trainsp = STÄBE * 50
trainbo = BÖGEN * 70
Label8.Caption = Str(trainhie) + " Goldkronen"
Label9.Caption = Str(trainsp) + " Goldkronen"
Label10.Caption = Str(trainbo) + " Goldkronen"
Label13.Caption = gold
End Sub
Sub errornix()
Label11.Caption = "Sorry, aber in diesem Gebiet kann ich dir nichts mehr zeigen."
End Sub
Sub errorgold()
Label11.Caption = "Besorg das Gold und wir können beginnen."
End Sub
Private Sub Label4_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