WebSVN – aysalia – Blame – /trunk/Schatten über Aysalia/AzTrain1.frm

Rev	Author	Line No.	Line
2	daniel-mar	1	VERSION 5.00
		2	Begin VB.Form AzTrain1
		3	BackColor = &H00400040&
		4	BorderStyle = 0 'None
		5	Caption = "AzTrain1"
		6	ClientHeight = 6510
		7	ClientLeft = 0
		8	ClientTop = 0
		9	ClientWidth = 7620
		10	LinkTopic = "AzTrain1"
		11	ScaleHeight = 6510
		12	ScaleWidth = 7620
		13	ShowInTaskbar = 0 'False
		14	StartUpPosition = 2 'CenterScreen
		15	Begin VB.CommandButton Command1
		16	BackColor = &H00FFC0FF&
		17	Cancel = -1 'True
		18	Caption = "Verlassen"
		19	Default = -1 'True
		20	BeginProperty Font
		21	Name = "MS Sans Serif"
		22	Size = 8.25
		23	Charset = 0
		24	Weight = 700
		25	Underline = 0 'False
		26	Italic = 0 'False
		27	Strikethrough = 0 'False
		28	EndProperty
		29	Height = 375
		30	Left = 4920
		31	Style = 1 'Graphical
		32	TabIndex = 13
		33	Top = 4080
		34	Width = 1455
		35	End
		36	Begin VB.Label Label14
		37	AutoSize = -1 'True
		38	BackStyle = 0 'Transparent
		39	Caption = "Auftrag"
		40	Enabled = 0 'False
		41	BeginProperty Font
		42	Name = "MS Sans Serif"
		43	Size = 9.75
		44	Charset = 0
		45	Weight = 700
		46	Underline = -1 'True
		47	Italic = 0 'False
		48	Strikethrough = 0 'False
		49	EndProperty
		50	ForeColor = &H00FF8080&
		51	Height = 240
		52	Left = 4920
		53	TabIndex = 14
		54	Top = 4560
		55	Width = 750
		56	End
		57	Begin VB.Label Label13
		58	AutoSize = -1 'True
		59	BackStyle = 0 'Transparent
		60	Caption = "Label13"
		61	ForeColor = &H0000FFFF&
		62	Height = 195
		63	Left = 5520
		64	TabIndex = 12
		65	Top = 3720
		66	Width = 570
		67	End
		68	Begin VB.Label Label12
		69	AutoSize = -1 'True
		70	BackStyle = 0 'Transparent
		71	Caption = "Goldkronen"
		72	ForeColor = &H0000FFFF&
		73	Height = 195
		74	Left = 4440
		75	TabIndex = 11
		76	Top = 3720
		77	Width = 825
		78	End
		79	Begin VB.Label Label11
		80	BackStyle = 0 'Transparent
		81	Caption = "Lutana die Amazone"
		82	BeginProperty Font
		83	Name = "MS Sans Serif"
		84	Size = 8.25
		85	Charset = 0
		86	Weight = 700
		87	Underline = 0 'False
		88	Italic = 0 'False
		89	Strikethrough = 0 'False
		90	EndProperty
		91	ForeColor = &H00E0E0E0&
		92	Height = 1335
		93	Left = 1920
		94	TabIndex = 10
		95	Top = 4320
		96	Width = 4575
		97	End
		98	Begin VB.Label Label10
		99	AutoSize = -1 'True
		100	BackStyle = 0 'Transparent
		101	Caption = "Label10"
		102	BeginProperty Font
		103	Name = "MS Sans Serif"
		104	Size = 8.25
		105	Charset = 0
		106	Weight = 700
		107	Underline = 0 'False
		108	Italic = 0 'False
		109	Strikethrough = 0 'False
		110	EndProperty
		111	ForeColor = &H00FFFFFF&
		112	Height = 195
		113	Left = 3360
		114	TabIndex = 9
		115	Top = 3480
		116	Width = 690
		117	End
		118	Begin VB.Label Label9
		119	AutoSize = -1 'True
		120	BackStyle = 0 'Transparent
		121	Caption = "Label9"
		122	BeginProperty Font
		123	Name = "MS Sans Serif"
		124	Size = 8.25
		125	Charset = 0
		126	Weight = 700
		127	Underline = 0 'False
		128	Italic = 0 'False
		129	Strikethrough = 0 'False
		130	EndProperty
		131	ForeColor = &H00FFFFFF&
		132	Height = 195
		133	Left = 3360
		134	TabIndex = 8
		135	Top = 2640
		136	Width = 585
		137	End
		138	Begin VB.Label Label8
		139	AutoSize = -1 'True
		140	BackStyle = 0 'Transparent
		141	Caption = "Label8"
		142	BeginProperty Font
		143	Name = "MS Sans Serif"
		144	Size = 8.25
		145	Charset = 0
		146	Weight = 700
		147	Underline = 0 'False
		148	Italic = 0 'False
		149	Strikethrough = 0 'False
		150	EndProperty
		151	ForeColor = &H00FFFFFF&
		152	Height = 195
		153	Left = 3360
		154	TabIndex = 7
		155	Top = 1800
		156	Width = 585
		157	End
		158	Begin VB.Label Label7
		159	AutoSize = -1 'True
		160	BackStyle = 0 'Transparent
		161	Caption = "Preis"
		162	BeginProperty Font
		163	Name = "MS Sans Serif"
		164	Size = 8.25
		165	Charset = 0
		166	Weight = 700
		167	Underline = 0 'False
		168	Italic = 0 'False
		169	Strikethrough = 0 'False
		170	EndProperty
		171	ForeColor = &H00FFFFFF&
		172	Height = 195
		173	Left = 1920
		174	TabIndex = 6
		175	Top = 3480
		176	Width = 435
		177	End
		178	Begin VB.Label Label6
		179	AutoSize = -1 'True
		180	BackStyle = 0 'Transparent
		181	Caption = "Preis"
		182	BeginProperty Font
		183	Name = "MS Sans Serif"
		184	Size = 8.25
		185	Charset = 0
		186	Weight = 700
		187	Underline = 0 'False
		188	Italic = 0 'False
		189	Strikethrough = 0 'False
		190	EndProperty
		191	ForeColor = &H00FFFFFF&
		192	Height = 195
		193	Left = 1920
		194	TabIndex = 5
		195	Top = 2640
		196	Width = 435
		197	End
		198	Begin VB.Label Label5
		199	AutoSize = -1 'True
		200	BackStyle = 0 'Transparent
		201	Caption = "Preis"
		202	BeginProperty Font
		203	Name = "MS Sans Serif"
		204	Size = 8.25
		205	Charset = 0
		206	Weight = 700
		207	Underline = 0 'False
		208	Italic = 0 'False
		209	Strikethrough = 0 'False
		210	EndProperty
		211	ForeColor = &H00FFFFFF&
		212	Height = 195
		213	Left = 1920
		214	TabIndex = 4
		215	Top = 1800
		216	Width = 435
		217	End
		218	Begin VB.Label Label4
		219	AutoSize = -1 'True
		220	BackStyle = 0 'Transparent
		221	Caption = "Trainingsstunde Bogen"
		222	BeginProperty Font
		223	Name = "MS Sans Serif"
		224	Size = 12
		225	Charset = 0
		226	Weight = 700
		227	Underline = -1 'True
		228	Italic = 0 'False
		229	Strikethrough = 0 'False
		230	EndProperty
		231	ForeColor = &H0000FFFF&
		232	Height = 300
		233	Left = 1920
		234	TabIndex = 3
		235	Top = 3120
		236	Width = 2790
		237	End
		238	Begin VB.Label Label3
		239	AutoSize = -1 'True
		240	BackStyle = 0 'Transparent
		241	Caption = "Trainingsstunde Speere und Stäbe"
		242	BeginProperty Font
		243	Name = "MS Sans Serif"
		244	Size = 12
		245	Charset = 0
		246	Weight = 700
		247	Underline = -1 'True
		248	Italic = 0 'False
		249	Strikethrough = 0 'False
		250	EndProperty
		251	ForeColor = &H0000FFFF&
		252	Height = 300
		253	Left = 1920
		254	TabIndex = 2
		255	Top = 2280
		256	Width = 4200
		257	End
		258	Begin VB.Label Label2
		259	AutoSize = -1 'True
		260	BackStyle = 0 'Transparent
		261	Caption = "Trainingsstunde Hiebwaffen"
		262	BeginProperty Font
		263	Name = "MS Sans Serif"
		264	Size = 12
		265	Charset = 0
		266	Weight = 700
		267	Underline = -1 'True
		268	Italic = 0 'False
		269	Strikethrough = 0 'False
		270	EndProperty
		271	ForeColor = &H0000FFFF&
		272	Height = 300
		273	Left = 1920
		274	TabIndex = 1
		275	Top = 1440
		276	Width = 3375
		277	End
		278	Begin VB.Label Label1
		279	AutoSize = -1 'True
		280	BackStyle = 0 'Transparent
		281	Caption = "Trainingslager"
		282	BeginProperty Font
		283	Name = "Tahoma"
		284	Size = 18
		285	Charset = 0
		286	Weight = 700
		287	Underline = 0 'False
		288	Italic = 0 'False
		289	Strikethrough = 0 'False
		290	EndProperty
		291	ForeColor = &H0080FFFF&
		292	Height = 435
		293	Left = 2400
		294	TabIndex = 0
		295	Top = 240
		296	Width = 2550
		297	End
		298	End
		299	Attribute VB_Name = "AzTrain1"
		300	Attribute VB_GlobalNameSpace = False
		301	Attribute VB_Creatable = False
		302	Attribute VB_PredeclaredId = True
		303	Attribute VB_Exposed = False
		304	Private Sub Command1_Click()
		305	Unload AzTrain1
		306	Amazon.Show
		307	End Sub
		308
		309	Private Sub Command2_Click()
		310	Unload AzTrain1
		311	Amazon.Show
		312	End Sub
		313
		314	Private Sub Form_Load()
		315	initial
		316	End Sub
		317
		318	Private Sub Label14_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
		319	Dim lHandle As Long
		320	lHandle = LoadCursor(0, HandCursor)
		321	If (lHandle > 0) Then SetCursor lHandle
		322	End Sub
		323
		324	Private Sub Label2_Click()
		325	If HIEBWAFFEN >= 8 Then errornix: GoTo nixda
		326	If gold < trainhie Then errorgold: GoTo nixda
		327	Label11.Caption = "Gut gemacht!"
		328	gold = gold - trainhie
		329	HIEBWAFFEN = HIEBWAFFEN + 1
		330	initial
		331	nixda:
		332	End Sub
		333
		334	Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
		335	Dim lHandle As Long
		336	lHandle = LoadCursor(0, HandCursor)
		337	If (lHandle > 0) Then SetCursor lHandle
		338	End Sub
		339
		340	Private Sub Label3_Click()
		341	If STÄBE >= 6 Then errornix: GoTo nixda2
		342	If gold < trainsp Then errorgold: GoTo nixda2
		343	Label11.Caption = "Sehr gut!"
		344	gold = gold - trainsp
		345	STÄBE = STÄBE + 1
		346	initial
		347	nixda2:
		348	End Sub
		349
		350	Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
		351	Dim lHandle As Long
		352	lHandle = LoadCursor(0, HandCursor)
		353	If (lHandle > 0) Then SetCursor lHandle
		354	End Sub
		355
		356	Private Sub Label4_Click()
		357	If BÖGEN >= 8 Then errornix: GoTo nixda3
		358	If gold < trainbo Then errorgold: GoTo nixda3
		359	Label11.Caption = "Wann trainieren wir weiter?"
		360	gold = gold - trainbo
		361	BÖGEN = BÖGEN + 1
		362	initial
		363	nixda3:
		364	End Sub
		365
		366	Sub initial()
		367	trainhie = HIEBWAFFEN * 65
		368	trainsp = STÄBE * 50
		369	trainbo = BÖGEN * 70
		370	Label8.Caption = Str(trainhie) + " Goldkronen"
		371	Label9.Caption = Str(trainsp) + " Goldkronen"
		372	Label10.Caption = Str(trainbo) + " Goldkronen"
		373	Label13.Caption = gold
		374	End Sub
		375	Sub errornix()
		376	Label11.Caption = "Sorry, aber in diesem Gebiet kann ich dir nichts mehr zeigen."
		377	End Sub
		378	Sub errorgold()
		379	Label11.Caption = "Besorg das Gold und wir können beginnen."
		380	End Sub
		381
		382	Private Sub Label4_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
		383	Dim lHandle As Long
		384	lHandle = LoadCursor(0, HandCursor)
		385	If (lHandle > 0) Then SetCursor lHandle
		386	End Sub

Subversion Repositories aysalia

aysalia/trunk/Schatten über Aysalia/AzTrain1.frm – Rev 2