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

Rev	Author	Line No.	Line
2	daniel-mar	1	VERSION 5.00
		2	Begin VB.Form LevelFort
		3	BackColor = &H00000000&
		4	BorderStyle = 1 'Fixed Single
		5	Caption = "Nächste Stufe"
		6	ClientHeight = 5415
		7	ClientLeft = 45
		8	ClientTop = 495
		9	ClientWidth = 5940
		10	LinkTopic = "LevelFort"
		11	MaxButton = 0 'False
		12	MinButton = 0 'False
		13	ScaleHeight = 5415
		14	ScaleWidth = 5940
		15	StartUpPosition = 1 'CenterOwner
		16	Begin VB.CommandButton Command4
		17	BackColor = &H00E0E0E0&
		18	Cancel = -1 'True
		19	Caption = "Schließen"
		20	Default = -1 'True
		21	BeginProperty Font
		22	Name = "MS Sans Serif"
		23	Size = 8.25
		24	Charset = 0
		25	Weight = 700
		26	Underline = 0 'False
		27	Italic = 0 'False
		28	Strikethrough = 0 'False
		29	EndProperty
		30	Height = 375
		31	Left = 4320
		32	Style = 1 'Graphical
		33	TabIndex = 23
		34	Top = 4560
		35	Width = 1215
		36	End
		37	Begin VB.Frame Frame3
		38	BackColor = &H00000000&
		39	Caption = "Charakterwerte"
		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	ForeColor = &H00FFFFFF&
		50	Height = 3375
		51	Left = 480
		52	TabIndex = 0
		53	Top = 1560
		54	Width = 3615
		55	Begin VB.CommandButton Command3
		56	Caption = "+"
		57	BeginProperty Font
		58	Name = "MS Sans Serif"
		59	Size = 13.5
		60	Charset = 0
		61	Weight = 400
		62	Underline = 0 'False
		63	Italic = 0 'False
		64	Strikethrough = 0 'False
		65	EndProperty
		66	Height = 255
		67	Left = 3000
		68	TabIndex = 3
		69	Top = 1560
		70	Width = 375
		71	End
		72	Begin VB.CommandButton Command2
		73	Caption = "+"
		74	BeginProperty Font
		75	Name = "MS Sans Serif"
		76	Size = 13.5
		77	Charset = 0
		78	Weight = 400
		79	Underline = 0 'False
		80	Italic = 0 'False
		81	Strikethrough = 0 'False
		82	EndProperty
		83	Height = 255
		84	Left = 3000
		85	TabIndex = 2
		86	Top = 960
		87	Width = 375
		88	End
		89	Begin VB.CommandButton Command1
		90	Caption = "+"
		91	BeginProperty Font
		92	Name = "MS Sans Serif"
		93	Size = 13.5
		94	Charset = 0
		95	Weight = 400
		96	Underline = 0 'False
		97	Italic = 0 'False
		98	Strikethrough = 0 'False
		99	EndProperty
		100	Height = 255
		101	Left = 3000
		102	TabIndex = 1
		103	Top = 360
		104	Width = 375
		105	End
		106	Begin VB.Label Label23
		107	AutoSize = -1 'True
		108	BackStyle = 0 'Transparent
		109	Caption = "/"
		110	BeginProperty Font
		111	Name = "MS Sans Serif"
		112	Size = 9.75
		113	Charset = 0
		114	Weight = 700
		115	Underline = 0 'False
		116	Italic = 0 'False
		117	Strikethrough = 0 'False
		118	EndProperty
		119	ForeColor = &H0000FFFF&
		120	Height = 240
		121	Left = 2880
		122	TabIndex = 27
		123	Top = 2880
		124	Width = 90
		125	End
		126	Begin VB.Label Label22
		127	AutoSize = -1 'True
		128	BackStyle = 0 'Transparent
		129	Caption = "/"
		130	BeginProperty Font
		131	Name = "MS Sans Serif"
		132	Size = 9.75
		133	Charset = 0
		134	Weight = 700
		135	Underline = 0 'False
		136	Italic = 0 'False
		137	Strikethrough = 0 'False
		138	EndProperty
		139	ForeColor = &H0000FFFF&
		140	Height = 240
		141	Left = 2880
		142	TabIndex = 26
		143	Top = 2280
		144	Width = 90
		145	End
		146	Begin VB.Label Label21
		147	AutoSize = -1 'True
		148	BackStyle = 0 'Transparent
		149	BorderStyle = 1 'Fixed Single
		150	Caption = "00"
		151	BeginProperty Font
		152	Name = "MS Sans Serif"
		153	Size = 9.75
		154	Charset = 0
		155	Weight = 700
		156	Underline = 0 'False
		157	Italic = 0 'False
		158	Strikethrough = 0 'False
		159	EndProperty
		160	ForeColor = &H0000FF00&
		161	Height = 300
		162	Left = 3000
		163	TabIndex = 25
		164	Top = 2880
		165	Width = 315
		166	End
		167	Begin VB.Label Label20
		168	AutoSize = -1 'True
		169	BackStyle = 0 'Transparent
		170	BorderStyle = 1 'Fixed Single
		171	Caption = "00"
		172	BeginProperty Font
		173	Name = "MS Sans Serif"
		174	Size = 9.75
		175	Charset = 0
		176	Weight = 700
		177	Underline = 0 'False
		178	Italic = 0 'False
		179	Strikethrough = 0 'False
		180	EndProperty
		181	ForeColor = &H0000FF00&
		182	Height = 300
		183	Left = 3000
		184	TabIndex = 24
		185	Top = 2280
		186	Width = 315
		187	End
		188	Begin VB.Label Label12
		189	AutoSize = -1 'True
		190	BackStyle = 0 'Transparent
		191	BorderStyle = 1 'Fixed Single
		192	Caption = "00"
		193	BeginProperty Font
		194	Name = "MS Sans Serif"
		195	Size = 9.75
		196	Charset = 0
		197	Weight = 700
		198	Underline = 0 'False
		199	Italic = 0 'False
		200	Strikethrough = 0 'False
		201	EndProperty
		202	ForeColor = &H00FF8080&
		203	Height = 300
		204	Left = 2520
		205	TabIndex = 13
		206	Top = 2880
		207	Width = 315
		208	End
		209	Begin VB.Label Label11
		210	AutoSize = -1 'True
		211	BackStyle = 0 'Transparent
		212	BorderStyle = 1 'Fixed Single
		213	Caption = "00"
		214	BeginProperty Font
		215	Name = "MS Sans Serif"
		216	Size = 9.75
		217	Charset = 0
		218	Weight = 700
		219	Underline = 0 'False
		220	Italic = 0 'False
		221	Strikethrough = 0 'False
		222	EndProperty
		223	ForeColor = &H00FF8080&
		224	Height = 300
		225	Left = 2520
		226	TabIndex = 12
		227	Top = 2280
		228	Width = 315
		229	End
		230	Begin VB.Label Label10
		231	AutoSize = -1 'True
		232	BackStyle = 0 'Transparent
		233	Caption = "Mana"
		234	BeginProperty Font
		235	Name = "Tahoma"
		236	Size = 14.25
		237	Charset = 0
		238	Weight = 700
		239	Underline = 0 'False
		240	Italic = 0 'False
		241	Strikethrough = 0 'False
		242	EndProperty
		243	ForeColor = &H00FF8080&
		244	Height = 345
		245	Left = 240
		246	TabIndex = 11
		247	Top = 2880
		248	Width = 765
		249	End
		250	Begin VB.Label Label9
		251	AutoSize = -1 'True
		252	BackStyle = 0 'Transparent
		253	Caption = "Lebensenergie"
		254	BeginProperty Font
		255	Name = "Tahoma"
		256	Size = 14.25
		257	Charset = 0
		258	Weight = 700
		259	Underline = 0 'False
		260	Italic = 0 'False
		261	Strikethrough = 0 'False
		262	EndProperty
		263	ForeColor = &H008080FF&
		264	Height = 345
		265	Left = 240
		266	TabIndex = 10
		267	Top = 2280
		268	Width = 2070
		269	End
		270	Begin VB.Label Label8
		271	AutoSize = -1 'True
		272	BackStyle = 0 'Transparent
		273	BorderStyle = 1 'Fixed Single
		274	Caption = "00"
		275	BeginProperty Font
		276	Name = "MS Sans Serif"
		277	Size = 9.75
		278	Charset = 0
		279	Weight = 700
		280	Underline = 0 'False
		281	Italic = 0 'False
		282	Strikethrough = 0 'False
		283	EndProperty
		284	ForeColor = &H00FF8080&
		285	Height = 300
		286	Left = 2520
		287	TabIndex = 9
		288	Top = 1560
		289	Width = 315
		290	End
		291	Begin VB.Label Label7
		292	AutoSize = -1 'True
		293	BackStyle = 0 'Transparent
		294	BorderStyle = 1 'Fixed Single
		295	Caption = "00"
		296	BeginProperty Font
		297	Name = "MS Sans Serif"
		298	Size = 9.75
		299	Charset = 0
		300	Weight = 700
		301	Underline = 0 'False
		302	Italic = 0 'False
		303	Strikethrough = 0 'False
		304	EndProperty
		305	ForeColor = &H00FF8080&
		306	Height = 300
		307	Left = 2520
		308	TabIndex = 8
		309	Top = 960
		310	Width = 315
		311	End
		312	Begin VB.Label Label6
		313	AutoSize = -1 'True
		314	BackStyle = 0 'Transparent
		315	BorderStyle = 1 'Fixed Single
		316	Caption = "00"
		317	BeginProperty Font
		318	Name = "MS Sans Serif"
		319	Size = 9.75
		320	Charset = 0
		321	Weight = 700
		322	Underline = 0 'False
		323	Italic = 0 'False
		324	Strikethrough = 0 'False
		325	EndProperty
		326	ForeColor = &H00FF8080&
		327	Height = 300
		328	Left = 2520
		329	TabIndex = 7
		330	Top = 360
		331	Width = 315
		332	End
		333	Begin VB.Label Label5
		334	AutoSize = -1 'True
		335	BackColor = &H00000000&
		336	BackStyle = 0 'Transparent
		337	Caption = "Gewandtheit"
		338	BeginProperty Font
		339	Name = "Tahoma"
		340	Size = 14.25
		341	Charset = 0
		342	Weight = 700
		343	Underline = 0 'False
		344	Italic = 0 'False
		345	Strikethrough = 0 'False
		346	EndProperty
		347	ForeColor = &H0000FFFF&
		348	Height = 345
		349	Left = 240
		350	TabIndex = 6
		351	Top = 1560
		352	Width = 1830
		353	End
		354	Begin VB.Label Label4
		355	AutoSize = -1 'True
		356	BackColor = &H00000000&
		357	BackStyle = 0 'Transparent
		358	Caption = "Intelligenz"
		359	BeginProperty Font
		360	Name = "Tahoma"
		361	Size = 14.25
		362	Charset = 0
		363	Weight = 700
		364	Underline = 0 'False
		365	Italic = 0 'False
		366	Strikethrough = 0 'False
		367	EndProperty
		368	ForeColor = &H0000FFFF&
		369	Height = 345
		370	Left = 240
		371	TabIndex = 5
		372	Top = 960
		373	Width = 1545
		374	End
		375	Begin VB.Label Label3
		376	AutoSize = -1 'True
		377	BackColor = &H00000000&
		378	BackStyle = 0 'Transparent
		379	Caption = "Stärke"
		380	BeginProperty Font
		381	Name = "Tahoma"
		382	Size = 14.25
		383	Charset = 0
		384	Weight = 700
		385	Underline = 0 'False
		386	Italic = 0 'False
		387	Strikethrough = 0 'False
		388	EndProperty
		389	ForeColor = &H0000FFFF&
		390	Height = 345
		391	Left = 240
		392	TabIndex = 4
		393	Top = 360
		394	Width = 915
		395	End
		396	End
		397	Begin VB.Label Label19
		398	AutoSize = -1 'True
		399	BackStyle = 0 'Transparent
		400	BorderStyle = 1 'Fixed Single
		401	Caption = "la19"
		402	BeginProperty Font
		403	Name = "Tahoma"
		404	Size = 20.25
		405	Charset = 0
		406	Weight = 700
		407	Underline = 0 'False
		408	Italic = 0 'False
		409	Strikethrough = 0 'False
		410	EndProperty
		411	ForeColor = &H00FFFF00&
		412	Height = 555
		413	Left = 4320
		414	TabIndex = 22
		415	Top = 2040
		416	Width = 930
		417	End
		418	Begin VB.Label Label18
		419	AutoSize = -1 'True
		420	BackStyle = 0 'Transparent
		421	Caption = "Punkte"
		422	BeginProperty Font
		423	Name = "Tahoma"
		424	Size = 18
		425	Charset = 0
		426	Weight = 700
		427	Underline = 0 'False
		428	Italic = 0 'False
		429	Strikethrough = 0 'False
		430	EndProperty
		431	ForeColor = &H00FFFFFF&
		432	Height = 435
		433	Left = 4320
		434	TabIndex = 21
		435	Top = 1560
		436	Width = 1260
		437	End
		438	Begin VB.Label Label17
		439	AutoSize = -1 'True
		440	BackStyle = 0 'Transparent
		441	Caption = "la17"
		442	BeginProperty Font
		443	Name = "MS Sans Serif"
		444	Size = 8.25
		445	Charset = 0
		446	Weight = 700
		447	Underline = 0 'False
		448	Italic = 0 'False
		449	Strikethrough = 0 'False
		450	EndProperty
		451	ForeColor = &H0000FFFF&
		452	Height = 195
		453	Left = 2220
		454	TabIndex = 20
		455	Top = 720
		456	Width = 375
		457	End
		458	Begin VB.Label Label16
		459	AutoSize = -1 'True
		460	BackStyle = 0 'Transparent
		461	Caption = "la16"
		462	BeginProperty Font
		463	Name = "MS Sans Serif"
		464	Size = 8.25
		465	Charset = 0
		466	Weight = 700
		467	Underline = 0 'False
		468	Italic = 0 'False
		469	Strikethrough = 0 'False
		470	EndProperty
		471	ForeColor = &H0000FF00&
		472	Height = 195
		473	Left = 2760
		474	TabIndex = 19
		475	Top = 1080
		476	Width = 375
		477	End
		478	Begin VB.Label Label15
		479	BackStyle = 0 'Transparent
		480	Caption = "/"
		481	BeginProperty Font
		482	Name = "MS Sans Serif"
		483	Size = 8.25
		484	Charset = 0
		485	Weight = 700
		486	Underline = 0 'False
		487	Italic = 0 'False
		488	Strikethrough = 0 'False
		489	EndProperty
		490	ForeColor = &H00C0C0FF&
		491	Height = 255
		492	Left = 2640
		493	TabIndex = 18
		494	Top = 1080
		495	Width = 135
		496	End
		497	Begin VB.Label Label14
		498	Alignment = 1 'Right Justify
		499	AutoSize = -1 'True
		500	BackStyle = 0 'Transparent
		501	Caption = "la14"
		502	BeginProperty Font
		503	Name = "MS Sans Serif"
		504	Size = 8.25
		505	Charset = 0
		506	Weight = 700
		507	Underline = 0 'False
		508	Italic = 0 'False
		509	Strikethrough = 0 'False
		510	EndProperty
		511	ForeColor = &H0000FF00&
		512	Height = 195
		513	Left = 2220
		514	TabIndex = 17
		515	Top = 1080
		516	Width = 375
		517	End
		518	Begin VB.Label Label13
		519	BackStyle = 0 'Transparent
		520	Caption = "Erfahrung"
		521	BeginProperty Font
		522	Name = "Tahoma"
		523	Size = 9.75
		524	Charset = 0
		525	Weight = 700
		526	Underline = 0 'False
		527	Italic = 0 'False
		528	Strikethrough = 0 'False
		529	EndProperty
		530	ForeColor = &H00C0C0FF&
		531	Height = 255
		532	Left = 480
		533	TabIndex = 16
		534	Top = 1080
		535	Width = 975
		536	End
		537	Begin VB.Label Label2
		538	BackStyle = 0 'Transparent
		539	Caption = "Stufe"
		540	BeginProperty Font
		541	Name = "Tahoma"
		542	Size = 9.75
		543	Charset = 0
		544	Weight = 700
		545	Underline = 0 'False
		546	Italic = 0 'False
		547	Strikethrough = 0 'False
		548	EndProperty
		549	ForeColor = &H00C0C0FF&
		550	Height = 255
		551	Left = 480
		552	TabIndex = 15
		553	Top = 720
		554	Width = 975
		555	End
		556	Begin VB.Label Label1
		557	AutoSize = -1 'True
		558	BackStyle = 0 'Transparent
		559	Caption = "Du hast die nächste Stufe erreicht!"
		560	BeginProperty Font
		561	Name = "Tahoma"
		562	Size = 14.25
		563	Charset = 0
		564	Weight = 700
		565	Underline = 0 'False
		566	Italic = 0 'False
		567	Strikethrough = 0 'False
		568	EndProperty
		569	ForeColor = &H00FFFFFF&
		570	Height = 345
		571	Left = 480
		572	TabIndex = 14
		573	Top = 240
		574	Width = 4965
		575	End
		576	End
		577	Attribute VB_Name = "LevelFort"
		578	Attribute VB_GlobalNameSpace = False
		579	Attribute VB_Creatable = False
		580	Attribute VB_PredeclaredId = True
		581	Attribute VB_Exposed = False
		582	Private Sub Command1_Click()
		583	If punkte = 0 Then Fehler: GoTo no
		584	Rutiene
		585	Strength = Strength + 1
		586	Label6.Caption = Strength
		587	no:
		588	End Sub
		589
		590	Private Sub Command2_Click()
		591	If punkte = 0 Then Fehler: GoTo no2
		592	Rutiene
		593	Iq = Iq + 1
		594	Label7.Caption = Iq
		595	no2:
		596	End Sub
		597
		598	Private Sub Command3_Click()
		599	If punkte = 0 Then Fehler: GoTo no3
		600	Rutiene
		601	Speed = Speed + 1
		602	Label8.Caption = Speed
		603	no3:
		604	End Sub
		605
		606	Private Sub Command4_Click()
		607	Unload LevelFort
		608	End Sub
		609
		610	Private Sub Form_Load()
		611	stufe = stufe + 1
		612	punkte = punkte + 5
		613	NextLevel = (NextLevel + stufe * 100) - 100
		614	Label20.Caption = STARThp
		615	Label21.Caption = STARTmp
		616	Label17.Caption = stufe
		617	Label14.Caption = experience
		618	Label16.Caption = NextLevel
		619	Label6.Caption = Strength
		620	Label7.Caption = Iq
		621	Label8.Caption = Speed
		622	Label11.Caption = hp
		623	Label12.Caption = mp
		624	Label19.Caption = punkte
		625	End Sub
		626	Private Sub Rutiene()
		627	punkte = punkte - 1
		628	Label19.Caption = punkte
		629	End Sub
		630

Subversion Repositories aysalia

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