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 Havengate
3 
   BorderStyle     =   0  'None
4 
   Caption         =   "Havengate"
5 
   ClientHeight    =   5205
6 
   ClientLeft      =   0
7 
   ClientTop       =   0
8 
   ClientWidth     =   7470
9 
   LinkTopic       =   "Havengate"
10 
   Picture         =   "Havengate.frx":0000
11 
   ScaleHeight     =   5205
12 
   ScaleWidth      =   7470
13 
   ShowInTaskbar   =   0   'False
14 
   StartUpPosition =   2  'CenterScreen
15 
   Begin VB.Shape SteinInhaber
16 
      FillColor       =   &H0000FF00&
17 
      FillStyle       =   0  'Solid
18 
      Height          =   135
19 
      Left            =   1980
20 
      Shape           =   3  'Circle
21 
      Top             =   1260
22 
      Width           =   135
23 
   End
24 
   Begin VB.Label Label1
25 
      AutoSize        =   -1  'True
26 
      BackStyle       =   0  'Transparent
27 
      BorderStyle     =   1  'Fixed Single
28 
      Caption         =   ">"
29 
      BeginProperty Font
30 
         Name            =   "Arial"
31 
         Size            =   9.75
32 
         Charset         =   0
33 
         Weight          =   700
34 
         Underline       =   0   'False
35 
         Italic          =   0   'False
36 
         Strikethrough   =   0   'False
37 
      EndProperty
38 
      ForeColor       =   &H00FFFFFF&
39 
      Height          =   300
40 
      Left            =   7200
41 
      TabIndex        =   0
42 
      Top             =   4800
43 
      Width           =   180
44 
   End
45 
   Begin VB.Shape Shape1
46 
      BorderColor     =   &H0000FFFF&
47 
      Height          =   135
48 
      Index           =   1
49 
      Left            =   2780
50 
      Shape           =   3  'Circle
51 
      Top             =   2860
52 
      Width           =   135
53 
   End
54 
   Begin VB.Shape Shape1
55 
      BorderColor     =   &H0000FFFF&
56 
      Height          =   135
57 
      Index           =   4
58 
      Left            =   480
59 
      Shape           =   3  'Circle
60 
      Top             =   1660
61 
      Width           =   135
62 
   End
63 
   Begin VB.Shape Shape1
64 
      BorderColor     =   &H0000FFFF&
65 
      Height          =   135
66 
      Index           =   3
67 
      Left            =   3780
68 
      Shape           =   3  'Circle
69 
      Top             =   1060
70 
      Width           =   135
71 
   End
72 
   Begin VB.Shape Shape1
73 
      BorderColor     =   &H0000FFFF&
74 
      Height          =   135
75 
      Index           =   2
76 
      Left            =   4980
77 
      Shape           =   3  'Circle
78 
      Top             =   960
79 
      Width           =   135
80 
   End
81 
   Begin VB.Shape Shape1
82 
      BorderColor     =   &H0000FFFF&
83 
      Height          =   135
84 
      Index           =   0
85 
      Left            =   6680
86 
      Shape           =   3  'Circle
87 
      Top             =   2660
88 
      Width           =   135
89 
   End
90 
   Begin VB.Shape Held
91 
      FillColor       =   &H0000FFFF&
92 
      FillStyle       =   0  'Solid
93 
      Height          =   135
94 
      Left            =   4080
95 
      Shape           =   3  'Circle
96 
      Top             =   3060
97 
      Width           =   135
98 
   End
99 
End
100 
Attribute VB_Name = "Havengate"
101 
Attribute VB_GlobalNameSpace = False
102 
Attribute VB_Creatable = False
103 
Attribute VB_PredeclaredId = True
104 
Attribute VB_Exposed = False
105 
 
106 
Private Sub Form_Activate()
107 
If Hexi = 8 Or Hexi = 1 Then SteinInhaber.Left = -200
108 
End Sub
109 
 
