blob: 479d8269057715e02c0be0341c9056b5ac20eba6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
(in-package :cl-user)
(defpackage transacc
(:use :cl)
(:export :main))
(in-package :transacc)
(defun main ()
(let* ((p (player:init-player "Joze"))
(c (list (commodities:new-commodity "apple" 50)
(commodities:new-commodity "pear" 70)))
(c2 (list (commodities:new-commodity "apple" 60)
(commodities:new-commodity "pear" 20)))
(z (zone:new-zone "Bronx" c))
(z2 (zone:new-zone "Manhattan" c2))
(g (game:new-game p z2 (list z z2))))
(transacc-gui:gengui g)
(transacc-gui:rungui g)))
|
