tjhintz/farm
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

New trading interface and moving bug fixes.

Browse Source
This commit is contained in:
Thomas Hintz
2020-04-02 10:24:06 -07:00
parent 1dc5d53f0d
commit 16897679e3
8 changed files with 796 additions and 346 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
src/server/farm.scm
View File

@@ -584,6 +584,16 @@
(when (alist-ref ridge params)
(if (> (player-ridge player ridge) 0)
(begin
(safe-set!
(player-assets originator)
(alist-update 'cows (+ (alist-ref 'cows (player-assets originator))
(alist-ref ridge (player-ridges player)))
(player-assets originator)))
(safe-set!
(player-assets player)
(alist-update 'cows (- (alist-ref 'cows (player-assets player))
(alist-ref ridge (player-ridges player)))
(player-assets player)))
(safe-set! (player-ridges originator)
(alist-update ridge
(alist-ref ridge (player-ridges player))
@@ -591,6 +601,16 @@
(safe-set! (player-ridges player)
(alist-update ridge 0 (player-ridges player))))
(begin
(safe-set!
(player-assets originator)
(alist-update 'cows (- (alist-ref 'cows (player-assets originator))
(alist-ref ridge (player-ridges originator)))
(player-assets originator)))
(safe-set!
(player-assets player)
(alist-update 'cows (+ (alist-ref 'cows (player-assets player))
(alist-ref ridge (player-ridges originator)))
(player-assets player)))
(safe-set! (player-ridges player)
(alist-update ridge
(alist-ref ridge (player-ridges originator))
@@ -1903,17 +1923,11 @@
;; TODO
;; make sure two players can't have the same name
;; info actions should look better
;; you can get $50 from harvest
;; moving bug 5 from oct 2 saw by player 2
;; from harvest moon rolled 5
;; finished
;; infinite loop ((?action . end-game) (?value . #<procedure (a10302)>))
;; you can get $50 from operating expense
;; auto-skip loop
;; harvester / tractor don't say total price
;; mark spaces
;; trade notification keeps popping up
;; show harvest multiplier
;; can't trade other player's ridge