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

Rev	Author	Line No.	Line
2	daniel-mar	1	VERSION 5.00
		2	Begin VB.Form HöTruhe3
		3	BackColor = &H00404040&
		4	BorderStyle = 0 'None
		5	Caption = "HöTruhe3"
		6	ClientHeight = 3195
		7	ClientLeft = 0
		8	ClientTop = 0
		9	ClientWidth = 4680
		10	LinkTopic = "HöTruhe3"
		11	ScaleHeight = 3195
		12	ScaleWidth = 4680
		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 = 3000
		31	Style = 1 'Graphical
		32	TabIndex = 0
		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 = 600
		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 = 1560
		63	TabIndex = 5
		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 = 600
		83	TabIndex = 4
		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 = 600
		103	TabIndex = 3
		104	Top = 1560
		105	Width = 2265
		106	End
		107	Begin VB.Shape Shape1
		108	BorderColor = &H00E0E0E0&
		109	Height = 2655
		110	Left = 120
		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 = 240
		130	TabIndex = 2
		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 = 240
		149	TabIndex = 1
		150	Top = 480
		151	Width = 3735
		152	End
		153	End
		154	Attribute VB_Name = "HöTruhe3"
		155	Attribute VB_GlobalNameSpace = False
		156	Attribute VB_Creatable = False
		157	Attribute VB_PredeclaredId = True
		158	Attribute VB_Exposed = False
		159
		160	Private Sub Command1_Click()
		161	Unload HöTruhe3
		162	HöhlenE2.Show
		163	End Sub
		164
		165	Private Sub Form_Load()
		166	Label4.Caption = "Mit " + waffe + " einschlagen."
		167	Label61.Caption = frmInternal.List1.Text
		168	End Sub
		169
		170	Private Sub Label3_Click()
		171	If frmInternal.List1.Text = "Zauberschlüssel" Or frmInternal.List1.Text = "Schriftrolle 'Schlösser öffnen'" Then DelItem: Label61.Caption = "": SchatzFree5 Else MsgBox "Das bewirkt nichts!", 64 + 0, "Ergebnis"
		172	End Sub
		173
		174	Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
		175	Dim lHandle As Long
		176	lHandle = LoadCursor(0, HandCursor)
		177	If (lHandle > 0) Then SetCursor lHandle
		178	End Sub
		179
		180	Private Sub Label4_Click()
		181	MsgBox "Du holst aus und schmetterst deine Waffe auf die Truhe. Die Waffe zerbricht."
		182	WaffeZerbirst
		183	End Sub
		184
		185	Private Sub Label4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
		186	Dim lHandle As Long
		187	lHandle = LoadCursor(0, HandCursor)
		188	If (lHandle > 0) Then SetCursor lHandle
		189	End Sub
		190
		191	Private Sub Label5_Click()
		192	ObjectSelect.Show (vbModal)
		193	Label61.Caption = frmInternal.List1.Text
		194	End Sub
		195
		196	Sub SchatzFree5()
		197	a = MsgBox("Du findest : Elistans Magische Robe (Stoff, RS4, BE2)", 64 + 4, "Rüstung")
		198	b = Val(a)
		199	If b = vbYes Then rüstung = "Elistans Magische Robe": rs = 4: be = 2: rsmat = Stoff
		200	MsgBox "Du erhältst : Schriftrolle 'Untote Bannen'", 64 + 0, "Objekt"
		201	a = "Schriftrolle 'Untote Bannen'"
		202	frmInternal.List1.AddItem a
		203	a = MsgBox("Du findest : Silberbogen (6-18)", 64 + 4, "Bogen")
		204	b = Val(a)
		205	If b = vbYes And typus = "Paladin" Then MsgBox "Als Paladin kannst du keinen Bogen tragen!": GoTo muki
		206	If b = vbYes Then bogen = "Silberbogen": fgrundwert = 6: fzusatzwert = 12
		207	muki:
		208	truhe3 = 1
		209	HöhlenE2.Shape1(0).Visible = False
		210	Unload HöTruhe3
		211	HöhlenE2.Show
		212
		213	End Sub
		214
		215	Private Sub Label5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
		216	Dim lHandle As Long
		217	lHandle = LoadCursor(0, HandCursor)
		218	If (lHandle > 0) Then SetCursor lHandle
		219	End Sub

Subversion Repositories aysalia

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