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 TdOK2
3 
   BorderStyle     =   0  'None
4 
   Caption         =   "&H0000FFFF&"
5 
   ClientHeight    =   5625
6 
   ClientLeft      =   0
7 
   ClientTop       =   0
8 
   ClientWidth     =   6000
9 
   LinkTopic       =   "TdOK2"
10 
   Picture         =   "TdOK2.frx":0000
11 
   ScaleHeight     =   5625
12 
   ScaleWidth      =   6000
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            =   5640
32 
      TabIndex        =   0
33 
      Top             =   5280
34 
      Width           =   195
35 
   End
36 
   Begin VB.Shape Shape1
37 
      BorderColor     =   &H0000FFFF&
38 
      Height          =   135
39 
      Index           =   3
40 
      Left            =   3080
41 
      Shape           =   3  'Circle
42 
      Top             =   1260
43 
      Width           =   135
44 
   End
45 
   Begin VB.Shape Shape1
46 
      BorderColor     =   &H0000FFFF&
47 
      Height          =   135
48 
      Index           =   2
49 
      Left            =   1380
50 
      Shape           =   3  'Circle
51 
      Top             =   2260
52 
      Width           =   135
53 
   End
54 
   Begin VB.Shape Shape1
55 
      BorderColor     =   &H0000FFFF&
56 
      Height          =   135
57 
      Index           =   1
58 
      Left            =   2880
59 
      Shape           =   3  'Circle
60 
      Top             =   3860
61 
      Width           =   135
62 
   End
63 
   Begin VB.Shape Shape1
64 
      BorderColor     =   &H0000FFFF&
65 
      Height          =   135
66 
      Index           =   0
67 
      Left            =   4880
68 
      Shape           =   3  'Circle
69 
      Top             =   3860
70 
      Width           =   135
71 
   End
72 
   Begin VB.Shape Held
73 
      FillColor       =   &H0000FFFF&
74 
      FillStyle       =   0  'Solid
75 
      Height          =   135
76 
      Left            =   2880
77 
      Shape           =   3  'Circle
78 
      Top             =   2660
79 
      Width           =   135
80 
   End
81 
End
82 
Attribute VB_Name = "TdOK2"
83 
Attribute VB_GlobalNameSpace = False
84 
Attribute VB_Creatable = False
85 
Attribute VB_PredeclaredId = True
86 
Attribute VB_Exposed = False
87 
 
88 
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
89 
    Select Case KeyCode
90 
        Case vbKeyDown: Untenlauf
91 
        Case vbKeyUp: Obenlauf
92 
        Case vbKeyRight: Rechtslauf
93 
        Case vbKeyLeft: Linkslauf
94 
        Case vbKeyA: Linkslauf
95 
        Case vbKeyS: Untenlauf
96 
        Case vbKeyD: Rechtslauf
97 
        Case vbKeyW: Obenlauf
98 
    End Select
99 
End Sub
100 
Sub Untenlauf()
101 
If Held.Top + Held.Height + 100 < TdOK2.Height Then
102 
  Held.Top = Held.Top + 100
103 
  CheckMove
104 
End If
105 
End Sub
106 
Sub Obenlauf()
107 
If Held.Top - 100 >= 0 Then
108 
  Held.Top = Held.Top - 100
109 
  CheckMove
110 
End If
111 
End Sub
112 
Sub Rechtslauf()
113 
If Held.Left + Held.Width + 100 < TdOK2.Width Then
114 
  Held.Left = Held.Left + 100
115 
  CheckMove
116 
End If
117 
End Sub
118 
Sub Linkslauf()
119 
If Held.Left - 100 >= 0 Then
120 
  Held.Left = Held.Left - 100
121 
  CheckMove
122 
End If
123 
End Sub
124 
Sub CheckMove()
125 
If Held.Left = Shape1(0).Left And Held.Top = Shape1(0).Top Then Sarko
126 
If Held.Left = Shape1(1).Left And Held.Top = Shape1(1).Top Then Altar
127 
If Held.Left = Shape1(2).Left And Held.Top = Shape1(2).Top Then Schrank
128 
If Held.Left = Shape1(3).Left And Held.Top = Shape1(3).Top Then Iriont2
129 
End Sub
130 
 
131 
Sub Schrank()
132 
If TischTdOK2 = 1 Then GoTo miss
133 
A = "Wattierte Weiße Robe"
134 
Beute.List1.AddItem A
135 
A = "Magierstab des Irion"
136 
Beute.List1.AddItem A
137 
GoldFund = 50
138 
TischTdOK2 = 1
139 
Beute.Show (vbModal)
140 
miss:
141 
End Sub
142 
 
143 
Sub Iriont2()
144 
Irion = 1
145 
Titel = "Irion, tot"
146 
Text = "Der Oberkleriker liegt auf dem Boden, du erkennst keine Wunden, doch er ist tot. Er trägt anstatt seiner Weißen Robe eine Schwarze und in seiner Stirn ist das Zeichen des Dämonischen Dämonenfürsten eingebrandt."
147 
onlyOK
148 
Konversation.Show (vbModal)
149 
End Sub
150 
Sub Sarko()
151 
If Zankh = 1 Then GoTo miss2
152 
TdOK2.Hide
153 
Titel = "Sarkophag"
154 
If Iq < 60 Then Text = "Du versuchst die eingezeichneten Runen zu entziffern, doch dir fehlt das Wissen dazu. Willst du den Sarkophag öffnen?": GoTo kal
155 
If Iq <= 75 Then Text = "Du kannst die eingezeichneten Runen nur teilweise entziffern : ... wagt ... zu stören ... Macht ... spüren.   Willst du den Sarkophag öffnen?": GoTo kal
156 
If Iq > 75 Then Text = "Du entzifferst die eingezeichneten Runen : Wer es wagt, die Ruhe zu stören, wird die Macht des Zankh's zu spüren bekommen.   Willst du den Sarkophag öffnen?"
157 
kal:
158 
PositionNumber = 911
159 
JaUndNein
160 
Konversation.Show (vbModal)
161 
miss2:
162 
End Sub
163 
 
164 
Sub Altar()
165 
If AltarTdOK2 = 1 Then GoTo miss5
166 
A = "Tropfen Drachenblut"
167 
Beute.List1.AddItem A
168 
A = "Tropfen Dämonenspeichel"
169 
Beute.List1.AddItem A
170 
A = "Magischer Opferdolch"
171 
Beute.List1.AddItem A
172 
AltarTdOK2 = 1
173 
Beute.Show (vbModal)
174 
miss5:
175 
End Sub
176 
 
177 
Private Sub Label1_Click()
178 
Unload TdOK2
179 
TdOK1.Show
180 
End Sub