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

Rev	Author	Line No.	Line
2	daniel-mar	1	VERSION 5.00
		2	Begin VB.Form Bibliothek
		3	BackColor = &H00000000&
		4	BorderStyle = 0 'None
		5	Caption = "Bibliothek"
		6	ClientHeight = 4545
		7	ClientLeft = 0
		8	ClientTop = 0
		9	ClientWidth = 7035
		10	LinkTopic = "Bibliothek"
		11	ScaleHeight = 4545
		12	ScaleWidth = 7035
		13	ShowInTaskbar = 0 'False
		14	StartUpPosition = 2 'CenterScreen
		15	Begin VB.CommandButton Command7
		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 = 5520
		31	Style = 1 'Graphical
		32	TabIndex = 24
		33	Top = 3960
		34	Width = 1335
		35	End
		36	Begin VB.CommandButton Command6
		37	BackColor = &H00E0E0E0&
		38	Caption = "Bücherausweis kaufen"
		39	BeginProperty Font
		40	Name = "Arial"
		41	Size = 9.75
		42	Charset = 0
		43	Weight = 700
		44	Underline = 0 'False
		45	Italic = 0 'False
		46	Strikethrough = 0 'False
		47	EndProperty
		48	Height = 495
		49	Left = 240
		50	Style = 1 'Graphical
		51	TabIndex = 21
		52	Top = 3840
		53	Width = 2655
		54	End
		55	Begin VB.CommandButton Command5
		56	BackColor = &H00E0E0E0&
		57	Caption = "Reden"
		58	BeginProperty Font
		59	Name = "Arial"
		60	Size = 9.75
		61	Charset = 0
		62	Weight = 700
		63	Underline = 0 'False
		64	Italic = 0 'False
		65	Strikethrough = 0 'False
		66	EndProperty
		67	Height = 495
		68	Left = 240
		69	Style = 1 'Graphical
		70	TabIndex = 20
		71	Top = 3120
		72	Width = 2655
		73	End
		74	Begin VB.CommandButton Command4
		75	BackColor = &H00E0E0E0&
		76	Caption = "Studieren"
		77	Enabled = 0 'False
		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 = 255
		88	Left = 5520
		89	Style = 1 'Graphical
		90	TabIndex = 19
		91	Top = 2280
		92	Width = 1095
		93	End
		94	Begin VB.CommandButton Command3
		95	BackColor = &H00E0E0E0&
		96	Caption = "Studieren"
		97	Enabled = 0 'False
		98	BeginProperty Font
		99	Name = "Arial"
		100	Size = 8.25
		101	Charset = 0
		102	Weight = 700
		103	Underline = 0 'False
		104	Italic = 0 'False
		105	Strikethrough = 0 'False
		106	EndProperty
		107	Height = 255
		108	Left = 5520
		109	Style = 1 'Graphical
		110	TabIndex = 18
		111	Top = 1920
		112	Width = 1095
		113	End
		114	Begin VB.CommandButton Command2
		115	BackColor = &H00E0E0E0&
		116	Caption = "Studieren"
		117	Enabled = 0 'False
		118	BeginProperty Font
		119	Name = "Arial"
		120	Size = 8.25
		121	Charset = 0
		122	Weight = 700
		123	Underline = 0 'False
		124	Italic = 0 'False
		125	Strikethrough = 0 'False
		126	EndProperty
		127	Height = 255
		128	Left = 5520
		129	Style = 1 'Graphical
		130	TabIndex = 17
		131	Top = 1560
		132	Width = 1095
		133	End
		134	Begin VB.CommandButton Command1
		135	BackColor = &H00E0E0E0&
		136	Caption = "Studieren"
		137	Enabled = 0 'False
		138	BeginProperty Font
		139	Name = "Arial"
		140	Size = 8.25
		141	Charset = 0
		142	Weight = 700
		143	Underline = 0 'False
		144	Italic = 0 'False
		145	Strikethrough = 0 'False
		146	EndProperty
		147	Height = 255
		148	Left = 5520
		149	Style = 1 'Graphical
		150	TabIndex = 6
		151	Top = 1200
		152	Width = 1095
		153	End
		154	Begin VB.Label Label18
		155	AutoSize = -1 'True
		156	BackStyle = 0 'Transparent
		157	Caption = "80 Goldkronen"
		158	BeginProperty Font
		159	Name = "Arial"
		160	Size = 9
		161	Charset = 0
		162	Weight = 700
		163	Underline = 0 'False
		164	Italic = 0 'False
		165	Strikethrough = 0 'False
		166	EndProperty
		167	ForeColor = &H0000FFFF&
		168	Height = 225
		169	Left = 3000
		170	TabIndex = 23
		171	Top = 3960
		172	Width = 1230
		173	End
		174	Begin VB.Label Label17
		175	AutoSize = -1 'True
		176	BackStyle = 0 'Transparent
		177	Caption = "mit Yasrida"
		178	BeginProperty Font
		179	Name = "Arial"
		180	Size = 9
		181	Charset = 0
		182	Weight = 700
		183	Underline = 0 'False
		184	Italic = 0 'False
		185	Strikethrough = 0 'False
		186	EndProperty
		187	ForeColor = &H0000FFFF&
		188	Height = 225
		189	Left = 3000
		190	TabIndex = 22
		191	Top = 3240
		192	Width = 960
		193	End
		194	Begin VB.Label Label16
		195	Alignment = 2 'Center
		196	BackStyle = 0 'Transparent
		197	Caption = "0 Stunden"
		198	BeginProperty Font
		199	Name = "Arial"
		200	Size = 9
		201	Charset = 0
		202	Weight = 700
		203	Underline = 0 'False
		204	Italic = 0 'False
		205	Strikethrough = 0 'False
		206	EndProperty
		207	ForeColor = &H00FFFFFF&
		208	Height = 255
		209	Left = 4320
		210	TabIndex = 16
		211	Top = 2280
		212	Width = 1095
		213	End
		214	Begin VB.Label Label15
		215	Alignment = 2 'Center
		216	BackStyle = 0 'Transparent
		217	Caption = "0 Stunden"
		218	BeginProperty Font
		219	Name = "Arial"
		220	Size = 9
		221	Charset = 0
		222	Weight = 700
		223	Underline = 0 'False
		224	Italic = 0 'False
		225	Strikethrough = 0 'False
		226	EndProperty
		227	ForeColor = &H00FFFFFF&
		228	Height = 255
		229	Left = 4320
		230	TabIndex = 15
		231	Top = 1920
		232	Width = 1095
		233	End
		234	Begin VB.Label Label14
		235	Alignment = 2 'Center
		236	BackStyle = 0 'Transparent
		237	Caption = "20 Stunden"
		238	BeginProperty Font
		239	Name = "Arial"
		240	Size = 9
		241	Charset = 0
		242	Weight = 700
		243	Underline = 0 'False
		244	Italic = 0 'False
		245	Strikethrough = 0 'False
		246	EndProperty
		247	ForeColor = &H00FFFFFF&
		248	Height = 255
		249	Left = 2760
		250	TabIndex = 14
		251	Top = 2280
		252	Width = 1455
		253	End
		254	Begin VB.Label Label13
		255	Alignment = 2 'Center
		256	BackStyle = 0 'Transparent
		257	Caption = "14 Stunden"
		258	BeginProperty Font
		259	Name = "Arial"
		260	Size = 9
		261	Charset = 0
		262	Weight = 700
		263	Underline = 0 'False
		264	Italic = 0 'False
		265	Strikethrough = 0 'False
		266	EndProperty
		267	ForeColor = &H00FFFFFF&
		268	Height = 255
		269	Left = 2760
		270	TabIndex = 13
		271	Top = 1920
		272	Width = 1455
		273	End
		274	Begin VB.Label Label12
		275	Alignment = 2 'Center
		276	BackStyle = 0 'Transparent
		277	Caption = "0 Stunden"
		278	BeginProperty Font
		279	Name = "Arial"
		280	Size = 9
		281	Charset = 0
		282	Weight = 700
		283	Underline = 0 'False
		284	Italic = 0 'False
		285	Strikethrough = 0 'False
		286	EndProperty
		287	ForeColor = &H00FFFFFF&
		288	Height = 255
		289	Left = 4320
		290	TabIndex = 12
		291	Top = 1560
		292	Width = 1095
		293	End
		294	Begin VB.Label Label11
		295	Alignment = 2 'Center
		296	BackStyle = 0 'Transparent
		297	Caption = "16 Stunden"
		298	BeginProperty Font
		299	Name = "Arial"
		300	Size = 9
		301	Charset = 0
		302	Weight = 700
		303	Underline = 0 'False
		304	Italic = 0 'False
		305	Strikethrough = 0 'False
		306	EndProperty
		307	ForeColor = &H00FFFFFF&
		308	Height = 255
		309	Left = 2760
		310	TabIndex = 11
		311	Top = 1560
		312	Width = 1455
		313	End
		314	Begin VB.Label Label10
		315	BackStyle = 0 'Transparent
		316	Caption = """Zauberkraft des Chaos"""
		317	BeginProperty Font
		318	Name = "Arial"
		319	Size = 9
		320	Charset = 0
		321	Weight = 700
		322	Underline = 0 'False
		323	Italic = 0 'False
		324	Strikethrough = 0 'False
		325	EndProperty
		326	ForeColor = &H00FFFFFF&
		327	Height = 255
		328	Left = 240
		329	TabIndex = 10
		330	Top = 2280
		331	Width = 2415
		332	End
		333	Begin VB.Label Label9
		334	BackStyle = 0 'Transparent
		335	Caption = """Allerlei Diebeskunst"""
		336	BeginProperty Font
		337	Name = "Arial"
		338	Size = 9
		339	Charset = 0
		340	Weight = 700
		341	Underline = 0 'False
		342	Italic = 0 'False
		343	Strikethrough = 0 'False
		344	EndProperty
		345	ForeColor = &H00FFFFFF&
		346	Height = 255
		347	Left = 240
		348	TabIndex = 9
		349	Top = 1920
		350	Width = 2415
		351	End
		352	Begin VB.Label Label8
		353	Alignment = 2 'Center
		354	BackStyle = 0 'Transparent
		355	Caption = "0 Stunden"
		356	BeginProperty Font
		357	Name = "Arial"
		358	Size = 9
		359	Charset = 0
		360	Weight = 700
		361	Underline = 0 'False
		362	Italic = 0 'False
		363	Strikethrough = 0 'False
		364	EndProperty
		365	ForeColor = &H00FFFFFF&
		366	Height = 255
		367	Left = 4320
		368	TabIndex = 8
		369	Top = 1200
		370	Width = 1095
		371	End
		372	Begin VB.Label Label7
		373	Alignment = 2 'Center
		374	BackStyle = 0 'Transparent
		375	Caption = "12 Stunden"
		376	BeginProperty Font
		377	Name = "Arial"
		378	Size = 9
		379	Charset = 0
		380	Weight = 700
		381	Underline = 0 'False
		382	Italic = 0 'False
		383	Strikethrough = 0 'False
		384	EndProperty
		385	ForeColor = &H00FFFFFF&
		386	Height = 255
		387	Left = 2760
		388	TabIndex = 7
		389	Top = 1200
		390	Width = 1455
		391	End
		392	Begin VB.Label Label6
		393	Alignment = 2 'Center
		394	BackStyle = 0 'Transparent
		395	Caption = "Studiert"
		396	BeginProperty Font
		397	Name = "Arial"
		398	Size = 8.25
		399	Charset = 0
		400	Weight = 700
		401	Underline = -1 'True
		402	Italic = 0 'False
		403	Strikethrough = 0 'False
		404	EndProperty
		405	ForeColor = &H00FFC0C0&
		406	Height = 255
		407	Left = 4320
		408	TabIndex = 5
		409	Top = 840
		410	Width = 1095
		411	End
		412	Begin VB.Label Label5
		413	Alignment = 2 'Center
		414	BackStyle = 0 'Transparent
		415	Caption = "Studienzeit"
		416	BeginProperty Font
		417	Name = "Arial"
		418	Size = 8.25
		419	Charset = 0
		420	Weight = 700
		421	Underline = -1 'True
		422	Italic = 0 'False
		423	Strikethrough = 0 'False
		424	EndProperty
		425	ForeColor = &H00FFC0C0&
		426	Height = 255
		427	Left = 2760
		428	TabIndex = 4
		429	Top = 840
		430	Width = 1455
		431	End
		432	Begin VB.Label Label4
		433	Alignment = 2 'Center
		434	BackStyle = 0 'Transparent
		435	Caption = "Buch"
		436	BeginProperty Font
		437	Name = "Arial"
		438	Size = 8.25
		439	Charset = 0
		440	Weight = 700
		441	Underline = -1 'True
		442	Italic = 0 'False
		443	Strikethrough = 0 'False
		444	EndProperty
		445	ForeColor = &H00FFC0C0&
		446	Height = 255
		447	Left = 240
		448	TabIndex = 3
		449	Top = 840
		450	Width = 2415
		451	End
		452	Begin VB.Label Label3
		453	BackStyle = 0 'Transparent
		454	Caption = """Das höhere Denken"""
		455	BeginProperty Font
		456	Name = "Arial"
		457	Size = 9
		458	Charset = 0
		459	Weight = 700
		460	Underline = 0 'False
		461	Italic = 0 'False
		462	Strikethrough = 0 'False
		463	EndProperty
		464	ForeColor = &H00FFFFFF&
		465	Height = 255
		466	Left = 240
		467	TabIndex = 2
		468	Top = 1560
		469	Width = 2415
		470	End
		471	Begin VB.Label Label2
		472	AutoSize = -1 'True
		473	BackStyle = 0 'Transparent
		474	Caption = """Grundwissen der Alchemie"""
		475	BeginProperty Font
		476	Name = "Arial"
		477	Size = 9
		478	Charset = 0
		479	Weight = 700
		480	Underline = 0 'False
		481	Italic = 0 'False
		482	Strikethrough = 0 'False
		483	EndProperty
		484	ForeColor = &H00FFFFFF&
		485	Height = 225
		486	Left = 240
		487	TabIndex = 1
		488	Top = 1200
		489	Width = 2475
		490	End
		491	Begin VB.Label Label1
		492	Alignment = 2 'Center
		493	BackStyle = 0 'Transparent
		494	Caption = "Bibliothek von Phargas"
		495	BeginProperty Font
		496	Name = "Arial"
		497	Size = 14.25
		498	Charset = 0
		499	Weight = 700
		500	Underline = 0 'False
		501	Italic = 0 'False
		502	Strikethrough = 0 'False
		503	EndProperty
		504	ForeColor = &H0000FFFF&
		505	Height = 375
		506	Left = 240
		507	TabIndex = 0
		508	Top = 120
		509	Width = 6495
		510	End
		511	Begin VB.Line Line1
		512	BorderColor = &H00FFFFFF&
		513	X1 = 240
		514	X2 = 6600
		515	Y1 = 480
		516	Y2 = 480
		517	End
		518	End
		519	Attribute VB_Name = "Bibliothek"
		520	Attribute VB_GlobalNameSpace = False
		521	Attribute VB_Creatable = False
		522	Attribute VB_PredeclaredId = True
		523	Attribute VB_Exposed = False
		524	Private Sub Command1_Click()
		525	BuchGelesen
		526	If ALCHEMIE >= 30 Then BookLow: GoTo nix1
		527	GdAst = GdAst + 1
		528	If GdAst = 12 Then Titel = "Grundwissen der Alchemie": Text = "Du beendest das Buch und erhältst " + Str(30 - ALCHEMIE) + "% zu Alchemie.": onlyOK: Konversation.Show (vbModal): ALCHEMIE = 30
		529	Label8.Caption = Str(GdAst) + " Stunden"
		530	initial
		531	nix1:
		532	End Sub
		533
		534	Private Sub Command2_Click()
		535	BuchGelesen
		536	If Iq < 60 Then BookHigh: GoTo nix2
		537	DhDst = DhDst + 1
		538	If DhDst = 16 Then Iq = Iq + 10: Titel = "Das höhere Denken": Text = "Du beendest das Buch und erhältst 10 Punkte zu Intelligenz .": onlyOK: Konversation.Show (vbModal)
		539	Label12.Caption = Str(DhDst) + " Stunden"
		540	initial
		541	nix2:
		542	End Sub
		543
		544	Private Sub Command3_Click()
		545	BuchGelesen
		546	If STEHLEN + FEILSCHEN >= 100 Then BookLow: GoTo nix3
		547	ADst = ADst + 1
		548	If ADst = 14 Then Titel = "Allerlei Diebeskunst": Text = "Du beendest das Buch und erhältst " + Str(30 - STEHLEN) + "% zu Stehlen und " + Str(30 - FEILSCHEN) + "% zu Feilschen.": onlyOK: Konversation.Show (vbModal): STEHLEN = 30: FEILSCHEN = 30:
		549	Label15.Caption = Str(ADst) + " Stunden"
		550	initial
		551	nix3:
		552	End Sub
		553
		554	Private Sub Command4_Click()
		555	BuchGelesen
		556	If CHAOS >= 6 Then BookLow: GoTo nixda4
		557	If Magician = 0 Then BookHigh: GoTo nixda4
		558	ZdCst = ZdCst + 1
		559	If ZdCst = 20 Then CHAOS = CHAOS + 2: Titel = "Zauberkraft des Chaos": Text = "Du beendest das Buch und erhältst 2 Punkte zu Chaos .": onlyOK: Konversation.Show (vbModal)
		560	Label16.Caption = Str(ZdCst) + " Stunden"
		561	initial
		562	nixda4:
		563	End Sub
		564	Sub BookLow()
		565	Titel = "Nichts neues"
		566	Text = "Nachdem du einige Seiten des Buches gelesen hast, merkst du, dass du nichts neues aus dem Buch lernst."
		567	onlyOK
		568	Konversation.Show (vbModal)
		569	End Sub
		570	Sub BookHigh()
		571	Titel = "Grundwissen fehlt"
		572	Text = "Du liest den Anfang des Buches, merkst jedoch, dass du das Grundwissen dafür nicht besitz."
		573	onlyOK
		574	Konversation.Show (vbModal)
		575	End Sub
		576
		577	Private Sub Command5_Click()
		578	Titel = "Yasrida"
		579	Text = "Wenn du die Dienste der Bibliothek von Phargas in Anspruch nehmen willst, musst du einen Bücherausweis kaufen. Dann kannst du die Bücher hier studieren."
		580	onlyOK
		581	Konversation.Show (vbModal)
		582	End Sub
		583
		584	Private Sub Command6_Click()
		585	If Gold < 80 Then Inhaber = "Yasrida": NoGold: GoTo nono
		586	Gold = Gold - 80
		587	A = "Bücherausweis"
		588	Bücherausweis = 1
		589	Manager.Inventar.AddItem A
		590	ManagRighter
		591	initial
		592	nono:
		593	End Sub
		594
		595	Sub initial()
		596	If Bücherausweis = 1 Then
		597	Command1.Enabled = True
		598	Command2.Enabled = True
		599	Command3.Enabled = True
		600	Command4.Enabled = True
		601	Command6.Enabled = False
		602	End If
		603	If GdAst = 12 Then Command1.Enabled = False
		604	If DhDst = 16 Then Command2.Enabled = False
		605	If ADst = 14 Then Command3.Enabled = False
		606	If ZdCst = 20 Then Command4.Enabled = False
		607
		608
		609	End Sub
		610
		611	Private Sub Command7_Click()
		612	Unload Bibliothek
		613	Phargas.Show
		614	End Sub
		615
		616	Sub BuchGelesen()
		617	Stunden = Stunden + 1
		618	Dayli
		619	If Stunden >= 22 Then Phargas.Show: Unload Bibliothek
		620	End Sub
		621
		622	Private Sub Form_Activate()
		623	If Stunden >= 22 Then
		624	Phargas.Show
		625	Titel = "Yasrida"
		626	Text = "Tut mir leid, die Bibliothek ist nicht mehr zugänglich."
		627	onlyOK
		628	Konversation.Show (vbModal)
		629	Unload Bibliothek
		630	End If
		631	End Sub
		632
		633	Private Sub Form_Load()
		634	initial
		635	End Sub
		636

Subversion Repositories aysalia

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