玩游戏学脚本——rubywarrior

taroxd

这款游戏@余烬之中 推荐过（在此），但他所推荐的并不是完整版。

完整版在这里：https://github.com/ryanb/ruby-warrior
欢迎 Ruby 爱好者玩耍。

无论你刚学Ruby，还是已经学了一段时间，这款游戏都适合你！

我第一次玩这款游戏是在某次期末考试前无聊的时候，同学推荐给我这款游戏，然后我拿学校电脑玩的网页版（即余烬之中的链接）
当时我连 symbol 都不知道是什么，但是依旧勉强过了 Beginner 难度。代码写得极其丑陋不解释……

第二次是之后想要重温，就下载了 gem 版（即完整版）。这一次把游戏通关了，代码也写得漂亮了许多。
但是，有两关是依靠存在的敌人数目判断关卡数的，感觉有点作弊嫌疑呢……

然后是今天，突然脑洞大开想要把这款游戏移植RM（当然不一定会真的这么干），然后……忍不住又玩了一次……
这次的代码又比上次精简了许多许多……并且，战士的行动方式也不依赖于关卡了。

顺便附赠我 A 等级过 Intermediate Epic Mode 的代码（Ruby 2.0 环境）：

RUBY 代码复制

class Player
  def play_turn(warrior)
    @warrior = warrior
    bind? || rest_before_detonation? || detonate? || rescue_ticking? ||
    find_ticking? || attack? || rest? || rescue? || find_captive? ||
    find_enemy? || walk_ahead!
  end
 
  def bind?
    dirs = enemy_dirs
    dirs.size > 1 && (bind!(dirs[0]) || true)
  end
 
  def rest_before_detonation?
    health < 15 &&
    enemy_dirs.empty? &&
    directions.any? {|dir| look(dir).last(2).all?(&:enemy?) } &&
    (rest! || true)
  end
 
  def detonate?
    return if listen.any? {|space| space.ticking? && distance_of(space) < 3 }
    dir = directions.find {|d| look(d).first(2).all?(&:enemy?) }
    dir && (detonate!(dir) || true)
  end
 
  def rescue?
    dir = captive_dirs[0]
    dir && (rescue!(dir) || true)
  end
 
  def attack?
    dir = enemy_dirs[0]
    dir && (attack!(dir) || true)
  end
 
  def rescue_ticking?
    dir = ticking_dirs[0]
    dir && (rescue!(dir) || true)
  end
 
  def rest?
    health < 16 && !listen.empty? && (rest! || true)
  end
 
  def walk_ahead!
    walk! direction_of_stairs
  end
 
  def directions
    %i(left right forward backward)
  end
 
  around_dirs = lambda do |proc|
    -> { directions.select {|dir| proc.(feel(dir)) } }
  end
 
  all_dirs = lambda do |proc|
    -> { listen.select(&proc).map {|space| direction_of(space) } }
  end
 
  find = lambda do |sym|
    lambda do
      dir = send(sym)[0]
      ok_dirs = empty_dirs
      ok_dirs.delete(:backward) if sym == :tickings
      dir = ok_dirs[0] if dir && !ok_dirs.include?(dir)
      dir && (walk!(dir) || true)
    end
  end
 
  define_method(:enemies, &all_dirs.(:enemy?.to_proc))
  define_method(:captives, &all_dirs.(:captive?.to_proc))
  define_method(:tickings, &all_dirs.(:ticking?.to_proc))
  define_method(:enemy_dirs, &around_dirs.(:enemy?.to_proc))
  define_method(:captive_dirs, &around_dirs.(:captive?.to_proc))
  define_method(:ticking_dirs, &around_dirs.(:ticking?.to_proc))
  empty = ->(space) { space.empty? && !space.stairs? }
  define_method(:empty_dirs, &around_dirs.(empty))
  define_method(:find_enemy?, &find.(:enemies))
  define_method(:find_captive?, &find.(:captives))
  define_method(:find_ticking?, &find.(:tickings))
 
  def method_missing(sym, *args)
    @warrior.respond_to?(sym) ? @warrior.send(sym, *args) : super
  end
end

