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

Rev	Author	Line No.	Line
2	daniel-mar	1	VERSION 5.00
		2	Begin VB.Form Feenwald
		3	BackColor = &H00000000&
		4	BorderStyle = 0 'None
		5	Caption = "Feenwald"
		6	ClientHeight = 5835
		7	ClientLeft = 0
		8	ClientTop = 0
		9	ClientWidth = 7485
		10	KeyPreview = -1 'True
		11	LinkTopic = "Feenwald"
		12	Picture = "Feenwald.frx":0000
		13	ScaleHeight = 5835
		14	ScaleWidth = 7485
		15	ShowInTaskbar = 0 'False
		16	StartUpPosition = 2 'CenterScreen
		17	Begin VB.Shape Shape4
		18	BorderColor = &H0000FFFF&
		19	Height = 135
		20	Left = 1460
		21	Shape = 3 'Circle
		22	Top = 3680
		23	Width = 135
		24	End
		25	Begin VB.Shape Shape3
		26	BorderColor = &H0000FFFF&
		27	Height = 135
		28	Left = 5060
		29	Shape = 3 'Circle
		30	Top = 3180
		31	Width = 135
		32	End
		33	Begin VB.Shape Shape2
		34	BorderColor = &H0000FFFF&
		35	Height = 135
		36	Left = 2160
		37	Shape = 3 'Circle
		38	Top = 2080
		39	Width = 135
		40	End
		41	Begin VB.Shape Shape1
		42	BorderColor = &H0000FFFF&
		43	Height = 135
		44	Left = 4660
		45	Shape = 3 'Circle
		46	Top = 880
		47	Width = 135
		48	End
		49	Begin VB.Label Label6
		50	AutoSize = -1 'True
		51	BackStyle = 0 'Transparent
		52	Caption = "D E R F E E N W A L D"
		53	BeginProperty Font
		54	Name = "Courier New"
		55	Size = 12
		56	Charset = 0
		57	Weight = 700
		58	Underline = 0 'False
		59	Italic = 0 'False
		60	Strikethrough = 0 'False
		61	EndProperty
		62	ForeColor = &H00808080&
		63	Height = 270
		64	Left = 120
		65	TabIndex = 5
		66	Top = 5400
		67	Width = 3450
		68	End
		69	Begin VB.Label Label5
		70	AutoSize = -1 'True
		71	BackStyle = 0 'Transparent
		72	Caption = "Verlassen"
		73	BeginProperty Font
		74	Name = "Arial"
		75	Size = 9
		76	Charset = 0
		77	Weight = 700
		78	Underline = 0 'False
		79	Italic = 0 'False
		80	Strikethrough = 0 'False
		81	EndProperty
		82	ForeColor = &H00FFFFFF&
		83	Height = 225
		84	Left = 6480
		85	TabIndex = 4
		86	Top = 5520
		87	Width = 870
		88	End
		89	Begin VB.Shape Held2
		90	FillColor = &H0000FFFF&
		91	FillStyle = 0 'Solid
		92	Height = 135
		93	Left = 4860
		94	Shape = 3 'Circle
		95	Top = 1080
		96	Width = 135
		97	End
		98	Begin VB.Label Label1
		99	AutoSize = -1 'True
		100	BackStyle = 0 'Transparent
		101	Caption = "Das Haus des Kobold"
		102	BeginProperty Font
		103	Name = "Arial"
		104	Size = 8.25
		105	Charset = 0
		106	Weight = 700
		107	Underline = 0 'False
		108	Italic = 0 'False
		109	Strikethrough = 0 'False
		110	EndProperty
		111	ForeColor = &H00000000&
		112	Height = 255
		113	Left = 4920
		114	TabIndex = 0
		115	Top = 840
		116	Width = 1815
		117	End
		118	Begin VB.Label Label3
		119	AutoSize = -1 'True
		120	BackStyle = 0 'Transparent
		121	Caption = "Tempel der schwarzen Feen"
		122	BeginProperty Font
		123	Name = "Arial"
		124	Size = 8.25
		125	Charset = 0
		126	Weight = 700
		127	Underline = 0 'False
		128	Italic = 0 'False
		129	Strikethrough = 0 'False
		130	EndProperty
		131	ForeColor = &H00000000&
		132	Height = 210
		133	Left = 2400
		134	TabIndex = 2
		135	Top = 2040
		136	Width = 2370
		137	End
		138	Begin VB.Label Label2
		139	AutoSize = -1 'True
		140	BackStyle = 0 'Transparent
		141	Caption = "Der Schwarze See"
		142	BeginProperty Font
		143	Name = "Arial"
		144	Size = 8.25
		145	Charset = 0
		146	Weight = 700
		147	Underline = 0 'False
		148	Italic = 0 'False
		149	Strikethrough = 0 'False
		150	EndProperty
		151	ForeColor = &H00000000&
		152	Height = 210
		153	Left = 5160
		154	TabIndex = 1
		155	Top = 3360
		156	Width = 1500
		157	End
		158	Begin VB.Label Label4
		159	AutoSize = -1 'True
		160	BackStyle = 0 'Transparent
		161	Caption = "Das Ei der Medusa"
		162	BeginProperty Font
		163	Name = "Arial"
		164	Size = 8.25
		165	Charset = 0
		166	Weight = 700
		167	Underline = 0 'False
		168	Italic = 0 'False
		169	Strikethrough = 0 'False
		170	EndProperty
		171	ForeColor = &H00000000&
		172	Height = 210
		173	Left = 1680
		174	TabIndex = 3
		175	Top = 3480
		176	Width = 1515
		177	End
		178	End
		179	Attribute VB_Name = "Feenwald"
		180	Attribute VB_GlobalNameSpace = False
		181	Attribute VB_Creatable = False
		182	Attribute VB_PredeclaredId = True
		183	Attribute VB_Exposed = False
		184	Sub Angriff2()
		185	Randomize Timer
		186	evtangriff = Int(10 * Rnd)
		187	If evtangriff = 1 Then WhichEnemy2
		188	End Sub
		189	Sub WhichEnemy2()
		190	Randomize Timer
		191	enemy = Int(13 * Rnd)
		192	If enemy <= 5 Then GoTo Schlange
		193	If enemy = 6 Then GoTo SchwarzeFee
		194	If enemy = 7 Then GoTo SteinFee
		195	If enemy = 9 Then GoTo Höllenwolf
		196	If enemy = 11 Then GoTo Ghul
		197	If enemy = 13 Then GoTo Dunkelelf
		198	If enemy = 16 Then GoTo Lindwurm
		199	GoTo Accel2
		200	Schlange:
		201	art = "kr": explus = 10: feind = "Schlange"
		202	gwaffe = "Biss": gmat = "": ggrundwert = 1: gzusatzwert = 4: gabzug = 0: gkateg = "": grust = "": grs = 0: grsmat = "": gbe = 0
		203	woher = "Feenwald"
		204	ghp = 10: gmp = 0: gspeed = 70: gstrength = 15
		205	Feenwald.Hide: Kampf.Show
		206	GoTo Accel2
		207	SchwarzeFee:
		208	art = "kr": explus = 20: feind = "Schwarze Fee"
		209	gwaffe = "Krallen": gmat = "": ggrundwert = 3: gzusatzwert = 1: gabzug = 0: gkateg = "": grust = "": grs = 0: grsmat = "": gbe = 0
		210	woher = "Feenwald"
		211	ghp = 20: gmp = 0: gspeed = 51: gstrength = 35
		212	Feenwald.Hide: Kampf.Show
		213	GoTo Accel2
		214	SteinFee:
		215	art = "kr": explus = 25: feind = "Steinfee"
		216	gwaffe = "Blick": gmat = "": ggrundwert = 1: gzusatzwert = 6: gabzug = 0: gkateg = "": grust = "": grs = 0: grsmat = "": gbe = 0
		217	woher = "Feenwald"
		218	ghp = 30: gmp = 0: gspeed = 40: gstrength = 45
		219	Feenwald.Hide: Kampf.Show
		220	GoTo Accel2
		221	Höllenwolf:
		222	art = "kr": explus = 30: feind = "Höllenwolf"
		223	gwaffe = "Kiefer": gmat = "": ggrundwert = 2: gzusatzwert = 4: gabzug = 0: gkateg = "": grust = "": grs = 0: grsmat = "": gbe = 0
		224	woher = "Feenwald"
		225	ghp = 20: gmp = 0: gspeed = 62: gstrength = 48
		226	Feenwald.Hide: Kampf.Show
		227	GoTo Accel2
		228	Ghul:
		229	art = "un": explus = 35: feind = "Ghul"
		230	gwaffe = "Krallen": gmat = "": ggrundwert = 3: gzusatzwert = 1: gabzug = 0: gkateg = "": grust = "": grs = 0: grsmat = "": gbe = 0
		231	woher = "Feenwald"
		232	ghp = 40: gmp = 0: gspeed = 38: gstrength = 55
		233	Feenwald.Hide: Kampf.Show
		234	GoTo Accel2
		235	Dunkelelf:
		236	art = "zau": explus = 40: feind = "Dunkelelf"
		237	gwaffe = "Schwert": gmat = "Schwarz": ggrundwert = 4: gzusatzwert = 3: gabzug = 0: gkateg = "Sch": grust = "Lederharnisch": grs = 3: grsmat = "Leder": gbe = 3
		238	woher = "Feenwald"
		239	ghp = 30: gmp = 30: gspeed = 64: gstrength = 46
		240	Feenwald.Hide: Kampf.Show
		241	GoTo Accel2
		242	Lindwurm:
		243	art = "kr": explus = 65: feind = "Lindwurm"
		244	gwaffe = "Kiefer": gmat = "": ggrundwert = 6: gzusatzwert = 6: gabzug = 0: gkateg = "": grust = "Schuppen": grs = 3: grsmat = "": gbe = 0
		245	woher = "Feenwald"
		246	ghp = 60: gmp = 0: gspeed = 60: gstrength = 45
		247	Feenwald.Hide: Kampf.Show
		248	Accel2:
		249	End Sub
		250
		251	Sub Ort()
		252	If Held2.Left = Shape3.Left And Held2.Top = Shape3.Top And freisee <> 1 Then Feenwald.Hide: FeSee.Show
		253	If Held2.Left = Shape1.Left And Held2.Top = Shape1.Top And frei <> 2 Then Feenwald.Hide: FeKobold.Show
		254	If Held2.Left = Shape2.Left And Held2.Top = Shape2.Top And tempelfrei <> 1 Then Feenwald.Hide: FeTempel.Show
		255	If Held2.Left = Shape4.Left And Held2.Top = Shape4.Top And eifrei <> 1 Then Feenwald.Hide: FeMedusaEi.Show
		256	End Sub
		257	Private Sub Form_Activate()
		258	If frei = 2 Then Label1.Caption = "Asche eines Hauses"
		259	If eifrei = 1 Then Label4.Caption = "Scherben des Medusa Eies"
		260	End Sub
		261
		262	Private Sub Form_Load()
		263	Shape3.Visible = (freisee <> 1)
		264	Shape1.Visible = (frei <> 1)
		265	Shape2.Visible = (tempelfrei <> 1)
		266	Shape4.Visible = (eifrei <> 1)
		267	End Sub
		268
		269	Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
		270	Label5.ForeColor = &HFFFFFF
		271	End Sub
		272
		273	Private Sub Label5_Click()
		274	Landkarte.Show
		275	Unload Feenwald
		276	End Sub
		277	Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
		278	Select Case KeyCode
		279	Case vbKeyDown: Untenlauf
		280	Case vbKeyUp: Obenlauf
		281	Case vbKeyRight: Rechtslauf
		282	Case vbKeyLeft: Linkslauf
		283	Case vbKeyA: Linkslauf
		284	Case vbKeyS: Untenlauf
		285	Case vbKeyD: Rechtslauf
		286	Case vbKeyW: Obenlauf
		287	End Select
		288	End Sub
		289	Sub Untenlauf()
		290	If Held2.Top + Held2.Height + 100 < Feenwald.Height Then
		291	Held2.Top = Held2.Top + 100
		292	Ort
		293	Angriff2
		294	End If
		295	End Sub
		296	Sub Obenlauf()
		297	If Held2.Top - 100 >= 0 Then
		298	Held2.Top = Held2.Top - 100
		299	Ort
		300	Angriff2
		301	End If
		302	End Sub
		303	Sub Rechtslauf()
		304	If Held2.Left + Held2.Width + 100 < Feenwald.Width Then
		305	Held2.Left = Held2.Left + 100
		306	Ort
		307	Angriff2
		308	End If
		309	End Sub
		310	Sub Linkslauf()
		311	If Held2.Left - 100 >= 0 Then
		312	Held2.Left = Held2.Left - 100
		313	Ort
		314	Angriff2
		315	End If
		316	End Sub
		317
		318	Private Sub Label5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
		319	Label5.ForeColor = &HFFFF&
		320	Dim lHandle As Long
		321	lHandle = LoadCursor(0, HandCursor)
		322	If (lHandle > 0) Then SetCursor lHandle
		323	End Sub

Subversion Repositories aysalia

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