diff --git a/src/server/db.scm b/src/server/db.scm index f461447..da3a800 100644 --- a/src/server/db.scm +++ b/src/server/db.scm @@ -130,5 +130,5 @@ (define (db-fetch-user-games user-id) (with-db (db) (query fetch-column - (sql db "select game_id from user_games where user_id=?;") - user-id))) + (sql db "select game_id from user_games join games on user_games.game_id=games.id where user_games.user_id=? and not games.status=?;") + user-id "finished"))) diff --git a/src/server/farm.scm b/src/server/farm.scm index ead947c..7cc723e 100644 --- a/src/server/farm.scm +++ b/src/server/farm.scm @@ -2337,253 +2337,3 @@ ;; you can get $50 from operating expense ;; mark spaces - -;; error: -;; Call history: - -;; farm.scm:714: mailbox#mailbox-send! -;; type-errors.scm:119: make-error-type-message -;; type-errors.scm:104: make-bad-argument-message -;; type-errors.scm:106: make-type-name-message -;; type-errors.scm:290: ->string -;; type-errors.scm:291: conc -;; type-errors.scm:103: string-append -;; type-errors.scm:119: signal-type-error -;; farm.scm:1125: k7172 -;; farm.scm:1125: g7176 -;; farm.scm:1127: with-output-to-string -;; farm.scm:1129: print-call-chain <-- - -;; Error: (mailbox-send!) bad argument type - not a mailbox: () - - -;; error: -;; Call history: - -;; farm.scm:129: alist-ref -;; farm.scm:1125: k7172 -;; farm.scm:1125: g7176 -;; farm.scm:1127: with-output-to-string -;; farm.scm:1129: print-call-chain <-- - -;; Error: (assv) bad argument type: ridge-cows - -;; proposed trade to wrong player -;; accidentally clicking no for uncle bert -;; farmers fate 2nd week of january -;; error: -;; Call history: - -;; farm.scm:129: alist-ref -;; farm.scm:1213: k7426 -;; farm.scm:1213: g7430 -;; farm.scm:1215: with-output-to-string -;; farm.scm:1217: print-call-chain <-- - -;; Error: (assv) bad argument type: #'> - -;; when getting trade the name is wrong - -;; error: -;; Call history: - -;; farm.scm:482: player-last-cash -;; farm.scm:99: coops#slot-value -;; farm.scm:483: player-hay-doubled -;; farm.scm:99: coops#slot-value -;; farm.scm:484: player-corn-doubled -;; farm.scm:99: coops#slot-value -;; farm.scm:513: list->vector -;; farm.scm:517: game-called-audit -;; farm.scm:135: coops#slot-value -;; farm.scm:518: game-called-audit -;; farm.scm:135: coops#slot-value -;; farm.scm:518: player-name -;; farm.scm:1450: k8469 -;; farm.scm:1450: g8473 -;; farm.scm:1452: with-output-to-string -;; farm.scm:1454: print-call-chain <-- - -;; Error: (player-name) no method defined for given argument classes: (#t) - -;; clicking roll button - - - -;; start game with more otbs - - -;; Error: (assv) bad argument type: #f - -;; Call history: - -;; numbers.scm:1672: scan-real -;; numbers.scm:1671: scan-ureal -;; numbers.scm:1603: scan-digits+hashes -;; numbers.scm:1549: scan-digits -;; numbers.scm:1531: lp -;; numbers.scm:1531: lp -;; numbers.scm:1548: g1937 -;; numbers.scm:1720: %string->compnum -;; numbers.scm:1672: scan-real -;; numbers.scm:1671: scan-ureal -;; numbers.scm:1603: scan-digits+hashes -;; numbers.scm:1549: scan-digits -;; numbers.scm:1531: lp -;; numbers.scm:1548: g1937 -;; farm.scm:50: expiration -;; farm.scm:43: current-milliseconds -;; farm.scm:44: http-session#session-lifetime -;; farm.scm:44: numbers#* -;; numbers.scm:382: %* -;; farm.scm:44: numbers#floor -;; farm.scm:44: numbers#inexact->exact -;; numbers.scm:867: exact? -;; farm.scm:43: numbers#+ -;; numbers.scm:295: %+ -;; farm.scm:50: spiffy#remote-address -;; farm.scm:50: http-session#make-session-item -;; farm.scm:1441: *game* -;; farm.scm:1449: *game* -;; farm.scm:1476: *game* -;; farm.scm:1477: *player* -;; farm.scm:1479: alist-ref -;; farm.scm:1468: k8474 -;; farm.scm:1468: g8478 -;; farm.scm:1470: log-error -;; farm.scm:954: spiffy#error-log -;; farm.scm:954: with-output-to-file -;; farm.scm:956: print-call-chain -;; farm.scm:957: print -;; farm.scm:958: print-error-message -;; farm.scm:1471: with-output-to-string -;; farm.scm:1473: print-error-message -;; farm.scm:1471: conc -;; farm.scm:1467: medea#json->string -;; farm.scm:1466: websockets#send-message -;; farm.scm:1455: k8462 -;; farm.scm:1455: g8466 -;; farm.scm:1461: log-error -;; farm.scm:954: spiffy#error-log -;; farm.scm:954: with-output-to-file -;; farm.scm:956: print-call-chain <-- -;; # - -;; Error: cannot write to socket - Broken pipe: 7 -;; [Sat Apr 11 23:04:48 2020] "GET http://localhost:8080/websocket/web-socket HTTP/1.1" Uncaught exception: -;; # - - - -;; Call history: - -;; farm.scm:164: game-settings -;; farm.scm:135: coops#slot-value -;; farm.scm:164: alist-ref -;; farm.scm:164: game-settings -;; farm.scm:135: coops#slot-value -;; farm.scm:164: alist-ref -;; farm.scm:164: game-settings -;; farm.scm:135: coops#slot-value -;; farm.scm:164: alist-ref -;; farm.scm:164: game-settings -;; farm.scm:135: coops#slot-value -;; farm.scm:164: alist-ref -;; farm.scm:164: game-settings -;; farm.scm:135: coops#slot-value -;; farm.scm:164: alist-ref -;; farm.scm:866: append -;; farm.scm:1483: game-last-updated -;; farm.scm:135: coops#slot-value -;; farm.scm:1483: numbers#+ -;; numbers.scm:295: %+ -;; farm.scm:1483: game-mutex -;; farm.scm:135: coops#slot-value -;; farm.scm:1483: dynamic-wind -;; farm.scm:1483: mutex-lock! -;; farm.scm:1483: ##sys#setter -;; farm.scm:1483: g8506 -;; farm.scm:135: coops#set-slot-value! -;; farm.scm:1483: mutex-unlock! -;; farm.scm:1484: *player* -;; farm.scm:1485: *player* -;; farm.scm:1485: game-last-updated -;; farm.scm:135: coops#slot-value -;; farm.scm:1485: player-mutex -;; farm.scm:99: coops#slot-value -;; farm.scm:1485: dynamic-wind -;; farm.scm:1485: mutex-lock! -;; farm.scm:1485: ##sys#setter -;; farm.scm:1485: g8526 -;; farm.scm:99: coops#set-slot-value! -;; farm.scm:1485: mutex-unlock! -;; tmp213217 -;; farm.scm:1469: k8475 -;; farm.scm:1469: g8479 -;; farm.scm:1468: medea#json->string -;; farm.scm:1456: k8463 -;; farm.scm:1456: g8467 -;; farm.scm:1462: log-error -;; farm.scm:955: spiffy#error-log -;; farm.scm:955: with-output-to-file -;; farm.scm:957: print-call-chain <-- -;; # - -;; Error: (symbol->string) bad argument type - not a symbol: (contents . "\n

