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

Rev	Author	Line No.	Line
2	daniel-mar	1	VERSION 5.00
		2	Begin VB.Form Höhlen
		3	BackColor = &H00000000&
		4	BorderStyle = 0 'None
		5	Caption = "Höhlen"
		6	ClientHeight = 7965
		7	ClientLeft = 0
		8	ClientTop = 0
		9	ClientWidth = 9600
		10	BeginProperty Font
		11	Name = "Times New Roman"
		12	Size = 8.25
		13	Charset = 0
		14	Weight = 400
		15	Underline = 0 'False
		16	Italic = 0 'False
		17	Strikethrough = 0 'False
		18	EndProperty
		19	KeyPreview = -1 'True
		20	LinkTopic = "Höhlen"
		21	MaxButton = 0 'False
		22	MinButton = 0 'False
		23	Picture = "Höhlen.frx":0000
		24	ScaleHeight = 7965
		25	ScaleWidth = 9600
		26	ShowInTaskbar = 0 'False
		27	StartUpPosition = 2 'CenterScreen
		28	Begin VB.Label Label6
		29	AutoSize = -1 'True
		30	BackStyle = 0 'Transparent
		31	Caption = "H Ö H L E D E S V E R D E R D E R B E N S"
		32	BeginProperty Font
		33	Name = "Courier New"
		34	Size = 12
		35	Charset = 0
		36	Weight = 700
		37	Underline = 0 'False
		38	Italic = 0 'False
		39	Strikethrough = 0 'False
		40	EndProperty
		41	ForeColor = &H00808080&
		42	Height = 270
		43	Left = 240
		44	TabIndex = 5
		45	Top = 7440
		46	Width = 6750
		47	End
		48	Begin VB.Label Label5
		49	AutoSize = -1 'True
		50	BackStyle = 0 'Transparent
		51	Caption = "Verlassen"
		52	BeginProperty Font
		53	Name = "Arial"
		54	Size = 9
		55	Charset = 0
		56	Weight = 700
		57	Underline = 0 'False
		58	Italic = 0 'False
		59	Strikethrough = 0 'False
		60	EndProperty
		61	ForeColor = &H00FFFFFF&
		62	Height = 225
		63	Left = 8640
		64	TabIndex = 4
		65	Top = 7680
		66	Width = 870
		67	End
		68	Begin VB.Shape Held3
		69	FillColor = &H0000FFFF&
		70	FillStyle = 0 'Solid
		71	Height = 135
		72	Left = 4560
		73	Shape = 3 'Circle
		74	Top = 780
		75	Width = 135
		76	End
		77	Begin VB.Shape Shape1
		78	BorderColor = &H00FFFFFF&
		79	Height = 135
		80	Index = 3
		81	Left = 2260
		82	Shape = 3 'Circle
		83	Top = 980
		84	Width = 135
		85	End
		86	Begin VB.Shape Shape1
		87	BorderColor = &H00FFFFFF&
		88	Height = 135
		89	Index = 2
		90	Left = 1560
		91	Shape = 3 'Circle
		92	Top = 5680
		93	Width = 135
		94	End
		95	Begin VB.Shape Shape1
		96	BorderColor = &H00FFFFFF&
		97	Height = 135
		98	Index = 1
		99	Left = 7860
		100	Shape = 3 'Circle
		101	Top = 2180
		102	Width = 135
		103	End
		104	Begin VB.Shape Shape1
		105	BorderColor = &H00FFFFFF&
		106	Height = 135
		107	Index = 0
		108	Left = 7560
		109	Shape = 3 'Circle
		110	Top = 1880
		111	Width = 135
		112	End
		113	Begin VB.Label Label4
		114	AutoSize = -1 'True
		115	BackStyle = 0 'Transparent
		116	Caption = "Treppe nach unten"
		117	BeginProperty Font
		118	Name = "Arial"
		119	Size = 8.25
		120	Charset = 0
		121	Weight = 700
		122	Underline = 0 'False
		123	Italic = 0 'False
		124	Strikethrough = 0 'False
		125	EndProperty
		126	ForeColor = &H00C0C0C0&
		127	Height = 210
		128	Left = 7440
		129	TabIndex = 3
		130	Top = 1920
		131	Width = 1560
		132	End
		133	Begin VB.Label Label3
		134	AutoSize = -1 'True
		135	BackStyle = 0 'Transparent
		136	Caption = "Steintisch"
		137	BeginProperty Font
		138	Name = "Arial"
		139	Size = 8.25
		140	Charset = 0
		141	Weight = 700
		142	Underline = 0 'False
		143	Italic = 0 'False
		144	Strikethrough = 0 'False
		145	EndProperty
		146	ForeColor = &H00C0C0C0&
		147	Height = 210
		148	Left = 7800
		149	TabIndex = 2
		150	Top = 2520
		151	Width = 825
		152	End
		153	Begin VB.Label Label1
		154	AutoSize = -1 'True
		155	BackStyle = 0 'Transparent
		156	Caption = "Truhe"
		157	BeginProperty Font
		158	Name = "Arial"
		159	Size = 8.25
		160	Charset = 0
		161	Weight = 700
		162	Underline = 0 'False
		163	Italic = 0 'False
		164	Strikethrough = 0 'False
		165	EndProperty
		166	ForeColor = &H00C0C0C0&
		167	Height = 210
		168	Left = 2520
		169	TabIndex = 0
		170	Top = 1080
		171	Width = 495
		172	End
		173	Begin VB.Label Label2
		174	AutoSize = -1 'True
		175	BackStyle = 0 'Transparent
		176	Caption = "Skelett"
		177	BeginProperty Font
		178	Name = "Arial"
		179	Size = 8.25
		180	Charset = 0
		181	Weight = 700
		182	Underline = 0 'False
		183	Italic = 0 'False
		184	Strikethrough = 0 'False
		185	EndProperty
		186	ForeColor = &H00C0C0C0&
		187	Height = 210
		188	Left = 2040
		189	TabIndex = 1
		190	Top = 5640
		191	Width = 585
		192	End
		193	End
		194	Attribute VB_Name = "Höhlen"
		195	Attribute VB_GlobalNameSpace = False
		196	Attribute VB_Creatable = False
		197	Attribute VB_PredeclaredId = True
		198	Attribute VB_Exposed = False
		199
		200	Private Sub Command1_Click()
		201	Held3.Left = Held3.Left - 100
		202	Ort2
		203	Angriff3
		204	End Sub
		205
		206	Private Sub Command2_Click()
		207	Held3.Left = Held3.Left + 100
		208	Ort2
		209	Angriff3
		210	End Sub
		211
		212	Private Sub Command3_Click()
		213	Held3.Top = Held3.Top - 100
		214	Ort2
		215	Angriff3
		216	End Sub
		217
		218	Private Sub Command4_Click()
		219	Held3.Top = Held3.Top + 100
		220	Ort2
		221	Angriff3
		222	End Sub
		223	Sub Ort2()
		224	If Held3.Left = Shape1(3).Left And Held3.Top = Shape1(3).Top And hotruhe <> 1 Then Höhlen.Hide: HöTruhe.Show
		225	If Held3.Left = Shape1(0).Left And Held3.Top = Shape1(0).Top Then Höhlen.Hide: SchauTreppe
		226	If Held3.Left = Shape1(1).Left And Held3.Top = Shape1(1).Top Then Höhlen.Hide: HöTisch.Show
		227	If Held3.Left = Shape1(2).Left And Held3.Top = Shape1(2).Top Then Skelleto
		228	End Sub
		229	Sub Skelleto()
		230	If skeletto = 1 Then GoTo nixda
		231	Höhlen.Hide
		232	MsgBox "Als du nähertrittst, fangen die Augen des Skelettes an zu leuchten. Mit glühenden Augen stürzt sich das Skelett auf dich."
		233	art = "un": explus = 75: feind = "Verfluchtes Skelett"
		234	gwaffe = "Schwarzes Schwert": gmat = "Schwarz": ggrundwert = 4: gzusatzwert = 3: gabzug = 0: gkateg = "Sch": grust = "Rostiger Panzer": grs = 2: grsmat = "Stahl": gbe = 2
		235	woher = "Höhlen"
		236	ghp = 50: gmp = 0: gspeed = 48: gstrength = 40
		237	Höhlen.Hide: Kampf.Show
		238	skeletto = 1
		239	nixda:
		240	End Sub
		241
		242	Sub SchauTreppe()
		243	If door = 0 Then MsgBox "Eine magische Mauer umschließt die Treppe": GoTo nixnix
		244	Randomize Timer
		245	zahl = Int(100 * Rnd)
		246	If zahl > Iq Then
		247	MsgBox "Du stolperst über ein Seil und plötzlich rasen Bolzen aus den Wänden, die dich treffen. (-14 LP)"
		248	hp = hp - 14
		249	If hp <= 0 Then
		250	Unload Höhlen
		251	Tot.Show
		252	GoTo abcde
		253	End If
		254	End If
		255	Höhlen.Hide
		256	HöhlenE2.Show
		257	GoTo abcde
		258	nixnix:
		259	Höhlen.Show
		260	abcde:
		261	End Sub
		262
		263	Private Sub Command5_Click()
		264
		265	End Sub
		266
		267	Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
		268	Select Case KeyCode
		269	Case vbKeyDown: Untenlauf
		270	Case vbKeyUp: Obenlauf
		271	Case vbKeyRight: Rechtslauf
		272	Case vbKeyLeft: Linkslauf
		273	Case vbKeyA: Linkslauf
		274	Case vbKeyS: Untenlauf
		275	Case vbKeyD: Rechtslauf
		276	Case vbKeyW: Obenlauf
		277	End Select
		278	End Sub
		279	Sub Untenlauf()
		280	If Held3.Top + Held3.Height + 100 < Höhlen.Height Then
		281	Held3.Top = Held3.Top + 100
		282	Ort2
		283	Angriff3
		284	End If
		285	End Sub
		286	Sub Obenlauf()
		287	If Held3.Top - 100 >= 0 Then
		288	Held3.Top = Held3.Top - 100
		289	Ort2
		290	Angriff3
		291	End If
		292	End Sub
		293	Sub Rechtslauf()
		294	If Held3.Left + Held3.Width + 100 < Höhlen.Width Then
		295	Held3.Left = Held3.Left + 100
		296	Ort2
		297	Angriff3
		298	End If
		299	End Sub
		300	Sub Linkslauf()
		301	If Held3.Left - 100 >= 0 Then
		302	Held3.Left = Held3.Left - 100
		303	Ort2
		304	Angriff3
		305	End If
		306	End Sub
		307
		308	Private Sub Form_Load()
		309	Shape1(3).Visible = (hotruhe <> 1)
		310	End Sub
		311
		312	Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
		313	Label5.ForeColor = &HFFFFFF
		314	End Sub
		315
		316	Private Sub Label5_Click()
		317	Unload Höhlen
		318	Landkarte.Show
		319	End Sub
		320
		321	Private Sub Label5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
		322	Label5.ForeColor = &HFFFF&
		323	Dim lHandle As Long
		324	lHandle = LoadCursor(0, HandCursor)
		325	If (lHandle > 0) Then SetCursor lHandle
		326	End Sub

Subversion Repositories aysalia

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