110 
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
111 
    Select Case KeyCode
112 
        Case vbKeyDown: Untenlauf
113 
        Case vbKeyUp: Obenlauf
114 
        Case vbKeyRight: Rechtslauf
115 
        Case vbKeyLeft: Linkslauf
116 
        Case vbKeyA: Linkslauf
117 
        Case vbKeyS: Untenlauf
118 
        Case vbKeyD: Rechtslauf
119 
        Case vbKeyW: Obenlauf
120 
    End Select
121 
End Sub
122 
Sub Untenlauf()
123 
If Held.Top + Held.Height + 100 < Havengate.Height Then
124 
  Held.Top = Held.Top + 100
125 
  CheckMove
126 
End If
127 
End Sub
128 
Sub Obenlauf()
129 
If Held.Top - 100 >= 0 Then
130 
  Held.Top = Held.Top - 100
131 
  CheckMove
132 
End If
133 
End Sub
134 
Sub Rechtslauf()
135 
If Held.Left + Held.Width + 100 < Havengate.Width Then
136 
  Held.Left = Held.Left + 100
137 
  CheckMove
138 
End If
139 
End Sub
140 
Sub Linkslauf()
141 
If Held.Left - 100 >= 0 Then
142 
  Held.Left = Held.Left - 100
143 
  CheckMove
144 
End If
145 
End Sub
146 
Sub CheckMove()
147 
If Hexi = 8 Or Hexi = 1 Then SteinInhaber.Left = -200
148 
If Held.Left = Shape1(0).Left And Held.Top = Shape1(0).Top Then gilde: Havengate.Hide
149 
If Held.Left = Shape1(1).Left And Held.Top = Shape1(1).Top Then taverne: Havengate.Hide
150 
If Held.Left = Shape1(2).Left And Held.Top = Shape1(2).Top Then Rschmiede: Havengate.Hide
151 
If Held.Left = Shape1(3).Left And Held.Top = Shape1(3).Top Then Schmiede: Havengate.Hide
152 
If Held.Left = Shape1(4).Left And Held.Top = Shape1(4).Top Then Bogenbauer: Havengate.Hide
153 
If Held.Left = SteinInhaber.Left And Held.Top = SteinInhaber.Top Then GetStein
154 
End Sub
155 
 
156 
Sub Bogenbauer()
157 
SchmiedeName = "Bogenbauerin Nanthinia"
158 
Inhaber = "Nanthinia"
159 
dqBOGENBAUER.Show
160 
dqBOGENBAUER.Label1.Caption = SchmiedeName
161 
dqBOGENBAUER.Label15.Caption = "mit " + Inhaber
162 
A = "Kurzbogen"
163 
dqBOGENBAUER.List1.AddItem A
164 
A = "Leichte Armbrust"
165 
dqBOGENBAUER.List1.AddItem A
166 
A = "Pfeil"
167 
dqBOGENBAUER.List1.AddItem A
168 
A = "Bolzen"
169 
dqBOGENBAUER.List1.AddItem A
170 
A = "Schwere Armbrust"
171 
dqBOGENBAUER.List1.AddItem A
172 
A = "Zwergenarmbrust"
173 
dqBOGENBAUER.List1.AddItem A
174 
End Sub
175 
 
176 
Sub Schmiede()
177 
SchmiedeName = "Lodorga's Schmiede"
178 
Inhaber = "Lodorga"
179 
dqSCHMIEDE.Show
180 
dqSCHMIEDE.Label1.Caption = SchmiedeName
181 
dqSCHMIEDE.Label15.Caption = "mit " + Inhaber
182 
A = "Kriegsschwert"
183 
dqSCHMIEDE.List1.AddItem A
184 
A = "Zweihandschwert"
185 
dqSCHMIEDE.List1.AddItem A
186 
A = "Langaxt"
187 
dqSCHMIEDE.List1.AddItem A
188 
A = "Handaxt"
189 
dqSCHMIEDE.List1.AddItem A
190 
A = "Ogertöter"
191 
dqSCHMIEDE.List1.AddItem A
192 
A = "Kriegshammer"
193 
dqSCHMIEDE.List1.AddItem A
194 
End Sub
195 
 
