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

Rev	Author	Line No.	Line
2	daniel-mar	1	VERSION 5.00
		2	Begin VB.Form LgSmith1
		3	BackColor = &H00400000&
		4	BorderStyle = 0 'None
		5	Caption = "LgSmith1"
		6	ClientHeight = 6600
		7	ClientLeft = 0
		8	ClientTop = 0
		9	ClientWidth = 7275
		10	LinkTopic = "LgSmith1"
		11	ScaleHeight = 6600
		12	ScaleWidth = 7275
		13	ShowInTaskbar = 0 'False
		14	StartUpPosition = 2 'CenterScreen
		15	Begin VB.CommandButton Command1
		16	BackColor = &H00FF8080&
		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 = 5400
		31	Style = 1 'Graphical
		32	TabIndex = 1
		33	Top = 4800
		34	Width = 1455
		35	End
		36	Begin VB.ListBox List1
		37	BackColor = &H00404040&
		38	BeginProperty Font
		39	Name = "Tahoma"
		40	Size = 9.75
		41	Charset = 0
		42	Weight = 700
		43	Underline = 0 'False
		44	Italic = 0 'False
		45	Strikethrough = 0 'False
		46	EndProperty
		47	ForeColor = &H00FFFFFF&
		48	Height = 2700
		49	ItemData = "LgSmith1.frx":0000
		50	Left = 1200
		51	List = "LgSmith1.frx":0013
		52	TabIndex = 0
		53	Top = 1320
		54	Width = 1815
		55	End
		56	Begin VB.Label Label21
		57	AutoSize = -1 'True
		58	BackStyle = 0 'Transparent
		59	Caption = "Auftrag"
		60	Enabled = 0 'False
		61	BeginProperty Font
		62	Name = "MS Sans Serif"
		63	Size = 9.75
		64	Charset = 0
		65	Weight = 700
		66	Underline = -1 'True
		67	Italic = 0 'False
		68	Strikethrough = 0 'False
		69	EndProperty
		70	ForeColor = &H00FF8080&
		71	Height = 240
		72	Left = 5400
		73	TabIndex = 22
		74	Top = 5280
		75	Width = 750
		76	End
		77	Begin VB.Label Label18
		78	AutoSize = -1 'True
		79	BackStyle = 0 'Transparent
		80	Caption = "Waffe verkaufen"
		81	BeginProperty Font
		82	Name = "MS Sans Serif"
		83	Size = 8.25
		84	Charset = 0
		85	Weight = 700
		86	Underline = -1 'True
		87	Italic = 0 'False
		88	Strikethrough = 0 'False
		89	EndProperty
		90	ForeColor = &H00FF8080&
		91	Height = 195
		92	Left = 960
		93	TabIndex = 21
		94	Top = 4440
		95	Width = 1440
		96	End
		97	Begin VB.Label Label19
		98	AutoSize = -1 'True
		99	BackStyle = 0 'Transparent
		100	Caption = "x Goldkronen l19"
		101	BeginProperty Font
		102	Name = "MS Sans Serif"
		103	Size = 8.25
		104	Charset = 0
		105	Weight = 700
		106	Underline = 0 'False
		107	Italic = 0 'False
		108	Strikethrough = 0 'False
		109	EndProperty
		110	ForeColor = &H00FF8080&
		111	Height = 195
		112	Left = 5040
		113	TabIndex = 20
		114	Top = 4440
		115	Width = 1455
		116	End
		117	Begin VB.Label Label20
		118	AutoSize = -1 'True
		119	BackStyle = 0 'Transparent
		120	Caption = "Label20"
		121	BeginProperty Font
		122	Name = "MS Sans Serif"
		123	Size = 8.25
		124	Charset = 0
		125	Weight = 700
		126	Underline = 0 'False
		127	Italic = 0 'False
		128	Strikethrough = 0 'False
		129	EndProperty
		130	ForeColor = &H00FF8080&
		131	Height = 195
		132	Left = 2880
		133	TabIndex = 19
		134	Top = 4440
		135	Width = 690
		136	End
		137	Begin VB.Label Label1
		138	AutoSize = -1 'True
		139	BackStyle = 0 'Transparent
		140	Caption = "Karton's Waffenschmiede"
		141	BeginProperty Font
		142	Name = "Tahoma"
		143	Size = 24
		144	Charset = 0
		145	Weight = 700
		146	Underline = 0 'False
		147	Italic = 0 'False
		148	Strikethrough = 0 'False
		149	EndProperty
		150	ForeColor = &H00FF8080&
		151	Height = 585
		152	Left = 480
		153	TabIndex = 18
		154	Top = 240
		155	Width = 6135
		156	End
		157	Begin VB.Label Label2
		158	AutoSize = -1 'True
		159	BackStyle = 0 'Transparent
		160	Caption = "xxxxxxxxxxxx"
		161	BeginProperty Font
		162	Name = "MS Sans Serif"
		163	Size = 8.25
		164	Charset = 0
		165	Weight = 700
		166	Underline = -1 'True
		167	Italic = 0 'False
		168	Strikethrough = 0 'False
		169	EndProperty
		170	ForeColor = &H00FFFFFF&
		171	Height = 195
		172	Left = 4320
		173	TabIndex = 17
		174	Top = 1440
		175	Width = 1095
		176	End
		177	Begin VB.Label Label3
		178	Alignment = 1 'Right Justify
		179	AutoSize = -1 'True
		180	BackStyle = 0 'Transparent
		181	Caption = "xxx"
		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 = 4620
		194	TabIndex = 16
		195	Top = 1800
		196	Width = 285
		197	End
		198	Begin VB.Label Label5
		199	AutoSize = -1 'True
		200	BackStyle = 0 'Transparent
		201	Caption = "xxx"
		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 = 5040
		214	TabIndex = 15
		215	Top = 1800
		216	Width = 285
		217	End
		218	Begin VB.Label Label6
		219	AutoSize = -1 'True
		220	BackStyle = 0 'Transparent
		221	Caption = "xxx"
		222	BeginProperty Font
		223	Name = "MS Sans Serif"
		224	Size = 8.25
		225	Charset = 0
		226	Weight = 700
		227	Underline = 0 'False
		228	Italic = 0 'False
		229	Strikethrough = 0 'False
		230	EndProperty
		231	ForeColor = &H00FFFFFF&
		232	Height = 195
		233	Left = 4800
		234	TabIndex = 14
		235	Top = 2160
		236	Width = 285
		237	End
		238	Begin VB.Label Label7
		239	AutoSize = -1 'True
		240	BackStyle = 0 'Transparent
		241	Caption = "x"
		242	BeginProperty Font
		243	Name = "MS Sans Serif"
		244	Size = 8.25
		245	Charset = 0
		246	Weight = 700
		247	Underline = 0 'False
		248	Italic = 0 'False
		249	Strikethrough = 0 'False
		250	EndProperty
		251	ForeColor = &H00FFFFFF&
		252	Height = 195
		253	Left = 4920
		254	TabIndex = 13
		255	Top = 2640
		256	Width = 105
		257	End
		258	Begin VB.Label Label8
		259	AutoSize = -1 'True
		260	BackStyle = 0 'Transparent
		261	Caption = "xxxxx"
		262	BeginProperty Font
		263	Name = "MS Sans Serif"
		264	Size = 8.25
		265	Charset = 0
		266	Weight = 700
		267	Underline = 0 'False
		268	Italic = 0 'False
		269	Strikethrough = 0 'False
		270	EndProperty
		271	ForeColor = &H00FFFFFF&
		272	Height = 195
		273	Left = 4680
		274	TabIndex = 12
		275	Top = 3120
		276	Width = 465
		277	End
		278	Begin VB.Label Label9
		279	AutoSize = -1 'True
		280	BackStyle = 0 'Transparent
		281	Caption = "Label9"
		282	BeginProperty Font
		283	Name = "MS Sans Serif"
		284	Size = 8.25
		285	Charset = 0
		286	Weight = 700
		287	Underline = 0 'False
		288	Italic = 0 'False
		289	Strikethrough = 0 'False
		290	EndProperty
		291	ForeColor = &H0000FFFF&
		292	Height = 195
		293	Left = 4320
		294	TabIndex = 11
		295	Top = 3720
		296	Width = 585
		297	End
		298	Begin VB.Label Label4
		299	AutoSize = -1 'True
		300	BackStyle = 0 'Transparent
		301	Caption = "-"
		302	BeginProperty Font
		303	Name = "MS Sans Serif"
		304	Size = 8.25
		305	Charset = 0
		306	Weight = 700
		307	Underline = 0 'False
		308	Italic = 0 'False
		309	Strikethrough = 0 'False
		310	EndProperty
		311	ForeColor = &H00FFFFFF&
		312	Height = 195
		313	Left = 4920
		314	TabIndex = 10
		315	Top = 1800
		316	Width = 75
		317	End
		318	Begin VB.Label Label10
		319	AutoSize = -1 'True
		320	BackStyle = 0 'Transparent
		321	Caption = "Goldkronen"
		322	ForeColor = &H0000FFFF&
		323	Height = 195
		324	Left = 3120
		325	TabIndex = 9
		326	Top = 4200
		327	Width = 825
		328	End
		329	Begin VB.Label Label11
		330	AutoSize = -1 'True
		331	BackStyle = 0 'Transparent
		332	Caption = "Label11"
		333	ForeColor = &H0000FFFF&
		334	Height = 195
		335	Left = 4080
		336	TabIndex = 8
		337	Top = 4200
		338	Width = 570
		339	End
		340	Begin VB.Label label12
		341	AutoSize = -1 'True
		342	BackStyle = 0 'Transparent
		343	Caption = "Schaden"
		344	BeginProperty Font
		345	Name = "MS Sans Serif"
		346	Size = 8.25
		347	Charset = 0
		348	Weight = 700
		349	Underline = 0 'False
		350	Italic = 0 'False
		351	Strikethrough = 0 'False
		352	EndProperty
		353	ForeColor = &H00FFC0C0&
		354	Height = 195
		355	Left = 3360
		356	TabIndex = 7
		357	Top = 1800
		358	Width = 765
		359	End
		360	Begin VB.Label Label13
		361	AutoSize = -1 'True
		362	BackStyle = 0 'Transparent
		363	Caption = "Kategorie"
		364	BeginProperty Font
		365	Name = "MS Sans Serif"
		366	Size = 8.25
		367	Charset = 0
		368	Weight = 700
		369	Underline = 0 'False
		370	Italic = 0 'False
		371	Strikethrough = 0 'False
		372	EndProperty
		373	ForeColor = &H00FFC0C0&
		374	Height = 195
		375	Left = 3360
		376	TabIndex = 6
		377	Top = 2160
		378	Width = 825
		379	End
		380	Begin VB.Label Label14
		381	AutoSize = -1 'True
		382	BackStyle = 0 'Transparent
		383	Caption = "Abzug"
		384	BeginProperty Font
		385	Name = "MS Sans Serif"
		386	Size = 8.25
		387	Charset = 0
		388	Weight = 700
		389	Underline = 0 'False
		390	Italic = 0 'False
		391	Strikethrough = 0 'False
		392	EndProperty
		393	ForeColor = &H00FFC0C0&
		394	Height = 195
		395	Left = 3360
		396	TabIndex = 5
		397	Top = 2640
		398	Width = 540
		399	End
		400	Begin VB.Label Label15
		401	AutoSize = -1 'True
		402	BackStyle = 0 'Transparent
		403	Caption = "Material"
		404	BeginProperty Font
		405	Name = "MS Sans Serif"
		406	Size = 8.25
		407	Charset = 0
		408	Weight = 700
		409	Underline = 0 'False
		410	Italic = 0 'False
		411	Strikethrough = 0 'False
		412	EndProperty
		413	ForeColor = &H00FFC0C0&
		414	Height = 195
		415	Left = 3360
		416	TabIndex = 4
		417	Top = 3120
		418	Width = 690
		419	End
		420	Begin VB.Label Label16
		421	AutoSize = -1 'True
		422	BackStyle = 0 'Transparent
		423	Caption = "Preis"
		424	BeginProperty Font
		425	Name = "MS Sans Serif"
		426	Size = 8.25
		427	Charset = 0
		428	Weight = 700
		429	Underline = 0 'False
		430	Italic = 0 'False
		431	Strikethrough = 0 'False
		432	EndProperty
		433	ForeColor = &H00FFC0C0&
		434	Height = 195
		435	Left = 3360
		436	TabIndex = 3
		437	Top = 3720
		438	Width = 435
		439	End
		440	Begin VB.Shape Shape1
		441	BorderColor = &H00FF0000&
		442	Height = 2775
		443	Left = 3120
		444	Top = 1320
		445	Width = 2775
		446	End
		447	Begin VB.Label Label17
		448	BackStyle = 0 'Transparent
		449	Caption = "#Karton der Waffenschmied#"
		450	BeginProperty Font
		451	Name = "MS Sans Serif"
		452	Size = 8.25
		453	Charset = 0
		454	Weight = 700
		455	Underline = 0 'False
		456	Italic = 0 'False
		457	Strikethrough = 0 'False
		458	EndProperty
		459	ForeColor = &H00E0E0E0&
		460	Height = 1215
		461	Left = 840
		462	TabIndex = 2
		463	Top = 4800
		464	Width = 4455
		465	End
		466	End
		467	Attribute VB_Name = "LgSmith1"
		468	Attribute VB_GlobalNameSpace = False
		469	Attribute VB_Creatable = False
		470	Attribute VB_PredeclaredId = True
		471	Attribute VB_Exposed = False
		472	Private Sub Command1_Click()
		473	Unload LgSmith1
		474	Lindgar.Show
		475	End Sub
		476
		477	Private Sub Command2_Click()
		478	If Text1.Text = "Xajek" Then Label17.Caption = "Xajek ist ein böser Magier. Ich würd ihn gerne mit eigener Hand in die Hölle befördern. Doch er ist viel zu machtvoll, und ohne magie kommt man gegen ihn fast nicht an.": GoTo weiter
		479	weiter:
		480	End Sub
		481
		482	Private Sub Form_Load()
		483	RADIKAL
		484	initial
		485	End Sub
		486
		487	Private Sub Label18_Click()
		488	If waffe = "" Then GoTo kk
		489	gold = gold + zahl
		490	waffe = ""
		491	grundwert = 0
		492	zusatzwert = 0
		493	ABZUG = 0
		494	material = ""
		495	kateg = ""
		496	initial
		497	Label17.Caption = "Danke für's Geschäft!"
		498	kk:
		499	End Sub
		500
		501	Private Sub Label18_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
		502	Dim lHandle As Long
		503	lHandle = LoadCursor(0, HandCursor)
		504	If (lHandle > 0) Then SetCursor lHandle
		505	End Sub
		506
		507	Private Sub Label2_Click()
		508	If typus = "Nekromant" Then GoTo a
		509	If magician = 1 And kkateg = "Ax" Then MsgBox "Als Zauberkundiger darfst du keine Axt tragen!": GoTo nixda
		510	a:
		511	If gold < kpreis Then Label17.Caption = "Tut mir leid, aber etwas Gold bräucht ich auch noch.": GoTo nixda
		512	gold = gold - kpreis
		513	waffe = kwaffe
		514	grundwert = kgrundschaden
		515	zusatzwert = kzusatzschaden
		516	material = kmaterial
		517	ABZUG = kabzug
		518	kateg = kkateg
		519	Label17.Caption = "Gute Wahl!"
		520	initial
		521	nixda:
		522	End Sub
		523
		524	Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
		525	Dim lHandle As Long
		526	lHandle = LoadCursor(0, HandCursor)
		527	If (lHandle > 0) Then SetCursor lHandle
		528	End Sub
		529
		530	Private Sub Label21_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
		531	Dim lHandle As Long
		532	lHandle = LoadCursor(0, HandCursor)
		533	If (lHandle > 0) Then SetCursor lHandle
		534	End Sub
		535
		536	Private Sub List1_Click()
		537	If List1.Text = "Schwert" Then GoTo schwert
		538	If List1.Text = "Breitschwert" Then GoTo breitschwert
		539	If List1.Text = "Handaxt" Then GoTo handaxt
		540	If List1.Text = "Streitaxt" Then GoTo streitaxt
		541	If List1.Text = "Zweihandschwert" Then GoTo bischwert
		542	schwert:
		543	kwaffe = "Schwert"
		544	kgrundschaden = 3
		545	kzusatzschaden = 3
		546	kkateg = "Sch"
		547	kabzug = 0
		548	kmaterial = "Stahl"
		549	kpreis = 100
		550	initial
		551	GoTo weiter
		552	breitschwert:
		553	kwaffe = "Breitschwert"
		554	kgrundschaden = 3
		555	kzusatzschaden = 4
		556	kkateg = "Sch"
		557	kabzug = 0
		558	kmaterial = "Stahl"
		559	kpreis = 160
		560	initial
		561	GoTo weiter
		562	handaxt:
		563	kwaffe = "Handaxt"
		564	kgrundschaden = 4
		565	kzusatzschaden = 4
		566	kkateg = "Ax"
		567	kabzug = 3
		568	kmaterial = "Stahl"
		569	kpreis = 125
		570	initial
		571	GoTo weiter
		572	streitaxt:
		573	kwaffe = "Streitaxt"
		574	kgrundschaden = 6
		575	kzusatzschaden = 6
		576	kkateg = "Ax"
		577	kabzug = 6
		578	kmaterial = "Stahl"
		579	kpreis = 350
		580	initial
		581	GoTo weiter
		582	bischwert:
		583	kwaffe = "Zweihandschwert"
		584	kgrundschaden = 4
		585	kzusatzschaden = 7
		586	kkateg = "Sch"
		587	kabzug = 2
		588	kmaterial = "Stahl"
		589	kpreis = 500
		590	initial
		591	weiter:
		592	End Sub
		593
		594	Sub initial()
		595	Label20.Caption = waffe + " " + Str(grundwert) + "-" + Str(grundwert + zusatzwert)
		596	zahl = grundwert + zusatzwert * 16
		597	Label19.Caption = zahl
		598	Label2.Caption = kwaffe
		599	Label3.Caption = kgrundschaden
		600	Label5.Caption = kgrundschaden + kzusatzschaden
		601	Label6.Caption = kkateg
		602	Label7.Caption = kabzug
		603	Label8.Caption = kmaterial
		604	Label9.Caption = Str(kpreis) + " Goldkronen"
		605	Label11.Caption = gold
		606	End Sub

Subversion Repositories aysalia

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