Untitled

alias -l finish-it-off /set %teh-file $+(%,file.,%a) | /dialog -x image-slideshow-to-size image-slideshow-to-size | /Fit-to-size-image-viewer-slideshow 

alias -l ohno.dialog-end { /timertime off }

on *:DIALOG:image-slideshow-to-size:init:*: { /timertime %file.0 %timing $iif(%a == %file.0,/ohno.dialog-end,/finish-it-off) } 

dialog Timings {
  title "Timings"
  size -1 -1 124 67
  option dbu
  edit "", 1, 37 30 50 10, autohs %timing
  text "Please insert the timings between the images in the slideshow you can exit without activating the slideshow through the cancel button", 2, 3 6 117 21
  button "Cancel", 3, 74 50 37 12, ok cancel
  button "Continue", 4, 12 50 37 12
}
dialog image-slideshow-to-size {
  title "image-viewer-to-size"
  size -1 -1 %width %height
  option pixels
  icon 1, 0 0 %width %height, %teh-file, 0, noborder
}
alias -l Fit-to-size-image-viewer-slideshow {
  if ($pic(%teh-file).height < 600) /set %height $pic(%teh-file).height
  else { /set %height 600 }
  if ($pic(%teh-file).width < 800) /set %width $pic(%teh-file).width
  else { /set %width 800 }
  /.timer 1 3 /dialog -ma image-slideshow-to-size image-slideshow-to-size
}
alias variable-it {
  var %i = 0
  while (%i < $ini(image-album.ini,files,0)) {
    inc %i
    /set %file. $+ %i $readini(image-album.ini,files,$ini(image-album.ini,files,%i))
  }
  /set %file.0 %i
}