carve-lockpicks.lic

=begin
  Need these settings in your yaml:
    #Header
    lockpick_carve_settings:
      grand_container: carryall             # bag for complete grandmaster's lockpicks
      master_container: toolkit             # bag for completed master's lockpicks
      trash_container:                      # bag for anything less than master/grandmaster, blank to dispose
      pocket_container: watery portal       # source of fresh keyblank pockets
      initial_grand: false                  # true/false as to whether to initial your grandmasters' lockpicks
      full_rings_container: backpack        # bag for full rings, can't be either grand/master bag
      ring_picks: true                      # true/false as a default to put carved picks on rings
      carve_past_ring_capacity: false       # true/false to continue carving after you've run out of lockpick rings

    The only container that can be a portal/eddy is the pocket container.
    All containers must be unique
=end

custom_require.call(%w[common common-items common-crafting])

class CarveLockpicks
  def initialize
    arg_definitions = [
      [
        { name: 'ring', regex: /ring/i, optional: true, description: 'Put completed batches of lockpicks on rings, need rings in the same bag as the lockpicks (grands rings in grands bag)' },
        { name: 'ratio_last', regex: /ratio_last/i, optional: true, description: 'Displays most recent percentage of grandmaster to master picks carved from last run.' },
        { name: 'ratio_all', regex: /ratio_all/i, optional: true, description: 'Displays overall percentage of grandmaster to master picks carved from all runs.' },
        { name: 'ratio_reset', regex: /ratio_reset/i, optional: true, description: 'Delete all past recorded carving projects data' },
        { name: 'script_summary', optional: true, description: 'Carves lockpicks with carving knife, drawing from keyblank pockets until empty.' }
      ],
      [
        { name: 'buy_rings', regex: /buy_rings/i, description: 'Buy rings from a shop' },
        { name: 'pockets', regex: /\d+/, description: 'How many pockets you\'re carving' },
        { name: 'masters_ordinal', options: $ORDINALS },
        { name: 'grands_ordinal', options: $ORDINALS }
      ]
    ]

    @@grands_count              = 0
    @@masters_count             = 0
    UserVars.grands_ratio     ||= {}
    args                        = parse_args(arg_definitions)
    @settings                   = get_settings
    @bag                        = @settings.crafting_container
    @bag_items                  = @settings.crafting_items_in_container
    @belt                       = @settings.engineering_belt
    @lockpick_carve_settings    = @settings.lockpick_carve_settings
    @master_batch, @grand_batch = [true, true] if args.ring || @lockpick_carve_settings['ring_picks']
    @grands_ring_ready          = (25 - DRCI.count_items_in_container('lockpick', @lockpick_carve_settings['grand_container']))
    @masters_ring_ready         = (25 - DRCI.count_items_in_container('lockpick', @lockpick_carve_settings['master_container']))

    echo "Grands on hand: #{25 - @grands_ring_ready}" if @grands_ring_ready < 25
    echo "Masters on hand: #{25 - @masters_ring_ready}" if @masters_ring_ready < 25

    purchase_rings(args.pockets.to_i, args.masters_ordinal, args.grands_ordinal) if args.buy_rings

    if args.ratio_last
      DRC.message("Most recent percentage of Grandmaster's to Master's picks: #{UserVars.grands_ratio.to_a.last.last}")
      exit
    elsif args.ratio_all
      DRC.message("Average of all recorded carving projects to date, Grandmaster's percentages: #{calc_ratio}")
      exit
    elsif args.ratio_reset
      UserVars.grands_ratio = {}
      DRC.message("Resetting past carving projects data. Historical data: #{UserVars.grands_ratio}")
      exit
    end

    main_loop
  end

  def main_loop
    DRCC.get_crafting_item("carving knife", @bag, @bag_items, @belt)
    # fetches from portal if the next pocket isn't immediately accessible
    if DRCI.exists?('keyblank pocket') || (DRCI.get_item?('keyblank pocket', @lockpick_carve_settings['pocket_container']) && DRCI.put_away_item?("keyblank pocket", @lockpick_carve_settings['full_rings_container']))
      loop do
        check_status
        get_keyblank
        carve
      end
    else
      DRCC.stow_crafting_item("carving knife", @bag, @belt)
      exit
    end
  end

  def calc_ratio
    total = 0
    UserVars.grands_ratio.values.each { |v| total += v }
    total = total / UserVars.grands_ratio.size
    return total.round
  end

  def purchase_rings(pockets, mord, gord)
    # getting ring count for each based on past performance
    if UserVars.grands_ratio.empty?
      DRC.message('No data with which to do a ratio calculation, so doing an even split')
      @mrings, @grings = [pockets + 1, pockets + 1]
    else
      total_rings = (pockets * 50) / 25
      @grings = (calc_ratio / 100.to_f * total_rings).round
      @mrings = total_rings - @grings
      @grings += [@grings / 5, 1].max
      @mrings += [@mrings / 5, 1].max
    end
    DRC.message("Buying:\nMaster's rings: #{@mrings}\nGrandmaster's rings: #{@grings}")
    sleep 1
    verify_funds("lockpick ring", mord, gord)

    grings.times do
      DRCT.buy_item(Room.current.id, "#{gord} lockpick ring")
      DRCI.put_away_item?("lockpick ring", @lockpick_carve_settings['grand_container'])
    end

    mrings.times do
      DRCT.buy_item(Room.current.id, "#{mord} lockpick ring")
      DRCI.put_away_item?("lockpick ring", @lockpick_carve_settings['master_container'])
    end
    exit
  end

  def verify_funds(item, *ords)
    total_needed, currency = [0, '']
    counts = [@mrings, @grings]
    ords.each do |ord|
      case DRC.bput("shop #{ord} #{item}", /^I could not find/, /Cost: (\d+) (\w+)/)
      when /(\d+) (\w+)/
        cost = Regexp.last_match(1).to_i
        currency = Regexp.last_match(2)
        total_needed += cost * counts.shift
      else
        DRC.message("Cannot find #{ord} #{item} to purchase here.")
        exit
      end
    end
    DRC.message("Total purchase price is: #{DRCM.minimize_coins(total_needed)}")
    sleep 1
    current_coin = DRCM.check_wealth(currency)
    if (current_coin < total_needed)
      DRC.message("Need coin in the amount of: #{DRCM.minimize_coins(total_needed - current_coin)}")
      sleep 1
      exit
    else
      DRC.message("Sufficient coin on hand, purchasing.")
      sleep 1
    end
  end

  def check_status
    spell_list = @settings.waggle_sets['carve'].join(' ').split(' ').map(&:capitalize)
    spell_list.reject! { |spell| spell =~ /delay|khri|puncture|slice|impact|fire|cold|electric/i }
    DRC.wait_for_script_to_complete('buff', ['carve']) unless spell_list.all? { |name| DRSpells.active_spells["Khri #{name}"] }
    DRC.bput("sit", 'You sit', 'You are already sitting', 'You rise', 'While swimming?') unless sitting?
  end

  def get_keyblank
    case DRC.bput("get keyblank from my keyblank pocket", 'You get', 'What were you referring to', 'You need a free hand')
    when /What were you referring to/
      case DRC.bput("count my keyblank pocket", 'nothing inside the keyblank pocket', 'It looks like there', 'I could not find what you were referring to')
      when /nothing inside the keyblank pocket/
        empty_pocket
      when /It looks like there/
        DRC.bput("open my keyblank pocket", 'You open a')
      when /I could not find what you were referring to/
        DRCC.stow_crafting_item("carving knife", @bag, @belt)
        exit
      end
      get_keyblank
    when /You need a free hand/
      if /referring/ =~ DRC.bput("Put my keyblank in my keyblank pocket", 'You put a', 'What were you referring to')
        fput('stow left')
      end
      get_keyblank
    end
  end

  def carve
    loop do
      case DRC.bput("carve my #{DRC.left_hand} with my knife", /proudly glance down at a (grand)?master/, /but feel your knife slip/, /^You are too injured to do any carving/, /^Roundtime/, /^It would be better to find a creature to carve/)
      when /proudly glance down at a grandmaster/
        DRC.bput("carve my lockpick with my knife", 'With the precision and skill') if @lockpick_carve_settings['initial_grand']
        @@grands_count += 1
        @grands_ring_ready -= 1
        stow_lockpick(@lockpick_carve_settings['grand_container'])
      when /proudly glance down at a master/
        @@masters_count += 1
        @masters_ring_ready -= 1
        stow_lockpick(@lockpick_carve_settings['master_container'])
      when /It would be better to find a creature to carve/
        # Unmatched failure, or we carved a lesser pick
        if @lockpick_carve_settings['trash_container'] && DRC.left_hand
          DRCI.put_away_item?('lockpick', @lockpick_carve_settings['trash_container'])
        elsif DRC.left_hand
          DRCI.dispose_trash('lockpick', @settings.worn_trashcan, @settings.worn_trashcan_verb)
        end
      when /You are too injured to do any carving/
        DRC.message("Need to be completely wound-free, go get healed")
        DRC.bput("Put my keyblank in my keyblank pocket", 'You put a')
        DRCC.stow_crafting_item("carving knife", @bag, @belt)
        exit
      end
      waitrt?
      break unless DRC.left_hand.match?(/lockpick|keyblank/)
    end
  end

  def stow_lockpick(container)
    # Unless we can stow it (eg full bag), we call it quits
    unless DRCI.put_away_item?('lockpick', container)
      DRC.message("Bag's full, exiting")
      DRCC.stow_crafting_item("carving knife", @bag, @belt)
      exit
    end
    # Ring a set of 25
    if @grands_ring_ready <= 0 && @grand_batch
      ring_batch('grand')
      return
    elsif @masters_ring_ready <= 0 && @master_batch
      ring_batch('master')
      return
    end
  end

  def empty_pocket
    DRCI.get_item?('keyblank pocket')
    DRCI.dispose_trash("keyblank pocket", @settings.worn_trashcan, @settings.worn_trashcan_verb) if DRCI.in_hands?('keyblank pocket')
    return unless /referring/ =~ DRC.bput("open my keyblank pocket", 'You open', 'What were you referring', 'That is already open')

    if DRCI.get_item?("keyblank pocket", @lockpick_carve_settings['pocket_container']) # fetches from portal if the next pocket isn't immediately accessible via open
      DRCI.put_away_item?("keyblank pocket", @lockpick_carve_settings['full_rings_container'])
      DRC.bput("open my keyblank pocket", 'You open', 'What were you referring', 'That is already open')
    else
      DRCC.stow_crafting_item("carving knife", @bag, @belt)
      exit
    end
  end

  def ring_batch(type)
    DRCC.stow_crafting_item("carving knife", @bag, @belt)
    unless DRCI.get_item?('lockpick ring', @lockpick_carve_settings["#{type}_container"])
      DRC.message("Out of empty rings for #{type} picks")
      case type
      when /grand/
        @grand_batch = false
        @grands_ring_ready = 25
      else
        @master_batch = false
        @masters_ring_ready = 25
      end
      stow_lockpick(@lockpick_carve_settings["#{type}_container"])
      exit unless @lockpick_carve_settings['carve_past_ring_capacity']
      DRCC.get_crafting_item("carving knife", @bag, @bag_items, @belt)
      return
    end

    25.times do
      DRCI.get_item?('lockpick', @lockpick_carve_settings["#{type}_container"])
      DRCI.put_away_item?('lockpick', 'lockpick ring')
    end

    unless DRCI.put_away_item?('lockpick ring', @lockpick_carve_settings['full_rings_container'])
      DRC.message("Out of room for rings")
      exit
    end

    if type == 'grand'
      @grands_ring_ready = 25
    else
      @masters_ring_ready = 25
    end

    DRCC.get_crafting_item("carving knife", @bag, @bag_items, @belt)
  end

  before_dying do
    percentage = (@@grands_count.to_f / (@@grands_count + @@masters_count).to_f) * 100
    exit if percentage.nan?
    DRC.message("Total grandmaster's picks: #{@@grands_count}")
    DRC.message("Total master's picks: #{@@masters_count}")
    DRC.message("Grandmaster's percentage:  #{percentage.round(2)}%")
    unless UserVars.grands_ratio.empty?
      total = 0
      UserVars.grands_ratio.values.each { |v| total += v }
      total = total / UserVars.grands_ratio.size
      if total > percentage
        DRC.message("This was a bad run, past carving projects yielded #{(total - percentage).round(2)}% more Grandmaster's than Master's picks")
      elsif total < percentage
        DRC.message("Nice job, this run beat your past projects by carving #{(percentage - total).round(2)}% more Grandmaster's than Master's picks")
      else
        DRC.message("Consistent with past performance, no gain or loss in ratio of Grandmaster's to Master's picks")
      end
    end
    UserVars.grands_ratio.store(Time.now, percentage.round)
  end
end

CarveLockpicks.new