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

Rev	Author	Line No.	Line
2	daniel-mar	1	VERSION 5.00
		2	Begin VB.Form Equipment
		3	BackColor = &H00400000&
		4	BorderStyle = 1 'Fixed Single
		5	Caption = "Ausrüstung"
		6	ClientHeight = 5850
		7	ClientLeft = 45
		8	ClientTop = 330
		9	ClientWidth = 5520
		10	ControlBox = 0 'False
		11	LinkTopic = "Equipment"
		12	MaxButton = 0 'False
		13	MinButton = 0 'False
		14	ScaleHeight = 5850
		15	ScaleWidth = 5520
		16	StartUpPosition = 2 'CenterScreen
		17	Begin VB.CommandButton Command2
		18	BackColor = &H00FF8080&
		19	Caption = "Objekt anlegen"
		20	Enabled = 0 'False
		21	Height = 255
		22	Left = 240
		23	Style = 1 'Graphical
		24	TabIndex = 13
		25	Top = 5520
		26	Width = 1575
		27	End
		28	Begin VB.CommandButton Command1
		29	BackColor = &H00FF8080&
		30	Cancel = -1 'True
		31	Caption = "Verlassen"
		32	Default = -1 'True
		33	Height = 255
		34	Left = 3720
		35	Style = 1 'Graphical
		36	TabIndex = 10
		37	Top = 5520
		38	Width = 1575
		39	End
		40	Begin VB.Label Label15
		41	Alignment = 2 'Center
		42	AutoSize = -1 'True
		43	BackStyle = 0 'Transparent
		44	Caption = "Rüstungsteile"
		45	BeginProperty Font
		46	Name = "Times New Roman"
		47	Size = 12
		48	Charset = 0
		49	Weight = 700
		50	Underline = 0 'False
		51	Italic = 0 'False
		52	Strikethrough = 0 'False
		53	EndProperty
		54	ForeColor = &H00FFFFFF&
		55	Height = 285
		56	Left = 240
		57	TabIndex = 16
		58	Top = 3120
		59	Width = 5100
		60	End
		61	Begin VB.Label Label14
		62	Alignment = 2 'Center
		63	AutoSize = -1 'True
		64	BackStyle = 0 'Transparent
		65	Caption = "Waffen"
		66	BeginProperty Font
		67	Name = "Times New Roman"
		68	Size = 12
		69	Charset = 0
		70	Weight = 700
		71	Underline = 0 'False
		72	Italic = 0 'False
		73	Strikethrough = 0 'False
		74	EndProperty
		75	ForeColor = &H00FFFFFF&
		76	Height = 285
		77	Left = 240
		78	TabIndex = 15
		79	Top = 1320
		80	Width = 5055
		81	End
		82	Begin VB.Label Label13
		83	Alignment = 2 'Center
		84	AutoSize = -1 'True
		85	BackStyle = 0 'Transparent
		86	Caption = "Helm"
		87	BeginProperty Font
		88	Name = "Times New Roman"
		89	Size = 12
		90	Charset = 0
		91	Weight = 700
		92	Underline = 0 'False
		93	Italic = 0 'False
		94	Strikethrough = 0 'False
		95	EndProperty
		96	ForeColor = &H00FFFFFF&
		97	Height = 285
		98	Left = 240
		99	TabIndex = 14
		100	Top = 120
		101	Width = 5100
		102	End
		103	Begin VB.Line Line4
		104	BorderColor = &H00FF8080&
		105	X1 = 240
		106	X2 = 5280
		107	Y1 = 4080
		108	Y2 = 4080
		109	End
		110	Begin VB.Line Line3
		111	BorderColor = &H00FF8080&
		112	X1 = 240
		113	X2 = 5280
		114	Y1 = 4680
		115	Y2 = 4680
		116	End
		117	Begin VB.Line Line1
		118	BorderColor = &H00FF8080&
		119	X1 = 240
		120	X2 = 5280
		121	Y1 = 2400
		122	Y2 = 2400
		123	End
		124	Begin VB.Label Label11
		125	AutoSize = -1 'True
		126	BackStyle = 0 'Transparent
		127	Caption = "Label1"
		128	BeginProperty Font
		129	Name = "Arial"
		130	Size = 8.25
		131	Charset = 0
		132	Weight = 700
		133	Underline = 0 'False
		134	Italic = 0 'False
		135	Strikethrough = 0 'False
		136	EndProperty
		137	ForeColor = &H00FFFFFF&
		138	Height = 210
		139	Left = 285
		140	TabIndex = 12
		141	Top = 2400
		142	Width = 540
		143	End
		144	Begin VB.Label Label12
		145	BackStyle = 0 'Transparent
		146	Caption = "Label1"
		147	BeginProperty Font
		148	Name = "Arial"
		149	Size = 8.25
		150	Charset = 0
		151	Weight = 700
		152	Underline = 0 'False
		153	Italic = 0 'False
		154	Strikethrough = 0 'False
		155	EndProperty
		156	ForeColor = &H0000FFFF&
		157	Height = 330
		158	Left = 285
		159	TabIndex = 11
		160	Top = 2640
		161	Width = 4980
		162	End
		163	Begin VB.Label Label10
		164	BackStyle = 0 'Transparent
		165	Caption = "Label1"
		166	BeginProperty Font
		167	Name = "Arial"
		168	Size = 8.25
		169	Charset = 0
		170	Weight = 700
		171	Underline = 0 'False
		172	Italic = 0 'False
		173	Strikethrough = 0 'False
		174	EndProperty
		175	ForeColor = &H0000FFFF&
		176	Height = 330
		177	Left = 285
		178	TabIndex = 9
		179	Top = 4320
		180	Width = 4980
		181	End
		182	Begin VB.Label Label9
		183	AutoSize = -1 'True
		184	BackStyle = 0 'Transparent
		185	Caption = "Label1"
		186	BeginProperty Font
		187	Name = "Arial"
		188	Size = 8.25
		189	Charset = 0
		190	Weight = 700
		191	Underline = 0 'False
		192	Italic = 0 'False
		193	Strikethrough = 0 'False
		194	EndProperty
		195	ForeColor = &H00FFFFFF&
		196	Height = 210
		197	Left = 285
		198	TabIndex = 8
		199	Top = 4080
		200	Width = 540
		201	End
		202	Begin VB.Label Label8
		203	AutoSize = -1 'True
		204	BackStyle = 0 'Transparent
		205	Caption = "Label1"
		206	BeginProperty Font
		207	Name = "Arial"
		208	Size = 8.25
		209	Charset = 0
		210	Weight = 700
		211	Underline = 0 'False
		212	Italic = 0 'False
		213	Strikethrough = 0 'False
		214	EndProperty
		215	ForeColor = &H0000FFFF&
		216	Height = 210
		217	Left = 285
		218	TabIndex = 7
		219	Top = 720
		220	Width = 540
		221	End
		222	Begin VB.Label Label7
		223	BackStyle = 0 'Transparent
		224	Caption = "Label1"
		225	BeginProperty Font
		226	Name = "Arial"
		227	Size = 8.25
		228	Charset = 0
		229	Weight = 700
		230	Underline = 0 'False
		231	Italic = 0 'False
		232	Strikethrough = 0 'False
		233	EndProperty
		234	ForeColor = &H0000FFFF&
		235	Height = 330
		236	Left = 285
		237	TabIndex = 6
		238	Top = 4920
		239	Width = 4980
		240	End
		241	Begin VB.Label Label6
		242	BackStyle = 0 'Transparent
		243	Caption = "Label1"
		244	BeginProperty Font
		245	Name = "Arial"
		246	Size = 8.25
		247	Charset = 0
		248	Weight = 700
		249	Underline = 0 'False
		250	Italic = 0 'False
		251	Strikethrough = 0 'False
		252	EndProperty
		253	ForeColor = &H0000FFFF&
		254	Height = 330
		255	Left = 285
		256	TabIndex = 5
		257	Top = 3720
		258	Width = 4980
		259	End
		260	Begin VB.Label Label5
		261	BackStyle = 0 'Transparent
		262	Caption = "Label1"
		263	BeginProperty Font
		264	Name = "Arial"
		265	Size = 8.25
		266	Charset = 0
		267	Weight = 700
		268	Underline = 0 'False
		269	Italic = 0 'False
		270	Strikethrough = 0 'False
		271	EndProperty
		272	ForeColor = &H0000FFFF&
		273	Height = 450
		274	Left = 285
		275	TabIndex = 4
		276	Top = 1920
		277	Width = 4980
		278	End
		279	Begin VB.Label Label4
		280	AutoSize = -1 'True
		281	BackStyle = 0 'Transparent
		282	Caption = "Label1"
		283	BeginProperty Font
		284	Name = "Arial"
		285	Size = 8.25
		286	Charset = 0
		287	Weight = 700
		288	Underline = 0 'False
		289	Italic = 0 'False
		290	Strikethrough = 0 'False
		291	EndProperty
		292	ForeColor = &H00FFFFFF&
		293	Height = 210
		294	Left = 285
		295	TabIndex = 3
		296	Top = 480
		297	Width = 540
		298	End
		299	Begin VB.Label Label3
		300	AutoSize = -1 'True
		301	BackStyle = 0 'Transparent
		302	Caption = "Label1"
		303	BeginProperty Font
		304	Name = "Arial"
		305	Size = 8.25
		306	Charset = 0
		307	Weight = 700
		308	Underline = 0 'False
		309	Italic = 0 'False
		310	Strikethrough = 0 'False
		311	EndProperty
		312	ForeColor = &H00FFFFFF&
		313	Height = 210
		314	Left = 285
		315	TabIndex = 2
		316	Top = 4680
		317	Width = 540
		318	End
		319	Begin VB.Label Label2
		320	AutoSize = -1 'True
		321	BackStyle = 0 'Transparent
		322	Caption = "Label1"
		323	BeginProperty Font
		324	Name = "Arial"
		325	Size = 8.25
		326	Charset = 0
		327	Weight = 700
		328	Underline = 0 'False
		329	Italic = 0 'False
		330	Strikethrough = 0 'False
		331	EndProperty
		332	ForeColor = &H00FFFFFF&
		333	Height = 210
		334	Left = 285
		335	TabIndex = 1
		336	Top = 3480
		337	Width = 540
		338	End
		339	Begin VB.Label Label1
		340	AutoSize = -1 'True
		341	BackStyle = 0 'Transparent
		342	Caption = "Label1"
		343	BeginProperty Font
		344	Name = "Arial"
		345	Size = 8.25
		346	Charset = 0
		347	Weight = 700
		348	Underline = 0 'False
		349	Italic = 0 'False
		350	Strikethrough = 0 'False
		351	EndProperty
		352	ForeColor = &H00FFFFFF&
		353	Height = 210
		354	Left = 285
		355	TabIndex = 0
		356	Top = 1680
		357	Width = 540
		358	End
		359	Begin VB.Shape Shape3
		360	BorderColor = &H00FFFFFF&
		361	Height = 2055
		362	Left = 240
		363	Top = 3360
		364	Width = 5055
		365	End
		366	Begin VB.Shape Shape2
		367	BorderColor = &H00FFFFFF&
		368	Height = 1455
		369	Left = 240
		370	Top = 1560
		371	Width = 5055
		372	End
		373	Begin VB.Shape Shape1
		374	BorderColor = &H00FFFFFF&
		375	Height = 855
		376	Left = 240
		377	Top = 360
		378	Width = 5055
		379	End
		380	End
		381	Attribute VB_Name = "Equipment"
		382	Attribute VB_GlobalNameSpace = False
		383	Attribute VB_Creatable = False
		384	Attribute VB_PredeclaredId = True
		385	Attribute VB_Exposed = False
		386
		387	Private Sub Command1_Click()
		388	Unload Equipment
		389	End Sub
		390
		391	Private Sub Command2_Click()
		392	Command2.Enabled = False
		393	A = Manager.Inventar.Text
		394	dqWAFFE = ""
		395	If Typus = "Magier" And A = "Magierstab des Irion" Then GoTo overjump
		396	If Typus = "Magier" And A = "Magierstab" Then GoTo overjump
		397
		398
		399	If Typus = "Magier" Then GoTo nonee
		400	overjump:
		401	WeaponCheck
		402	If A = dqWAFFE Then AddWeap: GoTo jau
		403	nonee:
		404	BowCheck
		405	If A = dqWAFFE Then AddBow: GoTo jau
		406	RüstCheck
		407	If A = dqWAFFE Then addrüst
		408	jau:
		409	End Sub
		410
		411	Private Sub Form_Load()
		412	Dim MFG As String
		413	Label4.Caption = Helm
		414	Label8.Caption = Str(Hrs) + " RS / " + Str(Hbe) + " BE"
		415	If Helm = "" Then Label4.Caption = "kein Helm!": Label8.Caption = ""
		416
		417	Label1.Caption = Waffe
		418	If Kategorie = "Sch" Then MFG = "Schwert"
		419	If Kategorie = "Ax" Then MFG = "Axt"
		420	If Kategorie = "Sp" Then MFG = "Stabwaffe"
		421	If Kategorie = "Hie" Then MFG = "Hiebwaffe"
		422	Label5.Caption = Str(GRschaden) + " -" + Str(GRschaden + ZUschaden) + " / " + MFG + " aus " + Material + " / Abzug (" + Str(Abzug) + " )"
		423	If Hände = 1 Then MFG = "einhändig"
		424	If Hände = 2 Then MFG = "zweihändig"
		425	Label5.Caption = Label5.Caption + ", " + MFG
		426
		427	Label3.Caption = Schild
		428	Label7.Caption = Str(Srs) + " RS / " + Str(Sbe) + " BE"
		429	If Schild = "" Then Label3.Caption = "kein Schild!": Label7.Caption = ""
		430
		431	Label2.Caption = Rüstung
		432	Label6.Caption = " " + Rmaterial + " / " + Str(Rrs) + " RS / " + Str(Rbe) + " BE"
		433	If Rüstung = "" Then Label2.Caption = "keine Rüstung!": Label6.Caption = ""
		434
		435	Label9.Caption = Umhang
		436	Label10.Caption = Str(Urs) + " RS / " + Str(Ube) + " BE"
		437	If Umhang = "" Then Label9.Caption = "kein Umhang!": Label10.Caption = ""
		438
		439	Label11.Caption = Schusswaffe
		440	Label12.Caption = Str(SWGRschaden) + " -" + Str(SWGRschaden + SWZUschaden) + " / " + SwKategorie
		441	If Schusswaffe = "" Then Label11.Caption = "keine Schusswaffe!": Label12.Caption = ""
		442	End Sub
		443
		444	Sub AddWeap()
		445	If Magician = 1 And dqHÄNDE = 2 Or Typus = "Dieb" And dqHÄNDE = 2 Then GoTo zunk
		446	Manager.Inventar.AddItem Label1.Caption
		447	A = Manager.Inventar.Text
		448	Waffe = dqWAFFE
		449	GRschaden = dqGRSCHADEN
		450	ZUschaden = dqZUSCHADEN
		451	Kategorie = dqKATEGORIE
		452	Material = dqMATERIAL
		453	Abzug = dqABZUG
		454	Hände = dqHÄNDE
		455	A = Manager.Inventar.ListIndex
		456	Manager.Inventar.RemoveItem A
		457	Form_Load
		458	zunk:
		459	End Sub
		460	Sub AddBow()
		461	A = Manager.Inventar.ListIndex
		462	Manager.Inventar.RemoveItem A
		463	If Label11.Caption = "keine Schusswaffe!" Then GoTo kb
		464	Manager.Inventar.AddItem Label11.Caption
		465	kb:
		466	A = Manager.Inventar.Text
		467	Schusswaffe = dqWAFFE
		468	SWGRschaden = dqGRSCHADEN
		469	SWZUschaden = dqZUSCHADEN
		470	SwKategorie = dqKATEGORIE
		471	Form_Load
		472	End Sub
		473	Sub addrüst()
		474	If Typus = "Paladin" And dqMATERIAL = "Leder" Then GoTo klop212
		475	If Typus = "Paladin" Then GoTo zdf
		476	If dqMATERIAL = "Stahl" And Magician = 1 Then GoTo klop212
		477	zdf:
		478	A = Manager.Inventar.Text
		479	If dqKATEGORIE = "Helm" Then Helm = dqWAFFE: Hrs = dqGRSCHADEN: Hbe = dqABZUG: If Label4.Caption <> "kein Helm!" Then Manager.Inventar.AddItem Label4.Caption
		480	If dqKATEGORIE = "Rüstung" Then Rmaterial = dqMATERIAL: Rüstung = dqWAFFE: Rrs = dqGRSCHADEN: Rbe = dqABZUG: If Label2.Caption <> "keine Rüstung!" Then Manager.Inventar.AddItem Label2.Caption
		481	If dqKATEGORIE = "Schild" Then Schild = dqWAFFE: Srs = dqGRSCHADEN: Sbe = dqABZUG: If Label3.Caption <> "kein Schild!" Then Manager.Inventar.AddItem Label3.Caption
		482	If dqKATEGORIE = "Umhang" Then Umhang = dqWAFFE: Urs = dqGRSCHADEN: Ube = dqABZUG: If Label9.Caption <> "kein Umhang!" Then Manager.Inventar.AddItem Label9.Caption
		483	A = Manager.Inventar.ListIndex
		484	Manager.Inventar.RemoveItem A
		485	Form_Load
		486	klop212:
		487	End Sub

Subversion Repositories aysalia

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