leave-not-too-bad ( game -- game )

Vocabulary

hamurabi.private

Inputs

game

an object

Outputs

game

an object

Definition

USING: accessors formatting io kernel math math.functions random
ranges ;

IN: hamurabi.private

: leave-not-too-bad ( game -- game )
    "YOUR PERFORMANCE COULD HAVE BEEN SOMEWHAT BETTER, BUT"
    print "REALLY WASN'T TOO BAD AT ALL." print
    dup population>> 4/5 *
    floor [0..b] random
    "%d PEOPLE WOULD DEARLY LIKE TO SEE YOU ASSASSINATED\n"
    printf "BUT WE ALL HAVE OUR TRIVIAL PROBLEMS" print ;