WebSVN – aysalia – Blame – /trunk/Schatten über Aysalia/LgRust1.frm

Rev	Author	Line No.	Line
2	daniel-mar	1	VERSION 5.00
		2	Begin VB.Form LgRust1
		3	BackColor = &H00400000&
		4	BorderStyle = 0 'None
		5	Caption = "LgRust1"
		6	ClientHeight = 4980
		7	ClientLeft = 0
		8	ClientTop = 0
		9	ClientWidth = 6390
		10	LinkTopic = "LgRust1"
		11	ScaleHeight = 4980
		12	ScaleWidth = 6390
		13	ShowInTaskbar = 0 'False
		14	StartUpPosition = 2 'CenterScreen
		15	Begin VB.CommandButton Command2
		16	BackColor = &H00FF8080&
		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 = 4920
		31	Style = 1 'Graphical
		32	TabIndex = 13
		33	Top = 3240
		34	Width = 1335
		35	End
		36	Begin VB.ListBox List1
		37	BackColor = &H00000000&
		38	BeginProperty Font
		39	Name = "MS Sans Serif"
		40	Size = 8.25
		41	Charset = 0
		42	Weight = 700
		43	Underline = 0 'False
		44	Italic = 0 'False
		45	Strikethrough = 0 'False
		46	EndProperty
		47	ForeColor = &H00E0E0E0&
		48	Height = 1815
		49	ItemData = "LgRust1.frx":0000
		50	Left = 1200
		51	List = "LgRust1.frx":0013
		52	TabIndex = 1
		53	Top = 840
		54	Width = 1575
		55	End
		56	Begin VB.Label Label13
		57	AutoSize = -1 'True
		58	BackStyle = 0 'Transparent
		59	Caption = "Auftrag"
		60	Enabled = 0 'False
		61	BeginProperty Font
		62	Name = "MS Sans Serif"
		63	Size = 9.75
		64	Charset = 0
		65	Weight = 700
		66	Underline = -1 'True
		67	Italic = 0 'False
		68	Strikethrough = 0 'False
		69	EndProperty
		70	ForeColor = &H00FF8080&
		71	Height = 240
		72	Left = 4920
		73	TabIndex = 15
		74	Top = 3720
		75	Width = 750
		76	End
		77	Begin VB.Label Label17
		78	BackStyle = 0 'Transparent
		79	Caption = "Gelm der Rüstschmied"
		80	BeginProperty Font
		81	Name = "MS Sans Serif"
		82	Size = 8.25
		83	Charset = 0
		84	Weight = 700
		85	Underline = 0 'False
		86	Italic = 0 'False
		87	Strikethrough = 0 'False
		88	EndProperty
		89	ForeColor = &H00E0E0E0&
		90	Height = 975
		91	Left = 1080
		92	TabIndex = 14
		93	Top = 3240
		94	Width = 3735
		95	End
		96	Begin VB.Label Label12
		97	BackColor = &H00400000&
		98	Caption = "Label12"
		99	ForeColor = &H0000FFFF&
		100	Height = 255
		101	Left = 4320
		102	TabIndex = 12
		103	Top = 2760
		104	Width = 855
		105	End
		106	Begin VB.Label Label11
		107	BackColor = &H00400000&
		108	Caption = "Goldkronen"
		109	ForeColor = &H0000FFFF&
		110	Height = 255
		111	Left = 3000
		112	TabIndex = 11
		113	Top = 2760
		114	Width = 1095
		115	End
		116	Begin VB.Label Label10
		117	AutoSize = -1 'True
		118	BackStyle = 0 'Transparent
		119	Caption = "Label10"
		120	BeginProperty Font
		121	Name = "MS Sans Serif"
		122	Size = 8.25
		123	Charset = 0
		124	Weight = 700
		125	Underline = 0 'False
		126	Italic = 0 'False
		127	Strikethrough = 0 'False
		128	EndProperty
		129	ForeColor = &H00FFFFFF&
		130	Height = 195
		131	Left = 4320
		132	TabIndex = 10
		133	Top = 2400
		134	Width = 690
		135	End
		136	Begin VB.Label Label9
		137	AutoSize = -1 'True
		138	BackStyle = 0 'Transparent
		139	Caption = "Label9"
		140	BeginProperty Font
		141	Name = "MS Sans Serif"
		142	Size = 8.25
		143	Charset = 0
		144	Weight = 700
		145	Underline = 0 'False
		146	Italic = 0 'False
		147	Strikethrough = 0 'False
		148	EndProperty
		149	ForeColor = &H00FFFFFF&
		150	Height = 195
		151	Left = 4320
		152	TabIndex = 9
		153	Top = 2040
		154	Width = 585
		155	End
		156	Begin VB.Label Label8
		157	AutoSize = -1 'True
		158	BackStyle = 0 'Transparent
		159	Caption = "Label8"
		160	BeginProperty Font
		161	Name = "MS Sans Serif"
		162	Size = 8.25
		163	Charset = 0
		164	Weight = 700
		165	Underline = 0 'False
		166	Italic = 0 'False
		167	Strikethrough = 0 'False
		168	EndProperty
		169	ForeColor = &H00FFFFFF&
		170	Height = 195
		171	Left = 4320
		172	TabIndex = 8
		173	Top = 1680
		174	Width = 585
		175	End
		176	Begin VB.Label Label7
		177	AutoSize = -1 'True
		178	BackStyle = 0 'Transparent
		179	Caption = "Label7"
		180	BeginProperty Font
		181	Name = "MS Sans Serif"
		182	Size = 8.25
		183	Charset = 0
		184	Weight = 700
		185	Underline = 0 'False
		186	Italic = 0 'False
		187	Strikethrough = 0 'False
		188	EndProperty
		189	ForeColor = &H00FFFFFF&
		190	Height = 195
		191	Left = 4320
		192	TabIndex = 7
		193	Top = 1320
		194	Width = 585
		195	End
		196	Begin VB.Label Label6
		197	AutoSize = -1 'True
		198	BackStyle = 0 'Transparent
		199	Caption = "Preis"
		200	BeginProperty Font
		201	Name = "MS Sans Serif"
		202	Size = 8.25
		203	Charset = 0
		204	Weight = 700
		205	Underline = 0 'False
		206	Italic = 0 'False
		207	Strikethrough = 0 'False
		208	EndProperty
		209	ForeColor = &H00FFC0C0&
		210	Height = 195
		211	Left = 3120
		212	TabIndex = 6
		213	Top = 2400
		214	Width = 435
		215	End
		216	Begin VB.Label Label5
		217	AutoSize = -1 'True
		218	BackStyle = 0 'Transparent
		219	Caption = "Material"
		220	BeginProperty Font
		221	Name = "MS Sans Serif"
		222	Size = 8.25
		223	Charset = 0
		224	Weight = 700
		225	Underline = 0 'False
		226	Italic = 0 'False
		227	Strikethrough = 0 'False
		228	EndProperty
		229	ForeColor = &H00FFC0C0&
		230	Height = 195
		231	Left = 3120
		232	TabIndex = 5
		233	Top = 2040
		234	Width = 690
		235	End
		236	Begin VB.Label Label4
		237	AutoSize = -1 'True
		238	BackStyle = 0 'Transparent
		239	Caption = "Behinderung"
		240	BeginProperty Font
		241	Name = "MS Sans Serif"
		242	Size = 8.25
		243	Charset = 0
		244	Weight = 700
		245	Underline = 0 'False
		246	Italic = 0 'False
		247	Strikethrough = 0 'False
		248	EndProperty
		249	ForeColor = &H00FFC0C0&
		250	Height = 195
		251	Left = 3120
		252	TabIndex = 4
		253	Top = 1680
		254	Width = 1080
		255	End
		256	Begin VB.Label Label3
		257	AutoSize = -1 'True
		258	BackStyle = 0 'Transparent
		259	Caption = "Rüstschutz"
		260	BeginProperty Font
		261	Name = "MS Sans Serif"
		262	Size = 8.25
		263	Charset = 0
		264	Weight = 700
		265	Underline = 0 'False
		266	Italic = 0 'False
		267	Strikethrough = 0 'False
		268	EndProperty
		269	ForeColor = &H00FFC0C0&
		270	Height = 195
		271	Left = 3120
		272	TabIndex = 3
		273	Top = 1320
		274	Width = 960
		275	End
		276	Begin VB.Label Label2
		277	AutoSize = -1 'True
		278	BackStyle = 0 'Transparent
		279	Caption = "RS"
		280	BeginProperty Font
		281	Name = "MS Sans Serif"
		282	Size = 8.25
		283	Charset = 0
		284	Weight = 700
		285	Underline = -1 'True
		286	Italic = 0 'False
		287	Strikethrough = 0 'False
		288	EndProperty
		289	ForeColor = &H00FFFFFF&
		290	Height = 195
		291	Left = 4080
		292	TabIndex = 2
		293	Top = 960
		294	Width = 270
		295	End
		296	Begin VB.Shape Shape1
		297	BorderColor = &H00FF0000&
		298	Height = 1815
		299	Left = 3000
		300	Top = 840
		301	Width = 2655
		302	End
		303	Begin VB.Label Label1
		304	AutoSize = -1 'True
		305	BackStyle = 0 'Transparent
		306	Caption = "Gelm's Rüstschmiede"
		307	BeginProperty Font
		308	Name = "Tahoma"
		309	Size = 14.25
		310	Charset = 0
		311	Weight = 700
		312	Underline = 0 'False
		313	Italic = 0 'False
		314	Strikethrough = 0 'False
		315	EndProperty
		316	ForeColor = &H00FFFFFF&
		317	Height = 345
		318	Left = 1680
		319	TabIndex = 0
		320	Top = 120
		321	Width = 3060
		322	End
		323	End
		324	Attribute VB_Name = "LgRust1"
		325	Attribute VB_GlobalNameSpace = False
		326	Attribute VB_Creatable = False
		327	Attribute VB_PredeclaredId = True
		328	Attribute VB_Exposed = False
		329	Private Sub Command1_Click()
		330	If Text1.Text = "Xajek" Then Label17.Caption = "Xajek versucht einen Dämon zu beschwören, doch wir sind schon dabei, einige unserer Leute darauf vorzubereiten dort hineinzugehen und ihm den Garaus zu machen. Hehe. Und ich werde mitkommen."
		331	End Sub
		332
		333	Private Sub Command2_Click()
		334	Unload LgRust1
		335	Lindgar.Show
		336	End Sub
		337
		338	Private Sub Form_Load()
		339	RADIKAL
		340	initial
		341	End Sub
		342
		343	Private Sub Label13_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
		344	Dim lHandle As Long
		345	lHandle = LoadCursor(0, HandCursor)
		346	If (lHandle > 0) Then SetCursor lHandle
		347	End Sub
		348
		349	Private Sub Label2_Click()
		350	If typus = "Paladin" And kmaterial = "Leder" Then MsgBox "Als Paladin darfst du keine Lederrüstung tragen!": GoTo nixda
		351	If magician = 1 And kamterial <> "Leder" Then MsgBox "Du darfst keine Metallrüstung tragen.": GoTo nixda
		352	If magician = 1 Or typus = "Barbar" Then MsgBox "Du darfst nur Lederrüstungen tragen.": GoTo nixda
		353	If gold < kpreis Then Label17.Caption = "Jau, jetzt brauchst du nur noch Geld.": GoTo nixda
		354	gold = gold - kpreis
		355	rüstung = kwaffe
		356	rs = krs
		357	be = kbe
		358	rsmat = kmaterial
		359	Label17.Caption = "Das wird dir helfen!"
		360	initial
		361	nixda:
		362	End Sub
		363
		364	Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
		365	Dim lHandle As Long
		366	lHandle = LoadCursor(0, HandCursor)
		367	If (lHandle > 0) Then SetCursor lHandle
		368	End Sub
		369
		370	Private Sub List1_Click()
		371	If List1.Text = "Kettenhemd" Then GoTo khemd
		372	If List1.Text = "Kettenmantel" Then GoTo kmantel
		373	If List1.Text = "Schuppenpanzer" Then GoTo spanzer
		374	If List1.Text = "Plattenharnisch" Then GoTo pharnisch
		375	If List1.Text = "Plattenpanzer" Then GoTo ppanzer
		376	khemd:
		377	kwaffe = "Kettenhemd"
		378	krs = 2
		379	kbe = 2
		380	kmaterial = "Stahl"
		381	kpreis = 120
		382	GoTo weiter
		383	kmantel:
		384	kwaffe = "Kettenmantel"
		385	krs = 3
		386	kbe = 3
		387	kmaterial = "Stahl"
		388	kpreis = 180
		389	GoTo weiter
		390	spanzer:
		391	kwaffe = "Schuppenpanzer"
		392	krs = 5
		393	kbe = 5
		394	kmaterial = "Stahl"
		395	kpreis = 320
		396	GoTo weiter
		397	pharnisch:
		398	kwaffe = "Plattenharnisch"
		399	krs = 4
		400	kbe = 3
		401	kmaterial = "Stahl"
		402	kpreis = 240
		403	GoTo weiter
		404	ppanzer:
		405	kwaffe = "Plattenpanzer"
		406	krs = 6
		407	kbe = 6
		408	kmaterial = "Stahl"
		409	kpreis = 400
		410	weiter:
		411	initial
		412	End Sub
		413	Sub initial()
		414	Label2.Caption = kwaffe
		415	Label7.Caption = krs
		416	Label8.Caption = kbe
		417	Label9.Caption = kmaterial
		418	Label10.Caption = kpreis
		419	Label12.Caption = gold
		420	End Sub

Subversion Repositories aysalia

aysalia/trunk/Schatten über Aysalia/LgRust1.frm – Rev 2