关于标题变更

双织 · 发表于 2014-7-10 16:42:53

加入我们，或者，欢迎回来。

您需要登录才可以下载或查看，没有帐号？注册会员

x

请问该如何做出当某一结局开启以后变更标题的名称呢？
也就是更改这个地方：

VIPArcher · 发表于 2014-7-10 17:02:15

本帖最后由 VIPArcher 于 2014-7-10 18:09 编辑

如果是要在游戏里改标题的名字可以用事件脚本指令（这个只适用于默认标题）

$data_system.game_title = "游戏名"

复制代码

（反正我是不会啦

）
别在意这楼，看楼下。

taroxd · 发表于 2014-7-10 17:29:16

本帖最后由 taroxd 于 2014-7-10 17:51 编辑

读取目录下的 Game.ini 文件，然后改了它……

我试了一下，Ruby1.9 似乎并不支持 GB2312 编码。因此请使用英文标题……

在事件脚本中调用这个就可以修改标题了。

RUBY 代码复制

file = File.open(
'Game.ini', 'r+')
string = file.read.sub(
/^Title=.*/, 
'Title=new_title')
file.rewind
file.write string
file.close

file = File.open(


'Game.ini', 'r+')


string = file.read.sub(


/^Title=.*/, 


'Title=new_title')


file.rewind


file.write string


file.close

Sylvania · 发表于 2014-7-10 17:49:52

SetWindowText = Win32API.new 'user32', 'SetWindowText', 'lp', 'l'
SetWindowText.call hwnd, "Hello World"

复制代码

即时刷新，前提是你知道怎样获取窗口句柄（论坛上有）

PS: 中文标题需要转码才能正常显示

kuerlulu · 发表于 2014-7-10 18:39:15

RUBY 代码复制

#==============================================================================
# ■ String
#------------------------------------------------------------------------------
# 　为字符串追加编码转换的机能。
#==============================================================================
# 参考：
#[url]http://msdn.microsoft.com/en-us/library/windows/desktop/dd319072[/url](v=vs.85).aspx
#[url]http://msdn.microsoft.com/en-us/library/windows/desktop/dd374130[/url](v=vs.85).aspx
#[url]http://msdn.microsoft.com/en-us/library/windows/desktop/dd317756[/url](v=vs.85).aspx
#==============================================================================
class String
  #--------------------------------------------------------------------------
  # ● 常量定义
  #--------------------------------------------------------------------------
  MultiByteToWideChar = Win32API.new('kernel32', 'MultiByteToWideChar', 'ilpipi', 'i')
  WideCharToMultiByte = Win32API.new('kernel32', 'WideCharToMultiByte', 'ilpipipp', 'i')
  Codepages = {
    :System => 0,     :UTF7   => 65000, :UTF8   => 65001,
    :S_JIS  => 932,   :GB2312 => 936,   :BIG5   => 950, 
  }
  #--------------------------------------------------------------------------
  # ● 伪 iconv 编码转换
  #--------------------------------------------------------------------------
  #     s : 原始编码，可使用 Codepages 中的符号或者直接使用代码页值。
  #     d : 目标编码，同上。
  #--------------------------------------------------------------------------
  def iconv s, d
    src  = s.is_a?(Symbol)? Codepages[s] : s
    dest = d.is_a?(Symbol)? Codepages[d] : d
 
    len = MultiByteToWideChar.call src, 0, self, -1, nil, 0
    buf = "\0" * (len * 2)
    MultiByteToWideChar.call src, 0, self, -1, buf, buf.size / 2
 
    len = WideCharToMultiByte.call dest, 0, buf, -1, nil, 0, nil, nil
    ret = "\0" * len
    WideCharToMultiByte.call dest, 0, buf, -1, ret, ret.size, nil, nil
 
    self.respond_to?(:force_encoding) ?
    ret.force_encoding("ASCII-8BIT").delete("\000") :
    ret.delete("\000")
  end
  #--------------------------------------------------------------------------
  # ● 快捷方式：从 ANSI 转为 UTF-8 编码
  #--------------------------------------------------------------------------
  def s2u
    self.respond_to?(:force_encoding) ?
    iconv(:System, :UTF8).force_encoding("utf-8") :
    iconv(:System, :UTF8)
  end
  #--------------------------------------------------------------------------
  # ● 快捷方式：从 UTF-8 转为 ANSI 编码
  #--------------------------------------------------------------------------
  def u2s
    iconv(:UTF8, :System)
  end
