;----------------------------------------------------------------------------------------
;  geturl
;----------------------------------------------------------------------------------------
alias geturl {
  if ($1 == $null) return
  if (%i.geturl.con == $null) { set %i.geturl.con 0 $+ $chr(44) }
  set %i.geturl.free geturl $+ $geturl.free
  set %i.geturl.con %i.geturl.con $+ $gettok(%i.geturl.free,2,108) $+ $chr(44)
  set %i.geturl.url [ $+ [ %i.geturl.free ] ] $remove($1,http://)
  set %i.geturl.url %i.geturl.url [ $+ [ %i.geturl.free ] ]
  set %i.geturl.wm [ $+ [ %i.geturl.free ] ] $gettok($xur(%i.geturl.url),3,215)
  set %i.geturl.domain [ $+ [ %i.geturl.free ] ] $gettok($xur(%i.geturl.url),1,215)
  set %i.geturl.getdir [ $+ [ %i.geturl.free ] ] $gettok($xur(%i.geturl.url),4,215)
  sockopen %i.geturl.free %i.geturl.domain [ $+ [ %i.geturl.free ] ] 80
}
alias geturl.free { return $calc($gettok(%i.geturl.con,$gettok(%i.geturl.con,0,44),44) + 1) }
on 1:SOCKOPEN:geturl*: {
  if ($sockerr > 0) {
    set %i.geturl.file $evacl(i.geturl.wm,$sockname)
    if (%i.geturl.file == $null) set %i.geturl.file unknown.fil
    sprint error with geturl: (sockname $sockname $+ /site $evacl(i.geturl.domain,$sockname) $+ /filename %i.geturl.file $+ ) can not resolve hostname $sock($sockname).ip $+ .
    unset %i.geturl.* [ $+ [ $sockname ] ]
    sockclose $sockname
    return
  }
  window -la @ $+ $sockname 130 50 500 400 @ $+ $sockname
  sockwrite -tn $sockname GET %i.geturl.getdir [ $+ [ $sockname ] ]
}
on 1:SOCKREAD:geturl*: {
  :geturl
  sockread %i.geturl
  if ($sockbr == 0) { return }
  if (%i.geturl == $null) /set %i.geturl $chr(255)
  if ($findwin($evau(@,$sockname),0)) aline @ $+ $sockname %i.geturl
  goto geturl
}
on 1:SOCKCLOSE:geturl*: {
  set %i.geturl.rem $gettok($sockname,2,108) $+ $chr(44)
  window -b @ $+ $sockname
  unset %i.geturl.* [ $+ [ $sockname ] ]
}
menu @geturl* {
  &save as: {
    set %i.geturl.temp $$?="Enter file to save to:"
    set %i.geturl.temp2 1- $+ $count(%i.geturl.temp,$chr(92))
    set %i.geturl.temp3 $gettok(%i.geturl.temp,%i.geturl.temp2,92)
    if ($exists(%i.geturl.temp3) == $false) {
      sprint error with geturl: the directory you specified doesn't exist.  can not save url.
      return
    }
    elseif ($exists(%i.geturl.temp3) == $true) { set %i.geturl.save %i.geturl.temp }
    set %i.geturl.len $line($active,0)
    set %i.geturl.num 1
    :save.as
    if (%i.geturl.num > %i.geturl.len) { return }
    write %i.geturl.save $strip($line($active,%i.geturl.num))
    inc %i.geturl.num
    goto save.as
  }
  -
  &clipboard:/clipboard $strip($sline($active,1))
  -
  &find: {
    set %i.lfindg.sword $$?="Search for:"
    set %i.lfindg.tnum $xwfind($active,1,%i.lfindg.sword)
    if (%i.lfindg.tnum != $null) {
      set %i.lfindg.temp 13 $+ %i.lfindg.sword $+ 12
      rline $active %i.lfindg.tnum $replace($line($active,%i.lfindg.tnum),%i.lfindg.sword,%i.lfindg.temp)
      sline $active %i.lfindg.tnum
    }
  }
  &find next $lower($pop.xgu): {
    if (%i.lfindg.sword == $null) /return
    inc %i.lfindg.tnum
    set %i.lfindg.tnum $xwfind($active,%i.lfindg.tnum,%i.lfindg.sword)
    if (%i.lfindg.tnum != $null) {
      set %i.lfindg.temp 13 $+ %i.lfindg.sword $+ 12
      rline $active %i.lfindg.tnum $replace($line($active,%i.lfindg.tnum),%i.lfindg.sword,%i.lfindg.temp)
      sline $active %i.lfindg.tnum
    }
  }
}
;----------------------------------------------------------------------------------------
;  getlinks
;----------------------------------------------------------------------------------------
alias getlinks {
  if ($1 == $null) return
  if ($1 == -f) { secu getlinks $$dir *.* | return }
  if ($mid($1,2,1) == $chr(58)) {
    if ($exists($1) == $false) { sprint error with getlinks: file specified does not exist. | return }
    set %i.getlinks.mfree getlinks $+ $getlinks.free
    window -l40psae @ $+ %i.getlinks.mfree 130 50 520 400 @ $+ %i.getlinks.mfree
    set %i.getlinks.mread $1
    set %i.getlinks.mlen $lines($1)
    set %i.getlinks.mnum 0
    :getlocal
    inc %i.getlinks.mnum
    if (%i.getlinks.mnum > %i.getlinks.mlen) {
      gldrawtext %i.getlinks.mfree
      return
    }
    set %i.getlinks.minput $rdfil(-n,$1,%i.getlinks.mnum)
    aline -l @ $+ %i.getlinks.mfree %i.getlinks.minput
    goto getlocal
    return
  }
  else {
    set %i.getlinks.free getlinks $+ $getlinks.free
    set %i.getlinks.url [ $+ [ %i.getlinks.free ] ] $remove($1,http://)
    set %i.getlinks.url %i.getlinks.url [ $+ [ %i.getlinks.free ] ]
    set %i.getlinks.wm [ $+ [ %i.getlinks.free ] ] $gettok($xur(%i.getlinks.url),3,215)
    set %i.getlinks.domain [ $+ [ %i.getlinks.free ] ] $gettok($xur(%i.getlinks.url),1,215)
    set %i.getlinks.getdir [ $+ [ %i.getlinks.free ] ] $gettok($xur(%i.getlinks.url),4,215)
    set %i.getlinks.dir [ $+ [ %i.getlinks.free ] ] $gettok($xur(%i.getlinks.url),5,215)
    sockopen %i.getlinks.free $evacl(i.getlinks.domain,%i.getlinks.free) 80
  }
}
alias getlinks.free {
  if ((%i.getlinks.rum == $null) || (%i.getlinks.num > 30000)) set %i.getlinks.rum 0
  inc %i.getlinks.rum
  return %i.getlinks.rum
}
alias getlinks.ini { if ($1 == $null) /return
  set %i.getlinks.ini $1
  set %i.getlinks.num 0
  :getlinks.ini
  set %i.getlinks.wor links $+ %i.getlinks.num
  if (($len($rdini(-n,$mircdirxfiles\database\getlinks-d.xs,%i.getlinks.ini,%i.getlinks.wor)) < 520) || ($rdini(-n,$mircdirxfiles\database\getlinks-d.xs,%i.getlinks.ini,%i.getlinks.wor) == $null)) { return %i.getlinks.num }
  inc %i.getlinks.num
  goto getlinks.ini
}
alias getlinks.src { if (($1 == $null) || ($2 == $null)) /return
  set %i.getlinks.sini $1
  set %i.getlinks.src $2-
  set %i.getlinks.tnum 0
  :getlinks.src
  set %i.getlinks.wor links $+ %i.getlinks.tnum
  if ($rdini(-n,$mircdirxfiles\database\getlinks-d.xs,%i.getlinks.sini,%i.getlinks.wor) == $null) { return false }
  if (%i.getlinks.src isin $rdini(-n,$mircdirxfiles\database\getlinks-d.xs,%i.getlinks.sini,%i.getlinks.wor)) { return true }
  inc %i.getlinks.tnum
  goto getlinks.src
}
alias getlinks.win { if (($1 == $null) || ($2 == $null)) /return
  set %i.getlinks.swin @ $+ $1
  set %i.getlinks.winsrc $2-
  set %i.getlinks.winlen $line(%i.getlinks.swin,0,1)
  set %i.getlinks.winnum 0
  :getlinks.win
  if (%i.getlinks.winnum > %i.getlinks.winlen) { return false }
  if (%i.getlinks.winsrc isin $line(%i.getlinks.swin,%i.getlinks.winnum,1)) { return true }
  inc %i.getlinks.winnum
  goto getlinks.win
}
alias getlinks.links {
  if (($1 == $null) || ($2 == $null)) { return }
  if ((src isin $1-) || (href isin $1-)) { goto proceed } | else { return }
  :proceed
  set %i.getlinks.nam $1
  if ($findwin($evau(@,%i.getlinks.nam),0) == 0) return
  set %i.getlinks.links $2-
  set %i.getlinks.len $count($2-,$chr(34))
  set %i.getlinks.linkw links $+ $getlinks.ini(%i.getlinks.nam)
  set %i.getlinks.num 0
  :getlinks.links
  inc %i.getlinks.num
  if (%i.getlinks.num > %i.getlinks.len) { return }
  set %i.getlinks.snum %i.getlinks.num $+ -
  set %i.getlinks.word $gettok($gettok(%i.getlinks.links,%i.getlinks.snum,34),$calc(%i.getlinks.num + 1),34)
  if ((%i.getlinks.word == $null) || ($getlinks.src(%i.getlinks.nam,%i.getlinks.word) == true)) { goto end }
  if (($chr(46) isin %i.getlinks.word) || ($left(%i.getlinks.word,1) == /) || ($left(%i.getlinks.word,4) == http) || ($left(%i.getlinks.word,3) == ftp) || ($left(%i.getlinks.word,6) == gopher)) {
    writeini $mircdirxfiles\database\getlinks-d.xs %i.getlinks.nam %i.getlinks.linkw $rdini(-n,$mircdirxfiles\database\getlinks-d.xs,%i.getlinks.nam,%i.getlinks.linkw) %i.getlinks.word
    if (($count(%i.getlinks.word,$chr(47)) == 0) && ($chr(64) !isin %i.getlinks.word) && ($chr(58) !isin %i.getlinks.word)) { aline -l @ $+ %i.getlinks.nam http:// $+ %i.getlinks.domain [ $+ [ %i.getlinks.nam ] ] $+ %i.getlinks.dir [ $+ [ %i.getlinks.nam ] ] $+ %i.getlinks.word | goto end }
    if ($left(%i.getlinks.word,1) == /) { aline -l @ $+ %i.getlinks.nam http:// $+ %i.getlinks.domain [ $+ [ %i.getlinks.nam ] ] $+ $gettok($gettok(%i.getlinks.links,%i.getlinks.snum,34),$calc(%i.getlinks.num + 1),34) }
    elseif ($left(%i.getlinks.word,1) != /) {
      if (($left(%i.getlinks.word,5) != http:) && ($left(%i.getlinks.word,4) != ftp:) && ($left(%i.getlinks.word,7) != mailto:) && ($left(%i.getlinks.word,5) != news:)) {
        if (($left(%i.getlinks.word,3) == ../) || ($left(%i.getlinks.word,2) == ./)) { aline -l @ $+ %i.getlinks.nam http:// $+ %i.getlinks.domain [ $+ [ %i.getlinks.nam ] ] $+ $chr(47) $+ $remove($remove(%i.getlinks.word,../),./) }
        elseif (($left(%i.getlinks.word,3) != ../) && ($left(%i.getlinks.word,2) != ./)) { aline -l @ $+ %i.getlinks.nam http:// $+ %i.getlinks.domain [ $+ [ %i.getlinks.nam ] ] $+ %i.getlinks.dir [ $+ [ %i.getlinks.nam ] ] $+ %i.getlinks.word }
      }
      if (($left(%i.getlinks.word,5) == http:) || ($left(%i.getlinks.word,4) == ftp:) || ($left(%i.getlinks.word,7) == mailto:) || ($left(%i.getlinks.word,5) == news:)) { aline -l @ $+ %i.getlinks.nam $gettok($gettok(%i.getlinks.links,%i.getlinks.snum,34),$calc(%i.getlinks.num + 1),34) }
    }
  }
  :end
  goto getlinks.links
}
on 1:SOCKOPEN:getlinks*: {
  if ($sockerr > 0) {
    set %i.getlinks.file $evacl(i.download.wm,$sockname)
    if (%i.getlinks.file == $null) set %i.getlinks.file unknown.fil
    sprint error with getlinks: (sockname $sockname $+ /site $evacl(i.getlinks.domain,$sockname) $+ /filename %i.getlinks.file $+ ) can not resolve hostname $sock($sockname).ip $+ .
    unset %i.getlinks.* [ $+ [ $sockname ] ]
    sockclose $sockname
    return
  }
  window -l40psae @ $+ $sockname 130 50 520 400 @ $+ $sockname
  gldrawtext @ $+ $sockname
  sockwrite -tn $sockname GET %i.getlinks.getdir [ $+ [ $sockname ] ]
}
on 1:SOCKREAD:getlinks*: {
  :getlinks
  sockread %i.getlinks
  if ($sockbr == 0) { return }
  getlinks.links $sockname %i.getlinks
  goto getlinks
}
on 1:SOCKCLOSE:getlinks*: {
  set %i.getlinks.rem $gettok($sockname,2,115) $+ $chr(44)
  if ($findwin($evau(@,$sockname),0) != 0) window -b @ $+ $sockname
  remini $mircdirxfiles\database\getlinks-d.xs $sockname
  unset %i.getlinks.* [ $+ [ $sockname ] ]
}
menu @getlinks* {
  mouse:{
    if ($inrect($mouse.x,$mouse.y,2,2,150,21) == $true) drawrect $active 12 1 2 2 150 21
    elseif ($inrect($mouse.x,$mouse.y,2,2,150,21) == $false) drawrect $active 1 1 2 2 150 21
    if ($inrect($mouse.x,$mouse.y,2,24,150,21) == $true) drawrect $active 12 1 2 24 150 21
    elseif ($inrect($mouse.x,$mouse.y,2,24,150,21) == $false) drawrect $active 1 1 2 24 150 21
    if ($inrect($mouse.x,$mouse.y,2,48,150,21) == $true) drawrect $active 12 1 2 48 150 21
    elseif ($inrect($mouse.x,$mouse.y,2,48,150,21) == $false) drawrect $active 1 1 2 48 150 21
    if ($inrect($mouse.x,$mouse.y,2,70,150,21) == $true) drawrect $active 12 1 2 70 150 21
    elseif ($inrect($mouse.x,$mouse.y,2,72,150,21) == $false) drawrect $active 1 1 2 70 150 21
    if ($inrect($mouse.x,$mouse.y,2,94,150,21) == $true) drawrect $active 12 1 2 94 150 21
    elseif ($inrect($mouse.x,$mouse.y,2,96,150,21) == $false) drawrect $active 1 1 2 94 150 21
    if ($inrect($mouse.x,$mouse.y,2,116,150,21) == $true) drawrect $active 12 1 2 116 150 21
    elseif ($inrect($mouse.x,$mouse.y,2,116,150,21) == $false) drawrect $active 1 1 2 116 150 21
    if ($inrect($mouse.x,$mouse.y,2,138,150,21) == $true) drawrect $active 12 1 2 138 150 21
    elseif ($inrect($mouse.x,$mouse.y,2,138,150,21) == $false) drawrect $active 1 1 2 138 150 21
    if ($inrect($mouse.x,$mouse.y,2,160,150,21) == $true) drawrect $active 12 1 2 160 150 21
    elseif ($inrect($mouse.x,$mouse.y,2,160,150,21) == $false) drawrect $active 1 1 2 160 150 21
    if ($inrect($mouse.x,$mouse.y,2,182,150,21) == $true) drawrect $active 12 1 2 182 150 21
    elseif ($inrect($mouse.x,$mouse.y,2,182,150,21) == $false) drawrect $active 1 1 2 182 150 21
    if ($inrect($mouse.x,$mouse.y,2,204,150,21) == $true) drawrect $active 12 1 2 204 150 21
    elseif ($inrect($mouse.x,$mouse.y,2,204,150,21) == $false) drawrect $active 1 1 2 204 150 21
    if ($inrect($mouse.x,$mouse.y,2,226,150,21) == $true) drawrect $active 12 1 2 226 150 21
    elseif ($inrect($mouse.x,$mouse.y,2,226,150,21) == $false) drawrect $active 1 1 2 226 150 21
    if ($inrect($mouse.x,$mouse.y,2,248,150,21) == $true) drawrect $active 12 1 2 248 150 21
    elseif ($inrect($mouse.x,$mouse.y,2,248,150,21) == $false) drawrect $active 1 1 2 248 150 21
    if ($inrect($mouse.x,$mouse.y,2,270,150,21) == $true) drawrect $active 12 1 2 270 150 21
    elseif ($inrect($mouse.x,$mouse.y,2,270,150,21) == $false) drawrect $active 1 1 2 270 150 21
    if ($inrect($mouse.x,$mouse.y,2,292,150,21) == $true) drawrect $active 12 1 2 292 150 21
    elseif ($inrect($mouse.x,$mouse.y,2,292,150,21) == $false) drawrect $active 1 1 2 292 150 21
    if ($inrect($mouse.x,$mouse.y,2,314,150,21) == $true) drawrect $active 12 1 2 314 150 21
    elseif ($inrect($mouse.x,$mouse.y,2,314,150,21) == $false) drawrect $active 1 1 2 314 150 21
  }
  sclick:{
    if ($inrect($mouse.x,$mouse.y,2,2,150,21) == $true) clipboard $strip($$sline($active,1))
    if ($inrect($mouse.x,$mouse.y,2,24,150,21) == $true) getlinks $remove($strip($$sline($active,1)),http://)
    if ($inrect($mouse.x,$mouse.y,2,48,150,21) == $true) geturl $remove($strip($$sline($active,1)),http://)
    if ($inrect($mouse.x,$mouse.y,2,72,150,21) == $true) { getlinks $remove($strip($$sline($active,1)),http://) | window -c $active }
    if ($inrect($mouse.x,$mouse.y,2,94,150,21) == $true) { geturl $remove($strip($$sline($active,1)),http://) | window -c $active }   
    if ($inrect($mouse.x,$mouse.y,2,116,150,21) == $true) gldownload
    if ($inrect($mouse.x,$mouse.y,2,138,150,21) == $true) glcdownload
    if ($inrect($mouse.x,$mouse.y,2,160,150,21) == $true) glsavelinks
    if ($inrect($mouse.x,$mouse.y,2,182,150,21) == $true) glsaveasfile
    if ($inrect($mouse.x,$mouse.y,2,204,150,21) == $true) glsavetodir
    if ($inrect($mouse.x,$mouse.y,2,226,150,21) == $true) glsavetodir -ext
    if ($inrect($mouse.x,$mouse.y,2,248,150,21) == $true) glfind
    if ($inrect($mouse.x,$mouse.y,2,270,150,21) == $true) glfind -next
    if ($inrect($mouse.x,$mouse.y,2,292,150,21) == $true) editbox $active $strip($$sline($active,1))
    if ($inrect($mouse.x,$mouse.y,2,314,150,21) == $true) editbox $active
  }
  &clipboard:/clipboard $strip($$sline($active,1))
  -
  &getlinks:/getlinks $remove($strip($$sline($active,1)),http://)
  &geturl:/geturl $remove($strip($$sline($active,1)),http://)
  -
  &getlinks [close]:/getlinks $remove($strip($$sline($active,1)),http://) | window -c $active
  &geturl [close]:/geturl $remove($strip($$sline($active,1)),http://) | window -c $active
  -
  &download:gldownload
  &c-download:glcdownload
  -
  &save links to file:glsavelinks
  &save as file:glsaveasfile
  &save to directory:glsavetodir
  &save to directory [ext]:glsavetodir -ext
  -
  &find:glfind
  &find next $lower($pop.xfl):glfind -next
  -
  &display in box:editbox $active $$sline($active,1)
  &clear box:editbox $active
}
alias -l gldrawbut {
  if ($findwin($1,0) != 0) {
    if ($left($1,1) != $chr(64)) set %i.gldrawbut.window @ $+ $1
    if ($left($1,1) == $chr(64)) set %i.gldrawbut.window $1
    set %i.gldrawbut.x $2
    set %i.gldrawbut.y $3
    set %i.gldrawbut.w $4
    set %i.gldrawbut.h $5
    if ($6 != $null) set %i.gldrawbut.color $6
    if ($6 == $null) set %i.gldrawbut.color $rgb(66,53,185)
    drawline -r %i.gldrawbut.window $rgb(152,145,223) 1 %i.gldrawbut.x %i.gldrawbut.y $calc(%i.gldrawbut.w - 1) %i.gldrawbut.y
    drawline -r %i.gldrawbut.window $rgb(152,145,223) 1 %i.gldrawbut.x %i.gldrawbut.y %i.gldrawbut.x $calc(%i.gldrawbut.h - 1)
    drawline -r %i.gldrawbut.window $rgb(91,79,204) 1 $calc(%i.gldrawbut.x + 1) $calc(%i.gldrawbut.y + 1) $calc(%i.gldrawbut.w - 2) $calc(%i.gldrawbut.y + 1)
    drawline -r %i.gldrawbut.window $rgb(91,79,204) 1 $calc(%i.gldrawbut.x + 1) $calc(%i.gldrawbut.y + 1) $calc(%i.gldrawbut.x + 1) $calc(%i.gldrawbut.h - 2)
    drawline -r %i.gldrawbut.window $rgb(50,40,138) 1 $calc(%i.gldrawbut.x + 1) $calc(%i.gldrawbut.h - 2) $calc(%i.gldrawbut.w - 1) $calc(%i.gldrawbut.h - 2)
    drawline -r %i.gldrawbut.window $rgb(50,40,138) 1 $calc(%i.gldrawbut.w - 2) $calc(%i.gldrawbut.y + 1) $calc(%i.gldrawbut.w - 2) $calc(%i.gldrawbut.h - 1)
    drawline -r %i.gldrawbut.window $rgb(27,22,75) 1 %i.gldrawbut.x $calc(%i.gldrawbut.h - 1) %i.gldrawbut.w $calc(%i.gldrawbut.h - 1)
    drawline -r %i.gldrawbut.window $rgb(27,22,75) 1 $calc(%i.gldrawbut.w - 1) %i.gldrawbut.y $calc(%i.gldrawbut.w - 1) %i.gldrawbut.h
    drawfill -rs %i.gldrawbut.window %i.gldrawbut.color $rgb(0,0,0) $calc(%i.gldrawbut.x + 3) $calc(%i.gldrawbut.y + 3)
    unset %i.gldrawbut.*
  }
}
alias -l gldrawtext {
  if ($findwin($1,0) != 0) {
    if ($left($1,1) != $chr(64)) set %i.gldrawtext.window @ $+ $1
    if ($left($1,1) == $chr(64)) set %i.gldrawtext.window $1
    drawtext -c %i.gldrawtext.window 12 Terminal 9 10 10 150 40 clipboard
    drawtext -c %i.gldrawtext.window 12 Terminal 9 10 32 150 40 getlinks
    drawtext -c %i.gldrawtext.window 12 Terminal 9 10 54 150 40 geturl
    drawtext -c %i.gldrawtext.window 12 Terminal 9 10 78 150 40 getlinks [close]
    drawtext -c %i.gldrawtext.window 12 Terminal 9 10 100 150 40 geturl˙˙˙[close]
    drawtext -c %i.gldrawtext.window 12 Terminal 9 10 122 150 40 download
    drawtext -c %i.gldrawtext.window 12 Terminal 9 10 144 150 40 c-download
    drawtext -c %i.gldrawtext.window 12 Terminal 9 10 168 150 40 save links
    drawtext -c %i.gldrawtext.window 12 Terminal 9 10 190 150 40 save as file
    drawtext -c %i.gldrawtext.window 12 Terminal 9 10 212 150 40 save to dir
    drawtext -c %i.gldrawtext.window 12 Terminal 9 10 234 150 40 save to dir [ext]
    drawtext -c %i.gldrawtext.window 12 Terminal 9 10 256 150 40 find
    drawtext -c %i.gldrawtext.window 12 Terminal 9 10 278 150 40 find next
    drawtext -c %i.gldrawtext.window 12 Terminal 9 10 300 150 40 display in box
    drawtext -c %i.gldrawtext.window 12 Terminal 9 10 322 150 40 clear box
    unset %i.gldrawtext.*
    return
  }
}
alias -l gldownload {
  if ($sline($active,0) == 0) { return }
  set %i.download[p].type $$?="Mode for download: (-a,-b)"
  if (%i.download[p].type == $null) { return }
  set %i.download[p].dnum $sline($active,1).ln
  set %i.download[p].len $sline($active,0)
  set %i.download[p].num 1
  :download.p
  if (%i.download[p].num > %i.download[p].len) { unset %i.download[p].* | return }
  .timer 1 1 download $strip($line($active,%i.download[p].dnum,1)) %i.download[p].type
  inc %i.download[p].num
  set %i.download[p].dnum $sline($active,%i.download[p].num).ln
  goto download.p
}
alias -l glcdownload {
  unset %i.cdownload.*
  set %i.cdownload.wm $$?="If link contains this text, download it: (Wildcard)"
  set %i.cdownload.type $$?="Mode for download: (-a,-b)"
  if (%i.cdownload.wm == $null) { unset %i.cdownload.* | return }
  if ((%i.cdownload.type == $null) || (%i.cdownload.type !isin -a-b)) { unset %i.cdownload.* | return }
  if ($chr(42) !isin %i.cdownload.wm) { set %i.cdownload.wm $chr(42) $+ %i.cdownload.wm $+ $chr(42) }
  set %i.cdownload.len $line($active,0,1)
  set %i.cdownload.num 0
  :c.download
  if (%i.cdownload.num > %i.cdownload.len) { unset %i.cdownload.* | return }
  if (%i.cdownload.wm iswm $strip($line($active,%i.cdownload.num,1))) { .timer 1 1 download $strip($line($active,%i.cdownload.num,1)) %i.cdownload.type }
  inc %i.cdownload.num
  goto c.download
}
alias -l glsavelinks {
  set %i.saveas.dir $$sdir *.*
  set %i.saveas.file $$?="Enter filename to save to:"
  if ((%i.saveas.dir == $null) || (%i.saveas.file == $null) || ($exists(%i.saveas.dir) == $false)) { return }
  set %i.saveas.len $line($active,0,1)
  set %i.saveas.num 1
  :savelinks
  if (%i.saveas.num > %i.saveas.len) { unset %i.saveas.* | return }
  write %i.saveas.dir $+ %i.saveas.file $strip($line($active,%i.saveas.num,1))
  inc %i.saveas.num
  goto savelinks
}
alias -l glsaveasfile {
  if (($sline($active,0) > 1) || ($sline($active,0) == 0)) { return }
  set %i.saveas.dir $$sdir *.*
  set %i.saveas.file $$?="Enter filename to save to:"
  set %i.saveas.type $$?="Mode for download: (-a,-b)"
  set %i.saveas.extr $?="Extra switches for download:"
  if ((%i.saveas.dir == $null) || (%i.saveas.file == $null) || ($exists(%i.saveas.dir) == $false) || (%i.saveas.type == $null) || (%i.saveas.type !isin -a-b)) { return }
  set %i.saveas.extr %i.saveas.extr $+ f
  download $strip($sline($active,1)) %i.saveas.type %i.saveas.extr %i.saveas.dir $+ %i.saveas.file
  unset %i.saveas.*
}
alias -l glsavetodir {
  if ($1 == -ext) {
    if ($sline($active,0) == 0) { return }
    set %i.saveas.ext $$?="Enter extra character for filename:"
    set %i.saveas.dir $$sdir *.*
    set %i.saveas.type $$?="Mode for download: (-a,-b)"
    set %i.saveas.swit $?="Extra switches for download:"
    if ((%i.saveas.dir == $null) || (%i.saveas.type == $null) || (%i.saveas.ext == $null)) { return }
    set %i.saveas.dnum $sline($active,1).ln
    set %i.saveas.len $sline($active,0)
    set %i.saveas.num 1
    set %i.saveas.swit %i.saveas.swit $+ f
    :save.as
    if (%i.saveas.num > %i.saveas.len) { unset %i.saveas.* | return }
    if ($gettok($xur($strip($line($active,%i.saveas.dnum,1))),3,215) == $null) { set %i.saveas.parm %i.saveas.dir }
    elseif ($gettok($strip($xur($line($active,%i.saveas.dnum,1))),3,215) != $null) { set %i.saveas.parm %i.saveas.dir $+ %i.saveas.ext $+ $gettok($gettok($xur($line($active,%i.saveas.dnum,1)),3,215),1,46) $+ $chr(46) $+ $gettok($gettok($xur($line($active,%i.saveas.dnum,1)),3,215),2,46) }
    .timer 1 1 download $strip($line($active,%i.saveas.dnum,1)) %i.saveas.type %i.saveas.swit %i.saveas.parm
    inc %i.saveas.num
    set %i.saveas.dnum $sline($active,%i.saveas.num).ln
    goto save.as
  }
  else {
    if ($sline($active,0) == 0) { return }
    set %i.saveas.dir $$sdir *.*
    set %i.saveas.type $$?="Mode for download: (-a,-b)"
    set %i.saveas.swit $?="Extra switches for download:"
    if ((%i.saveas.dir == $null) || (%i.saveas.type == $null)) { return }
    set %i.saveas.dnum $sline($active,1).ln
    set %i.saveas.len $sline($active,0)
    set %i.saveas.num 1
    set %i.saveas.swit %i.saveas.swit $+ f
    :save.as
    if (%i.saveas.num > %i.saveas.len) { unset %i.saveas.* | return }
    .timer 1 1 download $strip($line($active,%i.saveas.dnum,1)) %i.saveas.type %i.saveas.swit %i.saveas.dir
    inc %i.saveas.num
    set %i.saveas.dnum $sline($active,%i.saveas.num).ln
    goto save.as
  }
}
alias -l glfind {
  if ($1 == -next) {
    if (%i.lfind.sword == $null) /return
    inc %i.lfind.tnum
    set %i.lfind.tnum $wlsfind(-side,$active,%i.lfind.tnum,%i.lfind.sword)
    if (%i.lfind.tnum != $null) {
      set %i.lfind.temp 13 $+ %i.lfind.sword $+ 12
      rline -l $active %i.lfind.tnum $replace($line($active,%i.lfind.tnum,1),%i.lfind.sword,%i.lfind.temp)
      sline -l $active %i.lfind.tnum
    }
    return
  }
  else {
    set %i.lfind.sword $$?="Search for:"
    set %i.lfind.tnum $wlsfind(-side,$active,1,%i.lfind.sword)
    if (%i.lfind.tnum != $null) {
      set %i.lfind.temp 13 $+ %i.lfind.sword $+ 12
      rline -l $active %i.lfind.tnum $replace($line($active,%i.lfind.tnum,1),%i.lfind.sword,%i.lfind.temp)
      sline -l $active %i.lfind.tnum
    }
  }
}