class Player


  def play_turn(warrior)


    @warrior = warrior


    bind? || rest_before_detonation? || detonate? || rescue_ticking? ||


    find_ticking? || attack? || rest? || rescue? || find_captive? ||


    find_enemy? || walk_ahead!


  end


 


  def bind?


    dirs = enemy_dirs


    dirs.size > 1 && (bind!(dirs[0]) || true)


  end


 


  def rest_before_detonation?


    health < 15 &&


    enemy_dirs.empty? &&


    directions.any? {|dir| look(dir).last(2).all?(&:enemy?) } &&


    (rest! || true)


  end


 


  def detonate?


    return if listen.any? {|space| space.ticking? && distance_of(space) < 3 }


    dir = directions.find {|d| look(d).first(2).all?(&:enemy?) }


    dir && (detonate!(dir) || true)


  end


 


  def rescue?


    dir = captive_dirs[0]


    dir && (rescue!(dir) || true)


  end


 


  def attack?


    dir = enemy_dirs[0]


    dir && (attack!(dir) || true)


  end


 


  def rescue_ticking?


    dir = ticking_dirs[0]


    dir && (rescue!(dir) || true)


  end


 


  def rest?


    health < 16 && !listen.empty? && (rest! || true)


  end


 


  def walk_ahead!


    walk! direction_of_stairs


  end


 


  def directions


    %i(left right forward backward)


  end


 


  around_dirs = lambda do |proc|


    -> { directions.select {|dir| proc.(feel(dir)) } }


  end


 


  all_dirs = lambda do |proc|


    -> { listen.select(&proc).map {|space| direction_of(space) } }


  end


 


  find = lambda do |sym|


    lambda do


      dir = send(sym)[0]


      ok_dirs = empty_dirs


      ok_dirs.delete(:backward) if sym == :tickings


      dir = ok_dirs[0] if dir && !ok_dirs.include?(dir)


      dir && (walk!(dir) || true)


    end


  end


 


  define_method(:enemies, &all_dirs.(:enemy?.to_proc))


  define_method(:captives, &all_dirs.(:captive?.to_proc))


  define_method(:tickings, &all_dirs.(:ticking?.to_proc))


  define_method(:enemy_dirs, &around_dirs.(:enemy?.to_proc))


  define_method(:captive_dirs, &around_dirs.(:captive?.to_proc))


  define_method(:ticking_dirs, &around_dirs.(:ticking?.to_proc))


  empty = ->(space) { space.empty? && !space.stairs? }


  define_method(:empty_dirs, &around_dirs.(empty))


  define_method(:find_enemy?, &find.(:enemies))


  define_method(:find_captive?, &find.(:captives))


  define_method(:find_ticking?, &find.(:tickings))


 


  def method_missing(sym, *args)


    @warrior.respond_to?(sym) ? @warrior.send(sym, *args) : super


  end


end

克莉丝

我第一次玩这款游戏是在某次期末考试前无聊的时候，同学推荐给我这款游戏，然后我拿学校电脑玩的网页版（即余烬之中的链接）

你同学好厉害的样子

maliut

大触终归是大触……不管是本人还是同学

我同学怎么就没人听说过Ruby的

satgo1546

这个游戏确实很赞，只是好像我只过了前5关而已……

kagamine_len

只玩游戏不学行么

余烬之中

gem版没怎么玩下去 就把网页版过了(￣∇￣)

皮卡星

好棒(*´д`)
还是第一次玩这种类型的游戏，奇妙的爽快感
再加上这种像素风格的，玩定了|дﾟ )

taroxd

皮卡星 发表于 2014-7-29 19:49
好棒(*´д`)
还是第一次玩这种类型的游戏，奇妙的爽快感
再加上这种像素风格的，玩定了|дﾟ ) ...

如果是 gem 版的话，就是命令行风格了= =
网页版才是像素风格

推荐 gem 版

无脑之人

网页版果断打不开，一下午净折腾SublimeText了，最后果断决定不玩了——我又不是Ruby党
同学什么的，唉，只见过玩C++的和易语言的，各种竞赛没几个人参加，整天不是LOL就是刷贴吧，唉，生不逢地啊

冰水金刚

无法运行怎么办