WebSVN – aysalia – Blame – /trunk/Zeitalter der Dämonen/Manager.frm

Rev	Author	Line No.	Line
2	daniel-mar	1	VERSION 5.00
		2	Begin VB.Form Manager
		3	BackColor = &H00000000&
		4	BorderStyle = 1 'Fixed Single
		5	Caption = "Charakter Manager"
		6	ClientHeight = 7170
		7	ClientLeft = 45
		8	ClientTop = 360
		9	ClientWidth = 4770
		10	ClipControls = 0 'False
		11	ControlBox = 0 'False
		12	LinkTopic = "Manager"
		13	MaxButton = 0 'False
		14	MinButton = 0 'False
		15	ScaleHeight = 7170
		16	ScaleWidth = 4770
		17	Begin VB.CommandButton Command10
		18	BackColor = &H00E0E0E0&
		19	Caption = "Speichern"
		20	BeginProperty Font
		21	Name = "Arial"
		22	Size = 8.25
		23	Charset = 0
		24	Weight = 400
		25	Underline = 0 'False
		26	Italic = 0 'False
		27	Strikethrough = 0 'False
		28	EndProperty
		29	Height = 255
		30	Left = 3360
		31	Style = 1 'Graphical
		32	TabIndex = 40
		33	Top = 2160
		34	Width = 975
		35	End
		36	Begin VB.CommandButton Command8
		37	BackColor = &H00E0E0E0&
		38	Cancel = -1 'True
		39	Caption = "Beenden"
		40	Height = 255
		41	Left = 3360
		42	Style = 1 'Graphical
		43	TabIndex = 39
		44	Top = 2400
		45	Width = 975
		46	End
		47	Begin VB.CommandButton Command9
		48	BackColor = &H00E0E0E0&
		49	Caption = "Command9"
		50	Enabled = 0 'False
		51	Height = 255
		52	Left = 2880
		53	Style = 1 'Graphical
		54	TabIndex = 32
		55	Top = 840
		56	Visible = 0 'False
		57	Width = 1575
		58	End
		59	Begin VB.CommandButton Command1
		60	BackColor = &H00E0E0E0&
		61	Caption = "Ausrüsten"
		62	Height = 255
		63	Left = 3000
		64	Style = 1 'Graphical
		65	TabIndex = 31
		66	Top = 4080
		67	Width = 1455
		68	End
		69	Begin VB.Frame Frame3
		70	BackColor = &H00000000&
		71	Caption = "Eigenschaftswerte"
		72	BeginProperty Font
		73	Name = "MS Sans Serif"
		74	Size = 9.75
		75	Charset = 0
		76	Weight = 700
		77	Underline = 0 'False
		78	Italic = 0 'False
		79	Strikethrough = 0 'False
		80	EndProperty
		81	ForeColor = &H0000FFFF&
		82	Height = 2535
		83	Left = 240
		84	TabIndex = 8
		85	Top = 3960
		86	Width = 2655
		87	Begin VB.CommandButton Command6
		88	BackColor = &H00E0E0E0&
		89	Caption = "+"
		90	Enabled = 0 'False
		91	BeginProperty Font
		92	Name = "Arial"
		93	Size = 9.75
		94	Charset = 0
		95	Weight = 700
		96	Underline = 0 'False
		97	Italic = 0 'False
		98	Strikethrough = 0 'False
		99	EndProperty
		100	Height = 255
		101	Left = 2280
		102	Style = 1 'Graphical
		103	TabIndex = 11
		104	Top = 480
		105	Width = 255
		106	End
		107	Begin VB.CommandButton Command5
		108	BackColor = &H00E0E0E0&
		109	Caption = "+"
		110	Enabled = 0 'False
		111	BeginProperty Font
		112	Name = "Arial"
		113	Size = 9.75
		114	Charset = 0
		115	Weight = 700
		116	Underline = 0 'False
		117	Italic = 0 'False
		118	Strikethrough = 0 'False
		119	EndProperty
		120	Height = 255
		121	Left = 2280
		122	Style = 1 'Graphical
		123	TabIndex = 10
		124	Top = 840
		125	Width = 255
		126	End
		127	Begin VB.CommandButton Command4
		128	BackColor = &H00E0E0E0&
		129	Caption = "+"
		130	Enabled = 0 'False
		131	BeginProperty Font
		132	Name = "Arial"
		133	Size = 9.75
		134	Charset = 0
		135	Weight = 700
		136	Underline = 0 'False
		137	Italic = 0 'False
		138	Strikethrough = 0 'False
		139	EndProperty
		140	Height = 255
		141	Left = 2280
		142	Style = 1 'Graphical
		143	TabIndex = 9
		144	Top = 1200
		145	Width = 255
		146	End
		147	Begin VB.Label Label10
		148	AutoSize = -1 'True
		149	BackStyle = 0 'Transparent
		150	Caption = "/"
		151	BeginProperty Font
		152	Name = "Arial"
		153	Size = 9.75
		154	Charset = 0
		155	Weight = 700
		156	Underline = 0 'False
		157	Italic = 0 'False
		158	Strikethrough = 0 'False
		159	EndProperty
		160	ForeColor = &H0000FFFF&
		161	Height = 240
		162	Left = 2160
		163	TabIndex = 27
		164	Top = 2040
		165	Width = 60
		166	End
		167	Begin VB.Label Label9
		168	AutoSize = -1 'True
		169	BackStyle = 0 'Transparent
		170	Caption = "/"
		171	BeginProperty Font
		172	Name = "Arial"
		173	Size = 9.75
		174	Charset = 0
		175	Weight = 700
		176	Underline = 0 'False
		177	Italic = 0 'False
		178	Strikethrough = 0 'False
		179	EndProperty
		180	ForeColor = &H0000FFFF&
		181	Height = 240
		182	Left = 2160
		183	TabIndex = 26
		184	Top = 1680
		185	Width = 60
		186	End
		187	Begin VB.Label Label8
		188	Alignment = 2 'Center
		189	BackColor = &H00008000&
		190	BorderStyle = 1 'Fixed Single
		191	Caption = "000"
		192	BeginProperty Font
		193	Name = "Arial"
		194	Size = 8.25
		195	Charset = 0
		196	Weight = 700
		197	Underline = 0 'False
		198	Italic = 0 'False
		199	Strikethrough = 0 'False
		200	EndProperty
		201	ForeColor = &H00FFFFFF&
		202	Height = 270
		203	Left = 2280
		204	TabIndex = 25
		205	Top = 2040
		206	Width = 330
		207	End
		208	Begin VB.Label Label7
		209	Alignment = 2 'Center
		210	BackColor = &H00008000&
		211	BorderStyle = 1 'Fixed Single
		212	Caption = "000"
		213	BeginProperty Font
		214	Name = "Arial"
		215	Size = 8.25
		216	Charset = 0
		217	Weight = 700
		218	Underline = 0 'False
		219	Italic = 0 'False
		220	Strikethrough = 0 'False
		221	EndProperty
		222	ForeColor = &H00FFFFFF&
		223	Height = 270
		224	Left = 2280
		225	TabIndex = 24
		226	Top = 1680
		227	Width = 330
		228	End
		229	Begin VB.Label Label12
		230	AutoSize = -1 'True
		231	BackStyle = 0 'Transparent
		232	Caption = "Stärke"
		233	BeginProperty Font
		234	Name = "Arial"
		235	Size = 9.75
		236	Charset = 0
		237	Weight = 700
		238	Underline = 0 'False
		239	Italic = 0 'False
		240	Strikethrough = 0 'False
		241	EndProperty
		242	ForeColor = &H00FFFFFF&
		243	Height = 240
		244	Left = 120
		245	TabIndex = 21
		246	Top = 480
		247	Width = 615
		248	End
		249	Begin VB.Label Label13
		250	AutoSize = -1 'True
		251	BackStyle = 0 'Transparent
		252	Caption = "Gewandtheit"
		253	BeginProperty Font
		254	Name = "Arial"
		255	Size = 9.75
		256	Charset = 0
		257	Weight = 700
		258	Underline = 0 'False
		259	Italic = 0 'False
		260	Strikethrough = 0 'False
		261	EndProperty
		262	ForeColor = &H00FFFFFF&
		263	Height = 240
		264	Left = 120
		265	TabIndex = 20
		266	Top = 840
		267	Width = 1215
		268	End
		269	Begin VB.Label Label14
		270	AutoSize = -1 'True
		271	BackStyle = 0 'Transparent
		272	Caption = "Intelligenz"
		273	BeginProperty Font
		274	Name = "Arial"
		275	Size = 9.75
		276	Charset = 0
		277	Weight = 700
		278	Underline = 0 'False
		279	Italic = 0 'False
		280	Strikethrough = 0 'False
		281	EndProperty
		282	ForeColor = &H00FFFFFF&
		283	Height = 240
		284	Left = 120
		285	TabIndex = 19
		286	Top = 1200
		287	Width = 1005
		288	End
		289	Begin VB.Label Label15
		290	AutoSize = -1 'True
		291	BackColor = &H00C00000&
		292	BorderStyle = 1 'Fixed Single
		293	Caption = "000"
		294	BeginProperty Font
		295	Name = "Arial"
		296	Size = 8.25
		297	Charset = 0
		298	Weight = 700
		299	Underline = 0 'False
		300	Italic = 0 'False
		301	Strikethrough = 0 'False
		302	EndProperty
		303	ForeColor = &H00FFFFFF&
		304	Height = 270
		305	Left = 1800
		306	TabIndex = 18
		307	Top = 480
		308	Width = 330
		309	End
		310	Begin VB.Label Label16
		311	AutoSize = -1 'True
		312	BackColor = &H00C00000&
		313	BorderStyle = 1 'Fixed Single
		314	Caption = "000"
		315	BeginProperty Font
		316	Name = "Arial"
		317	Size = 8.25
		318	Charset = 0
		319	Weight = 700
		320	Underline = 0 'False
		321	Italic = 0 'False
		322	Strikethrough = 0 'False
		323	EndProperty
		324	ForeColor = &H00FFFFFF&
		325	Height = 270
		326	Left = 1800
		327	TabIndex = 17
		328	Top = 840
		329	Width = 330
		330	End
		331	Begin VB.Label Label17
		332	AutoSize = -1 'True
		333	BackColor = &H00C00000&
		334	BorderStyle = 1 'Fixed Single
		335	Caption = "000"
		336	BeginProperty Font
		337	Name = "Arial"
		338	Size = 8.25
		339	Charset = 0
		340	Weight = 700
		341	Underline = 0 'False
		342	Italic = 0 'False
		343	Strikethrough = 0 'False
		344	EndProperty
		345	ForeColor = &H00FFFFFF&
		346	Height = 270
		347	Left = 1800
		348	TabIndex = 16
		349	Top = 1200
		350	Width = 330
		351	End
		352	Begin VB.Label Label18
		353	AutoSize = -1 'True
		354	BackStyle = 0 'Transparent
		355	Caption = "Lebensenergie"
		356	BeginProperty Font
		357	Name = "Arial"
		358	Size = 9.75
		359	Charset = 0
		360	Weight = 700
		361	Underline = 0 'False
		362	Italic = 0 'False
		363	Strikethrough = 0 'False
		364	EndProperty
		365	ForeColor = &H000000FF&
		366	Height = 240
		367	Left = 120
		368	TabIndex = 15
		369	Top = 1680
		370	Width = 1425
		371	End
		372	Begin VB.Label Label19
		373	AutoSize = -1 'True
		374	BackStyle = 0 'Transparent
		375	Caption = "Mana"
		376	BeginProperty Font
		377	Name = "Arial"
		378	Size = 9.75
		379	Charset = 0
		380	Weight = 700
		381	Underline = 0 'False
		382	Italic = 0 'False
		383	Strikethrough = 0 'False
		384	EndProperty
		385	ForeColor = &H00FF0000&
		386	Height = 240
		387	Left = 120
		388	TabIndex = 14
		389	Top = 2040
		390	Width = 525
		391	End
		392	Begin VB.Label Label20
		393	Alignment = 2 'Center
		394	BackColor = &H000000C0&
		395	BorderStyle = 1 'Fixed Single
		396	Caption = "000"
		397	BeginProperty Font
		398	Name = "Arial"
		399	Size = 8.25
		400	Charset = 0
		401	Weight = 700
		402	Underline = 0 'False
		403	Italic = 0 'False
		404	Strikethrough = 0 'False
		405	EndProperty
		406	ForeColor = &H00FFFFFF&
		407	Height = 270
		408	Left = 1800
		409	TabIndex = 13
		410	Top = 1680
		411	Width = 330
		412	End
		413	Begin VB.Label Label21
		414	Alignment = 2 'Center
		415	BackColor = &H00800000&
		416	BorderStyle = 1 'Fixed Single
		417	Caption = "000"
		418	BeginProperty Font
		419	Name = "Arial"
		420	Size = 8.25
		421	Charset = 0
		422	Weight = 700
		423	Underline = 0 'False
		424	Italic = 0 'False
		425	Strikethrough = 0 'False
		426	EndProperty
		427	ForeColor = &H00FFFFFF&
		428	Height = 270
		429	Left = 1800
		430	TabIndex = 12
		431	Top = 2040
		432	Width = 330
		433	End
		434	End
		435	Begin VB.ComboBox SpruchBuch
		436	BackColor = &H00000040&
		437	BeginProperty Font
		438	Name = "MS Sans Serif"
		439	Size = 9.75
		440	Charset = 0
		441	Weight = 700
		442	Underline = 0 'False
		443	Italic = 0 'False
		444	Strikethrough = 0 'False
		445	EndProperty
		446	ForeColor = &H00FFFFFF&
		447	Height = 360
		448	ItemData = "Manager.frx":0000
		449	Left = 165
		450	List = "Manager.frx":0002
		451	Style = 2 'Dropdown List
		452	TabIndex = 2
		453	Top = 2895
		454	Width = 1815
		455	End
		456	Begin VB.CommandButton Command2
		457	BackColor = &H00E0E0E0&
		458	Caption = "Objekt wegwerfen"
		459	Enabled = 0 'False
		460	BeginProperty Font
		461	Name = "Arial"
		462	Size = 8.25
		463	Charset = 0
		464	Weight = 400
		465	Underline = 0 'False
		466	Italic = 0 'False
		467	Strikethrough = 0 'False
		468	EndProperty
		469	Height = 375
		470	Left = 2880
		471	Style = 1 'Graphical
		472	TabIndex = 1
		473	Top = 360
		474	Width = 1575
		475	End
		476	Begin VB.ListBox Inventar
		477	BackColor = &H00400000&
		478	BeginProperty Font
		479	Name = "Arial"
		480	Size = 8.25
		481	Charset = 0
		482	Weight = 700
		483	Underline = 0 'False
		484	Italic = 0 'False
		485	Strikethrough = 0 'False
		486	EndProperty
		487	ForeColor = &H00FFFFFF&
		488	Height = 2160
		489	ItemData = "Manager.frx":0004
		490	Left = 240
		491	List = "Manager.frx":0006
		492	Sorted = -1 'True
		493	TabIndex = 0
		494	Top = 360
		495	Width = 2535
		496	End
		497	Begin VB.Label Label32
		498	AutoSize = -1 'True
		499	BackStyle = 0 'Transparent
		500	Caption = "24"
		501	BeginProperty Font
		502	Name = "Arial"
		503	Size = 9
		504	Charset = 0
		505	Weight = 700
		506	Underline = 0 'False
		507	Italic = 0 'False
		508	Strikethrough = 0 'False
		509	EndProperty
		510	ForeColor = &H00FFFFFF&
		511	Height = 225
		512	Left = 3600
		513	TabIndex = 44
		514	Top = 6840
		515	Width = 210
		516	End
		517	Begin VB.Label Label31
		518	AutoSize = -1 'True
		519	BackStyle = 0 'Transparent
		520	Caption = ":"
		521	BeginProperty Font
		522	Name = "Arial"
		523	Size = 9
		524	Charset = 0
		525	Weight = 700
		526	Underline = 0 'False
		527	Italic = 0 'False
		528	Strikethrough = 0 'False
		529	EndProperty
		530	ForeColor = &H00FFFFFF&
		531	Height = 225
		532	Left = 3840
		533	TabIndex = 43
		534	Top = 6840
		535	Width = 45
		536	End
		537	Begin VB.Label Label30
		538	AutoSize = -1 'True
		539	BackStyle = 0 'Transparent
		540	Caption = "00"
		541	BeginProperty Font
		542	Name = "Arial"
		543	Size = 9
		544	Charset = 0
		545	Weight = 700
		546	Underline = 0 'False
		547	Italic = 0 'False
		548	Strikethrough = 0 'False
		549	EndProperty
		550	ForeColor = &H00FFFFFF&
		551	Height = 225
		552	Left = 3960
		553	TabIndex = 42
		554	Top = 6840
		555	Width = 210
		556	End
		557	Begin VB.Label Label1
		558	AutoSize = -1 'True
		559	BackStyle = 0 'Transparent
		560	Caption = "Uhr"
		561	BeginProperty Font
		562	Name = "Arial"
		563	Size = 9
		564	Charset = 0
		565	Weight = 700
		566	Underline = 0 'False
		567	Italic = 0 'False
		568	Strikethrough = 0 'False
		569	EndProperty
		570	ForeColor = &H00FFFFFF&
		571	Height = 225
		572	Left = 4320
		573	TabIndex = 41
		574	Top = 6840
		575	Width = 300
		576	End
		577	Begin VB.Label Label29
		578	AutoSize = -1 'True
		579	BackStyle = 0 'Transparent
		580	Caption = "Kraftschaden"
		581	BeginProperty Font
		582	Name = "Arial"
		583	Size = 8.25
		584	Charset = 0
		585	Weight = 700
		586	Underline = 0 'False
		587	Italic = 0 'False
		588	Strikethrough = 0 'False
		589	EndProperty
		590	ForeColor = &H00FFFFFF&
		591	Height = 210
		592	Left = 3000
		593	TabIndex = 38
		594	Top = 4440
		595	Width = 1095
		596	End
		597	Begin VB.Label Label28
		598	Alignment = 2 'Center
		599	BackStyle = 0 'Transparent
		600	Caption = "Label28"
		601	BeginProperty Font
		602	Name = "Arial"
		603	Size = 8.25
		604	Charset = 0
		605	Weight = 700
		606	Underline = 0 'False
		607	Italic = 0 'False
		608	Strikethrough = 0 'False
		609	EndProperty
		610	ForeColor = &H0000FFFF&
		611	Height = 255
		612	Left = 3000
		613	TabIndex = 37
		614	Top = 6240
		615	Width = 1455
		616	End
		617	Begin VB.Label Label27
		618	Alignment = 2 'Center
		619	BackStyle = 0 'Transparent
		620	Caption = "Label27"
		621	BeginProperty Font
		622	Name = "Arial"
		623	Size = 8.25
		624	Charset = 0
		625	Weight = 700
		626	Underline = 0 'False
		627	Italic = 0 'False
		628	Strikethrough = 0 'False
		629	EndProperty
		630	ForeColor = &H0000FFFF&
		631	Height = 255
		632	Left = 3000
		633	TabIndex = 36
		634	Top = 5760
		635	Width = 1455
		636	End
		637	Begin VB.Label Label26
		638	Alignment = 2 'Center
		639	BackStyle = 0 'Transparent
		640	Caption = "Stufe 0"
		641	BeginProperty Font
		642	Name = "Arial"
		643	Size = 8.25
		644	Charset = 0
		645	Weight = 700
		646	Underline = 0 'False
		647	Italic = 0 'False
		648	Strikethrough = 0 'False
		649	EndProperty
		650	ForeColor = &H008080FF&
		651	Height = 210
		652	Left = 3000
		653	TabIndex = 35
		654	Top = 5280
		655	Width = 1500
		656	End
		657	Begin VB.Label Label25
		658	Alignment = 2 'Center
		659	BackStyle = 0 'Transparent
		660	Caption = "Nächste Stufe"
		661	BeginProperty Font
		662	Name = "Arial"
		663	Size = 8.25
		664	Charset = 0
		665	Weight = 700
		666	Underline = 0 'False
		667	Italic = 0 'False
		668	Strikethrough = 0 'False
		669	EndProperty
		670	ForeColor = &H00FFFFFF&
		671	Height = 210
		672	Left = 3000
		673	TabIndex = 34
		674	Top = 6000
		675	Width = 1500
		676	End
		677	Begin VB.Label Label24
		678	Alignment = 2 'Center
		679	BackStyle = 0 'Transparent
		680	Caption = "Erfahrungspunkte"
		681	BeginProperty Font
		682	Name = "Arial"
		683	Size = 8.25
		684	Charset = 0
		685	Weight = 700
		686	Underline = 0 'False
		687	Italic = 0 'False
		688	Strikethrough = 0 'False
		689	EndProperty
		690	ForeColor = &H00FFFFFF&
		691	Height = 210
		692	Left = 3000
		693	TabIndex = 33
		694	Top = 5520
		695	Width = 1500
		696	End
		697	Begin VB.Label Label23
		698	Alignment = 1 'Right Justify
		699	BackStyle = 0 'Transparent
		700	BeginProperty Font
		701	Name = "Arial"
		702	Size = 8.25
		703	Charset = 0
		704	Weight = 700
		705	Underline = 0 'False
		706	Italic = 0 'False
		707	Strikethrough = 0 'False
		708	EndProperty
		709	ForeColor = &H0000FFFF&
		710	Height = 255
		711	Left = 1800
		712	TabIndex = 30
		713	Top = 3600
		714	Width = 1575
		715	End
		716	Begin VB.Label Label22
		717	Alignment = 2 'Center
		718	BackStyle = 0 'Transparent
		719	Caption = "000"
		720	BeginProperty Font
		721	Name = "Arial"
		722	Size = 9
		723	Charset = 0
		724	Weight = 700
		725	Underline = 0 'False
		726	Italic = 0 'False
		727	Strikethrough = 0 'False
		728	EndProperty
		729	ForeColor = &H0000FFFF&
		730	Height = 210
		731	Left = 3000
		732	TabIndex = 29
		733	Top = 1680
		734	Width = 1455
		735	End
		736	Begin VB.Label Label11
		737	AutoSize = -1 'True
		738	BackStyle = 0 'Transparent
		739	Caption = "Goldkronen"
		740	BeginProperty Font
		741	Name = "Arial"
		742	Size = 8.25
		743	Charset = 0
		744	Weight = 700
		745	Underline = 0 'False
		746	Italic = 0 'False
		747	Strikethrough = 0 'False
		748	EndProperty
		749	ForeColor = &H0000FFFF&
		750	Height = 210
		751	Left = 3240
		752	TabIndex = 28
		753	Top = 1440
		754	Width = 975
		755	End
		756	Begin VB.Label Label52
		757	AutoSize = -1 'True
		758	BackStyle = 0 'Transparent
		759	Caption = "Eigenschaftspunkte"
		760	BeginProperty Font
		761	Name = "Arial"
		762	Size = 9.75
		763	Charset = 0
		764	Weight = 700
		765	Underline = 0 'False
		766	Italic = 0 'False
		767	Strikethrough = 0 'False
		768	EndProperty
		769	ForeColor = &H00FFFFFF&
		770	Height = 240
		771	Left = 240
		772	TabIndex = 23
		773	Top = 6720
		774	Width = 1830
		775	End
		776	Begin VB.Label Label55
		777	AutoSize = -1 'True
		778	BackColor = &H00FF0000&
		779	BorderStyle = 1 'Fixed Single
		780	Caption = "0"
		781	BeginProperty Font
		782	Name = "Arial"
		783	Size = 9
		784	Charset = 0
		785	Weight = 700
		786	Underline = 0 'False
		787	Italic = 0 'False
		788	Strikethrough = 0 'False
		789	EndProperty
		790	ForeColor = &H0000FFFF&
		791	Height = 285
		792	Left = 2520
		793	TabIndex = 22
		794	Top = 6720
		795	Width = 165
		796	End
		797	Begin VB.Label Label6
		798	AutoSize = -1 'True
		799	BackStyle = 0 'Transparent
		800	Caption = "XXXXX"
		801	BeginProperty Font
		802	Name = "Arial"
		803	Size = 8.25
		804	Charset = 0
		805	Weight = 700
		806	Underline = 0 'False
		807	Italic = 0 'False
		808	Strikethrough = 0 'False
		809	EndProperty
		810	ForeColor = &H008080FF&
		811	Height = 210
		812	Left = 1080
		813	TabIndex = 7
		814	Top = 3555
		815	Width = 525
		816	End
		817	Begin VB.Label Label5
		818	AutoSize = -1 'True
		819	BackStyle = 0 'Transparent
		820	Caption = "XXXXX"
		821	BeginProperty Font
		822	Name = "Arial"
		823	Size = 8.25
		824	Charset = 0
		825	Weight = 700
		826	Underline = 0 'False
		827	Italic = 0 'False
		828	Strikethrough = 0 'False
		829	EndProperty
		830	ForeColor = &H008080FF&
		831	Height = 210
		832	Left = 1080
		833	TabIndex = 6
		834	Top = 3300
		835	Width = 525
		836	End
		837	Begin VB.Label Label4
		838	AutoSize = -1 'True
		839	BackStyle = 0 'Transparent
		840	Caption = "Mana"
		841	BeginProperty Font
		842	Name = "Arial"
		843	Size = 8.25
		844	Charset = 0
		845	Weight = 700
		846	Underline = 0 'False
		847	Italic = 0 'False
		848	Strikethrough = 0 'False
		849	EndProperty
		850	ForeColor = &H00FFFFFF&
		851	Height = 210
		852	Left = 165
		853	TabIndex = 5
		854	Top = 3555
		855	Width = 435
		856	End
		857	Begin VB.Label Label3
		858	BackStyle = 0 'Transparent
		859	Caption = "Beschreibung"
		860	BeginProperty Font
		861	Name = "Arial"
		862	Size = 8.25
		863	Charset = 0
		864	Weight = 700
		865	Underline = 0 'False
		866	Italic = 0 'False
		867	Strikethrough = 0 'False
		868	EndProperty
		869	ForeColor = &H00FFC0C0&
		870	Height = 495
		871	Left = 2160
		872	TabIndex = 4
		873	Top = 2880
		874	Width = 2415
		875	End
		876	Begin VB.Label Label2
		877	AutoSize = -1 'True
		878	BackStyle = 0 'Transparent
		879	Caption = "Kategorie"
		880	BeginProperty Font
		881	Name = "Arial"
		882	Size = 8.25
		883	Charset = 0
		884	Weight = 700
		885	Underline = 0 'False
		886	Italic = 0 'False
		887	Strikethrough = 0 'False
		888	EndProperty
		889	ForeColor = &H00FFFFFF&
		890	Height = 210
		891	Left = 165
		892	TabIndex = 3
		893	Top = 3300
		894	Width = 795
		895	End
		896	Begin VB.Shape Shape1
		897	BorderColor = &H00FF0000&
		898	Height = 2655
		899	Left = 120
		900	Top = 180
		901	Width = 4455
		902	End
		903	End
		904	Attribute VB_Name = "Manager"
		905	Attribute VB_GlobalNameSpace = False
		906	Attribute VB_Creatable = False
		907	Attribute VB_PredeclaredId = True
		908	Attribute VB_Exposed = False
		909
		910
		911	Private Sub Command1_Click()
		912	dqWAFFE = ""
		913	Equipment.Show
		914	End Sub
		915
		916	Private Sub Command10_Click()
		917
		918	Open GetPath & "ZDD.sav" For Output As #1
		919	Print #1, Nom
		920	Print #1, Woche
		921	Print #1, Typus
		922	Print #1, Waffe
		923	Print #1, Kategorie
		924	Print #1, Material
		925	Print #1, Rüstung
		926	Print #1, Rmaterial
		927	Print #1, Helm
		928	Print #1, Schild
		929	Print #1, Umhang
		930	Print #1, Schusswaffe
		931	Print #1, SwKategorie
		932	Print #1, Inhalt
		933	Print #1, Truhe
		934	Print #1, There
		935	Print #1, GdAst
		936	Print #1, DhDst
		937	Print #1, ADst; ZdCst; Celison
		938	Print #1, Epoints; Strength; Speed; Iq
		939	Print #1, STARThp; STARTmp; SCHWERTER; ÄXTE; SPEERE; HIEBWAFFEN; SCHUSSWAFFEN
		940	Print #1, CHAOS; LICHT; NATUR; NEKROMANTIE
		941	Print #1, ALCHEMIE; WUNDENHEILEN; FEILSCHEN; STEHLEN; PFLANZENKUNDE
		942	Print #1, Magician; STplus; SPplus; IQplus; Gold
		943	Print #1, Bücherausweis; Fliehen
		944	Print #1, Hp; MP; KrAnK; VeRgIfTeT
		945	Print #1, Stufe; Experience; NextLevel
		946	Print #1, GRschaden; ZUschaden; Abzug; SWGRschaden; SWZUschaden
		947	Print #1, Rrs; Rbe; Urs; Ube; Hrs; Hbe; Srs; Sbe
		948	Print #1, RK; Pfeile; Bolzen; GBE
		949	Print #1, Hände; Stunden; Minuten
		950	Print #1, BeM; BB; BG; FA; Gs; Hpa; Qs; SL; Sf; TD; TkB; Wk; TDs
		951	Print #1, AlterMann; Ring; Hexi
		952	Print #1, Djinn; TischTdOK1; TischTdOK2; Zankh
		953	Print #1, AltarTdOK2; Irion; SchrankH; Fässer; TischH
		954	Print #1, Seeli; Seela; TischLab; Glubsch; FireMon; Thorku
		955	Print #1, Attentat; Landkarte.Held.Left; Landkarte.Held.Top; Unsichtbar
		956	Print #1, Truheo1; Truheo2; Truheo3; Truheo4; Truheo5; TruheH1
		957	Print #1, zutatA; zutatB; zutatC
		958
		959	' Objekte
		960	If Inventar.ListCount >= 1 Then Inventar.ListIndex = 0
		961	For i = 0 To Inventar.ListCount - 1
		962	If i = Inventar.ListCount - 1 Then alle_daten = alle_daten & Inventar.List(i): GoTo atleast
		963	alle_daten = alle_daten & Inventar.List(i) & vbCrLf
		964	Next i
		965	atleast:
		966	Print #1, alle_daten
		967	Print #1, "###"
		968
		969	' Magie
		970	alle_daten = ""
		971	If SpruchBuch.ListCount >= 1 Then SpruchBuch.ListIndex = 0
		972	For i = 0 To SpruchBuch.ListCount - 1
		973	If i = SpruchBuch.ListCount - 1 Then alle_daten = alle_daten & SpruchBuch.List(i): GoTo atleast099
		974	alle_daten = alle_daten & SpruchBuch.List(i) & vbCrLf
		975	Next i
		976	atleast099:
		977	Print #1, alle_daten
		978
		979	Close #1
		980	MsgBox "Spielstand wurde gespeichert!", 64 + 0, "Spielstand gespeichert"
		981	End Sub
		982
		983	Private Sub Command2_Click()
		984	Equipment.Command2.Enabled = False
		985	dqBOGENBAUER.Label2.Caption = ""
		986	dqSCHMIEDE.Label2.Caption = ""
		987	dqZAUBERER.Label9.Caption = ""
		988	dqRÜSTSCHMIEDE.Label2.Caption = ""
		989	Command2.Enabled = False
		990	A = Inventar.ListIndex
		991	Inventar.RemoveItem A
		992	End Sub
		993
		994	Private Sub Command4_Click()
		995	Epoints = Epoints - 1
		996	Iq = Iq + 1
		997	Label17.Caption = Iq
		998	CheckMan
		999	End Sub
		1000
		1001	Private Sub Command5_Click()
		1002	Epoints = Epoints - 1
		1003	Speed = Speed + 1
		1004	Label16.Caption = Speed
		1005	CheckMan
		1006	End Sub
		1007
		1008	Private Sub Command6_Click()
		1009	Epoints = Epoints - 1
		1010	Strength = Strength + 1
		1011	Label15.Caption = Strength
		1012	CheckMan
		1013	End Sub
		1014
		1015	Private Sub Command8_Click()
		1016	End
		1017	End Sub
		1018
		1019	Private Sub Command9_Click()
		1020	If Command9.Caption = "lesen" Then ReadRezept: GoTo kkkk
		1021	dqALCHEMIE.Show
		1022	kkkk:
		1023	End Sub
		1024
		1025	Private Sub Form_Activate()
		1026	If Inventar.ListCount >= 1 Then Inventar.ListIndex = 0
		1027	If SpruchBuch.ListCount >= 1 Then SpruchBuch.ListIndex = 0
		1028	End Sub
		1029
		1030	Private Sub Form_Load()
		1031	If Magician = 0 Then SpruchBuch.Enabled = False
		1032	ManagRighter
		1033	End Sub
		1034	Sub CheckMan()
		1035	ManagRighter
		1036	If Epoints <= 0 Then Command4.Enabled = False: Command5.Enabled = False: Command6.Enabled = False
		1037	Label55.Caption = Epoints
		1038	End Sub
		1039
		1040	Private Sub Inventar_Click()
		1041	Command9.Enabled = False: Command9.Visible = False
		1042	Equipment.Command2.Enabled = True
		1043	If woher = "Bogenbauer" Then dqBOGENBAUER.Label2.Caption = Inventar.Text
		1044	If woher = "TruheÖffnen" And Inventar.Text = "Dietriche" Then TruheÖffnen.Command1.Enabled = True
		1045	If woher = "Schmiede" Then dqSCHMIEDE.Label2.Caption = Inventar.Text
		1046	If woher = "Zauberer" Then dqZAUBERER.Label9.Caption = Inventar.Text
		1047	If woher = "Rüstschmiede" Then dqRÜSTSCHMIEDE.Label2.Caption = Inventar.Text
		1048	Command2.Enabled = True: Rast.Command3.Enabled = True: Kampf.Command3.Enabled = True
		1049	GiveItems.Command1.Enabled = True
		1050	If Inventar.Text = "Leere Flasche" Then dqALCHEMIE.Command1.Enabled = True
		1051	dqALCHEMIE.Command7.Enabled = True
		1052	If Inventar.Text = "Alchemieset" Then Command9.Enabled = True: Command9.Visible = True: Command9.Caption = "benutzen"
		1053	There = Left(Inventar.Text, 4)
		1054	If There = "Reze" Or There = "Buch" Then Command9.Enabled = True: Command9.Visible = True: Command9.Caption = "lesen"
		1055	End Sub
		1056
		1057	Private Sub SpruchBuch_Click()
		1058	A = Manager.SpruchBuch.Text
		1059	Spellbookcheck
		1060	Label5.Caption = dqWHICH
		1061	Label6.Caption = dqMANA
		1062	If dqWHAT = "S" Then Label3.Caption = "Verursacht " + Str(dqGRDAMAGE) + " -" + Str(dqGRDAMAGE + dqGRADDAM) + " Schadenspunkte."
		1063	If dqWHAT = "H" Then Label3.Caption = "Heilt " + Str(dqGRDAMAGE) + " -" + Str(dqGRDAMAGE + dqGRADDAM) + " Schadenspunkte."
		1064	SpellHit = Speed
		1065	If dqWHICH = "CHAOS" Then SpellHit = SpellHit + (CHAOS * 2)
		1066	If dqWHICH = "NEKROMANTIE" Then SpellHit = SpellHit + (NEKROMANTIE * 2)
		1067	If dqWHICH = "LICHT" Then SpellHit = SpellHit + (LICHT * 2)
		1068	If dqWHICH = "NATUR" Then SpellHit = SpellHit + (NATUR * 2)
		1069	Kampf.Command4.Caption = dqSPELL + " (" + Str(SpellHit) + "% )"
		1070	Kampf.Command4.Enabled = True
		1071	End Sub

Subversion Repositories aysalia

aysalia/trunk/Zeitalter der Dämonen/Manager.frm @ 34 – Rev 2