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

Rev	Author	Line No.	Line
2	daniel-mar	1	VERSION 5.00
		2	Begin VB.Form Landkarte
		3	BackColor = &H00000000&
		4	BorderStyle = 1 'Fixed Single
		5	Caption = "Das Land Aysalia"
		6	ClientHeight = 7755
		7	ClientLeft = 45
		8	ClientTop = 435
		9	ClientWidth = 10170
		10	Icon = "Landkarte.frx":0000
		11	KeyPreview = -1 'True
		12	LinkTopic = "Landkarte"
		13	MaxButton = 0 'False
		14	Picture = "Landkarte.frx":1272
		15	ScaleHeight = 7755
		16	ScaleWidth = 10170
		17	StartUpPosition = 2 'CenterScreen
		18	Begin VB.Shape Shape12
		19	BorderColor = &H0000FFFF&
		20	Height = 135
		21	Left = 2160
		22	Shape = 3 'Circle
		23	Top = 3680
		24	Visible = 0 'False
		25	Width = 135
		26	End
		27	Begin VB.Label Label25
		28	AutoSize = -1 'True
		29	BackStyle = 0 'Transparent
		30	Caption = "Eigenschaften"
		31	BeginProperty Font
		32	Name = "Arial"
		33	Size = 8.25
		34	Charset = 0
		35	Weight = 400
		36	Underline = 0 'False
		37	Italic = 0 'False
		38	Strikethrough = 0 'False
		39	EndProperty
		40	ForeColor = &H00C0C0C0&
		41	Height = 210
		42	Left = 8880
		43	TabIndex = 24
		44	Top = 6900
		45	Width = 1035
		46	End
		47	Begin VB.Label Label24
		48	AutoSize = -1 'True
		49	BackStyle = 0 'Transparent
		50	Caption = "Spiel speichern"
		51	ForeColor = &H00C0C0C0&
		52	Height = 195
		53	Left = 8880
		54	TabIndex = 23
		55	Top = 7140
		56	Width = 1080
		57	End
		58	Begin VB.Shape Shape11
		59	BorderColor = &H0000FFFF&
		60	Height = 135
		61	Left = 760
		62	Shape = 3 'Circle
		63	Top = 2380
		64	Width = 135
		65	End
		66	Begin VB.Shape Shape10
		67	BorderColor = &H0000FFFF&
		68	Height = 135
		69	Left = 5060
		70	Shape = 3 'Circle
		71	Top = 1280
		72	Width = 135
		73	End
		74	Begin VB.Shape Shape9
		75	BorderColor = &H0000FFFF&
		76	Height = 135
		77	Left = 9460
		78	Shape = 3 'Circle
		79	Top = 2880
		80	Width = 135
		81	End
		82	Begin VB.Shape Shape8
		83	BorderColor = &H0000FFFF&
		84	Height = 135
		85	Left = 8560
		86	Shape = 3 'Circle
		87	Top = 5180
		88	Width = 135
		89	End
		90	Begin VB.Shape Shape6
		91	BorderColor = &H0000FFFF&
		92	Height = 135
		93	Left = 8160
		94	Shape = 3 'Circle
		95	Top = 3980
		96	Width = 135
		97	End
		98	Begin VB.Shape Shape5
		99	BorderColor = &H0000FFFF&
		100	Height = 135
		101	Left = 4260
		102	Shape = 3 'Circle
		103	Top = 4580
		104	Width = 135
		105	End
		106	Begin VB.Shape Shape4
		107	BorderColor = &H0000FFFF&
		108	Height = 135
		109	Left = 3160
		110	Shape = 3 'Circle
		111	Top = 4680
		112	Width = 135
		113	End
		114	Begin VB.Shape Shape7
		115	BorderColor = &H0000FFFF&
		116	Height = 135
		117	Left = 160
		118	Shape = 3 'Circle
		119	Top = 6480
		120	Width = 135
		121	End
		122	Begin VB.Shape Shape3
		123	Height = 135
		124	Left = 60
		125	Shape = 3 'Circle
		126	Top = 80
		127	Width = 135
		128	End
		129	Begin VB.Shape Shape2
		130	BorderColor = &H0000FFFF&
		131	Height = 135
		132	Left = 4860
		133	Shape = 3 'Circle
		134	Top = 3680
		135	Width = 135
		136	End
		137	Begin VB.Shape Shape1
		138	BorderColor = &H0000FFFF&
		139	Height = 135
		140	Left = 8860
		141	Shape = 3 'Circle
		142	Top = 2380
		143	Width = 135
		144	End
		145	Begin VB.Label Label23
		146	AutoSize = -1 'True
		147	BackStyle = 0 'Transparent
		148	Caption = "Krank"
		149	BeginProperty Font
		150	Name = "Arial"
		151	Size = 8.25
		152	Charset = 0
		153	Weight = 700
		154	Underline = 0 'False
		155	Italic = 0 'False
		156	Strikethrough = 0 'False
		157	EndProperty
		158	ForeColor = &H00000080&
		159	Height = 210
		160	Left = 1440
		161	TabIndex = 22
		162	Top = 7320
		163	Width = 480
		164	End
		165	Begin VB.Label Label22
		166	AutoSize = -1 'True
		167	BackStyle = 0 'Transparent
		168	Caption = "Vergiftet"
		169	BeginProperty Font
		170	Name = "Arial"
		171	Size = 8.25
		172	Charset = 0
		173	Weight = 700
		174	Underline = 0 'False
		175	Italic = 0 'False
		176	Strikethrough = 0 'False
		177	EndProperty
		178	ForeColor = &H00004000&
		179	Height = 210
		180	Left = 240
		181	TabIndex = 21
		182	Top = 7320
		183	Width = 735
		184	End
		185	Begin VB.Label Label21
		186	AutoSize = -1 'True
		187	BackStyle = 0 'Transparent
		188	Caption = "Spiel beenden"
		189	ForeColor = &H00C0C0C0&
		190	Height = 195
		191	Left = 8880
		192	TabIndex = 20
		193	Top = 7380
		194	Width = 1020
		195	End
		196	Begin VB.Label Label20
		197	AutoSize = -1 'True
		198	BackStyle = 0 'Transparent
		199	Caption = "Label20"
		200	BeginProperty Font
		201	Name = "Arial"
		202	Size = 8.25
		203	Charset = 0
		204	Weight = 700
		205	Underline = 0 'False
		206	Italic = 0 'False
		207	Strikethrough = 0 'False
		208	EndProperty
		209	ForeColor = &H0080FF80&
		210	Height = 210
		211	Left = 2040
		212	TabIndex = 19
		213	Top = 6960
		214	Width = 630
		215	End
		216	Begin VB.Label Label19
		217	AutoSize = -1 'True
		218	BackStyle = 0 'Transparent
		219	Caption = "Gesundheitszustand"
		220	BeginProperty Font
		221	Name = "Arial"
		222	Size = 8.25
		223	Charset = 0
		224	Weight = 700
		225	Underline = 0 'False
		226	Italic = 0 'False
		227	Strikethrough = 0 'False
		228	EndProperty
		229	ForeColor = &H00FFFFFF&
		230	Height = 210
		231	Left = 240
		232	TabIndex = 18
		233	Top = 6960
		234	Width = 1725
		235	End
		236	Begin VB.Label Label18
		237	AutoSize = -1 'True
		238	BackStyle = 0 'Transparent
		239	Caption = "Label18"
		240	BeginProperty Font
		241	Name = "Arial"
		242	Size = 8.25
		243	Charset = 0
		244	Weight = 700
		245	Underline = 0 'False
		246	Italic = 0 'False
		247	Strikethrough = 0 'False
		248	EndProperty
		249	ForeColor = &H0080FF80&
		250	Height = 210
		251	Left = 4440
		252	TabIndex = 17
		253	Top = 7320
		254	Width = 630
		255	End
		256	Begin VB.Label Label17
		257	AutoSize = -1 'True
		258	BackStyle = 0 'Transparent
		259	Caption = "Label17"
		260	BeginProperty Font
		261	Name = "Arial"
		262	Size = 8.25
		263	Charset = 0
		264	Weight = 700
		265	Underline = 0 'False
		266	Italic = 0 'False
		267	Strikethrough = 0 'False
		268	EndProperty
		269	ForeColor = &H0080FF80&
		270	Height = 210
		271	Left = 4440
		272	TabIndex = 16
		273	Top = 6960
		274	Width = 630
		275	End
		276	Begin VB.Label Label16
		277	AutoSize = -1 'True
		278	BackStyle = 0 'Transparent
		279	Caption = "Kartenposition"
		280	BeginProperty Font
		281	Name = "Arial"
		282	Size = 8.25
		283	Charset = 0
		284	Weight = 700
		285	Underline = 0 'False
		286	Italic = 0 'False
		287	Strikethrough = 0 'False
		288	EndProperty
		289	ForeColor = &H00FFFFFF&
		290	Height = 210
		291	Left = 2880
		292	TabIndex = 15
		293	Top = 7110
		294	Width = 1215
		295	End
		296	Begin VB.Label Label15
		297	AutoSize = -1 'True
		298	BackStyle = 0 'Transparent
		299	Caption = "Label15"
		300	BeginProperty Font
		301	Name = "Arial"
		302	Size = 8.25
		303	Charset = 0
		304	Weight = 700
		305	Underline = 0 'False
		306	Italic = 0 'False
		307	Strikethrough = 0 'False
		308	EndProperty
		309	ForeColor = &H0080FF80&
		310	Height = 210
		311	Left = 7920
		312	TabIndex = 14
		313	Top = 7320
		314	Width = 630
		315	End
		316	Begin VB.Label Label14
		317	AutoSize = -1 'True
		318	BackStyle = 0 'Transparent
		319	Caption = "Wetter"
		320	BeginProperty Font
		321	Name = "Arial"
		322	Size = 8.25
		323	Charset = 0
		324	Weight = 700
		325	Underline = 0 'False
		326	Italic = 0 'False
		327	Strikethrough = 0 'False
		328	EndProperty
		329	ForeColor = &H00FFFFFF&
		330	Height = 210
		331	Left = 5760
		332	TabIndex = 13
		333	Top = 7320
		334	Width = 555
		335	End
		336	Begin VB.Label Label13
		337	AutoSize = -1 'True
		338	BackStyle = 0 'Transparent
		339	Caption = "Zurückgelegte Meilen"
		340	BeginProperty Font
		341	Name = "Arial"
		342	Size = 8.25
		343	Charset = 0
		344	Weight = 700
		345	Underline = 0 'False
		346	Italic = 0 'False
		347	Strikethrough = 0 'False
		348	EndProperty
		349	ForeColor = &H00FFFFFF&
		350	Height = 210
		351	Left = 5760
		352	TabIndex = 12
		353	Top = 6960
		354	Width = 1815
		355	End
		356	Begin VB.Line Line1
		357	BorderColor = &H00FFFFFF&
		358	X1 = 0
		359	X2 = 10200
		360	Y1 = 6780
		361	Y2 = 6780
		362	End
		363	Begin VB.Label Label12
		364	AutoSize = -1 'True
		365	BackStyle = 0 'Transparent
		366	Caption = "0"
		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 = &H0080FF80&
		377	Height = 210
		378	Left = 7920
		379	TabIndex = 11
		380	Top = 6960
		381	Width = 90
		382	End
		383	Begin VB.Shape Held
		384	FillColor = &H0000FFFF&
		385	FillStyle = 0 'Solid
		386	Height = 135
		387	Left = 4260
		388	Shape = 3 'Circle
		389	Top = 4980
		390	Width = 135
		391	End
		392	Begin VB.Label Label11
		393	AutoSize = -1 'True
		394	BackStyle = 0 'Transparent
		395	Caption = "Feenwald"
		396	BeginProperty Font
		397	Name = "Arial"
		398	Size = 8.25
		399	Charset = 178
		400	Weight = 700
		401	Underline = 0 'False
		402	Italic = 0 'False
		403	Strikethrough = 0 'False
		404	EndProperty
		405	Height = 210
		406	Left = 8400
		407	TabIndex = 10
		408	Top = 2160
		409	Width = 795
		410	End
		411	Begin VB.Label Label4
		412	AutoSize = -1 'True
		413	BackStyle = 0 'Transparent
		414	Caption = "Gragook"
		415	BeginProperty Font
		416	Name = "Arial"
		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	Height = 210
		425	Left = 9000
		426	TabIndex = 3
		427	Top = 3120
		428	Width = 705
		429	End
		430	Begin VB.Label Label5
		431	AutoSize = -1 'True
		432	BackStyle = 0 'Transparent
		433	Caption = "Phaekskar"
		434	BeginProperty Font
		435	Name = "Arial"
		436	Size = 8.25
		437	Charset = 0
		438	Weight = 700
		439	Underline = 0 'False
		440	Italic = 0 'False
		441	Strikethrough = 0 'False
		442	EndProperty
		443	Height = 210
		444	Left = 7920
		445	TabIndex = 4
		446	Top = 4080
		447	Width = 885
		448	End
		449	Begin VB.Label Label10
		450	AutoSize = -1 'True
		451	BackStyle = 0 'Transparent
		452	Caption = "Höhle des Verderbens"
		453	BeginProperty Font
		454	Name = "Arial"
		455	Size = 8.25
		456	Charset = 0
		457	Weight = 700
		458	Underline = 0 'False
		459	Italic = 0 'False
		460	Strikethrough = 0 'False
		461	EndProperty
		462	Height = 210
		463	Left = 7800
		464	TabIndex = 9
		465	Top = 5400
		466	Width = 1875
		467	End
		468	Begin VB.Label Label2
		469	AutoSize = -1 'True
		470	BackStyle = 0 'Transparent
		471	Caption = "Amazon"
		472	BeginProperty Font
		473	Name = "Arial"
		474	Size = 8.25
		475	Charset = 0
		476	Weight = 700
		477	Underline = 0 'False
		478	Italic = 0 'False
		479	Strikethrough = 0 'False
		480	EndProperty
		481	Height = 210
		482	Left = 4680
		483	TabIndex = 1
		484	Top = 3840
		485	Width = 675
		486	End
		487	Begin VB.Label Label9
		488	AutoSize = -1 'True
		489	BackStyle = 0 'Transparent
		490	Caption = "Kristallsee"
		491	BeginProperty Font
		492	Name = "Arial"
		493	Size = 8.25
		494	Charset = 0
		495	Weight = 700
		496	Underline = 0 'False
		497	Italic = 0 'False
		498	Strikethrough = 0 'False
		499	EndProperty
		500	Height = 210
		501	Left = 4080
		502	TabIndex = 8
		503	Top = 4680
		504	Width = 885
		505	End
		506	Begin VB.Label Label1
		507	AutoSize = -1 'True
		508	BackStyle = 0 'Transparent
		509	Caption = "Lindgar"
		510	BeginProperty Font
		511	Name = "Arial"
		512	Size = 8.25
		513	Charset = 0
		514	Weight = 700
		515	Underline = 0 'False
		516	Italic = 0 'False
		517	Strikethrough = 0 'False
		518	EndProperty
		519	Height = 210
		520	Left = 3000
		521	TabIndex = 0
		522	Top = 4800
		523	Width = 630
		524	End
		525	Begin VB.Label Label7
		526	AutoSize = -1 'True
		527	BackStyle = 0 'Transparent
		528	Caption = "Sumpf der Skorpione"
		529	BeginProperty Font
		530	Name = "Arial"
		531	Size = 8.25
		532	Charset = 0
		533	Weight = 700
		534	Underline = 0 'False
		535	Italic = 0 'False
		536	Strikethrough = 0 'False
		537	EndProperty
		538	Height = 210
		539	Left = 240
		540	TabIndex = 6
		541	Top = 6240
		542	Width = 1770
		543	End
		544	Begin VB.Label Label3
		545	AutoSize = -1 'True
		546	BackStyle = 0 'Transparent
		547	Caption = "Shaela"
		548	BeginProperty Font
		549	Name = "Arial"
		550	Size = 8.25
		551	Charset = 0
		552	Weight = 700
		553	Underline = 0 'False
		554	Italic = 0 'False
		555	Strikethrough = 0 'False
		556	EndProperty
		557	Height = 210
		558	Left = 5040
		559	TabIndex = 2
		560	Top = 1440
		561	Width = 540
		562	End
		563	Begin VB.Label Label6
		564	AutoSize = -1 'True
		565	BackStyle = 0 'Transparent
		566	Caption = "Wüste des weißen Sandes"
		567	BeginProperty Font
		568	Name = "Arial"
		569	Size = 8.25
		570	Charset = 0
		571	Weight = 700
		572	Underline = 0 'False
		573	Italic = 0 'False
		574	Strikethrough = 0 'False
		575	EndProperty
		576	Height = 210
		577	Left = 120
		578	TabIndex = 5
		579	Top = 240
		580	Width = 2205
		581	End
		582	Begin VB.Label Label8
		583	AutoSize = -1 'True
		584	BackStyle = 0 'Transparent
		585	Caption = "Festung Xajek"
		586	BeginProperty Font
		587	Name = "Arial"
		588	Size = 8.25
		589	Charset = 0
		590	Weight = 700
		591	Underline = 0 'False
		592	Italic = 0 'False
		593	Strikethrough = 0 'False
		594	EndProperty
		595	Height = 210
		596	Left = 360
		597	TabIndex = 7
		598	Top = 2520
		599	Width = 1170
		600	End
		601	End
		602	Attribute VB_Name = "Landkarte"
		603	Attribute VB_GlobalNameSpace = False
		604	Attribute VB_Creatable = False
		605	Attribute VB_PredeclaredId = True
		606	Attribute VB_Exposed = False
		607	Private Sub Command1_Click()
		608	Held.Top = Held.Top - 100
		609	Marsch
		610	If schritt = 32 Then GoTo nixda4
		611	Angriff
		612	If evtangriff = 1 Or evtangriff = 0 Then GoTo nixda4
		613	City
		614	nixda4:
		615	End Sub
		616
		617	Private Sub Command5_Click()
		618	schritt = 0
		619	Print "x "; Held.Left
		620	Print "y "; Held.Top
		621	End Sub
		622
		623	Sub Angriff()
		624	Randomize Timer
		625	evtangriff = Int(10 * Rnd)
		626	If evtangriff = 0 Or evtangriff = 1 Then WhichEnemy
		627	End Sub
		628
		629	Sub WhichEnemy()
		630	Randomize Timer
		631	enemy = Int(13 * Rnd)
		632	If enemy = 3 Then GoTo Goblin
		633	If enemy = 4 Then GoTo Ork
		634	If enemy = 5 Then GoTo Räuber
		635	If stufe < 5 Then GoTo snow1
		636	If enemy = 6 Then GoTo Echsenmensch
		637	If enemy = 9 Then GoTo wolf
		638	snow1:
		639	If enemy = 10 Then GoTo Bär
		640	If enemy = 11 Then GoTo Abtrünniger
		641	If enemy >= 12 Then GoTo Lindwurm
		642	GoTo Accel
		643
		644	Goblin:
		645	art = "me": explus = 20: feind = "Goblin"
		646	gwaffe = "Knüppel": gmat = "Holz": ggrundwert = 1: gzusatzwert = 2: gabzug = 1: gkateg = "Hie": grust = "": grs = 0: grsmat = "": gbe = 0
		647	woher = "LK"
		648	ghp = 20: gmp = 0: gspeed = 45: gstrength = 45
		649	Landkarte.Hide: Kampf.Show
		650	GoTo Accel
		651	Ork:
		652	art = "me": explus = 25: feind = "Ork"
		653	gwaffe = "Orksäbel": gmat = "Stahl": ggrundwert = 1: gzusatzwert = 8: gabzug = 1: gkateg = "Sch": grust = "Championgurt": grs = 1: grsmat = "Leder": gbe = 0
		654	woher = "LK"
		655	ghp = 25: gmp = 0: gspeed = 50: gstrength = 55
		656	Landkarte.Hide: Kampf.Show
		657	GoTo Accel
		658	Räuber:
		659	art = "me": explus = 25: feind = "Räuber"
		660	gwaffe = "Kurzschwert": gmat = "Stahl": ggrundwert = 2: gzusatzwert = 2: gabzug = 0: gkateg = "Sch": grust = "Lederwams": grs = 2: grsmat = "Leder": gbe = 3
		661	woher = "LK"
		662	ghp = 30: gmp = 0: gspeed = 56: gstrength = 50
		663	Landkarte.Hide: Kampf.Show
		664	GoTo Accel
		665	Echsenmensch:
		666	art = "me": explus = 35: feind = "Echsenmensch"
		667	gwaffe = "Echsischer Jagdspieß": gmat = "Holz": ggrundwert = 1: gzusatzwert = 9: gabzug = 1: gkateg = "Sp": grust = "": grs = 3: grsmat = "": gbe = 0
		668	woher = "LK"
		669	ghp = 25: gmp = 0: gspeed = 60: gstrength = 40
		670	Landkarte.Hide: Kampf.Show
		671	GoTo Accel
		672	wolf:
		673	art = "kr": explus = 30: feind = "Wolf"
		674	gwaffe = "Fangzähne": gmat = "": ggrundwert = 4: gzusatzwert = 2: gabzug = 0: gkateg = "": grust = "": grs = 1: grsmat = "": gbe = 0
		675	woher = "LK"
		676	ghp = 25: gmp = 0: gspeed = 62: gstrength = 51
		677	Landkarte.Hide: Kampf.Show
		678	GoTo Accel
		679	Bär:
		680	art = "kr": explus = 30: feind = "Bär"
		681	gwaffe = "Pranken": gmat = "": ggrundwert = 1: gzusatzwert = 6: gabzug = 0: gkateg = "": grust = "": grs = 1: grsmat = "": gbe = 0
		682	woher = "LK"
		683	ghp = 35: gmp = 0: gspeed = 40: gstrength = 65
		684	Landkarte.Hide: Kampf.Show
		685	GoTo Accel
		686	Abtrünniger:
		687	art = "me": explus = 30: feind = "Abtrünniger"
		688	gwaffe = "Rostiges Schwert": gmat = "Eisen": ggrundwert = 2: gzusatzwert = 3: gabzug = 0: gkateg = "Sch": grust = "Lumpen": grs = 1: grsmat = "Leder": gbe = 2
		689	woher = "LK"
		690	ghp = 30: gmp = 0: gspeed = 55: gstrength = 50
		691	Landkarte.Hide: Kampf.Show
		692	GoTo Accel
		693	Lindwurm:
		694	art = "kr": explus = 50: feind = "Lindwurm"
		695	gwaffe = "Krallen": gmat = "": ggrundwert = 4: gzusatzwert = 10: gabzug = 1: gkateg = "": grust = "Schuppenhaut": grs = 6: grsmat = "": gbe = 0
		696	woher = "LK"
		697	ghp = 55: gmp = 0: gspeed = 45: gstrength = 70
		698	Landkarte.Hide: Kampf.Show
		699	GoTo Accel
		700
		701	Accel:
		702	End Sub
		703
		704	Sub City()
		705	If Held.Left = Shape12.Left And Held.Top = Shape12.Top And yyork <> 0 Then Landkarte.Hide: schauorki
		706	If Held.Left = Shape4.Left And Held.Top = Shape4.Top Then Landkarte.Hide: Lindgar.Show
		707	If Held.Left = Shape6.Left And Held.Top = Shape6.Top Then Landkarte.Hide: Phaekskar.Show
		708	If Held.Left = Shape9.Left And Held.Top = Shape9.Top Then Landkarte.Hide: Schaugragook
		709	If Held.Left = Shape10.Left And Held.Top = Shape10.Top Then Landkarte.Hide: Shaela.Show
		710	If Held.Left = Shape11.Left And Held.Top = Shape11.Top And KRISTALLSCHLÜSSEL = 0 Then MsgBox "Du benötigst einen Schlüssel!"
		711	If Held.Left = Shape11.Left And Held.Top = Shape11.Top And KRISTALLSCHLÜSSEL = 1 Then Landkarte.Hide: FESTUNG.Show
		712	If Held.Left = Shape5.Left And Held.Top = Shape5.Top Then Landkarte.Hide: Kristallsee.Show
		713	If Held.Left = Shape8.Left And Held.Top = Shape8.Top Then Landkarte.Hide: Höhlen.Show
		714	If Held.Left = Shape1.Left And Held.Top = Shape1.Top Then Landkarte.Hide: Feenwald.Show
		715	If Held.Left = Shape2.Left And Held.Top = Shape2.Top Then Landkarte.Hide: SchauAmazon
		716	If Held.Left = Shape3.Left And Held.Top = Shape3.Top Then Landkarte.Hide: Wüste.Show
		717	If Held.Left = Shape7.Left And Held.Top = Shape7.Top Then Landkarte.Hide: Sumpf.Show
		718	End Sub
		719
		720	Private Sub Form_Activate()
		721	If wetter = "" Then wetter = "Sonnig"
		722	Label15.Caption = wetter
		723	gesundheit% = Int((hp / STARThp) * 100)
		724	Label20.Caption = Str(gesundheit) + " %"
		725	If vergiftet = 1 Then Label22.ForeColor = &HFF00&
		726	If krank = 1 Then Label23.ForeColor = &HFF&
		727	If vergiftet = 0 Then Label22.ForeColor = &H4000&
		728	If krank = 0 Then Label23.ForeColor = &H80&
		729	End Sub
		730
		731	Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
		732	Select Case KeyCode
		733	Case vbKeyDown: Untenlauf
		734	Case vbKeyUp: Obenlauf
		735	Case vbKeyRight: Rechtslauf
		736	Case vbKeyLeft: Linkslauf
		737	Case vbKeyA: Linkslauf
		738	Case vbKeyS: Untenlauf
		739	Case vbKeyD: Rechtslauf
		740	Case vbKeyW: Obenlauf
		741	End Select
		742	End Sub
		743	Sub Untenlauf()
		744	If Held.Top + Held.Height + 100 < Landkarte.Height Then
		745	Held.Top = Held.Top + 100
		746	CheckMove
		747	End If
		748	End Sub
		749	Sub Obenlauf()
		750	If Held.Top - 100 >= 0 Then
		751	Held.Top = Held.Top - 100
		752	CheckMove
		753	End If
		754	End Sub
		755	Sub Rechtslauf()
		756	If Held.Left + Held.Width + 100 < Landkarte.Width Then
		757	Held.Left = Held.Left + 100
		758	CheckMove
		759	End If
		760	End Sub
		761	Sub Linkslauf()
		762	If Held.Left - 100 >= 0 Then
		763	Held.Left = Held.Left - 100
		764	CheckMove
		765	End If
		766	End Sub
		767
		768	Sub CheckMove()
		769	Marsch
		770	If schritt = 32 Then GoTo nixda4
		771
		772	Angriff
		773	If evtangriff = 0 Or evtangriff = 1 Then GoTo nixda4
		774
		775	City
		776	nixda4:
		777	End Sub
		778
		779	Sub Marsch()
		780	Label17.Caption = "x " + Str(Held.Left / 100)
		781	Label18.Caption = "y " + Str(Held.Top / 100)
		782	schritt = schritt + 4
		783	Label12.Caption = schritt
		784	If schritt = 32 Then Rast.Show: Landkarte.Hide
		785	End Sub
		786
		787	Private Sub Form_Load()
		788	Label15.Caption = wetter
		789	Label17.Caption = "x " + Str(Held.Left / 100)
		790	Label18.Caption = "y " + Str(Held.Top / 100)
		791	End Sub
		792
		793	Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
		794	Label25.ForeColor = &HC0C0C0
		795	Label24.ForeColor = &HC0C0C0
		796	Label21.ForeColor = &HC0C0C0
		797	End Sub
		798
		799	Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
		800	If UnloadMode = 0 Then End
		801	End Sub
		802
		803	Private Sub Label21_Click()
		804	End
		805	End Sub
		806
		807	Sub SchauAmazon()
		808	If amazonkampf = 1 Then GoTo allesklar
		809	answer = MsgBox("Halt! Du bist es nicht würdig die Stadt der Amazonen zu betreten. Du kannst dich aber als würdig erweisen, wenn du gegen Shara kämpfst. Willst du das tun?", 64 + 4, "Valena die Amazonenkönigin")
		810	If answer = 6 Then GoTo a Else
		811	Nichtwürdig
		812	GoTo zange
		813	a:
		814	art = "me": explus = 40: feind = "Shara die Amazone"
		815	gwaffe = "Amazonenkralle": gmat = "Stahl": ggrundwert = 5: gzusatzwert = 2: gabzug = 1: gkateg = "Hie": grust = "Lederharnisch": grs = 3: grsmat = "Leder": gbe = 3
		816	woher = "Amazon"
		817	ghp = 30: gmp = 0: gspeed = 65: gstrength = 55
		818	Kampf.Show
		819	GoTo zange
		820	allesklar:
		821	Amazon.Show
		822	zange:
		823	End Sub
		824	Sub Nichtwürdig()
		825	MsgBox "Dann verschwinde von hier!", 64 + 0, "Valena die Amazonenkönigin"
		826	Landkarte.Show
		827	End Sub
		828
		829	Sub Schaugragook()
		830	answer = MsgBox("Har har! Du gerne kommen wollen gratis 'rein? Nix da. 15 Goldkronen hergeben! Bezahlen?", 64 + 4, "Brhasch der Orkwächter")
		831	If answer = 6 Then GoTo ja Else GoTo nein
		832	ja:
		833	If gold < 15 Then MsgBox "Hö, ohne nix Geld, du nich' 'reinkommen!": GoTo nein
		834	gold = gold - 15
		835	Gragook.Show
		836	GoTo nix22
		837	nein:
		838	Landkarte.Show
		839	nix22:
		840	End Sub
		841
		842	Sub schauorki()
		843	art = "me": explus = 30: feind = "Orkhäuptling"
		844	gwaffe = "Häuptlingsaxt": gmat = "Eisen": ggrundwert = 6: gzusatzwert = 4: gabzug = 3: gkateg = "Ax": grust = "Lederharnisch": grs = 3: grsmat = "Leder": gbe = 3
		845	woher = "LK"
		846	ghp = 30: gmp = 0: gspeed = 55: gstrength = 50
		847	Kampf.Show
		848	End Sub
		849
		850	Private Sub Label24_Click()
		851	Open GetPath & "süa.sav" For Output As #1
		852	Print #1, nom
		853	Print #1, rüstung
		854	Print #1, waffe
		855	Print #1, material
		856	Print #1, bogen
		857	Print #1, kateg
		858	Print #1, typus
		859	Rem Print #1, obj
		860	Rem Print #1, zkg
		861	Rem Print #1, art
		862	Print #1, zombie
		863	Rem Print #1, wirkung
		864	Print #1, book
		865	Print #1, Strength; Iq; Speed; hp; mp; STARThp; STARTmp
		866	Print #1, CHAOS; LICHT; NATUR; NEKROMANTIE; SCHWERTER; ÄXTE; STÄBE; HIEBWAFFEN; BÖGEN
		867	Print #1, magician; punkte; answer; stufe; experience; grundwert; zusatzwert
		868	Print #1, rs; be; ABZUG; pfeile; kraftschaden; NextLevel; maxdam; mindam; minus
		869	Print #1, schaden; krank; vergiftet; gold
		870	Print #1, amazonkampf; trainhie; trainbo; trainsp; treffer; hitchance
		871	Print #1, eifrei; frei; freisee; Reichtum; Andere; Selbst; tempelfrei
		872	Print #1, StPlus; IqPlus; SpPlus; zahl
		873	Print #1, fpunkte; hotruhe; door; truhe2; truhe3; truhe4; skeletto; muck
		874	Print #1, altar; drachentot; stones; obelisk; lampe; rotkri
		875	Print #1, baum; gesicht; veil; djinn; schrankh; truheh; KRISTALLSCHLÜSSEL
		876	Print #1, xstark; visi; amverwesen; lähmung; schild; ranken
		877	Print #1, altpreis; zf; skorp; arcano; Uitem
		878	Print #1, zweig1; zweig2; zweig3; KristallseeFertig
		879	Print #1, yyPfeile; yyork; yymittel; yyrolle; yyfreund; Held.Top; Held.Left
		880	If (HöAltar.Label6.Caption <> "leer") Then schluessel1 = 1 Else schluessel1 = 0
		881	If (HöAltar.Label2.Caption <> "leer") Then schluessel2 = 1 Else schluessel2 = 0
		882	If (HöAltar.Label3.Caption <> "leer") Then schluessel3 = 1 Else schluessel3 = 0
		883	If (HöAltar.Label4.Caption <> "leer") Then schluessel4 = 1 Else schluessel4 = 0
		884	If (HöAltar.Label7.Caption <> "leer") Then schluessel5 = 1 Else schluessel5 = 0
		885	Print #1, schluessel1, schluessel2, schluessel3, schluessel4, schluessel5
		886
		887	Dim alle_daten As String
		888	alle_daten = ""
		889
		890	If frmInternal.List1.ListCount >= 1 Then frmInternal.List1.ListIndex = 0
		891	For i = 0 To frmInternal.List1.ListCount - 1
		892	If i = frmInternal.List1.ListCount - 1 Then alle_daten = alle_daten & frmInternal.List1.List(i): GoTo atleast
		893	alle_daten = alle_daten & frmInternal.List1.List(i) & vbCrLf
		894	Next i
		895	atleast:
		896	Print #1, alle_daten
		897	Close #1
		898
		899	MsgBox "Spielstand gespeichert."
		900
		901	End Sub
		902
		903	Private Sub Label25_Click()
		904	CheckHero.Show (vbModal)
		905	End Sub
		906
		907	Private Sub Label25_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
		908	Label24.ForeColor = &HC0C0C0
		909	Label21.ForeColor = &HC0C0C0
		910	Label25.ForeColor = &HFFFF&
		911	Dim lHandle As Long
		912	lHandle = LoadCursor(0, HandCursor)
		913	If (lHandle > 0) Then SetCursor lHandle
		914	End Sub
		915
		916	Private Sub Label24_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
		917	Label24.ForeColor = &HFFFF&
		918	Label25.ForeColor = &HC0C0C0
		919	Label21.ForeColor = &HC0C0C0
		920	Dim lHandle As Long
		921	lHandle = LoadCursor(0, HandCursor)
		922	If (lHandle > 0) Then SetCursor lHandle
		923	End Sub
		924
		925	Private Sub Label21_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
		926	Label21.ForeColor = &HFFFF&
		927	Label24.ForeColor = &HC0C0C0
		928	Label25.ForeColor = &HC0C0C0
		929	Dim lHandle As Long
		930	lHandle = LoadCursor(0, HandCursor)
		931	If (lHandle > 0) Then SetCursor lHandle
		932	End Sub
		933

Subversion Repositories aysalia

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