WebSVN – aysalia – Blame – /trunk/Zeitalter der Dämonen/dqALCHEMIE.frm

Rev	Author	Line No.	Line
2	daniel-mar	1	VERSION 5.00
		2	Begin VB.Form dqALCHEMIE
		3	BackColor = &H00000000&
		4	BorderStyle = 1 'Fixed Single
		5	Caption = "Das Alchemieset"
		6	ClientHeight = 4635
		7	ClientLeft = 45
		8	ClientTop = 345
		9	ClientWidth = 6225
		10	ControlBox = 0 'False
		11	LinkTopic = "dqALCHEMIE"
		12	MaxButton = 0 'False
		13	MinButton = 0 'False
		14	ScaleHeight = 4635
		15	ScaleWidth = 6225
		16	StartUpPosition = 2 'CenterScreen
		17	Begin VB.CommandButton Command7
		18	BackColor = &H00E0E0E0&
		19	Caption = "Zutat hinzufügen"
		20	Enabled = 0 'False
		21	Height = 255
		22	Left = 3000
		23	Style = 1 'Graphical
		24	TabIndex = 10
		25	Top = 1200
		26	Width = 3015
		27	End
		28	Begin VB.CommandButton Command6
		29	BackColor = &H00FF8080&
		30	Caption = "Trank zubereiten"
		31	Enabled = 0 'False
		32	BeginProperty Font
		33	Name = "Times New Roman"
		34	Size = 15.75
		35	Charset = 0
		36	Weight = 700
		37	Underline = 0 'False
		38	Italic = 0 'False
		39	Strikethrough = 0 'False
		40	EndProperty
		41	Height = 495
		42	Left = 3120
		43	Style = 1 'Graphical
		44	TabIndex = 9
		45	Top = 3600
		46	Width = 2775
		47	End
		48	Begin VB.CommandButton Command5
		49	BackColor = &H00FF8080&
		50	Caption = "-"
		51	Height = 315
		52	Left = 5520
		53	Style = 1 'Graphical
		54	TabIndex = 8
		55	Top = 2880
		56	Width = 255
		57	End
		58	Begin VB.CommandButton Command4
		59	BackColor = &H00FF8080&
		60	Caption = "+"
		61	Height = 315
		62	Left = 5520
		63	Style = 1 'Graphical
		64	TabIndex = 7
		65	Top = 2520
		66	Width = 255
		67	End
		68	Begin VB.CommandButton Command3
		69	BackColor = &H00FF8080&
		70	Caption = "-"
		71	Height = 315
		72	Left = 3600
		73	Style = 1 'Graphical
		74	TabIndex = 5
		75	Top = 2880
		76	Width = 255
		77	End
		78	Begin VB.CommandButton Command2
		79	BackColor = &H00FF8080&
		80	Caption = "+"
		81	Height = 315
		82	Left = 3600
		83	Style = 1 'Graphical
		84	TabIndex = 4
		85	Top = 2520
		86	Width = 255
		87	End
		88	Begin VB.CommandButton Command1
		89	BackColor = &H00FF8080&
		90	Caption = "Leere Flasche einsetzen"
		91	Enabled = 0 'False
		92	Height = 255
		93	Left = 3120
		94	Style = 1 'Graphical
		95	TabIndex = 2
		96	Top = 2040
		97	Width = 2775
		98	End
		99	Begin VB.Label Label4
		100	AutoSize = -1 'True
		101	BackStyle = 0 'Transparent
		102	BorderStyle = 1 'Fixed Single
		103	Caption = "1 Stunde"
		104	BeginProperty Font
		105	Name = "Times New Roman"
		106	Size = 12
		107	Charset = 0
		108	Weight = 700
		109	Underline = 0 'False
		110	Italic = 0 'False
		111	Strikethrough = 0 'False
		112	EndProperty
		113	ForeColor = &H00FFFFFF&
		114	Height = 345
		115	Left = 4440
		116	TabIndex = 6
		117	Top = 2640
		118	Width = 930
		119	End
		120	Begin VB.Label Label3
		121	AutoSize = -1 'True
		122	BackStyle = 0 'Transparent
		123	BorderStyle = 1 'Fixed Single
		124	Caption = "10°"
		125	BeginProperty Font
		126	Name = "Times New Roman"
		127	Size = 12
		128	Charset = 0
		129	Weight = 700
		130	Underline = 0 'False
		131	Italic = 0 'False
		132	Strikethrough = 0 'False
		133	EndProperty
		134	ForeColor = &H00FFFFFF&
		135	Height = 345
		136	Left = 3120
		137	TabIndex = 3
		138	Top = 2640
		139	Width = 390
		140	End
		141	Begin VB.Label Label2
		142	BackColor = &H00800000&
		143	BorderStyle = 1 'Fixed Single
		144	Caption = "--Zutatenliste"
		145	BeginProperty Font
		146	Name = "Arial"
		147	Size = 9
		148	Charset = 0
		149	Weight = 700
		150	Underline = 0 'False
		151	Italic = 0 'False
		152	Strikethrough = 0 'False
		153	EndProperty
		154	ForeColor = &H00FFFFFF&
		155	Height = 3375
		156	Left = 240
		157	TabIndex = 1
		158	Top = 840
		159	Width = 2655
		160	End
		161	Begin VB.Label Label1
		162	AutoSize = -1 'True
		163	BackStyle = 0 'Transparent
		164	Caption = "Alchemie"
		165	BeginProperty Font
		166	Name = "Times New Roman"
		167	Size = 15.75
		168	Charset = 0
		169	Weight = 700
		170	Underline = 0 'False
		171	Italic = 0 'False
		172	Strikethrough = 0 'False
		173	EndProperty
		174	ForeColor = &H0000FFFF&
		175	Height = 360
		176	Left = 240
		177	TabIndex = 0
		178	Top = 120
		179	Width = 1245
		180	End
		181	Begin VB.Line Line1
		182	BorderColor = &H00FFFFFF&
		183	X1 = 240
		184	X2 = 5880
		185	Y1 = 480
		186	Y2 = 480
		187	End
		188	Begin VB.Shape Shape1
		189	BorderColor = &H00FFC0C0&
		190	FillColor = &H00800000&
		191	FillStyle = 0 'Solid
		192	Height = 2295
		193	Left = 3000
		194	Top = 1920
		195	Width = 3015
		196	End
		197	End
		198	Attribute VB_Name = "dqALCHEMIE"
		199	Attribute VB_GlobalNameSpace = False
		200	Attribute VB_Creatable = False
		201	Attribute VB_PredeclaredId = True
		202	Attribute VB_Exposed = False
		203	Private Sub Command1_Click()
		204	Command6.Enabled = True
		205	Command1.Caption = "Leere Flasche eingesetzt!": Command1.Enabled = False
		206	Equipment.Command2.Enabled = False
		207	Manager.Command2.Enabled = False
		208	A = Manager.Inventar.ListIndex
		209	Manager.Inventar.RemoveItem A
		210	End Sub
		211
		212	Private Sub Command2_Click()
		213	If Grad = 65 Then GoTo zappdiedece
		214	Grad = Grad + 5
		215	Label3.Caption = Str(Grad) + "°"
		216	zappdiedece:
		217	End Sub
		218
		219	Private Sub Command3_Click()
		220	If Grad = 0 Then GoTo zappenduster
		221	Grad = Grad - 5
		222	Label3.Caption = Str(Grad) + "°"
		223	zappenduster:
		224	End Sub
		225
		226	Private Sub Command4_Click()
		227	Lange = Lange + 1
		228	Label4.Caption = Str(Lange) + " Stunden"
		229	End Sub
		230
		231	Private Sub Command5_Click()
		232	If Lange = 1 Then GoTo kloschu
		233	Lange = Lange - 1
		234	Label4.Caption = Str(Lange) + " Stunden"
		235	kloschu:
		236	End Sub
		237
		238	Private Sub Command6_Click()
		239	Randomize Timer
		240	Zahl = Int(100 * Rnd)
		241	If Zahl < ALCHEMIE Then
		242	If TkB = 1 And Wk = 2 And bs = 1 And Lange = 1 And Grad = 40 Then
		243	A = "Kleiner Heiltrank"
		244	Manager.Inventar.AddItem A
		245	GoTo Alk
		246	End If
		247	If TkB = 2 And Wk = 2 And bs = 2 And Lange = 3 And Grad = 25 Then
		248	A = "Großer Heiltrank"
		249	Manager.Inventar.AddItem A
		250	GoTo Alk
		251	End If
		252	If TDs = 1 And BeM = 2 And Sf = 1 And Qs = 1 And Lange = 4 And Grad = 50 Then
		253	A = "Kleiner Zaubertrank"
		254	Manager.Inventar.AddItem A
		255	GoTo Alk
		256	End If
		257	If Gs = 1 And Wk = 2 And FA = 1 And Lange = 1 And Grad = 20 Then
		258	A = "Unsichtbarkeitstrank"
		259	Manager.Inventar.AddItem A
		260	GoTo Alk
		261	End If
		262	End If
		263	Titel = "Alchemie misslungen"
		264	Text = "Du erhältst nur eine seltsame Brühe, du hast wohl etwas falsch gemacht."
		265	onlyOK
		266	Konversation.Show (vbModal)
		267	GoTo huju
		268	Alk:
		269	Titel = "Alchemie gelungen"
		270	Text = "Du erhältst " + A
		271	onlyOK
		272	Konversation.Show (vbModal)
		273	huju:
		274	BeM = 0: BB = 0: BG = 0: FA = 0: Gs = 0: Hpa = 0: Qs = 0: SL = 0: Sf = 0: TD = 0: TkB = 0: Wk = 0: TDs = 0
		275	Command6.Enabled = False
		276	Label2.Caption = ""
		277	End Sub
		278
		279	Private Sub Command7_Click()
		280	objdes = Manager.Inventar.Text
		281	If objdes = "Blüte eines Morgentaus" Then BeM = BeM + 1: GoTo klup
		282	If objdes = "Büschel Brunnensporn" Then BB = BB + 1: GoTo klup
		283	If objdes = "Büschel Grabkraut" Then BG = BG + 1: GoTo klup
		284	If objdes = "Flasche Alkohol (1/2 l)" Then FA = FA + 1: GoTo klup
		285	If objdes = "Goldstaub (1 Unze)" Then Gs = Gs + 1: GoTo klup
		286	If objdes = "Höllenpilz" Then Hp = Hp + 1: GoTo klup
		287	If objdes = "Quecksilber (1 ml)" Then Qs = Qs + 1: GoTo klup
		288	If objdes = "Schwarzer Lotos" Then SL = SL + 1: GoTo klup
		289	If objdes = "Schwefel (1 ml)" Then Sf = Sf + 1: GoTo klup
		290	If objdes = "Tropfen Drachenblut" Then TD = TD + 1: GoTo klup
		291	If objdes = "Tropfen klares Blut" Then TkB = TkB + 1: GoTo klup
		292	If objdes = "Wurzelknolle" Then Wk = Wk + 1: GoTo klup
		293	If objdes = "Tropfen Dämonenspeichel" Then TDs = TDs + 1: GoTo klup
		294	GoTo niente
		295	klup:
		296	Label2.Caption = Label2.Caption + Chr(13) + objdes
		297	Equipment.Command2.Enabled = False
		298	Manager.Command2.Enabled = False
		299	A = Manager.Inventar.ListIndex
		300	Manager.Inventar.RemoveItem A
		301
		302	niente:
		303	End Sub

Subversion Repositories aysalia

aysalia/trunk/Zeitalter der Dämonen/dqALCHEMIE.frm – Rev 2