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 Rast
3 
   BackColor       =   &H00400000&
4 
   BorderStyle     =   0  'None
5 
   Caption         =   "Rast"
6 
   ClientHeight    =   2820
7 
   ClientLeft      =   0
8 
   ClientTop       =   0
9 
   ClientWidth     =   4680
10 
   LinkTopic       =   "Rast"
11 
   ScaleHeight     =   2820
12 
   ScaleWidth      =   4680
13 
   ShowInTaskbar   =   0   'False
14 
   StartUpPosition =   2  'CenterScreen
15 
   Begin VB.CommandButton Command4
16 
      BackColor       =   &H00C0C000&
17 
      Cancel          =   -1  'True
18 
      Caption         =   "Schlaf"
19 
      Default         =   -1  'True
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          =   1335
30 
      Left            =   600
31 
      Style           =   1  'Graphical
32 
      TabIndex        =   4
33 
      Top             =   960
34 
      Width           =   735
35 
   End
36 
   Begin VB.CommandButton Command3
37 
      BackColor       =   &H00C0C000&
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          =   375
50 
      Left            =   1560
51 
      Style           =   1  'Graphical
52 
      TabIndex        =   3
53 
      Top             =   1920
54 
      Width           =   2535
55 
   End
56 
   Begin VB.CommandButton Command2
57 
      BackColor       =   &H00C0C000&
58 
      Caption         =   "Pflanzensuche"
59 
      BeginProperty Font
60 
         Name            =   "Arial"
61 
         Size            =   8.25
62 
         Charset         =   0
63 
         Weight          =   700
64 
         Underline       =   0   'False
65 
         Italic          =   0   'False
66 
         Strikethrough   =   0   'False
67 
      EndProperty
68 
      Height          =   375
69 
      Left            =   1560
70 
      Style           =   1  'Graphical
71 
      TabIndex        =   2
72 
      Top             =   1440
73 
      Width           =   2535
74 
   End
75 
   Begin VB.CommandButton Command1
76 
      BackColor       =   &H00C0C000&
77 
      Caption         =   "Wunden heilen"
78 
      BeginProperty Font
79 
         Name            =   "Arial"
80 
         Size            =   8.25
81 
         Charset         =   0
82 
         Weight          =   700
83 
         Underline       =   0   'False
84 
         Italic          =   0   'False
85 
         Strikethrough   =   0   'False
86 
      EndProperty
87 
      Height          =   375
88 
      Left            =   1560
89 
      Style           =   1  'Graphical
90 
      TabIndex        =   1
91 
      Top             =   960
92 
      Width           =   2535
93 
   End
94 
   Begin VB.Line Line1
95 
      BorderColor     =   &H00FFFFFF&
96 
      X1              =   120
97 
      X2              =   4440
98 
      Y1              =   480
99 
      Y2              =   480
100 
   End
101 
   Begin VB.Label Label1
102 
      AutoSize        =   -1  'True
103 
      BackStyle       =   0  'Transparent
104 
      Caption         =   "Rasten"
105 
      BeginProperty Font
106 
         Name            =   "Times New Roman"
107 
         Size            =   18
108 
         Charset         =   0
109 
         Weight          =   400
110 
         Underline       =   0   'False
111 
         Italic          =   0   'False
112 
         Strikethrough   =   0   'False
113 
      EndProperty
114 
      ForeColor       =   &H0000FFFF&
115 
      Height          =   405
116 
      Left            =   120
117 
      TabIndex        =   0
118 
      Top             =   120
119 
      Width           =   990
120 
   End
121 
End
122 
Attribute VB_Name = "Rast"
123 
Attribute VB_GlobalNameSpace = False
124 
Attribute VB_Creatable = False
125 
Attribute VB_PredeclaredId = True
126 
Attribute VB_Exposed = False
127 
Private Sub Command1_Click()
128 
Command1.Enabled = False
129 
HeilRast
130 
End Sub
131 
 
