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

Rev	Author	Line No.	Line
2	daniel-mar	1	VERSION 5.00
		2	Begin VB.Form AzSmith2
		3	BackColor = &H00400000&
		4	BorderStyle = 0 'None
		5	Caption = "AzSmith2"
		6	ClientHeight = 6735
		7	ClientLeft = 0
		8	ClientTop = 0
		9	ClientWidth = 7695
		10	LinkTopic = "AzSmith2"
		11	ScaleHeight = 6735
		12	ScaleWidth = 7695
		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 = 4920
		31	Style = 1 'Graphical
		32	TabIndex = 21
		33	Top = 4440
		34	Width = 1215
		35	End
		36	Begin VB.ListBox List1
		37	BackColor = &H00404040&
		38	BeginProperty Font
		39	Name = "Tahoma"
		40	Size = 9
		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 = 2790
		49	ItemData = "AzSmith2.frx":0000
		50	Left = 1320
		51	List = "AzSmith2.frx":0013
		52	TabIndex = 0
		53	Top = 1080
		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 = 4800
		73	TabIndex = 22
		74	Top = 4920
		75	Width = 750
		76	End
		77	Begin VB.Label Label20
		78	AutoSize = -1 'True
		79	BackStyle = 0 'Transparent
		80	Caption = "Label20"
		81	BeginProperty Font
		82	Name = "MS Sans Serif"
		83	Size = 8.25
		84	Charset = 0
		85	Weight = 700
		86	Underline = 0 'False
		87	Italic = 0 'False
		88	Strikethrough = 0 'False
		89	EndProperty
		90	ForeColor = &H00FF8080&
		91	Height = 195
		92	Left = 3240
		93	TabIndex = 20
		94	Top = 4200
		95	Width = 690
		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 = 5400
		113	TabIndex = 19
		114	Top = 4200
		115	Width = 1455
		116	End
		117	Begin VB.Label Label18
		118	AutoSize = -1 'True
		119	BackStyle = 0 'Transparent
		120	Caption = "Waffe verkaufen"
		121	BeginProperty Font
		122	Name = "MS Sans Serif"
		123	Size = 8.25
		124	Charset = 0
		125	Weight = 700
		126	Underline = -1 'True
		127	Italic = 0 'False
		128	Strikethrough = 0 'False
		129	EndProperty
		130	ForeColor = &H00FF8080&
		131	Height = 195
		132	Left = 1320
		133	TabIndex = 18
		134	Top = 4200
		135	Width = 1440
		136	End
		137	Begin VB.Label Label1
		138	AutoSize = -1 'True
		139	BackStyle = 0 'Transparent
		140	Caption = "Arakia die Waffenschmiedin"
		141	BeginProperty Font
		142	Name = "Tahoma"
		143	Size = 21.75
		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 = 525
		152	Left = 720
		153	TabIndex = 17
		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 = 4440
		173	TabIndex = 16
		174	Top = 1200
		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 = 4740
		194	TabIndex = 15
		195	Top = 1560
		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 = 5160
		214	TabIndex = 14
		215	Top = 1560
		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 = 4920
		234	TabIndex = 13
		235	Top = 1920
		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 = 5040
		254	TabIndex = 12
		255	Top = 2400
		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 = 4800
		274	TabIndex = 11
		275	Top = 2880
		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 = 4440
		294	TabIndex = 10
		295	Top = 3480
		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 = 5040
		314	TabIndex = 9
		315	Top = 1560
		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 = 3240
		325	TabIndex = 8
		326	Top = 3960
		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 = 4200
		336	TabIndex = 7
		337	Top = 3960
		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 = 3480
		356	TabIndex = 6
		357	Top = 1560
		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 = 3480
		376	TabIndex = 5
		377	Top = 1920
		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 = 3480
		396	TabIndex = 4
		397	Top = 2400
		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 = 3480
		416	TabIndex = 3
		417	Top = 2880
		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 = 3480
		436	TabIndex = 2
		437	Top = 3480
		438	Width = 435
		439	End
		440	Begin VB.Shape Shape1
		441	BorderColor = &H00FF0000&
		442	Height = 2775
		443	Left = 3240
		444	Top = 1080
		445	Width = 2775
		446	End
		447	Begin VB.Label Label17
		448	BackStyle = 0 'Transparent
		449	Caption = "Arakia die Waffenschmiedin"
		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 = 960
		462	TabIndex = 1
		463	Top = 4560
		464	Width = 3855
		465	End
		466	End
		467	Attribute VB_Name = "AzSmith2"
		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 AzSmith2
		474	Amazon.Show
		475	End Sub
		476
		477	Private Sub Command2_Click()
		478	a = Text1.Text
		479	If a = "Xajek" Then Label17.Caption = "Xajek? Hör bloß auf, ich hab schon genug von dem!": GoTo suck
		480	If a = "Sumpf" Then Label17.Caption = "Im Sumpf war ich auch schon mal, mit ein paar unserer Jäger, doch sie wurden von Riesenskorpionen getötet. Ich konnte fliehen.": GoTo suck
		481	If a = "Kristallsee" Then Label17.Caption = "Das legendäre Kristallschwert ist in ihm verbannt worden, dass möcht ich gern haben.": GoTo suck
		482	Label17.Caption = "Tja, da fragst du mich was."
		483	suck:
		484	End Sub
		485
		486	Private Sub Form_Load()
		487	RADIKAL
		488	initial
		489	End Sub
		490
		491	Private Sub Label18_Click()
		492	If waffe = "" Then GoTo kk
		493	gold = gold + zahl
		494	waffe = ""
		495	grundwert = 0
		496	zusatzwert = 0
		497	ABZUG = 0
		498	material = ""
		499	kateg = ""
		500	initial
		501	Label17.Caption = "Danke für's Geschäft!"
		502	kk:
		503	End Sub
		504
		505	Private Sub Label18_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
		506	Dim lHandle As Long
		507	lHandle = LoadCursor(0, HandCursor)
		508	If (lHandle > 0) Then SetCursor lHandle
		509	End Sub
		510
		511	Private Sub Label2_Click()
		512	If gold < kpreis Then Label17.Caption = "Du solltest schon etwas Gold dabei haben.": GoTo nixda
		513	gold = gold - kpreis
		514	waffe = kwaffe
		515	grundwert = kgrundschaden
		516	zusatzwert = kzusatzschaden
		517	material = kmaterial
		518	ABZUG = kabzug
		519	kateg = kkateg
		520	Label17.Caption = "Viel Spaß beim töten!"
		521	initial
		522	nixda:
		523	End Sub
		524
		525	Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
		526	Dim lHandle As Long
		527	lHandle = LoadCursor(0, HandCursor)
		528	If (lHandle > 0) Then SetCursor lHandle
		529	End Sub
		530
		531	Private Sub Label21_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
		532	Dim lHandle As Long
		533	lHandle = LoadCursor(0, HandCursor)
		534	If (lHandle > 0) Then SetCursor lHandle
		535	End Sub
		536
		537	Private Sub List1_Click()
		538	If List1.Text = "Streitkolben" Then GoTo schwert
		539	If List1.Text = "Amazonensäbel" Then GoTo breitschwert
		540	If List1.Text = "Kriegshammer" Then GoTo handaxt
		541	If List1.Text = "Morgenstern" Then GoTo streitaxt
		542	If List1.Text = "Kriegsspeer" Then GoTo bischwert
		543	schwert:
		544	kwaffe = "Streitkolben"
		545	kgrundschaden = 2
		546	kzusatzschaden = 5
		547	kkateg = "Hie"
		548	kabzug = 0
		549	kmaterial = "Stahl"
		550	kpreis = 85
		551	initial
		552	GoTo weiter
		553	breitschwert:
		554	kwaffe = "Amazonensäbel"
		555	kgrundschaden = 4
		556	kzusatzschaden = 2
		557	kkateg = "Sch"
		558	kabzug = 0
		559	kmaterial = "Stahl"
		560	kpreis = 125
		561	initial
		562	GoTo weiter
		563	handaxt:
		564	kwaffe = "Kriegshammer"
		565	kgrundschaden = 4
		566	kzusatzschaden = 6
		567	kkateg = "Hie"
		568	kabzug = 2
		569	kmaterial = "Stahl"
		570	kpreis = 175
		571	initial
		572	GoTo weiter
		573	streitaxt:
		574	kwaffe = "Morgenstern"
		575	kgrundschaden = 2
		576	kzusatzschaden = 10
		577	kkateg = "Hie"
		578	kabzug = 3
		579	kmaterial = "Stahl"
		580	kpreis = 130
		581	initial
		582	GoTo weiter
		583	bischwert:
		584	kwaffe = "Kriegsspeer"
		585	kgrundschaden = 2
		586	kzusatzschaden = 12
		587	kkateg = "Sp"
		588	kabzug = 1
		589	kmaterial = "Stahl"
		590	kpreis = 200
		591	initial
		592	weiter:
		593	End Sub
		594
		595	Sub initial()
		596	Label20.Caption = waffe + " " + Str(grundwert) + "-" + Str(grundwert + zusatzwert)
		597	zahl = grundwert + zusatzwert * 16
		598	Label19.Caption = zahl
		599	Label2.Caption = kwaffe
		600	Label3.Caption = kgrundschaden
		601	Label5.Caption = kgrundschaden + kzusatzschaden
		602	Label6.Caption = kkateg
		603	Label7.Caption = kabzug
		604	Label8.Caption = kmaterial
		605	Label9.Caption = Str(kpreis) + " Goldkronen"
		606	Label11.Caption = gold
		607	End Sub
		608

Subversion Repositories aysalia

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