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

Rev	Author	Line No.	Line
2	daniel-mar	1	VERSION 5.00
		2	Begin VB.Form FeSee
		3	BackColor = &H00000000&
		4	BorderStyle = 0 'None
		5	Caption = "FeSee"
		6	ClientHeight = 7920
		7	ClientLeft = 0
		8	ClientTop = 0
		9	ClientWidth = 7140
		10	LinkTopic = "FeSee"
		11	ScaleHeight = 7920
		12	ScaleWidth = 7140
		13	ShowInTaskbar = 0 'False
		14	StartUpPosition = 2 'CenterScreen
		15	Begin VB.Label Label16
		16	AutoSize = -1 'True
		17	BackStyle = 0 'Transparent
		18	Caption = "- Ich diene garkeinem."
		19	BeginProperty Font
		20	Name = "MS Sans Serif"
		21	Size = 9.75
		22	Charset = 0
		23	Weight = 700
		24	Underline = -1 'True
		25	Italic = 0 'False
		26	Strikethrough = 0 'False
		27	EndProperty
		28	ForeColor = &H00000000&
		29	Height = 240
		30	Left = 360
		31	TabIndex = 15
		32	Top = 6960
		33	Width = 2310
		34	End
		35	Begin VB.Label Label15
		36	AutoSize = -1 'True
		37	BackStyle = 0 'Transparent
		38	Caption = "- Ich diene dem Schöpfer der Erde."
		39	BeginProperty Font
		40	Name = "MS Sans Serif"
		41	Size = 9.75
		42	Charset = 0
		43	Weight = 700
		44	Underline = -1 'True
		45	Italic = 0 'False
		46	Strikethrough = 0 'False
		47	EndProperty
		48	ForeColor = &H00000000&
		49	Height = 240
		50	Left = 360
		51	TabIndex = 14
		52	Top = 6600
		53	Width = 3615
		54	End
		55	Begin VB.Label Label14
		56	AutoSize = -1 'True
		57	BackStyle = 0 'Transparent
		58	Caption = "- Ich diene nur der Dunkelheit."
		59	BeginProperty Font
		60	Name = "MS Sans Serif"
		61	Size = 9.75
		62	Charset = 0
		63	Weight = 700
		64	Underline = -1 'True
		65	Italic = 0 'False
		66	Strikethrough = 0 'False
		67	EndProperty
		68	ForeColor = &H00000000&
		69	Height = 240
		70	Left = 360
		71	TabIndex = 13
		72	Top = 6240
		73	Width = 3090
		74	End
		75	Begin VB.Label Label13
		76	AutoSize = -1 'True
		77	BackStyle = 0 'Transparent
		78	Caption = """Wem dienst du?"""
		79	BeginProperty Font
		80	Name = "MS Sans Serif"
		81	Size = 9.75
		82	Charset = 0
		83	Weight = 700
		84	Underline = 0 'False
		85	Italic = 0 'False
		86	Strikethrough = 0 'False
		87	EndProperty
		88	ForeColor = &H00000000&
		89	Height = 240
		90	Left = 240
		91	TabIndex = 12
		92	Top = 5880
		93	Width = 1845
		94	End
		95	Begin VB.Label Label12
		96	AutoSize = -1 'True
		97	BackStyle = 0 'Transparent
		98	Caption = "- Ich bin ein weiser Mann."
		99	BeginProperty Font
		100	Name = "MS Sans Serif"
		101	Size = 9.75
		102	Charset = 0
		103	Weight = 700
		104	Underline = -1 'True
		105	Italic = 0 'False
		106	Strikethrough = 0 'False
		107	EndProperty
		108	ForeColor = &H00000000&
		109	Height = 240
		110	Left = 360
		111	TabIndex = 11
		112	Top = 5400
		113	Width = 2610
		114	End
		115	Begin VB.Label Label11
		116	AutoSize = -1 'True
		117	BackStyle = 0 'Transparent
		118	Caption = "- Als ein Lebewesen, wie jedes andere auf dieser Welt."
		119	BeginProperty Font
		120	Name = "MS Sans Serif"
		121	Size = 9.75
		122	Charset = 0
		123	Weight = 700
		124	Underline = -1 'True
		125	Italic = 0 'False
		126	Strikethrough = 0 'False
		127	EndProperty
		128	ForeColor = &H00000000&
		129	Height = 240
		130	Left = 360
		131	TabIndex = 10
		132	Top = 5040
		133	Width = 5685
		134	End
		135	Begin VB.Label Label10
		136	AutoSize = -1 'True
		137	BackStyle = 0 'Transparent
		138	Caption = "- Ich bin ein mächtiger Krieger."
		139	BeginProperty Font
		140	Name = "MS Sans Serif"
		141	Size = 9.75
		142	Charset = 0
		143	Weight = 700
		144	Underline = -1 'True
		145	Italic = 0 'False
		146	Strikethrough = 0 'False
		147	EndProperty
		148	ForeColor = &H00000000&
		149	Height = 240
		150	Left = 360
		151	TabIndex = 9
		152	Top = 4680
		153	Width = 3150
		154	End
		155	Begin VB.Label Label9
		156	AutoSize = -1 'True
		157	BackStyle = 0 'Transparent
		158	Caption = """Als was siehst du dich?"""
		159	BeginProperty Font
		160	Name = "MS Sans Serif"
		161	Size = 9.75
		162	Charset = 0
		163	Weight = 700
		164	Underline = 0 'False
		165	Italic = 0 'False
		166	Strikethrough = 0 'False
		167	EndProperty
		168	ForeColor = &H00000000&
		169	Height = 240
		170	Left = 240
		171	TabIndex = 8
		172	Top = 4320
		173	Width = 2595
		174	End
		175	Begin VB.Label Label8
		176	AutoSize = -1 'True
		177	BackStyle = 0 'Transparent
		178	Caption = "- Garnichts, das Leben ist, was mir am meisten bedeutet."
		179	BeginProperty Font
		180	Name = "MS Sans Serif"
		181	Size = 9.75
		182	Charset = 0
		183	Weight = 700
		184	Underline = -1 'True
		185	Italic = 0 'False
		186	Strikethrough = 0 'False
		187	EndProperty
		188	ForeColor = &H00000000&
		189	Height = 240
		190	Left = 360
		191	TabIndex = 7
		192	Top = 3720
		193	Width = 5820
		194	End
		195	Begin VB.Label Label7
		196	AutoSize = -1 'True
		197	BackStyle = 0 'Transparent
		198	Caption = "- Nicht so viel, wie Wissen."
		199	BeginProperty Font
		200	Name = "MS Sans Serif"
		201	Size = 9.75
		202	Charset = 0
		203	Weight = 700
		204	Underline = -1 'True
		205	Italic = 0 'False
		206	Strikethrough = 0 'False
		207	EndProperty
		208	ForeColor = &H00000000&
		209	Height = 240
		210	Left = 360
		211	TabIndex = 6
		212	Top = 3360
		213	Width = 2775
		214	End
		215	Begin VB.Label Label6
		216	AutoSize = -1 'True
		217	BackStyle = 0 'Transparent
		218	Caption = "- Ich würde dafür töten."
		219	BeginProperty Font
		220	Name = "MS Sans Serif"
		221	Size = 9.75
		222	Charset = 0
		223	Weight = 700
		224	Underline = -1 'True
		225	Italic = 0 'False
		226	Strikethrough = 0 'False
		227	EndProperty
		228	ForeColor = &H00000000&
		229	Height = 240
		230	Left = 360
		231	TabIndex = 5
		232	Top = 3000
		233	Width = 2340
		234	End
		235	Begin VB.Label Label5
		236	AutoSize = -1 'True
		237	BackStyle = 0 'Transparent
		238	Caption = """Wieviel, Abenteurer, bedeutet dir Reichtum?"""
		239	BeginProperty Font
		240	Name = "MS Sans Serif"
		241	Size = 9.75
		242	Charset = 0
		243	Weight = 700
		244	Underline = 0 'False
		245	Italic = 0 'False
		246	Strikethrough = 0 'False
		247	EndProperty
		248	ForeColor = &H00000000&
		249	Height = 240
		250	Left = 240
		251	TabIndex = 4
		252	Top = 2640
		253	Width = 4740
		254	End
		255	Begin VB.Label Label4
		256	BackStyle = 0 'Transparent
		257	Caption = "Die Statue und der Stein beginnen zu beben. Es bilden sich flammige Augen und Mundwerk in der Statue."
		258	BeginProperty Font
		259	Name = "MS Sans Serif"
		260	Size = 9.75
		261	Charset = 0
		262	Weight = 700
		263	Underline = 0 'False
		264	Italic = 0 'False
		265	Strikethrough = 0 'False
		266	EndProperty
		267	ForeColor = &H00000000&
		268	Height = 615
		269	Left = 240
		270	TabIndex = 3
		271	Top = 2040
		272	Width = 6135
		273	End
		274	Begin VB.Label Label3
		275	AutoSize = -1 'True
		276	BackStyle = 0 'Transparent
		277	Caption = "Mit Statue sprechen"
		278	BeginProperty Font
		279	Name = "MS Sans Serif"
		280	Size = 9.75
		281	Charset = 0
		282	Weight = 700
		283	Underline = -1 'True
		284	Italic = 0 'False
		285	Strikethrough = 0 'False
		286	EndProperty
		287	ForeColor = &H00FF8080&
		288	Height = 240
		289	Left = 480
		290	TabIndex = 2
		291	Top = 1200
		292	Width = 2055
		293	End
		294	Begin VB.Label Label2
		295	AutoSize = -1 'True
		296	BackStyle = 0 'Transparent
		297	Caption = "Statue berühren"
		298	BeginProperty Font
		299	Name = "MS Sans Serif"
		300	Size = 9.75
		301	Charset = 0
		302	Weight = 700
		303	Underline = -1 'True
		304	Italic = 0 'False
		305	Strikethrough = 0 'False
		306	EndProperty
		307	ForeColor = &H00FF8080&
		308	Height = 240
		309	Left = 480
		310	TabIndex = 1
		311	Top = 840
		312	Width = 1650
		313	End
		314	Begin VB.Label Label1
		315	BackStyle = 0 'Transparent
		316	Caption = "Ein Silberglänzender Stein ragt aus dem See empor. Darauf steht eine Statue in Form eines Feuerdämons."
		317	BeginProperty Font
		318	Name = "MS Sans Serif"
		319	Size = 9.75
		320	Charset = 0
		321	Weight = 700
		322	Underline = 0 'False
		323	Italic = 0 'False
		324	Strikethrough = 0 'False
		325	EndProperty
		326	ForeColor = &H00FFFFFF&
		327	Height = 615
		328	Left = 240
		329	TabIndex = 0
		330	Top = 240
		331	Width = 6495
		332	End
		333	End
		334	Attribute VB_Name = "FeSee"
		335	Attribute VB_GlobalNameSpace = False
		336	Attribute VB_Creatable = False
		337	Attribute VB_PredeclaredId = True
		338	Attribute VB_Exposed = False
		339	Private Sub Label10_Click()
		340	Selbst = 1
		341	weiter2
		342	End Sub
		343
		344	Private Sub Label11_Click()
		345	Selbst = 2
		346	weiter2
		347
		348	End Sub
		349
		350	Private Sub Label12_Click()
		351	Selbst = 3
		352	weiter2
		353	End Sub
		354
		355	Private Sub Label14_Click()
		356	Andere = 1
		357	weiter3
		358	End Sub
		359
		360	Private Sub Label15_Click()
		361	Andere = 2
		362	weiter3
		363	End Sub
		364
		365	Private Sub Label16_Click()
		366	Andere = 3
		367	weiter3
		368	End Sub
		369
		370	Private Sub Label2_Click()
		371	MsgBox "Als du die Statue berührst, schlagen Flammen um dich und es bildet sich ein Feuerdämon.", 64 + 0, "Ereignis"
		372	art = "da": explus = 80: feind = "Feuerdämon"
		373	gwaffe = "Flammen": gmat = "": ggrundwert = 5: gzusatzwert = 15: gabzug = 0: gkateg = "": grust = "": grs = 0: grsmat = "": gbe = 0
		374	woher = "Schwarzer See"
		375	ghp = 80: gmp = 40: gspeed = 45: gstrength = 45
		376	Kampf.Show
		377	End Sub
		378
		379	Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
		380	Dim lHandle As Long
		381	lHandle = LoadCursor(0, HandCursor)
		382	If (lHandle > 0) Then SetCursor lHandle
		383	End Sub
		384
		385	Private Sub Label3_Click()
		386	MsgBox "Du sprichst die Statue an, und fragst was es mit dem Tempel der schwarzen Feen auf sich hat.", 64 + 0, "Folge"
		387	Label4.ForeColor = &HFFFFFF
		388	Label5.ForeColor = &HFFFF&
		389	Label6.ForeColor = &HFF8080
		390	Label7.ForeColor = &HFF8080
		391	Label8.ForeColor = &HFF8080
		392
		393	End Sub
		394
		395	Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
		396	Dim lHandle As Long
		397	lHandle = LoadCursor(0, HandCursor)
		398	If (lHandle > 0) Then SetCursor lHandle
		399	End Sub
		400
		401	Private Sub Label6_Click()
		402	Reichtum = 1
		403	weiter1
		404	End Sub
		405
		406	Sub weiter1()
		407	If Label4.ForeColor = &H0& Then GoTo nix
		408	Label9.ForeColor = &HFFFF&
		409	Label10.ForeColor = &HFF8080
		410	Label11.ForeColor = &HFF8080
		411	Label12.ForeColor = &HFF8080
		412	nix:
		413	End Sub
		414
		415	Private Sub Label7_Click()
		416	Reichtum = 2
		417	weiter1
		418	End Sub
		419
		420	Private Sub Label8_Click()
		421	Reichtum = 3
		422	weiter1
		423	End Sub
		424
		425	Sub weiter2()
		426	If Label9.ForeColor = &H0& Then GoTo nix2
		427	Label13.ForeColor = &HFFFF&
		428	Label14.ForeColor = &HFF8080
		429	Label15.ForeColor = &HFF8080
		430	Label16.ForeColor = &HFF8080
		431	nix2:
		432	End Sub
		433	Sub weiter3()
		434	If Label13.ForeColor = &H0& Then GoTo nix3
		435	MsgBox "Du darfst gehen. Aber nimm dies noch mit.", 64 + 0, "Statue"
		436	MsgBox "Du erhältst : Rune der Zeit"
		437	a = "Rune der Zeit"
		438	frmInternal.List1.AddItem a
		439	If Reichtum > 0 And Selbst > 0 And Andere > 0 Then MsgBox "Du erhältst 100 Erfahrungspunkte!"
		440	freisee = 1
		441	Feenwald.Shape3.Visible = False
		442	Feenwald.Show
		443	Unload FeSee
		444	nix3:
		445	End Sub

Subversion Repositories aysalia

aysalia/trunk/Schatten über Aysalia/FeSee.frm @ 34 – Rev 2