expansion/src/expansion.cr
2019-09-27 15:06:49 +03:00

75 lines
1.3 KiB
Crystal

require "colorize"
require "./command"
require "./map"
require "./queue"
enum ResourceType
Crystal
Terraformation
end
class Resources
def initialize
@values = {} of ResourceType => Int32
ResourceType.each do |t|
@values[t] = 0
end
end
def [](t : ResourceType)
@values[t]
end
def inc(t : ResourceType, value : Int32)
@values[t] = @values[t] + value
end
end
class World
property ts : Int32
def initialize
@ts = 0
@map = Map.new
@resources = Resources.new
@tasks = App::Queue.new
end
def resources
@resources
end
def map
@map
end
def push(command : Command)
dur = command.start(self)
done_at = @ts + dur
printf "world : %d : plan `%s` at %d\n", @ts, typeof(command), done_at
@tasks.push(done_at, command)
end
def run(ts : Int32)
loop do
item = @tasks.pop(ts)
if item.nil?
break
end
command = item.command
@ts = item.ts
command.finish(self)
printf "world : %d : finish `%s`\n", @ts, typeof(command)
end
end
end
w = World.new
w.map.print
w.push(BuildCrystalHarvesterCommand.new(Point.new(2, 3)))
w.push(BuildCrystalRestorerCommand.new(Point.new(1, 2)))
w.push(BuildTerraformerCommand.new(Point.new(3, 2)))
w.run(2000)
w.map.print
pp w.resources