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

Rev	Author	Line No.	Line
2	daniel-mar	1	VERSION 5.00
		2	Begin VB.Form Charakter
		3	BackColor = &H00000000&
		4	BorderStyle = 0 'Kein
		5	Caption = "Dragon Quest : Charakter Generierung"
		6	ClientHeight = 6990
		7	ClientLeft = 0
		8	ClientTop = 60
		9	ClientWidth = 6945
		10	LinkTopic = "Charakter"
		11	ScaleHeight = 6990
		12	ScaleWidth = 6945
		13	ShowInTaskbar = 0 'False
		14	StartUpPosition = 2 'Bildschirmmitte
		15	Begin VB.Frame Frame3
		16	BackColor = &H00000000&
		17	Caption = "Charakterwerte"
		18	BeginProperty Font
		19	Name = "MS Sans Serif"
		20	Size = 8.25
		21	Charset = 0
		22	Weight = 700
		23	Underline = 0 'False
		24	Italic = 0 'False
		25	Strikethrough = 0 'False
		26	EndProperty
		27	ForeColor = &H00FFFFFF&
		28	Height = 3375
		29	Left = 360
		30	TabIndex = 37
		31	Top = 2160
		32	Width = 3255
		33	Begin VB.CommandButton Command1
		34	Caption = "+"
		35	BeginProperty Font
		36	Name = "MS Sans Serif"
		37	Size = 13.5
		38	Charset = 0
		39	Weight = 400
		40	Underline = 0 'False
		41	Italic = 0 'False
		42	Strikethrough = 0 'False
		43	EndProperty
		44	Height = 255
		45	Left = 2640
		46	TabIndex = 40
		47	Top = 360
		48	Width = 375
		49	End
		50	Begin VB.CommandButton Command2
		51	Caption = "+"
		52	BeginProperty Font
		53	Name = "MS Sans Serif"
		54	Size = 13.5
		55	Charset = 0
		56	Weight = 400
		57	Underline = 0 'False
		58	Italic = 0 'False
		59	Strikethrough = 0 'False
		60	EndProperty
		61	Height = 255
		62	Left = 2640
		63	TabIndex = 39
		64	Top = 960
		65	Width = 375
		66	End
		67	Begin VB.CommandButton Command3
		68	Caption = "+"
		69	BeginProperty Font
		70	Name = "MS Sans Serif"
		71	Size = 13.5
		72	Charset = 0
		73	Weight = 400
		74	Underline = 0 'False
		75	Italic = 0 'False
		76	Strikethrough = 0 'False
		77	EndProperty
		78	Height = 255
		79	Left = 2640
		80	TabIndex = 38
		81	Top = 1560
		82	Width = 375
		83	End
		84	Begin VB.Label Label3
		85	AutoSize = -1 'True
		86	BackColor = &H00000000&
		87	BackStyle = 0 'Transparent
		88	Caption = "Stärke"
		89	BeginProperty Font
		90	Name = "Times New Roman"
		91	Size = 14.25
		92	Charset = 0
		93	Weight = 700
		94	Underline = 0 'False
		95	Italic = 0 'False
		96	Strikethrough = 0 'False
		97	EndProperty
		98	ForeColor = &H0000FFFF&
		99	Height = 330
		100	Left = 120
		101	TabIndex = 50
		102	Top = 360
		103	Width = 825
		104	End
		105	Begin VB.Label Label4
		106	AutoSize = -1 'True
		107	BackColor = &H00000000&
		108	BackStyle = 0 'Transparent
		109	Caption = "Intelligenz"
		110	BeginProperty Font
		111	Name = "Times New Roman"
		112	Size = 14.25
		113	Charset = 0
		114	Weight = 700
		115	Underline = 0 'False
		116	Italic = 0 'False
		117	Strikethrough = 0 'False
		118	EndProperty
		119	ForeColor = &H0000FFFF&
		120	Height = 330
		121	Left = 120
		122	TabIndex = 49
		123	Top = 960
		124	Width = 1260
		125	End
		126	Begin VB.Label Label5
		127	AutoSize = -1 'True
		128	BackColor = &H00000000&
		129	BackStyle = 0 'Transparent
		130	Caption = "Gewandtheit"
		131	BeginProperty Font
		132	Name = "Times New Roman"
		133	Size = 14.25
		134	Charset = 0
		135	Weight = 700
		136	Underline = 0 'False
		137	Italic = 0 'False
		138	Strikethrough = 0 'False
		139	EndProperty
		140	ForeColor = &H0000FFFF&
		141	Height = 330
		142	Left = 120
		143	TabIndex = 48
		144	Top = 1560
		145	Width = 1560
		146	End
		147	Begin VB.Label Label6
		148	AutoSize = -1 'True
		149	BackStyle = 0 'Transparent
		150	BorderStyle = 1 'Fest Einfach
		151	Caption = "00"
		152	BeginProperty Font
		153	Name = "MS Sans Serif"
		154	Size = 9.75
		155	Charset = 0
		156	Weight = 700
		157	Underline = 0 'False
		158	Italic = 0 'False
		159	Strikethrough = 0 'False
		160	EndProperty
		161	ForeColor = &H00FF8080&
		162	Height = 300
		163	Left = 2040
		164	TabIndex = 47
		165	Top = 360
		166	Width = 315
		167	End
		168	Begin VB.Label Label7
		169	AutoSize = -1 'True
		170	BackStyle = 0 'Transparent
		171	BorderStyle = 1 'Fest Einfach
		172	Caption = "00"
		173	BeginProperty Font
		174	Name = "MS Sans Serif"
		175	Size = 9.75
		176	Charset = 0
		177	Weight = 700
		178	Underline = 0 'False
		179	Italic = 0 'False
		180	Strikethrough = 0 'False
		181	EndProperty
		182	ForeColor = &H00FF8080&
		183	Height = 300
		184	Left = 2040
		185	TabIndex = 46
		186	Top = 960
		187	Width = 315
		188	End
		189	Begin VB.Label Label8
		190	AutoSize = -1 'True
		191	BackStyle = 0 'Transparent
		192	BorderStyle = 1 'Fest Einfach
		193	Caption = "00"
		194	BeginProperty Font
		195	Name = "MS Sans Serif"
		196	Size = 9.75
		197	Charset = 0
		198	Weight = 700
		199	Underline = 0 'False
		200	Italic = 0 'False
		201	Strikethrough = 0 'False
		202	EndProperty
		203	ForeColor = &H00FF8080&
		204	Height = 300
		205	Left = 2040
		206	TabIndex = 45
		207	Top = 1560
		208	Width = 315
		209	End
		210	Begin VB.Label Label9
		211	AutoSize = -1 'True
		212	BackStyle = 0 'Transparent
		213	Caption = "Lebensenergie"
		214	BeginProperty Font
		215	Name = "Times New Roman"
		216	Size = 14.25
		217	Charset = 0
		218	Weight = 700
		219	Underline = 0 'False
		220	Italic = 0 'False
		221	Strikethrough = 0 'False
		222	EndProperty
		223	ForeColor = &H008080FF&
		224	Height = 330
		225	Left = 120
		226	TabIndex = 44
		227	Top = 2280
		228	Width = 1770
		229	End
		230	Begin VB.Label Label10
		231	AutoSize = -1 'True
		232	BackStyle = 0 'Transparent
		233	Caption = "Mana"
		234	BeginProperty Font
		235	Name = "Times New Roman"
		236	Size = 14.25
		237	Charset = 0
		238	Weight = 700
		239	Underline = 0 'False
		240	Italic = 0 'False
		241	Strikethrough = 0 'False
		242	EndProperty
		243	ForeColor = &H00FF8080&
		244	Height = 330
		245	Left = 120
		246	TabIndex = 43
		247	Top = 2880
		248	Width = 720
		249	End
		250	Begin VB.Label Label11
		251	AutoSize = -1 'True
		252	BackStyle = 0 'Transparent
		253	BorderStyle = 1 'Fest Einfach
		254	Caption = "00"
		255	BeginProperty Font
		256	Name = "MS Sans Serif"
		257	Size = 9.75
		258	Charset = 0
		259	Weight = 700
		260	Underline = 0 'False
		261	Italic = 0 'False
		262	Strikethrough = 0 'False
		263	EndProperty
		264	ForeColor = &H00FF8080&
		265	Height = 300
		266	Left = 2040
		267	TabIndex = 42
		268	Top = 2280
		269	Width = 315
		270	End
		271	Begin VB.Label Label12
		272	AutoSize = -1 'True
		273	BackStyle = 0 'Transparent
		274	BorderStyle = 1 'Fest Einfach
		275	Caption = "00"
		276	BeginProperty Font
		277	Name = "MS Sans Serif"
		278	Size = 9.75
		279	Charset = 0
		280	Weight = 700
		281	Underline = 0 'False
		282	Italic = 0 'False
		283	Strikethrough = 0 'False
		284	EndProperty
		285	ForeColor = &H00FF8080&
		286	Height = 300
		287	Left = 2040
		288	TabIndex = 41
		289	Top = 2880
		290	Width = 315
		291	End
		292	End
		293	Begin VB.CommandButton Command6
		294	Caption = "Mit diesem Helden spielen"
		295	BeginProperty Font
		296	Name = "MS Sans Serif"
		297	Size = 8.25
		298	Charset = 0
		299	Weight = 700
		300	Underline = 0 'False
		301	Italic = 0 'False
		302	Strikethrough = 0 'False
		303	EndProperty
		304	Height = 375
		305	Left = 600
		306	TabIndex = 27
		307	Top = 6120
		308	Width = 2895
		309	End
		310	Begin VB.Frame Frame2
		311	BackColor = &H00000000&
		312	Caption = "Kampffertigkeiten"
		313	BeginProperty Font
		314	Name = "MS Sans Serif"
		315	Size = 8.25
		316	Charset = 0
		317	Weight = 700
		318	Underline = 0 'False
		319	Italic = 0 'False
		320	Strikethrough = 0 'False
		321	EndProperty
		322	ForeColor = &H00FFFFFF&
		323	Height = 2175
		324	Left = 3840
		325	TabIndex = 14
		326	Top = 4080
		327	Width = 2535
		328	Begin VB.CommandButton Command15
		329	Caption = "+"
		330	Height = 255
		331	Left = 2040
		332	TabIndex = 36
		333	Top = 1800
		334	Width = 375
		335	End
		336	Begin VB.CommandButton Command14
		337	Caption = "+"
		338	Height = 255
		339	Left = 2040
		340	TabIndex = 35
		341	Top = 1440
		342	Width = 375
		343	End
		344	Begin VB.CommandButton Command13
		345	Caption = "+"
		346	Height = 255
		347	Left = 2040
		348	TabIndex = 34
		349	Top = 1080
		350	Width = 375
		351	End
		352	Begin VB.CommandButton Command12
		353	Caption = "+"
		354	Height = 255
		355	Left = 2040
		356	TabIndex = 33
		357	Top = 720
		358	Width = 375
		359	End
		360	Begin VB.CommandButton Command11
		361	Caption = "+"
		362	Height = 255
		363	Left = 2040
		364	TabIndex = 32
		365	Top = 360
		366	Width = 375
		367	End
		368	Begin VB.Label Label30
		369	AutoSize = -1 'True
		370	BackStyle = 0 'Transparent
		371	BorderStyle = 1 'Fest Einfach
		372	Caption = "00"
		373	BeginProperty Font
		374	Name = "MS Sans Serif"
		375	Size = 8.25
		376	Charset = 0
		377	Weight = 700
		378	Underline = 0 'False
		379	Italic = 0 'False
		380	Strikethrough = 0 'False
		381	EndProperty
		382	ForeColor = &H00FF8080&
		383	Height = 255
		384	Left = 1680
		385	TabIndex = 24
		386	Top = 1800
		387	Width = 285
		388	End
		389	Begin VB.Label Label29
		390	AutoSize = -1 'True
		391	BackStyle = 0 'Transparent
		392	BorderStyle = 1 'Fest Einfach
		393	Caption = "00"
		394	BeginProperty Font
		395	Name = "MS Sans Serif"
		396	Size = 8.25
		397	Charset = 0
		398	Weight = 700
		399	Underline = 0 'False
		400	Italic = 0 'False
		401	Strikethrough = 0 'False
		402	EndProperty
		403	ForeColor = &H00FF8080&
		404	Height = 255
		405	Left = 1680
		406	TabIndex = 23
		407	Top = 1440
		408	Width = 285
		409	End
		410	Begin VB.Label Label28
		411	AutoSize = -1 'True
		412	BackStyle = 0 'Transparent
		413	BorderStyle = 1 'Fest Einfach
		414	Caption = "00"
		415	BeginProperty Font
		416	Name = "MS Sans Serif"
		417	Size = 8.25
		418	Charset = 0
		419	Weight = 700
		420	Underline = 0 'False
		421	Italic = 0 'False
		422	Strikethrough = 0 'False
		423	EndProperty
		424	ForeColor = &H00FF8080&
		425	Height = 255
		426	Left = 1680
		427	TabIndex = 22
		428	Top = 1080
		429	Width = 285
		430	End
		431	Begin VB.Label Label27
		432	AutoSize = -1 'True
		433	BackStyle = 0 'Transparent
		434	BorderStyle = 1 'Fest Einfach
		435	Caption = "00"
		436	BeginProperty Font
		437	Name = "MS Sans Serif"
		438	Size = 8.25
		439	Charset = 0
		440	Weight = 700
		441	Underline = 0 'False
		442	Italic = 0 'False
		443	Strikethrough = 0 'False
		444	EndProperty
		445	ForeColor = &H00FF8080&
		446	Height = 255
		447	Left = 1680
		448	TabIndex = 21
		449	Top = 720
		450	Width = 285
		451	End
		452	Begin VB.Label Label26
		453	AutoSize = -1 'True
		454	BackStyle = 0 'Transparent
		455	BorderStyle = 1 'Fest Einfach
		456	Caption = "00"
		457	BeginProperty Font
		458	Name = "MS Sans Serif"
		459	Size = 8.25
		460	Charset = 0
		461	Weight = 700
		462	Underline = 0 'False
		463	Italic = 0 'False
		464	Strikethrough = 0 'False
		465	EndProperty
		466	ForeColor = &H00FF8080&
		467	Height = 255
		468	Left = 1680
		469	TabIndex = 20
		470	Top = 360
		471	Width = 285
		472	End
		473	Begin VB.Label Label25
		474	AutoSize = -1 'True
		475	BackStyle = 0 'Transparent
		476	Caption = "Bögen"
		477	BeginProperty Font
		478	Name = "Times New Roman"
		479	Size = 11.25
		480	Charset = 0
		481	Weight = 700
		482	Underline = 0 'False
		483	Italic = 0 'False
		484	Strikethrough = 0 'False
		485	EndProperty
		486	ForeColor = &H0000FFFF&
		487	Height = 255
		488	Left = 240
		489	TabIndex = 19
		490	Top = 1800
		491	Width = 645
		492	End
		493	Begin VB.Label Label24
		494	AutoSize = -1 'True
		495	BackStyle = 0 'Transparent
		496	Caption = "Hiebwaffen"
		497	BeginProperty Font
		498	Name = "Times New Roman"
		499	Size = 11.25
		500	Charset = 0
		501	Weight = 700
		502	Underline = 0 'False
		503	Italic = 0 'False
		504	Strikethrough = 0 'False
		505	EndProperty
		506	ForeColor = &H0000FFFF&
		507	Height = 255
		508	Left = 240
		509	TabIndex = 18
		510	Top = 1440
		511	Width = 1095
		512	End
		513	Begin VB.Label Label23
		514	AutoSize = -1 'True
		515	BackStyle = 0 'Transparent
		516	Caption = "Stäbe/Speere"
		517	BeginProperty Font
		518	Name = "Times New Roman"
		519	Size = 11.25
		520	Charset = 0
		521	Weight = 700
		522	Underline = 0 'False
		523	Italic = 0 'False
		524	Strikethrough = 0 'False
		525	EndProperty
		526	ForeColor = &H0000FFFF&
		527	Height = 255
		528	Left = 240
		529	TabIndex = 17
		530	Top = 1080
		531	Width = 1290
		532	End
		533	Begin VB.Label Label22
		534	AutoSize = -1 'True
		535	BackStyle = 0 'Transparent
		536	Caption = "Äxte"
		537	BeginProperty Font
		538	Name = "Times New Roman"
		539	Size = 11.25
		540	Charset = 0
		541	Weight = 700
		542	Underline = 0 'False
		543	Italic = 0 'False
		544	Strikethrough = 0 'False
		545	EndProperty
		546	ForeColor = &H0000FFFF&
		547	Height = 255
		548	Left = 240
		549	TabIndex = 16
		550	Top = 720
		551	Width = 480
		552	End
		553	Begin VB.Label Label21
		554	AutoSize = -1 'True
		555	BackStyle = 0 'Transparent
		556	Caption = "Schwerter"
		557	BeginProperty Font
		558	Name = "Times New Roman"
		559	Size = 11.25
		560	Charset = 0
		561	Weight = 700
		562	Underline = 0 'False
		563	Italic = 0 'False
		564	Strikethrough = 0 'False
		565	EndProperty
		566	ForeColor = &H0000FFFF&
		567	Height = 255
		568	Left = 240
		569	TabIndex = 15
		570	Top = 360
		571	Width = 990
		572	End
		573	End
		574	Begin VB.Frame Frame1
		575	BackColor = &H00000000&
		576	Caption = "Magiefertigkeiten"
		577	BeginProperty Font
		578	Name = "MS Sans Serif"
		579	Size = 8.25
		580	Charset = 0
		581	Weight = 700
		582	Underline = 0 'False
		583	Italic = 0 'False
		584	Strikethrough = 0 'False
		585	EndProperty
		586	ForeColor = &H00FFFFFF&
		587	Height = 1815
		588	Left = 3840
		589	TabIndex = 5
		590	Top = 2160
		591	Width = 2535
		592	Begin VB.CommandButton Command10
		593	Caption = "+"
		594	Height = 255
		595	Left = 2040
		596	TabIndex = 31
		597	Top = 1440
		598	Width = 375
		599	End
		600	Begin VB.CommandButton Command9
		601	Caption = "+"
		602	Height = 255
		603	Left = 2040
		604	TabIndex = 30
		605	Top = 1080
		606	Width = 375
		607	End
		608	Begin VB.CommandButton Command8
		609	Caption = "+"
		610	Height = 255
		611	Left = 2040
		612	TabIndex = 29
		613	Top = 720
		614	Width = 375
		615	End
		616	Begin VB.CommandButton Command7
		617	Caption = "+"
		618	Height = 255
		619	Left = 2040
		620	TabIndex = 28
		621	Top = 360
		622	Width = 375
		623	End
		624	Begin VB.Label Label20
		625	AutoSize = -1 'True
		626	BackStyle = 0 'Transparent
		627	BorderStyle = 1 'Fest Einfach
		628	Caption = "00"
		629	BeginProperty Font
		630	Name = "MS Sans Serif"
		631	Size = 8.25
		632	Charset = 0
		633	Weight = 700
		634	Underline = 0 'False
		635	Italic = 0 'False
		636	Strikethrough = 0 'False
		637	EndProperty
		638	ForeColor = &H00FF8080&
		639	Height = 255
		640	Left = 1680
		641	TabIndex = 13
		642	Top = 1440
		643	Width = 285
		644	End
		645	Begin VB.Label Label19
		646	AutoSize = -1 'True
		647	BackStyle = 0 'Transparent
		648	BorderStyle = 1 'Fest Einfach
		649	Caption = "00"
		650	BeginProperty Font
		651	Name = "MS Sans Serif"
		652	Size = 8.25
		653	Charset = 0
		654	Weight = 700
		655	Underline = 0 'False
		656	Italic = 0 'False
		657	Strikethrough = 0 'False
		658	EndProperty
		659	ForeColor = &H00FF8080&
		660	Height = 255
		661	Left = 1680
		662	TabIndex = 12
		663	Top = 1080
		664	Width = 285
		665	End
		666	Begin VB.Label Label18
		667	AutoSize = -1 'True
		668	BackStyle = 0 'Transparent
		669	BorderStyle = 1 'Fest Einfach
		670	Caption = "00"
		671	BeginProperty Font
		672	Name = "MS Sans Serif"
		673	Size = 8.25
		674	Charset = 0
		675	Weight = 700
		676	Underline = 0 'False
		677	Italic = 0 'False
		678	Strikethrough = 0 'False
		679	EndProperty
		680	ForeColor = &H00FF8080&
		681	Height = 255
		682	Left = 1680
		683	TabIndex = 11
		684	Top = 720
		685	Width = 285
		686	End
		687	Begin VB.Label Label17
		688	AutoSize = -1 'True
		689	BackStyle = 0 'Transparent
		690	BorderStyle = 1 'Fest Einfach
		691	Caption = "00"
		692	BeginProperty Font
		693	Name = "MS Sans Serif"
		694	Size = 8.25
		695	Charset = 0
		696	Weight = 700
		697	Underline = 0 'False
		698	Italic = 0 'False
		699	Strikethrough = 0 'False
		700	EndProperty
		701	ForeColor = &H00FF8080&
		702	Height = 255
		703	Index = 0
		704	Left = 1680
		705	TabIndex = 10
		706	Top = 360
		707	Width = 285
		708	End
		709	Begin VB.Label Label16
		710	AutoSize = -1 'True
		711	BackStyle = 0 'Transparent
		712	Caption = "Nekromantie"
		713	BeginProperty Font
		714	Name = "Times New Roman"
		715	Size = 12
		716	Charset = 0
		717	Weight = 700
		718	Underline = 0 'False
		719	Italic = 0 'False
		720	Strikethrough = 0 'False
		721	EndProperty
		722	ForeColor = &H00808080&
		723	Height = 285
		724	Index = 0
		725	Left = 240
		726	TabIndex = 9
		727	Top = 1440
		728	Width = 1320
		729	End
		730	Begin VB.Label Label15
		731	AutoSize = -1 'True
		732	BackStyle = 0 'Transparent
		733	Caption = "Natur"
		734	BeginProperty Font
		735	Name = "Times New Roman"
		736	Size = 12
		737	Charset = 0
		738	Weight = 700
		739	Underline = 0 'False
		740	Italic = 0 'False
		741	Strikethrough = 0 'False
		742	EndProperty
		743	ForeColor = &H0000FF00&
		744	Height = 285
		745	Left = 240
		746	TabIndex = 8
		747	Top = 1080
		748	Width = 585
		749	End
		750	Begin VB.Label Label14
		751	AutoSize = -1 'True
		752	BackStyle = 0 'Transparent
		753	Caption = "Licht"
		754	BeginProperty Font
		755	Name = "Times New Roman"
		756	Size = 12
		757	Charset = 0
		758	Weight = 700
		759	Underline = 0 'False
		760	Italic = 0 'False
		761	Strikethrough = 0 'False
		762	EndProperty
		763	ForeColor = &H00C0FFFF&
		764	Height = 285
		765	Left = 240
		766	TabIndex = 7
		767	Top = 720
		768	Width = 510
		769	End
		770	Begin VB.Label Label13
		771	AutoSize = -1 'True
		772	BackStyle = 0 'Transparent
		773	Caption = "Chaos"
		774	BeginProperty Font
		775	Name = "Times New Roman"
		776	Size = 12
		777	Charset = 0
		778	Weight = 700
		779	Underline = 0 'False
		780	Italic = 0 'False
		781	Strikethrough = 0 'False
		782	EndProperty
		783	ForeColor = &H000000FF&
		784	Height = 285
		785	Left = 240
		786	TabIndex = 6
		787	Top = 360
		788	Width = 630
		789	End
		790	End
		791	Begin VB.ComboBox Combo1
		792	BackColor = &H00C00000&
		793	BeginProperty Font
		794	Name = "Times New Roman"
		795	Size = 11.25
		796	Charset = 0
		797	Weight = 700
		798	Underline = 0 'False
		799	Italic = 0 'False
		800	Strikethrough = 0 'False
		801	EndProperty
		802	ForeColor = &H0000FFFF&
		803	Height = 375
		804	ItemData = "Charakter Generate.frx":0000
		805	Left = 4320
		806	List = "Charakter Generate.frx":0019
		807	Sorted = -1 'True
		808	Style = 2 'Dropdown-Liste
		809	TabIndex = 4
		810	ToolTipText = "Wählen sie hier ihren Typus"
		811	Top = 960
		812	Width = 2055
		813	End
		814	Begin VB.TextBox Text1
		815	BackColor = &H00000000&
		816	BeginProperty Font
		817	Name = "Arial"
		818	Size = 9.75
		819	Charset = 0
		820	Weight = 700
		821	Underline = 0 'False
		822	Italic = 0 'False
		823	Strikethrough = 0 'False
		824	EndProperty
		825	ForeColor = &H00FFFFFF&
		826	Height = 375
		827	Left = 2040
		828	MousePointer = 3 'I-Cursor
		829	TabIndex = 3
		830	Text = "Kai"
		831	ToolTipText = "Geben sie hier den Namen ihres Helden ein"
		832	Top = 960
		833	Width = 1935
		834	End
		835	Begin VB.PictureBox Picture1
		836	BackColor = &H00000000&
		837	BorderStyle = 0 'Kein
		838	Height = 1455
		839	Left = 240
		840	Picture = "Charakter Generate.frx":005B
		841	ScaleHeight = 1455
		842	ScaleWidth = 1695
		843	TabIndex = 2
		844	Top = 240
		845	Width = 1695
		846	End
		847	Begin VB.Label Label99
		848	AutoSize = -1 'True
		849	BackStyle = 0 'Transparent
		850	Caption = "L"
		851	BeginProperty Font
		852	Name = "Tempus Sans ITC"
		853	Size = 14.25
		854	Charset = 0
		855	Weight = 700
		856	Underline = 0 'False
		857	Italic = 0 'False
		858	Strikethrough = 0 'False
		859	EndProperty
		860	ForeColor = &H00FF80FF&
		861	Height = 360
		862	Index = 1
		863	Left = 4320
		864	TabIndex = 54
		865	Top = 6600
		866	Width = 165
		867	End
		868	Begin VB.Label Label98
		869	AutoSize = -1 'True
		870	BackStyle = 0 'Transparent
		871	Caption = "G"
		872	BeginProperty Font
		873	Name = "Tempus Sans ITC"
		874	Size = 14.25
		875	Charset = 0
		876	Weight = 700
		877	Underline = 0 'False
		878	Italic = 0 'False
		879	Strikethrough = 0 'False
		880	EndProperty
		881	ForeColor = &H00FF00FF&
		882	Height = 360
		883	Index = 1
		884	Left = 4440
		885	TabIndex = 53
		886	Top = 6720
		887	Width = 225
		888	End
		889	Begin VB.Label Label34
		890	AutoSize = -1 'True
		891	BackStyle = 0 'Transparent
		892	Caption = "Lotus Games, (w) by Kai Breiling 1998"
		893	BeginProperty Font
		894	Name = "OCR A Extended"
		895	Size = 9
		896	Charset = 0
		897	Weight = 400
		898	Underline = -1 'True
		899	Italic = 0 'False
		900	Strikethrough = 0 'False
		901	EndProperty
		902	ForeColor = &H00FF00FF&
		903	Height = 195
		904	Left = 360
		905	MousePointer = 2 'Kreuz
		906	TabIndex = 52
		907	ToolTipText = "Hier draufklicken, um Informationen über Lotus Games zu erhalten"
		908	Top = 6720
		909	Width = 3885
		910	End
		911	Begin VB.Line Line1
		912	BorderColor = &H00FFFFFF&
		913	X1 = 360
		914	X2 = 6360
		915	Y1 = 6720
		916	Y2 = 6720
		917	End
		918	Begin VB.Label Label33
		919	AutoSize = -1 'True
		920	BackStyle = 0 'Transparent
		921	Caption = "#Nachteile#"
		922	BeginProperty Font
		923	Name = "Tahoma"
		924	Size = 8.25
		925	Charset = 0
		926	Weight = 700
		927	Underline = 0 'False
		928	Italic = 0 'False
		929	Strikethrough = 0 'False
		930	EndProperty
		931	ForeColor = &H00FFC0C0&
		932	Height = 195
		933	Left = 360
		934	TabIndex = 51
		935	Top = 1800
		936	Width = 1050
		937	End
		938	Begin VB.Label Label32
		939	AutoSize = -1 'True
		940	BackStyle = 0 'Transparent
		941	BorderStyle = 1 'Fest Einfach
		942	Caption = "6"
		943	BeginProperty Font
		944	Name = "MS Sans Serif"
		945	Size = 12
		946	Charset = 0
		947	Weight = 700
		948	Underline = 0 'False
		949	Italic = 0 'False
		950	Strikethrough = 0 'False
		951	EndProperty
		952	ForeColor = &H00FFFFFF&
		953	Height = 360
		954	Left = 3360
		955	TabIndex = 26
		956	Top = 5640
		957	Width = 225
		958	End
		959	Begin VB.Label Label31
		960	AutoSize = -1 'True
		961	BackStyle = 0 'Transparent
		962	Caption = "Übrige Punkte"
		963	BeginProperty Font
		964	Name = "MS Sans Serif"
		965	Size = 12
		966	Charset = 0
		967	Weight = 700
		968	Underline = 0 'False
		969	Italic = 0 'False
		970	Strikethrough = 0 'False
		971	EndProperty
		972	ForeColor = &H00FFFFFF&
		973	Height = 300
		974	Left = 1440
		975	TabIndex = 25
		976	Top = 5655
		977	Width = 1725
		978	End
		979	Begin VB.Label Label2
		980	AutoSize = -1 'True
		981	BackStyle = 0 'Transparent
		982	Caption = "für Dragon Quest"
		983	ForeColor = &H0000FFFF&
		984	Height = 195
		985	Left = 2160
		986	TabIndex = 1
		987	Top = 600
		988	Width = 1215
		989	End
		990	Begin VB.Label Label1
		991	AutoSize = -1 'True
		992	BackStyle = 0 'Transparent
		993	Caption = "Charakter Generierung"
		994	BeginProperty Font
		995	Name = "Times New Roman"
		996	Size = 18
		997	Charset = 0
		998	Weight = 700
		999	Underline = 0 'False
		1000	Italic = 0 'False
		1001	Strikethrough = 0 'False
		1002	EndProperty
		1003	ForeColor = &H00FFFFFF&
		1004	Height = 390
		1005	Left = 2160
		1006	TabIndex = 0
		1007	Top = 240
		1008	Width = 3675
		1009	End
		1010	End
		1011	Attribute VB_Name = "Charakter"
		1012	Attribute VB_GlobalNameSpace = False
		1013	Attribute VB_Creatable = False
		1014	Attribute VB_PredeclaredId = True
		1015	Attribute VB_Exposed = False
		1016	Private Sub Combo1_Click()
		1017	punkte = 6
		1018	Label32.Caption = 6
		1019	Select Case Combo1.ListIndex
		1020	Case 0
		1021	minSTRENGTH = 45: addSTRENGTH = 15
		1022	minIQ = 45: addIQ = 12
		1023	minSPEED = 45: addSPEED = 16
		1024	NONmagician
		1025	SCHWERTER = 4: ÄXTE = 3: STÄBE = 4: HIEBWAFFEN = 5: BÖGEN = 3
		1026	GoTo Calculate
		1027	Case 1
		1028	minSTRENGTH = 50: addSTRENGTH = 25
		1029	minIQ = 35: addIQ = 8
		1030	minSPEED = 45: addSPEED = 10
		1031	NONmagician
		1032	SCHWERTER = 2: ÄXTE = 6: STÄBE = 2: HIEBWAFFEN = 3: BÖGEN = 2
		1033	GoTo Calculate
		1034	Case 2
		1035	minSTRENGTH = 40: addSTRENGTH = 12
		1036	minIQ = 50: addIQ = 10
		1037	minSPEED = 55: addSPEED = 15
		1038	magician = 1: CHAOS = 1: NATUR = 4: LICHT = 2: NEKROMANTIE = 0
		1039	SCHWERTER = 3: ÄXTE = 1: STÄBE = 4: HIEBWAFFEN = 3: BÖGEN = 5
		1040	GoTo Calculate
		1041	Case 6
		1042	minSTRENGTH = 35: addSTRENGTH = 10
		1043	minIQ = 50: addIQ = 20
		1044	minSPEED = 45: addSPEED = 6
		1045	magician = 1: CHAOS = 2: NATUR = 1: LICHT = 0: NEKROMANTIE = 5
		1046	GoTo Calculate
		1047	SCHWERTER = 0: ÄXTE = 0: STÄBE = 3: HIEBWAFFEN = 2: BÖGEN = 1
		1048	GoTo Calculate
		1049	Case 4
		1050	minSTRENGTH = 46: addSTRENGTH = 13
		1051	minIQ = 45: addIQ = 11
		1052	minSPEED = 45: addSPEED = 18
		1053	NONmagician
		1054	SCHWERTER = 7: ÄXTE = 3: STÄBE = 3: HIEBWAFFEN = 3: BÖGEN = 2
		1055	GoTo Calculate
		1056	Case 5
		1057	minSTRENGTH = 35: addSTRENGTH = 5
		1058	minIQ = 55: addIQ = 25
		1059	minSPEED = 45: addSPEED = 8
		1060	magician = 1: CHAOS = 3: LICHT = 3: NATUR = 2: NEKROMANTIE = 2
		1061	SCHWERTER = 0: ÄXTE = 0: STÄBE = 3: HIEBWAFFEN = 2: BÖGEN = 0
		1062	GoTo Calculate
		1063	Case 3
		1064	minSTRENGTH = 35: addSTRENGTH = 9
		1065	minIQ = 49: addIQ = 21
		1066	minSPEED = 45: addSPEED = 9
		1067	magician = 1: CHAOS = 0: LICHT = 5: NATUR = 2: NEKROMANTIE = 0
		1068	SCHWERTER = 1: ÄXTE = 0: STÄBE = 3: HIEBWAFFEN = 2: BÖGEN = 1
		1069
		1070	Calculate:
		1071	Randomize Timer
		1072	Strength = Int(addSTRENGTH * Rnd) + minSTRENGTH
		1073	Randomize Timer
		1074	Iq = Int(addIQ * Rnd) + minIQ
		1075	Randomize Timer
		1076	Speed = Int(addSPEED * Rnd) + minSPEED
		1077	hpmp
		1078	Label6.Caption = Strength
		1079	Label7.Caption = Iq
		1080	Label8.Caption = Speed
		1081	Label11.Caption = hp
		1082	Label12.Caption = mp
		1083	Label17(0).Caption = CHAOS
		1084	Label18.Caption = LICHT
		1085	Label19.Caption = NATUR
		1086	Label20.Caption = NEKROMANTIE
		1087	Label26.Caption = SCHWERTER
		1088	Label27.Caption = ÄXTE
		1089	Label28.Caption = STÄBE
		1090	Label29.Caption = HIEBWAFFEN
		1091	Label30.Caption = BÖGEN
		1092	infopoint
		1093	End Select
		1094	End Sub
		1095
		1096
		1097
		1098	Private Sub Command1_Click()
		1099	If punkte = 0 Then Fehler: GoTo no
		1100	Rutiene
		1101	Strength = Strength + 1
		1102	hp = Int(Strength / 1.2)
		1103	Label6.Caption = Strength
		1104	Label11.Caption = hp
		1105	no:
		1106	End Sub
		1107
		1108	Private Sub Command10_Click()
		1109	Kontrolle
		1110	If magician = 0 Then GoTo Q4
		1111	If punkte = 0 Then Fehler: GoTo Q4
		1112	Rutiene
		1113	NEKROMANTIE = NEKROMANTIE + 1
		1114	Label20.Caption = NEKROMANTIE
		1115	Q4:
		1116	End Sub
		1117
		1118	Private Sub Command11_Click()
		1119	If punkte = 0 Then Fehler: GoTo F1
		1120	Rutiene
		1121	SCHWERTER = SCHWERTER + 1
		1122	Label26.Caption = SCHWERTER
		1123	F1:
		1124	End Sub
		1125
		1126	Private Sub Command12_Click()
		1127	If punkte = 0 Then Fehler: GoTo F2
		1128	Rutiene
		1129	ÄXTE = ÄXTE + 1
		1130	Label27.Caption = ÄXTE
		1131	F2:
		1132	End Sub
		1133
		1134	Private Sub Command13_Click()
		1135	If punkte = 0 Then Fehler: GoTo F3
		1136	Rutiene
		1137	STÄBE = STÄBE + 1
		1138	Label28.Caption = STÄBE
		1139	F3:
		1140	End Sub
		1141
		1142	Private Sub Command14_Click()
		1143	If punkte = 0 Then Fehler: GoTo F4
		1144	Rutiene
		1145	HIEBWAFFEN = HIEBWAFFEN + 1
		1146	Label29.Caption = HIEBWAFFEN
		1147	F4:
		1148	End Sub
		1149
		1150	Private Sub Command15_Click()
		1151	If punkte = 0 Then Fehler: GoTo F7
		1152	Rutiene
		1153	BÖGEN = BÖGEN + 1
		1154	Label30.Caption = BÖGEN
		1155	F7:
		1156	End Sub
		1157
		1158	Private Sub Command2_Click()
		1159	If punkte = 0 Then Fehler: GoTo no2
		1160	Rutiene
		1161	Iq = Iq + 1
		1162	If magician = 0 Then GoTo jump
		1163	mp = Int(Iq / 1.2)
		1164	jump:
		1165	Label7.Caption = Iq
		1166	Label12.Caption = mp
		1167	no2:
		1168	End Sub
		1169
		1170	Private Sub Command3_Click()
		1171	If punkte = 0 Then Fehler: GoTo no3
		1172	Rutiene
		1173	Speed = Speed + 1
		1174	Label8.Caption = Speed
		1175	no3:
		1176	End Sub
		1177
		1178	Private Sub Command4_Click()
		1179
		1180	End Sub
		1181
		1182	Private Sub Command6_Click()
		1183	hpmp
		1184	nom = Text1.Text
		1185	typus = Combo1.Text
		1186	Unload Charakter
		1187	Vorgeschichte.Show
		1188	End Sub
		1189
		1190	Private Sub Command7_Click()
		1191	Kontrolle
		1192	If magician = 0 Then GoTo Q1
		1193	If punkte = 0 Then Fehler: GoTo Q1
		1194	Rutiene
		1195	CHAOS = CHAOS + 1
		1196	Label17(0).Caption = CHAOS
		1197	Q1:
		1198	End Sub
		1199
		1200	Private Sub Command8_Click()
		1201	Kontrolle
		1202	If magician = 0 Then GoTo Q2
		1203	If punkte = 0 Then Fehler: GoTo Q2
		1204	Rutiene
		1205	LICHT = LICHT + 1
		1206	Label18.Caption = LICHT
		1207	Q2:
		1208	End Sub
		1209
		1210	Private Sub Command9_Click()
		1211	Kontrolle
		1212	If magician = 0 Then GoTo Q3
		1213	If punkte = 0 Then Fehler: GoTo Q3
		1214	Rutiene
		1215	NATUR = NATUR + 1
		1216	Label19.Caption = NATUR
		1217	Q3:
		1218	End Sub
		1219
		1220	Private Sub Form_Load()
		1221	punkte = 6
		1222	End Sub
		1223
		1224
		1225
		1226
		1227
		1228	Private Sub infopoint()
		1229	If Combo1.Text = "Amazone" Then Label33.Caption = "Kann nicht zaubern"
		1230	If Combo1.Text = "Barbar" Then Label33.Caption = "Darf nur Lederrüstungen tragen / kann nicht zaubern"
		1231	If Combo1.Text = "Elf" Then Label33.Caption = "Darf nur Lederrüstungen tragen"
		1232	If Combo1.Text = "Klerikerin" Then Label33.Caption = "Darf keine Äxte führen / Darf nur Lederrüstungen tragen"
		1233	If Combo1.Text = "Krieger" Then Label33.Caption = "Kann nicht zaubern"
		1234	If Combo1.Text = "Magier" Then Label33.Caption = "Darf keine Äxte führen / darf nur Lederrüstungen tragen"
		1235	If Combo1.Text = "Nekromanzer" Then Label33.Caption = "Darf nur Lederrüstungen tragen / darf keine elfischen Waffen führen"
		1236	End Sub
		1237
		1238	Private Sub Label34_Click()
		1239	LotusNews.Show
		1240	End Sub
		1241
		1242	Sub hpmp()
		1243	STARThp = Int(Strength / 1.2)
		1244	hp = STARThp
		1245	STARTmp = Int(Iq / 1.2)
		1246	If magician = 0 Then STARTmp = 0
		1247	mp = STARTmp
		1248	End Sub

Subversion Repositories aysalia

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