[事件脚本糖]随机对话

viktor

嘛……最近看@墟源 做的地图里面 NPC随机对话都是这样写的事件：


人物一多还真的很麻烦。
于是就写了一个事件糖啦。这样的话随机对话可以这样写：



顺便演练了一下随机抽样的算法。
脚本：

RUBY 代码复制

class Interpreter
  def 随机对话
    return false if $game_temp.message_text != nil
 
    n=0; @index+=1; show_text = ""
    while @index<@list.size and @list[@index].code==101
      # 读取一条完整的文字
      text = @list[@index].parameters[0]+"\n"
      @index+=1
      while @index<@list.size and @list[@index].code==401
        text += @list[@index].parameters[0]+"\n"
        @index+=1
      end
      # 判断是否取
      n+=1
      show_text = text if rand() < 1.0/n
    end
    $game_temp.message_text = show_text
 
    # 设置信息结束后待机和返回调用标志
    @message_waiting = true
    $game_temp.message_proc = Proc.new { @message_waiting = false }
    # 不继续
    return false
  end
end

class Interpreter


  def 随机对话


    return false if $game_temp.message_text != nil


 


    n=0; @index+=1; show_text = ""


    while @index<@list.size and @list[@index].code==101


      # 读取一条完整的文字


      text = @list[@index].parameters[0]+"\n"


      @index+=1


      while @index<@list.size and @list[@index].code==401


        text += @list[@index].parameters[0]+"\n"


        @index+=1


      end


      # 判断是否取


      n+=1


      show_text = text if rand() < 1.0/n


    end


    $game_temp.message_text = show_text


 


    # 设置信息结束后待机和返回调用标志


    @message_waiting = true


    $game_temp.message_proc = Proc.new { @message_waiting = false }


    # 不继续


    return false


  end


end

makeyoufun

厉害了！！！喜欢哦~~~

chd114

这样子每个对话出现的概率都是一样的吧···

yang1zhi

这个兼容高吗？
假如第一行写了脚本：随机脚本了。那么接下去的文章就都享有随机脚本的效果。那么是不是再接下去的就全都是随机效果的了，能连吗。
就是（1，2，3）可以{[（1，2，3），（4，5，6）]，7，8，9}之类的吗

摸金校尉

大赞啊。。。。。好东西。。

Munchen1921

有没有VA的？

satgo1546

我一直这么弄的。感觉还不错

哀筝一弄湘江曲

微微膜拜樓主。
順便求同一事件頁當中終止隨機對話的方法～

墟源

哟罗曼曼，你打算把脚本都发上来？

Denis

可以用类似的办法做1％。概率的随机抽奖吗？