; ----------------------------------------------
; *** Towers of Toronto  v1.1 (May 2008)     ***
; * *                                        * *
; * * implemented by K. Franklin, Nov, 2002  * *
; * * e-mail address: kenf@ica.net           * *
; ----------------------------------------------

; *** based on Towers_of_Hanoi v1.2
; *** Copyright 1998-2000 Zillions Development

; You need to purchase Zillions of Games to load this rules file
; Visit the Zillions web site at http://www.zillions-of-games.com


(define disk1 ((verify (empty? n)) $1 (while not-empty? n)
   (if (on-board? s) s
     (verify (and (not-piece? blue1) (not-piece? dblblue1)) ) n)
   add))
(define disk2 ((verify (empty? n)) $1 (while not-empty? n)
   (if (on-board? s) s
   (verify (and (not-piece? blue1) (not-piece? dblblue1)) )
   (verify (and (not-piece? blue2) (not-piece? dblblue2)) ) n)
   add))
(define disk3 ((verify (empty? n)) $1 (while not-empty? n)
   (if (on-board? s) s
    (verify (and (not-piece? blue1) (not-piece? dblblue1)) )
    (verify (and (not-piece? blue2) (not-piece? dblblue2)) )
    (verify (and (not-piece? blue3) (not-piece? dblblue3)) ) n)
   add))
(define disk4 ((verify (empty? n)) $1 (while not-empty? n)
  (if (on-board? s) s
   (verify (and (not-piece? blue1) (not-piece? dblblue1)) )
   (verify (and (not-piece? blue2) (not-piece? dblblue2)) )
   (verify (and (not-piece? blue3) (not-piece? dblblue3)) )
   (verify (and (not-piece? blue4) (not-piece? dblblue4)) ) n)
   add))
(define disk5 ((verify (empty? n)) $1 (while not-empty? n)
  (if (on-board? s) s
   (verify (and (not-piece? blue1) (not-piece? dblblue1)) )
   (verify (and (not-piece? blue2) (not-piece? dblblue2)) )
   (verify (and (not-piece? blue3) (not-piece? dblblue3)) )
   (verify (and (not-piece? blue4) (not-piece? dblblue4)) )
   (verify (and (not-piece? blue5) (not-piece? dblblue5)) ) n)
  add))
(define disk6 ((verify (empty? n)) $1 (while not-empty? n)
  (if (on-board? s) s
   (verify (and (not-piece? blue1) (not-piece? dblblue1)) )
   (verify (and (not-piece? blue2) (not-piece? dblblue2)) )
   (verify (and (not-piece? blue3) (not-piece? dblblue3)) )
   (verify (and (not-piece? blue4) (not-piece? dblblue4)) )
   (verify (and (not-piece? blue5) (not-piece? dblblue5)) )
   (verify (and (not-piece? blue6) (not-piece? dblblue6)) ) n)
  add))
(define disk7 ((verify (empty? n)) $1 (while not-empty? n)
  (if (on-board? s) s
   (verify (and (not-piece? blue1) (not-piece? dblblue1)) )
   (verify (and (not-piece? blue2) (not-piece? dblblue2)) )
   (verify (and (not-piece? blue3) (not-piece? dblblue3)) )
   (verify (and (not-piece? blue4) (not-piece? dblblue4)) )
   (verify (and (not-piece? blue5) (not-piece? dblblue5)) )
   (verify (and (not-piece? blue6) (not-piece? dblblue6)) )
   (verify (and (not-piece? blue7) (not-piece? dblblue7)) ) n)
  add))


