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

Rev	Author	Line No.	Line
2	daniel-mar	1	VERSION 5.00
		2	Begin VB.Form Kristallsee
		3	BackColor = &H00808000&
		4	BorderStyle = 0 'None
		5	Caption = "Kristallsee"
		6	ClientHeight = 5355
		7	ClientLeft = 0
		8	ClientTop = 0
		9	ClientWidth = 6900
		10	LinkTopic = "Kristallsee"
		11	ScaleHeight = 5355
		12	ScaleWidth = 6900
		13	ShowInTaskbar = 0 'False
		14	StartUpPosition = 2 'CenterScreen
		15	Begin VB.CommandButton Command1
		16	BackColor = &H00FFFF80&
		17	Caption = "Verlassen"
		18	BeginProperty Font
		19	Name = "MS Sans Serif"
		20	Size = 8.25
		21	Charset = 0
		22	Weight = 700
		23	Underline = 0 'False
		24	Italic = 0 'False
		25	Strikethrough = 0 'False
		26	EndProperty
		27	Height = 375
		28	Left = 4560
		29	Style = 1 'Graphical
		30	TabIndex = 6
		31	Top = 4440
		32	Width = 1815
		33	End
		34	Begin VB.PictureBox Picture1
		35	BackColor = &H00808000&
		36	BorderStyle = 0 'None
		37	Height = 2175
		38	Left = 240
		39	Picture = "Kristallsee.frx":0000
		40	ScaleHeight = 2175
		41	ScaleMode = 0 'User
		42	ScaleWidth = 2295
		43	TabIndex = 2
		44	Top = 720
		45	Width = 2295
		46	End
		47	Begin VB.Label Label5
		48	AutoSize = -1 'True
		49	BackStyle = 0 'Transparent
		50	Caption = "Abwarten"
		51	BeginProperty Font
		52	Name = "MS Sans Serif"
		53	Size = 9.75
		54	Charset = 0
		55	Weight = 700
		56	Underline = -1 'True
		57	Italic = 0 'False
		58	Strikethrough = 0 'False
		59	EndProperty
		60	ForeColor = &H00FFC0C0&
		61	Height = 240
		62	Left = 600
		63	TabIndex = 5
		64	Top = 4320
		65	Width = 975
		66	End
		67	Begin VB.Label Label4
		68	AutoSize = -1 'True
		69	BackStyle = 0 'Transparent
		70	Caption = "Tauchen"
		71	BeginProperty Font
		72	Name = "MS Sans Serif"
		73	Size = 9.75
		74	Charset = 0
		75	Weight = 700
		76	Underline = -1 'True
		77	Italic = 0 'False
		78	Strikethrough = 0 'False
		79	EndProperty
		80	ForeColor = &H00FFC0C0&
		81	Height = 240
		82	Left = 600
		83	TabIndex = 4
		84	Top = 3720
		85	Width = 915
		86	End
		87	Begin VB.Label Label3
		88	AutoSize = -1 'True
		89	BackStyle = 0 'Transparent
		90	Caption = "Was willst du machen?"
		91	BeginProperty Font
		92	Name = "MS Sans Serif"
		93	Size = 9.75
		94	Charset = 0
		95	Weight = 700
		96	Underline = 0 'False
		97	Italic = 0 'False
		98	Strikethrough = 0 'False
		99	EndProperty
		100	ForeColor = &H0000FFFF&
		101	Height = 240
		102	Left = 240
		103	TabIndex = 3
		104	Top = 3240
		105	Width = 2355
		106	End
		107	Begin VB.Label Label2
		108	BackStyle = 0 'Transparent
		109	Caption = $"Kristallsee.frx":0903
		110	BeginProperty Font
		111	Name = "MS Sans Serif"
		112	Size = 9.75
		113	Charset = 0
		114	Weight = 700
		115	Underline = 0 'False
		116	Italic = 0 'False
		117	Strikethrough = 0 'False
		118	EndProperty
		119	ForeColor = &H00FFFFFF&
		120	Height = 2175
		121	Left = 2640
		122	TabIndex = 1
		123	Top = 720
		124	Width = 4095
		125	End
		126	Begin VB.Label Label1
		127	AutoSize = -1 'True
		128	BackStyle = 0 'Transparent
		129	Caption = "Der Kristallsee"
		130	BeginProperty Font
		131	Name = "MS Sans Serif"
		132	Size = 12
		133	Charset = 0
		134	Weight = 700
		135	Underline = 0 'False
		136	Italic = 0 'False
		137	Strikethrough = 0 'False
		138	EndProperty
		139	ForeColor = &H00FFFF00&
		140	Height = 300
		141	Left = 240
		142	TabIndex = 0
		143	Top = 240
		144	Width = 1770
		145	End
		146	End
		147	Attribute VB_Name = "Kristallsee"
		148	Attribute VB_GlobalNameSpace = False
		149	Attribute VB_Creatable = False
		150	Attribute VB_PredeclaredId = True
		151	Attribute VB_Exposed = False
		152	Private Sub Command1_Click()
		153	Unload Kristallsee
		154	Landkarte.Show
		155	End Sub
		156
		157	Private Sub Form_Load()
		158	If KristallseeFertig = 1 Then Label4.Enabled = False
		159	End Sub
		160
		161	Private Sub Label4_Click()
		162	KrTauchen.Show
		163	Unload Kristallsee
		164	End Sub
		165
		166	Private Sub Label4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
		167	Dim lHandle As Long
		168	lHandle = LoadCursor(0, HandCursor)
		169	If (lHandle > 0) Then SetCursor lHandle
		170	End Sub
		171
		172	Private Sub Label5_Click()
		173	Randomize Timer
		174	zufall = Int(6 * Rnd)
		175	If zufall = 0 Then GoTo druide
		176	If zufall = 1 Then GoTo kristallwesen
		177	If zufall = 2 Then GoTo seeschlange
		178	If zufall > 2 Then MsgBox "Nichts geschieht.", 64 + 9, "Ereignis": GoTo klar
		179	druide:
		180	If KristallseeFertig = 1 Then GoTo kristallwesen
		181	MsgBox "Eine grün gekleidete Gestalt kommt auf dich zu. Als sie näher kommt erkennst du, dass es ein Druide ist.", 64 + 0, "Ereignis"
		182	MsgBox "Sei gegrüßt. Ich bin Aranon, ich lebe hier am Kristallsee. Aber - was machst du hier? DU solltest dich nicht so lange hier aufhalten, Kristallwesen aus dem See könnten dich als Feind ansehen. Aber du musst es ja wissen. Ich muss dann weiter.", 64 + 0, "Ein Druide"
		183	GoTo klar
		184	kristallwesen:
		185	MsgBox "Die Wasseroberfläche kräuselt sich, und es bildet sich eine Menschenähnliche Gestalt, die transparent wirkt.", 64 + 0, "Ereignis"
		186	art = "da": explus = 60: feind = "Kristallwesen"
		187	gwaffe = "Kristall": gmat = "": ggrundwert = 5: gzusatzwert = 10: gabzug = 0: gkateg = "": grust = "": grs = 0: grsmat = "": gbe = 0
		188	woher = "Kristallsee"
		189	ghp = 65: gmp = 15: gspeed = 62: gstrength = 0
		190	Kristallsee.Hide: Kampf.Show
		191	GoTo klar
		192	seeschlange:
		193	MsgBox "Unerwartet und ganz plötzlich schießt ein gewaltiger Kopf aus dem Wasser, an ihm schlängelt sich ein langer Hals, der bis durch den Boden auf dem Grund führt.", 64 + 0, "Ereignis"
		194	art = "cre": explus = 120: feind = "Seeschlange"
		195	gwaffe = "Kiefer": gmat = "": ggrundwert = 8: gzusatzwert = 12: gabzug = 0: gkateg = "": grust = "Schuppen": grs = 3: grsmat = "": gbe = 0
		196	woher = "Kristallsee"
		197	ghp = 100: gmp = 0: gspeed = 42: gstrength = 73
		198	Kristallsee.Hide: Kampf.Show
		199	GoTo klar
		200	klar:
		201	End Sub
		202
		203	Private Sub Label5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
		204	Dim lHandle As Long
		205	lHandle = LoadCursor(0, HandCursor)
		206	If (lHandle > 0) Then SetCursor lHandle
		207	End Sub

Subversion Repositories aysalia

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