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

Rev	Author	Line No.	Line
2	daniel-mar	1	VERSION 5.00
		2	Begin VB.Form Charakter
		3	BackColor = &H00674E3A&
		4	BorderStyle = 1 'Fixed Single
		5	Caption = "Charaktergenerierung"
		6	ClientHeight = 7095
		7	ClientLeft = 45
		8	ClientTop = 360
		9	ClientWidth = 8565
		10	LinkTopic = "Charakter"
		11	MaxButton = 0 'False
		12	ScaleHeight = 7095
		13	ScaleWidth = 8565
		14	StartUpPosition = 2 'CenterScreen
		15	Begin VB.CommandButton Command4
		16	Caption = "+"
		17	BeginProperty Font
		18	Name = "MS Sans Serif"
		19	Size = 8.25
		20	Charset = 0
		21	Weight = 700
		22	Underline = 0 'False
		23	Italic = 0 'False
		24	Strikethrough = 0 'False
		25	EndProperty
		26	Height = 255
		27	Left = 7320
		28	TabIndex = 33
		29	Top = 4800
		30	Width = 255
		31	End
		32	Begin VB.CommandButton Command5
		33	Caption = "+"
		34	BeginProperty Font
		35	Name = "MS Sans Serif"
		36	Size = 8.25
		37	Charset = 0
		38	Weight = 700
		39	Underline = 0 'False
		40	Italic = 0 'False
		41	Strikethrough = 0 'False
		42	EndProperty
		43	Height = 255
		44	Left = 7320
		45	TabIndex = 32
		46	Top = 5160
		47	Width = 255
		48	End
		49	Begin VB.CommandButton Command6
		50	Caption = "+"
		51	BeginProperty Font
		52	Name = "MS Sans Serif"
		53	Size = 8.25
		54	Charset = 0
		55	Weight = 700
		56	Underline = 0 'False
		57	Italic = 0 'False
		58	Strikethrough = 0 'False
		59	EndProperty
		60	Height = 255
		61	Left = 7320
		62	TabIndex = 31
		63	Top = 5520
		64	Width = 255
		65	End
		66	Begin VB.CommandButton Command7
		67	Caption = "+"
		68	BeginProperty Font
		69	Name = "MS Sans Serif"
		70	Size = 8.25
		71	Charset = 0
		72	Weight = 700
		73	Underline = 0 'False
		74	Italic = 0 'False
		75	Strikethrough = 0 'False
		76	EndProperty
		77	Height = 255
		78	Left = 7320
		79	TabIndex = 30
		80	Top = 5880
		81	Width = 255
		82	End
		83	Begin VB.CommandButton Command8
		84	Caption = "+"
		85	BeginProperty Font
		86	Name = "MS Sans Serif"
		87	Size = 8.25
		88	Charset = 0
		89	Weight = 700
		90	Underline = 0 'False
		91	Italic = 0 'False
		92	Strikethrough = 0 'False
		93	EndProperty
		94	Height = 255
		95	Left = 7320
		96	TabIndex = 29
		97	Top = 6240
		98	Width = 255
		99	End
		100	Begin VB.CommandButton Command1
		101	Caption = "+"
		102	BeginProperty Font
		103	Name = "Arial"
		104	Size = 14.25
		105	Charset = 0
		106	Weight = 700
		107	Underline = 0 'False
		108	Italic = 0 'False
		109	Strikethrough = 0 'False
		110	EndProperty
		111	Height = 330
		112	Left = 3240
		113	TabIndex = 20
		114	Top = 3885
		115	Width = 375
		116	End
		117	Begin VB.CommandButton Command2
		118	Caption = "+"
		119	BeginProperty Font
		120	Name = "Arial"
		121	Size = 14.25
		122	Charset = 0
		123	Weight = 700
		124	Underline = 0 'False
		125	Italic = 0 'False
		126	Strikethrough = 0 'False
		127	EndProperty
		128	Height = 300
		129	Left = 3240
		130	TabIndex = 19
		131	Top = 4635
		132	Width = 375
		133	End
		134	Begin VB.CommandButton Command3
		135	Caption = "+"
		136	BeginProperty Font
		137	Name = "Arial"
		138	Size = 14.25
		139	Charset = 0
		140	Weight = 700
		141	Underline = 0 'False
		142	Italic = 0 'False
		143	Strikethrough = 0 'False
		144	EndProperty
		145	Height = 300
		146	Left = 3240
		147	TabIndex = 18
		148	Top = 5355
		149	Width = 375
		150	End
		151	Begin VB.OptionButton Option2
		152	BackColor = &H00800000&
		153	Caption = "Krieger"
		154	Enabled = 0 'False
		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	ForeColor = &H0000FFFF&
		165	Height = 315
		166	Left = 4440
		167	Style = 1 'Graphical
		168	TabIndex = 16
		169	Top = 1560
		170	Width = 1215
		171	End
		172	Begin VB.OptionButton Option3
		173	BackColor = &H00800000&
		174	Caption = "Jäger"
		175	Enabled = 0 'False
		176	BeginProperty Font
		177	Name = "Arial"
		178	Size = 9.75
		179	Charset = 0
		180	Weight = 700
		181	Underline = 0 'False
		182	Italic = 0 'False
		183	Strikethrough = 0 'False
		184	EndProperty
		185	ForeColor = &H0000FFFF&
		186	Height = 315
		187	Left = 7080
		188	Style = 1 'Graphical
		189	TabIndex = 15
		190	Top = 1560
		191	Width = 1215
		192	End
		193	Begin VB.OptionButton Option8
		194	BackColor = &H00800000&
		195	Caption = "Dieb"
		196	Enabled = 0 'False
		197	BeginProperty Font
		198	Name = "Arial"
		199	Size = 9.75
		200	Charset = 0
		201	Weight = 700
		202	Underline = 0 'False
		203	Italic = 0 'False
		204	Strikethrough = 0 'False
		205	EndProperty
		206	ForeColor = &H0000FFFF&
		207	Height = 315
		208	Left = 5760
		209	Style = 1 'Graphical
		210	TabIndex = 14
		211	Top = 1560
		212	Width = 1215
		213	End
		214	Begin VB.ComboBox Combo1
		215	BackColor = &H00800000&
		216	BeginProperty Font
		217	Name = "MS Sans Serif"
		218	Size = 9.75
		219	Charset = 0
		220	Weight = 700
		221	Underline = 0 'False
		222	Italic = 0 'False
		223	Strikethrough = 0 'False
		224	EndProperty
		225	ForeColor = &H0000FFFF&
		226	Height = 360
		227	ItemData = "Charakter.frx":0000
		228	Left = 2520
		229	List = "Charakter.frx":0010
		230	Style = 2 'Dropdown List
		231	TabIndex = 8
		232	Top = 1560
		233	Width = 1815
		234	End
		235	Begin VB.CommandButton Command13
		236	BackColor = &H00FFC0C0&
		237	Caption = "Helden übernehmen"
		238	Enabled = 0 'False
		239	BeginProperty Font
		240	Name = "MS Sans Serif"
		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	Height = 375
		249	Left = 5280
		250	Style = 1 'Graphical
		251	TabIndex = 7
		252	Top = 720
		253	Width = 3015
		254	End
		255	Begin VB.TextBox Text1
		256	BackColor = &H00C0FFFF&
		257	BeginProperty Font
		258	Name = "Arial"
		259	Size = 9
		260	Charset = 0
		261	Weight = 700
		262	Underline = 0 'False
		263	Italic = 0 'False
		264	Strikethrough = 0 'False
		265	EndProperty
		266	ForeColor = &H00000000&
		267	Height = 285
		268	Left = 5280
		269	TabIndex = 6
		270	Text = "Cramen Cendor"
		271	Top = 360
		272	Width = 3015
		273	End
		274	Begin VB.Line Line1
		275	BorderColor = &H00FFFF00&
		276	BorderWidth = 3
		277	X1 = 4680
		278	X2 = 4320
		279	Y1 = 3960
		280	Y2 = 3960
		281	End
		282	Begin VB.Label Label25
		283	BackStyle = 0 'Transparent
		284	Caption = "Je gewandter der Held ist, desto besser kann er seinen Gegner treffen."
		285	BeginProperty Font
		286	Name = "Arial"
		287	Size = 8.25
		288	Charset = 0
		289	Weight = 400
		290	Underline = 0 'False
		291	Italic = 0 'False
		292	Strikethrough = 0 'False
		293	EndProperty
		294	ForeColor = &H00C0C0C0&
		295	Height = 495
		296	Left = 360
		297	TabIndex = 47
		298	Top = 5640
		299	Width = 3855
		300	End
		301	Begin VB.Label Label14
		302	BackStyle = 0 'Transparent
		303	Caption = "In einigen Situation reagiert der Held schneller, wenn er intelligenter ist."
		304	BeginProperty Font
		305	Name = "Arial"
		306	Size = 8.25
		307	Charset = 0
		308	Weight = 400
		309	Underline = 0 'False
		310	Italic = 0 'False
		311	Strikethrough = 0 'False
		312	EndProperty
		313	ForeColor = &H00C0C0C0&
		314	Height = 495
		315	Left = 360
		316	TabIndex = 46
		317	Top = 4920
		318	Width = 3855
		319	End
		320	Begin VB.Label Label2
		321	BackStyle = 0 'Transparent
		322	Caption = "Umso größer die Stärke, desto mehr Schaden fügt der Held bei einem Treffer zu."
		323	BeginProperty Font
		324	Name = "Arial"
		325	Size = 8.25
		326	Charset = 0
		327	Weight = 400
		328	Underline = 0 'False
		329	Italic = 0 'False
		330	Strikethrough = 0 'False
		331	EndProperty
		332	ForeColor = &H00C0C0C0&
		333	Height = 495
		334	Left = 360
		335	TabIndex = 45
		336	Top = 4200
		337	Width = 3855
		338	End
		339	Begin VB.Label Label9
		340	AutoSize = -1 'True
		341	BackStyle = 0 'Transparent
		342	Caption = "C"
		343	BeginProperty Font
		344	Name = "Times New Roman"
		345	Size = 27.75
		346	Charset = 0
		347	Weight = 700
		348	Underline = 0 'False
		349	Italic = 0 'False
		350	Strikethrough = 0 'False
		351	EndProperty
		352	ForeColor = &H00C0FFFF&
		353	Height = 630
		354	Left = 360
		355	TabIndex = 44
		356	Top = 240
		357	Width = 405
		358	End
		359	Begin VB.Label Label15
		360	AutoSize = -1 'True
		361	BackStyle = 0 'Transparent
		362	Caption = "Schwerter"
		363	BeginProperty Font
		364	Name = "Arial"
		365	Size = 11.25
		366	Charset = 0
		367	Weight = 700
		368	Underline = 0 'False
		369	Italic = 0 'False
		370	Strikethrough = 0 'False
		371	EndProperty
		372	ForeColor = &H0000FFFF&
		373	Height = 270
		374	Left = 4680
		375	TabIndex = 43
		376	Top = 4800
		377	Width = 1095
		378	End
		379	Begin VB.Label Label16
		380	AutoSize = -1 'True
		381	BackStyle = 0 'Transparent
		382	Caption = "Speere und Stäbe"
		383	BeginProperty Font
		384	Name = "Arial"
		385	Size = 11.25
		386	Charset = 0
		387	Weight = 700
		388	Underline = 0 'False
		389	Italic = 0 'False
		390	Strikethrough = 0 'False
		391	EndProperty
		392	ForeColor = &H0000FFFF&
		393	Height = 270
		394	Left = 4680
		395	TabIndex = 42
		396	Top = 5160
		397	Width = 1920
		398	End
		399	Begin VB.Label Label17
		400	AutoSize = -1 'True
		401	BackStyle = 0 'Transparent
		402	Caption = "Äxte"
		403	BeginProperty Font
		404	Name = "Arial"
		405	Size = 11.25
		406	Charset = 0
		407	Weight = 700
		408	Underline = 0 'False
		409	Italic = 0 'False
		410	Strikethrough = 0 'False
		411	EndProperty
		412	ForeColor = &H0000FFFF&
		413	Height = 270
		414	Left = 4680
		415	TabIndex = 41
		416	Top = 5520
		417	Width = 465
		418	End
		419	Begin VB.Label Label18
		420	AutoSize = -1 'True
		421	BackStyle = 0 'Transparent
		422	Caption = "Hiebwaffen"
		423	BeginProperty Font
		424	Name = "Arial"
		425	Size = 11.25
		426	Charset = 0
		427	Weight = 700
		428	Underline = 0 'False
		429	Italic = 0 'False
		430	Strikethrough = 0 'False
		431	EndProperty
		432	ForeColor = &H0000FFFF&
		433	Height = 270
		434	Left = 4680
		435	TabIndex = 40
		436	Top = 5880
		437	Width = 1200
		438	End
		439	Begin VB.Label Label19
		440	AutoSize = -1 'True
		441	BackStyle = 0 'Transparent
		442	Caption = "Bögen"
		443	BeginProperty Font
		444	Name = "Arial"
		445	Size = 11.25
		446	Charset = 0
		447	Weight = 700
		448	Underline = 0 'False
		449	Italic = 0 'False
		450	Strikethrough = 0 'False
		451	EndProperty
		452	ForeColor = &H0000FFFF&
		453	Height = 270
		454	Left = 4680
		455	TabIndex = 39
		456	Top = 6240
		457	Width = 705
		458	End
		459	Begin VB.Label Label20
		460	AutoSize = -1 'True
		461	BackStyle = 0 'Transparent
		462	Caption = "00"
		463	BeginProperty Font
		464	Name = "Arial"
		465	Size = 11.25
		466	Charset = 0
		467	Weight = 700
		468	Underline = 0 'False
		469	Italic = 0 'False
		470	Strikethrough = 0 'False
		471	EndProperty
		472	ForeColor = &H00FFFFFF&
		473	Height = 270
		474	Left = 6960
		475	TabIndex = 38
		476	Top = 4800
		477	Width = 240
		478	End
		479	Begin VB.Label Label21
		480	AutoSize = -1 'True
		481	BackStyle = 0 'Transparent
		482	Caption = "00"
		483	BeginProperty Font
		484	Name = "Arial"
		485	Size = 11.25
		486	Charset = 0
		487	Weight = 700
		488	Underline = 0 'False
		489	Italic = 0 'False
		490	Strikethrough = 0 'False
		491	EndProperty
		492	ForeColor = &H00FFFFFF&
		493	Height = 270
		494	Left = 6960
		495	TabIndex = 37
		496	Top = 5160
		497	Width = 240
		498	End
		499	Begin VB.Label Label22
		500	AutoSize = -1 'True
		501	BackStyle = 0 'Transparent
		502	Caption = "00"
		503	BeginProperty Font
		504	Name = "Arial"
		505	Size = 11.25
		506	Charset = 0
		507	Weight = 700
		508	Underline = 0 'False
		509	Italic = 0 'False
		510	Strikethrough = 0 'False
		511	EndProperty
		512	ForeColor = &H00FFFFFF&
		513	Height = 270
		514	Left = 6960
		515	TabIndex = 36
		516	Top = 5520
		517	Width = 240
		518	End
		519	Begin VB.Label Label23
		520	AutoSize = -1 'True
		521	BackStyle = 0 'Transparent
		522	Caption = "00"
		523	BeginProperty Font
		524	Name = "Arial"
		525	Size = 11.25
		526	Charset = 0
		527	Weight = 700
		528	Underline = 0 'False
		529	Italic = 0 'False
		530	Strikethrough = 0 'False
		531	EndProperty
		532	ForeColor = &H00FFFFFF&
		533	Height = 270
		534	Left = 6960
		535	TabIndex = 35
		536	Top = 5880
		537	Width = 240
		538	End
		539	Begin VB.Label Label24
		540	AutoSize = -1 'True
		541	BackStyle = 0 'Transparent
		542	Caption = "00"
		543	BeginProperty Font
		544	Name = "Arial"
		545	Size = 11.25
		546	Charset = 0
		547	Weight = 700
		548	Underline = 0 'False
		549	Italic = 0 'False
		550	Strikethrough = 0 'False
		551	EndProperty
		552	ForeColor = &H00FFFFFF&
		553	Height = 270
		554	Left = 6960
		555	TabIndex = 34
		556	Top = 6240
		557	Width = 240
		558	End
		559	Begin VB.Label Label5
		560	AutoSize = -1 'True
		561	BackStyle = 0 'Transparent
		562	Caption = "Stärke"
		563	BeginProperty Font
		564	Name = "Arial"
		565	Size = 11.25
		566	Charset = 0
		567	Weight = 700
		568	Underline = 0 'False
		569	Italic = 0 'False
		570	Strikethrough = 0 'False
		571	EndProperty
		572	ForeColor = &H0000FFFF&
		573	Height = 270
		574	Left = 360
		575	TabIndex = 28
		576	Top = 3960
		577	Width = 690
		578	End
		579	Begin VB.Label Label6
		580	AutoSize = -1 'True
		581	BackStyle = 0 'Transparent
		582	Caption = "Intelligenz"
		583	BeginProperty Font
		584	Name = "Arial"
		585	Size = 11.25
		586	Charset = 0
		587	Weight = 700
		588	Underline = 0 'False
		589	Italic = 0 'False
		590	Strikethrough = 0 'False
		591	EndProperty
		592	ForeColor = &H0000FFFF&
		593	Height = 270
		594	Left = 360
		595	TabIndex = 27
		596	Top = 4680
		597	Width = 1110
		598	End
		599	Begin VB.Label Label7
		600	AutoSize = -1 'True
		601	BackStyle = 0 'Transparent
		602	Caption = "Gewandtheit"
		603	BeginProperty Font
		604	Name = "Arial"
		605	Size = 11.25
		606	Charset = 0
		607	Weight = 700
		608	Underline = 0 'False
		609	Italic = 0 'False
		610	Strikethrough = 0 'False
		611	EndProperty
		612	ForeColor = &H0000FFFF&
		613	Height = 270
		614	Left = 360
		615	TabIndex = 26
		616	Top = 5400
		617	Width = 1350
		618	End
		619	Begin VB.Label Label8
		620	AutoSize = -1 'True
		621	BackStyle = 0 'Transparent
		622	Caption = "Lebensenergie"
		623	BeginProperty Font
		624	Name = "Arial"
		625	Size = 12
		626	Charset = 0
		627	Weight = 700
		628	Underline = 0 'False
		629	Italic = 0 'False
		630	Strikethrough = 0 'False
		631	EndProperty
		632	ForeColor = &H008080FF&
		633	Height = 285
		634	Left = 360
		635	TabIndex = 25
		636	Top = 6240
		637	Width = 1710
		638	End
		639	Begin VB.Label Label10
		640	AutoSize = -1 'True
		641	BackStyle = 0 'Transparent
		642	Caption = "00"
		643	BeginProperty Font
		644	Name = "Arial"
		645	Size = 15.75
		646	Charset = 0
		647	Weight = 700
		648	Underline = 0 'False
		649	Italic = 0 'False
		650	Strikethrough = 0 'False
		651	EndProperty
		652	ForeColor = &H00FFFFFF&
		653	Height = 360
		654	Left = 2760
		655	TabIndex = 24
		656	Top = 3840
		657	Width = 360
		658	End
		659	Begin VB.Label Label11
		660	AutoSize = -1 'True
		661	BackStyle = 0 'Transparent
		662	Caption = "00"
		663	BeginProperty Font
		664	Name = "Arial"
		665	Size = 15.75
		666	Charset = 0
		667	Weight = 700
		668	Underline = 0 'False
		669	Italic = 0 'False
		670	Strikethrough = 0 'False
		671	EndProperty
		672	ForeColor = &H00FFFFFF&
		673	Height = 360
		674	Left = 2760
		675	TabIndex = 23
		676	Top = 4560
		677	Width = 360
		678	End
		679	Begin VB.Label Label12
		680	AutoSize = -1 'True
		681	BackStyle = 0 'Transparent
		682	Caption = "00"
		683	BeginProperty Font
		684	Name = "Arial"
		685	Size = 15.75
		686	Charset = 0
		687	Weight = 700
		688	Underline = 0 'False
		689	Italic = 0 'False
		690	Strikethrough = 0 'False
		691	EndProperty
		692	ForeColor = &H00FFFFFF&
		693	Height = 360
		694	Left = 2760
		695	TabIndex = 22
		696	Top = 5280
		697	Width = 360
		698	End
		699	Begin VB.Label Label13
		700	AutoSize = -1 'True
		701	BackStyle = 0 'Transparent
		702	Caption = "00"
		703	BeginProperty Font
		704	Name = "Arial"
		705	Size = 15.75
		706	Charset = 0
		707	Weight = 700
		708	Underline = 0 'False
		709	Italic = 0 'False
		710	Strikethrough = 0 'False
		711	EndProperty
		712	ForeColor = &H00FFFFFF&
		713	Height = 360
		714	Left = 2760
		715	TabIndex = 21
		716	Top = 6240
		717	Width = 360
		718	End
		719	Begin VB.Label N1
		720	BackStyle = 0 'Transparent
		721	Caption = "#Nachteil#"
		722	BeginProperty Font
		723	Name = "Arial"
		724	Size = 9.75
		725	Charset = 0
		726	Weight = 700
		727	Underline = 0 'False
		728	Italic = 0 'False
		729	Strikethrough = 0 'False
		730	EndProperty
		731	ForeColor = &H00FFC0C0&
		732	Height = 225
		733	Left = 4440
		734	TabIndex = 17
		735	Top = 3240
		736	Width = 3855
		737	End
		738	Begin VB.Label Label34
		739	AutoSize = -1 'True
		740	BackStyle = 0 'Transparent
		741	Caption = "0"
		742	BeginProperty Font
		743	Name = "Arial"
		744	Size = 9
		745	Charset = 0
		746	Weight = 700
		747	Underline = 0 'False
		748	Italic = 0 'False
		749	Strikethrough = 0 'False
		750	EndProperty
		751	ForeColor = &H0000FFFF&
		752	Height = 225
		753	Left = 3960
		754	TabIndex = 13
		755	Top = 3240
		756	Width = 105
		757	End
		758	Begin VB.Label Label40
		759	BackStyle = 0 'Transparent
		760	Caption = "Liste"
		761	BeginProperty Font
		762	Name = "Arial"
		763	Size = 9
		764	Charset = 0
		765	Weight = 700
		766	Underline = 0 'False
		767	Italic = 0 'False
		768	Strikethrough = 0 'False
		769	EndProperty
		770	ForeColor = &H0000FFFF&
		771	Height = 1455
		772	Left = 360
		773	TabIndex = 12
		774	Top = 1920
		775	Width = 1815
		776	End
		777	Begin VB.Label Label4
		778	AutoSize = -1 'True
		779	BackStyle = 0 'Transparent
		780	Caption = "Goldkronen"
		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 = &H00FFFFFF&
		791	Height = 225
		792	Left = 2520
		793	TabIndex = 11
		794	Top = 3240
		795	Width = 975
		796	End
		797	Begin VB.Label Label39
		798	AutoSize = -1 'True
		799	BackStyle = 0 'Transparent
		800	Caption = "Gegenstände"
		801	BeginProperty Font
		802	Name = "Arial"
		803	Size = 9
		804	Charset = 0
		805	Weight = 700
		806	Underline = 0 'False
		807	Italic = 0 'False
		808	Strikethrough = 0 'False
		809	EndProperty
		810	ForeColor = &H00FFFFFF&
		811	Height = 225
		812	Left = 360
		813	TabIndex = 10
		814	Top = 1560
		815	Width = 1125
		816	End
		817	Begin VB.Label Label3
		818	BackStyle = 0 'Transparent
		819	Caption = "Beschreibung"
		820	BeginProperty Font
		821	Name = "Arial"
		822	Size = 9.75
		823	Charset = 0
		824	Weight = 700
		825	Underline = 0 'False
		826	Italic = -1 'True
		827	Strikethrough = 0 'False
		828	EndProperty
		829	ForeColor = &H00C0C0C0&
		830	Height = 975
		831	Left = 4440
		832	TabIndex = 9
		833	Top = 1920
		834	Width = 3855
		835	End
		836	Begin VB.Label Label33
		837	AutoSize = -1 'True
		838	BackStyle = 0 'Transparent
		839	Caption = "Name"
		840	BeginProperty Font
		841	Name = "Arial"
		842	Size = 9
		843	Charset = 0
		844	Weight = 700
		845	Underline = 0 'False
		846	Italic = 0 'False
		847	Strikethrough = 0 'False
		848	EndProperty
		849	ForeColor = &H00FFFFFF&
		850	Height = 225
		851	Left = 4680
		852	TabIndex = 5
		853	Top = 360
		854	Width = 495
		855	End
		856	Begin VB.Label Label38
		857	AutoSize = -1 'True
		858	BackStyle = 0 'Transparent
		859	Caption = "15"
		860	BeginProperty Font
		861	Name = "Arial"
		862	Size = 12
		863	Charset = 0
		864	Weight = 700
		865	Underline = 0 'False
		866	Italic = 0 'False
		867	Strikethrough = 0 'False
		868	EndProperty
		869	ForeColor = &H00FFFFFF&
		870	Height = 285
		871	Left = 7320
		872	TabIndex = 4
		873	Top = 4320
		874	Width = 270
		875	End
		876	Begin VB.Label Label37
		877	AutoSize = -1 'True
		878	BackStyle = 0 'Transparent
		879	Caption = "Fähigkeitspunkte"
		880	BeginProperty Font
		881	Name = "Arial"
		882	Size = 12
		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 = 285
		891	Left = 4680
		892	TabIndex = 3
		893	Top = 4320
		894	Width = 1980
		895	End
		896	Begin VB.Label Label36
		897	AutoSize = -1 'True
		898	BackStyle = 0 'Transparent
		899	Caption = "15"
		900	BeginProperty Font
		901	Name = "Arial"
		902	Size = 12
		903	Charset = 0
		904	Weight = 700
		905	Underline = 0 'False
		906	Italic = 0 'False
		907	Strikethrough = 0 'False
		908	EndProperty
		909	ForeColor = &H00FFFFFF&
		910	Height = 285
		911	Left = 7320
		912	TabIndex = 2
		913	Top = 3840
		914	Width = 270
		915	End
		916	Begin VB.Label Label35
		917	AutoSize = -1 'True
		918	BackStyle = 0 'Transparent
		919	Caption = "Eigenschaftspunkte"
		920	BeginProperty Font
		921	Name = "Arial"
		922	Size = 12
		923	Charset = 0
		924	Weight = 700
		925	Underline = 0 'False
		926	Italic = 0 'False
		927	Strikethrough = 0 'False
		928	EndProperty
		929	ForeColor = &H00FFFFFF&
		930	Height = 285
		931	Left = 4680
		932	TabIndex = 1
		933	Top = 3840
		934	Width = 2295
		935	End
		936	Begin VB.Label Label1
		937	AutoSize = -1 'True
		938	BackStyle = 0 'Transparent
		939	Caption = "harakter Generierung"
		940	BeginProperty Font
		941	Name = "Times New Roman"
		942	Size = 18
		943	Charset = 0
		944	Weight = 700
		945	Underline = 0 'False
		946	Italic = 0 'False
		947	Strikethrough = 0 'False
		948	EndProperty
		949	ForeColor = &H00FFFFFF&
		950	Height = 390
		951	Left = 760
		952	TabIndex = 0
		953	Top = 400
		954	Width = 3420
		955	End
		956	Begin VB.Shape Shape1
		957	BorderColor = &H000000C0&
		958	FillColor = &H00400000&
		959	FillStyle = 0 'Solid
		960	Height = 975
		961	Left = 240
		962	Top = 120
		963	Width = 4215
		964	End
		965	Begin VB.Shape Shape2
		966	BorderColor = &H00C0C0FF&
		967	FillStyle = 0 'Solid
		968	Height = 2055
		969	Left = 240
		970	Top = 1440
		971	Width = 2055
		972	End
		973	Begin VB.Shape Shape3
		974	BorderColor = &H00FFFFFF&
		975	FillStyle = 0 'Solid
		976	Height = 2415
		977	Left = 4560
		978	Top = 4200
		979	Width = 3135
		980	End
		981	Begin VB.Shape Shape4
		982	BorderColor = &H00FFFFC0&
		983	FillStyle = 0 'Solid
		984	Height = 2895
		985	Left = 240
		986	Top = 3720
		987	Width = 4095
		988	End
		989	End
		990	Attribute VB_Name = "Charakter"
		991	Attribute VB_GlobalNameSpace = False
		992	Attribute VB_Creatable = False
		993	Attribute VB_PredeclaredId = True
		994	Attribute VB_Exposed = False
		995
		996	Sub diob()
		997	a = "Schriftrolle 'Schlösser öffnen'"
		998	frmInternal.List1.AddItem a
		999	End Sub
		1000	Sub drob()
		1001	a = "großer Heiltrank"
		1002	frmInternal.List1.AddItem a
		1003	End Sub
		1004	Sub klob()
		1005	a = "kleiner Heiltrank"
		1006	frmInternal.List1.AddItem a
		1007	a = "Gegengift"
		1008	frmInternal.List1.AddItem a
		1009	a = "Krankheitselixier"
		1010	frmInternal.List1.AddItem a
		1011	End Sub
		1012	Sub neob()
		1013	a = "kleiner Heiltrank"
		1014	frmInternal.List1.AddItem a
		1015	End Sub
		1016
		1017	Sub maob()
		1018	a = "kleiner Heiltrank"
		1019	frmInternal.List1.AddItem a
		1020	a = "kleiner Heiltrank"
		1021	frmInternal.List1.AddItem a
		1022	End Sub
		1023	Sub jaob()
		1024	a = "kleiner Heiltrank"
		1025	frmInternal.List1.AddItem a
		1026	End Sub
		1027	Sub paob()
		1028	a = "kleiner Heiltrank"
		1029	frmInternal.List1.AddItem a
		1030	End Sub
		1031	Sub COOLZERO()
		1032	SCHWERTER = 0
		1033	STÄBE = 0
		1034	ÄXTE = 0
		1035	HIEBWAFFEN = 0
		1036	BÖGEN = 0
		1037	CHAOS = 0
		1038	NATUR = 0
		1039	LICHT = 0
		1040	NEKROMANTIE = 0
		1041	End Sub
		1042	Private Sub Kontrolle()
		1043	If magician = 0 Then MsgBox "Nur Magiebegabte Helden können diese Fähigkeit steigern!", 64 + 0, "Fehler:"
		1044	End Sub
		1045	Sub Opo()
		1046	If (punkte + fpunkte = 0) And (Combo1.ListIndex <> -1) And ((Option2.Value And Option2.Enabled) Or (Option8.Value And Option8.Enabled) Or (Option3.Value And Option3.Enabled)) Then Command13.Enabled = True Else Command13.Enabled = False
		1047	End Sub
		1048	Sub rutiene2()
		1049	punkte = punkte - 1
		1050	Label36.Caption = punkte
		1051	Opo
		1052	End Sub
		1053	Private Sub Rutiene()
		1054	fpunkte = fpunkte - 1
		1055	Label38.Caption = fpunkte
		1056	Opo
		1057	End Sub
		1058	Private Sub Combo1_Click()
		1059	COOLZERO
		1060	If Combo1.Text = "Elf" Then Label3.Caption = "Elfen sind leichtfüßige Menschenähnliche Gestalten, abgesehen von den spitzen Ohren und den Mandelförmigen Augen.": gold = 50: hp = 25: mp = 25
		1061	If Combo1.Text = "Mensch" Then Label3.Caption = "Menschen sind die am häufigsten vorkomme Rasse in Aysalia": gold = 150: hp = 35: mp = 15
		1062	If Combo1.Text = "Halb-Elf" Then Label3.Caption = "Halb-Elfen sind eine Mischung aus Mensch und Elf, diese Rasse hat etwas bessere Sinne als die Menschen.": gold = 100: hp = 30: mp = 30
		1063	If Combo1.Text = "Zwerg" Then Label3.Caption = "Zwerge fühlen sich am meisten in Höhlen heimisch. Sie sind gewohnt schwere Äxte zu führen, und machen dies meisterlich.": gold = 200: hp = 40: mp = 5
		1064	initial
		1065	End Sub
		1066
		1067	Private Sub NONmagician()
		1068	magician = 0: CHAOS = 0: NATUR = 0: NEKROMANTIE = 0: LICHT = 0
		1069	End Sub
		1070
		1071	Private Sub Command1_Click()
		1072	If punkte = 0 Then Fehler: GoTo no
		1073	rutiene2
		1074	Strength = Strength + 1
		1075	Label10.Caption = Strength
		1076	no:
		1077	End Sub
		1078
		1079	Private Sub Command10_Click()
		1080	Kontrolle
		1081	If magician = 0 Then GoTo Q2
		1082	If fpunkte = 0 Then Fehler: GoTo Q2
		1083	Rutiene
		1084	NATUR = NATUR + 1
		1085	Label30.Caption = NATUR
		1086	Q2:
		1087	End Sub
		1088
		1089	Private Sub Command11_Click()
		1090	Kontrolle
		1091	If magician = 0 Then GoTo Q3
		1092	If fpunkte = 0 Then Fehler: GoTo Q3
		1093	Rutiene
		1094	LICHT = LICHT + 1
		1095	Label31.Caption = LICHT
		1096	Q3:
		1097	End Sub
		1098
		1099	Private Sub Command12_Click()
		1100	Kontrolle
		1101	If magician = 0 Then GoTo Q4
		1102	If fpunkte = 0 Then Fehler: GoTo Q4
		1103	Rutiene
		1104	NEKROMANTIE = NEKROMANTIE + 1
		1105	Label32.Caption = NEKROMANTIE
		1106	Q4:
		1107	End Sub
		1108
		1109	Private Sub Command13_Click()
		1110	STARThp = hp
		1111	STARTmp = mp
		1112	If typus = "Krieger" Then waffe = "Kurzschwert": kateg = "Sch": grundwert = 2: zusatzwert = 2: material = "Stahl": ABZUG = 0: rüstung = "Lederharnisch": rs = 3: be = 3
		1113	If typus = "Paladin" Then waffe = "Schwert": kateg = "Sch": grundwert = 3: zusatzwert = 3: material = "Stahl": ABZUG = 0: rüstung = "kurzes Kettenhemd": rs = 2: be = 2: paob
		1114	If typus = "Jäger" Then waffe = "Jagdspeer": kateg = "Sp": grundwert = 2: zusatzwert = 7: material = "Stahl": ABZUG = 0: rüstung = "Lederkleidung": rs = 1: be = 1: bogen = "Kurzbogen": pfeile = 6: fkgrschaden = 3: fkzuschaden = 4: jaob
		1115	If typus = "Magier" Then waffe = "Kampfstab": kateg = "Sp": grundwert = 2: zusatzwert = 3: material = "Holz": ABZUG = 0: rüstung = "Kutte": rs = 0: be = 0: maob
		1116	If typus = "Nekromant" Then waffe = "Kampfstab": kateg = "Sp": grundwert = 2: zusatzwert = 3: material = "Schwarz": ABZUG = 0: rüstung = "Schwarze Robe": rs = 0: be = 0: neob
		1117	If typus = "Kleriker" Then waffe = "Weihstab": kateg = "Sp": grundwert = 2: zusatzwert = 4: material = "Geweiht": ABZUG = 0: rüstung = "Weiße Robe": rs = 0: be = 0: klob
		1118	If typus = "Druide" Then waffe = "Jagdspeer": kateg = "sp": grundwert = 2: zusatzwert = 7: material = "Stahl": ABZUG = 0: rüstung = "Grüne Kutte": rs = 0: be = 0: drob
		1119	If typus = "Dieb" Then waffe = "Streitkolben": kateg = "Hie": grundwert = 2: zusatzwert = 5: material = "Stahl": ABZUG = 0: rüstung = "Lederkleidung": rs = 0: be = 0: diob
		1120
		1121	If typus = "Magier" Then spell = "Feuerblitz": Spruchbuch.Combo1.AddItem spell
		1122	If typus = "Nekromant" Then spell = "Schattenblitz": Spruchbuch.Combo1.AddItem spell
		1123	If typus = "Kleriker" Then spell = "Lichtblitz": Spruchbuch.Combo1.AddItem spell
		1124	If typus = "Druide" Then spell = "Leichte Heilung": Spruchbuch.Combo1.AddItem spell
		1125	stufe = 3
		1126	experience = 300
		1127	NextLevel = NextLevel + stufe * 100 + experience
		1128	nom = Text1.Text
		1129	Unload Charakter
		1130	Vorgeschichte.Show
		1131	End Sub
		1132
		1133	Private Sub Command2_Click()
		1134	If punkte = 0 Then Fehler: GoTo no2
		1135	rutiene2
		1136	Iq = Iq + 1
		1137	Label11.Caption = Iq
		1138	no2:
		1139	End Sub
		1140
		1141	Private Sub Command3_Click()
		1142	If punkte = 0 Then Fehler: GoTo no3
		1143	rutiene2
		1144	Speed = Speed + 1
		1145	Label12.Caption = Speed
		1146	no3:
		1147	End Sub
		1148
		1149	Private Sub Command4_Click()
		1150	If fpunkte = 0 Then Fehler: GoTo F1
		1151	Rutiene
		1152	SCHWERTER = SCHWERTER + 1
		1153	Label20.Caption = SCHWERTER
		1154	F1:
		1155	End Sub
		1156
		1157	Private Sub Command5_Click()
		1158	If fpunkte = 0 Then Fehler: GoTo F2
		1159	Rutiene
		1160	STÄBE = STÄBE + 1
		1161	Label21.Caption = STÄBE
		1162	F2:
		1163	End Sub
		1164
		1165	Private Sub Command6_Click()
		1166	If fpunkte = 0 Then Fehler: GoTo F3
		1167	Rutiene
		1168	ÄXTE = ÄXTE + 1
		1169	Label22.Caption = ÄXTE
		1170	F3:
		1171	End Sub
		1172
		1173	Private Sub Command7_Click()
		1174	If fpunkte = 0 Then Fehler: GoTo F4
		1175	Rutiene
		1176	HIEBWAFFEN = HIEBWAFFEN + 1
		1177	Label23.Caption = HIEBWAFFEN
		1178	F4:
		1179	End Sub
		1180
		1181	Private Sub Command8_Click()
		1182	If fpunkte = 0 Then Fehler: GoTo F5
		1183	Rutiene
		1184	BÖGEN = BÖGEN + 1
		1185	Label24.Caption = BÖGEN
		1186	F5:
		1187	End Sub
		1188
		1189	Private Sub Command9_Click()
		1190	Kontrolle
		1191	If magician = 0 Then GoTo Q1
		1192	If fpunkte = 0 Then Fehler: GoTo Q1
		1193	Rutiene
		1194	CHAOS = CHAOS + 1
		1195	Label29.Caption = CHAOS
		1196	Q1:
		1197	End Sub
		1198
		1199	Private Sub Form_Load()
		1200	initial
		1201	End Sub
		1202
		1203	Private Sub Option1_Click()
		1204	nachteil1 = "Darf nur Metallrüstungen tragen"
		1205	nachteil2 = "Darf keine Bögen führen"
		1206	nachteil3 = ""
		1207	obj = "Schwert, kleiner Heiltrank, kurzes Kettenhemd"
		1208	WrNach
		1209	typus = "Paladin"
		1210	SCHWERTER = 7: STÄBE = 1: ÄXTE = 3: HIEBWAFFEN = 3: BÖGEN = 0
		1211	CHAOS = 0: LICHT = 2: NEKROMANTIE = 0: NATUR = 0
		1212	magician = 1
		1213	StPlus = 15
		1214	IqPlus = 10
		1215	SpPlus = 0
		1216	hp = hp + 20
		1217	mp = mp + 15
		1218	Nogger
		1219	initial
		1220	End Sub
		1221
		1222	Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
		1223	If UnloadMode = 0 Then End
		1224	End Sub
		1225
		1226	Private Sub Option2_Click()
		1227	obj = "Kurzschwert, Lederharnisch"
		1228	nachteil1 = ""
		1229
		1230	WrNach
		1231	typus = "Krieger"
		1232	SCHWERTER = 5: STÄBE = 3: ÄXTE = 4: HIEBWAFFEN = 3: BÖGEN = 3
		1233	NONmagician
		1234	StPlus = 20
		1235	IqPlus = 0
		1236	SpPlus = 10
		1237	hp = hp + 25
		1238	mp = 0
		1239	Nogger
		1240	initial
		1241	End Sub
		1242
		1243	Private Sub Option3_Click()
		1244	nachteil1 = "Darf NUR Lederrüstungen tragen"
		1245
		1246	obj = "Jagdspeer, kleiner Heiltrank, Kurzbogen, 6 Pfeile"
		1247	WrNach
		1248	typus = "Jäger"
		1249	SCHWERTER = 2: STÄBE = 5: ÄXTE = 3: HIEBWAFFEN = 2: BÖGEN = 5
		1250	NONmagician
		1251	StPlus = 5
		1252	IqPlus = 0
		1253	SpPlus = 20
		1254	hp = hp + 15
		1255	mp = 0
		1256	Nogger
		1257	initial
		1258	End Sub
		1259
		1260	Private Sub Option4_Click()
		1261	nachteil1 = "Darf nur Lederrüstungen tragen"
		1262	nachteil2 = "Darf keine Äxte führen"
		1263	nachteil3 = ""
		1264	obj = "Kampfstab, 2x kleiner Heiltrank"
		1265	WrNach
		1266	typus = "Magier"
		1267	SCHWERTER = 0: STÄBE = 3: ÄXTE = 0: HIEBWAFFEN = 1: BÖGEN = 0
		1268	CHAOS = 4: LICHT = 3: NEKROMANTIE = 1: NATUR = 2
		1269	magician = 1
		1270	StPlus = -5
		1271	IqPlus = 25
		1272	SpPlus = 0
		1273	hp = hp + 5
		1274	mp = mp + 25
		1275	Nogger
		1276	initial
		1277	End Sub
		1278
		1279	Private Sub Option5_Click()
		1280	nachteil1 = "Darf nur Lederrüstungen tragen"
		1281	nachteil2 = "Darf keine geweihten Waffen führen"
		1282	nachteil3 = ""
		1283	obj = "Kampfstab, kleiner Heiltrank"
		1284	WrNach
		1285	typus = "Nekromant"
		1286	SCHWERTER = 0: STÄBE = 3: ÄXTE = 1: HIEBWAFFEN = 2: BÖGEN = 0
		1287	CHAOS = 2: LICHT = 0: NEKROMANTIE = 5: NATUR = 1
		1288	magician = 1
		1289	StPlus = -5
		1290	IqPlus = 20
		1291	SpPlus = 0
		1292	hp = hp + 10
		1293	mp = mp + 20
		1294	Nogger
		1295	initial
		1296	End Sub
		1297
		1298	Private Sub Option6_Click()
		1299	obj = "Weihstab, kleiner Heiltrank, Gegengift, Krankheitselixier"
		1300	nachteil1 = "Darf nur Lederrüstungen tragen"
		1301	nachteil2 = "Darf keine Äxte führen"
		1302	nachteil3 = "Darf keine schwarzen Waffen führen"
		1303	WrNach
		1304	typus = "Kleriker"
		1305	SCHWERTER = 0: STÄBE = 3: ÄXTE = 0: HIEBWAFFEN = 2: BÖGEN = 0
		1306	CHAOS = 0: LICHT = 4: NEKROMANTIE = 0: NATUR = 2
		1307	magician = 1
		1308	StPlus = -5
		1309	IqPlus = 20
		1310	SpPlus = 0
		1311	hp = hp + 5
		1312	mp = mp + 20
		1313	Nogger
		1314	initial
		1315	End Sub
		1316
		1317	Private Sub Option7_Click()
		1318	obj = "Speer, großer Heiltrank"
		1319	nachteil1 = "Darf nur Lederrüstungen tragen"
		1320	nachteil2 = "Darf keine schwarzen Waffen führen"
		1321	nachteil3 = "Darf keine Äxte führen"
		1322	WrNach
		1323	typus = "Druide"
		1324	SCHWERTER = 0: STÄBE = 4: ÄXTE = 0: HIEBWAFFEN = 2: BÖGEN = 0
		1325	CHAOS = 0: LICHT = 2: NEKROMANTIE = 1: NATUR = 5
		1326	magician = 1
		1327	StPlus = -5
		1328	IqPlus = 20
		1329	SpPlus = 10
		1330	hp = hp + 5
		1331	mp = mp + 20
		1332	Nogger
		1333	initial
		1334	End Sub
		1335
		1336	Private Sub Option8_Click()
		1337	obj = "Streitkolben, Schriftrolle Schlösser öffnen"
		1338	nachteil1 = "Darf nur Lederrüstungen oder Kettenhemd tragen"
		1339
		1340	WrNach
		1341	typus = "Dieb"
		1342	SCHWERTER = 2: STÄBE = 1: ÄXTE = 1: HIEBWAFFEN = 4: BÖGEN = 2
		1343	NONmagician
		1344	StPlus = 5
		1345	IqPlus = 0
		1346	SpPlus = 10
		1347	hp = hp + 15
		1348	mp = 0
		1349	Nogger
		1350	initial
		1351	End Sub
		1352
		1353	Sub initial()
		1354	Label34.Caption = gold
		1355	punkte = 15
		1356	fpunkte = 5
		1357	Opo
		1358	If Combo1.Text = "Elf" Then Strength = 30: Iq = 45: Speed = 50: EClass
		1359	If Combo1.Text = "Halb-Elf" Then Strength = 35: Iq = 40: Speed = 50: HEClass
		1360	If Combo1.Text = "Mensch" Then Strength = 40: Iq = 40: Speed = 45: MClass
		1361	If Combo1.Text = "Zwerg" Then Strength = 50: Iq = 35: Speed = 40: ZClass
		1362	If StPlus = -5 Then Strength = Strength - 5: GoTo weiter
		1363	Strength = StPlus + Strength
		1364	weiter:
		1365	Iq = IqPlus + Iq
		1366	Speed = SpPlus + Speed
		1367	Label10.Caption = Strength
		1368	Label11.Caption = Iq
		1369	Label12.Caption = Speed
		1370	If magician = 0 Then STARTmp = 0: mp = 0
		1371	If Combo1.Text = "Elf" Then STÄBE = STÄBE + 2: ÄXTE = ÄXTE - 1
		1372	If Combo1.Text = "Mensch" Then SCHWERTER = SCHWERTER + 1: STÄBE = STÄBE - 1
		1373	If Combo1.Text = "Zwerg" Then SCHWERTER = SCHWERTER - 2: ÄXTE = ÄXTE + 2
		1374	Label13.Caption = hp
		1375	Label20.Caption = SCHWERTER
		1376	Label21.Caption = STÄBE
		1377	Label22.Caption = ÄXTE
		1378	Label23.Caption = HIEBWAFFEN
		1379	Label24.Caption = BÖGEN
		1380	Label36.Caption = punkte
		1381	Label38.Caption = fpunkte
		1382	End Sub
		1383
		1384	Sub EClass()
		1385	Option2.Enabled = True
		1386	Option3.Enabled = True
		1387	Option8.Enabled = False
		1388	End Sub
		1389
		1390	Sub HEClass()
		1391	Option2.Enabled = True
		1392	Option3.Enabled = True
		1393	Option8.Enabled = True
		1394
		1395	End Sub
		1396
		1397	Sub MClass()
		1398	Option2.Enabled = True
		1399	Option3.Enabled = True
		1400	Option8.Enabled = True
		1401
		1402	End Sub
		1403	Sub ZClass()
		1404	Option2.Enabled = True
		1405	Option3.Enabled = False
		1406	Option8.Enabled = True
		1407	End Sub
		1408
		1409	Sub WrNach()
		1410	If Combo1.Text = "Elf" Then hp = 25: mp = 25
		1411	If Combo1.Text = "Mensch" Then hp = 35: mp = 15
		1412	If Combo1.Text = "Halb-Elf" Then hp = 30: mp = 30
		1413	If Combo1.Text = "Zwerg" Then hp = 40: mp = 5
		1414	N1.Caption = nachteil1
		1415	Label40.Caption = obj
		1416	End Sub
		1417	Sub Nogger()
		1418	End Sub

Subversion Repositories aysalia

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