WebSVN – aysalia – Blame – /trunk/Schatten über Aysalia/HöhlenE2.frm

Rev	Author	Line No.	Line
2	daniel-mar	1	VERSION 5.00
		2	Begin VB.Form HöhlenE2
		3	BackColor = &H00000000&
		4	BorderStyle = 0 'None
		5	Caption = "HöhlenE2"
		6	ClientHeight = 7980
		7	ClientLeft = 0
		8	ClientTop = 0
		9	ClientWidth = 9615
		10	KeyPreview = -1 'True
		11	LinkTopic = "HöhlenE2"
		12	MaxButton = 0 'False
		13	MinButton = 0 'False
		14	Picture = "HöhlenE2.frx":0000
		15	ScaleHeight = 7980
		16	ScaleWidth = 9615
		17	ShowInTaskbar = 0 'False
		18	StartUpPosition = 2 'CenterScreen
		19	Begin VB.Label Label6
		20	AutoSize = -1 'True
		21	BackStyle = 0 'Transparent
		22	Caption = "H Ö H L E D E S V E R D E R D E R B E N S"
		23	BeginProperty Font
		24	Name = "Courier New"
		25	Size = 12
		26	Charset = 0
		27	Weight = 700
		28	Underline = 0 'False
		29	Italic = 0 'False
		30	Strikethrough = 0 'False
		31	EndProperty
		32	ForeColor = &H00808080&
		33	Height = 270
		34	Left = 120
		35	TabIndex = 2
		36	Top = 7440
		37	Width = 6750
		38	End
		39	Begin VB.Label Label2
		40	AutoSize = -1 'True
		41	BackStyle = 0 'Transparent
		42	Caption = "Verlassen"
		43	BeginProperty Font
		44	Name = "Arial"
		45	Size = 9
		46	Charset = 0
		47	Weight = 700
		48	Underline = 0 'False
		49	Italic = 0 'False
		50	Strikethrough = 0 'False
		51	EndProperty
		52	ForeColor = &H00FFFFFF&
		53	Height = 225
		54	Left = 8640
		55	TabIndex = 1
		56	Top = 7680
		57	Width = 870
		58	End
		59	Begin VB.Shape Shape1
		60	BorderColor = &H00FFFFFF&
		61	Height = 135
		62	Index = 3
		63	Left = 1460
		64	Shape = 3 'Circle
		65	Top = 980
		66	Width = 135
		67	End
		68	Begin VB.Shape Shape1
		69	BorderColor = &H00FFFFFF&
		70	Height = 135
		71	Index = 2
		72	Left = 3160
		73	Shape = 3 'Circle
		74	Top = 1080
		75	Width = 135
		76	End
		77	Begin VB.Shape Shape1
		78	BorderColor = &H00FFFFFF&
		79	Height = 135
		80	Index = 1
		81	Left = 5760
		82	Shape = 3 'Circle
		83	Top = 3880
		84	Width = 135
		85	End
		86	Begin VB.Shape Shape1
		87	BorderColor = &H00FFFFFF&
		88	Height = 135
		89	Index = 0
		90	Left = 2160
		91	Shape = 3 'Circle
		92	Top = 1080
		93	Width = 135
		94	End
		95	Begin VB.Shape Held4
		96	FillColor = &H0000FFFF&
		97	FillStyle = 0 'Solid
		98	Height = 135
		99	Left = 3960
		100	Shape = 3 'Circle
		101	Top = 3380
		102	Width = 135
		103	End
		104	Begin VB.Label Label1
		105	AutoSize = -1 'True
		106	BackStyle = 0 'Transparent
		107	Caption = "Schlüsselaltar"
		108	BeginProperty Font
		109	Name = "Arial"
		110	Size = 9
		111	Charset = 0
		112	Weight = 700
		113	Underline = 0 'False
		114	Italic = 0 'False
		115	Strikethrough = 0 'False
		116	EndProperty
		117	ForeColor = &H00808080&
		118	Height = 225
		119	Left = 6000
		120	TabIndex = 0
		121	Top = 3960
		122	Width = 1230
		123	End
		124	End
		125	Attribute VB_Name = "HöhlenE2"
		126	Attribute VB_GlobalNameSpace = False
		127	Attribute VB_Creatable = False
		128	Attribute VB_PredeclaredId = True
		129	Attribute VB_Exposed = False
		130
		131	Private Sub Command1_Click()
		132	Held4.Left = Held4.Left - 100
		133	Ort3
		134	Angriff3
		135	End Sub
		136
		137	Private Sub Command2_Click()
		138	Held4.Left = Held4.Left + 100
		139	Ort3
		140	Angriff3
		141	End Sub
		142
		143	Private Sub Command3_Click()
		144	Held4.Top = Held4.Top - 100
		145	Ort3
		146	Angriff3
		147	End Sub
		148
		149	Private Sub Command4_Click()
		150	Held4.Top = Held4.Top + 100
		151	Ort3
		152	Angriff3
		153	End Sub
		154	Sub Ort3()
		155	woher = "a"
		156	If Held4.Left = Shape1(3).Left And Held4.Top = Shape1(3).Top And truhe2 <> 1 Then HöhlenE2.Hide: HöTruhe2.Show
		157	If Held4.Left = Shape1(0).Left And Held4.Top = Shape1(0).Top And truhe3 <> 1 Then HöhlenE2.Hide: HöTruhe3.Show
		158	If Held4.Left = Shape1(2).Left And Held4.Top = Shape1(2).Top And truhe4 <> 1 Then HöhlenE2.Hide: HöTruhe4.Show
		159	If Held4.Left = Shape1(1).Left And Held4.Top = Shape1(1).Top Then HöhlenE2.Hide: HöAltar.Show
		160	End Sub
		161	Sub Angriff4()
		162
		163	End Sub
		164
		165	Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
		166	Select Case KeyCode
		167	Case vbKeyDown: Untenlauf
		168	Case vbKeyUp: Obenlauf
		169	Case vbKeyRight: Rechtslauf
		170	Case vbKeyLeft: Linkslauf
		171	Case vbKeyA: Linkslauf
		172	Case vbKeyS: Untenlauf
		173	Case vbKeyD: Rechtslauf
		174	Case vbKeyW: Obenlauf
		175	End Select
		176	End Sub
		177	Sub Untenlauf()
		178	If Held4.Top + Held4.Height + 100 < HöhlenE2.Height Then
		179	Held4.Top = Held4.Top + 100
		180	Ort3
		181	Angriff3
		182	End If
		183	End Sub
		184	Sub Obenlauf()
		185	If Held4.Top - 100 >= 0 Then
		186	Held4.Top = Held4.Top - 100
		187	Ort3
		188	Angriff3
		189	End If
		190	End Sub
		191	Sub Rechtslauf()
		192	If Held4.Left + Held4.Width + 100 < HöhlenE2.Width Then
		193	Held4.Left = Held4.Left + 100
		194	Ort3
		195	Angriff3
		196	End If
		197	End Sub
		198	Sub Linkslauf()
		199	If Held4.Left - 100 >= 0 Then
		200	Held4.Left = Held4.Left - 100
		201	Ort3
		202	Angriff3
		203	End If
		204	End Sub
		205
		206	Private Sub Form_Load()
		207	Shape1(3).Visible = (truhe2 <> 1)
		208	Shape1(0).Visible = (truhe3 <> 1)
		209	Shape1(2).Visible = (truhe4 <> 1)
		210	End Sub
		211
		212	Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
		213	Label2.ForeColor = &HFFFFFF
		214	End Sub
		215
		216	Private Sub Label2_Click()
		217	Unload HöhlenE2
		218	Höhlen.Show
		219	End Sub
		220
		221	Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
		222	Label2.ForeColor = &HFFFF&
		223	Dim lHandle As Long
		224	lHandle = LoadCursor(0, HandCursor)
		225	If (lHandle > 0) Then SetCursor lHandle
		226	End Sub

Subversion Repositories aysalia

aysalia/trunk/Schatten über Aysalia/HöhlenE2.frm – Rev 2