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

Rev	Author	Line No.	Line
2	daniel-mar	1	VERSION 5.00
		2	Begin VB.Form Kampf
		3	BackColor = &H00404040&
		4	BorderStyle = 0 'None
		5	Caption = "Kampfsequenz"
		6	ClientHeight = 7860
		7	ClientLeft = 0
		8	ClientTop = 105
		9	ClientWidth = 9720
		10	LinkTopic = "Kampfsequenz"
		11	ScaleHeight = 7860
		12	ScaleWidth = 9720
		13	ShowInTaskbar = 0 'False
		14	StartUpPosition = 2 'CenterScreen
		15	Begin VB.CommandButton Fliehen
		16	BackColor = &H00E0E0E0&
		17	Cancel = -1 'True
		18	Caption = "Fliehen"
		19	Enabled = 0 'False
		20	BeginProperty Font
		21	Name = "Arial"
		22	Size = 8.25
		23	Charset = 0
		24	Weight = 700
		25	Underline = 0 'False
		26	Italic = 0 'False
		27	Strikethrough = 0 'False
		28	EndProperty
		29	Height = 495
		30	Left = 600
		31	Style = 1 'Graphical
		32	TabIndex = 31
		33	Top = 6000
		34	Width = 2415
		35	End
		36	Begin VB.CommandButton Command6
		37	BackColor = &H00E0E0E0&
		38	Caption = "Objekt benutzen"
		39	BeginProperty Font
		40	Name = "Arial"
		41	Size = 8.25
		42	Charset = 0
		43	Weight = 700
		44	Underline = 0 'False
		45	Italic = 0 'False
		46	Strikethrough = 0 'False
		47	EndProperty
		48	Height = 255
		49	Left = 3360
		50	Style = 1 'Graphical
		51	TabIndex = 10
		52	Top = 6240
		53	Width = 1695
		54	End
		55	Begin VB.CommandButton Command5
		56	BackColor = &H00E0E0E0&
		57	Caption = "Inventar öffnen"
		58	BeginProperty Font
		59	Name = "Arial"
		60	Size = 8.25
		61	Charset = 0
		62	Weight = 700
		63	Underline = 0 'False
		64	Italic = 0 'False
		65	Strikethrough = 0 'False
		66	EndProperty
		67	Height = 255
		68	Left = 3360
		69	Style = 1 'Graphical
		70	TabIndex = 9
		71	Top = 6000
		72	Width = 1695
		73	End
		74	Begin VB.CommandButton Command2
		75	BackColor = &H00E0E0E0&
		76	Caption = "#Schusswaffe#"
		77	BeginProperty Font
		78	Name = "Arial"
		79	Size = 8.25
		80	Charset = 0
		81	Weight = 700
		82	Underline = 0 'False
		83	Italic = 0 'False
		84	Strikethrough = 0 'False
		85	EndProperty
		86	Height = 615
		87	Left = 600
		88	Style = 1 'Graphical
		89	TabIndex = 3
		90	Top = 5040
		91	Width = 2415
		92	End
		93	Begin VB.CommandButton Command1
		94	BackColor = &H00E0E0E0&
		95	Caption = "#Handwaffe#"
		96	Default = -1 'True
		97	BeginProperty Font
		98	Name = "Arial"
		99	Size = 8.25
		100	Charset = 0
		101	Weight = 700
		102	Underline = 0 'False
		103	Italic = 0 'False
		104	Strikethrough = 0 'False
		105	EndProperty
		106	Height = 615
		107	Left = 600
		108	Style = 1 'Graphical
		109	TabIndex = 0
		110	Top = 4080
		111	Width = 2415
		112	End
		113	Begin VB.Label Label46
		114	Alignment = 2 'Center
		115	BackStyle = 0 'Transparent
		116	Caption = "#NAME"
		117	BeginProperty Font
		118	Name = "Arial"
		119	Size = 15.75
		120	Charset = 0
		121	Weight = 700
		122	Underline = 0 'False
		123	Italic = 0 'False
		124	Strikethrough = 0 'False
		125	EndProperty
		126	ForeColor = &H00FFFFFF&
		127	Height = 375
		128	Left = 5280
		129	TabIndex = 65
		130	Top = 1200
		131	Width = 4215
		132	End
		133	Begin VB.Shape Shape4
		134	FillColor = &H00966A5A&
		135	FillStyle = 0 'Solid
		136	Height = 495
		137	Left = 5280
		138	Top = 1200
		139	Width = 4215
		140	End
		141	Begin VB.Label Label17
		142	AutoSize = -1 'True
		143	BackStyle = 0 'Transparent
		144	Caption = "Waffe"
		145	BeginProperty Font
		146	Name = "Arial"
		147	Size = 8.25
		148	Charset = 0
		149	Weight = 700
		150	Underline = 0 'False
		151	Italic = 0 'False
		152	Strikethrough = 0 'False
		153	EndProperty
		154	ForeColor = &H00FFFFFF&
		155	Height = 210
		156	Left = 5520
		157	TabIndex = 64
		158	Top = 1920
		159	Width = 465
		160	End
		161	Begin VB.Label Label18
		162	AutoSize = -1 'True
		163	BackStyle = 0 'Transparent
		164	Caption = "Label18"
		165	BeginProperty Font
		166	Name = "Arial"
		167	Size = 8.25
		168	Charset = 0
		169	Weight = 700
		170	Underline = 0 'False
		171	Italic = 0 'False
		172	Strikethrough = 0 'False
		173	EndProperty
		174	ForeColor = &H00FFFFFF&
		175	Height = 210
		176	Left = 6480
		177	TabIndex = 63
		178	Top = 1920
		179	Width = 630
		180	End
		181	Begin VB.Label Label19
		182	Alignment = 1 'Right Justify
		183	AutoSize = -1 'True
		184	BackStyle = 0 'Transparent
		185	Caption = "la19"
		186	BeginProperty Font
		187	Name = "Arial"
		188	Size = 8.25
		189	Charset = 0
		190	Weight = 700
		191	Underline = 0 'False
		192	Italic = 0 'False
		193	Strikethrough = 0 'False
		194	EndProperty
		195	ForeColor = &H0000FF00&
		196	Height = 210
		197	Left = 6480
		198	TabIndex = 62
		199	Top = 2160
		200	Width = 315
		201	End
		202	Begin VB.Label Label20
		203	AutoSize = -1 'True
		204	BackStyle = 0 'Transparent
		205	Caption = "-"
		206	BeginProperty Font
		207	Name = "Arial"
		208	Size = 8.25
		209	Charset = 0
		210	Weight = 700
		211	Underline = 0 'False
		212	Italic = 0 'False
		213	Strikethrough = 0 'False
		214	EndProperty
		215	ForeColor = &H00FFFFFF&
		216	Height = 210
		217	Left = 6840
		218	TabIndex = 61
		219	Top = 2160
		220	Width = 60
		221	End
		222	Begin VB.Label Label21
		223	AutoSize = -1 'True
		224	BackStyle = 0 'Transparent
		225	Caption = "la21"
		226	BeginProperty Font
		227	Name = "Arial"
		228	Size = 8.25
		229	Charset = 0
		230	Weight = 700
		231	Underline = 0 'False
		232	Italic = 0 'False
		233	Strikethrough = 0 'False
		234	EndProperty
		235	ForeColor = &H0000FF00&
		236	Height = 210
		237	Left = 6960
		238	TabIndex = 60
		239	Top = 2160
		240	Width = 315
		241	End
		242	Begin VB.Label Label22
		243	AutoSize = -1 'True
		244	BackStyle = 0 'Transparent
		245	Caption = "la22"
		246	BeginProperty Font
		247	Name = "Arial"
		248	Size = 8.25
		249	Charset = 0
		250	Weight = 700
		251	Underline = 0 'False
		252	Italic = 0 'False
		253	Strikethrough = 0 'False
		254	EndProperty
		255	ForeColor = &H0000FF00&
		256	Height = 210
		257	Left = 8160
		258	TabIndex = 59
		259	Top = 1920
		260	Width = 315
		261	End
		262	Begin VB.Label Label23
		263	AutoSize = -1 'True
		264	BackStyle = 0 'Transparent
		265	Caption = "la23"
		266	BeginProperty Font
		267	Name = "Arial"
		268	Size = 8.25
		269	Charset = 0
		270	Weight = 700
		271	Underline = 0 'False
		272	Italic = 0 'False
		273	Strikethrough = 0 'False
		274	EndProperty
		275	ForeColor = &H0000FF00&
		276	Height = 210
		277	Left = 8160
		278	TabIndex = 58
		279	Top = 2160
		280	Width = 315
		281	End
		282	Begin VB.Label Label24
		283	AutoSize = -1 'True
		284	BackStyle = 0 'Transparent
		285	Caption = "Rüstung"
		286	BeginProperty Font
		287	Name = "Arial"
		288	Size = 8.25
		289	Charset = 0
		290	Weight = 700
		291	Underline = 0 'False
		292	Italic = 0 'False
		293	Strikethrough = 0 'False
		294	EndProperty
		295	ForeColor = &H00FFFFFF&
		296	Height = 210
		297	Left = 5520
		298	TabIndex = 57
		299	Top = 2640
		300	Width = 690
		301	End
		302	Begin VB.Label Label25
		303	AutoSize = -1 'True
		304	BackStyle = 0 'Transparent
		305	Caption = "Label25"
		306	BeginProperty Font
		307	Name = "Arial"
		308	Size = 8.25
		309	Charset = 0
		310	Weight = 700
		311	Underline = 0 'False
		312	Italic = 0 'False
		313	Strikethrough = 0 'False
		314	EndProperty
		315	ForeColor = &H00FFFFFF&
		316	Height = 210
		317	Left = 6480
		318	TabIndex = 56
		319	Top = 2640
		320	Width = 630
		321	End
		322	Begin VB.Label Label26
		323	Alignment = 1 'Right Justify
		324	AutoSize = -1 'True
		325	BackStyle = 0 'Transparent
		326	Caption = "la26"
		327	BeginProperty Font
		328	Name = "Arial"
		329	Size = 8.25
		330	Charset = 0
		331	Weight = 700
		332	Underline = 0 'False
		333	Italic = 0 'False
		334	Strikethrough = 0 'False
		335	EndProperty
		336	ForeColor = &H0000FF00&
		337	Height = 210
		338	Left = 6480
		339	TabIndex = 55
		340	Top = 2880
		341	Width = 315
		342	End
		343	Begin VB.Label Label27
		344	AutoSize = -1 'True
		345	BackStyle = 0 'Transparent
		346	Caption = "la27"
		347	BeginProperty Font
		348	Name = "Arial"
		349	Size = 8.25
		350	Charset = 0
		351	Weight = 700
		352	Underline = 0 'False
		353	Italic = 0 'False
		354	Strikethrough = 0 'False
		355	EndProperty
		356	ForeColor = &H0000FF00&
		357	Height = 210
		358	Left = 8160
		359	TabIndex = 54
		360	Top = 2640
		361	Width = 315
		362	End
		363	Begin VB.Label Label28
		364	AutoSize = -1 'True
		365	BackStyle = 0 'Transparent
		366	Caption = "la28"
		367	BeginProperty Font
		368	Name = "Arial"
		369	Size = 8.25
		370	Charset = 0
		371	Weight = 700
		372	Underline = 0 'False
		373	Italic = 0 'False
		374	Strikethrough = 0 'False
		375	EndProperty
		376	ForeColor = &H0000FF00&
		377	Height = 210
		378	Left = 8160
		379	TabIndex = 53
		380	Top = 2880
		381	Width = 315
		382	End
		383	Begin VB.Label Label29
		384	AutoSize = -1 'True
		385	BackStyle = 0 'Transparent
		386	Caption = "Bogen"
		387	BeginProperty Font
		388	Name = "Arial"
		389	Size = 8.25
		390	Charset = 0
		391	Weight = 700
		392	Underline = 0 'False
		393	Italic = 0 'False
		394	Strikethrough = 0 'False
		395	EndProperty
		396	ForeColor = &H00FFFFFF&
		397	Height = 210
		398	Left = 5520
		399	TabIndex = 52
		400	Top = 3360
		401	Width = 525
		402	End
		403	Begin VB.Label Label30
		404	AutoSize = -1 'True
		405	BackStyle = 0 'Transparent
		406	Caption = "Label30"
		407	BeginProperty Font
		408	Name = "Arial"
		409	Size = 8.25
		410	Charset = 0
		411	Weight = 700
		412	Underline = 0 'False
		413	Italic = 0 'False
		414	Strikethrough = 0 'False
		415	EndProperty
		416	ForeColor = &H00FFFFFF&
		417	Height = 210
		418	Left = 6480
		419	TabIndex = 51
		420	Top = 3360
		421	Width = 630
		422	End
		423	Begin VB.Label Label31
		424	Alignment = 1 'Right Justify
		425	AutoSize = -1 'True
		426	BackStyle = 0 'Transparent
		427	Caption = "la31"
		428	BeginProperty Font
		429	Name = "Arial"
		430	Size = 8.25
		431	Charset = 0
		432	Weight = 700
		433	Underline = 0 'False
		434	Italic = 0 'False
		435	Strikethrough = 0 'False
		436	EndProperty
		437	ForeColor = &H0000FF00&
		438	Height = 210
		439	Left = 6480
		440	TabIndex = 50
		441	Top = 3600
		442	Width = 315
		443	End
		444	Begin VB.Label Label32
		445	AutoSize = -1 'True
		446	BackStyle = 0 'Transparent
		447	Caption = "-"
		448	BeginProperty Font
		449	Name = "Arial"
		450	Size = 8.25
		451	Charset = 0
		452	Weight = 700
		453	Underline = 0 'False
		454	Italic = 0 'False
		455	Strikethrough = 0 'False
		456	EndProperty
		457	ForeColor = &H00FFFFFF&
		458	Height = 210
		459	Left = 6840
		460	TabIndex = 49
		461	Top = 3600
		462	Width = 60
		463	End
		464	Begin VB.Label Label33
		465	AutoSize = -1 'True
		466	BackStyle = 0 'Transparent
		467	Caption = "la33"
		468	BeginProperty Font
		469	Name = "Arial"
		470	Size = 8.25
		471	Charset = 0
		472	Weight = 700
		473	Underline = 0 'False
		474	Italic = 0 'False
		475	Strikethrough = 0 'False
		476	EndProperty
		477	ForeColor = &H0000FF00&
		478	Height = 210
		479	Left = 6960
		480	TabIndex = 48
		481	Top = 3600
		482	Width = 315
		483	End
		484	Begin VB.Label Label34
		485	AutoSize = -1 'True
		486	BackStyle = 0 'Transparent
		487	Caption = "Stärke"
		488	BeginProperty Font
		489	Name = "Arial"
		490	Size = 8.25
		491	Charset = 0
		492	Weight = 700
		493	Underline = 0 'False
		494	Italic = 0 'False
		495	Strikethrough = 0 'False
		496	EndProperty
		497	ForeColor = &H00FFFFFF&
		498	Height = 210
		499	Left = 5520
		500	TabIndex = 47
		501	Top = 4440
		502	Width = 540
		503	End
		504	Begin VB.Label Label35
		505	AutoSize = -1 'True
		506	BackStyle = 0 'Transparent
		507	Caption = "Gewandtheit"
		508	BeginProperty Font
		509	Name = "Arial"
		510	Size = 8.25
		511	Charset = 0
		512	Weight = 700
		513	Underline = 0 'False
		514	Italic = 0 'False
		515	Strikethrough = 0 'False
		516	EndProperty
		517	ForeColor = &H00FFFFFF&
		518	Height = 210
		519	Left = 5520
		520	TabIndex = 46
		521	Top = 4800
		522	Width = 1050
		523	End
		524	Begin VB.Label Label36
		525	AutoSize = -1 'True
		526	BackStyle = 0 'Transparent
		527	Caption = "Intelligenz"
		528	BeginProperty Font
		529	Name = "Arial"
		530	Size = 8.25
		531	Charset = 0
		532	Weight = 700
		533	Underline = 0 'False
		534	Italic = 0 'False
		535	Strikethrough = 0 'False
		536	EndProperty
		537	ForeColor = &H00FFFFFF&
		538	Height = 210
		539	Left = 5520
		540	TabIndex = 45
		541	Top = 5160
		542	Width = 855
		543	End
		544	Begin VB.Label Label37
		545	AutoSize = -1 'True
		546	BackStyle = 0 'Transparent
		547	Caption = "Lebensenergie"
		548	BeginProperty Font
		549	Name = "Arial"
		550	Size = 12
		551	Charset = 0
		552	Weight = 700
		553	Underline = 0 'False
		554	Italic = 0 'False
		555	Strikethrough = 0 'False
		556	EndProperty
		557	ForeColor = &H008080FF&
		558	Height = 285
		559	Left = 5520
		560	TabIndex = 44
		561	Top = 6000
		562	Width = 1710
		563	End
		564	Begin VB.Label Label39
		565	AutoSize = -1 'True
		566	BackStyle = 0 'Transparent
		567	Caption = "la39"
		568	BeginProperty Font
		569	Name = "Arial"
		570	Size = 8.25
		571	Charset = 0
		572	Weight = 700
		573	Underline = 0 'False
		574	Italic = 0 'False
		575	Strikethrough = 0 'False
		576	EndProperty
		577	ForeColor = &H0000FF00&
		578	Height = 210
		579	Left = 6960
		580	TabIndex = 43
		581	Top = 4440
		582	Width = 315
		583	End
		584	Begin VB.Label Label40
		585	AutoSize = -1 'True
		586	BackStyle = 0 'Transparent
		587	Caption = "la40"
		588	BeginProperty Font
		589	Name = "Arial"
		590	Size = 8.25
		591	Charset = 0
		592	Weight = 700
		593	Underline = 0 'False
		594	Italic = 0 'False
		595	Strikethrough = 0 'False
		596	EndProperty
		597	ForeColor = &H0000FF00&
		598	Height = 210
		599	Left = 6960
		600	TabIndex = 42
		601	Top = 4800
		602	Width = 315
		603	End
		604	Begin VB.Label Label41
		605	AutoSize = -1 'True
		606	BackStyle = 0 'Transparent
		607	Caption = "la41"
		608	BeginProperty Font
		609	Name = "Arial"
		610	Size = 8.25
		611	Charset = 0
		612	Weight = 700
		613	Underline = 0 'False
		614	Italic = 0 'False
		615	Strikethrough = 0 'False
		616	EndProperty
		617	ForeColor = &H0000FF00&
		618	Height = 210
		619	Left = 6960
		620	TabIndex = 41
		621	Top = 5160
		622	Width = 315
		623	End
		624	Begin VB.Label Label42
		625	AutoSize = -1 'True
		626	BackStyle = 0 'Transparent
		627	Caption = "la42"
		628	BeginProperty Font
		629	Name = "Arial"
		630	Size = 12
		631	Charset = 0
		632	Weight = 700
		633	Underline = 0 'False
		634	Italic = 0 'False
		635	Strikethrough = 0 'False
		636	EndProperty
		637	ForeColor = &H008080FF&
		638	Height = 285
		639	Left = 7680
		640	TabIndex = 40
		641	Top = 6000
		642	Width = 465
		643	End
		644	Begin VB.Label Label44
		645	AutoSize = -1 'True
		646	BackStyle = 0 'Transparent
		647	Caption = "Pfeile"
		648	BeginProperty Font
		649	Name = "Arial"
		650	Size = 8.25
		651	Charset = 0
		652	Weight = 700
		653	Underline = 0 'False
		654	Italic = 0 'False
		655	Strikethrough = 0 'False
		656	EndProperty
		657	ForeColor = &H00FFFFFF&
		658	Height = 210
		659	Left = 8160
		660	TabIndex = 39
		661	Top = 3360
		662	Width = 465
		663	End
		664	Begin VB.Label Label45
		665	AutoSize = -1 'True
		666	BackStyle = 0 'Transparent
		667	Caption = "la45"
		668	BeginProperty Font
		669	Name = "Arial"
		670	Size = 8.25
		671	Charset = 0
		672	Weight = 700
		673	Underline = 0 'False
		674	Italic = 0 'False
		675	Strikethrough = 0 'False
		676	EndProperty
		677	ForeColor = &H0000FF00&
		678	Height = 210
		679	Left = 8160
		680	TabIndex = 38
		681	Top = 3600
		682	Width = 315
		683	End
		684	Begin VB.Label Label62
		685	BackStyle = 0 'Transparent
		686	Caption = "Schaden:"
		687	BeginProperty Font
		688	Name = "Arial"
		689	Size = 8.25
		690	Charset = 0
		691	Weight = 700
		692	Underline = 0 'False
		693	Italic = 0 'False
		694	Strikethrough = 0 'False
		695	EndProperty
		696	ForeColor = &H00FFFFFF&
		697	Height = 255
		698	Left = 7680
		699	TabIndex = 37
		700	Top = 4440
		701	Width = 855
		702	End
		703	Begin VB.Label Label63
		704	BackStyle = 0 'Transparent
		705	Caption = "la63"
		706	BeginProperty Font
		707	Name = "Arial"
		708	Size = 8.25
		709	Charset = 0
		710	Weight = 700
		711	Underline = 0 'False
		712	Italic = 0 'False
		713	Strikethrough = 0 'False
		714	EndProperty
		715	ForeColor = &H00FFFFFF&
		716	Height = 255
		717	Left = 8640
		718	TabIndex = 36
		719	Top = 4440
		720	Width = 375
		721	End
		722	Begin VB.Label Label64
		723	AutoSize = -1 'True
		724	BackStyle = 0 'Transparent
		725	Caption = "Erfahrung"
		726	BeginProperty Font
		727	Name = "Arial"
		728	Size = 8.25
		729	Charset = 0
		730	Weight = 700
		731	Underline = 0 'False
		732	Italic = 0 'False
		733	Strikethrough = 0 'False
		734	EndProperty
		735	ForeColor = &H00FFFFFF&
		736	Height = 210
		737	Left = 7680
		738	TabIndex = 35
		739	Top = 4920
		740	Width = 810
		741	End
		742	Begin VB.Label Label65
		743	Alignment = 1 'Right Justify
		744	AutoSize = -1 'True
		745	BackStyle = 0 'Transparent
		746	Caption = "la65"
		747	BeginProperty Font
		748	Name = "Arial"
		749	Size = 8.25
		750	Charset = 0
		751	Weight = 700
		752	Underline = 0 'False
		753	Italic = 0 'False
		754	Strikethrough = 0 'False
		755	EndProperty
		756	ForeColor = &H0000FFFF&
		757	Height = 210
		758	Left = 7995
		759	TabIndex = 34
		760	Top = 5280
		761	Width = 315
		762	End
		763	Begin VB.Label Label66
		764	AutoSize = -1 'True
		765	BackStyle = 0 'Transparent
		766	Caption = "/"
		767	BeginProperty Font
		768	Name = "Arial"
		769	Size = 8.25
		770	Charset = 0
		771	Weight = 700
		772	Underline = 0 'False
		773	Italic = 0 'False
		774	Strikethrough = 0 'False
		775	EndProperty
		776	ForeColor = &H00FFFFFF&
		777	Height = 210
		778	Left = 8400
		779	TabIndex = 33
		780	Top = 5280
		781	Width = 45
		782	End
		783	Begin VB.Label Label67
		784	AutoSize = -1 'True
		785	BackStyle = 0 'Transparent
		786	Caption = "la67"
		787	BeginProperty Font
		788	Name = "Arial"
		789	Size = 8.25
		790	Charset = 0
		791	Weight = 700
		792	Underline = 0 'False
		793	Italic = 0 'False
		794	Strikethrough = 0 'False
		795	EndProperty
		796	ForeColor = &H0000FFFF&
		797	Height = 210
		798	Left = 8520
		799	TabIndex = 32
		800	Top = 5280
		801	Width = 315
		802	End
		803	Begin VB.Shape Shape3
		804	BackColor = &H00000000&
		805	BorderColor = &H00000000&
		806	FillColor = &H00800000&
		807	FillStyle = 0 'Solid
		808	Height = 5535
		809	Left = 5280
		810	Top = 960
		811	Width = 4215
		812	End
		813	Begin VB.Label Label43
		814	AutoSize = -1 'True
		815	BackStyle = 0 'Transparent
		816	Caption = "ein Angriff findet statt!"
		817	BeginProperty Font
		818	Name = "Times New Roman"
		819	Size = 20.25
		820	Charset = 0
		821	Weight = 700
		822	Underline = 0 'False
		823	Italic = -1 'True
		824	Strikethrough = 0 'False
		825	EndProperty
		826	ForeColor = &H00C0FFFF&
		827	Height = 465
		828	Left = 480
		829	TabIndex = 30
		830	Top = 240
		831	Width = 3960
		832	End
		833	Begin VB.Label Label38
		834	Alignment = 2 'Center
		835	BackStyle = 0 'Transparent
		836	Caption = "#NAME"
		837	BeginProperty Font
		838	Name = "Arial"
		839	Size = 12
		840	Charset = 0
		841	Weight = 700
		842	Underline = 0 'False
		843	Italic = 0 'False
		844	Strikethrough = 0 'False
		845	EndProperty
		846	ForeColor = &H00FFFFFF&
		847	Height = 315
		848	Left = 600
		849	TabIndex = 29
		850	Top = 1200
		851	Width = 4215
		852	End
		853	Begin VB.Label Label1
		854	AutoSize = -1 'True
		855	BackStyle = 0 'Transparent
		856	Caption = "Waffe"
		857	BeginProperty Font
		858	Name = "Arial"
		859	Size = 8.25
		860	Charset = 0
		861	Weight = 700
		862	Underline = 0 'False
		863	Italic = 0 'False
		864	Strikethrough = 0 'False
		865	EndProperty
		866	ForeColor = &H00FFFFFF&
		867	Height = 210
		868	Left = 720
		869	TabIndex = 28
		870	Top = 1920
		871	Width = 465
		872	End
		873	Begin VB.Label label2
		874	Alignment = 1 'Right Justify
		875	AutoSize = -1 'True
		876	BackStyle = 0 'Transparent
		877	Caption = "la2"
		878	BeginProperty Font
		879	Name = "Arial"
		880	Size = 8.25
		881	Charset = 0
		882	Weight = 700
		883	Underline = 0 'False
		884	Italic = 0 'False
		885	Strikethrough = 0 'False
		886	EndProperty
		887	ForeColor = &H0000FF00&
		888	Height = 210
		889	Left = 1500
		890	TabIndex = 27
		891	Top = 2160
		892	Width = 225
		893	End
		894	Begin VB.Label Label3
		895	AutoSize = -1 'True
		896	BackStyle = 0 'Transparent
		897	Caption = "-"
		898	BeginProperty Font
		899	Name = "Arial"
		900	Size = 8.25
		901	Charset = 0
		902	Weight = 700
		903	Underline = 0 'False
		904	Italic = 0 'False
		905	Strikethrough = 0 'False
		906	EndProperty
		907	ForeColor = &H00FFFFFF&
		908	Height = 210
		909	Left = 1800
		910	TabIndex = 26
		911	Top = 2160
		912	Width = 60
		913	End
		914	Begin VB.Label Label4
		915	AutoSize = -1 'True
		916	BackStyle = 0 'Transparent
		917	Caption = "la4"
		918	BeginProperty Font
		919	Name = "Arial"
		920	Size = 8.25
		921	Charset = 0
		922	Weight = 700
		923	Underline = 0 'False
		924	Italic = 0 'False
		925	Strikethrough = 0 'False
		926	EndProperty
		927	ForeColor = &H0000FF00&
		928	Height = 210
		929	Left = 1920
		930	TabIndex = 25
		931	Top = 2160
		932	Width = 225
		933	End
		934	Begin VB.Label Label5
		935	AutoSize = -1 'True
		936	BackStyle = 0 'Transparent
		937	Caption = "Label5"
		938	BeginProperty Font
		939	Name = "Arial"
		940	Size = 8.25
		941	Charset = 0
		942	Weight = 700
		943	Underline = 0 'False
		944	Italic = 0 'False
		945	Strikethrough = 0 'False
		946	EndProperty
		947	ForeColor = &H00FFFFFF&
		948	Height = 210
		949	Left = 1440
		950	TabIndex = 24
		951	Top = 1920
		952	Width = 540
		953	End
		954	Begin VB.Label Label6
		955	AutoSize = -1 'True
		956	BackStyle = 0 'Transparent
		957	Caption = "Rüstung"
		958	BeginProperty Font
		959	Name = "Arial"
		960	Size = 8.25
		961	Charset = 0
		962	Weight = 700
		963	Underline = 0 'False
		964	Italic = 0 'False
		965	Strikethrough = 0 'False
		966	EndProperty
		967	ForeColor = &H00FFFFFF&
		968	Height = 210
		969	Left = 720
		970	TabIndex = 23
		971	Top = 2520
		972	Width = 690
		973	End
		974	Begin VB.Label Label7
		975	AutoSize = -1 'True
		976	BackStyle = 0 'Transparent
		977	Caption = "Label7"
		978	BeginProperty Font
		979	Name = "Arial"
		980	Size = 8.25
		981	Charset = 0
		982	Weight = 700
		983	Underline = 0 'False
		984	Italic = 0 'False
		985	Strikethrough = 0 'False
		986	EndProperty
		987	ForeColor = &H00FFFFFF&
		988	Height = 210
		989	Left = 1440
		990	TabIndex = 22
		991	Top = 2520
		992	Width = 540
		993	End
		994	Begin VB.Label Label8
		995	Alignment = 1 'Right Justify
		996	AutoSize = -1 'True
		997	BackStyle = 0 'Transparent
		998	Caption = "la8"
		999	BeginProperty Font
		1000	Name = "Arial"
		1001	Size = 8.25
		1002	Charset = 0
		1003	Weight = 700
		1004	Underline = 0 'False
		1005	Italic = 0 'False
		1006	Strikethrough = 0 'False
		1007	EndProperty
		1008	ForeColor = &H0000FF00&
		1009	Height = 210
		1010	Left = 1500
		1011	TabIndex = 21
		1012	Top = 2760
		1013	Width = 225
		1014	End
		1015	Begin VB.Label Label9
		1016	AutoSize = -1 'True
		1017	BackStyle = 0 'Transparent
		1018	Caption = "Stärke"
		1019	BeginProperty Font
		1020	Name = "Arial"
		1021	Size = 8.25
		1022	Charset = 0
		1023	Weight = 700
		1024	Underline = 0 'False
		1025	Italic = 0 'False
		1026	Strikethrough = 0 'False
		1027	EndProperty
		1028	ForeColor = &H00FFFFFF&
		1029	Height = 210
		1030	Left = 3000
		1031	TabIndex = 20
		1032	Top = 2280
		1033	Width = 540
		1034	End
		1035	Begin VB.Label Label10
		1036	AutoSize = -1 'True
		1037	BackStyle = 0 'Transparent
		1038	Caption = "Gewandtheit"
		1039	BeginProperty Font
		1040	Name = "Arial"
		1041	Size = 8.25
		1042	Charset = 0
		1043	Weight = 700
		1044	Underline = 0 'False
		1045	Italic = 0 'False
		1046	Strikethrough = 0 'False
		1047	EndProperty
		1048	ForeColor = &H00FFFFFF&
		1049	Height = 210
		1050	Left = 3000
		1051	TabIndex = 19
		1052	Top = 2520
		1053	Width = 1050
		1054	End
		1055	Begin VB.Label Label11
		1056	AutoSize = -1 'True
		1057	BackStyle = 0 'Transparent
		1058	Caption = "Lebensenergie"
		1059	BeginProperty Font
		1060	Name = "Arial"
		1061	Size = 9.75
		1062	Charset = 0
		1063	Weight = 700
		1064	Underline = 0 'False
		1065	Italic = 0 'False
		1066	Strikethrough = 0 'False
		1067	EndProperty
		1068	ForeColor = &H008080FF&
		1069	Height = 240
		1070	Left = 2280
		1071	TabIndex = 18
		1072	Top = 2760
		1073	Width = 1425
		1074	End
		1075	Begin VB.Label Label12
		1076	AutoSize = -1 'True
		1077	BackStyle = 0 'Transparent
		1078	Caption = "Mana"
		1079	BeginProperty Font
		1080	Name = "Arial"
		1081	Size = 9.75
		1082	Charset = 0
		1083	Weight = 700
		1084	Underline = 0 'False
		1085	Italic = 0 'False
		1086	Strikethrough = 0 'False
		1087	EndProperty
		1088	ForeColor = &H00FF8080&
		1089	Height = 240
		1090	Left = 2280
		1091	TabIndex = 17
		1092	Top = 3000
		1093	Width = 525
		1094	End
		1095	Begin VB.Label Label13
		1096	AutoSize = -1 'True
		1097	BackStyle = 0 'Transparent
		1098	Caption = "la13"
		1099	BeginProperty Font
		1100	Name = "Arial"
		1101	Size = 8.25
		1102	Charset = 0
		1103	Weight = 700
		1104	Underline = 0 'False
		1105	Italic = 0 'False
		1106	Strikethrough = 0 'False
		1107	EndProperty
		1108	ForeColor = &H0000FF00&
		1109	Height = 210
		1110	Left = 4200
		1111	TabIndex = 16
		1112	Top = 2280
		1113	Width = 315
		1114	End
		1115	Begin VB.Label Label14
		1116	AutoSize = -1 'True
		1117	BackStyle = 0 'Transparent
		1118	Caption = "la14"
		1119	BeginProperty Font
		1120	Name = "Arial"
		1121	Size = 8.25
		1122	Charset = 0
		1123	Weight = 700
		1124	Underline = 0 'False
		1125	Italic = 0 'False
		1126	Strikethrough = 0 'False
		1127	EndProperty
		1128	ForeColor = &H0000FF00&
		1129	Height = 210
		1130	Left = 4200
		1131	TabIndex = 15
		1132	Top = 2520
		1133	Width = 315
		1134	End
		1135	Begin VB.Label Label15
		1136	AutoSize = -1 'True
		1137	BackStyle = 0 'Transparent
		1138	Caption = "la15"
		1139	BeginProperty Font
		1140	Name = "Arial"
		1141	Size = 9.75
		1142	Charset = 0
		1143	Weight = 700
		1144	Underline = 0 'False
		1145	Italic = 0 'False
		1146	Strikethrough = 0 'False
		1147	EndProperty
		1148	ForeColor = &H008080FF&
		1149	Height = 240
		1150	Left = 4200
		1151	TabIndex = 14
		1152	Top = 2760
		1153	Width = 390
		1154	End
		1155	Begin VB.Label Label16
		1156	AutoSize = -1 'True
		1157	BackStyle = 0 'Transparent
		1158	Caption = "la16"
		1159	BeginProperty Font
		1160	Name = "Arial"
		1161	Size = 9.75
		1162	Charset = 0
		1163	Weight = 700
		1164	Underline = 0 'False
		1165	Italic = 0 'False
		1166	Strikethrough = 0 'False
		1167	EndProperty
		1168	ForeColor = &H00FF8080&
		1169	Height = 240
		1170	Left = 4200
		1171	TabIndex = 13
		1172	Top = 3000
		1173	Width = 390
		1174	End
		1175	Begin VB.Label Label69
		1176	Alignment = 2 'Center
		1177	BackStyle = 0 'Transparent
		1178	Caption = "#Kreaturentyp"
		1179	BeginProperty Font
		1180	Name = "Arial"
		1181	Size = 8.25
		1182	Charset = 0
		1183	Weight = 700
		1184	Underline = 0 'False
		1185	Italic = 0 'False
		1186	Strikethrough = 0 'False
		1187	EndProperty
		1188	ForeColor = &H00FFFFFF&
		1189	Height = 210
		1190	Left = 600
		1191	TabIndex = 12
		1192	Top = 1440
		1193	Width = 4170
		1194	End
		1195	Begin VB.Label Label68
		1196	AutoSize = -1 'True
		1197	BackStyle = 0 'Transparent
		1198	Caption = "2"
		1199	BeginProperty Font
		1200	Name = "Arial"
		1201	Size = 12
		1202	Charset = 0
		1203	Weight = 700
		1204	Underline = 0 'False
		1205	Italic = 0 'False
		1206	Strikethrough = 0 'False
		1207	EndProperty
		1208	ForeColor = &H0000FFFF&
		1209	Height = 285
		1210	Left = 4920
		1211	TabIndex = 11
		1212	Top = 6600
		1213	Width = 135
		1214	End
		1215	Begin VB.Label Label61
		1216	AutoSize = -1 'True
		1217	BackStyle = 0 'Transparent
		1218	Caption = "#Gegenstand"
		1219	BeginProperty Font
		1220	Name = "Arial"
		1221	Size = 8.25
		1222	Charset = 0
		1223	Weight = 400
		1224	Underline = 0 'False
		1225	Italic = 0 'False
		1226	Strikethrough = 0 'False
		1227	EndProperty
		1228	ForeColor = &H00FFFFFF&
		1229	Height = 210
		1230	Left = 3360
		1231	TabIndex = 8
		1232	Top = 6600
		1233	Width = 975
		1234	End
		1235	Begin VB.Label Label58
		1236	BackColor = &H00000040&
		1237	Caption = "Feindaktion"
		1238	BeginProperty Font
		1239	Name = "Arial"
		1240	Size = 12
		1241	Charset = 0
		1242	Weight = 700
		1243	Underline = 0 'False
		1244	Italic = 0 'False
		1245	Strikethrough = 0 'False
		1246	EndProperty
		1247	ForeColor = &H00FFFFFF&
		1248	Height = 315
		1249	Left = 600
		1250	TabIndex = 7
		1251	Top = 7320
		1252	Width = 8895
		1253	End
		1254	Begin VB.Label Label57
		1255	BackColor = &H00800000&
		1256	Caption = "Heldenaktion"
		1257	BeginProperty Font
		1258	Name = "Arial"
		1259	Size = 12
		1260	Charset = 0
		1261	Weight = 700
		1262	Underline = 0 'False
		1263	Italic = 0 'False
		1264	Strikethrough = 0 'False
		1265	EndProperty
		1266	ForeColor = &H00FFFFFF&
		1267	Height = 315
		1268	Left = 600
		1269	TabIndex = 6
		1270	Top = 6960
		1271	Width = 8895
		1272	End
		1273	Begin VB.Label Label54
		1274	AutoSize = -1 'True
		1275	BackStyle = 0 'Transparent
		1276	Caption = "la54"
		1277	BeginProperty Font
		1278	Name = "Arial"
		1279	Size = 9.75
		1280	Charset = 0
		1281	Weight = 400
		1282	Underline = 0 'False
		1283	Italic = 0 'False
		1284	Strikethrough = 0 'False
		1285	EndProperty
		1286	ForeColor = &H00FFFFFF&
		1287	Height = 240
		1288	Left = 3240
		1289	TabIndex = 5
		1290	Top = 5280
		1291	Width = 360
		1292	End
		1293	Begin VB.Label Label53
		1294	AutoSize = -1 'True
		1295	BackStyle = 0 'Transparent
		1296	Caption = "Trefferchance"
		1297	BeginProperty Font
		1298	Name = "Arial"
		1299	Size = 9.75
		1300	Charset = 0
		1301	Weight = 400
		1302	Underline = 0 'False
		1303	Italic = 0 'False
		1304	Strikethrough = 0 'False
		1305	EndProperty
		1306	ForeColor = &H00FFFFFF&
		1307	Height = 240
		1308	Left = 3240
		1309	TabIndex = 4
		1310	Top = 5040
		1311	Width = 1155
		1312	End
		1313	Begin VB.Label Label52
		1314	AutoSize = -1 'True
		1315	BackStyle = 0 'Transparent
		1316	Caption = "la52"
		1317	BeginProperty Font
		1318	Name = "Arial"
		1319	Size = 9.75
		1320	Charset = 0
		1321	Weight = 400
		1322	Underline = 0 'False
		1323	Italic = 0 'False
		1324	Strikethrough = 0 'False
		1325	EndProperty
		1326	ForeColor = &H00FFFFFF&
		1327	Height = 240
		1328	Left = 3240
		1329	TabIndex = 2
		1330	Top = 4320
		1331	Width = 360
		1332	End
		1333	Begin VB.Label Label51
		1334	AutoSize = -1 'True
		1335	BackStyle = 0 'Transparent
		1336	Caption = "Trefferchance"
		1337	BeginProperty Font
		1338	Name = "Arial"
		1339	Size = 9.75
		1340	Charset = 0
		1341	Weight = 400
		1342	Underline = 0 'False
		1343	Italic = 0 'False
		1344	Strikethrough = 0 'False
		1345	EndProperty
		1346	ForeColor = &H00FFFFFF&
		1347	Height = 240
		1348	Left = 3240
		1349	TabIndex = 1
		1350	Top = 4080
		1351	Width = 1155
		1352	End
		1353	Begin VB.Shape Shape2
		1354	FillColor = &H00966A5A&
		1355	FillStyle = 0 'Solid
		1356	Height = 495
		1357	Left = 600
		1358	Top = 1200
		1359	Width = 4215
		1360	End
		1361	Begin VB.Shape Shape1
		1362	BackColor = &H00000000&
		1363	BorderColor = &H00000000&
		1364	FillColor = &H00000040&
		1365	FillStyle = 0 'Solid
		1366	Height = 2415
		1367	Left = 600
		1368	Top = 960
		1369	Width = 4215
		1370	End
		1371	End
		1372	Attribute VB_Name = "Kampf"
		1373	Attribute VB_GlobalNameSpace = False
		1374	Attribute VB_Creatable = False
		1375	Attribute VB_PredeclaredId = True
		1376	Attribute VB_Exposed = False
		1377	Private Sub Command1_Click()
		1378	Randomize Timer
		1379	treffer = Int(100 * Rnd)
		1380	If treffer < nkchance Then GoTo hit Else GoTo los
		1381	hit:
		1382	Randomize Timer
		1383	schaden = Int(zusatzwert * Rnd) + grundwert
		1384	Randomize Timer
		1385	plus = Int(kraftschaden * Rnd)
		1386	schaden = (schaden + plus) - grs
		1387	If schaden < 0 Then schaden = 0
		1388	If xstark = 1 Then schaden = schaden + 3
		1389	If art = "da" And material <> "Magisch" Then schaden = 0
		1390	If art = "da" And material = "Geweiht" Then schaden = schaden * 2
		1391	If art = "un" And material = "Magisch" Then schaden = schaden * 2
		1392	If art = "me" And material = "Schwarz" Then schaden = schaden * 2
		1393	ghp = ghp - schaden
		1394	Label57.Caption = nom + " verwundet " + feind + " mit " + Str(schaden) + " Schadenspunkten."
		1395	wdown
		1396	FeindZug
		1397	GoTo nono
		1398	los:
		1399	Label57.Caption = nom + " verfehlt " + feind + "."
		1400	wdown
		1401	FeindZug
		1402	nono:
		1403	End Sub
		1404
		1405	Private Sub Command2_Click()
		1406	If pfeile = 0 Then Label57.Caption = "Keine Pfeile im Köcher!": GoTo nono2
		1407	pfeile = pfeile - 1
		1408	Randomize Timer
		1409	treffer = Int(100 * Rnd)
		1410	If treffer < fkchance Then GoTo hit2 Else GoTo los2
		1411	hit2:
		1412	Randomize Timer
		1413	schaden = Int(fkzuschaden * Rnd) + fkgrschaden
		1414	schaden = schaden - grs
		1415	If schaden < 0 Then schaden = 0
		1416	ghp = ghp - schaden
		1417	Label57.Caption = nom + " verwundet " + feind + " mit " + Str(schaden) + " Schadenspunkten."
		1418	FeindZug
		1419	GoTo nono2
		1420	los2:
		1421	Label57.Caption = nom + " verfehlt " + feind + "."
		1422	FeindZug
		1423	nono2:
		1424	End Sub
		1425
		1426	Private Sub Command4_Click()
		1427	Spruchbuch.Show
		1428	End Sub
		1429
		1430	Private Sub Command5_Click()
		1431	ObjectSelect.Show (vbModal)
		1432	Label61.Caption = frmInternal.List1.Text
		1433	End Sub
		1434
		1435	Private Sub Command6_Click()
		1436	If Label61.Caption = "#Gegenstand" Then GoTo klos
		1437	a = Label61.Caption
		1438	If a = "kleiner Heiltrank" Then GoTo kheilung
		1439	If a = "großer Heiltrank" Then GoTo gheilung
		1440	If a = "kleiner Zaubertrank" Then GoTo kzauber
		1441	If a = "großer Zaubertrank" Then GoTo gzauber
		1442	If a = "Elixier" Then GoTo elix
		1443	If a = "Wurfmesser" Then GoTo wurfm
		1444	If a = "Wurfstern" Then GoTo wurfm
		1445	If a = "Feenstaub" Then GoTo fstaub
		1446	If a = "Trank der Unsichtbarkeit" Then GoTo unsichtbar
		1447	If a = "Schriftrolle 'Blitzschlag'" Then grz = 8: zuy = 20: GoTo zrolle
		1448	If a = "Schriftrolle 'Feuerblitz'" Then grz = 1: zuy = 5: GoTo zrolle
		1449	If a = "Schriftrolle 'Feuerball'" Then grz = 3: zuy = 9: GoTo zrolle
		1450	If a = "Schriftrolle 'Blitzstrahl'" Then grz = 3: zuy = 15: GoTo zrolle
		1451	If a = "Schriftrolle 'Schattenblitz'" Then grz = 1: zuy = 19: GoTo zrolle
		1452	If a = "Schriftrolle 'Hölleninferno'" Then grz = 25: zuy = 50: GoTo zrolle
		1453	If a = "Schriftrolle 'Göttliche Heilung'" Then GoTo gotheil
		1454	If a = "Schriftrolle 'Untote bannen'" Then GoTo ubannen
		1455	If a = "Stärketrank" Then GoTo strank
		1456	If a = "Weihwasser" Then GoTo wwasser
		1457	GoTo klos
		1458	kheilung:
		1459	hp = hp + 8
		1460	If hp > STARThp Then hp = STARThp
		1461	Label57.Caption = "Du regenerierst 8 Lebenspunkte!"
		1462	GoTo endspurt
		1463	gheilung:
		1464	hp = hp + 15
		1465	If hp > STARThp Then hp = STARThp
		1466	Label57.Caption = "Du regenerierst 15 Lebenspunkte!"
		1467	GoTo endspurt
		1468	kzauber:
		1469	mp = mp + 8
		1470	If mp > STARTmp Then mp = STARTmp
		1471	Label57.Caption = "Du regenerierst 8 Mana!"
		1472	GoTo endspurt
		1473	gzauber:
		1474	mp = mp + 15
		1475	If mp > STARTmp Then mp = STARTmp
		1476	Label57.Caption = "Du regenerierst 15 Mana!"
		1477	GoTo endspurt
		1478	elix:
		1479	hp = STARThp
		1480	mp = STARTmp
		1481	Label57.Caption = "Du heilst alle Lebenspunkte und regenerierst dein Mana!"
		1482	GoTo endspurt
		1483	wurfm:
		1484	Randomize Timer
		1485	zahl = Int(100 * Rnd)
		1486	If zahl <= Speed Then GoTo hitwm Else GoTo failwm
		1487	hitwm:
		1488	zahl = 4 - rs: If zahl < 0 Then zahl = 0
		1489	Label57.Caption = "Du fügst " + Str(zahl) + " Schadenspunkte zu."
		1490	ghp = ghp - zahl
		1491	GoTo c
		1492	failwm:
		1493	Label57.Caption = "Du verfehlst dein Gegner!"
		1494	c:
		1495	GoTo endspurt
		1496	fstaub:
		1497	If art = "da" Then GoTo jes Else GoTo non
		1498	jes:
		1499	Randomize Timer
		1500	zahl = Int(50 * Rnd) + 10
		1501	ghp = ghp - zahl
		1502	Label57.Caption = "Du fügst dem Dämon " + Str(zahl) + " Schadenspunkte zu!"
		1503	GoTo k
		1504	non:
		1505	Label57.Caption = "Gegner ist kein Dämon!": GoTo klos
		1506	GoTo klos
		1507	k:
		1508	GoTo endspurt
		1509	unsichtbar:
		1510	visi = 1
		1511	Label57.Caption = "Du bist jetzt unsichtbar!"
		1512	GoTo endspurt
		1513	zrolle:
		1514	Randomize Timer
		1515	zahl = Int(zuy * Rnd) + grz
		1516	Label57.Caption = "Du fügst " + Str(zahl) + " Schadenspunkte zu!"
		1517	ghp = ghp - zahl
		1518	GoTo endspurt
		1519	gotheil:
		1520	hp = STARThp
		1521	mp = STARTmp
		1522	vergiftet = 0
		1523	krank = 0
		1524	Label57.Caption = "Du bist komplett geheilt und deine Mana hat sich regeneriert!"
		1525	GoTo endspurt:
		1526	ubannen:
		1527	If art <> "un" Then GoTo a2
		1528	ghp = 0
		1529	GoTo endspurt
		1530	a2:
		1531	Label57.Caption = "Gegner ist kein Untoter!"
		1532	GoTo klos
		1533	strank:
		1534	xstark = 1
		1535	Label57.Caption = "Du bist nun stärker!"
		1536	GoTo endspurt
		1537	wwasser:
		1538	If art <> "da" Then GoTo b22
		1539	zahl = Int(20 * Rnd) + 10
		1540	ghp = ghp - zahl
		1541	Label57.Caption = "Du fügst dem Dämon " + Str(zahl) + " Schadenspunkte zu!"
		1542	GoTo endspurt
		1543	b22:
		1544	Label57.Caption = "Gegner ist kein Dämon"
		1545	endspurt:
		1546	Uitem = Uitem - 1
		1547	Label61.Caption = "#Gegenstand"
		1548	initial
		1549	DelItem
		1550	If Uitem <= 0 Then FeindZug
		1551	klos:
		1552	End Sub
		1553
		1554	Private Sub Command7_Click()
		1555
		1556	End Sub
		1557
		1558	Private Sub Command8_Click()
		1559	If vergiftet = 1 Then GoTo jauey
		1560	vergiftet = 1
		1561	krank = 1
		1562	GoTo ena
		1563	jauey:
		1564	vergiftet = 0: krank = 0
		1565	ena:
		1566	End Sub
		1567
		1568	Private Sub Fliehen_Click()
		1569	Randomize Timer
		1570	zahl = Int(100 * Rnd)
		1571	If zahl <= Speed Then zf = 1: Winner: zf = 0
		1572	If zahl > Speed Then Label57.Caption = "Du schaffst es nicht, zu fliehen!": FeindZug
		1573	End Sub
		1574
		1575	Private Sub Form_Load()
		1576	Label61.Caption = frmInternal.List1.Text
		1577	explus = explus + Int(stufe * 2)
		1578	gzusatzwert = gzusatzwert + Int(stufe / 3)
		1579	ghp = ghp + Int(stufe * 2)
		1580	gspeed = gspeed + Int(stufe / 3)
		1581
		1582	If woher = "LK" Then Fliehen.Enabled = True
		1583	If woher = "Sumpf" Then Fliehen.Enabled = True
		1584	If woher = "Wüste" Then Fliehen.Enabled = True
		1585	If woher = "Feenwald" Then Fliehen.Enabled = True
		1586	ghpst = ghp
		1587	Uchance
		1588	Label65.Caption = experience
		1589	Label67.Caption = NextLevel
		1590	Label38.Caption = feind
		1591	Label46.Caption = nom
		1592	initial
		1593	End Sub
		1594
		1595	Sub Zaubertrefferberechnen()
		1596
		1597	End Sub
		1598
		1599	Sub initial()
		1600	Rem Kampfwerte
		1601	If art = "zau" Then a = "Zauberkundiger"
		1602	If art = "me" Then a = "Mensch"
		1603	If art = "kr" Then a = "Kreatur"
		1604	If art = "un" Then a = "Untoter"
		1605	If art = "da" Then a = "Dämon"
		1606	If (art <> "zau") And (art <> "me") And (art <> "kr") And (art <> "un") And (art <> "da") Then a = art
		1607	Label69.Caption = a
		1608	Label68.Caption = Uitem
		1609	Label5.Caption = gwaffe
		1610	Label2.Caption = ggrundwert
		1611	Label4.Caption = gzusatzwert + ggrundwert
		1612	Label7.Caption = grust
		1613	Label8.Caption = grs
		1614	Label13.Caption = gstrength
		1615	Label14.Caption = gspeed
		1616	Label15.Caption = ghp
		1617	Label16.Caption = gmp
		1618	Label19.Caption = grundwert
		1619	Label21.Caption = zusatzwert + grundwert
		1620	Label22.Caption = material
		1621	Label23.Caption = ABZUG
		1622	Label18.Caption = waffe
		1623	Label25.Caption = rüstung
		1624	Label26.Caption = rs
		1625	Label27.Caption = rsmat
		1626	Label28.Caption = be
		1627	Label30.Caption = bogen
		1628	Label31.Caption = fkgrschaden
		1629	Label33.Caption = fkzuschaden
		1630	Label45.Caption = pfeile
		1631	Label39.Caption = Strength
		1632	Label40.Caption = Speed
		1633	Label41.Caption = Iq
		1634	Label42.Caption = hp
		1635	Rem Kampfwerte ende
		1636	nkchance = Speed - ABZUG - be
		1637	If kateg = "Sch" Then nkchance = nkchance + SCHWERTER
		1638	If kateg = "Sp" Then nkchance = nkchance + STÄBE
		1639	If kateg = "Hie" Then nkchance = nkchance + HIEBWAFFEN
		1640	If kateg = "Ax" Then nkchance = nkchance + ÄXTE
		1641	fkchance = Speed + BÖGEN - be
		1642	Zaubertrefferberechnen
		1643	Label52.Caption = Str(nkchance) + "%"
		1644	Label54.Caption = Str(fkchance) + "%"
		1645	Command1.Caption = "Mit " + waffe + " angreifen"
		1646	Command2.Caption = "Mit " + bogen + " angreifen"
		1647	If bogen = "" Then Command2.Enabled = False: Command2.Caption = "Kein Bogen!": Label54.Caption = "%"
		1648	kraftschaden = Int(Strength / 15)
		1649	Label63.Caption = kraftschaden
		1650	End Sub
		1651
		1652
		1653	Sub wdown()
		1654	If ranken = 0 Then GoTo nkkk
		1655	If ranken = 1 Then zahl = 4 - grs
		1656	ghp = ghp - zahl
		1657	Label57.Caption = Label57.Caption + " (+" + Str(zahl) + " SP Zranken)"
		1658	nkkk:
		1659	End Sub

Subversion Repositories aysalia

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