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

Rev	Author	Line No.	Line
2	daniel-mar	1	VERSION 5.00
		2	Begin VB.Form AzBow1
		3	BackColor = &H001B1E36&
		4	BorderStyle = 0 'None
		5	Caption = "AzBow1"
		6	ClientHeight = 6600
		7	ClientLeft = 0
		8	ClientTop = 0
		9	ClientWidth = 6525
		10	LinkTopic = "AzBow1"
		11	ScaleHeight = 6600
		12	ScaleWidth = 6525
		13	ShowInTaskbar = 0 'False
		14	StartUpPosition = 2 'CenterScreen
		15	Begin VB.CommandButton Command1
		16	BackColor = &H00C0E0FF&
		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 = 4680
		31	Style = 1 'Graphical
		32	TabIndex = 12
		33	Top = 4440
		34	Width = 1215
		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 = "AzBow1.frx":0000
		50	Left = 960
		51	List = "AzBow1.frx":0013
		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	BeginProperty Font
		61	Name = "MS Sans Serif"
		62	Size = 9.75
		63	Charset = 0
		64	Weight = 700
		65	Underline = -1 'True
		66	Italic = 0 'False
		67	Strikethrough = 0 'False
		68	EndProperty
		69	ForeColor = &H00FF8080&
		70	Height = 240
		71	Left = 4560
		72	TabIndex = 13
		73	Top = 4920
		74	Width = 750
		75	End
		76	Begin VB.Label Label17
		77	BackStyle = 0 'Transparent
		78	Caption = "Kasharia die Bogenbauerin"
		79	BeginProperty Font
		80	Name = "MS Sans Serif"
		81	Size = 8.25
		82	Charset = 0
		83	Weight = 700
		84	Underline = 0 'False
		85	Italic = 0 'False
		86	Strikethrough = 0 'False
		87	EndProperty
		88	ForeColor = &H00E0E0E0&
		89	Height = 1215
		90	Left = 840
		91	TabIndex = 11
		92	Top = 4440
		93	Width = 3735
		94	End
		95	Begin VB.Shape Shape1
		96	BorderColor = &H00FF0000&
		97	Height = 2775
		98	Left = 2880
		99	Top = 1080
		100	Width = 2775
		101	End
		102	Begin VB.Label Label16
		103	AutoSize = -1 'True
		104	BackStyle = 0 'Transparent
		105	Caption = "Preis"
		106	BeginProperty Font
		107	Name = "MS Sans Serif"
		108	Size = 8.25
		109	Charset = 0
		110	Weight = 700
		111	Underline = 0 'False
		112	Italic = 0 'False
		113	Strikethrough = 0 'False
		114	EndProperty
		115	ForeColor = &H00FFC0C0&
		116	Height = 195
		117	Left = 3120
		118	TabIndex = 10
		119	Top = 3480
		120	Width = 435
		121	End
		122	Begin VB.Label label12
		123	AutoSize = -1 'True
		124	BackStyle = 0 'Transparent
		125	Caption = "Schaden"
		126	BeginProperty Font
		127	Name = "MS Sans Serif"
		128	Size = 8.25
		129	Charset = 0
		130	Weight = 700
		131	Underline = 0 'False
		132	Italic = 0 'False
		133	Strikethrough = 0 'False
		134	EndProperty
		135	ForeColor = &H00FFC0C0&
		136	Height = 195
		137	Left = 3120
		138	TabIndex = 9
		139	Top = 1560
		140	Width = 765
		141	End
		142	Begin VB.Label Label11
		143	AutoSize = -1 'True
		144	BackStyle = 0 'Transparent
		145	Caption = "Label11"
		146	ForeColor = &H0000FFFF&
		147	Height = 195
		148	Left = 3840
		149	TabIndex = 8
		150	Top = 3960
		151	Width = 570
		152	End
		153	Begin VB.Label Label10
		154	AutoSize = -1 'True
		155	BackStyle = 0 'Transparent
		156	Caption = "Goldkronen"
		157	ForeColor = &H0000FFFF&
		158	Height = 195
		159	Left = 2880
		160	TabIndex = 7
		161	Top = 3960
		162	Width = 825
		163	End
		164	Begin VB.Label Label4
		165	AutoSize = -1 'True
		166	BackStyle = 0 'Transparent
		167	Caption = "-"
		168	BeginProperty Font
		169	Name = "MS Sans Serif"
		170	Size = 8.25
		171	Charset = 0
		172	Weight = 700
		173	Underline = 0 'False
		174	Italic = 0 'False
		175	Strikethrough = 0 'False
		176	EndProperty
		177	ForeColor = &H00FFFFFF&
		178	Height = 195
		179	Left = 4680
		180	TabIndex = 6
		181	Top = 1560
		182	Width = 75
		183	End
		184	Begin VB.Label Label9
		185	AutoSize = -1 'True
		186	BackStyle = 0 'Transparent
		187	Caption = "Label9"
		188	BeginProperty Font
		189	Name = "MS Sans Serif"
		190	Size = 8.25
		191	Charset = 0
		192	Weight = 700
		193	Underline = 0 'False
		194	Italic = 0 'False
		195	Strikethrough = 0 'False
		196	EndProperty
		197	ForeColor = &H0000FFFF&
		198	Height = 195
		199	Left = 4080
		200	TabIndex = 5
		201	Top = 3480
		202	Width = 585
		203	End
		204	Begin VB.Label Label5
		205	AutoSize = -1 'True
		206	BackStyle = 0 'Transparent
		207	Caption = "xxx"
		208	BeginProperty Font
		209	Name = "MS Sans Serif"
		210	Size = 8.25
		211	Charset = 0
		212	Weight = 700
		213	Underline = 0 'False
		214	Italic = 0 'False
		215	Strikethrough = 0 'False
		216	EndProperty
		217	ForeColor = &H00FFFFFF&
		218	Height = 195
		219	Left = 4800
		220	TabIndex = 4
		221	Top = 1560
		222	Width = 285
		223	End
		224	Begin VB.Label Label3
		225	Alignment = 1 'Right Justify
		226	AutoSize = -1 'True
		227	BackStyle = 0 'Transparent
		228	Caption = "xxx"
		229	BeginProperty Font
		230	Name = "MS Sans Serif"
		231	Size = 8.25
		232	Charset = 0
		233	Weight = 700
		234	Underline = 0 'False
		235	Italic = 0 'False
		236	Strikethrough = 0 'False
		237	EndProperty
		238	ForeColor = &H00FFFFFF&
		239	Height = 195
		240	Left = 4380
		241	TabIndex = 3
		242	Top = 1560
		243	Width = 285
		244	End
		245	Begin VB.Label Label2
		246	AutoSize = -1 'True
		247	BackStyle = 0 'Transparent
		248	Caption = "xxxxxxxxxxxx"
		249	BeginProperty Font
		250	Name = "MS Sans Serif"
		251	Size = 8.25
		252	Charset = 0
		253	Weight = 700
		254	Underline = -1 'True
		255	Italic = 0 'False
		256	Strikethrough = 0 'False
		257	EndProperty
		258	ForeColor = &H00FFFFFF&
		259	Height = 195
		260	Left = 4080
		261	TabIndex = 2
		262	Top = 1200
		263	Width = 1095
		264	End
		265	Begin VB.Label Label1
		266	AutoSize = -1 'True
		267	BackStyle = 0 'Transparent
		268	Caption = "Kasharia die Bogenbauerin"
		269	BeginProperty Font
		270	Name = "Tahoma"
		271	Size = 21.75
		272	Charset = 0
		273	Weight = 700
		274	Underline = 0 'False
		275	Italic = 0 'False
		276	Strikethrough = 0 'False
		277	EndProperty
		278	ForeColor = &H00FF8080&
		279	Height = 525
		280	Left = 360
		281	TabIndex = 1
		282	Top = 240
		283	Width = 5895
		284	End
		285	End
		286	Attribute VB_Name = "AzBow1"
		287	Attribute VB_GlobalNameSpace = False
		288	Attribute VB_Creatable = False
		289	Attribute VB_PredeclaredId = True
		290	Attribute VB_Exposed = False
		291	Private Sub Command1_Click()
		292	Unload AzBow1
		293	Amazon.Show
		294	End Sub
		295
		296	Private Sub Command2_Click()
		297	a = Text1.Text
		298	If a = "Xajek" Then Label17.Caption = "Oh nein, fang du nicht auch noch an. Viele versuchten ihn zu töten und sind gescheitert.": GoTo suck
		299	If a = "Sumpf" Then Label17.Caption = "In den Sumpf solltest du dich erst später wagen, Riesenskorpione sind gefährliche Gegner.": GoTo suck
		300	If a = "Kristallsee" Then Label17.Caption = "Der Kristallsee weist unterirdische Tunnel auf, aber mehr weiß ich auch nicht.": GoTo suck
		301	Label17.Caption = "Frag nicht mich, ich weiß es nicht."
		302	suck:
		303	End Sub
		304
		305	Private Sub Form_Load()
		306	If yyPfeile = 1 Or yyPfeile = 2 Then Label6.Enabled = False
		307	RADIKAL
		308	initial
		309	End Sub
		310
		311	Private Sub Label2_Click()
		312	If gold < kpreis Then Label17.Caption = "Du solltest schon etwas Gold dabei haben.": GoTo nixda
		313	If typus = "Paladin" Then MsgBox "Als Paladin darfst du kein Bogen tragen!": GoTo nixda
		314	gold = gold - kpreis
		315	If List1.Text = "Pfeil" Then pfeile = pfeile + 1: GoTo kucki
		316	bogen = kwaffe
		317	fkgrschaden = kgrundschaden
		318	fkzuschaden = kzusatzschaden
		319	kucki:
		320	Label17.Caption = "Das ist feinste Handarbeit!"
		321	initial
		322	nixda:
		323	End Sub
		324
		325	Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
		326	Dim lHandle As Long
		327	lHandle = LoadCursor(0, HandCursor)
		328	If (lHandle > 0) Then SetCursor lHandle
		329	End Sub
		330
		331	Private Sub Label6_Click()
		332	a = MsgBox("Gut dass du mir helfen kannst. Bringst du diese Zauberpfeile bitte zu Laurana nach Sheala? Sie wird dir 60 Goldkronen zahlen.", 64 + vbYesNo, "Kasharia")
		333	b = Val(a)
		334	If b = vbYes Then yyPfeile = 1: Label6.Enabled = False
		335
		336	End Sub
		337
		338	Private Sub Label6_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
		339	Dim lHandle As Long
		340	lHandle = LoadCursor(0, HandCursor)
		341	If (lHandle > 0) Then SetCursor lHandle
		342	End Sub
		343
		344	Private Sub List1_Click()
		345	If List1.Text = "Pfeil" Then GoTo pfeilo
		346	If List1.Text = "Kurzbogen" Then GoTo schwert
		347	If List1.Text = "Langbogen" Then GoTo breitschwert
		348	If List1.Text = "Kompositbogen" Then GoTo handaxt
		349	If List1.Text = "Kriegsbogen" Then GoTo streitaxt
		350	pfeilo:
		351	kwaffe = "Pfeil"
		352	kgrundschaden = 0
		353	kzusatzschaden = 0
		354	kpreis = 5
		355	GoTo weiter
		356	schwert:
		357	kwaffe = "Kurzbogen"
		358	kgrundschaden = 3
		359	kzusatzschaden = 4
		360	kpreis = 90
		361	GoTo weiter
		362	breitschwert:
		363	kwaffe = "Langbogen"
		364	kgrundschaden = 4
		365	kzusatzschaden = 6
		366	kpreis = 160
		367	GoTo weiter
		368	handaxt:
		369	kwaffe = "Kompositbogen"
		370	kgrundschaden = 2
		371	kzusatzschaden = 7
		372	kpreis = 130
		373	GoTo weiter
		374	streitaxt:
		375	kwaffe = "Kriegsbogen"
		376	kgrundschaden = 4
		377	kzusatzschaden = 10
		378	kpreis = 240
		379	weiter:
		380	initial
		381	End Sub
		382
		383	Sub initial()
		384	Label2.Caption = kwaffe
		385	Label3.Caption = kgrundschaden
		386	Label5.Caption = kgrundschaden + kzusatzschaden
		387	Label9.Caption = Str(kpreis) + " Goldkronen"
		388	Label11.Caption = gold
		389	End Sub

Subversion Repositories aysalia

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