1.3.3.6 Draw🔗

Source code at draw.rkt

A draw request returns a list of information needed to draw entities.

(test-case:

"entities are drawn"

(test-engine

((size 3 4) (bot1 0 2) (block1 2 1) (bot2 1 1) (block2 1 2))

(let ([player (make-agent)])

(assign-bots! player (list (entity-id bot2)))

(match-request player request-hello)

(add-to-score player 123)

(take-entity engine bot2-id block2-id)

(check-equal?

(draw-entities (list player) (engine-places engine))

(list "123" (list type-bot #f #f 0 2) (list type-block #f #f 2 1) (list type-bot 0 #t 1 1))))))

A draw reply is created from the player agents and a list of all entities from the grid.

(define (draw-entities players places)

(cons

(if (empty? players)

0

(string-join

(map (λ (agent) (number->string (agent-score agent))) players)))

(filter-map-occupants

places

(λ (entity location)

(list (entity-type entity)

(find-agent players (entity-id entity))

(if (entity-at places (entity-id entity)) #t #f)

(location-x location)

(location-y location))))))