summaryrefslogtreecommitdiff
path: root/app/controllers/game_controller.rb
blob: 8c1acaf65041885f9dc24d61c0c1b1f6fb33444e (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
class GameController < ApplicationController
  def stop_activity
    current_char.stop_activity
    redirect_to locations_path
  end

  def finish_activity
    @results = []
    return unless current_char.activity_time_remaining <= 0
    activity = current_char.activity

    return unless current_char.can_do_activity?(activity) # TODO: Add error message

    Character.transaction do
      current_char.pay_cost_for(activity)

      activity.whatnot[:results].each do |result|
        type = result[:type]
        case type
        when "monster"
          raise TooManyWoundsError unless current_char.can_fight?
          next if rand > (result[:chance] || 1)
          table_roll = rand
          result[:table].sort_by { |t| -t[:score] }.each do |table_entry|
            score = table_entry[:score]
            result[:table_scaling]&.each do |scale_entry|
              case scale_entry[:type]
              when "skill"
                score = score**(1 + (scale_entry[:scale_value] * current_char.skill_level(scale_entry[:gid])))
              end
            end
            if table_roll >= score
              activity = Activity.find_by_gid(table_entry[:gid])
              monster = Monster.find_by_gid(table_entry[:gid])
              @results.push({ type: type, monster: monster })
              resolve_combat_with(monster)
              break
            end
          end
        when "item"
          next if rand > (result[:chance] || 1)

          if result[:table]
            table_roll = rand

            result[:table].sort_by { |t| -t[:score] }.each do |table_entry|
              quantity = table_entry[:quantity] || 1

              score = table_entry[:score]
              table_scaling = result[:table_scaling]
              table_scaling&.each do |scale_entry|
                case scale_entry[:type]
                when "skill"
                  score = score**(1 + (scale_entry[:scale_value] * current_char.skill_level(scale_entry[:gid])))
                end
              end

              if table_roll >= score
                give_item_with_xp(table_entry, quantity)

                table_entry[:titles]&.each do |title_data|
                  title = Title.find_by_gid(title_data[:gid])
                  if current_char.award_title(title)
                    @results.push({ type: "title", title: title })
                  end
                end
                break
              end
            end
          else
            quantity = result[:quantity] || 1
            give_item_with_xp(result, quantity)
          end
        when "hearth_amenity"
          bhi = current_char.hearth.built_hearth_amenities
                            .find_or_initialize_by(hearth_amenity: HearthAmenity.find_by_gid(result[:gid]))
          bhi.update(level: result[:level])
          @results.push({ type: type, hearth_amenity: bhi.hearth_amenity })
        when "activity"
          next if rand > (result[:chance] || 1)
          table_roll = rand
          result[:table].sort_by { |t| -t[:score] }.each do |table_entry|
            score = table_entry[:score]
            result[:table_scaling]&.each do |scale_entry|
              case scale_entry[:type]
              when "skill"
                score = score**(1 + (scale_entry[:scale_value] * current_char.skill_level(scale_entry[:gid])))
              end
            end
            if table_roll >= score
              activity = Activity.find_by_gid(table_entry[:gid])
              unless current_char.learned_activities.exists?(activity: activity)
                current_char.learned_activities.create(activity: activity)
                @results.push({ type: type, activity: activity })
              end
            end
          end
        else
          raise "Invalid result type (#{type})" # TODO: Improve this.
        end
      end

      if current_char.queued_actions
        if current_char.queued_actions > 0
          current_char.queued_actions -= 1
          current_char.activity_started_at = Time.now
          current_char.save
        else
          current_char.stop_activity
          @results.push({ type: "message", body: "You have finished your work." })
        end
      else
        current_char.activity_started_at = Time.now
      end
    end
  rescue ItemQuantityError
    @results.replace([{ type: "error", message: "You don't have enough items to complete this activity." }])
  rescue TooManyWoundsError
    @results.replace([{ type: "error",
                       message: "You can't fight in your condition. You'll have to heal a wound." }])
  end

  private
    def give_item_with_xp(data, quantity)
      item = Item.find_by_gid(data[:gid])
      xp_awards = data[:xp]&.map { |xpe| { skill: Skill.find_by_gid(xpe[:gid]), amount: xpe[:value] } }
      xp_awards&.each do |award|
        current_char.add_skill_xp(award[:skill], (award[:amount] * quantity))
      end
      current_char.shift_item(item, quantity)
      @results.push({ type: "item", item: item, quantity: quantity, xp: xp_awards })
    end

    def resolve_combat_with(mon)
      char = current_char
      char_hp = current_char.max_hp
      mon_hp = mon.max_hp
      combat_message = ->(msg) { @results.push({ type: "message", body: "[#{char_hp}/#{char.max_hp}] #{msg}" }) }
      char_initiative = roll(10) + char.speed
      mon_initative = roll(10) + mon.speed
      if char_initiative > mon_initative
        turn_order = [[char, mon], [mon, char]]
      elsif mon_initative > char_initiative
        turn_order = [[mon, char], [char, mon]]
      else
        turn_order = [[char, mon], [mon, char]].shuffle
      end
      turn_order.cycle do |actor, target|
        base_accuracy_roll = roll(20)
        accuracy_roll = base_accuracy_roll + actor.accuracy
        evasion_roll = roll(20) + target.evasion
        if accuracy_roll >= evasion_roll
          dealt_damage = roll(4) + actor.power # TODO: Replace d4 with weapon damage
          if base_accuracy_roll == 20
            combat_message.call("#{actor.name} landed a critical hit!")
            dealt_damage = dealt_damage * 2
          end
          blocked_damage = (accuracy_roll >= (roll(20) + target.block)) ? 0 : target.block_value
          resolved_damage = dealt_damage - blocked_damage
          actor == char ? mon_hp -= resolved_damage : char_hp -= resolved_damage
          damage_text = "#{resolved_damage} damage."
          damage_text += " (#{dealt_damage} - #{blocked_damage} blocked)" if blocked_damage > 0
          combat_message.call("#{actor.name} hit for #{damage_text}")
        elsif evasion_roll > accuracy_roll
          combat_message.call("#{target.name} evaded #{actor.name}'s attack.")
        end
        if char_hp < 1 || mon_hp < 1
          if char_hp < 1
            @results.push({ type: "message", body: "You were defeated! You retreat, wounded." })
            char.wounds += 1
            char.save!
          else
            @results.push({ type: "message", body: "You slew the #{mon.name}." })
            mon.whatnot[:awards]&.each do |award_data|
              case award_data[:type]
              when "xp"
                skill = Skill.find_by_gid(award_data[:skill])
                amount = award_data[:base]
                char.add_skill_xp(skill, amount)
                @results.push({ type: "xp", skill: skill, xp: amount })
              else
                raise "Invalid award type string (#{award_data[:type]})"
              end
            end
          end
          break
        end
      end
    end
end