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

Rev	Author	Line No.	Line
2	daniel-mar	1	VERSION 5.00
		2	Begin VB.Form HöTruhe
		3	BackColor = &H00404040&
		4	BorderStyle = 0 'None
		5	Caption = "HöTruhe"
		6	ClientHeight = 3420
		7	ClientLeft = 0
		8	ClientTop = 0
		9	ClientWidth = 4740
		10	LinkTopic = "HöTruhe"
		11	ScaleHeight = 3420
		12	ScaleWidth = 4740
		13	ShowInTaskbar = 0 'False
		14	StartUpPosition = 2 'CenterScreen
		15	Begin VB.CommandButton Command1
		16	BackColor = &H00E0E0E0&
		17	Cancel = -1 'True
		18	Caption = "Verlassen"
		19	Default = -1 'True
		20	BeginProperty Font
		21	Name = "MS Sans Serif"
		22	Size = 8.25
		23	Charset = 0
		24	Weight = 700
		25	Underline = 0 'False
		26	Italic = 0 'False
		27	Strikethrough = 0 'False
		28	EndProperty
		29	Height = 375
		30	Left = 3120
		31	Style = 1 'Graphical
		32	TabIndex = 5
		33	Top = 2520
		34	Width = 1215
		35	End
		36	Begin VB.Label Label61
		37	AutoSize = -1 'True
		38	BackStyle = 0 'Transparent
		39	Caption = "#Gegenstand"
		40	ForeColor = &H00FFFFFF&
		41	Height = 195
		42	Left = 720
		43	TabIndex = 6
		44	Top = 2160
		45	Width = 975
		46	End
		47	Begin VB.Label Label5
		48	AutoSize = -1 'True
		49	BackStyle = 0 'Transparent
		50	Caption = "Inventar öffnen"
		51	BeginProperty Font
		52	Name = "MS Sans Serif"
		53	Size = 8.25
		54	Charset = 0
		55	Weight = 700
		56	Underline = -1 'True
		57	Italic = 0 'False
		58	Strikethrough = 0 'False
		59	EndProperty
		60	ForeColor = &H00FFFFFF&
		61	Height = 195
		62	Left = 1680
		63	TabIndex = 4
		64	Top = 1800
		65	Width = 1320
		66	End
		67	Begin VB.Label Label4
		68	AutoSize = -1 'True
		69	BackStyle = 0 'Transparent
		70	Caption = "#Waffe"
		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 = 720
		83	TabIndex = 3
		84	Top = 1080
		85	Width = 735
		86	End
		87	Begin VB.Label Label3
		88	AutoSize = -1 'True
		89	BackStyle = 0 'Transparent
		90	Caption = "Gegenstand benutzen"
		91	BeginProperty Font
		92	Name = "MS Sans Serif"
		93	Size = 9.75
		94	Charset = 0
		95	Weight = 700
		96	Underline = -1 'True
		97	Italic = 0 'False
		98	Strikethrough = 0 'False
		99	EndProperty
		100	ForeColor = &H00FFC0C0&
		101	Height = 240
		102	Left = 720
		103	TabIndex = 2
		104	Top = 1560
		105	Width = 2265
		106	End
		107	Begin VB.Shape Shape1
		108	BorderColor = &H00E0E0E0&
		109	Height = 2655
		110	Left = 240
		111	Top = 360
		112	Width = 4215
		113	End
		114	Begin VB.Label Label2
		115	AutoSize = -1 'True
		116	BackColor = &H00404040&
		117	Caption = "Truhe öffnen"
		118	BeginProperty Font
		119	Name = "MS Sans Serif"
		120	Size = 9.75
		121	Charset = 0
		122	Weight = 700
		123	Underline = 0 'False
		124	Italic = 0 'False
		125	Strikethrough = 0 'False
		126	EndProperty
		127	ForeColor = &H0000FFFF&
		128	Height = 240
		129	Left = 360
		130	TabIndex = 1
		131	Top = 120
		132	Width = 1305
		133	End
		134	Begin VB.Label Label1
		135	BackStyle = 0 'Transparent
		136	Caption = "Die Truhe besteht aus Holz. Die Scharniere sind golden."
		137	BeginProperty Font
		138	Name = "MS Sans Serif"
		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 = 555
		148	Left = 360
		149	TabIndex = 0
		150	Top = 480
		151	Width = 3735
		152	End
		153	End
		154	Attribute VB_Name = "HöTruhe"
		155	Attribute VB_GlobalNameSpace = False
		156	Attribute VB_Creatable = False
		157	Attribute VB_PredeclaredId = True
		158	Attribute VB_Exposed = False
		159	Private Sub Command1_Click()
		160	Unload HöTruhe
		161	Höhlen.Show
		162	End Sub
		163
		164	Private Sub Form_Load()
		165	Label4.Caption = "Mit " + waffe + " einschlagen."
		166	Label61.Caption = frmInternal.List1.Text
		167	End Sub
		168
		169	Private Sub Label3_Click()
		170	If frmInternal.List1.Text = "Rubinschlüssel" Or frmInternal.List1.Text = "Schriftrolle 'Schlösser öffnen'" Or frmInternal.List1.Text = "Zauberschlüssel" Then DelItem: Label61.Caption = "": SchatzFree2 Else MsgBox "Das bewirkt nichts!", 64 + 0, "Ergebnis"
		171	End Sub
		172
		173	Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
		174	Dim lHandle As Long
		175	lHandle = LoadCursor(0, HandCursor)
		176	If (lHandle > 0) Then SetCursor lHandle
		177	End Sub
		178
		179	Private Sub Label4_Click()
		180	MsgBox "Du holst aus und schmetterst deine Waffe auf die Truhe. Die Waffe zerbricht."
		181	WaffeZerbirst
		182	End Sub
		183
		184	Private Sub Label4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
		185	Dim lHandle As Long
		186	lHandle = LoadCursor(0, HandCursor)
		187	If (lHandle > 0) Then SetCursor lHandle
		188	End Sub
		189
		190	Private Sub Label5_Click()
		191	ObjectSelect.Show (vbModal)
		192	Label61.Caption = frmInternal.List1.Text
		193	End Sub
		194
		195	Sub SchatzFree2()
		196	a = MsgBox("Du findest : Aroks Kampfrüstung (Stahl, RS6, BE4)" + Chr(13) + "Willst du diese Rüstung tragen?", 64 + 4, "Rüstung")
		197	b = Val(a)
		198	If tyous = "Paladin" Then GoTo ki
		199	If b = vbYes And magician = 1 Then MsgBox "Du darfst diese Rüstung nicht tragen!"
		200	ki:
		201	If b = vbYes Then rüstung = "Aroks Kampfrüstung": rsmat = "Stahl": rs = 6: be = 4
		202	MsgBox "Du erhältst : Blauer Kristallsplitter", 64 + 0, "Objekt"
		203	a = "Blauer Kristallsplitter"
		204	frmInternal.List1.AddItem a
		205	MsgBox "Du erhältst : Stärketrank"
		206	a = "Stärketrank"
		207	frmInternal.List1.AddItem a
		208	hotruhe = 1
		209	Höhlen.Shape1(3).Visible = False
		210	Unload HöTruhe
		211	Höhlen.Show
		212	End Sub
		213
		214	Private Sub Label5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
		215	Dim lHandle As Long
		216	lHandle = LoadCursor(0, HandCursor)
		217	If (lHandle > 0) Then SetCursor lHandle
		218	End Sub

Subversion Repositories aysalia

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