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

Rev	Author	Line No.	Line
2	daniel-mar	1	VERSION 5.00
		2	Begin VB.Form WsObelisk
		3	BackColor = &H00004040&
		4	BorderStyle = 0 'None
		5	Caption = "WsObelisk"
		6	ClientHeight = 3060
		7	ClientLeft = 0
		8	ClientTop = 0
		9	ClientWidth = 5400
		10	LinkTopic = "WsObelisk"
		11	ScaleHeight = 3060
		12	ScaleWidth = 5400
		13	ShowInTaskbar = 0 'False
		14	StartUpPosition = 2 'CenterScreen
		15	Begin VB.CommandButton Command1
		16	BackColor = &H0080FFFF&
		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 = 4080
		29	Style = 1 'Graphical
		30	TabIndex = 4
		31	Top = 2520
		32	Width = 1215
		33	End
		34	Begin VB.Label Label4
		35	AutoSize = -1 'True
		36	BackStyle = 0 'Transparent
		37	Caption = "Waffe reinschieben"
		38	BeginProperty Font
		39	Name = "MS Sans Serif"
		40	Size = 9.75
		41	Charset = 0
		42	Weight = 700
		43	Underline = -1 'True
		44	Italic = 0 'False
		45	Strikethrough = 0 'False
		46	EndProperty
		47	ForeColor = &H00FF8080&
		48	Height = 240
		49	Left = 480
		50	TabIndex = 3
		51	Top = 2160
		52	Width = 2010
		53	End
		54	Begin VB.Label Label3
		55	AutoSize = -1 'True
		56	BackStyle = 0 'Transparent
		57	Caption = "Hände auflegen"
		58	BeginProperty Font
		59	Name = "MS Sans Serif"
		60	Size = 9.75
		61	Charset = 0
		62	Weight = 700
		63	Underline = -1 'True
		64	Italic = 0 'False
		65	Strikethrough = 0 'False
		66	EndProperty
		67	ForeColor = &H00FF8080&
		68	Height = 240
		69	Left = 480
		70	TabIndex = 2
		71	Top = 1680
		72	Width = 1665
		73	End
		74	Begin VB.Label Label2
		75	AutoSize = -1 'True
		76	BackStyle = 0 'Transparent
		77	Caption = "Versuchen, die Steine zu entfernen"
		78	BeginProperty Font
		79	Name = "MS Sans Serif"
		80	Size = 9.75
		81	Charset = 0
		82	Weight = 700
		83	Underline = -1 'True
		84	Italic = 0 'False
		85	Strikethrough = 0 'False
		86	EndProperty
		87	ForeColor = &H00FF8080&
		88	Height = 240
		89	Left = 480
		90	TabIndex = 1
		91	Top = 1200
		92	Width = 3585
		93	End
		94	Begin VB.Label Label1
		95	BackStyle = 0 'Transparent
		96	Caption = "Ein goldgelber Obelisk ragt 4 Meter empor. Drei riesige farbige Steinen verzieren die Säule und in dem Sockel ist ein Schlitz."
		97	BeginProperty Font
		98	Name = "MS Sans Serif"
		99	Size = 9.75
		100	Charset = 0
		101	Weight = 700
		102	Underline = 0 'False
		103	Italic = 0 'False
		104	Strikethrough = 0 'False
		105	EndProperty
		106	ForeColor = &H0000FFFF&
		107	Height = 855
		108	Left = 240
		109	TabIndex = 0
		110	Top = 240
		111	Width = 4935
		112	End
		113	End
		114	Attribute VB_Name = "WsObelisk"
		115	Attribute VB_GlobalNameSpace = False
		116	Attribute VB_Creatable = False
		117	Attribute VB_PredeclaredId = True
		118	Attribute VB_Exposed = False
		119	Private Sub Command1_Click()
		120	Wüste.Show
		121	Unload WsObelisk
		122	End Sub
		123
		124	Private Sub Form_Load()
		125	Label4.Caption = waffe + " in den Schlitz schieben"
		126	End Sub
		127
		128	Private Sub Label2_Click()
		129	If stones = 1 Then GoTo nixda
		130	MsgBox "Ein Blitz verletzt dich. -5 LP": hp = hp - 5
		131	Randomize Timer
		132	zahl = Int(1000 * Rnd)
		133	If zahl < Strength Then GetStones: GoTo nixda
		134	MsgBox "Dir gelingt es nicht, die Steine zu entfernen."
		135	nixda:
		136	End Sub
		137
		138	Sub GetStones()
		139	MsgBox "Du erhältst : Riesiger Diamant"
		140	a = "Riesiger Diamant"
		141	frmInternal.List1.AddItem a
		142	MsgBox "Du erhältst : Riesiger Rubin"
		143	a = "Riesiger Rubin"
		144	frmInternal.List1.AddItem a
		145	MsgBox "Du erhältst : Riesiger Saphir"
		146	a = "Riesiger Saphir"
		147	frmInternal.List1.AddItem a
		148	stones = 1
		149	End Sub
		150
		151	Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
		152	Dim lHandle As Long
		153	lHandle = LoadCursor(0, HandCursor)
		154	If (lHandle > 0) Then SetCursor lHandle
		155	End Sub
		156
		157	Private Sub Label3_Click()
		158	zahl = 1
		159	If hp = STARThp Then GoTo nix22
		160	a = "Du regenerierst " + Str(zahl) + " Lebenspunkt"
		161	MsgBox a
		162	hp = hp + zahl
		163	nix22:
		164	End Sub
		165
		166	Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
		167	Dim lHandle As Long
		168	lHandle = LoadCursor(0, HandCursor)
		169	If (lHandle > 0) Then SetCursor lHandle
		170	End Sub
		171
		172	Private Sub Label4_Click()
		173	If waffe <> "Kristallschwert" Then MsgBox "Das passt nicht!", 64 + 0, "Ereignis": GoTo nix99
		174	MsgBox "Vorsichtig schiebst du das Kristallschwert in den Schlitz. Der Obelisk fängt so grell an zu glühen, dass du dir die Augen verdecken musst. Der Obelisk zerspringt.", 64 + 0, "Ereignis"
		175	MsgBox "Du erhältst : Himmelsschwert (Sch, Magisch, 10-30, -0)", 64 + 0, "Ergebnis"
		176	waffe = "Himmelsschwert": grundwert = 10: zusatzwert = 20: ABZUG = 0: kateg = "Sch": material = "Magisch"
		177	obelisk = 1
		178	Wüste.Shape4.Visible = False
		179	Wüste.Show
		180	Unload WsObelisk
		181	nix99:
		182	End Sub
		183
		184	Private Sub Label4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
		185	Dim lHandle As Long
		186	lHandle = LoadCursor(0, HandCursor)
		187	If (lHandle > 0) Then SetCursor lHandle
		188	End Sub

Subversion Repositories aysalia

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