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

Rev	Author	Line No.	Line
2	daniel-mar	1	VERSION 5.00
		2	Begin VB.Form ShBow2
		3	BackColor = &H00404000&
		4	BorderStyle = 0 'None
		5	Caption = "ShBow2"
		6	ClientHeight = 6525
		7	ClientLeft = 0
		8	ClientTop = 0
		9	ClientWidth = 8055
		10	LinkTopic = "ShBow2"
		11	ScaleHeight = 6525
		12	ScaleWidth = 8055
		13	ShowInTaskbar = 0 'False
		14	StartUpPosition = 2 'CenterScreen
		15	Begin VB.CommandButton Command1
		16	BackColor = &H0080FF80&
		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 = 5880
		31	Style = 1 'Graphical
		32	TabIndex = 1
		33	Top = 4440
		34	Width = 1335
		35	End
		36	Begin VB.ListBox List1
		37	BackColor = &H00404040&
		38	BeginProperty Font
		39	Name = "Tahoma"
		40	Size = 9
		41	Charset = 0
		42	Weight = 700
		43	Underline = 0 'False
		44	Italic = 0 'False
		45	Strikethrough = 0 'False
		46	EndProperty
		47	ForeColor = &H00FFFFFF&
		48	Height = 2790
		49	ItemData = "ShBow2.frx":0000
		50	Left = 1560
		51	List = "ShBow2.frx":0016
		52	TabIndex = 0
		53	Top = 1080
		54	Width = 1815
		55	End
		56	Begin VB.Label Label6
		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 = 5760
		73	TabIndex = 13
		74	Top = 4920
		75	Width = 750
		76	End
		77	Begin VB.Label Label1
		78	AutoSize = -1 'True
		79	BackStyle = 0 'Transparent
		80	Caption = "Laurana die Bogenbauerin"
		81	BeginProperty Font
		82	Name = "Tahoma"
		83	Size = 21.75
		84	Charset = 0
		85	Weight = 700
		86	Underline = 0 'False
		87	Italic = 0 'False
		88	Strikethrough = 0 'False
		89	EndProperty
		90	ForeColor = &H00FF8080&
		91	Height = 525
		92	Left = 960
		93	TabIndex = 12
		94	Top = 240
		95	Width = 5775
		96	End
		97	Begin VB.Label Label2
		98	AutoSize = -1 'True
		99	BackStyle = 0 'Transparent
		100	Caption = "xxxxxxxxxxxx"
		101	BeginProperty Font
		102	Name = "MS Sans Serif"
		103	Size = 8.25
		104	Charset = 0
		105	Weight = 700
		106	Underline = -1 'True
		107	Italic = 0 'False
		108	Strikethrough = 0 'False
		109	EndProperty
		110	ForeColor = &H00FFFFFF&
		111	Height = 195
		112	Left = 4680
		113	TabIndex = 11
		114	Top = 1200
		115	Width = 1095
		116	End
		117	Begin VB.Label Label3
		118	Alignment = 1 'Right Justify
		119	AutoSize = -1 'True
		120	BackStyle = 0 'Transparent
		121	Caption = "xxx"
		122	BeginProperty Font
		123	Name = "MS Sans Serif"
		124	Size = 8.25
		125	Charset = 0
		126	Weight = 700
		127	Underline = 0 'False
		128	Italic = 0 'False
		129	Strikethrough = 0 'False
		130	EndProperty
		131	ForeColor = &H00FFFFFF&
		132	Height = 195
		133	Left = 4980
		134	TabIndex = 10
		135	Top = 1560
		136	Width = 285
		137	End
		138	Begin VB.Label Label5
		139	AutoSize = -1 'True
		140	BackStyle = 0 'Transparent
		141	Caption = "xxx"
		142	BeginProperty Font
		143	Name = "MS Sans Serif"
		144	Size = 8.25
		145	Charset = 0
		146	Weight = 700
		147	Underline = 0 'False
		148	Italic = 0 'False
		149	Strikethrough = 0 'False
		150	EndProperty
		151	ForeColor = &H00FFFFFF&
		152	Height = 195
		153	Left = 5400
		154	TabIndex = 9
		155	Top = 1560
		156	Width = 285
		157	End
		158	Begin VB.Label Label9
		159	AutoSize = -1 'True
		160	BackStyle = 0 'Transparent
		161	Caption = "Label9"
		162	BeginProperty Font
		163	Name = "MS Sans Serif"
		164	Size = 8.25
		165	Charset = 0
		166	Weight = 700
		167	Underline = 0 'False
		168	Italic = 0 'False
		169	Strikethrough = 0 'False
		170	EndProperty
		171	ForeColor = &H0000FFFF&
		172	Height = 195
		173	Left = 4680
		174	TabIndex = 8
		175	Top = 3480
		176	Width = 585
		177	End
		178	Begin VB.Label Label4
		179	AutoSize = -1 'True
		180	BackStyle = 0 'Transparent
		181	Caption = "-"
		182	BeginProperty Font
		183	Name = "MS Sans Serif"
		184	Size = 8.25
		185	Charset = 0
		186	Weight = 700
		187	Underline = 0 'False
		188	Italic = 0 'False
		189	Strikethrough = 0 'False
		190	EndProperty
		191	ForeColor = &H00FFFFFF&
		192	Height = 195
		193	Left = 5280
		194	TabIndex = 7
		195	Top = 1560
		196	Width = 75
		197	End
		198	Begin VB.Label Label10
		199	AutoSize = -1 'True
		200	BackStyle = 0 'Transparent
		201	Caption = "Goldkronen"
		202	ForeColor = &H0000FFFF&
		203	Height = 195
		204	Left = 3480
		205	TabIndex = 6
		206	Top = 3960
		207	Width = 825
		208	End
		209	Begin VB.Label Label11
		210	AutoSize = -1 'True
		211	BackStyle = 0 'Transparent
		212	Caption = "Label11"
		213	ForeColor = &H0000FFFF&
		214	Height = 195
		215	Left = 4440
		216	TabIndex = 5
		217	Top = 3960
		218	Width = 570
		219	End
		220	Begin VB.Label label12
		221	AutoSize = -1 'True
		222	BackStyle = 0 'Transparent
		223	Caption = "Schaden"
		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 = &H00FFC0C0&
		234	Height = 195
		235	Left = 3720
		236	TabIndex = 4
		237	Top = 1560
		238	Width = 765
		239	End
		240	Begin VB.Label Label16
		241	AutoSize = -1 'True
		242	BackStyle = 0 'Transparent
		243	Caption = "Preis"
		244	BeginProperty Font
		245	Name = "MS Sans Serif"
		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 = &H00FFC0C0&
		254	Height = 195
		255	Left = 3720
		256	TabIndex = 3
		257	Top = 3480
		258	Width = 435
		259	End
		260	Begin VB.Shape Shape1
		261	BorderColor = &H00FF0000&
		262	Height = 2775
		263	Left = 3480
		264	Top = 1080
		265	Width = 2775
		266	End
		267	Begin VB.Label Label17
		268	BackStyle = 0 'Transparent
		269	Caption = "Laurana die Bogenbauerin"
		270	BeginProperty Font
		271	Name = "MS Sans Serif"
		272	Size = 8.25
		273	Charset = 0
		274	Weight = 700
		275	Underline = 0 'False
		276	Italic = 0 'False
		277	Strikethrough = 0 'False
		278	EndProperty
		279	ForeColor = &H00E0E0E0&
		280	Height = 1215
		281	Left = 1200
		282	TabIndex = 2
		283	Top = 4440
		284	Width = 4575
		285	End
		286	End
		287	Attribute VB_Name = "ShBow2"
		288	Attribute VB_GlobalNameSpace = False
		289	Attribute VB_Creatable = False
		290	Attribute VB_PredeclaredId = True
		291	Attribute VB_Exposed = False
		292	Private Sub Command1_Click()
		293	Unload ShBow2
		294	Shaela.Show
		295	End Sub
		296
		297	Private Sub Form_Load()
		298	RADIKAL
		299	initial
		300	End Sub
		301
		302	Private Sub Label2_Click()
		303	If gold < kpreis Then Label17.Caption = "Du solltest schon etwas Gold dabei haben.": GoTo nixda
		304	gold = gold - kpreis
		305	If List1.Text = "Pfeil" Then pfeile = pfeile + 1: GoTo kkk
		306	bogen = kwaffe
		307	fkgrschaden = kgrundschaden
		308	fkzuschaden = kzusatzschaden
		309	kkk:
		310	Label17.Caption = "Das ist feinste Handarbeit!"
		311	initial
		312	nixda:
		313	End Sub
		314
		315	Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
		316	Dim lHandle As Long
		317	lHandle = LoadCursor(0, HandCursor)
		318	If (lHandle > 0) Then SetCursor lHandle
		319	End Sub
		320
		321	Private Sub Label6_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
		322	Dim lHandle As Long
		323	lHandle = LoadCursor(0, HandCursor)
		324	If (lHandle > 0) Then SetCursor lHandle
		325	End Sub
		326
		327	Private Sub List1_Click()
		328	If List1.Text = "Pfeil" Then GoTo pfeilo
		329	If List1.Text = "Kurzbogen" Then GoTo schwert
		330	If List1.Text = "Langbogen" Then GoTo breitschwert
		331	If List1.Text = "Kompositbogen" Then GoTo handaxt
		332	If List1.Text = "Kriegsbogen" Then GoTo streitaxt
		333	If List1.Text = "Elfenbogen" Then GoTo elfenbogen
		334	pfeilo:
		335	kwaffe = "Pfeil"
		336	kgrundschaden = 0
		337	kzusatzschaden = 0
		338	kpreis = 4
		339	GoTo weiter
		340	schwert:
		341	kwaffe = "Kurzbogen"
		342	kgrundschaden = 3
		343	kzusatzschaden = 4
		344	kpreis = 90
		345	GoTo weiter
		346	breitschwert:
		347	kwaffe = "Langbogen"
		348	kgrundschaden = 4
		349	kzusatzschaden = 6
		350	kpreis = 160
		351	GoTo weiter
		352	handaxt:
		353	kwaffe = "Kompositbogen"
		354	kgrundschaden = 2
		355	kzusatzschaden = 7
		356	kpreis = 130
		357	GoTo weiter
		358	streitaxt:
		359	kwaffe = "Kriegsbogen"
		360	kgrundschaden = 4
		361	kzusatzschaden = 10
		362	kpreis = 240
		363	GoTo weiter
		364	elfenbogen:
		365	kwaffe = "Elfenbogen"
		366	kgrundschaden = 3
		367	kzusatzschaden = 9
		368	kpreis = 200
		369	weiter:
		370	initial
		371	End Sub
		372
		373	Sub initial()
		374	Label2.Caption = kwaffe
		375	Label3.Caption = kgrundschaden
		376	Label5.Caption = kgrundschaden + kzusatzschaden
		377	Label9.Caption = Str(kpreis) + " Goldkronen"
		378	Label11.Caption = gold
		379	End Sub
		380

Subversion Repositories aysalia

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