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

Rev	Author	Line No.	Line
2	daniel-mar	1	VERSION 5.00
		2	Begin VB.Form Vorgeschichte
		3	BackColor = &H00674E3A&
		4	BorderStyle = 0 'None
		5	ClientHeight = 6315
		6	ClientLeft = 0
		7	ClientTop = 60
		8	ClientWidth = 5955
		9	ControlBox = 0 'False
		10	LinkTopic = "Vorgeschichte"
		11	ScaleHeight = 6315
		12	ScaleWidth = 5955
		13	ShowInTaskbar = 0 'False
		14	StartUpPosition = 2 'CenterScreen
		15	Begin VB.CommandButton Command1
		16	BackColor = &H00FF8080&
		17	Cancel = -1 'True
		18	Caption = "Bestätigen"
		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 = 4440
		31	Style = 1 'Graphical
		32	TabIndex = 4
		33	Top = 5760
		34	Width = 1335
		35	End
		36	Begin VB.Label Label8
		37	AutoSize = -1 'True
		38	BackStyle = 0 'Transparent
		39	Caption = "nach einem Helden, der"
		40	BeginProperty Font
		41	Name = "Arial"
		42	Size = 12
		43	Charset = 0
		44	Weight = 700
		45	Underline = 0 'False
		46	Italic = 0 'False
		47	Strikethrough = 0 'False
		48	EndProperty
		49	ForeColor = &H00E0E0E0&
		50	Height = 285
		51	Left = 2880
		52	TabIndex = 8
		53	Top = 3480
		54	Width = 2685
		55	End
		56	Begin VB.Label Label7
		57	AutoSize = -1 'True
		58	BackStyle = 0 'Transparent
		59	Caption = "schreit"
		60	BeginProperty Font
		61	Name = "Arial"
		62	Size = 14.25
		63	Charset = 0
		64	Weight = 700
		65	Underline = 0 'False
		66	Italic = -1 'True
		67	Strikethrough = 0 'False
		68	EndProperty
		69	ForeColor = &H00FFFFFF&
		70	Height = 345
		71	Left = 1680
		72	TabIndex = 7
		73	Top = 3450
		74	Width = 975
		75	End
		76	Begin VB.Label Label6
		77	AutoSize = -1 'True
		78	BackStyle = 0 'Transparent
		79	Caption = "Das Land"
		80	BeginProperty Font
		81	Name = "Arial"
		82	Size = 12
		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 = 285
		91	Left = 480
		92	TabIndex = 6
		93	Top = 3480
		94	Width = 1095
		95	End
		96	Begin VB.Label Label5
		97	AutoSize = -1 'True
		98	BackStyle = 0 'Transparent
		99	Caption = "Was bisher geschah..."
		100	BeginProperty Font
		101	Name = "Arial"
		102	Size = 12
		103	Charset = 0
		104	Weight = 700
		105	Underline = 0 'False
		106	Italic = 0 'False
		107	Strikethrough = 0 'False
		108	EndProperty
		109	ForeColor = &H0000FFFF&
		110	Height = 285
		111	Left = 480
		112	TabIndex = 5
		113	Top = 360
		114	Width = 2505
		115	End
		116	Begin VB.Label Label4
		117	Alignment = 1 'Right Justify
		118	AutoSize = -1 'True
		119	BackStyle = 0 'Transparent
		120	Caption = "#Name einfügen#"
		121	BeginProperty Font
		122	Name = "Times New Roman"
		123	Size = 18
		124	Charset = 0
		125	Weight = 400
		126	Underline = 0 'False
		127	Italic = 0 'False
		128	Strikethrough = 0 'False
		129	EndProperty
		130	ForeColor = &H000000FF&
		131	Height = 405
		132	Left = 3240
		133	TabIndex = 3
		134	Top = 5160
		135	Width = 2550
		136	End
		137	Begin VB.Label Label3
		138	AutoSize = -1 'True
		139	BackStyle = 0 'Transparent
		140	Caption = "Und dieser Held bist du,"
		141	BeginProperty Font
		142	Name = "Arial"
		143	Size = 12
		144	Charset = 0
		145	Weight = 700
		146	Underline = 0 'False
		147	Italic = 0 'False
		148	Strikethrough = 0 'False
		149	EndProperty
		150	ForeColor = &H00E0E0E0&
		151	Height = 285
		152	Left = 480
		153	TabIndex = 2
		154	Top = 4800
		155	Width = 2730
		156	End
		157	Begin VB.Label Label2
		158	AutoSize = -1 'True
		159	BackStyle = 0 'Transparent
		160	Caption = "dieses von der Dunkelheit ins Licht führt."
		161	BeginProperty Font
		162	Name = "Arial"
		163	Size = 12
		164	Charset = 0
		165	Weight = 700
		166	Underline = 0 'False
		167	Italic = 0 'False
		168	Strikethrough = 0 'False
		169	EndProperty
		170	ForeColor = &H00E0E0E0&
		171	Height = 285
		172	Left = 480
		173	TabIndex = 1
		174	Top = 3840
		175	Width = 4665
		176	End
		177	Begin VB.Label Label1
		178	BackStyle = 0 'Transparent
		179	Caption = $"DQstory.frx":0000
		180	BeginProperty Font
		181	Name = "Arial"
		182	Size = 12
		183	Charset = 0
		184	Weight = 700
		185	Underline = 0 'False
		186	Italic = 0 'False
		187	Strikethrough = 0 'False
		188	EndProperty
		189	ForeColor = &H00C0C0C0&
		190	Height = 2415
		191	Left = 480
		192	TabIndex = 0
		193	Top = 840
		194	Width = 5175
		195	End
		196	End
		197	Attribute VB_Name = "Vorgeschichte"
		198	Attribute VB_GlobalNameSpace = False
		199	Attribute VB_Creatable = False
		200	Attribute VB_PredeclaredId = True
		201	Attribute VB_Exposed = False
		202	Private Sub Command1_Click()
		203	wettera = Int(4 * Rnd)
		204	If wettera = 0 Then wetter = "Klar"
		205	If wettera = 1 Then wetter = "Regen"
		206	If wettera = 2 Then wetter = "Sonnig"
		207	If wettera = 3 Then wetter = "Klar"
		208
		209	Unload Vorgeschichte
		210	Landkarte.Show
		211	End Sub
		212
		213	Private Sub Form_Load()
		214	Label4.Caption = nom
		215	End Sub
		216

Subversion Repositories aysalia

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