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

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

Subversion Repositories aysalia

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