Project

General

Profile

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

Mr. BS, 02/05/2017 06:47 PM

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

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

    
9
on *:LOAD: {
10
  set -u10 %HTAload 1
11
  if ($version < 2.7) {
12
    echo -agtc info AdiIRC version 2.7 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
      var %newversion = $regml(1)
43
      if ($?!="HTA Media Viewer version %newversion is available. Do you want to upgrade now?") {
44
        download -o HTAupgrade http://pastebin.com/raw/UXETCLbh $qt($scriptdir $+ HTA media viewer v $+ $regml(1) $+ .ini)
45
      }
46
    }
47
    else {
48
      if ($sock(HTA).mark != silent) noop $input(Good news! You already have the lastest version.,o,HTA Media Viewer Upgrade)
49
    }
50
    sockclose HTA
51
  }
52
}
53

    
54
alias -l enableToggle {
55
  if (!$exists($HTAconfig)) {
56
    set %HTA_ENABLED 0
57

    
58
    ; Create HTA folder
59
    var %dir $qt($adiircdirHTAmediaViewer)
60
    if (!$exists(%dir)) mkdir %dir
61

    
62
    ; Download required files
63
    HTAdown AdiIRC.ico 0B36riaEyLqg_c0tkV1p1MklhS2s
64
    HTAdown openhand.cur 0B36riaEyLqg_NVg1RFltRkJZV28
65
    HTAdown closedhand.cur 0B36riaEyLqg_NVlpbW1NWVZ5TXc
66
    HTAdown HTAmediaViewer.hta 0B36riaEyLqg_ajlWUUo1TjV5Q0E
67
    HTAdown HTAmediaViewer.htm 0B36riaEyLqg_VEJfUDByU3czQ3c
68

    
69
    halt
70
  }
71
  freshConfig
72
  set %HTA_ENABLED $iif(%HTA_ENABLED,0,1)
73
}
74

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

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

    
93
on *:DOWNLOAD:HTAdown_*: {
94
  inc %HTAdown_count
95
  if ($downloaderr) inc %HTAdown_error_count
96

    
97
  ; On finish attempt to download all files
98
  if (%HTAdown_count == 5) {
99
    ; if one or more files failed, display error message
100
    if (%HTAdown_error_count) {
101
      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)
102
    }
103
    else {
104
      enableToggle
105
    }
106
    unset %HTAdown_*
107
  }
108
}
109

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

    
117
on *:START: {
118
  ; Continue only if on LOAD event not triggered
119
  if (%HTAinstalling || %HTAload) {
120
    halt
121
  }
122

    
123
  ; check for update after 10 minutes
124
  .timerHTAupdate 1 600 if ( $!gettok( $duration( $calc( $ctime - $iif($hget(HTAconfig,LastUpdateCheck),$v1,$ctime) ) ,3) ,1,58) >= 24) HTAupdate silent
125

    
126
  set -u4 %HTAstarting 1
127

    
128
  if ($exists($HTAconfig)) {
129
    freshConfig
130
  }
131
  ; Missing HTA files? then lets disable script, when user enable it in menu, enableToggle alias will prompt.
132
  else {
133
    set %HTA_ENABLED 0
134
  }
135
}
136

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

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

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

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

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

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

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

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

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

    
220
  var %url $regsubex($laughatme($1),/[\51\54\175\135\76]+$/,)
221
  tokenize 32 %url
222
  
223
  ; Default menu
224
  hotlink -d
225

    
226
  if ($1 isurl) {
227
    if ($hotlink(event) == sclick || $mouse.key & 2) && ($mouse.key !& 4) {
228

    
229
      ;------------------------------------------------------------
230
      ; If script is disabled run raw url
231
      ;------------------------------------------------------------
232

    
233
      if (!%HTA_ENABLED && $mouse.key !& 2) {
234
        url $1
235
        return
236
      }
237

    
238
      ;------------------------------------------------------------
239
      ; Domains blacklist
240
      ;------------------------------------------------------------
241

    
242
      if ($regex(BL,$1,/picpaste.com/i)) {
243
        url $1
244
        return
245
      }
246

    
247
      ;------------------------------------------------------------
248
      ; Specific sites
249
      ;------------------------------------------------------------
250

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

    
257
      ; Vimeo - https://vimeo.com/139094998
258
      if ($services(Vimeo) && $regex($1,/vimeo\.com\/(\S+)/i)) {
259
        load iframe https://player.vimeo.com/video/ $+ $regml(1) $+ ?autoplay=1
260
        return
261
      }
262

    
263
      ; https://www.dropbox.com/s/iuhiz9nltyw3wwk/shot_160302_154500.png?dl=0
264
      if ($regex($1,/dropbox\.com\/s\/\S+\.(\S+)\?dl=0/i)) {
265
        if ($services(Dropbox)) {
266
          if ($regml(1) isin png|jpg|gif|jpeg||bmp) { load image $replace($1,?dl=0,?dl=1) | halt }
267
          if ($services(Dropbox) && $regml(1) isin mp4|webm) { load video $replace($1,?dl=0,?dl=1) | halt }
268
        }
269
        else {
270
          run $1
271
          return
272
        }
273
      }
274

    
275
      ; Efukt - http://www.efukt.com/21356_Denny%27s_Waiter_Tipped_With_Blowjob.html
276
      if ($services(Efukt) && $regex($1,/efukt\.com\/(\d+)_.+\.html/i)) {
277
        load video http://assets.efukt.com/videos/ $+ $regml(1) $+ .mp4
278
        return
279
      }
280

    
281
      ; Coub - https://coub.com/view/7juc3
282
      if ($services(Coub) && $regex($1,/coub\.com\/view\/(\w+)/i)) {
283
        load iframe http://coub.com/embed/ $+ $regml(1) $+ ?autostart=true&originalSize=true&hideTopBar=true&startWithHD=true
284
        return
285
      }
286

    
287
      ; Gfycat - https://gfycat.com/MetallicPlaintiveBubblefish
288
      if ($services(Gfycat) && $regex($1,/(gfycat\.com\/\S+)(?!(?<=webm|mp4|gif|jpg|png))$/i)) {
289
        load gfycat $1
290
        return
291
      }
292

    
293
      ; Uploadpie - http://uploadpie.com/1sKdQ
294
      if ($services(Uploadpie) && $regex($1,/(uploadpie\.com\/\S+)/i)) {
295
        load image $1
296
        return
297
      }
298

    
299
      ; Prntscr/Lightshot - prntscr.com/61fgnm
300
      if ($services(Prntscr/Lightshot) && $regex($1,/prnt\.sc|prntscr\.com\/\S+/i)) {
301
        load image $iif(image. isin $1,$1,$remove($1,/direct) $+ /direct)
302
        return
303
      }
304

    
305
      ; Pasteboard - pasteboard.co/1tbFi5lL.jpg
306
      if ($services(Pasteboard) && $regex($1,/(pasteboard\.co\/\S+)/i)) {
307
        load image $replace($1,pasteboard.co,cdn.pbrd.co/images)
308
        return
309
      }
310

    
311
      ; Porngifs - porngifs.com/img/15711
312
      if ($services(Porngifs) && $regex($1,/(?:porngifs\.com\/img\/)(\S+)/i)) {
313
        load image http://cdn.porngifs.com/img/ $+ $regml(1)
314
        return
315
      }
316

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

    
323
      ;------------------------------------------------------------
324
      ; Generic medias
325
      ;------------------------------------------------------------
326

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

    
330
        ; Local Players
331
        if ($regml(3) == webm) {
332
          run $iif($getConfig(WEBM_PLAYER) && $$exists($qt($v1)),$qt($v1)) $qt($regml(1) $+ $regml(2))
333
          return
334
        }
335

    
336
        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))
