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

Rev	Author	Line No.	Line
2	daniel-mar	1	VERSION 5.00
		2	Begin VB.Form Shaela
		3	BackColor = &H00400040&
		4	BorderStyle = 0 'None
		5	Caption = "Shaela"
		6	ClientHeight = 4275
		7	ClientLeft = 0
		8	ClientTop = 0
		9	ClientWidth = 6615
		10	LinkTopic = "Shaela"
		11	ScaleHeight = 4275
		12	ScaleWidth = 6615
		13	ShowInTaskbar = 0 'False
		14	StartUpPosition = 2 'CenterScreen
		15	Begin VB.CommandButton Command1
		16	BackColor = &H00FF80FF&
		17	Caption = "Verlassen"
		18	BeginProperty Font
		19	Name = "MS Sans Serif"
		20	Size = 8.25
		21	Charset = 0
		22	Weight = 700
		23	Underline = 0 'False
		24	Italic = 0 'False
		25	Strikethrough = 0 'False
		26	EndProperty
		27	Height = 375
		28	Left = 5160
		29	Style = 1 'Graphical
		30	TabIndex = 7
		31	Top = 3720
		32	Width = 1335
		33	End
		34	Begin VB.Label Label9
		35	AutoSize = -1 'True
		36	BackStyle = 0 'Transparent
		37	Caption = "Tarion stellt lederne Rüstungen her."
		38	BeginProperty Font
		39	Name = "Arial"
		40	Size = 8.25
		41	Charset = 0
		42	Weight = 400
		43	Underline = 0 'False
		44	Italic = 0 'False
		45	Strikethrough = 0 'False
		46	EndProperty
		47	ForeColor = &H00FFFFFF&
		48	Height = 210
		49	Left = 360
		50	TabIndex = 6
		51	Top = 3480
		52	Width = 2565
		53	End
		54	Begin VB.Label Label8
		55	AutoSize = -1 'True
		56	BackStyle = 0 'Transparent
		57	Caption = "Harnischmacher Tarion"
		58	BeginProperty Font
		59	Name = "Arial"
		60	Size = 12
		61	Charset = 0
		62	Weight = 700
		63	Underline = -1 'True
		64	Italic = 0 'False
		65	Strikethrough = 0 'False
		66	EndProperty
		67	ForeColor = &H00FFFFFF&
		68	Height = 285
		69	Left = 360
		70	TabIndex = 5
		71	Top = 3120
		72	Width = 2685
		73	End
		74	Begin VB.Label Label5
		75	BackStyle = 0 'Transparent
		76	Caption = "Laurana stellt Bögen von bester elfischer Qualität her."
		77	BeginProperty Font
		78	Name = "Arial"
		79	Size = 8.25
		80	Charset = 0
		81	Weight = 400
		82	Underline = 0 'False
		83	Italic = 0 'False
		84	Strikethrough = 0 'False
		85	EndProperty
		86	ForeColor = &H00FFFFFF&
		87	Height = 735
		88	Left = 360
		89	TabIndex = 4
		90	Top = 2400
		91	Width = 3255
		92	End
		93	Begin VB.Label Label4
		94	AutoSize = -1 'True
		95	BackStyle = 0 'Transparent
		96	Caption = "Bogenbauerin Laurana"
		97	BeginProperty Font
		98	Name = "Arial"
		99	Size = 12
		100	Charset = 0
		101	Weight = 700
		102	Underline = -1 'True
		103	Italic = 0 'False
		104	Strikethrough = 0 'False
		105	EndProperty
		106	ForeColor = &H00FFFFFF&
		107	Height = 285
		108	Left = 360
		109	TabIndex = 3
		110	Top = 2040
		111	Width = 2640
		112	End
		113	Begin VB.Label Label3
		114	BackStyle = 0 'Transparent
		115	Caption = "Talara verkauft feinste elfische Waffen, die zur Kategorien Speere und Schwerter zählen."
		116	BeginProperty Font
		117	Name = "Arial"
		118	Size = 8.25
		119	Charset = 0
		120	Weight = 400
		121	Underline = 0 'False
		122	Italic = 0 'False
		123	Strikethrough = 0 'False
		124	EndProperty
		125	ForeColor = &H00FFFFFF&
		126	Height = 615
		127	Left = 360
		128	TabIndex = 2
		129	Top = 1200
		130	Width = 3255
		131	End
		132	Begin VB.Label Label2
		133	AutoSize = -1 'True
		134	BackStyle = 0 'Transparent
		135	Caption = "Waffenschmiedin Talara"
		136	BeginProperty Font
		137	Name = "Arial"
		138	Size = 12
		139	Charset = 0
		140	Weight = 700
		141	Underline = -1 'True
		142	Italic = 0 'False
		143	Strikethrough = 0 'False
		144	EndProperty
		145	ForeColor = &H00FFFFFF&
		146	Height = 285
		147	Left = 360
		148	TabIndex = 1
		149	Top = 840
		150	Width = 2745
		151	End
		152	Begin VB.Label Label1
		153	AutoSize = -1 'True
		154	BackStyle = 0 'Transparent
		155	Caption = "Shaela"
		156	BeginProperty Font
		157	Name = "Times New Roman"
		158	Size = 26.25
		159	Charset = 0
		160	Weight = 700
		161	Underline = 0 'False
		162	Italic = 0 'False
		163	Strikethrough = 0 'False
		164	EndProperty
		165	ForeColor = &H00FF00FF&
		166	Height = 600
		167	Left = 4680
		168	TabIndex = 0
		169	Top = 720
		170	Width = 1485
		171	End
		172	End
		173	Attribute VB_Name = "Shaela"
		174	Attribute VB_GlobalNameSpace = False
		175	Attribute VB_Creatable = False
		176	Attribute VB_PredeclaredId = True
		177	Attribute VB_Exposed = False
		178	Private Sub Command1_Click()
		179	Unload Shaela
		180	Landkarte.Show
		181	End Sub
		182
		183	Private Sub Label2_Click()
		184	ShSmith4.Show
		185	Unload Shaela
		186	End Sub
		187
		188	Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
		189	Dim lHandle As Long
		190	lHandle = LoadCursor(0, HandCursor)
		191	If (lHandle > 0) Then SetCursor lHandle
		192	End Sub
		193
		194	Private Sub Label4_Click()
		195	If yyPfeile = 1 Then MsgBox "Danke, hier ist deine Belohnung!", 64 + 0, "Laurana": MsgBox "Du erhältst 60 Goldkronen": MsgBox "Du erhältst 50 Erfahrungspunkte": gold = gold + 60: explus = 50: GetExperience: yyPfeile = 2
		196	ShBow2.Show
		197	Unload Shaela
		198	End Sub
		199
		200	Private Sub Label6_Click()
		201	ShGilde4.Show
		202	Unload Shaela
		203	End Sub
		204
		205	Private Sub Label4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
		206	Dim lHandle As Long
		207	lHandle = LoadCursor(0, HandCursor)
		208	If (lHandle > 0) Then SetCursor lHandle
		209	End Sub
		210
		211	Private Sub Label8_Click()
		212	ShRust4.Show
		213	Unload Shaela
		214	End Sub
		215
		216	Private Sub Label8_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
		217	Dim lHandle As Long
		218	lHandle = LoadCursor(0, HandCursor)
		219	If (lHandle > 0) Then SetCursor lHandle
		220	End Sub

Subversion Repositories aysalia

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