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

Rev	Author	Line No.	Line
2	daniel-mar	1	VERSION 5.00
		2	Begin VB.Form Lindgar
		3	BackColor = &H00004000&
		4	BorderStyle = 0 'None
		5	Caption = "Lindgar"
		6	ClientHeight = 6570
		7	ClientLeft = 0
		8	ClientTop = 0
		9	ClientWidth = 9570
		10	LinkTopic = "Lindgar"
		11	ScaleHeight = 6570
		12	ScaleWidth = 9570
		13	ShowInTaskbar = 0 'False
		14	StartUpPosition = 2 'CenterScreen
		15	Begin VB.CommandButton Command2
		16	BackColor = &H0080FF80&
		17	Cancel = -1 'True
		18	Caption = "Lindgar 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 = 6960
		31	Style = 1 'Graphical
		32	TabIndex = 7
		33	Top = 5760
		34	Width = 1815
		35	End
		36	Begin VB.Label Label18
		37	AutoSize = -1 'True
		38	BackStyle = 0 'Transparent
		39	Caption = "Label18"
		40	BeginProperty Font
		41	Name = "Arial"
		42	Size = 8.25
		43	Charset = 0
		44	Weight = 400
		45	Underline = 0 'False
		46	Italic = 0 'False
		47	Strikethrough = 0 'False
		48	EndProperty
		49	ForeColor = &H0000FFFF&
		50	Height = 210
		51	Left = 8160
		52	TabIndex = 16
		53	Top = 4800
		54	Width = 570
		55	End
		56	Begin VB.Label Label17
		57	AutoSize = -1 'True
		58	BackStyle = 0 'Transparent
		59	Caption = "Goldkronen"
		60	BeginProperty Font
		61	Name = "Arial"
		62	Size = 8.25
		63	Charset = 0
		64	Weight = 400
		65	Underline = 0 'False
		66	Italic = 0 'False
		67	Strikethrough = 0 'False
		68	EndProperty
		69	ForeColor = &H0000FFFF&
		70	Height = 210
		71	Left = 6960
		72	TabIndex = 15
		73	Top = 4800
		74	Width = 825
		75	End
		76	Begin VB.Label Label15
		77	AutoSize = -1 'True
		78	BackStyle = 0 'Transparent
		79	Caption = "Verkaufen"
		80	Enabled = 0 'False
		81	BeginProperty Font
		82	Name = "Arial"
		83	Size = 9.75
		84	Charset = 0
		85	Weight = 700
		86	Underline = -1 'True
		87	Italic = -1 'True
		88	Strikethrough = 0 'False
		89	EndProperty
		90	ForeColor = &H00FF8080&
		91	Height = 240
		92	Left = 6960
		93	TabIndex = 14
		94	Top = 3360
		95	Width = 945
		96	End
		97	Begin VB.Label Label14
		98	BackStyle = 0 'Transparent
		99	BorderStyle = 1 'Fixed Single
		100	BeginProperty Font
		101	Name = "Arial"
		102	Size = 8.25
		103	Charset = 0
		104	Weight = 400
		105	Underline = 0 'False
		106	Italic = 0 'False
		107	Strikethrough = 0 'False
		108	EndProperty
		109	ForeColor = &H0000FFFF&
		110	Height = 735
		111	Left = 4920
		112	TabIndex = 13
		113	Top = 3960
		114	Width = 3855
		115	End
		116	Begin VB.Label Label13
		117	AutoSize = -1 'True
		118	BackStyle = 0 'Transparent
		119	Caption = "Objekt anbieten"
		120	BeginProperty Font
		121	Name = "Arial"
		122	Size = 9.75
		123	Charset = 0
		124	Weight = 700
		125	Underline = -1 'True
		126	Italic = -1 'True
		127	Strikethrough = 0 'False
		128	EndProperty
		129	ForeColor = &H00FF8080&
		130	Height = 240
		131	Left = 4920
		132	TabIndex = 12
		133	Top = 3360
		134	Width = 1470
		135	End
		136	Begin VB.Label Label12
		137	BackStyle = 0 'Transparent
		138	Caption = "Hier kannst du versuchen, Objekte zu verkaufen."
		139	BeginProperty Font
		140	Name = "Arial"
		141	Size = 9.75
		142	Charset = 0
		143	Weight = 400
		144	Underline = 0 'False
		145	Italic = 0 'False
		146	Strikethrough = 0 'False
		147	EndProperty
		148	ForeColor = &H0000FF00&
		149	Height = 480
		150	Left = 4920
		151	TabIndex = 11
		152	Top = 2640
		153	Width = 3900
		154	End
		155	Begin VB.Label Label6
		156	AutoSize = -1 'True
		157	BackStyle = 0 'Transparent
		158	Caption = "Marktplatz"
		159	BeginProperty Font
		160	Name = "Arial"
		161	Size = 12
		162	Charset = 0
		163	Weight = 700
		164	Underline = 0 'False
		165	Italic = 0 'False
		166	Strikethrough = 0 'False
		167	EndProperty
		168	ForeColor = &H00FFFFC0&
		169	Height = 285
		170	Left = 4920
		171	TabIndex = 10
		172	Top = 2280
		173	Width = 1185
		174	End
		175	Begin VB.Label Label11
		176	AutoSize = -1 'True
		177	BackStyle = 0 'Transparent
		178	Caption = "Gelm verkauft in seiner Schmiede Metallrüstungen."
		179	BeginProperty Font
		180	Name = "Arial"
		181	Size = 8.25
		182	Charset = 0
		183	Weight = 400
		184	Underline = 0 'False
		185	Italic = 0 'False
		186	Strikethrough = 0 'False
		187	EndProperty
		188	ForeColor = &H00FFFFFF&
		189	Height = 210
		190	Left = 360
		191	TabIndex = 9
		192	Top = 5880
		193	Width = 3645
		194	End
		195	Begin VB.Label Label10
		196	AutoSize = -1 'True
		197	BackStyle = 0 'Transparent
		198	Caption = "Gelm's Rüstschmiede"
		199	BeginProperty Font
		200	Name = "Arial"
		201	Size = 12
		202	Charset = 0
		203	Weight = 700
		204	Underline = -1 'True
		205	Italic = 0 'False
		206	Strikethrough = 0 'False
		207	EndProperty
		208	ForeColor = &H0080FF80&
		209	Height = 285
		210	Left = 360
		211	TabIndex = 8
		212	Top = 5400
		213	Width = 2490
		214	End
		215	Begin VB.Label Label9
		216	BackStyle = 0 'Transparent
		217	Caption = "In der Taverne ""Zum Pfeifenden Henker"" findet man allerlei Typen. Söldner, Streuner und sogar Zwerge findet man hier."
		218	BeginProperty Font
		219	Name = "Arial"
		220	Size = 8.25
		221	Charset = 0
		222	Weight = 400
		223	Underline = 0 'False
		224	Italic = 0 'False
		225	Strikethrough = 0 'False
		226	EndProperty
		227	ForeColor = &H00FFFFFF&
		228	Height = 675
		229	Left = 360
		230	TabIndex = 6
		231	Top = 4320
		232	Width = 4080
		233	End
		234	Begin VB.Label Label8
		235	AutoSize = -1 'True
		236	BackStyle = 0 'Transparent
		237	Caption = "Taverne ""Zum Pfeifenden Henker"""
		238	BeginProperty Font
		239	Name = "Arial"
		240	Size = 12
		241	Charset = 0
		242	Weight = 700
		243	Underline = -1 'True
		244	Italic = 0 'False
		245	Strikethrough = 0 'False
		246	EndProperty
		247	ForeColor = &H0080FF80&
		248	Height = 285
		249	Left = 360
		250	TabIndex = 5
		251	Top = 3840
		252	Width = 3900
		253	End
		254	Begin VB.Label Label7
		255	AutoSize = -1 'True
		256	BackColor = &H00004000&
		257	Caption = "Larena verkauft in ihrem Laden magische Artefakte."
		258	BeginProperty Font
		259	Name = "Arial"
		260	Size = 8.25
		261	Charset = 0
		262	Weight = 400
		263	Underline = 0 'False
		264	Italic = 0 'False
		265	Strikethrough = 0 'False
		266	EndProperty
		267	ForeColor = &H00FFFFFF&
		268	Height = 210
		269	Left = 360
		270	TabIndex = 4
		271	Top = 2760
		272	Width = 3750
		273	End
		274	Begin VB.Label Labek6
		275	AutoSize = -1 'True
		276	BackStyle = 0 'Transparent
		277	Caption = "Zauberin Larena"
		278	BeginProperty Font
		279	Name = "Arial"
		280	Size = 12
		281	Charset = 0
		282	Weight = 700
		283	Underline = -1 'True
		284	Italic = 0 'False
		285	Strikethrough = 0 'False
		286	EndProperty
		287	ForeColor = &H0080FF80&
		288	Height = 285
		289	Left = 360
		290	TabIndex = 3
		291	Top = 2280
		292	Width = 1860
		293	End
		294	Begin VB.Label Label3
		295	BackStyle = 0 'Transparent
		296	Caption = "Hier bekommt man die bevorzugten Waffen der Lindgarschen Armee. Diese sind hauptsächlich Äxte und Schwerter."
		297	BeginProperty Font
		298	Name = "Arial"
		299	Size = 8.25
		300	Charset = 0
		301	Weight = 400
		302	Underline = 0 'False
		303	Italic = 0 'False
		304	Strikethrough = 0 'False
		305	EndProperty
		306	ForeColor = &H00FFFFFF&
		307	Height = 615
		308	Left = 360
		309	TabIndex = 2
		310	Top = 1200
		311	Width = 3255
		312	End
		313	Begin VB.Label Label2
		314	AutoSize = -1 'True
		315	BackStyle = 0 'Transparent
		316	Caption = "Karton's Waffenschmiede"
		317	BeginProperty Font
		318	Name = "Arial"
		319	Size = 12
		320	Charset = 0
		321	Weight = 700
		322	Underline = -1 'True
		323	Italic = 0 'False
		324	Strikethrough = 0 'False
		325	EndProperty
		326	ForeColor = &H0080FF80&
		327	Height = 285
		328	Left = 360
		329	TabIndex = 1
		330	Top = 720
		331	Width = 2940
		332	End
		333	Begin VB.Label Label1
		334	AutoSize = -1 'True
		335	BackStyle = 0 'Transparent
		336	Caption = "Lindgar"
		337	BeginProperty Font
		338	Name = "Times New Roman"
		339	Size = 48
		340	Charset = 0
		341	Weight = 700
		342	Underline = 0 'False
		343	Italic = 0 'False
		344	Strikethrough = 0 'False
		345	EndProperty
		346	ForeColor = &H0000FF00&
		347	Height = 1095
		348	Left = 5760
		349	TabIndex = 0
		350	Top = 120
		351	Width = 3375
		352	End
		353	Begin VB.Label Label4
		354	AutoSize = -1 'True
		355	BackStyle = 0 'Transparent
		356	Caption = "L"
		357	BeginProperty Font
		358	Name = "Times New Roman"
		359	Size = 72
		360	Charset = 0
		361	Weight = 700
		362	Underline = 0 'False
		363	Italic = 0 'False
		364	Strikethrough = 0 'False
		365	EndProperty
		366	ForeColor = &H0080FF80&
		367	Height = 1635
		368	Left = 5400
		369	TabIndex = 17
		370	Top = 0
		371	Width = 960
		372	End
		373	End
		374	Attribute VB_Name = "Lindgar"
		375	Attribute VB_GlobalNameSpace = False
		376	Attribute VB_Creatable = False
		377	Attribute VB_PredeclaredId = True
		378	Attribute VB_Exposed = False
		379	Private Sub Command2_Click()
		380	Unload Lindgar
		381	Landkarte.Show
		382	End Sub
		383
		384	Private Sub Form_Load()
		385	Label18.Caption = gold
		386	End Sub
		387
		388	Private Sub Kräuter_Click()
		389
		390	End Sub
		391
		392	Private Sub Labek6_Click()
		393	LgShop1.Show
		394	Unload Lindgar
		395	End Sub
		396
		397	Private Sub Labek6_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
		398	Dim lHandle As Long
		399	lHandle = LoadCursor(0, HandCursor)
		400	If (lHandle > 0) Then SetCursor lHandle
		401	End Sub
		402
		403	Private Sub Label10_Click()
		404	LgRust1.Show
		405	Unload Lindgar
		406	End Sub
		407
		408	Private Sub Label10_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
		409	Dim lHandle As Long
		410	lHandle = LoadCursor(0, HandCursor)
		411	If (lHandle > 0) Then SetCursor lHandle
		412	End Sub
		413
		414	Private Sub Label13_Click()
		415	ObjectSelect.Show (vbModal)
		416	If frmInternal.List1.Text = "" Then GoTo puk
		417	a = frmInternal.List1.Text
		418	If a = "kleiner Heiltrank" Then altpreis = 40: GoTo chd
		419	If a = "großer Heiltrank" Then altpreis = 80: GoTo chd
		420	If a = "kleiner Zaubertrank" Then altpreis = 60: GoTo chd
		421	If a = "großer Zaubertrank" Then altpreis = 120: GoTo chd
		422	If a = "Elixier" Then altpreis = 200: GoTo chd
		423	If a = "Wurfmesser" Or a = "Wurfstern" Then altpreis = 20: GoTo chd
		424	If a = "Gegengift" Then altpreis = 55: GoTo chd
		425	If a = "Krankheitselixier" Then altpreis = 80: GoTo chd
		426	If a = "Feenstaub" Then altpreis = 250: GoTo chd
		427	If a = "Trank der Unsichtbarkeit" Then altpreis = 70: GoTo chd
		428	If a = "Axt der Dunkelheit" Then altpreis = 675: GoTo chd
		429	If a = "Feenstab" Then altpreis = 280: GoTo chd
		430	If a = "Schriftrolle 'Hölleninferno'" Then altpreis = 200: GoTo chd
		431	If a = "Schriftrolle 'Göttliche Heilung'" Then altpreis = 150: GoTo chd
		432	If a = "Schriftrolle 'Untote bannen'" Then altpreis = 150: GoTo chd
		433	If a = "Schriftrolle 'Schlösser öffnen'" Then altpreis = 150: GoTo chd
		434	If a = "Stärketrank" Then altpreis = 70: GoTo chd
		435	If a = "Zauberschlüssel" Then altpreis = 60: GoTo chd
		436	If a = "Weihwasser" Then altpreis = 75: GoTo chd
		437	altpreis = 10
		438	chd:
		439	Label15.Enabled = True
		440	Randomize Timer
		441	zahl = Int(3 * Rnd)
		442	If zahl = 0 Then Label14.Caption = frmInternal.List1.Text + vbNewLine + vbNewLine + "Mmmh, ich gebe dir dafür " + Str(altpreis) + " Goldkronen, okay?"
		443	If zahl = 1 Then Label14.Caption = frmInternal.List1.Text + vbNewLine + vbNewLine + "Für " + Str(altpreis) + " Goldkronen würd' ich es dir abnehmen."
		444	If zahl = 2 Then Label14.Caption = frmInternal.List1.Text + vbNewLine + vbNewLine + "Ich glaube " + Str(altpreis) + " Goldkronen wäre ein fairer Preis, oder?"
		445	puk:
		446	End Sub
		447
		448	Private Sub Label13_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
		449	Dim lHandle As Long
		450	lHandle = LoadCursor(0, HandCursor)
		451	If (lHandle > 0) Then SetCursor lHandle
		452	End Sub
		453
		454	Private Sub Label15_Click()
		455	If altpreis = 0 Then GoTo nix
		456	Label15.Enabled = False
		457	Label14.Caption = "Alles klar!"
		458	gold = gold + altpreis
		459	altpreis = 0
		460	Label18.Caption = gold
		461	DelItem
		462	nix:
		463	End Sub
		464
		465	Private Sub Label15_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
		466	Dim lHandle As Long
		467	lHandle = LoadCursor(0, HandCursor)
		468	If (lHandle > 0) Then SetCursor lHandle
		469	End Sub
		470
		471	Private Sub Label2_Click()
		472	LgSmith1.Show
		473	Unload Lindgar
		474	End Sub
		475
		476	Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
		477	Dim lHandle As Long
		478	lHandle = LoadCursor(0, HandCursor)
		479	If (lHandle > 0) Then SetCursor lHandle
		480	End Sub
		481
		482	Private Sub Label4_Click()
		483	LgGuild1.Show
		484	Unload Lindgar
		485	End Sub
		486
		487	Private Sub Label5_Click()
		488
		489	End Sub
		490
		491	Private Sub Label6_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
		492	Dim lHandle As Long
		493	lHandle = LoadCursor(0, HandCursor)
		494	If (lHandle > 0) Then SetCursor lHandle
		495	End Sub
		496
		497	Private Sub Label8_Click()
		498	LgTaverne1.Show
		499	Unload Lindgar
		500	End Sub
		501
		502	Private Sub Label8_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
		503	Dim lHandle As Long
		504	lHandle = LoadCursor(0, HandCursor)
		505	If (lHandle > 0) Then SetCursor lHandle
		506	End Sub

Subversion Repositories aysalia

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