337
        return
338
      }
339

    
340
      ;------------------------------------------------------------
341
      ; Non media links
342
      ;------------------------------------------------------------
343

    
344
      ; not holding ctrl key
345
      if ($mouse.key !& 2) {
346
        url $1
347
      }
348
    }
349
  }
350
  else {
351
    halt
352
  }
353
}
354

    
355
alias -l load {
356
  ; path service url
357
  run $qt($adiircdirHTAmediaViewer\HTAmediaViewer.hta) $qt($1) $qt($2)
358
  ; alt key to simulate open window in background
359
  if ($mouse.key & 8) .timer -m 1 100 showadiirc -s
360
}
361

    
362
alias -l HTAconfig {
363
  return $qt($adiircdirHTAmediaViewer\HTAmediaViewer.htm)
364
}
365

    
366
alias -l HTAconfigFile {
367
  return $qt($adiircdirHTAmediaViewer\HTAconfig.ini)
368
}
369

    
370
alias HTA {
371
  describe $$chan is using HTA Media Viewer v $+ $HTAversion $+ . Download latest version at http://dev.adiirc.com/boards/5/topics/533
372
}
373

    
374
alias -l services {
375
  var %services $read($HTAconfig,nw,SERVICES_ENABLED=*)
376
  if ($prop) {
377
    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)))
378
    return
379
  }
380
  return $istok($gettok(%services,-1,34),$1,44)
381
}
382

    
383
alias -l saveConfig {
384
  if ($prop == toggle) {
385
    var %value $iif($hget(HTAconfig,$1),0,1)
386
    hadd HTAconfig $1 %value
387
    write -s $+ $1 $+ = $HTAconfig $1 $+ = $+ %value
388
  }
389
  elseif ($prop == value) {
390
    hadd HTAconfig $1 $2
391
    write -s $+ $1 $+ = $HTAconfig $1 $+ = $+ $iif($2 !isnum,$qt($2),$2)
392
    if ($1 == BORDER) write -s $+ $1 $+ = $qt($adiircdirHTAmediaViewer\HTAmediaViewer.hta) $1 $+ = $+ $iif($2 !isnum,$qt($2),$2)
393
  }
394
  elseif ($prop == service) {
395
    var %s SERVICES_ENABLED, %services $hget(HTAconfig,%s)
396
    var %value $iif($istok(%services,$1,44), $remtok(%services,$1,0,44), $addtok(%services,$1,44))
397
    hadd HTAconfig %s %value
398
    write -s $+ %s $+ = $HTAconfig %s $+ = $+ $qt(%value)
399
  }
400
  if ($prop == toggleStyle) {
401
    ; Do nothing if click in an already enabled style
402
    if ($hget(HTAconfig,$1)) return
403

    
404
    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)
405
    hadd HTAconfig $1 1
406
    hadd HTAconfig %1 0
407
    hadd HTAconfig %2 0
408
    write -s $+ $1 $+ = $HTAconfig $1 $+ = $+ 1
409
    write -s $+ %1 $+ = $HTAconfig %1 $+ =0
410
    write -s $+ %2 $+ = $HTAconfig %2 $+ =0
411
  }
412

    
413
  ; Save config to dir
414
  hsave -i HTAconfig $HTAconfigFile
415
}
416

    
417
alias -l getConfig {
418
  if (!$hget(HTAconfig)) return -
419
  if ($prop == service) {
420
    return $istok($gettok($hget(HTAconfig,SERVICES_ENABLED),-1,34),$1,44)
421
  }
422
  else {
423
    return $hget(HTAconfig,$1)
424
  }
425
}
426

    
427
alias -l e {
428
  return $iif(%HTA_ENABLED,,$style(2))
429
}
430

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