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

Rev	Author	Line No.	Line
2	daniel-mar	1	VERSION 5.00
		2	Begin VB.Form KrTauchen
		3	BackColor = &H00800000&
		4	BorderStyle = 0 'None
		5	Caption = "KrTauchen"
		6	ClientHeight = 4095
		7	ClientLeft = 0
		8	ClientTop = 0
		9	ClientWidth = 7245
		10	LinkTopic = "KrTauchen"
		11	ScaleHeight = 4095
		12	ScaleWidth = 7245
		13	ShowInTaskbar = 0 'False
		14	StartUpPosition = 2 'CenterScreen
		15	Begin VB.CommandButton Command1
		16	BackColor = &H00FF8080&
		17	Cancel = -1 'True
		18	Caption = "Okay"
		19	Default = -1 'True
		20	Height = 255
		21	Left = 5400
		22	Style = 1 'Graphical
		23	TabIndex = 11
		24	Top = 3480
		25	Width = 975
		26	End
		27	Begin VB.Frame Frame3
		28	BackColor = &H00800000&
		29	Caption = "3. Abzweigung"
		30	BeginProperty Font
		31	Name = "MS Sans Serif"
		32	Size = 9.75
		33	Charset = 0
		34	Weight = 700
		35	Underline = 0 'False
		36	Italic = 0 'False
		37	Strikethrough = 0 'False
		38	EndProperty
		39	ForeColor = &H00FFFFFF&
		40	Height = 1815
		41	Left = 4440
		42	TabIndex = 3
		43	Top = 1560
		44	Width = 1935
		45	Begin VB.OptionButton Option6
		46	BackColor = &H00800000&
		47	Caption = "Rechts"
		48	BeginProperty Font
		49	Name = "MS Sans Serif"
		50	Size = 8.25
		51	Charset = 0
		52	Weight = 700
		53	Underline = 0 'False
		54	Italic = 0 'False
		55	Strikethrough = 0 'False
		56	EndProperty
		57	ForeColor = &H00FFFFFF&
		58	Height = 255
		59	Left = 360
		60	TabIndex = 10
		61	Top = 1080
		62	Width = 975
		63	End
		64	Begin VB.OptionButton Option5
		65	BackColor = &H00800000&
		66	Caption = "Links"
		67	BeginProperty Font
		68	Name = "MS Sans Serif"
		69	Size = 8.25
		70	Charset = 0
		71	Weight = 700
		72	Underline = 0 'False
		73	Italic = 0 'False
		74	Strikethrough = 0 'False
		75	EndProperty
		76	ForeColor = &H00FFFFFF&
		77	Height = 255
		78	Left = 360
		79	TabIndex = 9
		80	Top = 600
		81	Width = 855
		82	End
		83	End
		84	Begin VB.Frame Frame2
		85	BackColor = &H00800000&
		86	Caption = "2. Abzweigung"
		87	BeginProperty Font
		88	Name = "MS Sans Serif"
		89	Size = 9.75
		90	Charset = 0
		91	Weight = 700
		92	Underline = 0 'False
		93	Italic = 0 'False
		94	Strikethrough = 0 'False
		95	EndProperty
		96	ForeColor = &H00FFFFFF&
		97	Height = 1815
		98	Left = 2280
		99	TabIndex = 2
		100	Top = 1560
		101	Width = 1935
		102	Begin VB.OptionButton Option4
		103	BackColor = &H00800000&
		104	Caption = "Rechts"
		105	BeginProperty Font
		106	Name = "MS Sans Serif"
		107	Size = 8.25
		108	Charset = 0
		109	Weight = 700
		110	Underline = 0 'False
		111	Italic = 0 'False
		112	Strikethrough = 0 'False
		113	EndProperty
		114	ForeColor = &H00FFFFFF&
		115	Height = 255
		116	Left = 360
		117	TabIndex = 8
		118	Top = 1080
		119	Width = 975
		120	End
		121	Begin VB.OptionButton Option3
		122	BackColor = &H00800000&
		123	Caption = "Links"
		124	BeginProperty Font
		125	Name = "MS Sans Serif"
		126	Size = 8.25
		127	Charset = 0
		128	Weight = 700
		129	Underline = 0 'False
		130	Italic = 0 'False
		131	Strikethrough = 0 'False
		132	EndProperty
		133	ForeColor = &H00FFFFFF&
		134	Height = 255
		135	Left = 360
		136	TabIndex = 7
		137	Top = 600
		138	Width = 855
		139	End
		140	End
		141	Begin VB.Frame Frame1
		142	BackColor = &H00800000&
		143	Caption = "1. Abzweigung"
		144	BeginProperty Font
		145	Name = "MS Sans Serif"
		146	Size = 9.75
		147	Charset = 0
		148	Weight = 700
		149	Underline = 0 'False
		150	Italic = 0 'False
		151	Strikethrough = 0 'False
		152	EndProperty
		153	ForeColor = &H00FFFFFF&
		154	Height = 1815
		155	Left = 240
		156	TabIndex = 1
		157	Top = 1560
		158	Width = 1815
		159	Begin VB.OptionButton Option2
		160	BackColor = &H00800000&
		161	Caption = "Rechts"
		162	BeginProperty Font
		163	Name = "MS Sans Serif"
		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 = &H00FFFFFF&
		172	Height = 255
		173	Left = 240
		174	TabIndex = 6
		175	Top = 1080
		176	Width = 1095
		177	End
		178	Begin VB.OptionButton Option1
		179	BackColor = &H00800000&
		180	Caption = "Links"
		181	BeginProperty Font
		182	Name = "MS Sans Serif"
		183	Size = 8.25
		184	Charset = 0
		185	Weight = 700
		186	Underline = 0 'False
		187	Italic = 0 'False
		188	Strikethrough = 0 'False
		189	EndProperty
		190	ForeColor = &H00FFFFFF&
		191	Height = 255
		192	Left = 240
		193	TabIndex = 5
		194	Top = 600
		195	Width = 855
		196	End
		197	End
		198	Begin VB.Label Label2
		199	AutoSize = -1 'True
		200	BackStyle = 0 'Transparent
		201	Caption = "Entscheide dich, wie du an den 3 Abzweigungen weiterschwimmen willst."
		202	BeginProperty Font
		203	Name = "MS Sans Serif"
		204	Size = 8.25
		205	Charset = 0
		206	Weight = 700
		207	Underline = 0 'False
		208	Italic = 0 'False
		209	Strikethrough = 0 'False
		210	EndProperty
		211	ForeColor = &H0000FFFF&
		212	Height = 195
		213	Left = 240
		214	TabIndex = 4
		215	Top = 1200
		216	Width = 6225
		217	End
		218	Begin VB.Label Label1
		219	BackStyle = 0 'Transparent
		220	Caption = "Sauber gleitest du durch die Oberfläche und schwimmst durch eine Höhle, die sich am Grund des Sees befindet."
		221	BeginProperty Font
		222	Name = "MS Sans Serif"
		223	Size = 12
		224	Charset = 0
		225	Weight = 700
		226	Underline = 0 'False
		227	Italic = 0 'False
		228	Strikethrough = 0 'False
		229	EndProperty
		230	ForeColor = &H0000FFFF&
		231	Height = 855
		232	Left = 240
		233	TabIndex = 0
		234	Top = 360
		235	Width = 6735
		236	End
		237	End
		238	Attribute VB_Name = "KrTauchen"
		239	Attribute VB_GlobalNameSpace = False
		240	Attribute VB_Creatable = False
		241	Attribute VB_PredeclaredId = True
		242	Attribute VB_Exposed = False
		243	Private Sub Command1_Click()
		244	If zweig1 + zweig2 + zweig3 = 9 Then KrSchatz.Show: Unload KrTauchen Else GoTo toti
		245	GoTo nix
		246	toti:
		247	MsgBox "Du kommst schließlich in einen Raum, doch er ist leer. Du versuchst zurückzuschwimmen, doch deine Luft reicht nicht mehr aus, und du erstickst.", 64 + 0, "Du bist tot"
		248	Unload KrTauchen
		249	Tot.Show
		250	nix:
		251	End Sub
		252
		253	Private Sub Option1_Click()
		254	zweig1 = 3
		255	End Sub
		256
		257	Private Sub Option2_Click()
		258	zweig1 = 6
		259	End Sub
		260
		261	Private Sub Option3_Click()
		262	zweig2 = 6
		263	End Sub
		264
		265	Private Sub Option4_Click()
		266	zweig2 = 3
		267	End Sub
		268
		269	Private Sub Option5_Click()
		270	zweig3 = 3
		271	End Sub
		272
		273	Private Sub Option6_Click()
		274	zweig3 = 6
		275	End Sub

Subversion Repositories aysalia

aysalia/trunk/Schatten über Aysalia/KrTauchen.frm @ 34 – Rev 2