WebSVN – aysalia – Blame – /trunk/Schatten über Aysalia/Nicht verwendet/LgGuild1.frm

Rev	Author	Line No.	Line
2	daniel-mar	1	VERSION 5.00
		2	Begin VB.Form LgGuild1
		3	BackColor = &H00000040&
		4	BorderStyle = 0 'Kein
		5	Caption = "LgGuild1"
		6	ClientHeight = 5805
		7	ClientLeft = 0
		8	ClientTop = 0
		9	ClientWidth = 7290
		10	LinkTopic = "LgGuild1"
		11	MaxButton = 0 'False
		12	MinButton = 0 'False
		13	ScaleHeight = 5805
		14	ScaleWidth = 7290
		15	ShowInTaskbar = 0 'False
		16	StartUpPosition = 2 'Bildschirmmitte
		17	Begin VB.CommandButton Command2
		18	Caption = "Verlassen"
		19	BeginProperty Font
		20	Name = "MS Sans Serif"
		21	Size = 8.25
		22	Charset = 0
		23	Weight = 700
		24	Underline = 0 'False
		25	Italic = 0 'False
		26	Strikethrough = 0 'False
		27	EndProperty
		28	Height = 375
		29	Left = 4920
		30	TabIndex = 13
		31	Top = 3840
		32	Width = 1335
		33	End
		34	Begin VB.ListBox List1
		35	BackColor = &H00000000&
		36	BeginProperty Font
		37	Name = "MS Sans Serif"
		38	Size = 9.75
		39	Charset = 0
		40	Weight = 700
		41	Underline = 0 'False
		42	Italic = 0 'False
		43	Strikethrough = 0 'False
		44	EndProperty
		45	ForeColor = &H00FFFFFF&
		46	Height = 2220
		47	ItemData = "LgGuild1.frx":0000
		48	Left = 600
		49	List = "LgGuild1.frx":0013
		50	TabIndex = 1
		51	Top = 960
		52	Width = 2055
		53	End
		54	Begin VB.Label Label15
		55	AutoSize = -1 'True
		56	BackStyle = 0 'Transparent
		57	Caption = "Auftrag"
		58	BeginProperty Font
		59	Name = "MS Sans Serif"
		60	Size = 9.75
		61	Charset = 0
		62	Weight = 700
		63	Underline = -1 'True
		64	Italic = 0 'False
		65	Strikethrough = 0 'False
		66	EndProperty
		67	ForeColor = &H00FF8080&
		68	Height = 240
		69	Left = 4920
		70	TabIndex = 17
		71	Top = 4320
		72	Width = 750
		73	End
		74	Begin VB.Label Label14
		75	AutoSize = -1 'True
		76	BackStyle = 0 'Transparent
		77	Caption = "100 Goldkronen"
		78	ForeColor = &H008080FF&
		79	Height = 195
		80	Left = 600
		81	TabIndex = 16
		82	Top = 3480
		83	Width = 1140
		84	End
		85	Begin VB.Label Label13
		86	AutoSize = -1 'True
		87	BackStyle = 0 'Transparent
		88	Caption = "Gilde des Chaos beitreten"
		89	BeginProperty Font
		90	Name = "MS Sans Serif"
		91	Size = 8.25
		92	Charset = 0
		93	Weight = 700
		94	Underline = -1 'True
		95	Italic = 0 'False
		96	Strikethrough = 0 'False
		97	EndProperty
		98	ForeColor = &H008080FF&
		99	Height = 195
		100	Left = 600
		101	TabIndex = 15
		102	Top = 3240
		103	Width = 2205
		104	End
		105	Begin VB.Label Label17
		106	BackStyle = 0 'Transparent
		107	Caption = "Xandus, Gildenmeister des Chaos"
		108	BeginProperty Font
		109	Name = "MS Sans Serif"
		110	Size = 8.25
		111	Charset = 0
		112	Weight = 700
		113	Underline = 0 'False
		114	Italic = 0 'False
		115	Strikethrough = 0 'False
		116	EndProperty
		117	ForeColor = &H00E0E0E0&
		118	Height = 1095
		119	Left = 600
		120	TabIndex = 14
		121	Top = 3840
		122	Width = 4215
		123	End
		124	Begin VB.Label Label12
		125	AutoSize = -1 'True
		126	BackStyle = 0 'Transparent
		127	Caption = "Label12"
		128	ForeColor = &H0000FFFF&
		129	Height = 195
		130	Left = 4200
		131	TabIndex = 12
		132	Top = 3240
		133	Width = 570
		134	End
		135	Begin VB.Label Label11
		136	AutoSize = -1 'True
		137	BackStyle = 0 'Transparent
		138	Caption = "Goldkronen"
		139	ForeColor = &H0000FFFF&
		140	Height = 195
		141	Left = 3000
		142	TabIndex = 11
		143	Top = 3240
		144	Width = 825
		145	End
		146	Begin VB.Label Label10
		147	AutoSize = -1 'True
		148	BackStyle = 0 'Transparent
		149	Caption = "l0"
		150	BeginProperty Font
		151	Name = "MS Sans Serif"
		152	Size = 8.25
		153	Charset = 0
		154	Weight = 700
		155	Underline = 0 'False
		156	Italic = 0 'False
		157	Strikethrough = 0 'False
		158	EndProperty
		159	ForeColor = &H00FFFFFF&
		160	Height = 195
		161	Left = 4920
		162	TabIndex = 10
		163	Top = 1560
		164	Width = 165
		165	End
		166	Begin VB.Label Label9
		167	AutoSize = -1 'True
		168	BackStyle = 0 'Transparent
		169	Caption = "-"
		170	BeginProperty Font
		171	Name = "MS Sans Serif"
		172	Size = 8.25
		173	Charset = 0
		174	Weight = 700
		175	Underline = 0 'False
		176	Italic = 0 'False
		177	Strikethrough = 0 'False
		178	EndProperty
		179	ForeColor = &H00FFFFFF&
		180	Height = 195
		181	Left = 4800
		182	TabIndex = 9
		183	Top = 1560
		184	Width = 75
		185	End
		186	Begin VB.Label Label8
		187	AutoSize = -1 'True
		188	BackStyle = 0 'Transparent
		189	Caption = "l8"
		190	BeginProperty Font
		191	Name = "MS Sans Serif"
		192	Size = 8.25
		193	Charset = 0
		194	Weight = 700
		195	Underline = 0 'False
		196	Italic = 0 'False
		197	Strikethrough = 0 'False
		198	EndProperty
		199	ForeColor = &H0000FFFF&
		200	Height = 195
		201	Left = 4440
		202	TabIndex = 8
		203	Top = 2640
		204	Width = 165
		205	End
		206	Begin VB.Label Label7
		207	AutoSize = -1 'True
		208	BackStyle = 0 'Transparent
		209	Caption = "l7"
		210	BeginProperty Font
		211	Name = "MS Sans Serif"
		212	Size = 8.25
		213	Charset = 0
		214	Weight = 700
		215	Underline = 0 'False
		216	Italic = 0 'False
		217	Strikethrough = 0 'False
		218	EndProperty
		219	ForeColor = &H00FFFFFF&
		220	Height = 195
		221	Left = 4800
		222	TabIndex = 7
		223	Top = 2040
		224	Width = 165
		225	End
		226	Begin VB.Label Label6
		227	Alignment = 1 'Rechts
		228	AutoSize = -1 'True
		229	BackStyle = 0 'Transparent
		230	Caption = "l6"
		231	BeginProperty Font
		232	Name = "MS Sans Serif"
		233	Size = 8.25
		234	Charset = 0
		235	Weight = 700
		236	Underline = 0 'False
		237	Italic = 0 'False
		238	Strikethrough = 0 'False
		239	EndProperty
		240	ForeColor = &H00FFFFFF&
		241	Height = 195
		242	Left = 4620
		243	TabIndex = 6
		244	Top = 1560
		245	Width = 165
		246	End
		247	Begin VB.Label Label5
		248	AutoSize = -1 'True
		249	BackStyle = 0 'Transparent
		250	Caption = "Preis"
		251	BeginProperty Font
		252	Name = "MS Sans Serif"
		253	Size = 8.25
		254	Charset = 0
		255	Weight = 700
		256	Underline = 0 'False
		257	Italic = 0 'False
		258	Strikethrough = 0 'False
		259	EndProperty
		260	ForeColor = &H00FFC0C0&
		261	Height = 195
		262	Left = 3120
		263	TabIndex = 5
		264	Top = 2640
		265	Width = 435
		266	End
		267	Begin VB.Label Label4
		268	AutoSize = -1 'True
		269	BackStyle = 0 'Transparent
		270	Caption = "Mana"
		271	BeginProperty Font
		272	Name = "MS Sans Serif"
		273	Size = 8.25
		274	Charset = 0
		275	Weight = 700
		276	Underline = 0 'False
		277	Italic = 0 'False
		278	Strikethrough = 0 'False
		279	EndProperty
		280	ForeColor = &H00FFC0C0&
		281	Height = 195
		282	Left = 3120
		283	TabIndex = 4
		284	Top = 2040
		285	Width = 480
		286	End
		287	Begin VB.Label Label3
		288	AutoSize = -1 'True
		289	BackStyle = 0 'Transparent
		290	Caption = "Schaden"
		291	BeginProperty Font
		292	Name = "MS Sans Serif"
		293	Size = 8.25
		294	Charset = 0
		295	Weight = 700
		296	Underline = 0 'False
		297	Italic = 0 'False
		298	Strikethrough = 0 'False
		299	EndProperty
		300	ForeColor = &H00FFC0C0&
		301	Height = 195
		302	Left = 3120
		303	TabIndex = 3
		304	Top = 1560
		305	Width = 765
		306	End
		307	Begin VB.Label Label2
		308	AutoSize = -1 'True
		309	BackStyle = 0 'Transparent
		310	Caption = "Label2"
		311	BeginProperty Font
		312	Name = "MS Sans Serif"
		313	Size = 8.25
		314	Charset = 0
		315	Weight = 700
		316	Underline = -1 'True
		317	Italic = 0 'False
		318	Strikethrough = 0 'False
		319	EndProperty
		320	ForeColor = &H00FFFFFF&
		321	Height = 195
		322	Left = 4440
		323	TabIndex = 2
		324	Top = 1080
		325	Width = 585
		326	End
		327	Begin VB.Shape Shape1
		328	BorderColor = &H00FF0000&
		329	Height = 2175
		330	Left = 3000
		331	Top = 960
		332	Width = 3735
		333	End
		334	Begin VB.Label Label1
		335	AutoSize = -1 'True
		336	BackStyle = 0 'Transparent
		337	Caption = "Magiergilde ""Chaos und Hölleninferno"""
		338	BeginProperty Font
		339	Name = "Tahoma"
		340	Size = 15.75
		341	Charset = 0
		342	Weight = 700
		343	Underline = 0 'False
		344	Italic = 0 'False
		345	Strikethrough = 0 'False
		346	EndProperty
		347	ForeColor = &H000000FF&
		348	Height = 375
		349	Left = 600
		350	TabIndex = 0
		351	Top = 240
		352	Width = 6045
		353	End
		354	End
		355	Attribute VB_Name = "LgGuild1"
		356	Attribute VB_GlobalNameSpace = False
		357	Attribute VB_Creatable = False
		358	Attribute VB_PredeclaredId = True
		359	Attribute VB_Exposed = False
		360	Private Sub Command1_Click()
		361	If Text1.Text = "Xajek" Then Label17.Caption = "Er hat bei uns die Magie der zerstörung gelernt, doch kurz vor beendigung hat er abgebrochen und ist zu einer Gilde der Nekromantie übergegangen. Er ist böse ... und gefährlich.": GoTo weiter
		362
		363	weiter:
		364	End Sub
		365
		366	Private Sub Command2_Click()
		367	Unload LgGuild1
		368	Lindgar.Show
		369	End Sub
		370
		371	Private Sub Form_Load()
		372	If yymittel = 1 Or yymittel = 2 Then Label15.Enabled = False
		373	RADIKAL
		374	initial
		375	End Sub
		376
		377	Private Sub Label13_Click()
		378	If magician = 0 Then Label17.Caption = "Tut mir leid, aber du brauchst Grundkenntnisse der Magie!": GoTo nixnix
		379	If ChaosUndHölleninferno = 1 Then Label17.Caption = "Du bist schon Mitglied!": GoTo nixnix
		380	If gold < 100 Then Label17.Caption = "Tut mir leid, Ohne Gold kannst du uns nicht beitreten.": GoTo nixnix
		381	gold = gold - 100
		382	ChaosUndHölleninferno = 1
		383	Label17.Caption = "Sei gegrüßt! Du bist nun Mitglied in unserer Gilde."
		384	initial
		385	nixnix:
		386	End Sub
		387
		388	Private Sub Label15_Click()
		389	a = MsgBox("Danke, vielen Dank! Dieses Mittel gegen eine schwere Krankheit muss unbedingt nach Phaekskar gebracht werden, um einen alten Freund zu helfen.", 64 + vbYesNo, "Xandus")
		390	b = Val(a)
		391	If b = vbYes Then yymittel = 1: Label15.Enabled = False
		392	End Sub
		393
		394	Private Sub Label2_Click()
		395	If gold < kpreis Then Label17.Caption = "Hüte dich, mit mir Scherze zu treiben!": GoTo nixda
		396	gold = gold - kpreis
		397	spell = List1.Text: Spruchbuch.Combo1.AddItem spell
		398	Label17.Caption = "Dieser Spruch wird sehr nützlich sein!"
		399	initial
		400	nixda:
		401	End Sub
		402
		403	Private Sub List1_Click()
		404	If List1.Text = "Feuerball" Then GoTo feuerball
		405	If List1.Text = "Flammenstrahl" Then GoTo flammenstrahl
		406	If List1.Text = "Manabrand" Then GoTo Manabrand
		407	If List1.Text = "Drachenodem" Then GoTo drachenodem
		408	If List1.Text = "Erdbeben" Then GoTo Erdbeben
		409	feuerball:
		410	kwaffe = "Feuerball"
		411	kgrundschaden = 3
		412	kzusatzschaden = 9
		413	kmana = 12
		414	kpreis = 180
		415	initial
		416	GoTo weiter
		417	flammenstrahl:
		418	kwaffe = "Flammenstrahl"
		419	kgrundschaden = 8
		420	kzusatzschaden = 6
		421	kmana = 25
		422	kpreis = 250
		423	initial
		424	GoTo weiter
		425	Manabrand:
		426	kwaffe = "Manabrand"
		427	kgrundschaden = 0
		428	kzusatzschaden = 0
		429	kmana = 0
		430	kpreis = 115
		431	initial
		432	GoTo weiter
		433	drachenodem:
		434	kwaffe = "Drachenodem"
		435	kgrundschaden = 5
		436	kzusatzschaden = 15
		437	kmana = 40
		438	kpreis = 350
		439	initial
		440	GoTo weiter
		441	Erdbeben:
		442	kwaffe = "Erdbeben"
		443	kgrundschaden = 4
		444	kzusatzschaden = 12
		445	kmana = 18
		446	kpreis = 130
		447	initial
		448	weiter:
		449	End Sub
		450
		451	Sub initial()
		452	If ChaosUndHölleninferno = 0 Then List1.Enabled = False Else List1.Enabled = True
		453	Label12.Caption = gold
		454	Label2.Caption = kwaffe
		455	Label6.Caption = kgrundschaden
		456	Label10.Caption = kgrundschaden + kzusatzschaden
		457	Label7.Caption = kmana
		458	Label8.Caption = Str(kpreis) + " Goldkronen"
		459	If List1.Text = "Manabrand" Then Label6.Caption = "0": Label10.Caption = "maxmp des Gegners": Label7.Caption = "Schaden"
		460	End Sub

Subversion Repositories aysalia

aysalia/trunk/Schatten über Aysalia/Nicht verwendet/LgGuild1.frm – Rev 2