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

Rev	Author	Line No.	Line
2	daniel-mar	1	VERSION 5.00
		2	Begin VB.Form ShGilde4
		3	BackColor = &H00404000&
		4	BorderStyle = 0 'Kein
		5	Caption = "ShGilde4"
		6	ClientHeight = 6360
		7	ClientLeft = 0
		8	ClientTop = 0
		9	ClientWidth = 7935
		10	LinkTopic = "ShGilde4"
		11	ScaleHeight = 6360
		12	ScaleWidth = 7935
		13	ShowInTaskbar = 0 'False
		14	StartUpPosition = 2 'Bildschirmmitte
		15	Begin VB.ListBox List1
		16	BackColor = &H00004000&
		17	BeginProperty Font
		18	Name = "MS Sans Serif"
		19	Size = 9.75
		20	Charset = 0
		21	Weight = 700
		22	Underline = 0 'False
		23	Italic = 0 'False
		24	Strikethrough = 0 'False
		25	EndProperty
		26	ForeColor = &H0080FF80&
		27	Height = 2220
		28	ItemData = "ShGilde4.frx":0000
		29	Left = 960
		30	List = "ShGilde4.frx":0013
		31	TabIndex = 1
		32	Top = 960
		33	Width = 2055
		34	End
		35	Begin VB.CommandButton Command2
		36	Caption = "Verlassen"
		37	BeginProperty Font
		38	Name = "MS Sans Serif"
		39	Size = 8.25
		40	Charset = 0
		41	Weight = 700
		42	Underline = 0 'False
		43	Italic = 0 'False
		44	Strikethrough = 0 'False
		45	EndProperty
		46	Height = 375
		47	Left = 5280
		48	TabIndex = 0
		49	Top = 4080
		50	Width = 1335
		51	End
		52	Begin VB.Label Label9
		53	AutoSize = -1 'True
		54	BackStyle = 0 'Transparent
		55	Caption = "Auftrag"
		56	Enabled = 0 'False
		57	BeginProperty Font
		58	Name = "MS Sans Serif"
		59	Size = 9.75
		60	Charset = 0
		61	Weight = 700
		62	Underline = -1 'True
		63	Italic = 0 'False
		64	Strikethrough = 0 'False
		65	EndProperty
		66	ForeColor = &H00FF8080&
		67	Height = 240
		68	Left = 5280
		69	TabIndex = 15
		70	Top = 4560
		71	Width = 750
		72	End
		73	Begin VB.Label Label1
		74	AutoSize = -1 'True
		75	BackStyle = 0 'Transparent
		76	Caption = "Magiergilde ""Feenstaub"""
		77	BeginProperty Font
		78	Name = "Tahoma"
		79	Size = 15.75
		80	Charset = 0
		81	Weight = 700
		82	Underline = 0 'False
		83	Italic = 0 'False
		84	Strikethrough = 0 'False
		85	EndProperty
		86	ForeColor = &H00FFFF80&
		87	Height = 375
		88	Left = 1920
		89	TabIndex = 14
		90	Top = 240
		91	Width = 3840
		92	End
		93	Begin VB.Shape Shape1
		94	BorderColor = &H00FF0000&
		95	Height = 2175
		96	Left = 3360
		97	Top = 960
		98	Width = 3735
		99	End
		100	Begin VB.Label Label2
		101	AutoSize = -1 'True
		102	BackStyle = 0 'Transparent
		103	Caption = "Label2"
		104	BeginProperty Font
		105	Name = "MS Sans Serif"
		106	Size = 8.25
		107	Charset = 0
		108	Weight = 700
		109	Underline = -1 'True
		110	Italic = 0 'False
		111	Strikethrough = 0 'False
		112	EndProperty
		113	ForeColor = &H00FFFFFF&
		114	Height = 195
		115	Left = 4800
		116	TabIndex = 13
		117	Top = 1080
		118	Width = 585
		119	End
		120	Begin VB.Label Label3
		121	AutoSize = -1 'True
		122	BackStyle = 0 'Transparent
		123	Caption = "Wirkung"
		124	BeginProperty Font
		125	Name = "MS Sans Serif"
		126	Size = 8.25
		127	Charset = 0
		128	Weight = 700
		129	Underline = 0 'False
		130	Italic = 0 'False
		131	Strikethrough = 0 'False
		132	EndProperty
		133	ForeColor = &H00FFC0C0&
		134	Height = 195
		135	Left = 3480
		136	TabIndex = 12
		137	Top = 1560
		138	Width = 720
		139	End
		140	Begin VB.Label Label4
		141	AutoSize = -1 'True
		142	BackStyle = 0 'Transparent
		143	Caption = "Mana"
		144	BeginProperty Font
		145	Name = "MS Sans Serif"
		146	Size = 8.25
		147	Charset = 0
		148	Weight = 700
		149	Underline = 0 'False
		150	Italic = 0 'False
		151	Strikethrough = 0 'False
		152	EndProperty
		153	ForeColor = &H00FFC0C0&
		154	Height = 195
		155	Left = 3480
		156	TabIndex = 11
		157	Top = 2040
		158	Width = 480
		159	End
		160	Begin VB.Label Label5
		161	AutoSize = -1 'True
		162	BackStyle = 0 'Transparent
		163	Caption = "Preis"
		164	BeginProperty Font
		165	Name = "MS Sans Serif"
		166	Size = 8.25
		167	Charset = 0
		168	Weight = 700
		169	Underline = 0 'False
		170	Italic = 0 'False
		171	Strikethrough = 0 'False
		172	EndProperty
		173	ForeColor = &H00FFC0C0&
		174	Height = 195
		175	Left = 3480
		176	TabIndex = 10
		177	Top = 2640
		178	Width = 435
		179	End
		180	Begin VB.Label Label6
		181	AutoSize = -1 'True
		182	BackStyle = 0 'Transparent
		183	Caption = "l6"
		184	BeginProperty Font
		185	Name = "MS Sans Serif"
		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 = 195
		195	Left = 4980
		196	TabIndex = 9
		197	Top = 1560
		198	Width = 165
		199	End
		200	Begin VB.Label Label7
		201	AutoSize = -1 'True
		202	BackStyle = 0 'Transparent
		203	Caption = "l7"
		204	BeginProperty Font
		205	Name = "MS Sans Serif"
		206	Size = 8.25
		207	Charset = 0
		208	Weight = 700
		209	Underline = 0 'False
		210	Italic = 0 'False
		211	Strikethrough = 0 'False
		212	EndProperty
		213	ForeColor = &H00FFFFFF&
		214	Height = 195
		215	Left = 5160
		216	TabIndex = 8
		217	Top = 2040
		218	Width = 165
		219	End
		220	Begin VB.Label Label8
		221	AutoSize = -1 'True
		222	BackStyle = 0 'Transparent
		223	Caption = "l8"
		224	BeginProperty Font
		225	Name = "MS Sans Serif"
		226	Size = 8.25
		227	Charset = 0
		228	Weight = 700
		229	Underline = 0 'False
		230	Italic = 0 'False
		231	Strikethrough = 0 'False
		232	EndProperty
		233	ForeColor = &H0000FFFF&
		234	Height = 195
		235	Left = 4800
		236	TabIndex = 7
		237	Top = 2640
		238	Width = 165
		239	End
		240	Begin VB.Label Label11
		241	AutoSize = -1 'True
		242	BackStyle = 0 'Transparent
		243	Caption = "Goldkronen"
		244	ForeColor = &H0000FFFF&
		245	Height = 195
		246	Left = 3360
		247	TabIndex = 6
		248	Top = 3240
		249	Width = 825
		250	End
		251	Begin VB.Label Label12
		252	AutoSize = -1 'True
		253	BackStyle = 0 'Transparent
		254	Caption = "Label12"
		255	ForeColor = &H0000FFFF&
		256	Height = 195
		257	Left = 4560
		258	TabIndex = 5
		259	Top = 3240
		260	Width = 570
		261	End
		262	Begin VB.Label Label17
		263	BackStyle = 0 'Transparent
		264	Caption = "Farnion, Gildenmeister der Natur"
		265	BeginProperty Font
		266	Name = "MS Sans Serif"
		267	Size = 8.25
		268	Charset = 0
		269	Weight = 700
		270	Underline = 0 'False
		271	Italic = 0 'False
		272	Strikethrough = 0 'False
		273	EndProperty
		274	ForeColor = &H00E0E0E0&
		275	Height = 1095
		276	Left = 960
		277	TabIndex = 4
		278	Top = 4080
		279	Width = 4335
		280	End
		281	Begin VB.Label Label13
		282	AutoSize = -1 'True
		283	BackStyle = 0 'Transparent
		284	Caption = "Gilde der Natur beitreten"
		285	BeginProperty Font
		286	Name = "MS Sans Serif"
		287	Size = 8.25
		288	Charset = 0
		289	Weight = 700
		290	Underline = -1 'True
		291	Italic = 0 'False
		292	Strikethrough = 0 'False
		293	EndProperty
		294	ForeColor = &H0000C000&
		295	Height = 195
		296	Left = 960
		297	TabIndex = 3
		298	Top = 3240
		299	Width = 2115
		300	End
		301	Begin VB.Label Label14
		302	AutoSize = -1 'True
		303	BackStyle = 0 'Transparent
		304	Caption = "100 Goldkronen"
		305	ForeColor = &H0000C000&
		306	Height = 195
		307	Left = 960
		308	TabIndex = 2
		309	Top = 3480
		310	Width = 1140
		311	End
		312	End
		313	Attribute VB_Name = "ShGilde4"
		314	Attribute VB_GlobalNameSpace = False
		315	Attribute VB_Creatable = False
		316	Attribute VB_PredeclaredId = True
		317	Attribute VB_Exposed = False
		318	Private Sub Command2_Click()
		319	Unload ShGilde4
		320	Shaela.Show
		321	End Sub
		322
		323	Private Sub Form_Load()
		324	RADIKAL
		325	initial
		326	End Sub
		327
		328	Private Sub Label13_Click()
		329	If magician = 0 Then Label17.Caption = "Es tur mir außerordentlich leid, aber du bist nicht magiebegabt!": GoTo nixnix
		330	If DämmerungUndFinsternis = 1 Then Label17.Caption = "Da du dich der Dunkelheit zugewandt hast, nehmen wir dich nicht auf!": GoTo nixnix
		331	If Feenstaub = 1 Then Label17.Caption = "Du bist schon Mitglied!": GoTo nixnix
		332	If gold < 100 Then Label17.Caption = "Tut mir leid, Ohne Gold kannst du uns nicht beitreten.": GoTo nixnix
		333	gold = gold - 100
		334	Feenstaub = 1
		335	Label17.Caption = "Sei gegrüßt! Du bist nun Mitglied in unserer Gilde."
		336	initial
		337	nixnix:
		338	End Sub
		339
		340	Private Sub Label2_Click()
		341	If gold < kpreis Then Label17.Caption = "Hüte dich, mit mir Scherze zu treiben!": GoTo nixda
		342	gold = gold - kpreis
		343	spell = List1.Text: Spruchbuch.Combo1.AddItem spell
		344	Label17.Caption = "Dieser Spruch wird sehr nützlich sein!"
		345	initial
		346	nixda:
		347	End Sub
		348
		349	Private Sub List1_Click()
		350	If List1.Text = "Naturheilung" Then GoTo feuerball
		351	If List1.Text = "Schild" Then GoTo flammenstrahl
		352	If List1.Text = "Kreatur abwenden" Then GoTo Manabrand
		353	If List1.Text = "Zauberranken" Then GoTo drachenodem
		354	If List1.Text = "Kältestrahl" Then GoTo Erdbeben
		355	feuerball:
		356	kwaffe = "Naturheilung"
		357	wirkung = "heilt 3-12 Lebenspunkte"
		358	kmana = 12
		359	kpreis = 120
		360	initial
		361	GoTo weiter
		362	flammenstrahl:
		363	kwaffe = "Schild"
		364	wirkung = "Gibt 3 Zusätzliche RS"
		365	kmana = 25
		366	kpreis = 150
		367	initial
		368	GoTo weiter
		369	Manabrand:
		370	kwaffe = "Kreatur abwenden"
		371	wirkung = "Vertreibt Kreaturen"
		372	kmana = 20
		373	kpreis = 215
		374	initial
		375	GoTo weiter
		376	drachenodem:
		377	kwaffe = "Zauberranken"
		378	wirkung = "Pro Runde 3-8 SP"
		379	kmana = 20
		380	kpreis = 170
		381	initial
		382	GoTo weiter
		383	Erdbeben:
		384	kwaffe = "Kältestrahl"
		385	wirkung = "5-12 SP"
		386	kmana = 15
		387	kpreis = 230
		388	initial
		389	weiter:
		390	End Sub
		391
		392	Sub initial()
		393	If Feenstaub = 0 Then List1.Enabled = False Else List1.Enabled = True
		394	label12.Caption = gold
		395	Label2.Caption = kwaffe
		396	Label6.Caption = wirkung
		397	Label7.Caption = kmana
		398	Label8.Caption = Str(kpreis) + " Goldkronen"
		399	End Sub
		400

Subversion Repositories aysalia

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