(load "engine.lisp" :print t)
(init-engine)
(io-start-game 2 NIL)
(attach-agent 3)
(attach-agent 20)

(accept-move 3 '((PLACE-TILE 1G) (BUY-STOCK 0 NIL) (DRAW-TILE)))

(accept-move 20 '((PLACE-TILE 10F) (BUY-STOCK 0 NIL) (DRAW-TILE)))

(accept-move 3 '((PLACE-TILE 1F) (BUY-STOCK 0 NIL) (DRAW-TILE)))
(accept-new-place-tile 3 '((PLACE-TILE 9F) (BUY-STOCK 0 NIL) (DRAW-TILE)))
(set-new-chain-name 3 'IMPERIAL)

(accept-move 20 '((PLACE-TILE 5E) (BUY-STOCK 0 NIL) (DRAW-TILE)))

(accept-move 3 '((PLACE-TILE 12G) (BUY-STOCK 0 NIL) (DRAW-TILE)))

(accept-move 20 '((PLACE-TILE 3C) (BUY-STOCK 0 NIL) (DRAW-TILE)))

(accept-move 3 '((PLACE-TILE 11H) (BUY-STOCK 0 NIL) (DRAW-TILE)))

(accept-move 20 '((PLACE-TILE 8A) (BUY-STOCK 0 NIL) (DRAW-TILE)))

(accept-move 3 '((PLACE-TILE 2I) (BUY-STOCK 0 NIL) (DRAW-TILE)))
(set-new-chain-name 3 'IMPERIAL)

(accept-move 20 '((PLACE-TILE 11F) (BUY-STOCK 3 IMPERIAL) (DRAW-TILE)))

(accept-move 3 '((PLACE-TILE 11H) (BUY-STOCK 3 IMPERIAL) (DRAW-TILE)))

(accept-move 20 '((PLACE-TILE 10F) (BUY-STOCK 3 LUXOR) (DRAW-TILE)))
(set-new-chain-name 20 'LUXOR)

(accept-move 3 '((PLACE-TILE 9F) (BUY-STOCK 3 LUXOR) (DRAW-TILE)))

(accept-move 20 '((PLACE-TILE 5E) (BUY-STOCK 3 IMPERIAL) (DRAW-TILE)))

(accept-move 3 '((PLACE-TILE 7C) (BUY-STOCK 3 LUXOR) (DRAW-TILE)))

(accept-move 20 '((PLACE-TILE 2F) (BUY-STOCK 3 IMPERIAL) (DRAW-TILE)))

(accept-move 3 '((PLACE-TILE 12G) (BUY-STOCK 3 LUXOR) (DRAW-TILE)))

(accept-move 20 '((PLACE-TILE 9B) (BUY-STOCK 3 LUXOR) (DRAW-TILE)))

(accept-move 3 '((PLACE-TILE 11I) (BUY-STOCK 3 CONTINENTAL) (DRAW-TILE)))
(set-new-chain-name 3 'CONTINENTAL)

(accept-move 20 '((PLACE-TILE 6G) (BUY-STOCK 3 CONTINENTAL) (DRAW-TILE)))
(accept-new-buy-stock 20 '((PLACE-TILE 6G) (BUY-STOCK 0 NIL) (DRAW-TILE)))

(accept-move 3 '((PLACE-TILE 7H) (BUY-STOCK 0 NIL) (DRAW-TILE)))

(accept-move 20 '((PLACE-TILE 9G) (BUY-STOCK 0 NIL) (DRAW-TILE)))

(accept-move 3 '((PLACE-TILE 12E) (BUY-STOCK 0 NIL) (DRAW-TILE)))

(accept-move 20 '((PLACE-TILE 3C) (BUY-STOCK 0 NIL) (DRAW-TILE)))

(accept-move 3 '((PLACE-TILE 2D) (BUY-STOCK 0 NIL) (DRAW-TILE)))

(accept-move 20 '((PLACE-TILE 1A) (BUY-STOCK 0 NIL) (DRAW-TILE)))
(accept-new-place-tile 20 '((PLACE-TILE 1E) (BUY-STOCK 0 NIL) (DRAW-TILE)))

(accept-move 3 '((PLACE-TILE 3E) (BUY-STOCK 0 NIL) (DRAW-TILE)))

(accept-move 20 '((PLACE-TILE 10A) (BUY-STOCK 0 NIL) (DRAW-TILE)))

(accept-move 3 '((PLACE-TILE 5I) (BUY-STOCK 0 NIL) (DRAW-TILE)))

(accept-move 20 '((PLACE-TILE 3F) (BUY-STOCK 0 NIL) (DRAW-TILE)))
(set-new-chain-name 20 'FESTIVAL)

(accept-move 3 '((PLACE-TILE 6E) (BUY-STOCK 0 NIL) (DRAW-TILE)))
(set-new-chain-name 3 'TOWER)

(accept-move 20 '((PLACE-TILE 10H) (BUY-STOCK 0 NIL) (DRAW-TILE)))

(accept-move 3 '((PLACE-TILE 1F) (BUY-STOCK 0 NIL) (DRAW-TILE)))

(accept-move 20 '((PLACE-TILE 5G) (BUY-STOCK 0 NIL) (DRAW-TILE)))
(set-new-chain-name 20 'AMERICAN)

(accept-move 3 '((PLACE-TILE 7G) (BUY-STOCK 0 NIL) (DRAW-TILE)))

(accept-move 20 '((PLACE-TILE 11B) (BUY-STOCK 0 NIL) (DRAW-TILE)))

(accept-move 3 '((PLACE-TILE 1C) (BUY-STOCK 0 NIL) (DRAW-TILE)))

(accept-move 20 '((PLACE-TILE 8A) (BUY-STOCK 0 NIL) (DRAW-TILE)))

(accept-move 3 '((PLACE-TILE 9D) (BUY-STOCK 0 NIL) (DRAW-TILE)))

(accept-move 20 '((PLACE-TILE 5D) (BUY-STOCK 0 NIL) (DRAW-TILE)))

(accept-move 3 '((PLACE-TILE 6I) (BUY-STOCK 0 NIL) (DRAW-TILE)))
(set-new-chain-name 3 'WORLDWIDE)

(accept-move 20 '((PLACE-TILE 2A) (BUY-STOCK 0 NIL) (DRAW-TILE)))

(accept-move 3 '((PLACE-TILE 1G) (BUY-STOCK 0 NIL) (DRAW-TILE)))

(accept-move 20 '((PLACE-TILE 6H) (BUY-STOCK 0 NIL) (DRAW-TILE)))
(agent-stock-action 20 'AMERICAN '(WORLDWIDE) '(((TRADE-STOCK 0 WORLDWIDE AMERICAN) (SELL-STOCK 0 WORLDWIDE) (HOLD-STOCK 0 WORLDWIDE))))

(agent-stock-action 3 'AMERICAN '(WORLDWIDE) '(((TRADE-STOCK 0 WORLDWIDE AMERICAN) (SELL-STOCK 0 WORLDWIDE) (HOLD-STOCK 0 WORLDWIDE))))

(accept-move 3 '((PLACE-TILE 8C) (BUY-STOCK 0 NIL) (DRAW-TILE)))
(set-new-chain-name 3 'WORLDWIDE)

(accept-move 20 '((PLACE-TILE 2H) (BUY-STOCK 0 NIL) (DRAW-TILE)))

(accept-move 3 '((PLACE-TILE 8F) (BUY-STOCK 0 NIL) (DRAW-TILE)))

(accept-move 20 '((PLACE-TILE 5F) (BUY-STOCK 0 NIL) (DRAW-TILE)))
(agent-stock-action 20 'AMERICAN '(TOWER) '(((TRADE-STOCK 0 TOWER AMERICAN) (SELL-STOCK 0 TOWER) (HOLD-STOCK 0 TOWER))))

(agent-stock-action 3 'AMERICAN '(TOWER) '(((TRADE-STOCK 0 TOWER AMERICAN) (SELL-STOCK 0 TOWER) (HOLD-STOCK 0 TOWER))))

(accept-move 3 '((PLACE-TILE 11E) (BUY-STOCK 0 NIL) (DRAW-TILE)))

(accept-move 20 '((PLACE-TILE 2C) (BUY-STOCK 0 NIL) (DRAW-TILE)))
(set-new-chain-name 20 'TOWER)

(accept-move 3 '((PLACE-TILE 12F) (BUY-STOCK 0 NIL) (DRAW-TILE)))

(accept-move 20 '((PLACE-TILE 8E) (BUY-STOCK 0 NIL) (DRAW-TILE)))

(accept-move 3 '((PLACE-TILE 7B) (BUY-STOCK 0 NIL) (DRAW-TILE)))

(accept-move 20 '((PLACE-TILE 12D) (BUY-STOCK 0 NIL) (DRAW-TILE)))

(accept-move 3 '((PLACE-TILE 5A) (BUY-STOCK 0 NIL) (DRAW-TILE)))

(accept-move 20 '((PLACE-TILE 1H) (BUY-STOCK 0 NIL) (DRAW-TILE)))
(agent-stock-action 20 'FESTIVAL '(IMPERIAL) '(((TRADE-STOCK 0 IMPERIAL FESTIVAL) (SELL-STOCK 0 IMPERIAL) (HOLD-STOCK 0 IMPERIAL))))

(agent-stock-action 3 'FESTIVAL '(IMPERIAL) '(((TRADE-STOCK 0 IMPERIAL FESTIVAL) (SELL-STOCK 0 IMPERIAL) (HOLD-STOCK 0 IMPERIAL))))

(accept-move 3 '((PLACE-TILE 8I) (BUY-STOCK 0 NIL) (DRAW-TILE)))

(accept-move 20 '((PLACE-TILE 8G) (BUY-STOCK 0 NIL) (DRAW-TILE)))
(agent-stock-action 20 'FESTIVAL '(IMPERIAL) '(((TRADE-STOCK 0 IMPERIAL FESTIVAL) (SELL-STOCK 0 IMPERIAL) (HOLD-STOCK 0 IMPERIAL))))

(agent-stock-action 3 'FESTIVAL '(IMPERIAL) '(((TRADE-STOCK 0 IMPERIAL FESTIVAL) (SELL-STOCK 0 IMPERIAL) (HOLD-STOCK 0 IMPERIAL))))





(accept-new-buy-stock 20 '((PLACE-TILE 9G) (BUY-STOCK 3 IMPERIAL) (DRAW-TILE)))

(accept-move 3 '((PLACE-TILE 4H) (BUY-STOCK 3 FESTIVAL) (DRAW-TILE)))
(set-new-chain-name 3 'FESTIVAL)

(accept-move 20 '((PLACE-TILE 11A) (BUY-STOCK 3 IMPERIAL) (DRAW-TILE))
(accept-new-buy-stock 20 '((PLACE-TILE 11A) (BUY-STOCK 0 NIL) (DRAW-TILE)))

(set-new-chain-name 3 'IMPERIAL)

(accept-move 3 '((PLACE-TILE 9F) (BUY-STOCK 3 FESTIVAL) (DRAW-TILE)))

(accept-move 20 '((PLACE-TILE 10D) (BUY-STOCK 0 NIL) (DRAW-TILE)))

(accept-move 3 '((PLACE-TILE 4D) (BUY-STOCK 3 FESTIVAL) (DRAW-TILE)))

(accept-move 20 '((PLACE-TILE 2F) (BUY-STOCK 0 NIL) (DRAW-TILE)))

(accept-move 3 '((PLACE-TILE 1F) (BUY-STOCK 3 WORLDWIDE) (DRAW-TILE)))
(set-new-chain-name 3 'WORLDWIDE)

(accept-move 20 '((PLACE-TILE 10F) (BUY-STOCK 0 NIL) (DRAW-TILE)))

(declare-game-over 3 T)
