sell-acres ( game -- game )

Vocabulary

hamurabi.private

Inputs

game

an object

Outputs

game

an object

Definition

USING: accessors io kernel math ;

IN: hamurabi.private

: sell-acres ( game -- game )
    "HOW MANY ACRES DO YOU WISH TO SELL? " input over acres>>
    dupd >= "acres" and check-error
    [ drop sell-acres ] [ neg adjust-acres ] if nl ;