(game
  (title "Towers of Toronto :(3) Arg O-O-O s")
  (description "Realign the alternating disks into solid colour towers - Dark Blue on the far Left,
        Light Blue on the far Right.\You cannot move a larger disk on top of a smaller one.")
  (history "Based on the Towers of Hanoi puzzle invented by the French mathematician Edouard Lucas in 1883.\\
        The disks' hues are based on this city's traditional sporting colours (blue on white -
        sometimes in double blue),\
        as found with the 3-down football Argos, baseball Blue Jays, former soccer Blizzard,
        former basketball Huskies,\etc., and of course: your Toronto Maple Leafs!\\\
        Pardon the background info. - Created and implemented by K. Franklin  Nov 2002.\
        Updated with Optimal Solutions provided by Bob Henderson, May 2008.\\
        FYI, historical postcard images of Toronto found here:\
        http://chuckmanothercollection.blogspot.com\
        http://chuckmanothercollectionvolume2.blogspot.com\
        http://chuckmanothercollectionvolume3.blogspot.com")
  (strategy "There's a trick to the solution, however, if you can solve the original Towers of Hanoi puzzle,
        then \you can also solve the Towers of T.O. too, but I repeat, there's a trick to the solution.\\
        Reconstruct the towers upwards on the outside red posts: Dark Blue on the Left, Light Blue on the Right.\
        Your starting objective should be to transfer the largest disks to the opposing outside posts.\
        All of the puzzles can be solved recursively.")
  (solution "Solutions/TowersofToronto/UofTBlues3.zsg")

  (release-sound "Audio\\Woodclick.wav")
  (move-sound "Audio\\Woodclick.wav")
  (win-sound "Audio/TowersofToronto/OkBJ-letsplayball.wav")
;    from the Blue Jays' song - just the ending hit (filesize bloat if longer)-KF
  (allow-flipping false)
  (players BJ_Birdy)
  (turn-order BJ_Birdy)
  (board
    (image "images\TowersofToronto\towerto.bmp")
    (grid
      (start-rectangle 3 1 120 23) ; 1 1 118 23 slight change from Hanoi v1.2
      (dimensions
         ("a/b/c/d" (120 0)) ; files ;118 0 slight change from Hanoi v1.2
         ("0/1/2/3/4/5/6/7" (0 23)) ; ranks 0 22
     )
     (directions (n 0 -1) (s 0 1) (e 1 0) (w -1 0))
    )
   )

   (piece
      (name blue1)
      (image BJ_Birdy "images\TowersofToronto\blue1.bmp")
      (description "blue 1\A blue can be moved to any pile.")
      (help "SMALLEST blue '1': moves to any pile, but never on top of a smaller disk")
      (moves
         (move-type cdnopen)
         (disk1 a7) (disk1 b7) (disk1 c7) (disk1 d7)
      )
    (drops
         (move-type drop1)
         (pile1)
      )
   )
   (piece
      (name blue2)
      (image BJ_Birdy "images/TowersofToronto/blue2.bmp")
      (description "blue 2\A blue can be moved to any pile, but never onto a smaller disk.")
      (help "blue '2': moves to any pile, but never on top of a smaller disk")
      (moves
         (move-type cdnopen)
         (disk2 a7) (disk2 b7) (disk2 c7) (disk2 d7)
      )
    (drops
         (move-type drop2)
         (pile2)
      )
   )
   (piece
      (name blue3)
      (image BJ_Birdy "images/TowersofToronto/blue3.bmp")
      (description "blue 3\A blue can be moved to any pile, but never onto a smaller disk.")
      (help "blue '3': moves to any pile, but never on top of a smaller disk")
      (moves
         (move-type cdnopen)
         (disk3 a7) (disk3 b7) (disk3 c7) (disk3 d7)
      )
    (drops
         (move-type drop3)
         (pile3)
      )
   )
   (piece
      (name blue4)
      (image BJ_Birdy "images/TowersofToronto/blue4.bmp")
      (description "blue 4\A blue can be moved to any pile, but never onto a smaller disk.")
      (help "blue '4': moves to any pile, but never on top of a smaller disk")
      (moves
         (move-type cdnopen)
         (disk4 a7) (disk4 b7) (disk4 c7) (disk4 d7)
      )
    (drops
         (move-type drop4)
         (pile4)
      )
   )
   (piece
      (name blue5)
      (image BJ_Birdy "images/TowersofToronto/blue5.bmp")
      (description "blue 5\A blue can be moved to any pile, but never onto a smaller disk.")
      (help "blue '5': moves to any pile, but never on top of a smaller disk")
      (moves
         (move-type cdnopen)
         (disk5 a7) (disk5 b7) (disk5 c7) (disk5 d7)
      )
    (drops
         (move-type drop5)
         (pile5)
      )
   )
   (piece
      (name blue6)
      (image BJ_Birdy "images/TowersofToronto/blue6.bmp")
      (description "blue 6\A blue can be moved to any pile, but never onto a smaller disk.")
      (help "blue '6': moves to any pile, but never on top of a smaller disk")
      (moves
         (move-type cdnopen)
         (disk6 a7) (disk6 b7) (disk6 c7) (disk6 d7)
      )
    (drops
         (move-type drop6)
         (pile6)
      )
   )
   (piece
      (name blue7)
      (image BJ_Birdy "images/TowersofToronto/blue7.bmp")
      (description "blue 7\A blue can be moved to any pile, but never onto a smaller disk.")
      (help "LARGEST blue '7': moves to any pile, but never on top of a smaller disk")
      (moves
         (move-type cdnopen)
         (disk7 a7) (disk7 b7) (disk7 c7) (disk7 d7)
      )
    (drops
         (move-type drop7)
         (pile7)
      )
   )
   (piece
      (name dblblue1)
      (image BJ_Birdy "images\TowersofToronto\dblblue1.bmp")
      (description "dblblue 1\A dblblue can be moved to any pile.")
      (help "SMALLEST dblblue '1': moves to any pile, but never on top of a smaller disk")
      (moves
         (move-type cdnopen)
         (disk1 a7) (disk1 b7) (disk1 c7) (disk1 d7)
      )
    (drops
         (move-type drop1)
         (pile1)
      )
   )
   (piece
      (name dblblue2)
      (image BJ_Birdy "images/TowersofToronto/dblblue2.bmp")
      (description "dblblue 2\A dblblue can be moved to any pile, but never onto a smaller disk.")
      (help "dblblue '2': moves to any pile, but never on top of a smaller disk")
      (moves
         (move-type cdnopen)
         (disk2 a7) (disk2 b7) (disk2 c7) (disk2 d7)
      )
    (drops
         (move-type drop2)
         (pile2)
      )
   )
   (piece
      (name dblblue3)
      (image BJ_Birdy "images/TowersofToronto/dblblue3.bmp")
      (description "dblblue 3\A dblblue can be moved to any pile, but never onto a smaller disk.")
      (help "dblblue '3': moves to any pile, but never on top of a smaller disk")
      (moves
         (move-type cdnopen)
         (disk3 a7) (disk3 b7) (disk3 c7) (disk3 d7)
      )
    (drops
         (move-type drop3)
         (pile3)
      )
   )
   (piece
      (name dblblue4)
      (image BJ_Birdy "images/TowersofToronto/dblblue4.bmp")
      (description "dblblue 4\A dblblue can be moved to any pile, but never onto a smaller disk.")
      (help "dblblue '4': moves to any pile, but never on top of a smaller disk")
      (moves
         (move-type cdnopen)
         (disk4 a7) (disk4 b7) (disk4 c7) (disk4 d7)
      )
    (drops
         (move-type drop4)
         (pile4)
      )
   )
   (piece
      (name dblblue5)
      (image BJ_Birdy "images/TowersofToronto/dblblue5.bmp")
      (description "dblblue 5\A dblblue can be moved to any pile, but never onto a smaller disk.")
      (help "dblblue '5': moves to any pile, but never on top of a smaller disk")
      (moves
         (move-type cdnopen)
         (disk5 a7) (disk5 b7) (disk5 c7) (disk5 d7)
      )
    (drops
         (move-type drop5)
         (pile5)
      )
   )
   (piece
      (name dblblue6)
      (image BJ_Birdy "images/TowersofToronto/dblblue6.bmp")
      (description "dblblue 6\A dblblue can be moved to any pile, but never onto a smaller disk.")
      (help "dblblue '6': moves to any pile, but never on top of a smaller disk")
      (moves
         (move-type cdnopen)
         (disk6 a7) (disk6 b7) (disk6 c7) (disk6 d7)
      )
    (drops
         (move-type drop6)
         (pile6)
      )
   )
   (piece
      (name dblblue7)
      (image BJ_Birdy "images/TowersofToronto/dblblue7.bmp")
      (description "dblblue 7\A dblblue can be moved to any pile, but never onto a smaller disk.")
      (help "LARGEST dblblue '7': moves to any pile, but never on top of a smaller disk")
      (moves
         (move-type cdnopen)
         (disk7 a7) (disk7 b7) (disk7 c7) (disk7 d7)
      )
    (drops
         (move-type drop7)
         (pile7)
      )
   )
   (board-setup
      (BJ_Birdy
         (blue1 a5) (dblblue1 d5)
         (blue2 d6) (dblblue2 a6)
         (blue3 a7) (dblblue3 d7)
      )
   )
   (win-condition (BJ_Birdy)  (and (absolute-config blue3 (d7))
                               (absolute-config blue2 (d6))
                               (absolute-config blue1 (d5))
                               (absolute-config dblblue3 (a7))
                               (absolute-config dblblue2 (a6))
                               (absolute-config dblblue1 (a5))
                          )
   )
)

(variant
  (title "Towers of Toronto :(4) Arg O-O-O-O s")
  (default)
  (solution "Solutions/TowersofToronto/UofTBlues4.zsg")
   (board-setup
      (BJ_Birdy
         (blue1 d4) (dblblue1 a4)
         (blue2 a5) (dblblue2 d5)
         (blue3 d6) (dblblue3 a6)
         (blue4 a7) (dblblue4 d7)
      )
   )
   (win-condition (BJ_Birdy)  (and (absolute-config blue4 (d7))
                               (absolute-config blue3 (d6))
                               (absolute-config blue2 (d5))
                               (absolute-config blue1 (d4))
                               (absolute-config dblblue4 (a7))
                               (absolute-config dblblue3 (a6))
                               (absolute-config dblblue2 (a5))
                               (absolute-config dblblue1 (a4))
                          )
   )
)

(variant
  (title "Towers of Toronto :(5) Arg O-O-O-O-O s")
  (solution "Solutions/TowersofToronto/UofTBlues5.zsg")
  (board-setup
      (BJ_Birdy
         (blue1 a3) (dblblue1 d3)
         (blue2 d4) (dblblue2 a4)
         (blue3 a5) (dblblue3 d5)
         (blue4 d6) (dblblue4 a6)
         (blue5 a7) (dblblue5 d7)
      )
   )
   (win-condition (BJ_Birdy)  (and (absolute-config blue5 (d7))
                               (absolute-config blue4 (d6))
                               (absolute-config blue3 (d5))
                               (absolute-config blue2 (d4))
                               (absolute-config blue1 (d3))
                               (absolute-config dblblue5 (a7))
                               (absolute-config dblblue4 (a6))
                               (absolute-config dblblue3 (a5))
                               (absolute-config dblblue2 (a4))
                               (absolute-config dblblue1 (a3))
                          )
   )
)

(variant
  (title "Towers of Toronto :(6) Arg O-O-O-O-O-O s")
  (solution "Solutions/TowersofToronto/UofTBlues6.zsg")

  (board-setup
      (BJ_Birdy
         (blue1 d2) (dblblue1 a2)
         (blue2 a3) (dblblue2 d3)
         (blue3 d4) (dblblue3 a4)
         (blue4 a5) (dblblue4 d5)
         (blue5 d6) (dblblue5 a6)
         (blue6 a7) (dblblue6 d7)
      )
   )
   (win-condition (BJ_Birdy)  (and (absolute-config blue6 (d7))
                               (absolute-config blue5 (d6))
                               (absolute-config blue4 (d5))
                               (absolute-config blue3 (d4))
                               (absolute-config blue2 (d3))
                               (absolute-config blue1 (d2))
                               (absolute-config dblblue6 (a7))
                               (absolute-config dblblue5 (a6))
                               (absolute-config dblblue4 (a5))
                               (absolute-config dblblue3 (a4))
                               (absolute-config dblblue2 (a3))
                               (absolute-config dblblue1 (a2))
                          )
   )
)

(variant
  (title "Towers of Toronto :(7) Arg O-O-O-O-O-O-O s")
  (solution "Solutions/TowersofToronto/UofTBlues7.zsg")
  (board-setup
      (BJ_Birdy
         (blue1 a1) (dblblue1 d1)
         (blue2 d2) (dblblue2 a2)
         (blue3 a3) (dblblue3 d3)
         (blue4 d4) (dblblue4 a4)
         (blue5 a5) (dblblue5 d5)
         (blue6 d6) (dblblue6 a6)
         (blue7 a7) (dblblue7 d7)
      )
   )
   (win-condition (BJ_Birdy)  (and (absolute-config blue7 (d7))
                               (absolute-config blue6 (d6))
                               (absolute-config blue5 (d5))
                               (absolute-config blue4 (d4))
                               (absolute-config blue3 (d3))
                               (absolute-config blue2 (d2))
                               (absolute-config blue1 (d1))
                               (absolute-config dblblue7 (a7))
                               (absolute-config dblblue6 (a6))
                               (absolute-config dblblue5 (a5))
                               (absolute-config dblblue4 (a4))
                               (absolute-config dblblue3 (a3))
                               (absolute-config dblblue2 (a2))
                               (absolute-config dblblue1 (a1))
                          )
   )
)

; **************************************************************************
; VARIANTS with Random Disk Placements
; **************************************************************************
(variant
   (title "-") ; --------------------------------------------------------
)


(define pile1 ( (verify (and (not-empty? s)
                (not-piece? blue1 s) (not-piece? dblblue1 s) empty?) ) flip add) )

(define pile2 ( (verify (and (not-empty? s)
                (not-piece? blue1 s) (not-piece? dblblue1 s)
                (not-piece? blue2 s) (not-piece? dblblue2 s) empty?) ) flip add) )

(define pile3 ( (verify (and (not-empty? s)
                (not-piece? blue1 s) (not-piece? dblblue1 s)
                (not-piece? blue2 s) (not-piece? dblblue2 s)
                (not-piece? blue3 s) (not-piece? dblblue3 s) empty?) ) flip add) )
(define pile4 ( (verify (and (not-empty? s)
                (not-piece? blue1 s) (not-piece? dblblue1 s)
                (not-piece? blue2 s) (not-piece? dblblue2 s)
                (not-piece? blue3 s) (not-piece? dblblue3 s)
                (not-piece? blue4 s) (not-piece? dblblue4 s) empty?) ) flip add) )

(define pile5 ( (verify (and (not-empty? s)
                (not-piece? blue1 s) (not-piece? dblblue1 s)
                (not-piece? blue2 s) (not-piece? dblblue2 s)
                (not-piece? blue3 s) (not-piece? dblblue3 s)
                (not-piece? blue4 s) (not-piece? dblblue4 s)
                (not-piece? blue5 s) (not-piece? dblblue5 s) empty?) ) flip add) )

(define pile6 ( (verify (and (not-empty? s)
                (not-piece? blue1 s) (not-piece? dblblue1 s)
                (not-piece? blue2 s) (not-piece? dblblue2 s)
                (not-piece? blue3 s) (not-piece? dblblue3 s)
                (not-piece? blue4 s) (not-piece? dblblue4 s)
                (not-piece? blue5 s) (not-piece? dblblue5 s)
                (not-piece? blue6 s) (not-piece? dblblue6 s) empty?) ) flip add) )

(define pile7 ( (verify (and (not-empty? s)
                (not-piece? blue1 s) (not-piece? dblblue1 s)
                (not-piece? blue2 s) (not-piece? dblblue2 s)
                (not-piece? blue3 s) (not-piece? dblblue3 s)
                (not-piece? blue4 s) (not-piece? dblblue4 s)
                (not-piece? blue5 s) (not-piece? dblblue5 s)
                (not-piece? blue6 s) (not-piece? dblblue6 s)
                (not-piece? blue7 s) (not-piece? dblblue7 s) empty?) ) flip add) )



(variant
  (title "Random Towers of T.O.:(3) Arg O-O-O s")
  (solution "")
    (players BJ_Birdy ?Start)
    (turn-order
    (?Start drop3) (?Start drop3)
    (?Start drop2) (?Start drop2)
    (?Start drop1) (?Start drop1)
    repeat BJ_Birdy)
    (animate-drops false)

   (board-setup
    (?Start (blue3 off 1)) (?Start (dblblue3 off 1))
    (?Start (blue2 off 1)) (?Start (dblblue2 off 1))
    (?Start (blue1 off 1)) (?Start (dblblue1 off 1))
    )

   (win-condition (BJ_Birdy)  (and (absolute-config blue3 (d7))
                               (absolute-config blue2 (d6))
                               (absolute-config blue1 (d5))
                               (absolute-config dblblue3 (a7))
                               (absolute-config dblblue2 (a6))
                               (absolute-config dblblue1 (a5))
                          )
   )
)

(variant
  (title "Random Towers of T.O.:(4) Arg O-O-O-O s")
  (solution "")
    (players BJ_Birdy ?Start)
    (turn-order
    (?Start drop4) (?Start drop4)
    (?Start drop3) (?Start drop3)
    (?Start drop2) (?Start drop2)
    (?Start drop1) (?Start drop1)
    repeat BJ_Birdy)
    (animate-drops false)

   (board-setup
    (?Start (blue4 off 1)) (?Start (dblblue4 off 1))
    (?Start (blue3 off 1)) (?Start (dblblue3 off 1))
    (?Start (blue2 off 1)) (?Start (dblblue2 off 1))
    (?Start (blue1 off 1)) (?Start (dblblue1 off 1))
    )

   (win-condition (BJ_Birdy)  (and (absolute-config blue4 (d7))
                               (absolute-config blue3 (d6))
                               (absolute-config blue2 (d5))
                               (absolute-config blue1 (d4))
                               (absolute-config dblblue4 (a7))
                               (absolute-config dblblue3 (a6))
                               (absolute-config dblblue2 (a5))
                               (absolute-config dblblue1 (a4))
                          )
   )
)

(variant
  (title "Random Towers of T.O.:(5) Arg O-O-O-O-O s")
  (solution "")
    (players BJ_Birdy ?Start)
    (turn-order
    (?Start drop5) (?Start drop5)
    (?Start drop4) (?Start drop4)
    (?Start drop3) (?Start drop3)
    (?Start drop2) (?Start drop2)
    (?Start drop1) (?Start drop1)
    repeat BJ_Birdy)
    (animate-drops false)

   (board-setup
    (?Start (blue5 off 1)) (?Start (dblblue5 off 1))
    (?Start (blue4 off 1)) (?Start (dblblue4 off 1))
    (?Start (blue3 off 1)) (?Start (dblblue3 off 1))
    (?Start (blue2 off 1)) (?Start (dblblue2 off 1))
    (?Start (blue1 off 1)) (?Start (dblblue1 off 1))
    )

   (win-condition (BJ_Birdy)  (and (absolute-config blue5 (d7))
                               (absolute-config blue4 (d6))
                               (absolute-config blue3 (d5))
                               (absolute-config blue2 (d4))
                               (absolute-config blue1 (d3))
                               (absolute-config dblblue5 (a7))
                               (absolute-config dblblue4 (a6))
                               (absolute-config dblblue3 (a5))
                               (absolute-config dblblue2 (a4))
                               (absolute-config dblblue1 (a3))
                          )
   )
)

(variant
  (title "Random Towers of T.O.:(6) Arg O-O-O-O-O-O s")
  (solution "")
    (players BJ_Birdy ?Start)
    (turn-order
    (?Start drop6) (?Start drop6)
    (?Start drop5) (?Start drop5)
    (?Start drop4) (?Start drop4)
    (?Start drop3) (?Start drop3)
    (?Start drop2) (?Start drop2)
    (?Start drop1) (?Start drop1)
    repeat BJ_Birdy)
    (animate-drops false)

   (board-setup
    (?Start (blue6 off 1)) (?Start (dblblue6 off 1))
    (?Start (blue5 off 1)) (?Start (dblblue5 off 1))
    (?Start (blue4 off 1)) (?Start (dblblue4 off 1))
    (?Start (blue3 off 1)) (?Start (dblblue3 off 1))
    (?Start (blue2 off 1)) (?Start (dblblue2 off 1))
    (?Start (blue1 off 1)) (?Start (dblblue1 off 1))
    )

   (win-condition (BJ_Birdy)  (and (absolute-config blue6 (d7))
                               (absolute-config blue5 (d6))
                               (absolute-config blue4 (d5))
                               (absolute-config blue3 (d4))
                               (absolute-config blue2 (d3))
                               (absolute-config blue1 (d2))
                               (absolute-config dblblue6 (a7))
                               (absolute-config dblblue5 (a6))
                               (absolute-config dblblue4 (a5))
                               (absolute-config dblblue3 (a4))
                               (absolute-config dblblue2 (a3))
                               (absolute-config dblblue1 (a2))
                          )
   )
)

(variant
  (title "Random Towers of T.O.:(7) Arg O-O-O-O-O-O-O s")
  (solution "")
    (players BJ_Birdy ?Start)
    (turn-order
    (?Start drop7) (?Start drop7)
    (?Start drop6) (?Start drop6)
    (?Start drop5) (?Start drop5)
    (?Start drop4) (?Start drop4)
    (?Start drop3) (?Start drop3)
    (?Start drop2) (?Start drop2)
    (?Start drop1) (?Start drop1)
    repeat BJ_Birdy)
    (animate-drops false)

   (board-setup
    (?Start (blue7 off 1)) (?Start (dblblue7 off 1))
    (?Start (blue6 off 1)) (?Start (dblblue6 off 1))
    (?Start (blue5 off 1)) (?Start (dblblue5 off 1))
    (?Start (blue4 off 1)) (?Start (dblblue4 off 1))
    (?Start (blue3 off 1)) (?Start (dblblue3 off 1))
    (?Start (blue2 off 1)) (?Start (dblblue2 off 1))
    (?Start (blue1 off 1)) (?Start (dblblue1 off 1))
    )

   (win-condition (BJ_Birdy)  (and (absolute-config blue7 (d7))
                               (absolute-config blue6 (d6))
                               (absolute-config blue5 (d5))
                               (absolute-config blue4 (d4))
                               (absolute-config blue3 (d3))
                               (absolute-config blue2 (d2))
                               (absolute-config blue1 (d1))
                               (absolute-config dblblue7 (a7))
                               (absolute-config dblblue6 (a6))
                               (absolute-config dblblue5 (a5))
                               (absolute-config dblblue4 (a4))
                               (absolute-config dblblue3 (a3))
                               (absolute-config dblblue2 (a2))
                               (absolute-config dblblue1 (a1))
                          )
   )

; GO LEAFS GO!
)


; **************************************************************************
; VARIANT with bottom disks only switched
; **************************************************************************
(variant
   (title "-") ; --------------------------------------------------------
)
(variant
  (title "Towers of Toronto : bottom disks switched only (4)")
  (description "Realign the alternating disks into solid colour towers - Dark Blue on the far Left,
        Light Blue on the far Right.\You cannot move a larger disk on top of a smaller one.\\
        New to this update, it was revealed by Bob Henderson that 'the [longest] such puzzle is to\
        swap just the bottom discs of the 2 stacks'.  Two mid-scaled variants are thus comparably added.")
  (solution "Solutions/TowersofToronto/bottomdisk4.zsg")
   (board-setup
      (BJ_Birdy
         (blue1 d4) (dblblue1 a4)
         (blue2 d5) (dblblue2 a5)
         (blue3 d6) (dblblue3 a6)
         (blue4 a7) (dblblue4 d7)
      )
   )
   (win-condition (BJ_Birdy)  (and (absolute-config blue4 (d7))
                               (absolute-config blue3 (d6))
                               (absolute-config blue2 (d5))
                               (absolute-config blue1 (d4))
                               (absolute-config dblblue4 (a7))
                               (absolute-config dblblue3 (a6))
                               (absolute-config dblblue2 (a5))
                               (absolute-config dblblue1 (a4))
                          )
   )
)

(variant
  (title "Towers of Toronto : bottom disks switched only (5)")
  (description "Realign the alternating disks into solid colour towers - Dark Blue on the far Left,
        Light Blue on the far Right.\You cannot move a larger disk on top of a smaller one.\\
        New to this update, it was revealed by Bob Henderson that 'the [longest] such puzzle is to\
        swap just the bottom discs of the 2 stacks'.  Two mid-scaled variants are thus comparably added.")
  (solution "Solutions/TowersofToronto/bottomdisk5.zsg")
  (board-setup
      (BJ_Birdy
         (blue1 d3) (dblblue1 a3)
         (blue2 d4) (dblblue2 a4)
         (blue3 d5) (dblblue3 a5)
         (blue4 d6) (dblblue4 a6)
         (blue5 a7) (dblblue5 d7)
      )
   )
   (win-condition (BJ_Birdy)  (and (absolute-config blue5 (d7))
                               (absolute-config blue4 (d6))
                               (absolute-config blue3 (d5))
                               (absolute-config blue2 (d4))
                               (absolute-config blue1 (d3))
                               (absolute-config dblblue5 (a7))
                               (absolute-config dblblue4 (a6))
                               (absolute-config dblblue3 (a5))
                               (absolute-config dblblue2 (a4))
                               (absolute-config dblblue1 (a3))
                          )
   )
)