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

Rev	Author	Line No.	Line
2	daniel-mar	1	VERSION 5.00
		2	Begin VB.Form dqGILDE
		3	BackColor = &H00404000&
		4	BorderStyle = 0 'None
		5	Caption = "dqGILDE"
		6	ClientHeight = 4710
		7	ClientLeft = 0
		8	ClientTop = 0
		9	ClientWidth = 6855
		10	LinkTopic = "dqGILDE"
		11	ScaleHeight = 4710
		12	ScaleWidth = 6855
		13	ShowInTaskbar = 0 'False
		14	StartUpPosition = 2 'CenterScreen
		15	Begin VB.CommandButton Command3
		16	BackColor = &H0080FF80&
		17	Cancel = -1 'True
		18	Caption = "Verlassen"
		19	Default = -1 'True
		20	Height = 315
		21	Left = 5640
		22	Style = 1 'Graphical
		23	TabIndex = 12
		24	Top = 4200
		25	Width = 1095
		26	End
		27	Begin VB.CommandButton Command2
		28	BackColor = &H0080FF80&
		29	Caption = "Kaufen"
		30	Enabled = 0 'False
		31	Height = 255
		32	Left = 5760
		33	Style = 1 'Graphical
		34	TabIndex = 11
		35	Top = 2880
		36	Width = 735
		37	End
		38	Begin VB.CommandButton Command1
		39	BackColor = &H0080FF80&
		40	Caption = "Reden"
		41	BeginProperty Font
		42	Name = "Arial"
		43	Size = 9.75
		44	Charset = 0
		45	Weight = 700
		46	Underline = 0 'False
		47	Italic = 0 'False
		48	Strikethrough = 0 'False
		49	EndProperty
		50	Height = 495
		51	Left = 240
		52	Style = 1 'Graphical
		53	TabIndex = 2
		54	Top = 3720
		55	Width = 2295
		56	End
		57	Begin VB.ListBox List1
		58	BackColor = &H00404000&
		59	BeginProperty Font
		60	Name = "Arial"
		61	Size = 9
		62	Charset = 0
		63	Weight = 700
		64	Underline = 0 'False
		65	Italic = 0 'False
		66	Strikethrough = 0 'False
		67	EndProperty
		68	ForeColor = &H00FFFFFF&
		69	Height = 2310
		70	Left = 240
		71	TabIndex = 1
		72	Top = 840
		73	Width = 2295
		74	End
		75	Begin VB.Shape Shape2
		76	BorderColor = &H00FFFFFF&
		77	Height = 495
		78	Left = 5640
		79	Top = 2760
		80	Width = 975
		81	End
		82	Begin VB.Label Label10
		83	AutoSize = -1 'True
		84	BackStyle = 0 'Transparent
		85	Caption = "x"
		86	BeginProperty Font
		87	Name = "Arial"
		88	Size = 8.25
		89	Charset = 0
		90	Weight = 700
		91	Underline = 0 'False
		92	Italic = 0 'False
		93	Strikethrough = 0 'False
		94	EndProperty
		95	ForeColor = &H00FFC0C0&
		96	Height = 210
		97	Left = 4320
		98	TabIndex = 14
		99	Top = 2760
		100	Width = 90
		101	End
		102	Begin VB.Label Label2
		103	AutoSize = -1 'True
		104	BackStyle = 0 'Transparent
		105	Caption = "Vorraussetzung"
		106	BeginProperty Font
		107	Name = "Arial"
		108	Size = 8.25
		109	Charset = 0
		110	Weight = 700
		111	Underline = 0 'False
		112	Italic = 0 'False
		113	Strikethrough = 0 'False
		114	EndProperty
		115	ForeColor = &H00FFFFFF&
		116	Height = 210
		117	Left = 2760
		118	TabIndex = 13
		119	Top = 2760
		120	Width = 1350
		121	End
		122	Begin VB.Label Label9
		123	AutoSize = -1 'True
		124	BackStyle = 0 'Transparent
		125	Caption = "x"
		126	BeginProperty Font
		127	Name = "Arial"
		128	Size = 8.25
		129	Charset = 0
		130	Weight = 700
		131	Underline = 0 'False
		132	Italic = 0 'False
		133	Strikethrough = 0 'False
		134	EndProperty
		135	ForeColor = &H0000FFFF&
		136	Height = 210
		137	Left = 3600
		138	TabIndex = 10
		139	Top = 2400
		140	Width = 90
		141	End
		142	Begin VB.Label Label8
		143	BackStyle = 0 'Transparent
		144	Caption = "Preis"
		145	BeginProperty Font
		146	Name = "Arial"
		147	Size = 8.25
		148	Charset = 0
		149	Weight = 700
		150	Underline = 0 'False
		151	Italic = 0 'False
		152	Strikethrough = 0 'False
		153	EndProperty
		154	ForeColor = &H00FFFFFF&
		155	Height = 255
		156	Left = 2760
		157	TabIndex = 9
		158	Top = 2400
		159	Width = 735
		160	End
		161	Begin VB.Label Label7
		162	AutoSize = -1 'True
		163	BackStyle = 0 'Transparent
		164	Caption = "x"
		165	BeginProperty Font
		166	Name = "Arial"
		167	Size = 8.25
		168	Charset = 0
		169	Weight = 700
		170	Underline = 0 'False
		171	Italic = 0 'False
		172	Strikethrough = 0 'False
		173	EndProperty
		174	ForeColor = &H00FFC0C0&
		175	Height = 210
		176	Left = 3600
		177	TabIndex = 8
		178	Top = 2040
		179	Width = 90
		180	End
		181	Begin VB.Label Label6
		182	BackStyle = 0 'Transparent
		183	Caption = "Mana"
		184	BeginProperty Font
		185	Name = "Arial"
		186	Size = 8.25
		187	Charset = 0
		188	Weight = 700
		189	Underline = 0 'False
		190	Italic = 0 'False
		191	Strikethrough = 0 'False
		192	EndProperty
		193	ForeColor = &H00FFFFFF&
		194	Height = 255
		195	Left = 2760
		196	TabIndex = 7
		197	Top = 2040
		198	Width = 735
		199	End
		200	Begin VB.Label Label5
		201	BackStyle = 0 'Transparent
		202	Caption = "x"
		203	BeginProperty Font
		204	Name = "Arial"
		205	Size = 8.25
		206	Charset = 0
		207	Weight = 700
		208	Underline = 0 'False
		209	Italic = 0 'False
		210	Strikethrough = 0 'False
		211	EndProperty
		212	ForeColor = &H00FFC0C0&
		213	Height = 495
		214	Left = 3600
		215	TabIndex = 6
		216	Top = 1320
		217	Width = 2895
		218	End
		219	Begin VB.Label Label4
		220	BackStyle = 0 'Transparent
		221	Caption = "Wirkung"
		222	BeginProperty Font
		223	Name = "Arial"
		224	Size = 8.25
		225	Charset = 0
		226	Weight = 700
		227	Underline = 0 'False
		228	Italic = 0 'False
		229	Strikethrough = 0 'False
		230	EndProperty
		231	ForeColor = &H00FFFFFF&
		232	Height = 255
		233	Left = 2760
		234	TabIndex = 5
		235	Top = 1320
		236	Width = 735
		237	End
		238	Begin VB.Label Label3
		239	Alignment = 2 'Center
		240	BackStyle = 0 'Transparent
		241	Caption = "Label3"
		242	BeginProperty Font
		243	Name = "Arial"
		244	Size = 8.25
		245	Charset = 0
		246	Weight = 700
		247	Underline = 0 'False
		248	Italic = 0 'False
		249	Strikethrough = 0 'False
		250	EndProperty
		251	ForeColor = &H00FFFFFF&
		252	Height = 255
		253	Left = 2760
		254	TabIndex = 4
		255	Top = 960
		256	Width = 3735
		257	End
		258	Begin VB.Label Label15
		259	BackStyle = 0 'Transparent
		260	Caption = "x"
		261	BeginProperty Font
		262	Name = "Arial"
		263	Size = 8.25
		264	Charset = 0
		265	Weight = 700
		266	Underline = 0 'False
		267	Italic = 0 'False
		268	Strikethrough = 0 'False
		269	EndProperty
		270	ForeColor = &H00FFFFFF&
		271	Height = 255
		272	Left = 2640
		273	TabIndex = 3
		274	Top = 3840
		275	Width = 3255
		276	End
		277	Begin VB.Shape Shape1
		278	BorderColor = &H00FF0000&
		279	Height = 2415
		280	Left = 2640
		281	Top = 840
		282	Width = 3975
		283	End
		284	Begin VB.Label Label1
		285	Alignment = 2 'Center
		286	BackStyle = 0 'Transparent
		287	Caption = "#Gildenname"
		288	BeginProperty Font
		289	Name = "Arial"
		290	Size = 12
		291	Charset = 0
		292	Weight = 700
		293	Underline = 0 'False
		294	Italic = 0 'False
		295	Strikethrough = 0 'False
		296	EndProperty
		297	ForeColor = &H0000FFFF&
		298	Height = 375
		299	Left = 240
		300	TabIndex = 0
		301	Top = 120
		302	Width = 6375
		303	End
		304	Begin VB.Line Line1
		305	BorderColor = &H00FFFFFF&
		306	X1 = 240
		307	X2 = 6600
		308	Y1 = 480
		309	Y2 = 480
		310	End
		311	End
		312	Attribute VB_Name = "dqGILDE"
		313	Attribute VB_GlobalNameSpace = False
		314	Attribute VB_Creatable = False
		315	Attribute VB_PredeclaredId = True
		316	Attribute VB_Exposed = False
		317	Private Sub Command1_Click()
		318	Titel = Inhaber
		319	If Inhaber = "Vaphidur" Then Text = "Sei gegrüßt. Ich sehe du bist noch ziemlich jung, du solltest dich vor dem Seelenjäger, der sich herumtreibt in acht nehmen."
		320	If Inhaber = "Cethinia" Then Text = "Komm und ruh dich in unserem Haus aus. Wenn du willst können wir dir Zaubersprüche der Natur anbieten."
		321	If Inhaber = "Korodon" Then Text = "Macht und Zerstörung kann ich dir bieten, und glaub' mir : Das ist das beste was du kriegen kannst. Haha ha harr."
		322	If Inhaber = "Xaphika" Then Text = "Ich spüre du bist stark, bist du bereit die Macht der Nekromantie in dich einfließen zu lassen? Wage es nicht, dich falsch zu entscheiden!"
		323	onlyOK
		324	Konversation.Show (vbModal)
		325	End Sub
		326
		327	Private Sub Command2_Click()
		328	Command2.Enabled = False
		329	Manager.Command1.Enabled = False
		330	If Gold < dqPREIS Then NoGold: GoTo nixda
		331	Gold = Gold - dqPREIS: ManagRighter
		332	Manager.SpruchBuch.AddItem dqWAFFE
		333	nixda:
		334	ManagRighter
		335	End Sub
		336
		337	Private Sub Command3_Click()
		338	Manager.Command1.Enabled = True
		339	Unload dqGILDE
		340	CheckOrt
		341	End Sub
		342
		343	Private Sub Form_Load()
		344
		345	Label2.Caption = "mit " + Inhaber
		346	End Sub
		347
		348	Private Sub List1_Click()
		349	Command2.Enabled = True
		350	A = List1.Text
		351	SpellCheck
		352	Label5.Caption = dqKATEGORIE
		353	Label3.Caption = dqWAFFE
		354	Label7.Caption = dqABZUG
		355	Label9.Caption = Str(dqPREIS) + " Goldkronen"
		356	Label10.Caption = Str(Zahl) + " " + GildenArt
		357	If GildenArt = "Licht" Then TestLICHT
		358	If GildenArt = "Chaos" Then TestCHAOS
		359	If GildenArt = "Nekromantie" Then TestNEKRO
		360	If GildenArt = "Natur" Then TestNATUR
		361
		362	End Sub
		363	Sub TestLICHT()
		364	If LICHT < Zahl Then Command2.Enabled = False
		365	End Sub
		366	Sub TestCHAOS()
		367	If CHAOS < Zahl Then Command2.Enabled = False
		368	End Sub
		369	Sub TestNEKRO()
		370	If NEKROMANTIE < Zahl Then Command2.Enabled = False
		371	End Sub
		372	Sub TestNATUR()
		373	If NATUR < Zahl Then Command2.Enabled = False
		374	End Sub

Subversion Repositories aysalia

aysalia/trunk/Zeitalter der Dämonen/dqGILDE.frm – Rev 2