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

Rev	Author	Line No.	Line
2	daniel-mar	1	VERSION 5.00
		2	Begin VB.Form GrTaverne2
		3	BackColor = &H00000040&
		4	BorderStyle = 0 'None
		5	Caption = "GrTaverne2"
		6	ClientHeight = 3465
		7	ClientLeft = 0
		8	ClientTop = 0
		9	ClientWidth = 6090
		10	LinkTopic = "GrTaverne2"
		11	ScaleHeight = 3465
		12	ScaleWidth = 6090
		13	ShowInTaskbar = 0 'False
		14	StartUpPosition = 2 'CenterScreen
		15	Begin VB.CommandButton Command2
		16	BackColor = &H008080FF&
		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 = 4560
		31	Style = 1 'Graphical
		32	TabIndex = 0
		33	Top = 2280
		34	Width = 1215
		35	End
		36	Begin VB.Label Label6
		37	AutoSize = -1 'True
		38	BackStyle = 0 'Transparent
		39	Caption = "Auftrag"
		40	Enabled = 0 'False
		41	BeginProperty Font
		42	Name = "MS Sans Serif"
		43	Size = 9.75
		44	Charset = 0
		45	Weight = 700
		46	Underline = -1 'True
		47	Italic = 0 'False
		48	Strikethrough = 0 'False
		49	EndProperty
		50	ForeColor = &H00FF8080&
		51	Height = 240
		52	Left = 4560
		53	TabIndex = 9
		54	Top = 2760
		55	Width = 750
		56	End
		57	Begin VB.Label Label1
		58	AutoSize = -1 'True
		59	BackStyle = 0 'Transparent
		60	Caption = "Taverne ""Zum Saufenden Ork"""
		61	BeginProperty Font
		62	Name = "Tahoma"
		63	Size = 15.75
		64	Charset = 0
		65	Weight = 700
		66	Underline = 0 'False
		67	Italic = 0 'False
		68	Strikethrough = 0 'False
		69	EndProperty
		70	ForeColor = &H00FFFFFF&
		71	Height = 375
		72	Left = 840
		73	TabIndex = 8
		74	Top = 240
		75	Width = 4740
		76	End
		77	Begin VB.Label Label2
		78	AutoSize = -1 'True
		79	BackStyle = 0 'Transparent
		80	Caption = "Bier bestellen"
		81	BeginProperty Font
		82	Name = "MS Sans Serif"
		83	Size = 9.75
		84	Charset = 0
		85	Weight = 700
		86	Underline = -1 'True
		87	Italic = 0 'False
		88	Strikethrough = 0 'False
		89	EndProperty
		90	ForeColor = &H00FFC0C0&
		91	Height = 240
		92	Left = 360
		93	TabIndex = 7
		94	Top = 960
		95	Width = 1455
		96	End
		97	Begin VB.Label Label3
		98	AutoSize = -1 'True
		99	BackStyle = 0 'Transparent
		100	Caption = "Zimmer mieten"
		101	BeginProperty Font
		102	Name = "MS Sans Serif"
		103	Size = 9.75
		104	Charset = 0
		105	Weight = 700
		106	Underline = -1 'True
		107	Italic = 0 'False
		108	Strikethrough = 0 'False
		109	EndProperty
		110	ForeColor = &H00FFC0C0&
		111	Height = 240
		112	Left = 360
		113	TabIndex = 6
		114	Top = 1320
		115	Width = 1530
		116	End
		117	Begin VB.Label Label4
		118	AutoSize = -1 'True
		119	BackStyle = 0 'Transparent
		120	Caption = "2 Goldkronen"
		121	BeginProperty Font
		122	Name = "MS Sans Serif"
		123	Size = 9.75
		124	Charset = 0
		125	Weight = 700
		126	Underline = 0 'False
		127	Italic = 0 'False
		128	Strikethrough = 0 'False
		129	EndProperty
		130	ForeColor = &H00FFC0C0&
		131	Height = 240
		132	Left = 2280
		133	TabIndex = 5
		134	Top = 960
		135	Width = 1395
		136	End
		137	Begin VB.Label Label5
		138	AutoSize = -1 'True
		139	BackStyle = 0 'Transparent
		140	Caption = "8 Goldkronen"
		141	BeginProperty Font
		142	Name = "MS Sans Serif"
		143	Size = 9.75
		144	Charset = 0
		145	Weight = 700
		146	Underline = 0 'False
		147	Italic = 0 'False
		148	Strikethrough = 0 'False
		149	EndProperty
		150	ForeColor = &H00FFC0C0&
		151	Height = 240
		152	Left = 2280
		153	TabIndex = 4
		154	Top = 1320
		155	Width = 1395
		156	End
		157	Begin VB.Label Label17
		158	BackStyle = 0 'Transparent
		159	Caption = "Katschak, Barkeeper"
		160	BeginProperty Font
		161	Name = "MS Sans Serif"
		162	Size = 8.25
		163	Charset = 0
		164	Weight = 700
		165	Underline = 0 'False
		166	Italic = 0 'False
		167	Strikethrough = 0 'False
		168	EndProperty
		169	ForeColor = &H00E0E0E0&
		170	Height = 1095
		171	Left = 360
		172	TabIndex = 3
		173	Top = 2040
		174	Width = 4095
		175	End
		176	Begin VB.Label Label7
		177	AutoSize = -1 'True
		178	BackStyle = 0 'Transparent
		179	Caption = "Goldkronen"
		180	ForeColor = &H0000FFFF&
		181	Height = 195
		182	Left = 2280
		183	TabIndex = 2
		184	Top = 1680
		185	Width = 825
		186	End
		187	Begin VB.Label Label8
		188	AutoSize = -1 'True
		189	BackStyle = 0 'Transparent
		190	Caption = "Label8"
		191	ForeColor = &H0000FFFF&
		192	Height = 195
		193	Left = 3480
		194	TabIndex = 1
		195	Top = 1680
		196	Width = 480
		197	End
		198	End
		199	Attribute VB_Name = "GrTaverne2"
		200	Attribute VB_GlobalNameSpace = False
		201	Attribute VB_Creatable = False
		202	Attribute VB_PredeclaredId = True
		203	Attribute VB_Exposed = False
		204	Private Sub Command2_Click()
		205	Unload GrTaverne2
		206	Gragook.Show
		207	End Sub
		208
		209	Private Sub Form_Load()
		210	initial
		211	End Sub
		212
		213	Private Sub Label2_Click()
		214	If gold < 2 Then Label17.Caption = "Du nix Scherze machen sonst du tot!": GoTo nixda
		215	gold = gold - 2
		216	bier = bier + 1
		217	initial
		218	nixda:
		219	End Sub
		220
		221	Sub initial()
		222	Label8.Caption = gold
		223	If bier = 3 Then Label17.Caption = "Komm, du noch einen trinken."
		224	If bier = 5 Then Label17.Caption = "Du viel trinken, gut für mir, trink mehr."
		225	If bier > 7 Then bewusstlos
		226	End Sub
		227
		228	Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
		229	Dim lHandle As Long
		230	lHandle = LoadCursor(0, HandCursor)
		231	If (lHandle > 0) Then SetCursor lHandle
		232	End Sub
		233
		234	Private Sub Label3_Click()
		235	If gold < 8 Then Label17.Caption = "Grrrr.": GoTo nixda2
		236	gold = gold - 8
		237	SchlafenGehen
		238	Unload GrTaverne2
		239	If hp <= 0 Then Tot.Show Else Gragook.Show
		240	nixda2:
		241	End Sub
		242
		243	Sub bewusstlos()
		244	If gold < 16 Then MsgBox "Du wirst vor Trunkenheit bewusstlos, und der Wirt setzt dich vor die Tür. -2 Lebenspunkte": GoTo nixda3
		245	gold = gold - 16
		246	MsgBox "Du wirst vor Trunkenheit bewusstlos und der Wirt bringt dich auf ein Zimmer und bedient sich an deiner Goldbörse. -16 Gold"
		247	SchlafenGehen
		248	If hp <= 0 Then Unload GrTaverne2: Tot.Show
		249	nixda3:
		250	initial
		251	End Sub
		252
		253	Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
		254	Dim lHandle As Long
		255	lHandle = LoadCursor(0, HandCursor)
		256	If (lHandle > 0) Then SetCursor lHandle
		257	End Sub
		258
		259	Private Sub Label6_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
		260	Dim lHandle As Long
		261	lHandle = LoadCursor(0, HandCursor)
		262	If (lHandle > 0) Then SetCursor lHandle
		263	End Sub

Subversion Repositories aysalia

aysalia/trunk/Schatten über Aysalia/GrTaverne2.frm @ 34 – Rev 2