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 TdOK1
3 
   BorderStyle     =   0  'None
4 
   Caption         =   "TdOK1"
5 
   ClientHeight    =   5370
6 
   ClientLeft      =   0
7 
   ClientTop       =   0
8 
   ClientWidth     =   5625
9 
   LinkTopic       =   "TdOK1"
10 
   Picture         =   "TdOK1.frx":0000
11 
   ScaleHeight     =   5370
12 
   ScaleWidth      =   5625
13 
   ShowInTaskbar   =   0   'False
14 
   StartUpPosition =   2  'CenterScreen
15 
   Begin VB.Label Label2
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            =   5400
32 
      TabIndex        =   1
33 
      Top             =   5040
34 
      Width           =   195
35 
   End
36 
   Begin VB.Label Label1
37 
      AutoSize        =   -1  'True
38 
      BackStyle       =   0  'Transparent
39 
      BorderStyle     =   1  'Fixed Single
40 
      Caption         =   "/\"
41 
      BeginProperty Font
42 
         Name            =   "Arial"
43 
         Size            =   9.75
44 
         Charset         =   0
45 
         Weight          =   700
46 
         Underline       =   0   'False
47 
         Italic          =   0   'False
48 
         Strikethrough   =   0   'False
49 
      EndProperty
50 
      ForeColor       =   &H00FFFFFF&
51 
      Height          =   300
52 
      Left            =   5400
53 
      TabIndex        =   0
54 
      Top             =   4560
55 
      Width           =   180
56 
   End
57 
   Begin VB.Shape Shape2
58 
      BorderColor     =   &H0000FFFF&
59 
      Height          =   135
60 
      Index           =   3
61 
      Left            =   1880
62 
      Shape           =   3  'Circle
63 
      Top             =   1260
64 
      Width           =   135
65 
   End
66 
   Begin VB.Shape Shape2
67 
      BorderColor     =   &H0000FFFF&
68 
      Height          =   135
69 
      Index           =   2
70 
      Left            =   4380
71 
      Shape           =   3  'Circle
72 
      Top             =   2560
73 
      Width           =   135
74 
   End
75 
   Begin VB.Shape Shape2
76 
      BorderColor     =   &H0000FFFF&
77 
      Height          =   135
78 
      Index           =   1
79 
      Left            =   4380
80 
      Shape           =   3  'Circle
81 
      Top             =   3460
82 
      Width           =   135
83 
   End
84 
   Begin VB.Shape Shape2
85 
      BorderColor     =   &H0000FFFF&
86 
      Height          =   135
87 
      Index           =   0
88 
      Left            =   880
89 
      Shape           =   3  'Circle
90 
      Top             =   2860
91 
      Width           =   135
92 
   End
93 
   Begin VB.Shape Held
94 
      FillColor       =   &H0000FFFF&
95 
      FillStyle       =   0  'Solid
96 
      Height          =   135
97 
      Left            =   2880
98 
      Shape           =   3  'Circle
99 
      Top             =   4560
100 
      Width           =   135
101 
   End
102 
End
103 
Attribute VB_Name = "TdOK1"
104 
Attribute VB_GlobalNameSpace = False
105 
Attribute VB_Creatable = False
106 
Attribute VB_PredeclaredId = True
107 
Attribute VB_Exposed = False
108 
 
109 
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
110 
    Select Case KeyCode
111 
        Case vbKeyDown: Untenlauf
112 
        Case vbKeyUp: Obenlauf
113 
        Case vbKeyRight: Rechtslauf
114 
        Case vbKeyLeft: Linkslauf
115 
        Case vbKeyA: Linkslauf
116 
        Case vbKeyS: Untenlauf
117 
        Case vbKeyD: Rechtslauf
118 
        Case vbKeyW: Obenlauf
119 
    End Select
120 
End Sub
121 
Sub Untenlauf()
122 
If Held.Top + Held.Height + 100 < TdOK1.Height Then
123 
  Held.Top = Held.Top + 100
124 
  CheckMove
125 
End If
126 
End Sub
127 
Sub Obenlauf()
128 
If Held.Top - 100 >= 0 Then
129 
  Held.Top = Held.Top - 100
130 
  CheckMove
131 
End If
132 
End Sub
133 
Sub Rechtslauf()
134 
If Held.Left + Held.Width + 100 < TdOK1.Width Then
135 
  Held.Left = Held.Left + 100
136 
  CheckMove
137 
End If
138 
End Sub
139 
Sub Linkslauf()
140 
If Held.Left - 100 >= 0 Then
141 
  Held.Left = Held.Left - 100
142 
  CheckMove
143 
End If
144 
End Sub
145 
Sub CheckMove()
146 
If Held.Top = Shape2(3).Top And Held.Left = Shape2(3).Left Then NachtSchrank
147 
If Held.Top = Shape2(0).Top And Held.Left = Shape2(0).Left Then Tisch
148 
If Held.Top = Shape2(2).Top And Held.Left = Shape2(2).Left Then Truhe1
149 
If Held.Top = Shape2(1).Top And Held.Left = Shape2(1).Left Then Truhe2
150 
 
151 
End Sub
152 
Sub NachtSchrank()
153 
If Djinn = 1 Then GoTo miss1
154 
TdOK1.Hide
155 
Titel = "Nachtschrank"
156 
Text = "Auf dem Nachtschrank steht eine Flasche, in der blauer Nebel wild wirbelt. Willst du die Flasche öffnen?"
157 
PositionNumber = 955
158 
JaUndNein
159 
Konversation.Show (vbModal)
160 
miss1:
161 
End Sub
162 
Sub Tisch()
163 
If TischTdOK1 = 1 Then GoTo miss2
164 
A = "Rezept 'Kleiner Zaubertrank'"
165 
Beute.List1.AddItem A
166 
A = "Büschel Grabkraut"
167 
Beute.List1.AddItem A
168 
A = "Höllenpilz"
169 
Beute.List1.AddItem A
170 
A = "Quecksilber (1 ml)"
171 
Beute.List1.AddItem A
172 
A = "Silberner Dolch"
173 
Beute.List1.AddItem A
174 
TischTdOK1 = 1
175 
Beute.Show (vbModal)
176 
miss2:
177 
End Sub
178 
Sub Truhe1()
179 
If Truheo1 = 1 Then GoTo miss3
180 
Truhe = "tdok1a"
181 
Schlosslevel = 7
182 
Inhalt = "Alchemie"
183 
TruheÖffnen.Show
184 
miss3:
185 
End Sub
186 
Sub Truhe2()
187 
If Truheo2 = 1 Then GoTo miss4
188 
Truhe = "tdok1b"
189 
Schlosslevel = 10
190 
Inhalt = "Waffe"
191 
TruheÖffnen.Show
192 
miss4:
193 
End Sub
194 
 
195 
Private Sub Label1_Click()
196 
TdOK2.Show
197 
Unload TdOK1
198 
End Sub
199 
 
200 
Private Sub Label2_Click()
201 
Unload TruheÖffnen
202 
Landkarte.Show
203 
Unload TdOK1
204 
End Sub