end

#==============================================================================


# ■ String


#------------------------------------------------------------------------------


# 　为字符串追加编码转换的机能。


#==============================================================================


# 参考：


#[url]http://msdn.microsoft.com/en-us/library/windows/desktop/dd319072[/url](v=vs.85).aspx


#[url]http://msdn.microsoft.com/en-us/library/windows/desktop/dd374130[/url](v=vs.85).aspx


#[url]http://msdn.microsoft.com/en-us/library/windows/desktop/dd317756[/url](v=vs.85).aspx


#==============================================================================


class String


  #--------------------------------------------------------------------------


  # ● 常量定义


  #--------------------------------------------------------------------------


  MultiByteToWideChar = Win32API.new('kernel32', 'MultiByteToWideChar', 'ilpipi', 'i')


  WideCharToMultiByte = Win32API.new('kernel32', 'WideCharToMultiByte', 'ilpipipp', 'i')


  Codepages = {


    :System => 0,     :UTF7   => 65000, :UTF8   => 65001,


    :S_JIS  => 932,   :GB2312 => 936,   :BIG5   => 950, 


  }


  #--------------------------------------------------------------------------


  # ● 伪 iconv 编码转换


  #--------------------------------------------------------------------------


  #     s : 原始编码，可使用 Codepages 中的符号或者直接使用代码页值。


  #     d : 目标编码，同上。


  #--------------------------------------------------------------------------


  def iconv s, d


    src  = s.is_a?(Symbol)? Codepages[s] : s


    dest = d.is_a?(Symbol)? Codepages[d] : d


 


    len = MultiByteToWideChar.call src, 0, self, -1, nil, 0


    buf = "\0" * (len * 2)


    MultiByteToWideChar.call src, 0, self, -1, buf, buf.size / 2


 


    len = WideCharToMultiByte.call dest, 0, buf, -1, nil, 0, nil, nil


    ret = "\0" * len


    WideCharToMultiByte.call dest, 0, buf, -1, ret, ret.size, nil, nil


 


    self.respond_to?(:force_encoding) ?


    ret.force_encoding("ASCII-8BIT").delete("\000") :


    ret.delete("\000")


  end


  #--------------------------------------------------------------------------


  # ● 快捷方式：从 ANSI 转为 UTF-8 编码


  #--------------------------------------------------------------------------


  def s2u


    self.respond_to?(:force_encoding) ?


    iconv(:System, :UTF8).force_encoding("utf-8") :


    iconv(:System, :UTF8)


  end


  #--------------------------------------------------------------------------


  # ● 快捷方式：从 UTF-8 转为 ANSI 编码


  #--------------------------------------------------------------------------


  def u2s


    iconv(:UTF8, :System)


  end


end

class Game_Interpreter
def title(str)
t = File.read("Game.ini").s2u.sub(/^Title=.*/) { "Title="+str } .u2s
File.open("Game.ini", "w") { |f| f.write t }
exit
end
end

复制代码

以上按照第一个脚本在上的顺序插入这两个脚本

然后在事件脚本中输入 title(新的游戏名) # 可以使用中文
此方法被触发后会自动退出游戏, 所以不想玩家觉得太突兀的话还是游戏中给出一些说明(设定)

帐号		自动登录	找回密码
密码			注册会员

[已经解决] 关于标题变更

加入我们，或者，欢迎回来。

点评

评分

评分

点评

评分

开拓者

贵宾