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

Rev	Author	Line No.	Line
2	daniel-mar	1	VERSION 5.00
		2	Begin VB.Form Charakter
		3	BackColor = &H00400000&
		4	BorderStyle = 1 'Fixed Single
		5	Caption = "Charaktergenerierung"
		6	ClientHeight = 7845
		7	ClientLeft = 45
		8	ClientTop = 435
		9	ClientWidth = 9315
		10	LinkTopic = "Charakter"
		11	MaxButton = 0 'False
		12	ScaleHeight = 7845
		13	ScaleWidth = 9315
		14	StartUpPosition = 1 'CenterOwner
		15	Begin VB.CommandButton Command15
		16	BackColor = &H00FFC0C0&
		17	Cancel = -1 'True
		18	Caption = "Hauptmenü"
		19	BeginProperty Font
		20	Name = "MS Sans Serif"
		21	Size = 8.25
		22	Charset = 0
		23	Weight = 700
		24	Underline = 0 'False
		25	Italic = 0 'False
		26	Strikethrough = 0 'False
		27	EndProperty
		28	Height = 400
		29	Left = 4560
		30	Style = 1 'Graphical
		31	TabIndex = 92
		32	Top = 600
		33	Width = 2175
		34	End
		35	Begin VB.CommandButton Command19
		36	BackColor = &H00FFC0C0&
		37	Caption = "Charakter übernehmen"
		38	Default = -1 'True
		39	Enabled = 0 'False
		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 = 400
		50	Left = 6840
		51	Style = 1 'Graphical
		52	TabIndex = 90
		53	Top = 600
		54	Width = 2175
		55	End
		56	Begin VB.Frame Frame5
		57	BackColor = &H00400000&
		58	Caption = "Fähigkeiten"
		59	Enabled = 0 'False
		60	BeginProperty Font
		61	Name = "MS Sans Serif"
		62	Size = 9.75
		63	Charset = 0
		64	Weight = 700
		65	Underline = 0 'False
		66	Italic = 0 'False
		67	Strikethrough = 0 'False
		68	EndProperty
		69	ForeColor = &H0000FFFF&
		70	Height = 3735
		71	Left = 6720
		72	TabIndex = 64
		73	Top = 3720
		74	Visible = 0 'False
		75	Width = 2295
		76	Begin VB.CommandButton Command18
		77	BackColor = &H00FF8080&
		78	Caption = "+"
		79	BeginProperty Font
		80	Name = "Arial"
		81	Size = 9.75
		82	Charset = 0
		83	Weight = 700
		84	Underline = 0 'False
		85	Italic = 0 'False
		86	Strikethrough = 0 'False
		87	EndProperty
		88	Height = 255
		89	Left = 1960
		90	Style = 1 'Graphical
		91	TabIndex = 79
		92	Top = 3120
		93	Width = 255
		94	End
		95	Begin VB.CommandButton Command17
		96	BackColor = &H00FF8080&
		97	Caption = "+"
		98	BeginProperty Font
		99	Name = "Arial"
		100	Size = 9.75
		101	Charset = 0
		102	Weight = 700
		103	Underline = 0 'False
		104	Italic = 0 'False
		105	Strikethrough = 0 'False
		106	EndProperty
		107	Height = 255
		108	Left = 1960
		109	Style = 1 'Graphical
		110	TabIndex = 78
		111	Top = 2520
		112	Width = 255
		113	End
		114	Begin VB.CommandButton Command16
		115	BackColor = &H00FF8080&
		116	Caption = "+"
		117	BeginProperty Font
		118	Name = "Arial"
		119	Size = 9.75
		120	Charset = 0
		121	Weight = 700
		122	Underline = 0 'False
		123	Italic = 0 'False
		124	Strikethrough = 0 'False
		125	EndProperty
		126	Height = 255
		127	Left = 1960
		128	Style = 1 'Graphical
		129	TabIndex = 77
		130	Top = 1920
		131	Width = 255
		132	End
		133	Begin VB.CommandButton Command14
		134	BackColor = &H00FF8080&
		135	Caption = "+"
		136	BeginProperty Font
		137	Name = "Arial"
		138	Size = 9.75
		139	Charset = 0
		140	Weight = 700
		141	Underline = 0 'False
		142	Italic = 0 'False
		143	Strikethrough = 0 'False
		144	EndProperty
		145	Height = 255
		146	Left = 1960
		147	Style = 1 'Graphical
		148	TabIndex = 76
		149	Top = 1320
		150	Width = 255
		151	End
		152	Begin VB.CommandButton Command13
		153	BackColor = &H00FF8080&
		154	Caption = "+"
		155	BeginProperty Font
		156	Name = "Arial"
		157	Size = 9.75
		158	Charset = 0
		159	Weight = 700
		160	Underline = 0 'False
		161	Italic = 0 'False
		162	Strikethrough = 0 'False
		163	EndProperty
		164	Height = 255
		165	Left = 1960
		166	Style = 1 'Graphical
		167	TabIndex = 75
		168	Top = 720
		169	Width = 255
		170	End
		171	Begin VB.Label Label51
		172	Alignment = 2 'Center
		173	BackColor = &H00FF0000&
		174	BorderStyle = 1 'Fixed Single
		175	Caption = "000"
		176	BeginProperty Font
		177	Name = "Arial"
		178	Size = 8.25
		179	Charset = 0
		180	Weight = 700
		181	Underline = 0 'False
		182	Italic = 0 'False
		183	Strikethrough = 0 'False
		184	EndProperty
		185	ForeColor = &H00FFFFFF&
		186	Height = 270
		187	Left = 1440
		188	TabIndex = 74
		189	Top = 3120
		190	Width = 450
		191	End
		192	Begin VB.Label Label50
		193	Alignment = 2 'Center
		194	BackColor = &H00FF0000&
		195	BorderStyle = 1 'Fixed Single
		196	Caption = "000"
		197	BeginProperty Font
		198	Name = "Arial"
		199	Size = 8.25
		200	Charset = 0
		201	Weight = 700
		202	Underline = 0 'False
		203	Italic = 0 'False
		204	Strikethrough = 0 'False
		205	EndProperty
		206	ForeColor = &H00FFFFFF&
		207	Height = 270
		208	Left = 1440
		209	TabIndex = 73
		210	Top = 2520
		211	Width = 450
		212	End
		213	Begin VB.Label Label49
		214	Alignment = 2 'Center
		215	BackColor = &H00FF0000&
		216	BorderStyle = 1 'Fixed Single
		217	Caption = "000"
		218	BeginProperty Font
		219	Name = "Arial"
		220	Size = 8.25
		221	Charset = 0
		222	Weight = 700
		223	Underline = 0 'False
		224	Italic = 0 'False
		225	Strikethrough = 0 'False
		226	EndProperty
		227	ForeColor = &H00FFFFFF&
		228	Height = 270
		229	Left = 1440
		230	TabIndex = 72
		231	Top = 1920
		232	Width = 450
		233	End
		234	Begin VB.Label Label47
		235	Alignment = 2 'Center
		236	BackColor = &H00FF0000&
		237	BorderStyle = 1 'Fixed Single
		238	Caption = "000"
		239	BeginProperty Font
		240	Name = "Arial"
		241	Size = 8.25
		242	Charset = 0
		243	Weight = 700
		244	Underline = 0 'False
		245	Italic = 0 'False
		246	Strikethrough = 0 'False
		247	EndProperty
		248	ForeColor = &H00FFFFFF&
		249	Height = 270
		250	Left = 1440
		251	TabIndex = 71
		252	Top = 1320
		253	Width = 450
		254	End
		255	Begin VB.Label Label46
		256	Alignment = 2 'Center
		257	BackColor = &H00FF0000&
		258	BorderStyle = 1 'Fixed Single
		259	Caption = "000"
		260	BeginProperty Font
		261	Name = "Arial"
		262	Size = 8.25
		263	Charset = 0
		264	Weight = 700
		265	Underline = 0 'False
		266	Italic = 0 'False
		267	Strikethrough = 0 'False
		268	EndProperty
		269	ForeColor = &H00FFFFFF&
		270	Height = 270
		271	Left = 1440
		272	TabIndex = 70
		273	Top = 720
		274	Width = 450
		275	End
		276	Begin VB.Label Label45
		277	AutoSize = -1 'True
		278	BackStyle = 0 'Transparent
		279	Caption = "Pflanzenkunde"
		280	BeginProperty Font
		281	Name = "Arial"
		282	Size = 9
		283	Charset = 0
		284	Weight = 700
		285	Underline = 0 'False
		286	Italic = 0 'False
		287	Strikethrough = 0 'False
		288	EndProperty
		289	ForeColor = &H00FFFFFF&
		290	Height = 225
		291	Left = 120
		292	TabIndex = 69
		293	Top = 3120
		294	Width = 1260
		295	End
		296	Begin VB.Label Label44
		297	AutoSize = -1 'True
		298	BackStyle = 0 'Transparent
		299	Caption = "Stehlen"
		300	BeginProperty Font
		301	Name = "Arial"
		302	Size = 9
		303	Charset = 0
		304	Weight = 700
		305	Underline = 0 'False
		306	Italic = 0 'False
		307	Strikethrough = 0 'False
		308	EndProperty
		309	ForeColor = &H00FFFFFF&
		310	Height = 225
		311	Left = 120
		312	TabIndex = 68
		313	Top = 2520
		314	Width = 645
		315	End
		316	Begin VB.Label Label43
		317	AutoSize = -1 'True
		318	BackStyle = 0 'Transparent
		319	Caption = "Feilschen"
		320	BeginProperty Font
		321	Name = "Arial"
		322	Size = 9
		323	Charset = 0
		324	Weight = 700
		325	Underline = 0 'False
		326	Italic = 0 'False
		327	Strikethrough = 0 'False
		328	EndProperty
		329	ForeColor = &H00FFFFFF&
		330	Height = 225
		331	Left = 120
		332	TabIndex = 67
		333	Top = 1920
		334	Width = 810
		335	End
		336	Begin VB.Label Label41
		337	AutoSize = -1 'True
		338	BackStyle = 0 'Transparent
		339	Caption = "Wunden heilen"
		340	BeginProperty Font
		341	Name = "Arial"
		342	Size = 9
		343	Charset = 0
		344	Weight = 700
		345	Underline = 0 'False
		346	Italic = 0 'False
		347	Strikethrough = 0 'False
		348	EndProperty
		349	ForeColor = &H00FFFFFF&
		350	Height = 225
		351	Left = 120
		352	TabIndex = 66
		353	Top = 1320
		354	Width = 1260
		355	End
		356	Begin VB.Label Label40
		357	AutoSize = -1 'True
		358	BackStyle = 0 'Transparent
		359	Caption = "Alchemie"
		360	BeginProperty Font
		361	Name = "Arial"
		362	Size = 9
		363	Charset = 0
		364	Weight = 700
		365	Underline = 0 'False
		366	Italic = 0 'False
		367	Strikethrough = 0 'False
		368	EndProperty
		369	ForeColor = &H00FFFFFF&
		370	Height = 225
		371	Left = 120
		372	TabIndex = 65
		373	Top = 720
		374	Width = 795
		375	End
		376	End
		377	Begin VB.Frame Frame4
		378	BackColor = &H00400000&
		379	Caption = "Talentwerte"
		380	Enabled = 0 'False
		381	BeginProperty Font
		382	Name = "MS Sans Serif"
		383	Size = 9.75
		384	Charset = 0
		385	Weight = 700
		386	Underline = 0 'False
		387	Italic = 0 'False
		388	Strikethrough = 0 'False
		389	EndProperty
		390	ForeColor = &H0000FFFF&
		391	Height = 3735
		392	Left = 3840
		393	TabIndex = 6
		394	Top = 3720
		395	Visible = 0 'False
		396	Width = 2775
		397	Begin VB.CommandButton Command12
		398	BackColor = &H00FF8080&
		399	Caption = "+"
		400	BeginProperty Font
		401	Name = "Arial"
		402	Size = 9.75
		403	Charset = 0
		404	Weight = 700
		405	Underline = 0 'False
		406	Italic = 0 'False
		407	Strikethrough = 0 'False
		408	EndProperty
		409	Height = 255
		410	Left = 2280
		411	Style = 1 'Graphical
		412	TabIndex = 63
		413	Top = 3360
		414	Width = 255
		415	End
		416	Begin VB.CommandButton Command11
		417	BackColor = &H00FF8080&
		418	Caption = "+"
		419	BeginProperty Font
		420	Name = "Arial"
		421	Size = 9.75
		422	Charset = 0
		423	Weight = 700
		424	Underline = 0 'False
		425	Italic = 0 'False
		426	Strikethrough = 0 'False
		427	EndProperty
		428	Height = 255
		429	Left = 2280
		430	Style = 1 'Graphical
		431	TabIndex = 62
		432	Top = 3000
		433	Width = 255
		434	End
		435	Begin VB.CommandButton Command10
		436	BackColor = &H00FF8080&
		437	Caption = "+"
		438	BeginProperty Font
		439	Name = "Arial"
		440	Size = 9.75
		441	Charset = 0
		442	Weight = 700
		443	Underline = 0 'False
		444	Italic = 0 'False
		445	Strikethrough = 0 'False
		446	EndProperty
		447	Height = 255
		448	Left = 2280
		449	Style = 1 'Graphical
		450	TabIndex = 61
		451	Top = 2640
		452	Width = 255
		453	End
		454	Begin VB.CommandButton Command9
		455	BackColor = &H00FF8080&
		456	Caption = "+"
		457	BeginProperty Font
		458	Name = "Arial"
		459	Size = 9.75
		460	Charset = 0
		461	Weight = 700
		462	Underline = 0 'False
		463	Italic = 0 'False
		464	Strikethrough = 0 'False
		465	EndProperty
		466	Height = 255
		467	Left = 2280
		468	Style = 1 'Graphical
		469	TabIndex = 60
		470	Top = 2280
		471	Width = 255
		472	End
		473	Begin VB.CommandButton Command8
		474	BackColor = &H00FF8080&
		475	Caption = "+"
		476	BeginProperty Font
		477	Name = "Arial"
		478	Size = 9.75
		479	Charset = 0
		480	Weight = 700
		481	Underline = 0 'False
		482	Italic = 0 'False
		483	Strikethrough = 0 'False
		484	EndProperty
		485	Height = 255
		486	Left = 2280
		487	Style = 1 'Graphical
		488	TabIndex = 51
		489	Top = 1800
		490	Width = 255
		491	End
		492	Begin VB.CommandButton Command7
		493	BackColor = &H00FF8080&
		494	Caption = "+"
		495	BeginProperty Font
		496	Name = "Arial"
		497	Size = 9.75
		498	Charset = 0
		499	Weight = 700
		500	Underline = 0 'False
		501	Italic = 0 'False
		502	Strikethrough = 0 'False
		503	EndProperty
		504	Height = 255
		505	Left = 2280
		506	Style = 1 'Graphical
		507	TabIndex = 50
		508	Top = 1440
		509	Width = 255
		510	End
		511	Begin VB.CommandButton Command6
		512	BackColor = &H00FF8080&
		513	Caption = "+"
		514	BeginProperty Font
		515	Name = "Arial"
		516	Size = 9.75
		517	Charset = 0
		518	Weight = 700
		519	Underline = 0 'False
		520	Italic = 0 'False
		521	Strikethrough = 0 'False
		522	EndProperty
		523	Height = 255
		524	Left = 2280
		525	Style = 1 'Graphical
		526	TabIndex = 49
		527	Top = 1080
		528	Width = 255
		529	End
		530	Begin VB.CommandButton Command5
		531	BackColor = &H00FF8080&
		532	Caption = "+"
		533	BeginProperty Font
		534	Name = "Arial"
		535	Size = 9.75
		536	Charset = 0
		537	Weight = 700
		538	Underline = 0 'False
		539	Italic = 0 'False
		540	Strikethrough = 0 'False
		541	EndProperty
		542	Height = 255
		543	Left = 2280
		544	Style = 1 'Graphical
		545	TabIndex = 48
		546	Top = 720
		547	Width = 255
		548	End
		549	Begin VB.CommandButton Command4
		550	BackColor = &H00FF8080&
		551	Caption = "+"
		552	BeginProperty Font
		553	Name = "Arial"
		554	Size = 9.75
		555	Charset = 0
		556	Weight = 700
		557	Underline = 0 'False
		558	Italic = 0 'False
		559	Strikethrough = 0 'False
		560	EndProperty
		561	Height = 255
		562	Left = 2280
		563	Style = 1 'Graphical
		564	TabIndex = 47
		565	Top = 360
		566	Width = 255
		567	End
		568	Begin VB.Label Label39
		569	AutoSize = -1 'True
		570	BackColor = &H00000000&
		571	BorderStyle = 1 'Fixed Single
		572	Caption = "000"
		573	BeginProperty Font
		574	Name = "Arial"
		575	Size = 8.25
		576	Charset = 0
		577	Weight = 700
		578	Underline = 0 'False
		579	Italic = 0 'False
		580	Strikethrough = 0 'False
		581	EndProperty
		582	ForeColor = &H00FFFFFF&
		583	Height = 270
		584	Left = 1800
		585	TabIndex = 59
		586	Top = 3360
		587	Width = 330
		588	End
		589	Begin VB.Label Label38
		590	AutoSize = -1 'True
		591	BackColor = &H00004000&
		592	BorderStyle = 1 'Fixed Single
		593	Caption = "000"
		594	BeginProperty Font
		595	Name = "Arial"
		596	Size = 8.25
		597	Charset = 0
		598	Weight = 700
		599	Underline = 0 'False
		600	Italic = 0 'False
		601	Strikethrough = 0 'False
		602	EndProperty
		603	ForeColor = &H00FFFFFF&
		604	Height = 270
		605	Left = 1800
		606	TabIndex = 58
		607	Top = 3000
		608	Width = 330
		609	End
		610	Begin VB.Label Label37
		611	AutoSize = -1 'True
		612	BackColor = &H00400000&
		613	BorderStyle = 1 'Fixed Single
		614	Caption = "000"
		615	BeginProperty Font
		616	Name = "Arial"
		617	Size = 8.25
		618	Charset = 0
		619	Weight = 700
		620	Underline = 0 'False
		621	Italic = 0 'False
		622	Strikethrough = 0 'False
		623	EndProperty
		624	ForeColor = &H00FFFFFF&
		625	Height = 270
		626	Left = 1800
		627	TabIndex = 57
		628	Top = 2640
		629	Width = 330
		630	End
		631	Begin VB.Label Label36
		632	AutoSize = -1 'True
		633	BackColor = &H00000040&
		634	BorderStyle = 1 'Fixed Single
		635	Caption = "000"
		636	BeginProperty Font
		637	Name = "Arial"
		638	Size = 8.25
		639	Charset = 0
		640	Weight = 700
		641	Underline = 0 'False
		642	Italic = 0 'False
		643	Strikethrough = 0 'False
		644	EndProperty
		645	ForeColor = &H00FFFFFF&
		646	Height = 270
		647	Left = 1800
		648	TabIndex = 56
		649	Top = 2280
		650	Width = 330
		651	End
		652	Begin VB.Shape Shape3
		653	BorderColor = &H000000FF&
		654	Height = 1395
		655	Left = 150
		656	Top = 2260
		657	Width = 2460
		658	End
		659	Begin VB.Shape Shape2
		660	BorderColor = &H000000FF&
		661	Height = 1910
		662	Left = 150
		663	Top = 280
		664	Width = 2460
		665	End
		666	Begin VB.Label Label35
		667	AutoSize = -1 'True
		668	BackStyle = 0 'Transparent
		669	Caption = "Nekromantie"
		670	BeginProperty Font
		671	Name = "Arial"
		672	Size = 9
		673	Charset = 0
		674	Weight = 700
		675	Underline = 0 'False
		676	Italic = 0 'False
		677	Strikethrough = 0 'False
		678	EndProperty
		679	ForeColor = &H00C0C0C0&
		680	Height = 225
		681	Left = 240
		682	TabIndex = 55
		683	Top = 3360
		684	Width = 1095
		685	End
		686	Begin VB.Label Label34
		687	AutoSize = -1 'True
		688	BackStyle = 0 'Transparent
		689	Caption = "Natur"
		690	BeginProperty Font
		691	Name = "Arial"
		692	Size = 9
		693	Charset = 0
		694	Weight = 700
		695	Underline = 0 'False
		696	Italic = 0 'False
		697	Strikethrough = 0 'False
		698	EndProperty
		699	ForeColor = &H0080FF80&
		700	Height = 225
		701	Left = 240
		702	TabIndex = 54
		703	Top = 3000
		704	Width = 465
		705	End
		706	Begin VB.Label Label33
		707	AutoSize = -1 'True
		708	BackStyle = 0 'Transparent
		709	Caption = "Licht"
		710	BeginProperty Font
		711	Name = "Arial"
		712	Size = 9
		713	Charset = 0
		714	Weight = 700
		715	Underline = 0 'False
		716	Italic = 0 'False
		717	Strikethrough = 0 'False
		718	EndProperty
		719	ForeColor = &H00FF8080&
		720	Height = 225
		721	Left = 240
		722	TabIndex = 53
		723	Top = 2640
		724	Width = 420
		725	End
		726	Begin VB.Label Label32
		727	AutoSize = -1 'True
		728	BackStyle = 0 'Transparent
		729	Caption = "Chaos"
		730	BeginProperty Font
		731	Name = "Arial"
		732	Size = 9
		733	Charset = 0
		734	Weight = 700
		735	Underline = 0 'False
		736	Italic = 0 'False
		737	Strikethrough = 0 'False
		738	EndProperty
		739	ForeColor = &H008080FF&
		740	Height = 225
		741	Left = 240
		742	TabIndex = 52
		743	Top = 2280
		744	Width = 540
		745	End
		746	Begin VB.Label Label31
		747	AutoSize = -1 'True
		748	BackColor = &H00FF0000&
		749	BorderStyle = 1 'Fixed Single
		750	Caption = "000"
		751	BeginProperty Font
		752	Name = "Arial"
		753	Size = 8.25
		754	Charset = 0
		755	Weight = 700
		756	Underline = 0 'False
		757	Italic = 0 'False
		758	Strikethrough = 0 'False
		759	EndProperty
		760	ForeColor = &H00FFFFFF&
		761	Height = 270
		762	Left = 1800
		763	TabIndex = 46
		764	Top = 1800
		765	Width = 330
		766	End
		767	Begin VB.Label Label30
		768	AutoSize = -1 'True
		769	BackColor = &H00FF0000&
		770	BorderStyle = 1 'Fixed Single
		771	Caption = "000"
		772	BeginProperty Font
		773	Name = "Arial"
		774	Size = 8.25
		775	Charset = 0
		776	Weight = 700
		777	Underline = 0 'False
		778	Italic = 0 'False
		779	Strikethrough = 0 'False
		780	EndProperty
		781	ForeColor = &H00FFFFFF&
		782	Height = 270
		783	Left = 1800
		784	TabIndex = 45
		785	Top = 1440
		786	Width = 330
		787	End
		788	Begin VB.Label Label29
		789	AutoSize = -1 'True
		790	BackColor = &H00FF0000&
		791	BorderStyle = 1 'Fixed Single
		792	Caption = "000"
		793	BeginProperty Font
		794	Name = "Arial"
		795	Size = 8.25
		796	Charset = 0
		797	Weight = 700
		798	Underline = 0 'False
		799	Italic = 0 'False
		800	Strikethrough = 0 'False
		801	EndProperty
		802	ForeColor = &H00FFFFFF&
		803	Height = 270
		804	Left = 1800
		805	TabIndex = 44
		806	Top = 1080
		807	Width = 330
		808	End
		809	Begin VB.Label Label28
		810	AutoSize = -1 'True
		811	BackColor = &H00FF0000&
		812	BorderStyle = 1 'Fixed Single
		813	Caption = "000"
		814	BeginProperty Font
		815	Name = "Arial"
		816	Size = 8.25
		817	Charset = 0
		818	Weight = 700
		819	Underline = 0 'False
		820	Italic = 0 'False
		821	Strikethrough = 0 'False
		822	EndProperty
		823	ForeColor = &H00FFFFFF&
		824	Height = 270
		825	Left = 1800
		826	TabIndex = 43
		827	Top = 720
		828	Width = 330
		829	End
		830	Begin VB.Label Label27
		831	AutoSize = -1 'True
		832	BackColor = &H00FF0000&
		833	BorderStyle = 1 'Fixed Single
		834	Caption = "000"
		835	BeginProperty Font
		836	Name = "Arial"
		837	Size = 8.25
		838	Charset = 0
		839	Weight = 700
		840	Underline = 0 'False
		841	Italic = 0 'False
		842	Strikethrough = 0 'False
		843	EndProperty
		844	ForeColor = &H00FFFFFF&
		845	Height = 270
		846	Left = 1800
		847	TabIndex = 42
		848	Top = 360
		849	Width = 330
		850	End
		851	Begin VB.Label Label26
		852	AutoSize = -1 'True
		853	BackStyle = 0 'Transparent
		854	Caption = "Schusswaffen"
		855	BeginProperty Font
		856	Name = "Arial"
		857	Size = 9
		858	Charset = 0
		859	Weight = 700
		860	Underline = 0 'False
		861	Italic = 0 'False
		862	Strikethrough = 0 'False
		863	EndProperty
		864	ForeColor = &H00FFFFFF&
		865	Height = 225
		866	Left = 240
		867	TabIndex = 41
		868	Top = 1800
		869	Width = 1230
		870	End
		871	Begin VB.Label Label25
		872	AutoSize = -1 'True
		873	BackStyle = 0 'Transparent
		874	Caption = "Hiebwaffen"
		875	BeginProperty Font
		876	Name = "Arial"
		877	Size = 9
		878	Charset = 0
		879	Weight = 700
		880	Underline = 0 'False
		881	Italic = 0 'False
		882	Strikethrough = 0 'False
		883	EndProperty
		884	ForeColor = &H00FFFFFF&
		885	Height = 225
		886	Left = 240
		887	TabIndex = 40
		888	Top = 1440
		889	Width = 960
		890	End
		891	Begin VB.Label Label24
		892	AutoSize = -1 'True
		893	BackStyle = 0 'Transparent
		894	Caption = "Speere und Stäbe"
		895	BeginProperty Font
		896	Name = "Arial"
		897	Size = 9
		898	Charset = 0
		899	Weight = 700
		900	Underline = 0 'False
		901	Italic = 0 'False
		902	Strikethrough = 0 'False
		903	EndProperty
		904	ForeColor = &H00FFFFFF&
		905	Height = 225
		906	Left = 240
		907	TabIndex = 39
		908	Top = 1080
		909	Width = 1515
		910	End
		911	Begin VB.Label Label23
		912	AutoSize = -1 'True
		913	BackStyle = 0 'Transparent
		914	Caption = "Äxte"
		915	BeginProperty Font
		916	Name = "Arial"
		917	Size = 9
		918	Charset = 0
		919	Weight = 700
		920	Underline = 0 'False
		921	Italic = 0 'False
		922	Strikethrough = 0 'False
		923	EndProperty
		924	ForeColor = &H00FFFFFF&
		925	Height = 225
		926	Left = 240
		927	TabIndex = 38
		928	Top = 720
		929	Width = 390
		930	End
		931	Begin VB.Label Label22
		932	AutoSize = -1 'True
		933	BackStyle = 0 'Transparent
		934	Caption = "Schwerter"
		935	BeginProperty Font
		936	Name = "Arial"
		937	Size = 9
		938	Charset = 0
		939	Weight = 700
		940	Underline = 0 'False
		941	Italic = 0 'False
		942	Strikethrough = 0 'False
		943	EndProperty
		944	ForeColor = &H00FFFFFF&
		945	Height = 225
		946	Left = 240
		947	TabIndex = 37
		948	Top = 360
		949	Width = 900
		950	End
		951	End
		952	Begin VB.Frame Frame3
		953	BackColor = &H00400000&
		954	Caption = "Eigenschaftswerte"
		955	Enabled = 0 'False
		956	BeginProperty Font
		957	Name = "MS Sans Serif"
		958	Size = 9.75
		959	Charset = 0
		960	Weight = 700
		961	Underline = 0 'False
		962	Italic = 0 'False
		963	Strikethrough = 0 'False
		964	EndProperty
		965	ForeColor = &H0000FFFF&
		966	Height = 2535
		967	Left = 240
		968	TabIndex = 5
		969	Top = 3720
		970	Visible = 0 'False
		971	Width = 3375
		972	Begin VB.CommandButton Command3
		973	BackColor = &H00FF8080&
		974	Caption = "+"
		975	BeginProperty Font
		976	Name = "Arial"
		977	Size = 9.75
		978	Charset = 0
		979	Weight = 700
		980	Underline = 0 'False
		981	Italic = 0 'False
		982	Strikethrough = 0 'False
		983	EndProperty
		984	Height = 255
		985	Left = 2280
		986	Style = 1 'Graphical
		987	TabIndex = 32
		988	Top = 1200
		989	Width = 255
		990	End
		991	Begin VB.CommandButton Command2
		992	BackColor = &H00FF8080&
		993	Caption = "+"
		994	BeginProperty Font
		995	Name = "Arial"
		996	Size = 9.75
		997	Charset = 0
		998	Weight = 700
		999	Underline = 0 'False
		1000	Italic = 0 'False
		1001	Strikethrough = 0 'False
		1002	EndProperty
		1003	Height = 255
		1004	Left = 2280
		1005	Style = 1 'Graphical
		1006	TabIndex = 31
		1007	Top = 840
		1008	Width = 255
		1009	End
		1010	Begin VB.CommandButton Command1
		1011	BackColor = &H00FF8080&
		1012	Caption = "+"
		1013	BeginProperty Font
		1014	Name = "Arial"
		1015	Size = 9.75
		1016	Charset = 0
		1017	Weight = 700
		1018	Underline = 0 'False
		1019	Italic = 0 'False
		1020	Strikethrough = 0 'False
		1021	EndProperty
		1022	Height = 255
		1023	Left = 2280
		1024	Style = 1 'Graphical
		1025	TabIndex = 30
		1026	Top = 480
		1027	Width = 255
		1028	End
		1029	Begin VB.Label Label21
		1030	AutoSize = -1 'True
		1031	BackColor = &H00800000&
		1032	BorderStyle = 1 'Fixed Single
		1033	Caption = "000"
		1034	BeginProperty Font
		1035	Name = "Arial"
		1036	Size = 8.25
		1037	Charset = 0
		1038	Weight = 700
		1039	Underline = 0 'False
		1040	Italic = 0 'False
		1041	Strikethrough = 0 'False
		1042	EndProperty
		1043	ForeColor = &H00FFFFFF&
		1044	Height = 270
		1045	Left = 1800
		1046	TabIndex = 36
		1047	Top = 2040
		1048	Width = 330
		1049	End
		1050	Begin VB.Label Label20
		1051	AutoSize = -1 'True
		1052	BackColor = &H000000C0&
		1053	BorderStyle = 1 'Fixed Single
		1054	Caption = "000"
		1055	BeginProperty Font
		1056	Name = "Arial"
		1057	Size = 8.25
		1058	Charset = 0
		1059	Weight = 700
		1060	Underline = 0 'False
		1061	Italic = 0 'False
		1062	Strikethrough = 0 'False
		1063	EndProperty
		1064	ForeColor = &H00FFFFFF&
		1065	Height = 270
		1066	Left = 1800
		1067	TabIndex = 35
		1068	Top = 1680
		1069	Width = 330
		1070	End
		1071	Begin VB.Label Label19
		1072	AutoSize = -1 'True
		1073	BackStyle = 0 'Transparent
		1074	Caption = "Mana"
		1075	BeginProperty Font
		1076	Name = "Arial"
		1077	Size = 9.75
		1078	Charset = 0
		1079	Weight = 700
		1080	Underline = 0 'False
		1081	Italic = 0 'False
		1082	Strikethrough = 0 'False
		1083	EndProperty
		1084	ForeColor = &H00FF0000&
		1085	Height = 240
		1086	Left = 120
		1087	TabIndex = 34
		1088	Top = 2040
		1089	Width = 525
		1090	End
		1091	Begin VB.Label Label18
		1092	AutoSize = -1 'True
		1093	BackStyle = 0 'Transparent
		1094	Caption = "Lebensenergie"
		1095	BeginProperty Font
		1096	Name = "Arial"
		1097	Size = 9.75
		1098	Charset = 0
		1099	Weight = 700
		1100	Underline = 0 'False
		1101	Italic = 0 'False
		1102	Strikethrough = 0 'False
		1103	EndProperty
		1104	ForeColor = &H000000FF&
		1105	Height = 240
		1106	Left = 120
		1107	TabIndex = 33
		1108	Top = 1680
		1109	Width = 1425
		1110	End
		1111	Begin VB.Label Label17
		1112	AutoSize = -1 'True
		1113	BackColor = &H00C00000&
		1114	BorderStyle = 1 'Fixed Single
		1115	Caption = "000"
		1116	BeginProperty Font
		1117	Name = "Arial"
		1118	Size = 8.25
		1119	Charset = 0
		1120	Weight = 700
		1121	Underline = 0 'False
		1122	Italic = 0 'False
		1123	Strikethrough = 0 'False
		1124	EndProperty
		1125	ForeColor = &H00FFFFFF&
		1126	Height = 270
		1127	Left = 1800
		1128	TabIndex = 29
		1129	Top = 1200
		1130	Width = 330
		1131	End
		1132	Begin VB.Label Label16
		1133	AutoSize = -1 'True
		1134	BackColor = &H00C00000&
		1135	BorderStyle = 1 'Fixed Single
		1136	Caption = "000"
		1137	BeginProperty Font
		1138	Name = "Arial"
		1139	Size = 8.25
		1140	Charset = 0
		1141	Weight = 700
		1142	Underline = 0 'False
		1143	Italic = 0 'False
		1144	Strikethrough = 0 'False
		1145	EndProperty
		1146	ForeColor = &H00FFFFFF&
		1147	Height = 270
		1148	Left = 1800
		1149	TabIndex = 28
		1150	Top = 840
		1151	Width = 330
		1152	End
		1153	Begin VB.Label Label15
		1154	AutoSize = -1 'True
		1155	BackColor = &H00C00000&
		1156	BorderStyle = 1 'Fixed Single
		1157	Caption = "000"
		1158	BeginProperty Font
		1159	Name = "Arial"
		1160	Size = 8.25
		1161	Charset = 0
		1162	Weight = 700
		1163	Underline = 0 'False
		1164	Italic = 0 'False
		1165	Strikethrough = 0 'False
		1166	EndProperty
		1167	ForeColor = &H00FFFFFF&
		1168	Height = 270
		1169	Left = 1800
		1170	TabIndex = 27
		1171	Top = 480
		1172	Width = 330
		1173	End
		1174	Begin VB.Label Label14
		1175	AutoSize = -1 'True
		1176	BackStyle = 0 'Transparent
		1177	Caption = "Intelligenz"
		1178	BeginProperty Font
		1179	Name = "Arial"
		1180	Size = 9.75
		1181	Charset = 0
		1182	Weight = 700
		1183	Underline = 0 'False
		1184	Italic = 0 'False
		1185	Strikethrough = 0 'False
		1186	EndProperty
		1187	ForeColor = &H00FFFFFF&
		1188	Height = 240
		1189	Left = 120
		1190	TabIndex = 26
		1191	Top = 1200
		1192	Width = 1005
		1193	End
		1194	Begin VB.Label Label13
		1195	AutoSize = -1 'True
		1196	BackStyle = 0 'Transparent
		1197	Caption = "Gewandtheit"
		1198	BeginProperty Font
		1199	Name = "Arial"
		1200	Size = 9.75
		1201	Charset = 0
		1202	Weight = 700
		1203	Underline = 0 'False
		1204	Italic = 0 'False
		1205	Strikethrough = 0 'False
		1206	EndProperty
		1207	ForeColor = &H00FFFFFF&
		1208	Height = 240
		1209	Left = 120
		1210	TabIndex = 25
		1211	Top = 840
		1212	Width = 1215
		1213	End
		1214	Begin VB.Label Label12
		1215	AutoSize = -1 'True
		1216	BackStyle = 0 'Transparent
		1217	Caption = "Stärke"
		1218	BeginProperty Font
		1219	Name = "Arial"
		1220	Size = 9.75
		1221	Charset = 0
		1222	Weight = 700
		1223	Underline = 0 'False
		1224	Italic = 0 'False
		1225	Strikethrough = 0 'False
		1226	EndProperty
		1227	ForeColor = &H00FFFFFF&
		1228	Height = 240
		1229	Left = 120
		1230	TabIndex = 24
		1231	Top = 480
		1232	Width = 615
		1233	End
		1234	End
		1235	Begin VB.TextBox Text1
		1236	BeginProperty Font
		1237	Name = "Arial"
		1238	Size = 9
		1239	Charset = 0
		1240	Weight = 700
		1241	Underline = 0 'False
		1242	Italic = 0 'False
		1243	Strikethrough = 0 'False
		1244	EndProperty
		1245	Height = 285
		1246	Left = 2040
		1247	TabIndex = 4
		1248	Text = "Arokh von Silberstein"
		1249	Top = 600
		1250	Width = 2175
		1251	End
		1252	Begin VB.Frame Frame2
		1253	BackColor = &H00400000&
		1254	Caption = "Klasse"
		1255	BeginProperty Font
		1256	Name = "MS Sans Serif"
		1257	Size = 9.75
		1258	Charset = 0
		1259	Weight = 700
		1260	Underline = 0 'False
		1261	Italic = 0 'False
		1262	Strikethrough = 0 'False
		1263	EndProperty
		1264	ForeColor = &H0000FFFF&
		1265	Height = 2535
		1266	Left = 4080
		1267	TabIndex = 2
		1268	Top = 1080
		1269	Width = 4935
		1270	Begin VB.OptionButton Option7
		1271	BackColor = &H00FF8080&
		1272	Caption = "Dieb"
		1273	Enabled = 0 'False
		1274	BeginProperty Font
		1275	Name = "Arial"
		1276	Size = 9
		1277	Charset = 0
		1278	Weight = 700
		1279	Underline = 0 'False
		1280	Italic = 0 'False
		1281	Strikethrough = 0 'False
		1282	EndProperty
		1283	Height = 255
		1284	Left = 120
		1285	Style = 1 'Graphical
		1286	TabIndex = 17
		1287	Top = 1920
		1288	Width = 1215
		1289	End
		1290	Begin VB.OptionButton Option6
		1291	BackColor = &H00FF8080&
		1292	Caption = "Kleriker"
		1293	Enabled = 0 'False
		1294	BeginProperty Font
		1295	Name = "Arial"
		1296	Size = 9
		1297	Charset = 0
		1298	Weight = 700
		1299	Underline = 0 'False
		1300	Italic = 0 'False
		1301	Strikethrough = 0 'False
		1302	EndProperty
		1303	Height = 255
		1304	Left = 120
		1305	Style = 1 'Graphical
		1306	TabIndex = 16
		1307	Top = 1680
		1308	Width = 1215
		1309	End
		1310	Begin VB.OptionButton Option5
		1311	BackColor = &H00FF8080&
		1312	Caption = "Nekromant"
		1313	Enabled = 0 'False
		1314	BeginProperty Font
		1315	Name = "Arial"
		1316	Size = 9
		1317	Charset = 0
		1318	Weight = 700
		1319	Underline = 0 'False
		1320	Italic = 0 'False
		1321	Strikethrough = 0 'False
		1322	EndProperty
		1323	Height = 255
		1324	Left = 120
		1325	Style = 1 'Graphical
		1326	TabIndex = 15
		1327	Top = 1440
		1328	Width = 1215
		1329	End
		1330	Begin VB.OptionButton Option4
		1331	BackColor = &H00FF8080&
		1332	Caption = "Magier"
		1333	Enabled = 0 'False
		1334	BeginProperty Font
		1335	Name = "Arial"
		1336	Size = 9
		1337	Charset = 0
		1338	Weight = 700
		1339	Underline = 0 'False
		1340	Italic = 0 'False
		1341	Strikethrough = 0 'False
		1342	EndProperty
		1343	Height = 255
		1344	Left = 120
		1345	Style = 1 'Graphical
		1346	TabIndex = 14
		1347	Top = 1200
		1348	Width = 1215
		1349	End
		1350	Begin VB.OptionButton Option3
		1351	BackColor = &H00FF8080&
		1352	Caption = "Jäger"
		1353	Enabled = 0 'False
		1354	BeginProperty Font
		1355	Name = "Arial"
		1356	Size = 9
		1357	Charset = 0
		1358	Weight = 700
		1359	Underline = 0 'False
		1360	Italic = 0 'False
		1361	Strikethrough = 0 'False
		1362	EndProperty
		1363	Height = 255
		1364	Left = 120
		1365	Style = 1 'Graphical
		1366	TabIndex = 13
		1367	Top = 960
		1368	Width = 1215
		1369	End
		1370	Begin VB.OptionButton Option2
		1371	BackColor = &H00FF8080&
		1372	Caption = "Paladin"
		1373	Enabled = 0 'False
		1374	BeginProperty Font
		1375	Name = "Arial"
		1376	Size = 9
		1377	Charset = 0
		1378	Weight = 700
		1379	Underline = 0 'False
		1380	Italic = 0 'False
		1381	Strikethrough = 0 'False
		1382	EndProperty
		1383	Height = 255
		1384	Left = 120
		1385	Style = 1 'Graphical
		1386	TabIndex = 12
		1387	Top = 720
		1388	Width = 1215
		1389	End
		1390	Begin VB.OptionButton Option1
		1391	BackColor = &H00FF8080&
		1392	Caption = "Krieger"
		1393	Enabled = 0 'False
		1394	BeginProperty Font
		1395	Name = "Arial"
		1396	Size = 9
		1397	Charset = 0
		1398	Weight = 700
		1399	Underline = 0 'False
		1400	Italic = 0 'False
		1401	Strikethrough = 0 'False
		1402	EndProperty
		1403	Height = 255
		1404	Left = 120
		1405	Style = 1 'Graphical
		1406	TabIndex = 11
		1407	Top = 480
		1408	Width = 1215
		1409	End
		1410	Begin VB.Label Label62
		1411	AutoSize = -1 'True
		1412	BackStyle = 0 'Transparent
		1413	Caption = "Nachteile"
		1414	BeginProperty Font
		1415	Name = "Arial"
		1416	Size = 8.25
		1417	Charset = 0
		1418	Weight = 700
		1419	Underline = 0 'False
		1420	Italic = 0 'False
		1421	Strikethrough = 0 'False
		1422	EndProperty
		1423	ForeColor = &H00FFFFFF&
		1424	Height = 210
		1425	Left = 2760
		1426	TabIndex = 91
		1427	Top = 480
		1428	Width = 750
		1429	End
		1430	Begin VB.Label Label61
		1431	AutoSize = -1 'True
		1432	BackStyle = 0 'Transparent
		1433	Caption = "-"
		1434	BeginProperty Font
		1435	Name = "Arial"
		1436	Size = 8.25
		1437	Charset = 0
		1438	Weight = 700
		1439	Underline = 0 'False
		1440	Italic = 0 'False
		1441	Strikethrough = 0 'False
		1442	EndProperty
		1443	ForeColor = &H0000FFFF&
		1444	Height = 210
		1445	Left = 1440
		1446	TabIndex = 89
		1447	Top = 720
		1448	Width = 60
		1449	End
		1450	Begin VB.Label Label60
		1451	AutoSize = -1 'True
		1452	BackStyle = 0 'Transparent
		1453	Caption = "unbekannt"
		1454	BeginProperty Font
		1455	Name = "Arial"
		1456	Size = 8.25
		1457	Charset = 0
		1458	Weight = 700
		1459	Underline = 0 'False
		1460	Italic = 0 'False
		1461	Strikethrough = 0 'False
		1462	EndProperty
		1463	ForeColor = &H0000FFFF&
		1464	Height = 210
		1465	Left = 1560
		1466	TabIndex = 88
		1467	Top = 720
		1468	Width = 885
		1469	End
		1470	Begin VB.Label Label9
		1471	BackStyle = 0 'Transparent
		1472	Caption = "Nachteil3"
		1473	BeginProperty Font
		1474	Name = "Arial"
		1475	Size = 8.25
		1476	Charset = 0
		1477	Weight = 700
		1478	Underline = 0 'False
		1479	Italic = 0 'False
		1480	Strikethrough = 0 'False
		1481	EndProperty
		1482	ForeColor = &H00FFC0C0&
		1483	Height = 405
		1484	Left = 2760
		1485	TabIndex = 21
		1486	Top = 1680
		1487	Width = 2175
		1488	End
		1489	Begin VB.Label Label8
		1490	BackStyle = 0 'Transparent
		1491	Caption = "Nachteil 2"
		1492	BeginProperty Font
		1493	Name = "Arial"
		1494	Size = 8.25
		1495	Charset = 0
		1496	Weight = 700
		1497	Underline = 0 'False
		1498	Italic = 0 'False
		1499	Strikethrough = 0 'False
		1500	EndProperty
		1501	ForeColor = &H00FFC0C0&
		1502	Height = 405
		1503	Left = 2760
		1504	TabIndex = 20
		1505	Top = 1200
		1506	Width = 2175
		1507	End
		1508	Begin VB.Label Label7
		1509	BackStyle = 0 'Transparent
		1510	Caption = "Nachteil 1"
		1511	BeginProperty Font
		1512	Name = "Arial"
		1513	Size = 8.25
		1514	Charset = 0
		1515	Weight = 700
		1516	Underline = 0 'False
		1517	Italic = 0 'False
		1518	Strikethrough = 0 'False
		1519	EndProperty
		1520	ForeColor = &H00FFC0C0&
		1521	Height = 405
		1522	Left = 2760
		1523	TabIndex = 19
		1524	Top = 720
		1525	Width = 2175
		1526	End
		1527	Begin VB.Label Label6
		1528	AutoSize = -1 'True
		1529	BackStyle = 0 'Transparent
		1530	Caption = "Magiebegabt"
		1531	BeginProperty Font
		1532	Name = "Arial"
		1533	Size = 8.25
		1534	Charset = 0
		1535	Weight = 700
		1536	Underline = 0 'False
		1537	Italic = 0 'False
		1538	Strikethrough = 0 'False
		1539	EndProperty
		1540	ForeColor = &H00FFFFFF&
		1541	Height = 210
		1542	Left = 1440
		1543	TabIndex = 18
		1544	Top = 480
		1545	Width = 1065
		1546	End
		1547	End
		1548	Begin VB.Frame Frame1
		1549	BackColor = &H00400000&
		1550	Caption = "Rasse"
		1551	BeginProperty Font
		1552	Name = "MS Sans Serif"
		1553	Size = 9.75
		1554	Charset = 0
		1555	Weight = 700
		1556	Underline = 0 'False
		1557	Italic = 0 'False
		1558	Strikethrough = 0 'False
		1559	EndProperty
		1560	ForeColor = &H0000FFFF&
		1561	Height = 2535
		1562	Left = 240
		1563	TabIndex = 1
		1564	Top = 1080
		1565	Width = 3735
		1566	Begin VB.ComboBox Combo1
		1567	BackColor = &H00800000&
		1568	BeginProperty Font
		1569	Name = "Arial"
		1570	Size = 9.75
		1571	Charset = 0
		1572	Weight = 700
		1573	Underline = 0 'False
		1574	Italic = 0 'False
		1575	Strikethrough = 0 'False
		1576	EndProperty
		1577	ForeColor = &H00FFFFFF&
		1578	Height = 360
		1579	ItemData = "Charakter.frx":0000
		1580	Left = 120
		1581	List = "Charakter.frx":0010
		1582	Style = 2 'Dropdown List
		1583	TabIndex = 7
		1584	Top = 480
		1585	Width = 1695
		1586	End
		1587	Begin VB.Label Label11
		1588	BackStyle = 0 'Transparent
		1589	Caption = "Inventar"
		1590	BeginProperty Font
		1591	Name = "Arial"
		1592	Size = 8.25
		1593	Charset = 0
		1594	Weight = 700
		1595	Underline = 0 'False
		1596	Italic = 0 'False
		1597	Strikethrough = 0 'False
		1598	EndProperty
		1599	ForeColor = &H00FFFFFF&
		1600	Height = 255
		1601	Left = 120
		1602	TabIndex = 23
		1603	Top = 1480
		1604	Width = 855
		1605	End
		1606	Begin VB.Shape Shape1
		1607	BorderColor = &H0000FFFF&
		1608	Height = 735
		1609	Left = 120
		1610	Top = 1680
		1611	Width = 1695
		1612	End
		1613	Begin VB.Label Label10
		1614	BackStyle = 0 'Transparent
		1615	BeginProperty Font
		1616	Name = "Arial"
		1617	Size = 8.25
		1618	Charset = 0
		1619	Weight = 700
		1620	Underline = 0 'False
		1621	Italic = 0 'False
		1622	Strikethrough = 0 'False
		1623	EndProperty
		1624	ForeColor = &H00FFFFFF&
		1625	Height = 735
		1626	Left = 165
		1627	TabIndex = 22
		1628	Top = 1680
		1629	Width = 1620
		1630	End
		1631	Begin VB.Label Label5
		1632	AutoSize = -1 'True
		1633	BackStyle = 0 'Transparent
		1634	Caption = "0"
		1635	BeginProperty Font
		1636	Name = "Arial"
		1637	Size = 8.25
		1638	Charset = 0
		1639	Weight = 700
		1640	Underline = 0 'False
		1641	Italic = 0 'False
		1642	Strikethrough = 0 'False
		1643	EndProperty
		1644	ForeColor = &H0000FFFF&
		1645	Height = 210
		1646	Left = 1200
		1647	TabIndex = 10
		1648	Top = 1080
		1649	Width = 90
		1650	End
		1651	Begin VB.Label Label4
		1652	AutoSize = -1 'True
		1653	BackStyle = 0 'Transparent
		1654	Caption = "Goldkronen"
		1655	BeginProperty Font
		1656	Name = "Arial"
		1657	Size = 8.25
		1658	Charset = 0
		1659	Weight = 700
		1660	Underline = 0 'False
		1661	Italic = 0 'False
		1662	Strikethrough = 0 'False
		1663	EndProperty
		1664	ForeColor = &H00FFFFFF&
		1665	Height = 210
		1666	Left = 120
		1667	TabIndex = 9
		1668	Top = 1080
		1669	Width = 975
		1670	End
		1671	Begin VB.Label Label3
		1672	BackStyle = 0 'Transparent
		1673	Caption = "Beschreibung"
		1674	BeginProperty Font
		1675	Name = "Arial"
		1676	Size = 8.25
		1677	Charset = 0
		1678	Weight = 700
		1679	Underline = 0 'False
		1680	Italic = 0 'False
		1681	Strikethrough = 0 'False
		1682	EndProperty
		1683	ForeColor = &H00FFC0C0&
		1684	Height = 1935
		1685	Left = 1865
		1686	TabIndex = 8
		1687	Top = 480
		1688	Width = 1815
		1689	End
		1690	End
		1691	Begin VB.Label Label59
		1692	Alignment = 1 'Right Justify
		1693	AutoSize = -1 'True
		1694	BackStyle = 0 'Transparent
		1695	Caption = "Mystix Development"
		1696	BeginProperty Font
		1697	Name = "Arial"
		1698	Size = 8.25
		1699	Charset = 0
		1700	Weight = 700
		1701	Underline = 0 'False
		1702	Italic = 0 'False
		1703	Strikethrough = 0 'False
		1704	EndProperty
		1705	ForeColor = &H00FF8080&
		1706	Height = 210
		1707	Left = 7320
		1708	TabIndex = 87
		1709	Top = 240
		1710	Width = 1680
		1711	End
		1712	Begin VB.Label Label58
		1713	Alignment = 1 'Right Justify
		1714	AutoSize = -1 'True
		1715	BackStyle = 0 'Transparent
		1716	Caption = "Aysalia: Zeitalter der Dämonen"
		1717	BeginProperty Font
		1718	Name = "MS Sans Serif"
		1719	Size = 8.25
		1720	Charset = 0
		1721	Weight = 700
		1722	Underline = 0 'False
		1723	Italic = 0 'False
		1724	Strikethrough = 0 'False
		1725	EndProperty
		1726	ForeColor = &H00E0E0E0&
		1727	Height = 195
		1728	Left = 6330
		1729	TabIndex = 86
		1730	Top = 7560
		1731	Width = 2610
		1732	End
		1733	Begin VB.Label Label57
		1734	AutoSize = -1 'True
		1735	BackColor = &H00C00000&
		1736	BorderStyle = 1 'Fixed Single
		1737	Caption = "15%"
		1738	BeginProperty Font
		1739	Name = "Arial"
		1740	Size = 9
		1741	Charset = 0
		1742	Weight = 700
		1743	Underline = 0 'False
		1744	Italic = 0 'False
		1745	Strikethrough = 0 'False
		1746	EndProperty
		1747	ForeColor = &H0000FFFF&
		1748	Height = 285
		1749	Left = 2520
		1750	TabIndex = 85
		1751	Top = 7200
		1752	Width = 405
		1753	End
		1754	Begin VB.Label Label56
		1755	AutoSize = -1 'True
		1756	BackColor = &H00C00000&
		1757	BorderStyle = 1 'Fixed Single
		1758	Caption = "5"
		1759	BeginProperty Font
		1760	Name = "Arial"
		1761	Size = 9
		1762	Charset = 0
		1763	Weight = 700
		1764	Underline = 0 'False
		1765	Italic = 0 'False
		1766	Strikethrough = 0 'False
		1767	EndProperty
		1768	ForeColor = &H0000FFFF&
		1769	Height = 285
		1770	Left = 2520
		1771	TabIndex = 84
		1772	Top = 6840
		1773	Width = 165
		1774	End
		1775	Begin VB.Label Label55
		1776	AutoSize = -1 'True
		1777	BackColor = &H00C00000&
		1778	BorderStyle = 1 'Fixed Single
		1779	Caption = "5"
		1780	BeginProperty Font
		1781	Name = "Arial"
		1782	Size = 9
		1783	Charset = 0
		1784	Weight = 700
		1785	Underline = 0 'False
		1786	Italic = 0 'False
		1787	Strikethrough = 0 'False
		1788	EndProperty
		1789	ForeColor = &H0000FFFF&
		1790	Height = 285
		1791	Left = 2520
		1792	TabIndex = 83
		1793	Top = 6480
		1794	Width = 165
		1795	End
		1796	Begin VB.Label Label54
		1797	AutoSize = -1 'True
		1798	BackStyle = 0 'Transparent
		1799	Caption = "Fähigkeitspunkte"
		1800	BeginProperty Font
		1801	Name = "Arial"
		1802	Size = 9.75
		1803	Charset = 0
		1804	Weight = 700
		1805	Underline = 0 'False
		1806	Italic = 0 'False
		1807	Strikethrough = 0 'False
		1808	EndProperty
		1809	ForeColor = &H00FFFFFF&
		1810	Height = 240
		1811	Left = 240
		1812	TabIndex = 82
		1813	Top = 7200
		1814	Width = 1620
		1815	End
		1816	Begin VB.Label Label53
		1817	AutoSize = -1 'True
		1818	BackStyle = 0 'Transparent
		1819	Caption = "Talentpunkte"
		1820	BeginProperty Font
		1821	Name = "Arial"
		1822	Size = 9.75
		1823	Charset = 0
		1824	Weight = 700
		1825	Underline = 0 'False
		1826	Italic = 0 'False
		1827	Strikethrough = 0 'False
		1828	EndProperty
		1829	ForeColor = &H00FFFFFF&
		1830	Height = 240
		1831	Left = 240
		1832	TabIndex = 81
		1833	Top = 6840
		1834	Width = 1245
		1835	End
		1836	Begin VB.Label Label52
		1837	AutoSize = -1 'True
		1838	BackStyle = 0 'Transparent
		1839	Caption = "Eigenschaftspunkte"
		1840	BeginProperty Font
		1841	Name = "Arial"
		1842	Size = 9.75
		1843	Charset = 0
		1844	Weight = 700
		1845	Underline = 0 'False
		1846	Italic = 0 'False
		1847	Strikethrough = 0 'False
		1848	EndProperty
		1849	ForeColor = &H00FFFFFF&
		1850	Height = 240
		1851	Left = 240
		1852	TabIndex = 80
		1853	Top = 6480
		1854	Width = 1830
		1855	End
		1856	Begin VB.Label Label2
		1857	AutoSize = -1 'True
		1858	BackStyle = 0 'Transparent
		1859	Caption = "Name des Helden"
		1860	BeginProperty Font
		1861	Name = "MS Sans Serif"
		1862	Size = 9.75
		1863	Charset = 0
		1864	Weight = 400
		1865	Underline = 0 'False
		1866	Italic = 0 'False
		1867	Strikethrough = 0 'False
		1868	EndProperty
		1869	ForeColor = &H00FFFFFF&
		1870	Height = 240
		1871	Left = 240
		1872	TabIndex = 3
		1873	Top = 600
		1874	Width = 1650
		1875	End
		1876	Begin VB.Line Line1
		1877	BorderColor = &H0000FFFF&
		1878	X1 = 240
		1879	X2 = 9000
		1880	Y1 = 480
		1881	Y2 = 480
		1882	End
		1883	Begin VB.Label Label1
		1884	AutoSize = -1 'True
		1885	BackStyle = 0 'Transparent
		1886	Caption = "Charakter Erschaffung"
		1887	BeginProperty Font
		1888	Name = "Arial"
		1889	Size = 15.75
		1890	Charset = 0
		1891	Weight = 400
		1892	Underline = 0 'False
		1893	Italic = 0 'False
		1894	Strikethrough = 0 'False
		1895	EndProperty
		1896	ForeColor = &H00FFFFFF&
		1897	Height = 360
		1898	Left = 240
		1899	TabIndex = 0
		1900	Top = 120
		1901	Width = 3135
		1902	End
		1903	End
		1904	Attribute VB_Name = "Charakter"
		1905	Attribute VB_GlobalNameSpace = False
		1906	Attribute VB_Creatable = False
		1907	Attribute VB_PredeclaredId = True
		1908	Attribute VB_Exposed = False
		1909	Private Sub Combo1_Click()
		1910	Frame3.Enabled = False
		1911	Frame3.Visible = False
		1912	Frame4.Enabled = False
		1913	Frame4.Visible = False
		1914	Frame5.Enabled = False
		1915	Frame5.Visible = False
		1916	A = Combo1.Text
		1917	If A = "Elf" Then Gold = 50: A = "Die Elfen waren einst die ersten Völker, die Aysalia bevölkerten. Im Wald fühlen sie sich am wohlsten, und nutzen diesen auch für ihre Waffen und Nahrung.": ElfON
		1918	If A = "Halb-Elf" Then Gold = 100: A = "Halbelfen sind eine Mischung aus Mensch und Elf. Halbelfen bevorzugen jedoch die menschliche seite und leben in der Stadt.": HelfON
		1919	If A = "Mensch" Then Gold = 150: A = "Menschen bevölkern noch heute am meisten Aysalia und breiten sich mit ihren Städten immer weiter aus.": MenON
		1920	If A = "Zwerg" Then Gold = 200: A = "Zwerge leben abgeschieden in kleinen Sippe in unterirdischen Höhlen zwischen hohen Bergen und hassen das Sonnelicht.": ZweON
		1921	Label5.Caption = Gold
		1922	Label3.Caption = A
		1923	Option1.Value = False
		1924	Option2.Value = False
		1925	Option3.Value = False
		1926	Option4.Value = False
		1927	Option5.Value = False
		1928	Option6.Value = False
		1929	Option7.Value = False
		1930	End Sub
		1931
		1932	Private Sub Command1_Click()
		1933	Epoints = Epoints - 1
		1934	Strength = Strength + 1
		1935	Label15.Caption = Strength
		1936	CheckPoints
		1937	End Sub
		1938
		1939	Private Sub Command10_Click()
		1940	Tpoints = Tpoints - 1
		1941	LICHT = LICHT + 1
		1942	Label37.Caption = LICHT
		1943	CheckPoints
		1944	End Sub
		1945
		1946	Private Sub Command11_Click()
		1947	Tpoints = Tpoints - 1
		1948	NATUR = NATUR + 1
		1949	Label38.Caption = NATUR
		1950	CheckPoints
		1951	End Sub
		1952
		1953	Private Sub Command12_Click()
		1954	Tpoints = Tpoints - 1
		1955	NEKROMANTIE = NEKROMANTIE + 1
		1956	Label39.Caption = NEKROMANTIE
		1957	CheckPoints
		1958	End Sub
		1959
		1960	Private Sub Command13_Click()
		1961	Fpoints = Fpoints - 1
		1962	ALCHEMIE = ALCHEMIE + 1
		1963	Label46.Caption = Str(ALCHEMIE) + "%"
		1964	CheckPoints
		1965	End Sub
		1966
		1967	Private Sub Command14_Click()
		1968	Fpoints = Fpoints - 1
		1969	WUNDENHEILEN = WUNDENHEILEN + 1
		1970	Label47.Caption = Str(WUNDENHEILEN) + "%"
		1971	CheckPoints
		1972	End Sub
		1973
		1974	Private Sub Command15_Click()
		1975	Unload Charakter
		1976	StartTitle.Show
		1977	End Sub
		1978
		1979	Private Sub Command16_Click()
		1980	Fpoints = Fpoints - 1
		1981	FEILSCHEN = FEILSCHEN + 1
		1982	Label49.Caption = Str(FEILSCHEN) + "%"
		1983	CheckPoints
		1984	End Sub
		1985
		1986	Private Sub Command17_Click()
		1987	Fpoints = Fpoints - 1
		1988	STEHLEN = STEHLEN + 1
		1989	Label50.Caption = Str(STEHLEN) + "%"
		1990	CheckPoints
		1991	End Sub
		1992
		1993	Private Sub Command18_Click()
		1994	Fpoints = Fpoints - 1
		1995	PFLANZENKUNDE = PFLANZENKUNDE + 1
		1996	Label51.Caption = Str(PFLANZENKUNDE) + "%"
		1997	CheckPoints
		1998	End Sub
		1999
		2000	Private Sub Command19_Click()
		2001	Stunden = 8
		2002	Minuten = 30
		2003	Woche = "Montag"
		2004	Dayli
		2005	Nom = Text1.Text
		2006	If Typus = "Krieger" Or Typus = "Paladin" Then Waffe = "Schwert": GRschaden = 3: ZUschaden = 3: Kategorie = "Sch": Material = "Stahl": Abzug = 0: Hände = 1
		2007	If Typus = "Jäger" Then Waffe = "Jagdspeer": GRschaden = 2: ZUschaden = 7: Kategorie = "Sp": Material = "Holz": Abzug = 0: Hände = 1
		2008	If Typus = "Magier" Then Waffe = "Magierstab": GRschaden = 2: ZUschaden = 4: Kategorie = "Sp": Material = "Magisch": Abzug = 0: Hände = 1
		2009	If Typus = "Nekromant" Then Waffe = "Kampfstab": GRschaden = 2: ZUschaden = 3: Kategorie = "Sp": Material = "Holz": Abzug = 0: Hände = 1
		2010	If Typus = "Kleriker" Then Waffe = "Weihstab": GRschaden = 2: ZUschaden = 4: Kategorie = "Sp": Material = "Geweiht": Abzug = 0: Hände = 1
		2011	If Typus = "Dieb" Then Waffe = "Streitkolben": GRschaden = 2: ZUschaden = 5: Kategorie = "Hie": Material = "Holz": Abzug = 0: Hände = 1
		2012
		2013	If Typus = "Jäger" Then Rüstung = "Lederkleidung": Rrs = 1: Rbe = 1: Rmaterial = "Leder"
		2014	If Typus = "Magier" Then Umhang = "Rote Robe": Urs = 0: Ube = 0
		2015	If Typus = "Nekromant" Then Umhang = "Schwarze Robe": Urs = 0: Ube = 0
		2016	If Typus = "Kleriker" Then Umhang = "Weiße Robe": Urs = 0: Ube = 0
		2017	If Typus = "Dieb" Then Umhang = "Nachtblaue Kutte": Urs = 0: Ube = 0
		2018	If Typus = "Krieger" Then Rüstung = "Lederkleidung": Rrs = 1: Rbe = 1: Rmaterial = "Leder"
		2019	If Typus = "Paladin" Then Rüstung = "Kettenhemd": Rrs = 2: Rbe = 2: Rmaterial = "Stahl"
		2020
		2021	If Typus = "Magier" Then A = "Kleiner Zaubertrank": AddObj: AddObj
		2022	If Typus = "Nekromant" Or Typus = "Kleriker" Or Typus = "Paladin" Then A = "Kleiner Zaubertrank": AddObj
		2023	If Typus = "Dieb" Then A = "Dietriche": AddObj
		2024
		2025	If Typus = "Magier" Then A = "Feuerblitz": Manager.SpruchBuch.AddItem A
		2026
		2027	If Typus = "Jäger" Then Schusswaffe = "Kurzbogen": SWGRschaden = 3: SWZUschaden = 4: SwKategorie = "Bogen": Pfeile = 6
		2028	STARThp = Hp
		2029	STARTmp = MP
		2030	Stufe = 1
		2031	RK = Rrs + Urs + Hrs + Srs
		2032	Experience = 0
		2033	NextLevel = 100
		2034	Manager.Show
		2035	Landkarte.Show
		2036	Unload Charakter
		2037	Story.Show (vbModal)
		2038	End Sub
		2039
		2040	Private Sub Command2_Click()
		2041	Epoints = Epoints - 1
		2042	Speed = Speed + 1
		2043	Label16.Caption = Speed
		2044	CheckPoints
		2045	End Sub
		2046
		2047	Private Sub Command20_Click()
		2048	STARThp = Hp
		2049	STARTmp = MP
		2050	Stufe = 1
		2051	Experience = 0
		2052	NextLevel = 100
		2053	Manager.Show
		2054	Unload Charakter
		2055	End Sub
		2056
		2057	Private Sub Command3_Click()
		2058	Epoints = Epoints - 1
		2059	Iq = Iq + 1
		2060	Label17.Caption = Iq
		2061	CheckPoints
		2062	End Sub
		2063
		2064	Private Sub Command4_Click()
		2065	Tpoints = Tpoints - 1
		2066	SCHWERTER = SCHWERTER + 1
		2067	Label27.Caption = SCHWERTER
		2068	CheckPoints
		2069	End Sub
		2070
		2071	Private Sub Command5_Click()
		2072	Tpoints = Tpoints - 1
		2073	ÄXTE = ÄXTE + 1
		2074	Label28.Caption = ÄXTE
		2075	CheckPoints
		2076	End Sub
		2077
		2078	Private Sub Command6_Click()
		2079	Tpoints = Tpoints - 1
		2080	SPEERE = SPEERE + 1
		2081	Label29.Caption = SPEERE
		2082	CheckPoints
		2083	End Sub
		2084
		2085	Private Sub Command7_Click()
		2086	Tpoints = Tpoints - 1
		2087	HIEBWAFFEN = HIEBWAFFEN + 1
		2088	Label30.Caption = HIEBWAFFEN
		2089	CheckPoints
		2090	End Sub
		2091
		2092	Private Sub Command8_Click()
		2093	Tpoints = Tpoints - 1
		2094	SCHUSSWAFFEN = SCHUSSWAFFEN + 1
		2095	Label31.Caption = SCHUSSWAFFEN
		2096	CheckPoints
		2097	End Sub
		2098
		2099	Private Sub Command9_Click()
		2100	Tpoints = Tpoints - 1
		2101	CHAOS = CHAOS + 1
		2102	Label36.Caption = CHAOS
		2103	CheckPoints
		2104	End Sub
		2105
		2106	Private Sub Form_Load()
		2107	initial
		2108	End Sub
		2109
		2110	Sub initial()
		2111	If Magician = 0 Then Label60.Caption = "Nein" Else Label60.Caption = "Ja"
		2112	If Magician = 0 Then Frame4.Height = 2255 Else Frame4.Height = 3735
		2113
		2114	Epoints = 5
		2115	Tpoints = 5
		2116	Fpoints = 15
		2117
		2118	Command1.Enabled = True: Command2.Enabled = True: Command3.Enabled = True: Command4.Enabled = True: Command5.Enabled = True
		2119	Command6.Enabled = True: Command7.Enabled = True: Command8.Enabled = True: Command9.Enabled = True: Command10.Enabled = True
		2120	Command11.Enabled = True: Command12.Enabled = True: Command13.Enabled = True: Command14.Enabled = True
		2121	Command16.Enabled = True: Command17.Enabled = True: Command18.Enabled = True
		2122
		2123	Label7.Caption = Nachteil1
		2124	Label8.Caption = Nachteil2
		2125	Label9.Caption = Nachteil3
		2126
		2127	Label5.Caption = Gold
		2128	Strength = Strength + STplus
		2129	Label15.Caption = Strength
		2130	Speed = Speed + SPplus
		2131	Label16.Caption = Speed
		2132	Iq = Iq + IQplus
		2133	Label17.Caption = Iq
		2134	Label20.Caption = Hp
		2135	Label21.Caption = MP
		2136	Label55.Caption = Epoints
		2137	Label56.Caption = Tpoints
		2138	Label57.Caption = Str(Fpoints) + "%"
		2139	Label27.Caption = SCHWERTER
		2140	Label28.Caption = ÄXTE
		2141	Label29.Caption = SPEERE
		2142	Label30.Caption = HIEBWAFFEN
		2143	Label31.Caption = SCHUSSWAFFEN
		2144	Label36.Caption = CHAOS
		2145	Label37.Caption = LICHT
		2146	Label38.Caption = NATUR
		2147	Label39.Caption = NEKROMANTIE
		2148	Label46.Caption = Str(ALCHEMIE) + "%"
		2149	Label47.Caption = Str(WUNDENHEILEN) + "%"
		2150	Label49.Caption = Str(FEILSCHEN) + "%"
		2151	Label50.Caption = Str(STEHLEN) + "%"
		2152	Label51.Caption = Str(PFLANZENKUNDE) + "%"
		2153	End Sub
		2154
		2155	Sub ElfON()
		2156	Option1.Enabled = True
		2157	Option2.Enabled = False
		2158	Option3.Enabled = True
		2159	Option4.Enabled = True
		2160	Option5.Enabled = False
		2161	Option6.Enabled = False
		2162	Option7.Enabled = False
		2163	End Sub
		2164	Sub HelfON()
		2165	Option1.Enabled = True
		2166	Option2.Enabled = False
		2167	Option3.Enabled = True
		2168	Option4.Enabled = True
		2169	Option5.Enabled = False
		2170	Option6.Enabled = True
		2171	Option7.Enabled = True
		2172	End Sub
		2173	Sub MenON()
		2174	Option1.Enabled = True
		2175	Option2.Enabled = True
		2176	Option3.Enabled = True
		2177	Option4.Enabled = True
		2178	Option5.Enabled = True
		2179	Option6.Enabled = True
		2180	Option7.Enabled = True
		2181	End Sub
		2182	Sub ZweON()
		2183	Option1.Enabled = True
		2184	Option2.Enabled = False
		2185	Option3.Enabled = False
		2186	Option4.Enabled = True
		2187	Option5.Enabled = False
		2188	Option6.Enabled = False
		2189	Option7.Enabled = True
		2190	End Sub
		2191
		2192	Private Sub Option1_Click()
		2193	Nachteil1 = ""
		2194	Nachteil2 = ""
		2195	Nachteil3 = ""
		2196	Obj = "Schwert, Lederkleidung"
		2197	TheSetter
		2198	Typus = "Krieger"
		2199	ALCHEMIE = 5: WUNDENHEILEN = 30: FEILSCHEN = 30: STEHLEN = 5: PFLANZENKUNDE = 10
		2200	SCHWERTER = 6: SPEERE = 2: ÄXTE = 3: HIEBWAFFEN = 3: SCHUSSWAFFEN = 1
		2201	NONmagician
		2202	STplus = 20
		2203	IQplus = 0
		2204	SPplus = 10
		2205	Hp = Hp + 15
		2206	MP = 0
		2207	TheTruer
		2208	initial
		2209	End Sub
		2210
		2211	Sub TheTruer()
		2212	Frame3.Visible = True
		2213	Frame4.Visible = True
		2214	Frame5.Visible = True
		2215	Frame3.Enabled = True
		2216	Frame4.Enabled = True
		2217	Frame5.Enabled = True
		2218	End Sub
		2219	Sub TheSetter()
		2220	Command19.Enabled = False
		2221	Strength = 0: Iq = 0: Speed = 0
		2222	Hp = 0
		2223	MP = 0
		2224	If Combo1.Text = "Elf" Then Hp = Hp + 25: MP = MP + 45: Strength = 20: Iq = 30: Speed = 40:
		2225	If Combo1.Text = "Halb-Elf" Then Hp = Hp + 30: MP = MP + 40: Strength = 25: Iq = 30: Speed = 35
		2226	If Combo1.Text = "Mensch" Then Hp = Hp + 35: MP = MP + 35: Strength = 30: Iq = 30: Speed = 30
		2227	If Combo1.Text = "Zwerg" Then Hp = Hp + 45: MP = MP + 25: Strength = 45: Iq = 20: Speed = 25
		2228	Label7.Caption = Nachteil1
		2229	Label8.Caption = Nachteil2
		2230	Label9.Caption = Nachteil3
		2231	Label10.Caption = Obj
		2232	End Sub
		2233
		2234	Private Sub Option2_Click()
		2235	Nachteil1 = "Darf nur Metallrüstungen tragen"
		2236	Nachteil2 = "Darf keine Schusswaffen benutzen"
		2237	Nachteil3 = ""
		2238	Obj = "Schwert, Kettenhemd, kl. Zaubertrank"
		2239	TheSetter
		2240	Typus = "Paladin"
		2241	ALCHEMIE = 15: WUNDENHEILEN = 20: FEILSCHEN = 20: STEHLEN = 0: PFLANZENKUNDE = 20
		2242	SCHWERTER = 8: SPEERE = 1: ÄXTE = 3: HIEBWAFFEN = 3: SCHUSSWAFFEN = 0
		2243	CHAOS = 0: LICHT = 2: NEKROMANTIE = -5: NATUR = 0
		2244	Magician = 1
		2245	STplus = 10
		2246	IQplus = 10
		2247	SPplus = 10
		2248	Hp = Hp + 10
		2249	TheTruer
		2250	initial
		2251	End Sub
		2252
		2253	Private Sub Option3_Click()
		2254	Nachteil1 = "Darf nur einhändig geführte Waffen tragen"
		2255	Nachteil2 = "mit Ausnahme von Speeren"
		2256	Nachteil3 = ""
		2257	Obj = "Jagdspeer, Lederkleidung, Kurzbogen, 6 Pfeile"
		2258	TheSetter
		2259	Typus = "Jäger"
		2260	ALCHEMIE = 10: WUNDENHEILEN = 30: FEILSCHEN = 10: STEHLEN = 0: PFLANZENKUNDE = 30
		2261	SCHWERTER = 3: SPEERE = 4: ÄXTE = 2: HIEBWAFFEN = 1: SCHUSSWAFFEN = 5
		2262	NONmagician
		2263	STplus = 5
		2264	IQplus = 0
		2265	SPplus = 25
		2266	Hp = Hp + 5
		2267	MP = 0
		2268	TheTruer
		2269	initial
		2270	End Sub
		2271
		2272	Private Sub Option4_Click()
		2273	Nachteil1 = "Darf nur Lederrüstungen und Roben tragen"
		2274	Nachteil2 = "Darf nur Magierstab tragen"
		2275	Nachteil3 = ""
		2276	Obj = "Magierstab, 2x kleiner Zaubertrank"
		2277	TheSetter
		2278	Typus = "Magier"
		2279	ALCHEMIE = 40: WUNDENHEILEN = 35: FEILSCHEN = 10: STEHLEN = 5: PFLANZENKUNDE = 35
		2280	SCHWERTER = 0: SPEERE = 3: ÄXTE = 0: HIEBWAFFEN = 0: SCHUSSWAFFEN = 0
		2281	CHAOS = 3: LICHT = 3: NEKROMANTIE = 2: NATUR = 2
		2282	Magician = 1
		2283	STplus = 0
		2284	IQplus = 30
		2285	SPplus = 0
		2286	MP = MP + 20
		2287	TheTruer
		2288	initial
		2289	End Sub
		2290
		2291	Private Sub Option5_Click()
		2292	Nachteil1 = "Darf nur Lederrüstungen und Roben tragen"
		2293	Nachteil2 = "Darf keine geweihten Waffen führen"
		2294	Nachteil3 = "Darf nur einhändig geführte Waffen tragen"
		2295	Obj = "Kampfstab, kleiner Zaubertrank"
		2296	TheSetter
		2297	Typus = "Nekromant"
		2298	ALCHEMIE = 30: WUNDENHEILEN = 20: FEILSCHEN = 10: STEHLEN = 15: PFLANZENKUNDE = 20
		2299	SCHWERTER = 0: SPEERE = 3: ÄXTE = 1: HIEBWAFFEN = 1: SCHUSSWAFFEN = 0
		2300	CHAOS = 3: LICHT = -5: NEKROMANTIE = 5: NATUR = 2
		2301	Magician = 1
		2302	STplus = 5
		2303	IQplus = 25
		2304	SPplus = 0
		2305	Hp = Hp + 5
		2306	MP = MP + 10
		2307	TheTruer
		2308	initial
		2309	End Sub
		2310
		2311	Private Sub Option6_Click()
		2312	Nachteil1 = "Darf nur Lederrüstungen und Roben tragen"
		2313	Nachteil2 = "Darf keine Waffen aus Schwarzem Stahl führen"
		2314	Nachteil3 = "Darf nur einhändig geführte Waffen tragen"
		2315	Obj = "Weihstab, kleiner Zaubertrank"
		2316	TheSetter
		2317	Typus = "Kleriker"
		2318	ALCHEMIE = 30: WUNDENHEILEN = 40: FEILSCHEN = 10: STEHLEN = 0: PFLANZENKUNDE = 20
		2319	SCHWERTER = 1: SPEERE = 3: ÄXTE = 0: HIEBWAFFEN = 1: SCHUSSWAFFEN = 0
		2320	CHAOS = 0: LICHT = 5: NEKROMANTIE = -5: NATUR = 4
		2321	Magician = 1
		2322	STplus = 0
		2323	IQplus = 30
		2324	SPplus = 0
		2325	Hp = Hp + 0
		2326	MP = MP + 15
		2327	TheTruer
		2328	initial
		2329	End Sub
		2330
		2331	Private Sub Option7_Click()
		2332	Nachteil1 = "Darf nur Lederrüstungen und Roben tragen"
		2333	Nachteil2 = "Darf nur einhändig geführte Waffen tragen"
		2334	Nachteil3 = ""
		2335	Obj = "Streitkolben, Dietriche"
		2336	TheSetter
		2337	Typus = "Dieb"
		2338	ALCHEMIE = 5: WUNDENHEILEN = 10: FEILSCHEN = 30: STEHLEN = 40: PFLANZENKUNDE = 10
		2339	SCHWERTER = 3: SPEERE = 2: ÄXTE = 2: HIEBWAFFEN = 6: SCHUSSWAFFEN = 2
		2340	NONmagician
		2341	STplus = 10
		2342	IQplus = 0
		2343	SPplus = 20
		2344	Hp = Hp + 5
		2345	MP = 0
		2346	TheTruer
		2347	initial
		2348	End Sub
		2349
		2350	Sub CheckPoints()
		2351	If Epoints + Fpoints + Tpoints = 0 Then Command19.Enabled = True
		2352	Label55.Caption = Epoints
		2353	Label56.Caption = Tpoints
		2354	Label57.Caption = Str(Fpoints) + "%"
		2355	If Fpoints = 0 Then
		2356	Command13.Enabled = False: Command14.Enabled = False: Command16.Enabled = False: Command17.Enabled = False: Command18.Enabled = False
		2357	End If
		2358	If Tpoints = 0 Then
		2359	Command4.Enabled = False: Command5.Enabled = False: Command6.Enabled = False: Command7.Enabled = False: Command8.Enabled = False
		2360	Command9.Enabled = False: Command10.Enabled = False: Command11.Enabled = False: Command12.Enabled = False
		2361	End If
		2362	If Epoints = 0 Then
		2363	Command1.Enabled = False: Command2.Enabled = False: Command3.Enabled = False
		2364	End If
		2365	End Sub
		2366	Sub NONmagician()
		2367	Magician = 0
		2368	CHAOS = 0: NATUR = 0: NEKROMANTIE = 0: LICHT = 0
		2369	End Sub

Subversion Repositories aysalia

aysalia/trunk/Zeitalter der Dämonen/Charakter.frm – Rev 2