Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Newer
Older
100755 417 lines (369 sloc) 17.671 kb
7812daa importing 6.7.1
U-THOMAS\Jason Merrill authored
1 VERSION 5.00
2 Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
3 Begin VB.Form frmHelp
4 Caption = "Parser Commands"
5 ClientHeight = 3720
6 ClientLeft = 60
7 ClientTop = 450
8 ClientWidth = 5310
9 Icon = "frmHelp.frx":0000
10 LinkTopic = "Form1"
11 ScaleHeight = 3720
12 ScaleWidth = 5310
13 StartUpPosition = 3 'Windows Default
14 Begin VB.ComboBox comboList
15 Height = 315
16 ItemData = "frmHelp.frx":030A
17 Left = 990
18 List = "frmHelp.frx":030C
19 Style = 2 'Dropdown List
20 TabIndex = 0
21 Top = 45
22 Width = 4335
23 End
24 Begin RichTextLib.RichTextBox RTB_Help
25 Height = 3300
26 Left = 0
27 TabIndex = 1
28 Top = 405
29 Width = 5325
30 _ExtentX = 9393
31 _ExtentY = 5821
32 _Version = 393217
33 Enabled = -1 'True
34 ScrollBars = 2
35 TextRTF = $"frmHelp.frx":030E
36 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
37 Name = "Arial"
38 Size = 8.25
39 Charset = 0
40 Weight = 400
41 Underline = 0 'False
42 Italic = 0 'False
43 Strikethrough = 0 'False
44 EndProperty
45 End
46 Begin VB.Label lbl
47 Caption = "Command:"
48 Height = 240
49 Left = 45
50 TabIndex = 2
51 Top = 90
52 Width = 1410
53 End
54 End
55 Attribute VB_Name = "frmHelp"
56 Attribute VB_GlobalNameSpace = False
57 Attribute VB_Creatable = False
58 Attribute VB_PredeclaredId = True
59 Attribute VB_Exposed = False
60 Private Sub comboList_Click()
61 With RTB_Help
62 .Text = ""
63 If comboList.ListIndex = 0 Then
64 .SelBold = True
65 .SelText = "Basic usage for all commands" & vbNewLine
66 .SelColor = vbBlue
67 .SelText = """" & "/echo parser " & """"
68 .SelColor = vbBlack
69 .SelText = " and the command." & vbNewLine & vbNewLine
70
71 .SelBold = True
72 .SelText = "Command List: " & vbNewLine
73 .SelText = """" & "start fight" & """" & " *" & vbNewLine
74 .SelText = """" & "stop fight" & """" & " *" & vbNewLine
75 .SelText = """" & "start dps" & """" & " *" & vbNewLine
76 .SelText = """" & "stop dps" & """" & " *" & vbNewLine
77 .SelText = """" & "clear dps" & """" & vbNewLine
78 .SelText = """" & "start exp" & """" & " *" & vbNewLine
79 .SelText = """" & "stop exp" & """" & " *" & vbNewLine
80 .SelText = """" & "start fish" & """" & " *" & vbNewLine
81 .SelText = """" & "stop fish" & """" & " *" & vbNewLine
82 .SelText = """" & "clear" & """" & vbNewLine
83 .SelText = """" & "save report" & """" & vbNewLine
84 .SelText = """" & "save summary" & """" & vbNewLine
85 .SelText = """" & "save details" & """" & vbNewLine
86 .SelText = """" & "save player1-6" & """" & vbNewLine
87 .SelText = """" & "beep" & """" & vbNewLine
88 .SelText = """" & "window1-7" & """" & vbNewLine
89 .SelText = """" & "start logging" & """" & vbNewLine
90 .SelText = """" & "stop logging" & """" & vbNewLine
91 .SelText = """" & "comment" & """" & vbNewLine
92 .SelText = """" & "timer ##:##:## '1-10'" & """" & vbNewLine
93 .SelText = """" & "fish comment" & """" & vbNewLine & vbNewLine
94 .SelBold = True
95 .SelText = "* must be followed by /clock" & vbNewLine
96 .SelText = "The /clock command can follow anytime after the command that requires it." & vbNewLine & vbNewLine & vbNewLine
97 End If
98
99 If comboList.ListIndex = 1 Then
100 .SelBold = True
101 .SelColor = vbRed
102 .SelText = "Fight Efficiency - Displayed per fight on Report." & vbNewLine
103 .SelBold = True
104 .SelText = "Commands used:" & vbNewLine
105 .SelColor = vbBlue
106 .SelText = """" & "start fight" & """" & vbNewLine
107 .SelColor = vbBlue
108 .SelText = """" & "stop fight" & """" & vbNewLine
109 .SelText = """" & "/clock" & """" & vbNewLine & vbNewLine
110
111 .SelBold = True
112 .SelText = "Example:" & vbNewLine
113 .SelText = "1. You begin fighting." & vbNewLine
114 .SelText = "2. /echo parser start fight" & vbNewLine
115 .SelText = "3. /clock" & vbNewLine
116 .SelText = "4. You kill the monster." & vbNewLine
117 .SelText = "5. /echo parser stop fight" & vbNewLine
118 .SelText = "6. /clock" & vbNewLine & vbNewLine
119
120 .SelBold = True
121 .SelText = "Notes:" & vbNewLine
122 .SelText = "This will also calculate the DPS on the summary so you don't have to use both commands." & vbNewLine & vbNewLine
123 End If
124
125 If comboList.ListIndex = 2 Then
126 .SelBold = True
127 .SelColor = vbRed
128 .SelText = "Damage Per Second Calculation - Displayed on summary." & vbNewLine
129 .SelBold = True
130 .SelText = "Commands used:" & vbNewLine
131 .SelColor = vbBlue
132 .SelText = """" & "start dps" & """" & vbNewLine
133 .SelColor = vbBlue
134 .SelText = """" & "stop dps" & """" & vbNewLine
135 .SelText = """" & "/clock" & """" & vbNewLine
136 .SelColor = vbBlue
137 .SelText = """" & "clear dps" & """" & vbNewLine & vbNewLine
138
139 .SelBold = True
140 .SelText = "Example:" & vbNewLine
141 .SelText = "1. You begin fighting." & vbNewLine
142 .SelText = "2. /echo parser start dps" & vbNewLine
143 .SelText = "3. /clock" & vbNewLine
144 .SelText = "4. You kill the monster." & vbNewLine
145 .SelText = "5. /echo parser stop dps" & vbNewLine
146 .SelText = "6. /clock" & vbNewLine
147 .SelText = "7. You messed up, forgot to stop for example." & vbNewLine
148 .SelText = "8. /echo parser clear dps" & vbNewLine & vbNewLine
149 End If
150
151
152 If comboList.ListIndex = 3 Then
153 .SelBold = True
154 .SelColor = vbRed
155 .SelText = "Experience Calculation - Displayed on summary." & vbNewLine
156 .SelBold = True
157 .SelText = "Commands used:" & vbNewLine
158 .SelColor = vbBlue
159 .SelText = """" & "start exp" & """" & vbNewLine
160 .SelColor = vbBlue
161 .SelText = """" & "stop exp" & """" & vbNewLine
162 .SelText = """" & "/clock" & """" & vbNewLine & vbNewLine
163
164 .SelBold = True
165 .SelText = "Example:" & vbNewLine
166 .SelText = "1. You puller pulls the first monster." & vbNewLine
167 .SelText = "2. /echo parser start exp" & vbNewLine
168 .SelText = "3. /clock" & vbNewLine
169 .SelText = "4. Your party breaks up." & vbNewLine
170 .SelText = "5. /echo parser stop exp" & vbNewLine
171 .SelText = "6. /clock" & vbNewLine & vbNewLine
172
173 .SelBold = True
174 .SelText = "Notes:" & vbNewLine
175 .SelText = "When you do the start command the Total Exp on the summary report will reset to 0." & vbNewLine
176 .SelText = "The stop command is not required to see the exp calculations, the parser will use the current system time until a stop command is received."
177 End If
178
179
180 If comboList.ListIndex = 4 Then
181 .SelBold = True
182 .SelColor = vbRed
183 .SelText = "Fishing Report" & vbNewLine
184 .SelBold = True
185 .SelText = "Commands used:" & vbNewLine
186 .SelColor = vbBlue
187 .SelText = """" & "start fish" & """" & vbNewLine
188 .SelColor = vbBlue
189 .SelText = """" & "stop fish" & """" & vbNewLine
190 .SelText = """" & "/clock" & """" & vbNewLine
191 .SelColor = vbBlue
192 .SelText = """" & "fish comment" & """" & vbNewLine & vbNewLine
193
194 .SelBold = True
195 .SelText = "Example:" & vbNewLine
196 .SelText = "1. /echo parser start fish" & vbNewLine
197 .SelText = "2. /clock" & vbNewLine
198 .SelText = "3. /echo parser fish comment 'Using lugworm'" & " - This of course is optional" & vbNewLine
199 .SelText = "4. You fish for as long as you want." & vbNewLine
200 .SelText = "5. /echo parser stop fish" & vbNewLine
201 .SelText = "6. /clock" & vbNewLine & vbNewLine
202
203 .SelBold = True
204 .SelText = "Notes:" & vbNewLine
205 .SelText = """" & "stop fish" & """" & " is not required, you may start a new cycle with " & """" & "start fish" & """" & ". However if you are done for the day you must use the " & """" & "stop fish" & """" & "." & vbNewLine & vbNewLine
206
207 End If
208
209
210 If comboList.ListIndex = 5 Then
211 .SelBold = True
212 .SelColor = vbRed
213 .SelText = "Save Reports - Saves specified report to FFXIP folder." & vbNewLine
214 .SelBold = True
215 .SelText = "Commands used:" & vbNewLine
216 .SelColor = vbBlue
217 .SelText = """" & "save report" & """" & vbNewLine
218 .SelColor = vbBlue
219 .SelText = """" & "save summary" & """" & vbNewLine
220 .SelColor = vbBlue
221 .SelText = """" & "save details" & """" & vbNewLine
222 .SelColor = vbBlue
223 .SelText = """" & "save player1-6" & """" & vbNewLine & vbNewLine
224
225 .SelBold = True
226 .SelText = "Examples:" & vbNewLine
227 .SelText = "/echo parser save report MyReport.rtf" & vbNewLine & vbNewLine
228 .SelText = "/echo parser save summary MySummary.rtf" & vbNewLine & vbNewLine
229 .SelText = "/echo parser save details MyDetails.rtf" & vbNewLine & vbNewLine
230 .SelText = "/echo parser save player1 Spyle.rtf" & vbNewLine & vbNewLine
231 End If
232
233 If comboList.ListIndex = 6 Then
234 .SelBold = True
235 .SelColor = vbRed
236 .SelText = "Set Player Details." & vbNewLine
237 .SelBold = True
238 .SelText = "Commands used:" & vbNewLine
239 .SelColor = vbBlue
240 .SelText = """" & "player" & """" & vbNewLine & vbNewLine
241
242 .SelText = "/echo parser player Name Job SubJob Level" & vbNewLine & vbNewLine
243 .SelBold = True
244 .SelText = "Examples:" & vbNewLine
245 .SelText = "/echo parser player Spyle warrior ninja 75" & vbNewLine & vbNewLine
246 .SelText = "/echo parser player Spyle war nin 74-75" & vbNewLine & vbNewLine
247 .SelText = "/echo parser player Apricoth bard whitemage 75" & vbNewLine & vbNewLine
248 .SelText = "/echo parser player Apricoth brd whm 75" & vbNewLine & vbNewLine
249
250 End If
251
252 If comboList.ListIndex = 7 Then
253 .SelBold = True
254 .SelColor = vbRed
255 .SelText = "Beep Beep!" & vbNewLine
256 .SelBold = True
257 .SelText = "Commands used:" & vbNewLine
258 .SelColor = vbBlue
259 .SelText = """" & "beep" & """" & vbNewLine & vbNewLine
260
261 .SelBold = True
262 .SelText = "Example:" & vbNewLine
263 .SelText = "1. /echo parser beep" & vbNewLine & vbNewLine
264
265 .SelBold = True
266 .SelText = "Notes:" & vbNewLine
267 .SelText = "This will make your computer beep twice, letting you know it has reached this area of the log." & vbNewLine & vbNewLine
268 End If
269
270 If comboList.ListIndex = 8 Then
271 .SelBold = True
272 .SelColor = vbRed
273 .SelText = "Change Window." & vbNewLine
274 .SelBold = True
275 .SelText = "Commands used:" & vbNewLine
276 .SelColor = vbBlue
277 .SelText = """" & "window1-7" & """" & vbNewLine & vbNewLine
278
279 .SelBold = True
280 .SelText = "Example:" & vbNewLine
281 .SelText = "1. /echo parser window 2" & vbNewLine & vbNewLine
282
283 .SelBold = True
284 .SelText = "Notes:" & vbNewLine
285 .SelText = "Changes the current window to Summary. Correlates with Function Keys in View." & vbNewLine & vbNewLine
286 End If
287
288 If comboList.ListIndex = 9 Then
289 .SelBold = True
290 .SelColor = vbRed
291 .SelText = "Start/Stop Logging." & vbNewLine
292 .SelBold = True
293 .SelText = "Commands used:" & vbNewLine
294 .SelColor = vbBlue
295 .SelText = """" & "stop logging" & """" & vbNewLine
296 .SelText = """" & "start logging" & """" & vbNewLine & vbNewLine
297
298 .SelBold = True
299 .SelText = "Example:" & vbNewLine
300 .SelText = "1. /echo parser stop logging" & vbNewLine
301 .SelText = "2. Do your vewy-wery secwet stuff!" & vbNewLine
302 .SelText = "3. /echo parser start logging" & vbNewLine & vbNewLine
303
304 .SelBold = True
305 .SelText = "Notes:" & vbNewLine
306 .SelText = "Once a stop logging command is received it will NOT parse/gather or do ANYTHING with any future lines until a start logging command is received." & vbNewLine & vbNewLine
307 End If
308
309 If comboList.ListIndex = 10 Then
310 .SelBold = True
311 .SelColor = vbRed
312 .SelText = "Timer Function." & vbNewLine
313 .SelBold = True
314 .SelText = "Commands used:" & vbNewLine
315 .SelColor = vbBlue
316 .SelText = """" & "timer ##:##:## '1-10'" & """" & vbNewLine
317 .SelText = """" & "/clock" & """" & vbNewLine & vbNewLine
318
319 .SelBold = True
320 .SelText = "Example Macro 1:" & vbNewLine
321 .SelText = "/ja " & """" & "Warcry" & """" & " Spyle" & vbNewLine
322 .SelText = "/echo parser timer 00:05:00 '1'" & vbNewLine
323 .SelText = "/clock" & vbNewLine & vbNewLine
324 .SelItalic = True
325 .SelText = "This macro will make the parser play 1 beep or WAV 1, in 5 mins, when my Warcry is ready again" & vbNewLine & vbNewLine
326 .SelBold = True
327 .SelText = "Example Macro 2:" & vbNewLine
328 .SelText = "/ja " & """" & "Mighty Strikes" & """" & " Spyle" & vbNewLine
329 .SelText = "/echo parser timer 02:00:00 '5'" & vbNewLine
330 .SelText = "/clock" & vbNewLine & vbNewLine
331 .SelItalic = True
332 .SelText = "This macro will make the parser play 5 beeps or WAV 5, in 2 hrs, when my Mighty Strikes are ready again" & vbNewLine & vbNewLine
333
334 .SelBold = True
335 .SelText = "Notes:" & vbNewLine
336 .SelText = "You MUST use the format ##:##:##, if you simply put 0:05 then it will NOT work. You can have up to 10 timers running at one time." & vbNewLine & vbNewLine
337 .SelText = "The '1-10' specifies either the WAV to be played, or the number of beeps. Depending on what option you have selected." & vbNewLine & vbNewLine
338 .SelText = "What this command basically does is play a sound when your ability is ready. Of course, you don't have to use it just for that.. " & vbNewLine & vbNewLine
339 .SelBold = True
340 .SelText = "Important!" & vbNewLine
341 .SelText = "If you do something quick, like 00:00:30, then chances are by the time the parser is able to read the log file, those 30 seconds will be long gone, making it useless for abilities that have a short wait."
342 End If
343
344 If comboList.ListIndex = 11 Then
345 .SelBold = True
346 .SelColor = vbRed
347 .SelText = "Add Comments - Displayed in multiple areas per fight." & vbNewLine
348 .SelBold = True
349 .SelText = "Commands used:" & vbNewLine
350 .SelColor = vbBlue
351 .SelText = """" & "comment" & """" & vbNewLine & vbNewLine
352
353 .SelBold = True
354 .SelText = "Example:" & vbNewLine
355 .SelText = "1. At anytime before or during the fight." & vbNewLine
356 .SelText = "2. /echo parser comment 'Using Darksteel Axe+1'" & vbNewLine & vbNewLine
357
358 .SelBold = True
359 .SelText = "Notes:" & vbNewLine
360 .SelText = "The ' is require before and after your comments." & vbNewLine & vbNewLine
361
362 .SelBold = True
363 .SelColor = vbRed
364 .SelText = "Clear Parser - Clears all parsed data." & vbNewLine
365 .SelBold = True
366 .SelText = "Commands used:" & vbNewLine
367 .SelColor = vbBlue
368 .SelText = """" & "clear" & """" & vbNewLine & vbNewLine
369 End If
370
371 If comboList.ListIndex = 12 Then
372 .SelBold = True
373 .SelColor = vbRed
374 .SelText = "Change Gather File." & vbNewLine
375 .SelBold = True
376 .SelText = "Commands used:" & vbNewLine
377 .SelColor = vbBlue
378 .SelText = """" & "gather" & """" & vbNewLine & vbNewLine
379
380 .SelBold = True
381 .SelText = "Example:" & vbNewLine
382 .SelText = "1. /echo parser gather 'c:\mine.prs'" & vbNewLine & vbNewLine
383
384 End If
385
386 End With
387 End Sub
388
389
390 Private Sub Form_Load()
391 Me.Left = frmRead.Left + 100
392 Me.Top = frmRead.Top + 100
393 comboList.AddItem "General"
394 comboList.AddItem "Fight Efficiency"
395 comboList.AddItem "Damage Per Second Calculation"
396 comboList.AddItem "Experience Calculation"
397 comboList.AddItem "Fishing Report"
398 comboList.AddItem "Save Reports"
399 comboList.AddItem "Set Player Details"
400 comboList.AddItem "Beep Beep!"
401 comboList.AddItem "Change Window"
402 comboList.AddItem "Start/Stop Logging"
403 comboList.AddItem "Timer Function"
404 comboList.AddItem "Other"
405 comboList.AddItem "Change Gather File"
406 comboList.ListIndex = 0
407 End Sub
408
409
410 Private Sub Form_Resize()
411 RTB_Help.Width = Me.ScaleWidth
412 RTB_Help.Height = Me.ScaleHeight - 400
413 comboList.Width = Me.ScaleWidth - 1000
414 End Sub
415
416
Something went wrong with that request. Please try again.