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 TruheÖffnen
3 
   BackColor       =   &H00000000&
4 
   BorderStyle     =   1  'Fixed Single
5 
   Caption         =   "Schlösser öffnen"
6 
   ClientHeight    =   2400
7 
   ClientLeft      =   45
8 
   ClientTop       =   330
9 
   ClientWidth     =   4680
10 
   ControlBox      =   0   'False
11 
   LinkTopic       =   "TruheÖffnen"
12 
   MaxButton       =   0   'False
13 
   MinButton       =   0   'False
14 
   ScaleHeight     =   2400
15 
   ScaleWidth      =   4680
16 
   StartUpPosition =   2  'CenterScreen
17 
   Begin VB.CommandButton Command2
18 
      BackColor       =   &H00FF8080&
19 
      Caption         =   "Mit Waffe einschlagen"
20 
      BeginProperty Font
21 
         Name            =   "Arial"
22 
         Size            =   8.25
23 
         Charset         =   0
24 
         Weight          =   700
25 
         Underline       =   0   'False
26 
         Italic          =   0   'False
27 
         Strikethrough   =   0   'False
28 
      EndProperty
29 
      Height          =   495
30 
      Left            =   3200
31 
      Style           =   1  'Graphical
32 
      TabIndex        =   5
33 
      Top             =   780
34 
      Width           =   1215
35 
   End
36 
   Begin VB.CommandButton Command1
37 
      BackColor       =   &H00FF8080&
38 
      Caption         =   "Objekt benutzen"
39 
      Enabled         =   0   'False
40 
      BeginProperty Font
41 
         Name            =   "Arial"
42 
         Size            =   8.25
43 
         Charset         =   0
44 
         Weight          =   700
45 
         Underline       =   0   'False
46 
         Italic          =   0   'False
47 
         Strikethrough   =   0   'False
48 
      EndProperty
49 
      Height          =   495
50 
      Left            =   3200
51 
      Style           =   1  'Graphical
52 
      TabIndex        =   4
53 
      Top             =   1370
54 
      Width           =   1215
55 
   End
56 
   Begin VB.CommandButton Command3
57 
      BackColor       =   &H00E0E0E0&
58 
      Cancel          =   -1  'True
59 
      Caption         =   "Verlassen"
60 
      Default         =   -1  'True
61 
      BeginProperty Font
62 
         Name            =   "Arial"
63 
         Size            =   8.25
64 
         Charset         =   0
65 
         Weight          =   700
66 
         Underline       =   0   'False
67 
         Italic          =   0   'False
68 
         Strikethrough   =   0   'False
69 
      EndProperty
70 
      Height          =   255
71 
      Left            =   3240
72 
      Style           =   1  'Graphical
73 
      TabIndex        =   3
74 
      Top             =   2040
75 
      Width           =   1095
76 
   End
77 
   Begin VB.Shape Shape1
78 
      BorderColor     =   &H00FF8080&
79 
      FillColor       =   &H00800000&
80 
      FillStyle       =   0  'Solid
81 
      Height          =   1215
82 
      Left            =   3120
83 
      Top             =   720
84 
      Width           =   1335
85 
   End
86 
   Begin VB.Label Label3
87 
      AutoSize        =   -1  'True
88 
      BackStyle       =   0  'Transparent
89 
      Caption         =   "Schloss öffnen"
90 
      BeginProperty Font
91 
         Name            =   "Times New Roman"
92 
         Size            =   15.75
93 
         Charset         =   0
94 
         Weight          =   400
95 
         Underline       =   0   'False
96 
         Italic          =   0   'False
97 
         Strikethrough   =   0   'False
98 
      EndProperty
99 
      ForeColor       =   &H0000FFFF&
100 
      Height          =   345
101 
      Left            =   240
102 
      TabIndex        =   2
103 
      Top             =   120
104 
      Width           =   1830
105 
   End
106 
   Begin VB.Line Line1
107 
      BorderColor     =   &H00FFFFFF&
108 
      X1              =   240
109 
      X2              =   4440
110 
      Y1              =   480
111 
      Y2              =   480
112 
   End
113 
   Begin VB.Label Label2
114 
      AutoSize        =   -1  'True
115 
      BackStyle       =   0  'Transparent
116 
      Caption         =   "Label2"
117 
      BeginProperty Font
118 
         Name            =   "Arial"
119 
         Size            =   8.25
120 
         Charset         =   0
121 
         Weight          =   700
122 
         Underline       =   0   'False
123 
         Italic          =   0   'False
124 
         Strikethrough   =   0   'False
125 
      EndProperty
126 
      ForeColor       =   &H00FFFFFF&
127 
      Height          =   210
128 
      Left            =   2160
129 
      TabIndex        =   1
130 
      Top             =   2040
131 
      Width           =   540
132 
   End
133 
   Begin VB.Label Label1
134 
      AutoSize        =   -1  'True
135 
      BackStyle       =   0  'Transparent
136 
      Caption         =   "Stufe des Schlosses"
137 
      BeginProperty Font
138 
         Name            =   "Arial"
139 
         Size            =   8.25
140 
         Charset         =   0
141 
         Weight          =   700
142 
         Underline       =   0   'False
143 
         Italic          =   0   'False
144 
         Strikethrough   =   0   'False
145 
      EndProperty
146 
      ForeColor       =   &H00FFFFFF&
147 
      Height          =   210
148 
      Left            =   240
149 
      TabIndex        =   0
150 
      Top             =   2040
151 
      Width           =   1710
152 
   End
153 
End
154 
Attribute VB_Name = "TruheÖffnen"
155 
Attribute VB_GlobalNameSpace = False
156 
Attribute VB_Creatable = False
157 
Attribute VB_PredeclaredId = True
158 
Attribute VB_Exposed = False
159 
Private Sub Command1_Click()
160 
Command1.Enabled = False
161 
Fpoints = (STEHLEN - 10) - Schlosslevel
162 
Randomize Timer
163 
Zahl = Int(100 * Rnd)
164 
If Zahl < Fpoints Then Gelungen Else Fehlgeschlagen
165 
End Sub
166 
Sub Gelungen()
167 
Titel = "Schloss geöffnet"
168 
Text = "Du öffnest das Schloss!"
169 
onlyOK
170 
Exp = Int(Schlosslevel * 2)
171 
Beute.Show (vbModal)
172 
Konversation.Show (vbModal)
173 
If Truhe = "tdok1a" Then Truheo1 = 1
174 
If Truhe = "tdok1b" Then Truheo2 = 1
175 
If Truhe = "Haus" Then TruheH1 = 1
176 
Truhe = ""
177 
Unload TruheÖffnen
178 
End Sub
179 
Sub Fehlgeschlagen()
180 
Titel = "Schloss nicht geöffnet"
181 
Text = "Du kannst das Schloss nicht öffnen."
182 
onlyOK
183 
Konversation.Show (vbModal)
184 
Unload TruheÖffnen
185 
Truhe = ""
186 
End Sub
187 
 
188 
Private Sub Command2_Click()
189 
Zahl = Schlosslevel * 10
190 
If Strength >= Zahl Then Gelungen Else Fehlgeschlagen
191 
End Sub
192 
 
193 
Private Sub Command3_Click()
194 
Truhe = ""
195 
Unload TruheÖffnen
196 
End Sub
197 
 
198 
Private Sub Form_Load()
199 
woher = "TruheÖffnen"
200 
Label2.Caption = Schlosslevel
201 
End Sub