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

Rev	Author	Line No.	Line
2	daniel-mar	1	VERSION 5.00
		2	Begin VB.Form ShSmith4
		3	BackColor = &H00400000&
		4	BorderStyle = 0 'None
		5	Caption = "ShSmith4"
		6	ClientHeight = 6300
		7	ClientLeft = 0
		8	ClientTop = 0
		9	ClientWidth = 7800
		10	LinkTopic = "ShSmith4"
		11	ScaleHeight = 6300
		12	ScaleWidth = 7800
		13	ShowInTaskbar = 0 'False
		14	StartUpPosition = 2 'CenterScreen
		15	Begin VB.ListBox List1
		16	BackColor = &H00404040&
		17	BeginProperty Font
		18	Name = "Tahoma"
		19	Size = 9.75
		20	Charset = 0
		21	Weight = 700
		22	Underline = 0 'False
		23	Italic = 0 'False
		24	Strikethrough = 0 'False
		25	EndProperty
		26	ForeColor = &H00FFFFFF&
		27	Height = 2700
		28	ItemData = "ShSmith4.frx":0000
		29	Left = 1320
		30	List = "ShSmith4.frx":0010
		31	TabIndex = 1
		32	Top = 1200
		33	Width = 1815
		34	End
		35	Begin VB.CommandButton Command1
		36	BackColor = &H00FF8080&
		37	Cancel = -1 'True
		38	Caption = "Verlassen"
		39	Default = -1 'True
		40	BeginProperty Font
		41	Name = "MS Sans Serif"
		42	Size = 8.25
		43	Charset = 0
		44	Weight = 700
		45	Underline = 0 'False
		46	Italic = 0 'False
		47	Strikethrough = 0 'False
		48	EndProperty
		49	Height = 375
		50	Left = 5640
		51	Style = 1 'Graphical
		52	TabIndex = 0
		53	Top = 4800
		54	Width = 1455
		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 = 5520
		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 = 1080
		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 = 5160
		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 = 3000
		133	TabIndex = 19
		134	Top = 4440
		135	Width = 690
		136	End
		137	Begin VB.Label Label17
		138	BackStyle = 0 'Transparent
		139	Caption = "Talara, Waffenschmiedin"
		140	BeginProperty Font
		141	Name = "MS Sans Serif"
		142	Size = 8.25
		143	Charset = 0
		144	Weight = 700
		145	Underline = 0 'False
		146	Italic = 0 'False
		147	Strikethrough = 0 'False
		148	EndProperty
		149	ForeColor = &H00E0E0E0&
		150	Height = 1215
		151	Left = 1080
		152	TabIndex = 18
		153	Top = 4800
		154	Width = 4455
		155	End
		156	Begin VB.Shape Shape1
		157	BorderColor = &H00FF0000&
		158	Height = 2775
		159	Left = 3240
		160	Top = 1200
		161	Width = 2775
		162	End
		163	Begin VB.Label Label16
		164	AutoSize = -1 'True
		165	BackStyle = 0 'Transparent
		166	Caption = "Preis"
		167	BeginProperty Font
		168	Name = "MS Sans Serif"
		169	Size = 8.25
		170	Charset = 0
		171	Weight = 700
		172	Underline = 0 'False
		173	Italic = 0 'False
		174	Strikethrough = 0 'False
		175	EndProperty
		176	ForeColor = &H00FFC0C0&
		177	Height = 195
		178	Left = 3480
		179	TabIndex = 17
		180	Top = 3600
		181	Width = 435
		182	End
		183	Begin VB.Label Label15
		184	AutoSize = -1 'True
		185	BackStyle = 0 'Transparent
		186	Caption = "Material"
		187	BeginProperty Font
		188	Name = "MS Sans Serif"
		189	Size = 8.25
		190	Charset = 0
		191	Weight = 700
		192	Underline = 0 'False
		193	Italic = 0 'False
		194	Strikethrough = 0 'False
		195	EndProperty
		196	ForeColor = &H00FFC0C0&
		197	Height = 195
		198	Left = 3480
		199	TabIndex = 16
		200	Top = 3000
		201	Width = 690
		202	End
		203	Begin VB.Label Label14
		204	AutoSize = -1 'True
		205	BackStyle = 0 'Transparent
		206	Caption = "Abzug"
		207	BeginProperty Font
		208	Name = "MS Sans Serif"
		209	Size = 8.25
		210	Charset = 0
		211	Weight = 700
		212	Underline = 0 'False
		213	Italic = 0 'False
		214	Strikethrough = 0 'False
		215	EndProperty
		216	ForeColor = &H00FFC0C0&
		217	Height = 195
		218	Left = 3480
		219	TabIndex = 15
		220	Top = 2520
		221	Width = 540
		222	End
		223	Begin VB.Label Label13
		224	AutoSize = -1 'True
		225	BackStyle = 0 'Transparent
		226	Caption = "Kategorie"
		227	BeginProperty Font
		228	Name = "MS Sans Serif"
		229	Size = 8.25
		230	Charset = 0
		231	Weight = 700
		232	Underline = 0 'False
		233	Italic = 0 'False
		234	Strikethrough = 0 'False
		235	EndProperty
		236	ForeColor = &H00FFC0C0&
		237	Height = 195
		238	Left = 3480
		239	TabIndex = 14
		240	Top = 2040
		241	Width = 825
		242	End
		243	Begin VB.Label label12
		244	AutoSize = -1 'True
		245	BackStyle = 0 'Transparent
		246	Caption = "Schaden"
		247	BeginProperty Font
		248	Name = "MS Sans Serif"
		249	Size = 8.25
		250	Charset = 0
		251	Weight = 700
		252	Underline = 0 'False
		253	Italic = 0 'False
		254	Strikethrough = 0 'False
		255	EndProperty
		256	ForeColor = &H00FFC0C0&
		257	Height = 195
		258	Left = 3480
		259	TabIndex = 13
		260	Top = 1680
		261	Width = 765
		262	End
		263	Begin VB.Label Label11
		264	AutoSize = -1 'True
		265	BackStyle = 0 'Transparent
		266	Caption = "Label11"
		267	ForeColor = &H0000FFFF&
		268	Height = 195
		269	Left = 4200
		270	TabIndex = 12
		271	Top = 4080
		272	Width = 570
		273	End
		274	Begin VB.Label Label10
		275	AutoSize = -1 'True
		276	BackStyle = 0 'Transparent
		277	Caption = "Goldkronen"
		278	ForeColor = &H0000FFFF&
		279	Height = 195
		280	Left = 3240
		281	TabIndex = 11
		282	Top = 4080
		283	Width = 825
		284	End
		285	Begin VB.Label Label4
		286	AutoSize = -1 'True
		287	BackStyle = 0 'Transparent
		288	Caption = "-"
		289	BeginProperty Font
		290	Name = "MS Sans Serif"
		291	Size = 8.25
		292	Charset = 0
		293	Weight = 700
		294	Underline = 0 'False
		295	Italic = 0 'False
		296	Strikethrough = 0 'False
		297	EndProperty
		298	ForeColor = &H00FFFFFF&
		299	Height = 195
		300	Left = 5040
		301	TabIndex = 10
		302	Top = 1680
		303	Width = 75
		304	End
		305	Begin VB.Label Label9
		306	AutoSize = -1 'True
		307	BackStyle = 0 'Transparent
		308	Caption = "Label9"
		309	BeginProperty Font
		310	Name = "MS Sans Serif"
		311	Size = 8.25
		312	Charset = 0
		313	Weight = 700
		314	Underline = 0 'False
		315	Italic = 0 'False
		316	Strikethrough = 0 'False
		317	EndProperty
		318	ForeColor = &H0000FFFF&
		319	Height = 195
		320	Left = 4440
		321	TabIndex = 9
		322	Top = 3600
		323	Width = 585
		324	End
		325	Begin VB.Label Label8
		326	AutoSize = -1 'True
		327	BackStyle = 0 'Transparent
		328	Caption = "xxxxx"
		329	BeginProperty Font
		330	Name = "MS Sans Serif"
		331	Size = 8.25
		332	Charset = 0
		333	Weight = 700
		334	Underline = 0 'False
		335	Italic = 0 'False
		336	Strikethrough = 0 'False
		337	EndProperty
		338	ForeColor = &H00FFFFFF&
		339	Height = 195
		340	Left = 4800
		341	TabIndex = 8
		342	Top = 3000
		343	Width = 465
		344	End
		345	Begin VB.Label Label7
		346	AutoSize = -1 'True
		347	BackStyle = 0 'Transparent
		348	Caption = "x"
		349	BeginProperty Font
		350	Name = "MS Sans Serif"
		351	Size = 8.25
		352	Charset = 0
		353	Weight = 700
		354	Underline = 0 'False
		355	Italic = 0 'False
		356	Strikethrough = 0 'False
		357	EndProperty
		358	ForeColor = &H00FFFFFF&
		359	Height = 195
		360	Left = 5040
		361	TabIndex = 7
		362	Top = 2520
		363	Width = 105
		364	End
		365	Begin VB.Label Label6
		366	AutoSize = -1 'True
		367	BackStyle = 0 'Transparent
		368	Caption = "xxx"
		369	BeginProperty Font
		370	Name = "MS Sans Serif"
		371	Size = 8.25
		372	Charset = 0
		373	Weight = 700
		374	Underline = 0 'False
		375	Italic = 0 'False
		376	Strikethrough = 0 'False
		377	EndProperty
		378	ForeColor = &H00FFFFFF&
		379	Height = 195
		380	Left = 4920
		381	TabIndex = 6
		382	Top = 2040
		383	Width = 285
		384	End
		385	Begin VB.Label Label5
		386	AutoSize = -1 'True
		387	BackStyle = 0 'Transparent
		388	Caption = "xxx"
		389	BeginProperty Font
		390	Name = "MS Sans Serif"
		391	Size = 8.25
		392	Charset = 0
		393	Weight = 700
		394	Underline = 0 'False
		395	Italic = 0 'False
		396	Strikethrough = 0 'False
		397	EndProperty
		398	ForeColor = &H00FFFFFF&
		399	Height = 195
		400	Left = 5160
		401	TabIndex = 5
		402	Top = 1680
		403	Width = 285
		404	End
		405	Begin VB.Label Label3
		406	Alignment = 1 'Right Justify
		407	AutoSize = -1 'True
		408	BackStyle = 0 'Transparent
		409	Caption = "xxx"
		410	BeginProperty Font
		411	Name = "MS Sans Serif"
		412	Size = 8.25
		413	Charset = 0
		414	Weight = 700
		415	Underline = 0 'False
		416	Italic = 0 'False
		417	Strikethrough = 0 'False
		418	EndProperty
		419	ForeColor = &H00FFFFFF&
		420	Height = 195
		421	Left = 4740
		422	TabIndex = 4
		423	Top = 1680
		424	Width = 285
		425	End
		426	Begin VB.Label Label2
		427	AutoSize = -1 'True
		428	BackStyle = 0 'Transparent
		429	Caption = "xxxxxxxxxxxx"
		430	BeginProperty Font
		431	Name = "MS Sans Serif"
		432	Size = 8.25
		433	Charset = 0
		434	Weight = 700
		435	Underline = -1 'True
		436	Italic = 0 'False
		437	Strikethrough = 0 'False
		438	EndProperty
		439	ForeColor = &H00FFFFFF&
		440	Height = 195
		441	Left = 4440
		442	TabIndex = 3
		443	Top = 1320
		444	Width = 1095
		445	End
		446	Begin VB.Label Label1
		447	AutoSize = -1 'True
		448	BackStyle = 0 'Transparent
		449	Caption = "Waffenschmiedin Talara"
		450	BeginProperty Font
		451	Name = "Tahoma"
		452	Size = 24
		453	Charset = 0
		454	Weight = 700
		455	Underline = 0 'False
		456	Italic = 0 'False
		457	Strikethrough = 0 'False
		458	EndProperty
		459	ForeColor = &H00FF8080&
		460	Height = 585
		461	Left = 720
		462	TabIndex = 2
		463	Top = 120
		464	Width = 5820
		465	End
		466	End
		467	Attribute VB_Name = "ShSmith4"
		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	Shaela.Show
		474	Unload ShSmith4
		475	End Sub
		476
		477	Private Sub Form_Load()
		478	RADIKAL
		479	initial
		480	End Sub
		481
		482	Private Sub Label18_Click()
		483	If waffe = "" Then GoTo kk
		484	gold = gold + zahl
		485	waffe = ""
		486	grundwert = 0
		487	zusatzwert = 0
		488	ABZUG = 0
		489	material = ""
		490	kateg = ""
		491	initial
		492	Label17.Caption = "Danke für's Geschäft!"
		493	kk:
		494	End Sub
		495
		496	Private Sub Label18_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
		497	Dim lHandle As Long
		498	lHandle = LoadCursor(0, HandCursor)
		499	If (lHandle > 0) Then SetCursor lHandle
		500	End Sub
		501
		502	Private Sub Label2_Click()
		503	If gold < kpreis Then Label17.Caption = "Tut mir leid, aber etwas Gold bräucht ich auch noch.": GoTo nixda
		504	gold = gold - kpreis
		505	waffe = kwaffe
		506	grundwert = kgrundschaden
		507	zusatzwert = kzusatzschaden
		508	material = kmaterial
		509	ABZUG = kabzug
		510	kateg = kkateg
		511	Label17.Caption = "Gute Wahl!"
		512	initial
		513	nixda:
		514	End Sub
		515
		516	Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
		517	Dim lHandle As Long
		518	lHandle = LoadCursor(0, HandCursor)
		519	If (lHandle > 0) Then SetCursor lHandle
		520	End Sub
		521
		522	Private Sub Label21_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
		523	Dim lHandle As Long
		524	lHandle = LoadCursor(0, HandCursor)
		525	If (lHandle > 0) Then SetCursor lHandle
		526	End Sub
		527
		528	Private Sub List1_Click()
		529	If List1.Text = "Jagdspeer" Then GoTo schwert
		530	If List1.Text = "Kriegsspeer" Then GoTo breitschwert
		531	If List1.Text = "Stoßspeer" Then GoTo handaxt
		532	If List1.Text = "Elfenschwert" Then GoTo streitaxt
		533	If List1.Text = "a" Then GoTo bischwert
		534	schwert:
		535	kwaffe = "Jagdspeer"
		536	kgrundschaden = 2
		537	kzusatzschaden = 7
		538	kkateg = "Sp"
		539	kabzug = 0
		540	kmaterial = "Stahl"
		541	kpreis = 120
		542	initial
		543	GoTo weiter
		544	breitschwert:
		545	kwaffe = "Kriegsspeer"
		546	kgrundschaden = 4
		547	kzusatzschaden = 8
		548	kkateg = "Sp"
		549	kabzug = 3
		550	kmaterial = "Stahl"
		551	kpreis = 250
		552	initial
		553	GoTo weiter
		554	handaxt:
		555	kwaffe = "Stoßspeer"
		556	kgrundschaden = 3
		557	kzusatzschaden = 8
		558	kkateg = "Sp"
		559	kabzug = 4
		560	kmaterial = "Stahl"
		561	kpreis = 180
		562	initial
		563	GoTo weiter
		564	streitaxt:
		565	kwaffe = "Elfenschwert"
		566	kgrundschaden = 3
		567	kzusatzschaden = 4
		568	kkateg = "Sch"
		569	kabzug = -2
		570	kmaterial = "Elfisch"
		571	kpreis = 150
		572	initial
		573	GoTo weiter
		574	bischwert:
		575	kwaffe = "Zweihandschwert"
		576	kgrundschaden = 4
		577	kzusatzschaden = 7
		578	kkateg = "Sch"
		579	kabzug = 2
		580	kmaterial = "Stahl"
		581	kpreis = 500
		582	initial
		583	weiter:
		584	End Sub
		585
		586	Sub initial()
		587	Label20.Caption = waffe + " " + Str(grundwert) + "-" + Str(grundwert + zusatzwert)
		588	zahl = grundwert + zusatzwert * 16
		589	Label19.Caption = zahl
		590	Label2.Caption = kwaffe
		591	Label3.Caption = kgrundschaden
		592	Label5.Caption = kgrundschaden + kzusatzschaden
		593	Label6.Caption = kkateg
		594	Label7.Caption = kabzug
		595	Label8.Caption = kmaterial
		596	Label9.Caption = Str(kpreis) + " Goldkronen"
		597	Label11.Caption = gold
		598	End Sub
		599

Subversion Repositories aysalia

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