196 
Sub Rschmiede()
197 
SchmiedeName = "Eheda's Rüstschmiede"
198 
Inhaber = "Eheda"
199 
dqRÜSTSCHMIEDE.Show
200 
dqRÜSTSCHMIEDE.Label1.Caption = SchmiedeName
201 
dqRÜSTSCHMIEDE.Label15.Caption = "mit " + Inhaber
202 
A = "Lederhelm"
203 
dqRÜSTSCHMIEDE.List1.AddItem A
204 
A = "Kettenhemd"
205 
dqRÜSTSCHMIEDE.List1.AddItem A
206 
A = "Lederharnisch"
207 
dqRÜSTSCHMIEDE.List1.AddItem A
208 
A = "Holzschild"
209 
dqRÜSTSCHMIEDE.List1.AddItem A
210 
A = "Kettenmantel"
211 
dqRÜSTSCHMIEDE.List1.AddItem A
212 
A = "Ritterrüstung"
213 
dqRÜSTSCHMIEDE.List1.AddItem A
214 
End Sub
215 
 
216 
Sub taverne()
217 
SchmiedeName = "Taverne 'Zum Lauten Schrei'"
218 
Inhaber = "Laubagram"
219 
dqHERBERGE.Show
220 
dqHERBERGE.Label1.Caption = SchmiedeName
221 
dqHERBERGE.Label5.Caption = "mit " + Inhaber
222 
SaufPreis = 4
223 
SaufSchluss = 2
224 
ZimmerPreis = 8
225 
ObjPreis = 80
226 
ObjHerberge = "Dietriche"
227 
Getränk = "Starkbier"
228 
dqHERBERGE.Label2.Caption = Str(SaufPreis) + " Goldkronen"
229 
dqHERBERGE.Label3.Caption = Str(ZimmerPreis) + " Goldkronen"
230 
dqHERBERGE.Label4.Caption = Str(ObjPreis) + " Goldkronen"
231 
dqHERBERGE.Command1.Caption = Getränk + " bestellen"
232 
dqHERBERGE.Command3.Caption = ObjHerberge + " kaufen"
233 
End Sub
234 
Sub gilde()
235 
SchmiedeName = "Magiergilde 'Feuerzauber'"
236 
Inhaber = "Korodon"
237 
GildenArt = "Chaos"
238 
dqGILDE.Show
239 
dqGILDE.Label1.Caption = SchmiedeName
240 
dqGILDE.Label15.Caption = "mit " + Inhaber
241 
A = "Feuerball"
242 
dqGILDE.List1.AddItem A
243 
A = "Flammenstrahl"
244 
dqGILDE.List1.AddItem A
245 
A = "Manabrand"
246 
dqGILDE.List1.AddItem A
247 
A = "Drachenodem"
248 
dqGILDE.List1.AddItem A
249 
A = "Hölleninferno"
250 
dqGILDE.List1.AddItem A
251 
End Sub
252 
 
253 
Private Sub Label1_Click()
254 
Unload Havengate
255 
Landkarte.Show
256 
End Sub
257 
 
258 
Sub GetStein()
259 
If Hexi = 8 Or Hexi = 1 Then GoTo xtain
260 
Titel = "Dedrana, die Hexe"
261 
Text = "Sei vorsichtig was du sagst, also was willst du von mir?"
262 
Answer1 = "'Deinen Kopf!'"
263 
Answer2 = "'Ich brauche diesen Drachenstein'"
264 
Answer3 = "'Ach Nichts'"
265 
PositionNumber = 363
266 
Konversation.Show (vbModal)
267 
xtain:
268 
End Sub