Open dialog effect

By Matt5150 on Apr 13, 2013

An open dialog effect without using dlls.

try: /dopen test 550 430

alias dopen {
  if (!$3) { echo 4 -a * Insufficient parameters: /dopen <dialog> <larghezza> <altezza> }
  else {
    var %d.name = $1, %d.X = $2, %d.Y = $3, %.a = 1, %.b = 1, %.d = 1
    if (%d.X > %d.Y) { var %.c = $2 } | else { var %.c = $3 }
    dialog -m %d.name %d.name 
    while (%.d <= %.c) {
      dialog -s %d.name -1 -1 %.a %.b
      if (%.a <= %d.X) { inc %.a }
      if (%.b <= %d.Y) { inc %.b }
      inc %.d
    }
  }
}

dialog test {
  size -1 -1 550 430
  list 4, 5 15 540 380 , size
  button "TEST" 2, 480 400 65 20, ok
}

Comments

Sign in to comment.
Scakk   -  Apr 17, 2013

Very interesting.

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.