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

Rev	Author	Line No.	Line
2	daniel-mar	1	VERSION 5.00
		2	Begin VB.Form Sumpf
		3	BackColor = &H00000000&
		4	BorderStyle = 0 'None
		5	Caption = "Sumpf"
		6	ClientHeight = 6705
		7	ClientLeft = 0
		8	ClientTop = 0
		9	ClientWidth = 9000
		10	KeyPreview = -1 'True
		11	LinkTopic = "Sumpf"
		12	Picture = "Sumpf.frx":0000
		13	ScaleHeight = 6705
		14	ScaleWidth = 9000
		15	ShowInTaskbar = 0 'False
		16	StartUpPosition = 2 'CenterScreen
		17	Begin VB.Label Label6
		18	AutoSize = -1 'True
		19	BackStyle = 0 'Transparent
		20	Caption = "S U M P F D E R S K O R P I O N E"
		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 = 240
		33	TabIndex = 4
		34	Top = 6240
		35	Width = 5550
		36	End
		37	Begin VB.Label Label4
		38	AutoSize = -1 'True
		39	BackStyle = 0 'Transparent
		40	Caption = "Verlassen"
		41	BeginProperty Font
		42	Name = "Arial"
		43	Size = 9
		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 = 225
		52	Left = 8040
		53	TabIndex = 3
		54	Top = 6360
		55	Width = 870
		56	End
		57	Begin VB.Shape Shape2
		58	BorderColor = &H00808080&
		59	Height = 135
		60	Index = 2
		61	Left = 3360
		62	Shape = 3 'Circle
		63	Top = 1380
		64	Width = 135
		65	End
		66	Begin VB.Shape Shape2
		67	BorderColor = &H00808080&
		68	Height = 135
		69	Index = 1
		70	Left = 7060
		71	Shape = 3 'Circle
		72	Top = 4080
		73	Width = 135
		74	End
		75	Begin VB.Shape Shape2
		76	BorderColor = &H00808080&
		77	Height = 135
		78	Index = 0
		79	Left = 2160
		80	Shape = 3 'Circle
		81	Top = 3380
		82	Width = 135
		83	End
		84	Begin VB.Shape Held
		85	FillColor = &H0000FFFF&
		86	FillStyle = 0 'Solid
		87	Height = 135
		88	Left = 3860
		89	Shape = 3 'Circle
		90	Top = 4980
		91	Width = 135
		92	End
		93	Begin VB.Label Label2
		94	AutoSize = -1 'True
		95	BackStyle = 0 'Transparent
		96	Caption = "Geheimnisvolle blaue Wolke"
		97	BeginProperty Font
		98	Name = "Arial"
		99	Size = 8.25
		100	Charset = 0
		101	Weight = 700
		102	Underline = 0 'False
		103	Italic = 0 'False
		104	Strikethrough = 0 'False
		105	EndProperty
		106	ForeColor = &H00FFFFFF&
		107	Height = 210
		108	Left = 6480
		109	TabIndex = 1
		110	Top = 4320
		111	Width = 2340
		112	End
		113	Begin VB.Label Label3
		114	AutoSize = -1 'True
		115	BackStyle = 0 'Transparent
		116	Caption = "Brutplatz der Skorpione"
		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 = &H00FFFFFF&
		127	Height = 210
		128	Left = 2160
		129	TabIndex = 2
		130	Top = 3600
		131	Width = 1965
		132	End
		133	Begin VB.Label Label1
		134	AutoSize = -1 'True
		135	BackStyle = 0 'Transparent
		136	Caption = "Der weise Baum"
		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 = &H00FFFFFF&
		147	Height = 210
		148	Left = 3360
		149	TabIndex = 0
		150	Top = 1440
		151	Width = 1350
		152	End
		153	End
		154	Attribute VB_Name = "Sumpf"
		155	Attribute VB_GlobalNameSpace = False
		156	Attribute VB_Creatable = False
		157	Attribute VB_PredeclaredId = True
		158	Attribute VB_Exposed = False
		159
		160	Sub Angriff200()
		161	Randomize Timer
		162	evtangriff = Int(10 * Rnd)
		163	If evtangriff = 1 Or evtangriff = 2 Then WhichEnemy200
		164	End Sub
		165	Sub WhichEnemy200()
		166	Randomize Timer
		167	enemy = Int(13 * Rnd)
		168	If enemy <= 5 Then GoTo Riesenskorpion
		169	If enemy = 6 Then GoTo Nekromant
		170	If enemy = 7 Then GoTo Echsenkrieger
		171	If enemy = 9 Then GoTo Skelett
		172	If enemy = 11 Then GoTo Pestbringer
		173	If enemy = 13 Then GoTo Riesenskorpion
		174	If enemy = 16 Then GoTo Schlangenmensch
		175	GoTo Accel2
		176	Riesenskorpion:
		177	art = "kr": explus = 50: feind = "Riesenskorpion"
		178	gwaffe = "Stachel": gmat = "": ggrundwert = 3: gzusatzwert = 4: gabzug = 0: gkateg = "": grust = "": grs = 0: grsmat = "": gbe = 0
		179	woher = "Sumpf"
		180	ghp = 60: gmp = 0: gspeed = 54: gstrength = 35
		181	Sumpf.Hide: Kampf.Show
		182	GoTo Accel2
		183	Nekromant:
		184	art = "zau": explus = 35: feind = "Nekromant"
		185	gwaffe = "Stab": gmat = "Schwarz": ggrundwert = 1: gzusatzwert = 5: gabzug = 0: gkateg = "": grust = "Schwarze Kutte": grs = 0: grsmat = "Stoff": gbe = 0
		186	woher = "Sumpf"
		187	ghp = 30: gmp = 30: gspeed = 41: gstrength = 30
		188	Sumpf.Hide: Kampf.Show
		189	GoTo Accel2
		190	Echsenkrieger:
		191	art = "me": explus = 40: feind = "Echsenkrieger"
		192	gwaffe = "Ssajrek": gmat = "Schwarz": ggrundwert = 4: gzusatzwert = 2: gabzug = 3: gkateg = "Ax": grust = "": grs = 2: grsmat = "": gbe = 0
		193	woher = "Sumpf"
		194	ghp = 30: gmp = 15: gspeed = 55: gstrength = 45
		195	Sumpf.Hide: Kampf.Show
		196	GoTo Accel2
		197	Skelett:
		198	art = "un": explus = 25: feind = "Skelett"
		199	gwaffe = "Rostige Handaxt": gmat = "Eisen": ggrundwert = 3: gzusatzwert = 4: gabzug = 3: gkateg = "Ax": grust = "": grs = 0: grsmat = "": gbe = 0
		200	woher = "Sumpf"
		201	ghp = 20: gmp = 0: gspeed = 62: gstrength = 48
		202	Sumpf.Hide: Kampf.Show
		203	GoTo Accel2
		204	Pestbringer:
		205	art = "kr": explus = 15: feind = "Pestbringer"
		206	gwaffe = "Krallen": gmat = "": ggrundwert = 2: gzusatzwert = 2: gabzug = 0: gkateg = "": grust = "": grs = 0: grsmat = "": gbe = 0
		207	woher = "Sumpf"
		208	ghp = 15: gmp = 0: gspeed = 78: gstrength = 25
		209	Sumpf.Hide: Kampf.Show
		210	GoTo Accel2
		211	Schlangenmensch:
		212	art = "me": explus = 35: feind = "Schlangenmensch"
		213	gwaffe = "Schlangenschwert": gmat = "Stahl": ggrundwert = 4: gzusatzwert = 3: gabzug = 0: gkateg = "Sch": grust = "Lederharnisch": grs = 3: grsmat = "Leder": gbe = 3
		214	woher = "Sumpf"
		215	ghp = 30: gmp = 0: gspeed = 58: gstrength = 46
		216	Sumpf.Hide: Kampf.Show
		217	GoTo Accel2
		218	Accel2:
		219	End Sub
		220
		221	Sub Ort200()
		222	If held.Left = Shape2(2).Left And held.Top = Shape2(2).Top And baum <> 1 Then Sumpf.Hide: SuBaum.Show
		223	If held.Left = Shape2(1).Left And held.Top = Shape2(1).Top And gesicht <> 1 Then Sumpf.Hide: SuWolke.Show
		224	If held.Left = Shape2(0).Left And held.Top = Shape2(0).Top And skorp <> 1 Then Sumpf.Hide: SuFinal
		225	End Sub
		226
		227	Sub SuFinal()
		228	If skorp = 1 Then GoTo kiko
		229	art = "kr": explus = 120: feind = "Skorpionkönigin"
		230	gwaffe = "Giftschwanz": gmat = "": ggrundwert = 4: gzusatzwert = 8: gabzug = 0: gkateg = "": grust = "Panzer": grs = 3: grsmat = "": gbe = 0
		231	woher = "Nest"
		232	ghp = 95: gmp = 0: gspeed = 48: gstrength = 55
		233	Kampf.Show: Sumpf.Hide
		234	kiko:
		235	End Sub
		236
		237	Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
		238	Select Case KeyCode
		239	Case vbKeyDown: Untenlauf
		240	Case vbKeyUp: Obenlauf
		241	Case vbKeyRight: Rechtslauf
		242	Case vbKeyLeft: Linkslauf
		243	Case vbKeyA: Linkslauf
		244	Case vbKeyS: Untenlauf
		245	Case vbKeyD: Rechtslauf
		246	Case vbKeyW: Obenlauf
		247	End Select
		248	End Sub
		249	Sub Untenlauf()
		250	If held.Top + held.Height + 100 < Sumpf.Height Then
		251	held.Top = held.Top + 100
		252	Ort200
		253	Angriff200
		254	End If
		255	End Sub
		256	Sub Obenlauf()
		257	If held.Top - 100 >= 0 Then
		258	held.Top = held.Top - 100
		259	Ort200
		260	Angriff200
		261	End If
		262	End Sub
		263	Sub Rechtslauf()
		264	If held.Left + held.Width + 100 < Sumpf.Width Then
		265	held.Left = held.Left + 100
		266	Ort200
		267	Angriff200
		268	End If
		269	End Sub
		270	Sub Linkslauf()
		271	If held.Left - 100 >= 0 Then
		272	held.Left = held.Left - 100
		273	Ort200
		274	Angriff200
		275	End If
		276	End Sub
		277
		278	Private Sub Form_Load()
		279	Shape2(2).Visible = (baum <> 1)
		280	Shape2(1).Visible = (gesicht <> 1)
		281	Shape2(0).Visible = (skorp <> 1)
		282	End Sub
		283
		284	Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
		285	Label4.ForeColor = &HFFFFFF
		286	End Sub
		287
		288	Private Sub Label4_Click()
		289	Unload Sumpf
		290	Landkarte.Show
		291	End Sub
		292
		293	Private Sub Label4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
		294	Label4.ForeColor = &HFFFF&
		295	Dim lHandle As Long
		296	lHandle = LoadCursor(0, HandCursor)
		297	If (lHandle > 0) Then SetCursor lHandle
		298	End Sub

Subversion Repositories aysalia

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