WebSVN – aysalia – Blame – /trunk/Zeitalter der Dämonen/dqHERBERGE.frm

Rev	Author	Line No.	Line
2	daniel-mar	1	VERSION 5.00
		2	Begin VB.Form dqHERBERGE
		3	BackColor = &H00400000&
		4	BorderStyle = 0 'None
		5	Caption = "dqHERBERGE"
		6	ClientHeight = 3915
		7	ClientLeft = 0
		8	ClientTop = 0
		9	ClientWidth = 6675
		10	LinkTopic = "dqHERBERGE"
		11	ScaleHeight = 3915
		12	ScaleWidth = 6675
		13	ShowInTaskbar = 0 'False
		14	StartUpPosition = 2 'CenterScreen
		15	Begin VB.CommandButton Command8
		16	BackColor = &H00FF8080&
		17	Cancel = -1 'True
		18	Caption = "Verlassen"
		19	Default = -1 'True
		20	BeginProperty Font
		21	Name = "Arial"
		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 = 255
		30	Left = 5520
		31	Style = 1 'Graphical
		32	TabIndex = 13
		33	Top = 3600
		34	Width = 1095
		35	End
		36	Begin VB.CommandButton Command7
		37	BackColor = &H00FF8080&
		38	Caption = "Reden"
		39	BeginProperty Font
		40	Name = "Arial"
		41	Size = 8.25
		42	Charset = 0
		43	Weight = 700
		44	Underline = 0 'False
		45	Italic = 0 'False
		46	Strikethrough = 0 'False
		47	EndProperty
		48	Height = 375
		49	Left = 240
		50	Style = 1 'Graphical
		51	TabIndex = 11
		52	Top = 3120
		53	Width = 2775
		54	End
		55	Begin VB.Frame Zimmer
		56	BackColor = &H00400000&
		57	Caption = "Zimmer"
		58	Enabled = 0 'False
		59	BeginProperty Font
		60	Name = "Arial"
		61	Size = 8.25
		62	Charset = 0
		63	Weight = 700
		64	Underline = 0 'False
		65	Italic = 0 'False
		66	Strikethrough = 0 'False
		67	EndProperty
		68	ForeColor = &H00FFC0C0&
		69	Height = 2535
		70	Left = 3600
		71	TabIndex = 7
		72	Top = 840
		73	Visible = 0 'False
		74	Width = 2655
		75	Begin VB.CommandButton Command6
		76	BackColor = &H00C0C000&
		77	Caption = "Schlafen"
		78	BeginProperty Font
		79	Name = "Arial"
		80	Size = 8.25
		81	Charset = 0
		82	Weight = 700
		83	Underline = 0 'False
		84	Italic = 0 'False
		85	Strikethrough = 0 'False
		86	EndProperty
		87	Height = 375
		88	Left = 240
		89	Style = 1 'Graphical
		90	TabIndex = 10
		91	Top = 1920
		92	Width = 2295
		93	End
		94	Begin VB.CommandButton Command5
		95	BackColor = &H00C0C000&
		96	Caption = "Stehlen"
		97	BeginProperty Font
		98	Name = "Arial"
		99	Size = 8.25
		100	Charset = 0
		101	Weight = 700
		102	Underline = 0 'False
		103	Italic = 0 'False
		104	Strikethrough = 0 'False
		105	EndProperty
		106	Height = 375
		107	Left = 240
		108	Style = 1 'Graphical
		109	TabIndex = 9
		110	Top = 960
		111	Width = 2295
		112	End
		113	Begin VB.CommandButton Command4
		114	BackColor = &H00C0C000&
		115	Caption = "Wunden heilen"
		116	BeginProperty Font
		117	Name = "Arial"
		118	Size = 8.25
		119	Charset = 0
		120	Weight = 700
		121	Underline = 0 'False
		122	Italic = 0 'False
		123	Strikethrough = 0 'False
		124	EndProperty
		125	Height = 375
		126	Left = 240
		127	Style = 1 'Graphical
		128	TabIndex = 8
		129	Top = 480
		130	Width = 2295
		131	End
		132	End
		133	Begin VB.CommandButton Command3
		134	BackColor = &H00FF8080&
		135	Caption = "'Gegenstand' kaufen"
		136	BeginProperty Font
		137	Name = "Arial"
		138	Size = 8.25
		139	Charset = 0
		140	Weight = 700
		141	Underline = 0 'False
		142	Italic = 0 'False
		143	Strikethrough = 0 'False
		144	EndProperty
		145	Height = 375
		146	Left = 240
		147	Style = 1 'Graphical
		148	TabIndex = 5
		149	Top = 2400
		150	Width = 2775
		151	End
		152	Begin VB.CommandButton Command2
		153	BackColor = &H00FF8080&
		154	Caption = "Zimmer mieten"
		155	BeginProperty Font
		156	Name = "Arial"
		157	Size = 8.25
		158	Charset = 0
		159	Weight = 700
		160	Underline = 0 'False
		161	Italic = 0 'False
		162	Strikethrough = 0 'False
		163	EndProperty
		164	Height = 375
		165	Left = 240
		166	Style = 1 'Graphical
		167	TabIndex = 3
		168	Top = 1680
		169	Width = 2775
		170	End
		171	Begin VB.CommandButton Command1
		172	BackColor = &H00FF8080&
		173	Caption = "'Getränk' bestellen"
		174	BeginProperty Font
		175	Name = "Arial"
		176	Size = 8.25
		177	Charset = 0
		178	Weight = 700
		179	Underline = 0 'False
		180	Italic = 0 'False
		181	Strikethrough = 0 'False
		182	EndProperty
		183	Height = 375
		184	Left = 240
		185	Style = 1 'Graphical
		186	TabIndex = 1
		187	Top = 960
		188	Width = 2775
		189	End
		190	Begin VB.Label Label5
		191	AutoSize = -1 'True
		192	BackStyle = 0 'Transparent
		193	Caption = "mit ?"
		194	BeginProperty Font
		195	Name = "Arial"
		196	Size = 8.25
		197	Charset = 0
		198	Weight = 700
		199	Underline = 0 'False
		200	Italic = 0 'False
		201	Strikethrough = 0 'False
		202	EndProperty
		203	ForeColor = &H0000FFFF&
		204	Height = 210
		205	Left = 1200
		206	TabIndex = 12
		207	Top = 3480
		208	Width = 420
		209	End
		210	Begin VB.Label Label4
		211	AutoSize = -1 'True
		212	BackStyle = 0 'Transparent
		213	Caption = "? Goldkronen"
		214	BeginProperty Font
		215	Name = "Arial"
		216	Size = 8.25
		217	Charset = 0
		218	Weight = 700
		219	Underline = 0 'False
		220	Italic = 0 'False
		221	Strikethrough = 0 'False
		222	EndProperty
		223	ForeColor = &H0000FFFF&
		224	Height = 210
		225	Left = 1200
		226	TabIndex = 6
		227	Top = 2760
		228	Width = 1125
		229	End
		230	Begin VB.Label Label3
		231	AutoSize = -1 'True
		232	BackStyle = 0 'Transparent
		233	Caption = "? Goldkronen"
		234	BeginProperty Font
		235	Name = "Arial"
		236	Size = 8.25
		237	Charset = 0
		238	Weight = 700
		239	Underline = 0 'False
		240	Italic = 0 'False
		241	Strikethrough = 0 'False
		242	EndProperty
		243	ForeColor = &H0000FFFF&
		244	Height = 210
		245	Left = 1200
		246	TabIndex = 4
		247	Top = 2040
		248	Width = 1125
		249	End
		250	Begin VB.Label Label2
		251	AutoSize = -1 'True
		252	BackStyle = 0 'Transparent
		253	Caption = "? Goldkronen"
		254	BeginProperty Font
		255	Name = "Arial"
		256	Size = 8.25
		257	Charset = 0
		258	Weight = 700
		259	Underline = 0 'False
		260	Italic = 0 'False
		261	Strikethrough = 0 'False
		262	EndProperty
		263	ForeColor = &H0000FFFF&
		264	Height = 210
		265	Left = 1200
		266	TabIndex = 2
		267	Top = 1320
		268	Width = 1125
		269	End
		270	Begin VB.Label Label1
		271	Alignment = 2 'Center
		272	BackStyle = 0 'Transparent
		273	Caption = "Label1"
		274	BeginProperty Font
		275	Name = "Times New Roman"
		276	Size = 14.25
		277	Charset = 0
		278	Weight = 700
		279	Underline = 0 'False
		280	Italic = 0 'False
		281	Strikethrough = 0 'False
		282	EndProperty
		283	ForeColor = &H0000FFFF&
		284	Height = 375
		285	Left = 240
		286	TabIndex = 0
		287	Top = 120
		288	Width = 6015
		289	End
		290	Begin VB.Line Line1
		291	BorderColor = &H00FFFFFF&
		292	X1 = 240
		293	X2 = 6240
		294	Y1 = 480
		295	Y2 = 480
		296	End
		297	End
		298	Attribute VB_Name = "dqHERBERGE"
		299	Attribute VB_GlobalNameSpace = False
		300	Attribute VB_Creatable = False
		301	Attribute VB_PredeclaredId = True
		302	Attribute VB_Exposed = False
		303	Private Sub Command1_Click()
		304	If Gold < SaufPreis Then NoGold: GoTo nochnicht
		305	Gold = Gold - SaufPreis: ManagRighter
		306	Bier = Bier + 1
		307	If Bier < SaufSchluss Then GoTo nochnicht
		308	If Inhaber = "Koyara" Then Titel = Inhaber: Text = "Ey, kauf doch 'n paar Dietriche!": onlyOK: Konversation.Show (vbModal)
		309	nochnicht:
		310	End Sub
		311
		312	Private Sub Command2_Click()
		313	If Gold < ZimmerPreis Then NoGold: GoTo nixda2
		314	Gold = Gold - ZimmerPreis: ManagRighter
		315	Zimmer.Enabled = True: Zimmer.Visible = True
		316	Command2.Enabled = False
		317	nixda2:
		318	End Sub
		319
		320	Private Sub Command3_Click()
		321	If Gold < ObjPreis Then NoGold: GoTo nixda3
		322	Gold = Gold - ObjPreis: ManagRighter
		323	Manager.Inventar.AddItem ObjHerberge
		324	nixda3:
		325	End Sub
		326
		327	Private Sub Command4_Click()
		328	Command4.Enabled = False
		329	Rast.HeilRast
		330	End Sub
		331
		332	Private Sub Command5_Click()
		333	Randomize Timer
		334	Zahl = Int(100 * Rnd)
		335	If Zahl > STEHLEN Then StFail: GoTo yo2
		336	Randomize Timer
		337	Zahl = Int(20 * Rnd) + 1
		338	Gold = Gold + Zahl
		339	ManagRighter
		340	Titel = "Stehlen gelungen"
		341	Text = "Du stiehlst " + Str(Zahl) + " Goldkronen"
		342	onlyOK
		343	Konversation.Show (vbModal)
		344	yo2:
		345	End Sub
		346
		347	Private Sub Command6_Click()
		348	Command2.Enabled = True
		349	Zimmer.Enabled = False
		350	Zimmer.Visible = False
		351	Command4.Enabled = True: Command5.Enabled = True: Command6.Enabled = True
		352	SchlafenGehen
		353	Dayli
		354	ManagRighter
		355	Landkarte.Rasten.Enabled = False
		356	End Sub
		357
		358	Private Sub Command7_Click()
		359	Titel = Inhaber
		360	If Inhaber = "Koyara" Then Text = "Hey kleiner, wie wärs mit 'm Schluck Bier? Hasse schon von dem Elfenwald gehört? Da sin' Dämonen 'drin. Ziemlich gefährlich."
		361	If Inhaber = "Laubagram" Then Text = "Hoho Abenteurer! Setz dich doch ein bisschen und ruh' dich aus. Ähm, wie wärs mit etwas zu trinken?"
		362	If Inhaber = "Thodur" Then Text = "Wilkommen in meinem bescheidenen Reich! Trink was ... bitte."
		363	onlyOK
		364	Konversation.Show (vbModal)
		365	End Sub
		366
		367	Private Sub Command8_Click()
		368	Unload dqHERBERGE
		369	CheckOrt
		370	End Sub
		371

Subversion Repositories aysalia

aysalia/trunk/Zeitalter der Dämonen/dqHERBERGE.frm @ 34 – Rev 2