132 
Private Sub Command2_Click()
133 
Stunden = Stunden + 1
134 
Dayli
135 
Command2.Enabled = False
136 
Randomize Timer
137 
Zahl = Int(100 * Rnd)
138 
If Zahl < PFLANZENKUNDE Then GoTo flowfound Else GoTo nichts
139 
flowfound:
140 
Randomize Timer
141 
Zahl = Int(50 * Rnd)
142 
A = ""
143 
If Zahl = 0 Then A = "Wuzelknolle"
144 
If Zahl >= 1 And Zahl < 3 Then A = "Unze Goldstaub"
145 
If Zahl >= 15 And Zahl <= 30 Then A = "Blüte eines Morgentaus"
146 
If Zahl >= 45 Then A = "Büschel Brunnensporn"
147 
If Zahl >= 3 And Zahl <= 9 Then A = "Höllenpilz"
148 
If Zahl = 9 Then A = "Schwarzer Lotos"
149 
If A = "" Then A = "Wurzelknolle"
150 
Manager.Inventar.AddItem A
151 
Titel = "Pflanzensuche erfolgreich"
152 
Text = "Du findest " + A
153 
onlyOK
154 
Konversation.Show (vbModal)
155 
GoTo joja
156 
nichts:
157 
Titel = "Pflanzensuche fehlgeschlagen"
158 
Text = "Du findest nichts"
159 
onlyOK
160 
Konversation.Show (vbModal)
161 
joja:
162 
End Sub
163 
 
164 
Private Sub Command3_Click()
165 
Dim objdes As String
166 
objdes = Manager.Inventar.Text
167 
If objdes = "Bärenfell" Then Fell: GoTo kjik
168 
If objdes = "Wolfsfell" Then Fell: GoTo kjik
169 
If objdes = "Kleiner Heiltrank" Then KleinerHeiltrank: GoTo kjik
170 
If objdes = "Kleiner Zaubertrank" Then KleinerZaubertrank: GoTo kjik
171 
If objdes = "Großer Heiltrank" Then GroßerHeiltrank: GoTo kjik
172 
If objdes = "Großer Zaubertrank" Then GroßerZaubertrank: GoTo kjik
173 
GoTo klopse312
174 
kjik:
175 
RHMP
176 
ManagRighter
177 
Stunden = Stunden + 1
178 
Dayli
179 
Equipment.Command2.Enabled = False
180 
Manager.Command2.Enabled = False
181 
A = Manager.Inventar.ListIndex
182 
Manager.Inventar.RemoveItem A
183 
Command3.Enabled = False
184 
klopse312:
185 
End Sub
186 
 
187 
Private Sub Command4_Click()
188 
Landkarte.Show
189 
SchlafenGehen
190 
Unload Rast
191 
Dayli
192 
ManagRighter
193 
Landkarte.Rasten.Enabled = False: Landkarte.Rasten.Visible = False
194 
Landkarte.city
195 
End Sub
196 
 
197 
Private Sub Form_Activate()
198 
Manager.Command10.Enabled = False
199 
End Sub
200 
 
201 
Private Sub Form_Load()
202 
Command1.Caption = Command1.Caption + " (" + Str(WUNDENHEILEN) + "%)"
203 
Command2.Caption = Command2.Caption + " (" + Str(PFLANZENKUNDE) + "%)"
204 
End Sub
205 
 
206 
Sub HeilRast()
207 
Stunden = Stunden + 1
208 
Dayli
209 
Randomize Timer
210 
Zahl = Int(100 * Rnd)
211 
If Zahl > WUNDENHEILEN Then GoTo fail Else GoTo haha
212 
fail:
213 
Randomize Timer
214 
Zahl = Int(5 * Rnd) + 1
215 
Hp = Hp - Zahl
216 
RHMP
217 
 
218 
Titel = "Wunden heilen fehlgeschlagen"
219 
Text = "Du fügst dir " + Str(Zahl) + " Schadenspunkte zu."
220 
onlyOK
221 
Konversation.Show (vbModal)
222 
 
223 
If Hp <= 0 Then TOT.Show: Unload Rast
224 
GoTo joky
225 
haha:
226 
Zahl = Int(WUNDENHEILEN / 10) + 1
227 
Hp = Hp + Zahl
228 
RHMP
229 
Titel = "Wunden heilen gelungen"
230 
Text = "Du heilst " + Str(Zahl) + " Lebenspunkte."
231 
onlyOK
232 
Konversation.Show (vbModal)
233 
joky:
234 
ManagRighter
235 
End Sub
236 
 
237 
Private Sub Form_Unload(Cancel As Integer)
238 
Manager.Command10.Enabled = True
239 
End Sub