Project

General

Profile

[Script] HTA media viewer v0.9.2 » HTA media viewer v0.9.ini

Mr. BS, 03/03/2016 03:31 AM

 
1
; HTA media viewer
2
; http://dev.adiirc.com/boards/5/topics/533
3
; v0.9 by pereba
4

    
5
alias -l HTAversion {
6
  return 0.9
7
}
8

    
9
on *:LOAD: {
10
  set -u10 %HTAload 1
11
  if ($version < 2.3) {
12
    echo -agtc info AdiIRC version 2.3 or higher is required to use HTA Media Viewer. Unloading script...
13
    unload -rs $script | .timerHTAupdate* off | unset %HTA_ENABLED
14
    halt
15
  }
16
  if (!$exists($HTAconfig)) {
17
    set %HTA_ENABLED 0
18
    set -u4 %HTAunloading 1
19
    enableToggle
20
    halt
21
  }
22
  set -eu6 %HTAinstalling 1
23
  set %HTA_ENABLED 1
24
  freshConfig
25
}
26

    
27
alias HTAupdate {
28
  sockclose HTA
29
  sockopen HTA pastebin.com 80
30
  sockmark $1
31
}
32
on *:sockopen:HTA:{
33
  sockwrite -n HTA GET /raw/mDLb4baa HTTP/1.1
34
  sockwrite -n HTA Host: $sock(HTA).addr $+ $str($crlf,2)
35
}
36
on *:sockread:HTA:{
37
  var %HTAreader
38
  sockread %HTAreader
39
  if ($regex(%HTAreader,/htalastversion=(.*)/)) {
40
    hadd HTAconfig LastUpdateCheck $ctime
41
    if ($HTAversion < $$regml(1)) {
42
      if ($?!="HTA Media Viewer version 0.9 is available. Do you want to upgrade now?") {
43
        download -o HTAupgrade http://pastebin.com/raw/UXETCLbh $qt($scriptdir $+ HTA media viewer v $+ $regml(1) $+ .ini)
44
      }
45
    }
46
    else {
47
      if ($sock(HTA).mark != silent) noop $input(Good news! You already have the lastest version.,o,HTA Media Viewer Upgrade)
48
    }
49
    sockclose HTA
50
  }
51
}
52

    
53
alias -l enableToggle {
54
  if (!$exists($HTAconfig)) {
55
    set %HTA_ENABLED 0
56
    
57
    ; Create HTA folder
58
    var %dir $qt($adiircdirHTAmediaViewer)
59
    if (!$exists(%dir)) mkdir %dir
60
    
61
    ; Download required files
62
    HTAdown AdiIRC.ico 0B36riaEyLqg_c0tkV1p1MklhS2s
63
    HTAdown openhand.cur 0B36riaEyLqg_NVg1RFltRkJZV28
64
    HTAdown closedhand.cur 0B36riaEyLqg_NVlpbW1NWVZ5TXc
65
    HTAdown HTAmediaViewer.hta 0B36riaEyLqg_ajlWUUo1TjV5Q0E
66
    HTAdown HTAmediaViewer.htm 0B36riaEyLqg_VEJfUDByU3czQ3c
67
    
68
    halt
69
  }
70
  freshConfig
71
  set %HTA_ENABLED $iif(%HTA_ENABLED,0,1)
72
}
73

    
74
alias -l HTAdown {
75
  var %url https://drive.google.com/uc?export=download&id= $+ $2 , %dir $qt($adiircdir $+ HTAmediaViewer\ $+ $1)
76
  download -o HTAdown_ $+ $1 %url %dir
77
}
78

    
79
on *:DOWNLOAD:HTAupgrade: {
80
  if ($downloaderr) {
81
    echo -agtc info Failed to download files, try again later or get files manually in http://dev.adiirc.com/boards/5/topics/533
82
    halt
83
  }
84
  else {
85
    .remove $HTAconfig
86
    .unload -rs $script
87
    .remove $script
88
    .load -rs $download($download).file
89
  }
90
}
91

    
92
on *:DOWNLOAD:HTAdown_*: {
93
  inc %HTAdown_count
94
  if ($downloaderr) inc %HTAdown_error_count
95
  
96
  ; On finish attempt to download all files
97
  if (%HTAdown_count == 5) {
98
    ; if one or more files failed, display error message
99
    if (%HTAdown_error_count) {
100
      noop $input(Failed to download all required files $+ $chr(44) $+ try to enable again for a new attempt or download all require files manually in website.,o,HTA Media Viewer Error)
101
    }
102
    else {
103
      enableToggle
104
    }
105
  unset %HTAdown_*
106
  }
107
}
108

    
109
on *:UNLOAD: {
110
  .timerHTAupdate off
111
  unset %HTA_ENABLED
112
  set -u3 %HTAunloading 1
113
  if ($hget(HTAconfig)) hfree $v1
114
}
115

    
116
on *:START: {
117
  ; Continue only if on LOAD event not triggered
118
  if (%HTAinstalling || %HTAload) {
119
    halt
120
  }
121
  
122
  ; check for update after 10 minutes
123
  .timerHTAupdate 1 600 if ( $!gettok( $duration( $calc( $ctime - $iif($hget(HTAconfig,LastUpdateCheck),$v1,$ctime) ) ,3) ,1,58) >= 24) HTAupdate silent
124
  
125
  set -u4 %HTAstarting 1
126
  
127
  if ($exists($HTAconfig)) {
128
    freshConfig
129
  }
130
  ; Missing HTA files? then lets disable script, when user enable it in menu, enableToggle alias will prompt.
131
  else {
132
    set %HTA_ENABLED 0
133
  }
134
}
135

    
136
on *:OPTIONS: {
137
  if ($uptime(AdiIRC,3) < 10) return
138
  ; Workaround in case user paste script content instead to load a file (initialization warning shows only on closing editor in this case)
139
  if (%HTAunloading || %HTAstarting || %HTAload) return
140

    
141
  if ($exists($HTAconfig)) freshConfig AdiColors
142
}
143

    
144
alias -l freshConfig {
145
  var %n HTAconfig, %f $HTAconfigFile, %e $exists(%f)
146

    
147
  if ($1 == AdiColors && %e) {
148
    goto $1
149
  }
150

    
151
  ; If config not exists lets create one based on default values
152
  if (%e == $false) {
153
    if (!$hget(HTAconfig)) hmake %n
154
    hadd %n SIZE_LIMIT_ENABLED 0
155
    hadd %n MAX_WIDTH 300
156
    hadd %n MAX_HEIGHT 300
157
    hadd %n BORDER none
158
    hadd %n CLOSE_ONBLUR 0
159
    hadd %n WEBM_PLAYER $envvar(programfiles) $+ \Windows Media Player\wmplayer.exe
160
    hadd %n SERVICES_ENABLED Coub,Dropbox,Gfycat,Pasteboard,Porngifs,Prntscr/Lightshot,Uploadpie,Vimeo,Youtube,Pastebin
161
    hadd %n USE_DEFAULT_COLORS 1
162
    hadd %n USE_ADIIRC_COLORS 0
163
    hadd %n USE_CUSTOM_COLORS 0
164
    hadd %n Custom_checkerboard 0
165
    hadd %n Custom_bodyColor #fff
166
    hadd %n Custom_borderColor #C0C0C0
167
    hadd %n Custom_borderSize 0
168
    hadd %n Custom_spinnerColor #C45528
169
    hadd %n Custom_spinnerWidth 200
170
    hadd %n Custom_spinnerHeight 100
171
    hadd %n Custom_errorColor #000
172
  }
173
  else {    
174
    ; Since config exists lets load and mirror user config to htm file
175
    hload -mi HTAconfig %f
176
  }
177

    
178
  $saveConfig(SIZE_LIMIT_ENABLED,$getConfig(SIZE_LIMIT_ENABLED)).value
179
  $saveConfig(MAX_WIDTH,$getConfig(MAX_WIDTH)).value
180
  $saveConfig(MAX_HEIGHT,$getConfig(MAX_HEIGHT)).value
181
  $saveConfig(BORDER,$getConfig(BORDER)).value
182
  $saveConfig(CLOSE_ONBLUR,$getConfig(CLOSE_ONBLUR)).value
183
  $saveConfig(WEBM_PLAYER,$getConfig(WEBM_PLAYER)).value
184
  $saveConfig(SERVICES_ENABLED,$getConfig(SERVICES_ENABLED)).value
185
  $saveConfig(USE_DEFAULT_COLORS,$getConfig(USE_DEFAULT_COLORS)).value
186
  $saveConfig(USE_ADIIRC_COLORS,$getConfig(USE_ADIIRC_COLORS)).value
187
  $saveConfig(USE_CUSTOM_COLORS,$getConfig(USE_CUSTOM_COLORS)).value
188
  $saveConfig(Custom_checkerboard,$getConfig(Custom_checkerboard)).value
189
  $saveConfig(Custom_bodyColor,$getConfig(Custom_bodyColor)).value
190
  $saveConfig(Custom_borderColor,$getConfig(Custom_borderColor)).value
191
  $saveConfig(Custom_borderSize,$getConfig(Custom_borderSize)).value
192
  $saveConfig(Custom_spinnerColor,$getConfig(Custom_spinnerColor)).value
193
  $saveConfig(Custom_spinnerWidth,$getConfig(Custom_spinnerWidth)).value
194
  $saveConfig(Custom_spinnerHeight,$getConfig(Custom_spinnerHeight)).value
195
  $saveConfig(Custom_errorColor,$getConfig(Custom_errorColor)).value
196
  goto AdiColors
197

    
198
  ; Pull AdiIRC theme colors
199
  :AdiColors
200
  $saveConfig(Adi_bodyColor,$iif($readini($adiircini,Colors,Color_22),rgb( $+ $v1 $+ ),#fff)).value
201
  $saveConfig(Adi_borderColor,$iif($readini($adiircini,Colors,Color_76),rgb( $+ $v1 $+ ),#C0C0C0)).value
202
  $saveConfig(Adi_borderSize,$iif($readini($adiircini,General,BorderSize),$v1,0)).value
203
  $saveConfig(Adi_spinnerColor,$iif($readini($adiircini,Colors,Color_35),rgb( $+ $v1 $+ ),#C45528)).value
204
  $saveConfig(Adi_errorColor,$iif($readini($adiircini,Colors,Color_17),rgb( $+ $v1 $+ ),#000)).value
205
  hsave -i HTAconfig %f
206
}
207

    
208
alias -l laughatme {
209
  var %pos $iif($pos($1,http,1),$v1,$pos($1,www,1))
210
  return $right($1,$calc($len($1) - %pos + 1))
211
}
212

    
213
on ^*:HOTLINK:*:#,?: {
214
  ;------------------------------------------------------------
215
  ; Continue if URL + left mouse click or just 
216
  ; hovering cursor with ctrl key pressed
217
  ;------------------------------------------------------------
218

    
219
  var %url $regsubex($laughatme($1),/[\51\54\175\135]+$/,)
220
  tokenize 32 %url
221

    
222
  if ($1 isurl) && ($mouse.key & 1 || $mouse.key & 2) && ($mouse.key !& 4) {
223

    
224
    ;------------------------------------------------------------
225
    ; If script is disabled run raw url
226
    ;------------------------------------------------------------
227

    
228
    if (!%HTA_ENABLED && $mouse.key !& 2) {
229
      run $1
230
      halt
231
    }
232

    
233
    ;------------------------------------------------------------
234
    ; Domains blacklist
235
    ;------------------------------------------------------------
236

    
237
    if ($regex(BL,$1,/picpaste.com/i)) {
238
      run $1
239
      return
240
    }
241

    
242
    ;------------------------------------------------------------
243
    ; Specific sites
244
    ;------------------------------------------------------------
245

    
246
    ; Youtube - https://www.youtube.com/watch?v=VKJiROKMLxs&t=60s  (10m6 :x)
247
    if ($services(Youtube) && $regex($1,/(^.*(?:youtu.be|youtube\.com\/|embed\/|watch\?v=|\&v=)([^#\&\?]*)(?:(?:\?t|&start|&t)=(\d+))?.*)/i)) {
248
      load youtube $regml(2) $+ ? $+ $iif($regml(3),start= $+ $v1)
249
      halt
250
    }
251

    
252
    ; Vimeo - https://vimeo.com/139094998
253
    if ($services(Vimeo) && $regex($1,/vimeo\.com\/(\S+)/i)) {
254
      load iframe https://player.vimeo.com/video/ $+ $regml(1) $+ ?autoplay=1
255
      halt
256
    }
257
    
258
    ; https://www.dropbox.com/s/iuhiz9nltyw3wwk/shot_160302_154500.png?dl=0
259
    if ($regex($1,/dropbox\.com\/s\/\S+\.(\S+)\?dl=0/i)) {
260
      if ($services(Dropbox)) {
261
        if ($regml(1) isin png|jpg|gif|jpeg||bmp) { load image $replace($1,?dl=0,?dl=1) | halt }
262
        if ($services(Dropbox) && $regml(1) isin mp4|webm) { load video $replace($1,?dl=0,?dl=1) | halt }
263
      }
264
      else {
265
        run $1
266
        halt
267
      }
268
    }
269
    
270
    ; Efukt - http://www.efukt.com/21356_Denny%27s_Waiter_Tipped_With_Blowjob.html
271
    if ($services(Efukt) && $regex($1,/efukt\.com\/(\d+)_.+\.html/i)) {
272
      load video http://assets.efukt.com/videos/ $+ $regml(1) $+ .mp4
273
      halt
274
    }
275
    
276
    ; Coub - https://coub.com/view/7juc3
277
    if ($services(Coub) && $regex($1,/coub\.com\/view\/(\w+)/i)) {
278
      load iframe http://coub.com/embed/ $+ $regml(1) $+ ?autostart=true&originalSize=true&hideTopBar=true&startWithHD=true
279
      halt
280
    }
281

    
282
    ; Gfycat - https://gfycat.com/MetallicPlaintiveBubblefish
283
    if ($services(Gfycat) && $regex($1,/(gfycat\.com\/\S+)(?!(?<=webm|mp4|gif|jpg|png))$/i)) {
284
      load gfycat $1
285
      halt
286
    }
287

    
288
    ; Uploadpie - http://uploadpie.com/1sKdQ
289
    if ($services(Uploadpie) && $regex($1,/(uploadpie\.com\/\S+)/i)) {
290
      load image $1
291
      halt
292
    }
293

    
294
    ; Prntscr/Lightshot - prntscr.com/61fgnm
295
    if ($services(Prntscr/Lightshot) && $regex($1,/(prntscr\.com\/\S+)/i)) {
296
      load image $remove($1,/direct) $+ /direct
297
      halt
298
    }
299

    
300
    ; Pasteboard - pasteboard.co/1tbFi5lL.jpg
301
    if ($services(Pasteboard) && $regex($1,/(pasteboard\.co\/\S+)/i)) {
302
      load image $replace($1,pasteboard.co,cdn.pbrd.co/images)
303
      halt
304
    }
305

    
306
    ; Porngifs - porngifs.com/img/15711
307
    if ($services(Porngifs) && $regex($1,/(?:porngifs\.com\/img\/)(\S+)/i)) {
308
      load image http://cdn.porngifs.com/img/ $+ $regml(1)
309
      halt
310
    }
311

    
312
    ; Pastebin - http://pastebin.com/pqSrpshr
313
    if ($services(Pastebin) && $regex($1,/pastebin\.com\/(?!api|trends|languages|faq|tools|cookies_police|contact|dmca|scraping|pro|login|signup|search|u\/)(\S+)/i)) {
314
      load pastebin http://pastebin.com/ $+ $iif(raw/ isin $$regml(1), $regml(1), embed_iframe/ $+ $regml(1))
315
      halt
316
    }
317

    
318
    ;------------------------------------------------------------
319
    ; Generic medias
320
    ;------------------------------------------------------------
321

    
322
    ; Images or Videos
323
    if ($regex($1,/^((?:http|https)\x3a\/\/)?((?(1)(?:www\.)?|www\.).+?\/(?:.+\/)?.+\.(jp(?:e)?g|gifv|gif|png|bmp|mp4|webm)(\??\S+?)?)$/iS)) {
324

    
325
      ; Local Players
326
      if ($regml(3) == webm) {
327
        run $iif($getConfig(WEBM_PLAYER) && $$exists($qt($v1)),$qt($v1)) $qt($regml(1) $+ $regml(2))
328
        halt
329
      }
330

    
331
      load $iif($regml(3) == gifv,imgur,$iif(($regml(3) isin mp4),video,image)) $iif($regml(0) == 1,http://) $+ $regml(1) $+ $iif($regml(3) == gifv,$replace($regml(2),gifv,mp4),$regml(2))
332
      halt
333
    }
334

    
335
    ;------------------------------------------------------------
336
    ; Non media links
337
    ;------------------------------------------------------------
338

    
339
    ; not holding ctrl key
340
    if ($mouse.key !& 2) {
341
      run $1
342
    }
343
  }
344
}
345

    
346
alias -l load {
347
  ; path service url
348
  run $qt($adiircdirHTAmediaViewer\HTAmediaViewer.hta) $qt($1) $qt($2)
349
  ; alt key to simulate open window in background
350
  if ($mouse.key & 8) .timer -m 1 100 showadiirc -s
351
}
352

    
353
alias -l HTAconfig {
354
  return $qt($adiircdirHTAmediaViewer\HTAmediaViewer.htm)
355
}
356

    
357
alias -l HTAconfigFile {
358
  return $qt($adiircdirHTAmediaViewer\HTAconfig.ini)
359
}
360

    
361
alias HTA {
362
  describe $$chan is using HTA Media Viewer v $+ $HTAversion $+ . Download latest version at http://dev.adiirc.com/boards/5/topics/533
363
}
364

    
365
alias -l services {
366
  var %services $read($HTAconfig,s,SERVICES_ENABLED=)
367
  if ($prop) {
368
    write -l7 $HTAconfig SERVICES_ENABLED= $qt($iif($istok($gettok(%services,-1,34),$1,44), $remtok($gettok(%services,-1,34),$1,0,44), $addtok($gettok(%services,-1,34),$1,44)))
369
    return
370
  }
371
  return $istok($gettok(%services,-1,34),$1,44)
372
}
373

    
374
alias -l saveConfig {
375
  if ($prop == toggle) {
376
    var %value $iif($hget(HTAconfig,$1),0,1)
377
    hadd HTAconfig $1 %value
378
    write -s $+ $1 $+ = $HTAconfig $1 $+ = $+ %value
379
  }
380
  elseif ($prop == value) {
381
    hadd HTAconfig $1 $2
382
    write -s $+ $1 $+ = $HTAconfig $1 $+ = $+ $iif($2 !isnum,$qt($2),$2)
383
    if ($1 == BORDER) write -s $+ $1 $+ = $qt($adiircdirHTAmediaViewer\HTAmediaViewer.hta) $1 $+ = $+ $iif($2 !isnum,$qt($2),$2)
384
  }
385
  elseif ($prop == service) {
386
    var %s SERVICES_ENABLED, %services $hget(HTAconfig,%s)
387
    var %value $iif($istok(%services,$1,44), $remtok(%services,$1,0,44), $addtok(%services,$1,44))
388
    hadd HTAconfig %s %value
389
    write -s $+ %s $+ = $HTAconfig %s $+ = $+ $qt(%value)
390
  }
391
  if ($prop == toggleStyle) {
392
    ; Do nothing if click in an already enabled style
393
    if ($hget(HTAconfig,$1)) return
394

    
395
    var %options $remtok(USE_DEFAULT_COLORS USE_ADIIRC_COLORS USE_CUSTOM_COLORS,$1,1,32), %1 $gettok(%options,1,32), %2 $gettok(%options,2,32)
396
    hadd HTAconfig $1 1
397
    hadd HTAconfig %1 0
398
    hadd HTAconfig %2 0
399
    write -s $+ $1 $+ = $HTAconfig $1 $+ = $+ 1
400
    write -s $+ %1 $+ = $HTAconfig %1 $+ =0
401
    write -s $+ %2 $+ = $HTAconfig %2 $+ =0
402
  }
403

    
404
  ; Save config to dir
405
  hsave -i HTAconfig $HTAconfigFile
406
}
407

    
408
alias -l getConfig {
409
  if (!$hget(HTAconfig)) return -
410
  if ($prop == service) {
411
    return $istok($gettok($hget(HTAconfig,SERVICES_ENABLED),-1,34),$1,44)
412
  }
413
  else {
414
    return $hget(HTAconfig,$1)
415
  }
416
}
417

    
418
alias -l e {
419
  return $iif(%HTA_ENABLED,,$style(2))
420
}
421

    
422
menu channel,query {
423
  -
424
  HTA Media Viewer
425
  .$iif(%HTA_ENABLED,$style(1)) Enabled:/enableToggle
426
  .-
427
  .$e $iif($getConfig(SIZE_LIMIT_ENABLED),$style(1)) Enable media size limit:$saveConfig(SIZE_LIMIT_ENABLED).toggle
428
  .-
429
  .$e Max width $chr(9) $getConfig(MAX_WIDTH):var %x $$?="Media width limit: (Default value 300)" | if (%x isnum) $saveConfig(MAX_WIDTH,%x).value
430
  .$e Max height $chr(9) $getConfig(MAX_HEIGHT):var %x $$?="Media height limit: (Default value 300)" | if (%x isnum) $saveConfig(MAX_HEIGHT,%x).value
431
  .-
432
  .$e $iif($getConfig(BORDER) != none,$style(1)) Border and titlebar visible:$saveConfig(BORDER,$iif($hget(HTAconfig,BORDER) == none,thin,none)).value
433
  .-
434
  .$e $iif($getConfig(CLOSE_ONBLUR),$style(1)) Close image on focus loss:$saveConfig(CLOSE_ONBLUR).toggle
435
  .-
436
  .$e Webm player $chr(9) $nopath($getConfig(WEBM_PLAYER)):$saveConfig(WEBM_PLAYER,$$sfile($nofile($getConfig(WEBM_PLAYER)) $+ *.exe,Webm Media Player,OK)).value
437
  .-
438
  .$e Specific services control
439
  ..$iif($getConfig(Coub).service,$style(1)) Coub:$saveConfig(Coub).service
440
  ..$iif($getConfig(Dropbox).service,$style(1)) Dropbox:$saveConfig(Dropbox).service
441
  ..$iif($getConfig(Gfycat).service,$style(1)) Gfycat:$saveConfig(Gfycat).service
442
  ..$iif($getConfig(Efukt).service,$style(1)) Efukt:$saveConfig(Efukt).service
443
  ..$iif($getConfig(Pastebin).service,$style(1)) Pastebin:$saveConfig(Pastebin).service
444
  ..$iif($getConfig(Pasteboard).service,$style(1)) Pasteboard:$saveConfig(Pasteboard).service
445
  ..$iif($getConfig(Porngifs).service,$style(1)) Porngifs:$saveConfig(Porngifs).service
446
  ..$iif($getConfig(Prntscr/Lightshot).service,$style(1)) Prntscr/Lightshot:$saveConfig(Prntscr/Lightshot).service
447
  ..$iif($getConfig(Uploadpie).service,$style(1)) Uploadpie:$saveConfig(Uploadpie).service
448
  ..$iif($getConfig(Vimeo).service,$style(1)) Vimeo:$saveConfig(Vimeo).service
449
  ..$iif($getConfig(Youtube).service,$style(1)) Youtube:$saveConfig(Youtube).service
450
  .-
451
  .$e Loader style
452
  ..$iif($getConfig(USE_DEFAULT_COLORS),$style(1)) Use default:$saveConfig(USE_DEFAULT_COLORS).toggleStyle
453
  ..-
454
  ..$iif($getConfig(USE_ADIIRC_COLORS),$style(1)) Follow AdiIRC theme:$saveConfig(USE_ADIIRC_COLORS).toggleStyle
455
  ..-
456
  ..$iif($getConfig(USE_CUSTOM_COLORS),$style(1)) Use customized bellow $chr(8631):$saveConfig(USE_CUSTOM_COLORS).toggleStyle
457
  ..-
458
  ..Checkerboard background $chr(9) $iif($getConfig(Custom_checkerboard),yes,no):$saveConfig(Custom_checkerboard).toggle
459
  ..Background color $chr(9) $getConfig(Custom_bodyColor):var %x $$?="Background color: (Default value #fff)" | if (%x) $saveConfig(Custom_bodyColor,%x).value
460
  ..Border color $chr(9) $getConfig(Custom_borderColor):var %x $$?="Border color: (Default value #C0C0C0)" | $saveConfig(Custom_borderColor,%x).value
461
  ..Border size $chr(9) $getConfig(Custom_borderSize):var %x $$?="Border size: (Default value 0)" | if (%x isnum) $saveConfig(Custom_borderSize,%x).value
462
  ..Spinner animation color $chr(9) $noqt($getConfig(Custom_spinnerColor)):var %x $$?="Spinner animation color: (Default value #C45528)" | if (%x) $saveConfig(Custom_spinnerColor,%x).value
463
  ..Error message color $chr(9) $getConfig(Custom_errorColor):var %x $$?="Error message color: (Default value #000)" | if (%x) $saveConfig(Custom_errorColor,%x).value
464
  ..-
465
  ..Spinner window width $chr(9) $noqt($getConfig(Custom_spinnerWidth)):var %x $$?="Spinner window width: (Default value 200)" | if (%x) $saveConfig(Custom_spinnerWidth,%x).value
466
  ..Spinner window height $chr(9) $noqt($getConfig(Custom_spinnerHeight)):var %x $$?="Spinner window height: (Default value 200)" | if (%x) $saveConfig(Custom_spinnerHeight,%x).value
467
  ..-
468
  ..Open a preview $chr(8599):/load preview
469
  ..-
470
  ..Colors help reference (external link) $chr(8599):run http://www.w3schools.com/cssref/pr_text_color.asp
471
  ..-
472
  .-
473
  .About
474
  ..$style(2) Version $HTAversion by Pereba:/
475
  ..$style(2) Beta tester Jaglag:/
476
  ..-
477
  ..Advertise (/HTA):/HTA
478
  ..-
479
  ..Check for updates (/HTAupdate):/HTAupdate
480
  ..-
481
  ..Forum link:run http://dev.adiirc.com/boards/5/topics/533
482
  -
483
}
(3-3/7)