DES EFFETS D'OUVERTURE DE DIALOG

;utilisation : alias <nom de l'alias> { opendl <a,k> x y w h }
alias opendlr { opendl $rand(a,k) $$1 $$2 $$3 $$4 $$5 }
alias opendl {
  if $$1- != $null {
    if $$1 = a {
      dialog -m $$2 $$2
      set %temp.d $$2
      set %temp.d.w 0 | set %temp.d.wd $$5 | set %temp.d.h $$6 | set %temp.d.x $calc($$3 + ($$5 / 2)) | set %temp.d.y $$4
      dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
      .timeropendlw $calc(%temp.d.wd / 3) 0.001 opendl.w
    }
    if $$1 = nav {
      dialog -md $$2 $$2
      set %temp.d $$2
      set %temp.d.h 0 | set %temp.d.w $$5 | set %temp.d.hd $$6 | set %temp.d.wd $$5 | set %temp.d.x $$3 | set %temp.d.y $$4
      dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
      opendl.t
    }
    if $$1 = b {
      dialog -m $$2 $$2
      set %temp.d $$2
      set %temp.d.h 0 | set %temp.d.w $$5 | set %temp.d.hd $$6 | set %temp.d.x $$3 | set %temp.d.y $calc($$4 + ($$6 / 2))
      dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
      .timeropendlh $calc(%temp.d.hd / 3) 0.001 opendl.h
    }
    if $$1 = c {
      dialog -m $$2 $$2
      set %temp.d $$2
      set %temp.d.h 0 | set %temp.d.w 0 | set %temp.d.hd $$6 | set %temp.d.wd $$5 | set %temp.d.x $calc($$3 + ($$5 / 2)) | set %temp.d.y $calc($$4 + ($$6 / 2))
      dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
      .timeropendlwh $calc(%temp.d.hd / 3) 0.001 opendl.wh
    }
    if $$1 = d {
      dialog -m $$2 $$2
      set %temp.d $$2
      set %temp.d.h 0 | set %temp.d.w 0 | set %temp.d.hd $$6 | set %temp.d.wd $$5 | set %temp.d.x $calc($$3 + ($$5 / 2)) | set %temp.d.y $calc($$4 + ($$6 / 2))
      dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
      opendl.w
      opendl.h
    }
    if $$1 = e {
      dialog -m $$2 $$2
      set %temp.d $$2
      set %temp.d.h 0 | set %temp.d.w 0 | set %temp.d.hd $$6 | set %temp.d.wd $$5 | set %temp.d.x $calc($$3 + ($$5 / 2)) | set %temp.d.y $calc($$4 + ($$6 / 2))
      dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
      opendl.h
      opendl.w
    }
    if $$1 = f {
      dialog -m $$2 $$2
      set %temp.d $$2
      set %temp.d.h $$6 | set %temp.d.w 0 | set %temp.d.hd $$6 | set %temp.d.wd $$5 | set %temp.d.x $calc($$3 + ($$5 / 2)) | set %temp.d.y $calc($$4 + ($$6 / 2))
      dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
      opendl.mvr
    }
    if $$1 = g {
      dialog -m $$2 $$2
      set %temp.d $$2
      set %temp.d.h 0 | set %temp.d.w $$5 | set %temp.d.hd $$6 | set %temp.d.wd $$5 | set %temp.d.x $$3 | set %temp.d.y $calc($$4 + $$6)
      dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
      opendl.b
    }
    if $$1 = h {
      dialog -m $$2 $$2
      set %temp.d $$2
      set %temp.d.h 0 | set %temp.d.w $$5 | set %temp.d.hd $$6 | set %temp.d.wd $$5 | set %temp.d.x $$3 | set %temp.d.y $$4
      dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
      opendl.t
    }
    if $$1 = i {
      dialog -m $$2 $$2
      set %temp.d $$2
      set %temp.d.h $$6 | set %temp.d.w 0 | set %temp.d.hd $$6 | set %temp.d.wd $$5 | set %temp.d.x $calc($$3 + $$5) | set %temp.d.y $$4
      dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
      opendl.l
    }
    if $$1 = j {
      dialog -m $$2 $$2
      set %temp.d $$2
      set %temp.d.h $$6 | set %temp.d.w 0 | set %temp.d.hd $$6 | set %temp.d.wd $$5 | set %temp.d.x $$3 | set %temp.d.y $$4
      dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
      opendl.r
    }
    if $$1 = log {
      dialog -md $$2 $$2
      set %temp.d $$2
      set %temp.d.h 0 | set %temp.d.w 0 | set %temp.d.hd $$6 | set %temp.d.wd $$5 | set %temp.d.x $calc($$3 + ($$5 / 2)) | set %temp.d.y $calc($$4 + ($$6 / 2))
      dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
      opendl.h
      opendl.w
    }
    if $$1 = mmp {
      dialog -md $$2 $$2
      set %temp.d $$2
      set %temp.d.h $$6 | set %temp.d.w 0 | set %temp.d.hd $$6 | set %temp.d.wd $$5 | set %temp.d.x $$3 | set %temp.d.y $$4
      dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
      opendl.r
    }
    if $$1 = k {
      dialog -m $$2 $$2
      set %temp.d $$2 | set %temp.d.r1 $rand(1,4) | set %temp.d.r2 $rand(1,2)
      set %temp.d.h 0 | set %temp.d.w 0 | set %temp.d.hd $$6 | set %temp.d.wd $$5 | set %temp.d.x $$3 | set %temp.d.y $$4
      dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
      if %temp.d.r1 = 1 {
        if %temp.d.r2 = 1 { opendl.r | opendl.t }
        if %temp.d.r2 = 2 { set %temp.d.y $calc(%temp.d.y + %temp.d.hd) | opendl.r | opendl.b }
      }
      if %temp.d.r1 = 2 {
        if %temp.d.r2 = 1 { set %temp.d.x $calc(%temp.d.x + %temp.d.wd) | opendl.l | opendl.t }
        if %temp.d.r2 = 2 { set %temp.d.x $calc(%temp.d.x + %temp.d.wd) | set %temp.d.y $calc(%temp.d.y + %temp.d.hd) | opendl.l | opendl.b }
      }
      if %temp.d.r1 = 3 {
        if %temp.d.r2 = 1 { set %temp.d.x $calc(%temp.d.x + %temp.d.wd) | opendl.t | opendl.l }
        if %temp.d.r2 = 2 { opendl.t | opendl.r }
      }
      if %temp.d.r1 = 4 {
        if %temp.d.r2 = 1 { set %temp.d.y $calc(%temp.d.y + %temp.d.hd) | set %temp.d.x $calc(%temp.d.x + %temp.d.wd) | opendl.b | opendl.l }
        if %temp.d.r2 = 2 { set %temp.d.y $calc(%temp.d.y + %temp.d.hd) | opendl.b | opendl.r }
      }
    }
  }
}
alias opendl.w {
  :start
  inc %temp.d.w 2 | dec %temp.d.x 1
  dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
  if %temp.d.w < %temp.d.wd { goto start } | else { goto end }
  :end
  .timeropendlw off
}
alias opendl.h {
  :start
  inc %temp.d.h 2 | dec %temp.d.y 1
  dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
  if %temp.d.h < %temp.d.hd { goto start } | else { goto end }
  :end
  .timeropendlh off
}
alias opendl.wh {
  :start
  inc %temp.d.h 2 | inc %temp.d.w 2 | dec %temp.d.x 1 | dec %temp.d.y 1
  dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
  if %temp.d.h < %temp.d.hd && %temp.d.w => %temp.d.wd { dec %temp.d.w 2 }
  if %temp.d.h >= %temp.d.hd && %temp.d.w < %temp.d.wd { dec %temp.d.h 2 }
  if %temp.d.h < %temp.d.hd || %temp.d.w < %temp.d.wd { goto start } | else { goto end }
  :end
  .timeropendlwh off
}
alias opendl.mvr {
  set %temp.d.xd $calc(%temp.d.x - (%temp.d.x / 2))
  set %temp.d.y $calc(%temp.d.y - (%temp.d.y / 2))
  :start
  inc %temp.d.w 1 | dec %temp.d.x 1
  dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
  if %temp.d.w < %temp.d.wd { goto start } | else { goto end }
  :end
  :start2
  inc %temp.d.x 1
  dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
  if %temp.d.x < %temp.d.xd { goto start2 } | else { goto end2 }
  :end2
}
alias opendl.b {
  set %temp.d.yd $calc(%temp.d.y - %temp.d.hd)
  :start
  inc %temp.d.h 1 | dec %temp.d.y 1
  dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
  if %temp.d.y > %temp.d.yd { goto start } | else { goto end }
  :end
}
alias opendl.t {
  :start
  inc %temp.d.h 1
  dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
  if %temp.d.h < %temp.d.hd { goto start } | else { goto end }
  :end
}
alias opendl.l {
  :start
  inc %temp.d.w 1 | dec %temp.d.x 1
  dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
  if %temp.d.w < %temp.d.wd { goto start } | else { goto end }
  :end
}
alias opendl.r {
  :start
  inc %temp.d.w 1
  dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
  if %temp.d.w < %temp.d.wd { goto start } | else { goto end }
  :end