Subversion Repositories aysalia

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
2 daniel-mar 1 
VERSION 5.00
2 
Begin VB.Form Haus
3 
   BorderStyle     =   0  'None
4 
   Caption         =   "Haus"
5 
   ClientHeight    =   5955
6 
   ClientLeft      =   0
7 
   ClientTop       =   0
8 
   ClientWidth     =   5205
9 
   LinkTopic       =   "Haus"
10 
   Picture         =   "Haus.frx":0000
11 
   ScaleHeight     =   5955
12 
   ScaleWidth      =   5205
13 
   ShowInTaskbar   =   0   'False
14 
   StartUpPosition =   2  'CenterScreen
15 
   Begin VB.Label Label1
16 
      AutoSize        =   -1  'True
17 
      BackStyle       =   0  'Transparent
18 
      BorderStyle     =   1  'Fixed Single
19 
      Caption         =   "V"
20 
      BeginProperty Font
21 
         Name            =   "Arial"
22 
         Size            =   9.75
23 
         Charset         =   0
24 
         Weight          =   700
25 
         Underline       =   0   'False
26 
         Italic          =   0   'False
27 
         Strikethrough   =   0   'False
28 
      EndProperty
29 
      ForeColor       =   &H00FFFFFF&
30 
      Height          =   300
31 
      Left            =   4920
32 
      TabIndex        =   0
33 
      Top             =   5520
34 
      Width           =   195
35 
   End
36 
   Begin VB.Shape Shape2
37 
      BorderColor     =   &H0000FFFF&
38 
      Height          =   135
39 
      Index           =   4
40 
      Left            =   2580
41 
      Shape           =   3  'Circle
42 
      Top             =   360
43 
      Width           =   135
44 
   End
45 
   Begin VB.Shape Shape2
46 
      BorderColor     =   &H0000FFFF&
47 
      Height          =   135
48 
      Index           =   3
49 
      Left            =   480
50 
      Shape           =   3  'Circle
51 
      Top             =   5460
52 
      Width           =   135
53 
   End
54 
   Begin VB.Shape Shape2
55 
      BorderColor     =   &H0000FFFF&
56 
      Height          =   135
57 
      Index           =   2
58 
      Left            =   480
59 
      Shape           =   3  'Circle
60 
      Top             =   3160
61 
      Width           =   135
62 
   End
63 
   Begin VB.Shape Shape2
64 
      BorderColor     =   &H0000FFFF&
65 
      Height          =   135
66 
      Index           =   1
67 
      Left            =   3680
68 
      Shape           =   3  'Circle
69 
      Top             =   2160
70 
      Width           =   135
71 
   End
72 
   Begin VB.Shape Shape2
73 
      BorderColor     =   &H0000FFFF&
74 
      Height          =   135
75 
      Index           =   0
76 
      Left            =   480
77 
      Shape           =   3  'Circle
78 
      Top             =   2160
79 
      Width           =   135
80 
   End
81 
   Begin VB.Shape Held
82 
      FillColor       =   &H0000FFFF&
83 
      FillStyle       =   0  'Solid
84 
      Height          =   135
85 
      Left            =   2580
86 
      Shape           =   3  'Circle
87 
      Top             =   5660
88 
      Width           =   135
89 
   End
90 
End
91 
Attribute VB_Name = "Haus"
92 
Attribute VB_GlobalNameSpace = False
93 
Attribute VB_Creatable = False
94 
Attribute VB_PredeclaredId = True
95 
Attribute VB_Exposed = False
96 
 
97 
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
98 
     Select Case KeyCode
99 
        Case vbKeyDown: Untenlauf
100 
        Case vbKeyUp: Obenlauf
101 
        Case vbKeyRight: Rechtslauf
102 
        Case vbKeyLeft: Linkslauf
103 
        Case vbKeyA: Linkslauf
104 
        Case vbKeyS: Untenlauf
105 
        Case vbKeyD: Rechtslauf
106 
        Case vbKeyW: Obenlauf
107 
     End Select
108 
End Sub
109 
Sub Untenlauf()
110 
If Held.Top + Held.Height + 100 < Haus.Height Then
111 
  Held.Top = Held.Top + 100
112 
  city
113 
End If
114 
End Sub
115 
Sub Obenlauf()
116 
If Held.Top - 100 >= 0 Then
117 
  Held.Top = Held.Top - 100
118 
  city
119 
End If
120 
End Sub
121 
Sub Rechtslauf()
122 
If Held.Left + Held.Width + 100 < Haus.Width Then
123 
  Held.Left = Held.Left + 100
124 
  city
125 
End If
126 
End Sub
127 
Sub Linkslauf()
128 
If Held.Left - 100 >= 0 Then
129 
  Held.Left = Held.Left - 100
130 
  city
131 
End If
132 
End Sub
133 
Sub city()
134 
If Held.Left = Shape2(0).Left And Held.Top = Shape2(0).Top Then Truhken
135 
If Held.Left = Shape2(1).Left And Held.Top = Shape2(1).Top Then Tisch
136 
If Held.Left = Shape2(2).Left And Held.Top = Shape2(2).Top Then Schrank
137 
If Held.Left = Shape2(3).Left And Held.Top = Shape2(3).Top Then Fässerkes
138 
If Held.Left = Shape2(4).Left And Held.Top = Shape2(4).Top Then Haus.Hide: Spiegel
139 
End Sub
140 
 
141 
Sub Tisch()
142 
If TischH = 1 Then GoTo miss
143 
GoldFund = 100
144 
A = "Silberkette"
145 
Beute.List1.AddItem A
146 
A = "Smaragd Ring"
147 
Beute.List1.AddItem A
148 
TischH = 1
149 
Beute.Show (vbModal)
150 
miss:
151 
End Sub
152 
 
153 
Sub Truhken()
154 
If TruheH1 = 1 Then GoTo miss3
155 
Truhe = "Haus"
156 
Schlosslevel = 4
157 
Inhalt = "Waffe"
158 
TruheÖffnen.Show
159 
miss3:
160 
End Sub
161 
Sub Schrank()
162 
If SchrankH = 1 Then GoTo miss2
163 
A = "Magisches Schwert"
164 
Beute.List1.AddItem A
165 
A = "Kettenhemd"
166 
Beute.List1.AddItem A
167 
SchrankH = 1
168 
Beute.Show (vbModal)
169 
miss2:
170 
End Sub
171 
 
172 
Sub Fässerkes()
173 
If Fässer = 1 Then GoTo miss5
174 
Haus.Hide
175 
Titel = "Fässer"
176 
Text = "Die Fässer sind mit einer stinkenden trüben Flüssigkeit gefüllt. Willst du sie zerschlagen?"
177 
JaUndNein
178 
PositionNumber = 112
179 
Konversation.Show (vbModal)
180 
miss5:
181 
End Sub
182 
 
183 
Private Sub Label1_Click()
184 
Unload TruheÖffnen
185 
Unload Haus
186 
Phargas.Show
187 
End Sub
188 
Sub Spiegel()
189 
Haus.Hide
190 
Titel = "Sonderbarer Spiegel"
191 
Text = "Du berührst den Spiegel, und merkwürdigerweise greifst du durch ihn hindurch. Willst du ganz hindurchgehen?"
192 
JaUndNein
193 
PositionNumber = 120
194 
Konversation.Show (vbModal)
195 
End Sub