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

Rev	Author	Line No.	Line
2	daniel-mar	1	VERSION 5.00
		2	Begin VB.Form Festung2
		3	BackColor = &H00000000&
		4	BorderStyle = 0 'None
		5	Caption = "Festung2"
		6	ClientHeight = 5175
		7	ClientLeft = 0
		8	ClientTop = 0
		9	ClientWidth = 4500
		10	KeyPreview = -1 'True
		11	LinkTopic = "Festung2"
		12	Picture = "Festung2.frx":0000
		13	ScaleHeight = 5175
		14	ScaleWidth = 4500
		15	ShowInTaskbar = 0 'False
		16	StartUpPosition = 2 'CenterScreen
		17	Begin VB.Label Label6
		18	AutoSize = -1 'True
		19	BackStyle = 0 'Transparent
		20	Caption = "X A J E K's F E S T U N G"
		21	BeginProperty Font
		22	Name = "Courier New"
		23	Size = 12
		24	Charset = 0
		25	Weight = 700
		26	Underline = 0 'False
		27	Italic = 0 'False
		28	Strikethrough = 0 'False
		29	EndProperty
		30	ForeColor = &H00808080&
		31	Height = 270
		32	Left = 120
		33	TabIndex = 5
		34	Top = 4560
		35	Width = 3900
		36	End
		37	Begin VB.Label Label3
		38	AutoSize = -1 'True
		39	BackStyle = 0 'Transparent
		40	Caption = "Verlassen"
		41	BeginProperty Font
		42	Name = "Arial"
		43	Size = 9.75
		44	Charset = 0
		45	Weight = 700
		46	Underline = 0 'False
		47	Italic = 0 'False
		48	Strikethrough = 0 'False
		49	EndProperty
		50	ForeColor = &H00FFFFFF&
		51	Height = 240
		52	Left = 3480
		53	TabIndex = 4
		54	Top = 4800
		55	Width = 930
		56	End
		57	Begin VB.Shape Shape2
		58	BorderColor = &H00C0C0C0&
		59	Height = 135
		60	Index = 4
		61	Left = 1960
		62	Shape = 3 'Circle
		63	Top = 1580
		64	Width = 135
		65	End
		66	Begin VB.Shape Shape2
		67	BorderColor = &H00C0C0C0&
		68	Height = 135
		69	Index = 3
		70	Left = 160
		71	Shape = 3 'Circle
		72	Top = 1380
		73	Width = 135
		74	End
		75	Begin VB.Shape Shape2
		76	BorderColor = &H00C0C0C0&
		77	Height = 135
		78	Index = 1
		79	Left = 1660
		80	Shape = 3 'Circle
		81	Top = 180
		82	Width = 135
		83	End
		84	Begin VB.Shape Shape2
		85	BorderColor = &H00C0C0C0&
		86	Height = 135
		87	Index = 0
		88	Left = 4360
		89	Shape = 3 'Circle
		90	Top = 980
		91	Width = 135
		92	End
		93	Begin VB.Shape held
		94	FillColor = &H0000FFFF&
		95	FillStyle = 0 'Solid
		96	Height = 135
		97	Left = 3860
		98	Shape = 3 'Circle
		99	Top = 1580
		100	Width = 135
		101	End
		102	Begin VB.Label Label1
		103	AutoSize = -1 'True
		104	BackStyle = 0 'Transparent
		105	Caption = "Tür"
		106	BeginProperty Font
		107	Name = "Arial"
		108	Size = 9.75
		109	Charset = 0
		110	Weight = 700
		111	Underline = 0 'False
		112	Italic = 0 'False
		113	Strikethrough = 0 'False
		114	EndProperty
		115	ForeColor = &H00FFFFFF&
		116	Height = 240
		117	Left = 4080
		118	TabIndex = 0
		119	Top = 1080
		120	Width = 315
		121	End
		122	Begin VB.Label Label2
		123	AutoSize = -1 'True
		124	BackStyle = 0 'Transparent
		125	Caption = "Truhe"
		126	BeginProperty Font
		127	Name = "Arial"
		128	Size = 9.75
		129	Charset = 0
		130	Weight = 700
		131	Underline = 0 'False
		132	Italic = 0 'False
		133	Strikethrough = 0 'False
		134	EndProperty
		135	ForeColor = &H00FFFFFF&
		136	Height = 240
		137	Left = 1920
		138	TabIndex = 1
		139	Top = 240
		140	Width = 555
		141	End
		142	Begin VB.Label Label5
		143	AutoSize = -1 'True
		144	BackStyle = 0 'Transparent
		145	Caption = "Tisch"
		146	BeginProperty Font
		147	Name = "Arial"
		148	Size = 9.75
		149	Charset = 0
		150	Weight = 700
		151	Underline = 0 'False
		152	Italic = 0 'False
		153	Strikethrough = 0 'False
		154	EndProperty
		155	ForeColor = &H00FFFFFF&
		156	Height = 240
		157	Left = 1920
		158	TabIndex = 3
		159	Top = 1800
		160	Width = 495
		161	End
		162	Begin VB.Label Label4
		163	AutoSize = -1 'True
		164	BackStyle = 0 'Transparent
		165	Caption = "Schrank"
		166	BeginProperty Font
		167	Name = "Arial"
		168	Size = 9.75
		169	Charset = 0
		170	Weight = 700
		171	Underline = 0 'False
		172	Italic = 0 'False
		173	Strikethrough = 0 'False
		174	EndProperty
		175	ForeColor = &H00FFFFFF&
		176	Height = 240
		177	Left = 120
		178	TabIndex = 2
		179	Top = 1560
		180	Width = 780
		181	End
		182	End
		183	Attribute VB_Name = "Festung2"
		184	Attribute VB_GlobalNameSpace = False
		185	Attribute VB_Creatable = False
		186	Attribute VB_PredeclaredId = True
		187	Attribute VB_Exposed = False
		188	Sub ortFINAL2()
		189	If veil = 1 Then GoTo ku
		190	Randomize Timer
		191	zahl = Int(4 * Rnd)
		192	If zahl = 3 Then FightVeil
		193	ku:
		194	If held.Left = Shape2(0).Left And held.Top = Shape2(0).Top Then Festung2.Hide: FESTUNG.Show
		195	If held.Left = Shape2(4).Left And held.Top = Shape2(4).Top Then Festung2.Hide: tisch
		196	If held.Left = Shape2(3).Left And held.Top = Shape2(3).Top Then Festung2.Hide: schrank
		197	If held.Left = Shape2(1).Left And held.Top = Shape2(1).Top Then Festung2.Hide: truhe
		198	End Sub
		199
		200	Sub FightVeil()
		201	art = "me": explus = 85: feind = "Veil"
		202	gwaffe = "Veil's Schwert": gmat = "Schwarz": ggrundwert = 6: gzusatzwert = 6: gabzug = 0: gkateg = "Sch": grust = "Plattenharnisch": grs = 4: grsmat = "Stahl": gbe = 3
		203	woher = "Veil"
		204	ghp = 85: gmp = 0: gspeed = 55: gstrength = 55
		205	Kampf.Show: Kampf.Label58.Caption = "'Du wagst, es die Festung des Meisters zu betreten? Dafür wirst du jetzt fallen!'"
		206	veil = 1
		207	End Sub
		208
		209	Sub tisch()
		210	If djinn = 1 Then GoTo nix
		211	a = MsgBox("Auf dem Tisch steht neben dem Geschir eine Flasche mit blauem Nebel. Willst du sie öffnen?", 64 + vbYesNo, "Tisch")
		212	b = Val(a)
		213	If b = vbYes Then GoTo djinn Else GoTo nix
		214	djinn:
		215	art = "da": explus = 60: feind = "Blauer Djinn"
		216	gwaffe = "Geisterhand": gmat = "": ggrundwert = 5: gzusatzwert = 10: gabzug = 0: gkateg = "": grust = "": grs = 0: grsmat = "": gbe = 0
		217	woher = "Festung2"
		218	ghp = 55: gmp = 30: gspeed = 55: gstrength = 0
		219	Festung2.Hide: Kampf.Show
		220	nix:
		221	djinn = 1
		222	End Sub
		223
		224	Sub schrank()
		225	If schrankh = 1 Then GoTo nixab
		226	a = MsgBox("Du findest : Robe der Schwarzen (Stoff, RS5, BE1)" + Chr(13) + "Willst du diese Rüstung tragen?", 64 + 4, "Rüstung")
		227	b = Val(a)
		228	If b = vbYes Then rüstung = "Robe der Schwarzen": rsmat = "Stoff": rs = 5: be = 1
		229	schrankh = 1
		230	nixab:
		231	Festung2.Show
		232	End Sub
		233	Sub truhe()
		234	If truheh = 1 Then GoTo nob11
		235	MsgBox "Du erhältst : Schriftrolle 'Hölleninferno'"
		236	a = "Schriftrolle 'Hölleninferno'"
		237	frmInternal.List1.AddItem a
		238	MsgBox "Du erhältst : Schriftrolle 'Göttliche Heilung'"
		239	a = "Schriftrolle 'Göttliche Heilung'"
		240	frmInternal.List1.AddItem a
		241	truheh = 1
		242	nob11:
		243	Festung2.Show
		244	End Sub
		245
		246	Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
		247	Select Case KeyCode
		248	Case vbKeyDown: Untenlauf
		249	Case vbKeyUp: Obenlauf
		250	Case vbKeyRight: Rechtslauf
		251	Case vbKeyLeft: Linkslauf
		252	Case vbKeyA: Linkslauf
		253	Case vbKeyS: Untenlauf
		254	Case vbKeyD: Rechtslauf
		255	Case vbKeyW: Obenlauf
		256	End Select
		257	End Sub
		258	Sub Untenlauf()
		259	If held.Top + held.Height + 100 < Festung2.Height Then
		260	held.Top = held.Top + 100
		261	ortFINAL2
		262	End If
		263	End Sub
		264	Sub Obenlauf()
		265	If held.Top - 100 >= 0 Then
		266	held.Top = held.Top - 100
		267	ortFINAL2
		268	End If
		269	End Sub
		270	Sub Rechtslauf()
		271	If held.Left + held.Width + 100 < Festung2.Width Then
		272	held.Left = held.Left + 100
		273	ortFINAL2
		274	End If
		275	End Sub
		276	Sub Linkslauf()
		277	If held.Left - 100 >= 0 Then
		278	held.Left = held.Left - 100
		279	ortFINAL2
		280	End If
		281	End Sub
		282
		283	Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
		284	Label3.ForeColor = &HFFFFFF
		285	End Sub
		286
		287	Private Sub Label3_Click()
		288	Unload Festung2
		289	Landkarte.Show
		290	End Sub
		291
		292	Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
		293	Label3.ForeColor = &HFFFF&
		294	Dim lHandle As Long
		295	lHandle = LoadCursor(0, HandCursor)
		296	If (lHandle > 0) Then SetCursor lHandle
		297	End Sub

Subversion Repositories aysalia

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