LEASE Marineris Ridge

\n

for 30 years at $20,000

\n

... - - -;; rror: (assv) bad argument type: pre-turn - -;; Call history: - -;; sql-de-lite.scm:600: statement-ptr -;; sql-de-lite.scm:609: statement-ptr -;; sql-de-lite.scm:222: ##sys#block-set! -;; sql-de-lite.scm:612: remove-active-statement! -;; sql-de-lite.scm:202: hash-table-delete! -;; sql-de-lite.scm:893: for-each-active-statement -;; sql-de-lite.scm:204: hash-table-walk -;; sql-de-lite.scm:172: ##sys#block-set! -;; sql-de-lite.scm:897: object-release -;; sql-de-lite.scm:172: ##sys#block-set! -;; db.scm:28: alist-ref -;; db.scm:27: with-input-from-string -;; numbers.scm:1720: %string->compnum -;; numbers.scm:1672: scan-real -;; numbers.scm:1671: scan-ureal -;; numbers.scm:1603: scan-digits+hashes -;; numbers.scm:1549: scan-digits -;; numbers.scm:1531: lp -;; numbers.scm:1531: lp -;; numbers.scm:1548: g1937 -;; numbers.scm:1720: %string->compnum -;; numbers.scm:1672: scan-real -;; numbers.scm:1671: scan-ureal -;; numbers.scm:1603: scan-digits+hashes -;; numbers.scm:1549: scan-digits -;; numbers.scm:1531: lp -;; numbers.scm:1548: g1937 -;; farm.scm:50: expiration -;; farm.scm:43: current-milliseconds -;; farm.scm:44: http-session#session-lifetime -;; farm.scm:44: numbers#* -;; numbers.scm:382: %* -;; farm.scm:44: numbers#floor -;; farm.scm:44: numbers#inexact->exact -;; numbers.scm:867: exact? -;; farm.scm:43: numbers#+ -;; numbers.scm:295: %+ -;; farm.scm:50: spiffy#remote-address -;; farm.scm:50: http-session#make-session-item -;; farm.scm:1484: *game* -;; farm.scm:1492: *game* -;; farm.scm:1519: *game* -;; farm.scm:1520: *player* -;; farm.scm:1522: alist-ref -;; farm.scm:1511: k8652 -;; farm.scm:1511: g8656 -;; farm.scm:1513: log-error -;; farm.scm:997: spiffy#error-log -;; farm.scm:997: with-output-to-file -;; farm.scm:999: print-call-chain <-- -;; #