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

Rev	Author	Line No.	Line
2	daniel-mar	1	VERSION 5.00
		2	Begin VB.Form LgShop1
		3	BackColor = &H00004040&
		4	BorderStyle = 0 'None
		5	Caption = "LgShop1"
		6	ClientHeight = 5865
		7	ClientLeft = 0
		8	ClientTop = 0
		9	ClientWidth = 6720
		10	LinkTopic = "LgShop1"
		11	ScaleHeight = 5865
		12	ScaleWidth = 6720
		13	ShowInTaskbar = 0 'False
		14	StartUpPosition = 2 'CenterScreen
		15	Begin VB.CommandButton Command2
		16	BackColor = &H0080FFFF&
		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 = 4920
		31	Style = 1 'Graphical
		32	TabIndex = 9
		33	Top = 3720
		34	Width = 1455
		35	End
		36	Begin VB.ListBox List1
		37	BackColor = &H00004080&
		38	BeginProperty Font
		39	Name = "Tahoma"
		40	Size = 9.75
		41	Charset = 0
		42	Weight = 700
		43	Underline = 0 'False
		44	Italic = 0 'False
		45	Strikethrough = 0 'False
		46	EndProperty
		47	ForeColor = &H0000FFFF&
		48	Height = 1980
		49	ItemData = "LgShop1.frx":0000
		50	Left = 360
		51	List = "LgShop1.frx":001C
		52	Sorted = -1 'True
		53	TabIndex = 1
		54	Top = 1080
		55	Width = 2655
		56	End
		57	Begin VB.Label Label9
		58	AutoSize = -1 'True
		59	BackStyle = 0 'Transparent
		60	Caption = "Auftrag"
		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 = 4920
		73	TabIndex = 11
		74	Top = 4200
		75	Width = 750
		76	End
		77	Begin VB.Label Label17
		78	BackStyle = 0 'Transparent
		79	Caption = "Larena, Artefakthändlerin"
		80	BeginProperty Font
		81	Name = "MS Sans Serif"
		82	Size = 8.25
		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 = 1095
		91	Left = 360
		92	TabIndex = 10
		93	Top = 3720
		94	Width = 4095
		95	End
		96	Begin VB.Label Label8
		97	AutoSize = -1 'True
		98	BackStyle = 0 'Transparent
		99	Caption = "Label8"
		100	ForeColor = &H0000FFFF&
		101	Height = 195
		102	Left = 4200
		103	TabIndex = 8
		104	Top = 3240
		105	Width = 480
		106	End
		107	Begin VB.Label Label7
		108	AutoSize = -1 'True
		109	BackStyle = 0 'Transparent
		110	Caption = "Goldkronen"
		111	ForeColor = &H0000FFFF&
		112	Height = 195
		113	Left = 3240
		114	TabIndex = 7
		115	Top = 3240
		116	Width = 825
		117	End
		118	Begin VB.Label Label6
		119	AutoSize = -1 'True
		120	BackStyle = 0 'Transparent
		121	Caption = "Label6"
		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 = &H0000FFFF&
		132	Height = 195
		133	Left = 4440
		134	TabIndex = 6
		135	Top = 2640
		136	Width = 585
		137	End
		138	Begin VB.Label Label5
		139	AutoSize = -1 'True
		140	BackStyle = 0 'Transparent
		141	Caption = "Beschreibung"
		142	BeginProperty Font
		143	Name = "MS Sans Serif"
		144	Size = 9.75
		145	Charset = 0
		146	Weight = 700
		147	Underline = 0 'False
		148	Italic = 0 'False
		149	Strikethrough = 0 'False
		150	EndProperty
		151	ForeColor = &H00FFC0C0&
		152	Height = 240
		153	Left = 3360
		154	TabIndex = 5
		155	Top = 1560
		156	Width = 1440
		157	End
		158	Begin VB.Label Label4
		159	AutoSize = -1 'True
		160	BackStyle = 0 'Transparent
		161	Caption = "Preis"
		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 = 3360
		174	TabIndex = 4
		175	Top = 2640
		176	Width = 435
		177	End
		178	Begin VB.Label Label3
		179	BackStyle = 0 'Transparent
		180	Caption = "Label3"
		181	BeginProperty Font
		182	Name = "MS Sans Serif"
		183	Size = 8.25
		184	Charset = 0
		185	Weight = 700
		186	Underline = 0 'False
		187	Italic = 0 'False
		188	Strikethrough = 0 'False
		189	EndProperty
		190	ForeColor = &H00FFFFFF&
		191	Height = 855
		192	Left = 3360
		193	TabIndex = 3
		194	Top = 1800
		195	Width = 2895
		196	End
		197	Begin VB.Label Label2
		198	AutoSize = -1 'True
		199	BackStyle = 0 'Transparent
		200	Caption = "Label2"
		201	BeginProperty Font
		202	Name = "MS Sans Serif"
		203	Size = 8.25
		204	Charset = 0
		205	Weight = 700
		206	Underline = -1 'True
		207	Italic = 0 'False
		208	Strikethrough = 0 'False
		209	EndProperty
		210	ForeColor = &H00FFFFFF&
		211	Height = 195
		212	Left = 4200
		213	TabIndex = 2
		214	Top = 1200
		215	Width = 585
		216	End
		217	Begin VB.Shape Shape1
		218	BorderColor = &H00FF8080&
		219	Height = 2055
		220	Left = 3240
		221	Top = 1080
		222	Width = 3135
		223	End
		224	Begin VB.Label Label1
		225	AutoSize = -1 'True
		226	BackStyle = 0 'Transparent
		227	Caption = "Zauberin Larena"
		228	BeginProperty Font
		229	Name = "Tahoma"
		230	Size = 18
		231	Charset = 0
		232	Weight = 700
		233	Underline = 0 'False
		234	Italic = 0 'False
		235	Strikethrough = 0 'False
		236	EndProperty
		237	ForeColor = &H000080FF&
		238	Height = 435
		239	Left = 1440
		240	TabIndex = 0
		241	Top = 240
		242	Width = 2895
		243	End
		244	End
		245	Attribute VB_Name = "LgShop1"
		246	Attribute VB_GlobalNameSpace = False
		247	Attribute VB_Creatable = False
		248	Attribute VB_PredeclaredId = True
		249	Attribute VB_Exposed = False
		250	Private Sub Command2_Click()
		251	Unload LgShop1
		252	Lindgar.Show
		253	End Sub
		254
		255	Private Sub Form_Load()
		256	If yyrolle = 2 Then Label9.Enabled = False
		257	RADIKAL
		258	initial
		259	End Sub
		260
		261	Sub initial()
		262	Label8.Caption = gold
		263	Label2.Caption = kwaffe
		264	Label3.Caption = beschreibung
		265	Label6.Caption = Str(kpreis) + " Goldkronen"
		266	End Sub
		267
		268	Private Sub Label2_Click()
		269	If gold < kpreis Then Label17.Caption = "Ähem! Ihr habt ja gar kein Gold.": GoTo nixda
		270	gold = gold - kpreis
		271	If kwaffe = "Wurzelknolle" Then Alchemie.List1.AddItem kwaffe: GoTo a
		272	frmInternal.List1.AddItem kwaffe
		273	a:
		274	initial
		275	nixda:
		276	End Sub
		277
		278	Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
		279	Dim lHandle As Long
		280	lHandle = LoadCursor(0, HandCursor)
		281	If (lHandle > 0) Then SetCursor lHandle
		282	End Sub
		283
		284	Private Sub Label9_Click()
		285	If yyrolle = 2 Then GoTo huhu
		286	If yyrolle = 1 Then MsgBox "Vielen Dank! Hier ist dein Gold.": gold = gold + 200: yyrolle = 2: explus = 60: MsgBox "Du erhältst 200 Goldkronen.": MsgBox "Du erhältst 60 Erfahrungspunkte.": GetExperience: Label9.Enabled = False: GoTo huhu
		287	MsgBox "Ich wäre dir sehr dankbar, wenn du mir die Schriftrolle der Djinns bringst, ich zahle 200 Goldkronen!"
		288	huhu:
		289	End Sub
		290
		291	Private Sub Label9_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
		292	Dim lHandle As Long
		293	lHandle = LoadCursor(0, HandCursor)
		294	If (lHandle > 0) Then SetCursor lHandle
		295	End Sub
		296
		297	Private Sub List1_Click()
		298	If List1.Text = "Schriftrolle 'Schattenblitz'" Then GoTo runenarmreif
		299	If List1.Text = "Schriftrolle 'Blitzschlag'" Then GoTo ankh
		300	If List1.Text = "Schriftrolle 'Feuerblitz'" Then GoTo schrifeu
		301	If List1.Text = "Schriftrolle 'Blitzstrahl'" Then GoTo blistrah
		302	If List1.Text = "Weihwasser" Then GoTo weihwasser
		303	If List1.Text = "Zauberschlüssel" Then GoTo schlüssi
		304	If List1.Text = "Gegengift" Then GoTo gegi
		305	If List1.Text = "Krankheitselixier" Then GoTo kranki
		306	kranki:
		307	kwaffe = "Krankheitselixier"
		308	beschreibung = "Hebt Krankheit auf."
		309	kpreis = 100
		310	initial
		311	GoTo weiter
		312	gegi:
		313	kwaffe = "Gegengift"
		314	beschreibung = "Neutralisiert Gift."
		315	kpreis = 120
		316	initial
		317	GoTo weiter
		318	runenarmreif:
		319	kwaffe = "Schriftrolle 'Schattenblitz'"
		320	beschreibung = "Löst den Zauber Schattenblitz aus."
		321	kpreis = 100
		322	initial
		323	GoTo weiter
		324	ankh:
		325	kwaffe = "Schriftrolle 'Blitzschlag'"
		326	beschreibung = "Löst den Zauber Blitzschlag aus."
		327	kpreis = 150
		328	initial
		329	GoTo weiter
		330	schrifeu:
		331	kwaffe = "Schriftrolle 'Feuerblitz'"
		332	beschreibung = "Löst Feuerblitz aus."
		333	kpreis = 60
		334	initial
		335	GoTo weiter
		336	blistrah:
		337	kwaffe = "Schriftrolle 'Blitzstrahl'"
		338	beschreibung = "Löst BLitzstrahl aus."
		339	kpreis = 100
		340	initial
		341	GoTo weiter
		342	schlüssi:
		343	kwaffe = "Zauberschlüssel"
		344	beschreibung = "Öffnet verzauberte Schlösser"
		345	kpreis = 125
		346	initial
		347	GoTo weiter
		348	weihwasser:
		349	kwaffe = "Weihwasser"
		350	beschreibung = "Geweihtes Wasser, das Dämonen und Untoten Schaden zufügt. (1x) gegen Untote 2-6, gegen Dämonen 4-20"
		351	kpreis = 125
		352	initial
		353	weiter:
		354	End Sub

Subversion Repositories aysalia

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