Project1»广场 › 技术讨论 › 综合技术讨论区 › RPG Maker 技术区 › 自己制作的VA脚本---任务+地图提示新版发布～～ ...

自己制作的VA脚本---任务+地图提示新版发布～～

查看数: 6485 | 评论数: 9 | 收藏 10

关灯 | 提示：支持键盘翻页<-左右->

帖子模式

zhangchi5

发布时间: 2012-3-4 20:06

正文摘要:

本帖最后由 zhangchi5 于 2012-3-18 19:35 编辑新版发布啦！！！神奇呀神奇～神奇呀神奇～神奇呀神奇～神奇呀神奇～…… 任务系统 for VA 添加后以前的存档都不能用。。。要新开存档 By SkyZH 使用方法： ...

zhangchi5 发表于 2012-10-5 11:53:48

千城落水千城梦发表于 2012-7-21 18:12
@zhangchi5你不介意把你QQ给我吧！

高压力学生族。。。不解释~

‘‘──zhangchi5于2012-10-5 11:54补充以下内容：

有可能你的任务编号一样。。。
’’

千城落水千城梦 发表于 2012-7-21 18:12:45

@zhangchi5你不介意把你QQ给我吧！

zhangchi5 发表于 2012-7-21 17:24:33

千城落水千城梦发表于 2012-7-19 04:57
为什么我接两个任务却只显示一个？

有Sample么。。。我很久不在线的说。。。

千城落水千城梦 发表于 2012-7-19 04:57:32

zhangchi5 发表于 2012-3-17 20:21
‘‘──zhangchi5于2012-3-17 20:21补充以下内容

问题已解决~~

为什么我接两个任务却只显示一个？

‘‘──千城落水千城梦于2012-7-19 04:57补充以下内容：

[@]zhangchi5[/@]为什么我接两个任务却只显示一个？
’’

zhangchi5 发表于 2012-3-17 20:21:08

本帖最后由 zhangchi5 于 2012-3-17 20:23 编辑

‘‘──zhangchi5于2012-3-17 20:21补充以下内容

问题已解决~~
请在Window_MissionShow做修改
修改在本帖6楼~~
’’

#==============================================================================
# ■ Window_MissionShow
#------------------------------------------------------------------------------
# 　显示任务信息。 By SkyZH
#==============================================================================
class Window_MissionShow < Window_Selectable
#--------------------------------------------------------------------------
# ● 初始化对像
#--------------------------------------------------------------------------
def initialize(x, y)
super(x, y, window_width, Graphics.height)
self.openness = 0
open
end
def setNumber(numbers)
@Mnumber=numbers
refresh
end
#--------------------------------------------------------------------------
# ● 获取窗口的宽度
#--------------------------------------------------------------------------
def window_width
return Graphics.width
end
def draw_title(text , line, size ,dwhere ,color)
self.contents.font.color=color
self.contents.font.size=size
draw_text(4, 0 , window_width-40, fitting_height(line+1), text ,dwhere)
self.contents.font.color=normal_color
self.contents.font.size=Font.default_size
end
#--------------------------------------------------------------------------
# ● 刷新
#--------------------------------------------------------------------------
def refresh
contents.clear
@texts= $game_missions.mission(@Mnumber).getTitle
draw_title(@texts,0,48,1,Color.new(255,100,100))
draw_title("任务介绍",4,22,0,Color.new(100,255,255))
draw_title($game_missions.mission(@Mnumber).getText,6,18,0,Color.new(255,255,255))
draw_title("任务奖励/重要信息",9,22,0,Color.new(100,255,255))
draw_title($game_missions.mission(@Mnumber).getImText,11,18,0,Color.new(255,255,255))
draw_title("领取任务NPC",14,22,0,Color.new(100,255,255))
draw_title($game_missions.mission(@Mnumber).getNPC1,16,18,0,Color.new(255,255,255))
draw_title("交接任务NPC",19,22,0,Color.new(100,255,255))
draw_title($game_missions.mission(@Mnumber).getNPC2,21,18,0,Color.new(255,255,255))
end
end

复制代码

‘‘──zhangchi5于2012-3-17 20:23补充以下内容

因为我设定的两个任务长度一样，木有发现问题。。。

求整合！！！！！！！！！！！！！！！！’’

huianda 发表于 2012-3-14 17:27:04

杂兵天下发表于 2012-3-4 20:51
看了之后，收回刚才说的话，LZ是一个连alias法冲突避免都不知道的可爱的天朝人
class Game_Mission
def ...

话说，我用了一下这个脚本，貌似有问题。比如，当我接到的任务有超过1个（至少2个）时，进入任务界面，第一次选择一个任务，说明很正常。但按下ESC关闭任务说明窗口后，不退出任务界面，而是继续选择下一个任务时，之前的文字似乎没有被清除掉，而是重复显示，叠加在一起了。请教一下，是哪个部分的问题？

‘‘──huianda于2012-3-14 21:10补充以下内容

好吧，我不太懂脚本（只有少许VB.net的基础）。在所能理解的语法基础上做了小小调整。
把：

def create_command_window
@command_window = Window_MissionCommand.new
@window_missionShow=Window_MissionShow.new(256,0)
@window_missionShow.hide
@command_window.set_handler(:returnsc, method(:scenereturns))
@command_window.set_handler(:cancel, method(:scenereturns))
@window_missionShow.set_handler(:cancel, method(:missionHide))
@window_missionShow.set_handler(:ok, method(:missionHide))
for i in 0...100
@r=i
@t="mission" + i.to_s
@command_window.set_handler(@t.to_sym, method(:missionShow))
end
end

复制代码

里与@window_missionShow有关的生成和句柄的获取，放到后面，变成：

def missionShow(t)
@window_missionShow=Window_MissionShow.new(256,0)
@window_missionShow.set_handler(:cancel, method(:missionHide))
@window_missionShow.set_handler(:ok, method(:missionHide))
@window_missionShow.setNumber(t)
@command_window.deactivate
@window_missionShow.activate
@window_missionShow.openness=0
@window_missionShow.show
@window_missionShow.open
end

复制代码

貌似没有再出现。但不知道这样做是否可行？会不会浪费很多系统资源，或者，造成别的程序逻辑上的问题？
’’

‘‘──huianda于2012-3-15 16:02补充以下内容

多谢哈，找到了。正在研究当中，貌似很不错的。
’’

Miss.jpg (67.22 KB, 下载次数: 17)

文字显示重叠

点评

哥是传说

分辨率问题啊发表于 2012-7-25 09:05

杂兵天下

我没仔细研究过此脚本，感觉有更好的脚本。可以去咕狗搜索一下Quest Journal 发表于 2012-3-15 14:26

zhangchi5 发表于 2012-3-11 19:50:30

回复。。。

本帖最后由 zhangchi5 于 2012-3-11 19:52 编辑

你也明白，我只是C++的那个忠实者。。。。。。。。。
作为一个初中生，只能……做啊做，20～30分钟搞定卷子。。。。。。。。。。。。
不过……经过无数调试以及把RMVX的帮助文档和日文RMVA的帮助文档做对比，好不容易搞定了。。。。
很不习惯在一页里写那么多个类。。。

RP大冒险里有一大堆自己干的脚本。。。
这只是其中一个。。。。。。。。。。。

另外，
“减少冲突，优化程序外观，去除奇怪的地图提示功能后的程序。”
地图提示就是说明这个场景啦！！！
比如说，在游戏初始场景里说明游戏操作方式。
游戏场景里说明游戏操作方式。。。
比如说，在旅馆里可以写计价方式，NPC说明等等。

其实我写C++程序时也是乱七八糟的。。。。。。。。。。

‘‘──zhangchi5于2012-3-11 19:53补充以下内容

真的不习惯RUBY那个重写类啊！！！
竟然可以重复定义!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
’’

点评

小路比仔

初中吗？比我强大这么多……初三啊？发表于 2012-3-17 20:36

fux2 发表于 2012-3-8 02:12:45

杂兵天下发表于 2012-3-4 20:51
看了之后，收回刚才说的话，LZ是一个连alias法冲突避免都不知道的可爱的天朝人
class Game_Mission
def ...

你也别笑话lz了，alias不考虑reset异常之后的堆栈溢出么?
不然你按几遍f12试试?

点评

杂兵天下

F12直接屏蔽掉管它的发表于 2012-3-8 08:46

杂兵天下 发表于 2012-3-4 20:51:59

本帖最后由杂兵天下于 2012-3-5 01:08 编辑

看了之后，收回刚才说的话，LZ是一个连alias法冲突避免都不知道的可爱的天朝人

RUBY 代码复制

class Game_Mission  
  def initialize
    @texts = ""
    @titletext = ""
    @imtext = ""
    @NPC1 = ""
    @NPC2 = ""
    @bool_mission = false
  end
  def setText(text);@texts=text;end
  def setTitle(text);@titletext=text;end
  def setImText(text);@imtext=text;end
  def setNPC(t1, t2);@NPC1=t1;@NPC2=t2;end
  def setStatus(b);@bool_mission=b;end
  def getText;@texts;end
  def getTitle;@titletext;end
  def getImText;@imtext;end
  def getNPC1;@NPC1;end
  def getNPC2;@NPC2;end
  def getStatus;@bool_mission;end
  def clear
    @texts = ""
    @titletext = ""
    @imtext = ""
    @NPC1 = ""
    @NPC2 = ""
    @bool_mission = false
  end
end
class Game_Missions
  def initialize
    @mission_array=Array.new
    for i in 0...100
      @mission_array[i]=Game_Mission.new
    end
  end
  def mission(t);@mission_array[t];end
  def getNoMission
    for i in 99..0
      if @mission_array[i].getStatus==false
        return i
      end
    end
  end
  def clear
    for i in 0...100
      @mission_array[i].clear
    end    
  end
  def serMission(titletext)
    for i in 0...100
      if @mission_array[i].getTitle==titletext && @mission_array[i].getStatus==true then
        return i
      end
    end
    return -1
  end
end
class Window_MissionShow < Window_Selectable
  #--------------------------------------------------------------------------
  # ● 初始化对像
  #--------------------------------------------------------------------------
  def initialize(x, y)
    super(x, y, window_width, Graphics.height)
    self.openness = 0
    open
  end
  def setNumber(numbers)
    @Mnumber=numbers
    refresh
  end
 
  #--------------------------------------------------------------------------
  # ● 获取窗口的宽度
  #--------------------------------------------------------------------------
  def window_width
    return Graphics.width - 256
  end
 
  def draw_title(text , line, size ,dwhere ,color)
    self.contents.font.color=color
    self.contents.font.size=size
 
    draw_text(4, 0 , window_width-40, fitting_height(line+1), text ,dwhere)
    self.contents.font.color=normal_color
    self.contents.font.size=Font.default_size
  end  
  #--------------------------------------------------------------------------
  # ● 刷新
  #--------------------------------------------------------------------------
  def refresh
    @texts= $game_missions.mission(@Mnumber).getTitle
    draw_title(@texts,0,48,1,Color.new(255,100,100))
    draw_title("任务介绍",4,22,0,Color.new(100,255,255))
    draw_title($game_missions.mission(@Mnumber).getText,6,18,0,Color.new(255,255,255))
    draw_title("任务奖励/重要信息",9,22,0,Color.new(100,255,255))
    draw_title($game_missions.mission(@Mnumber).getImText,11,18,0,Color.new(255,255,255))
    draw_title("领取任务NPC",14,22,0,Color.new(100,255,255))
    draw_title($game_missions.mission(@Mnumber).getNPC1,16,18,0,Color.new(255,255,255))
    draw_title("交接任务NPC",19,22,0,Color.new(100,255,255))
    draw_title($game_missions.mission(@Mnumber).getNPC2,21,18,0,Color.new(255,255,255))
 
  end
 
end
#encoding:utf-8
class Window_MissionCommand < Window_Command
  #--------------------------------------------------------------------------
  # ● 初始化对象
  #--------------------------------------------------------------------------
  def initialize
    super(0, 0)
  end
  #--------------------------------------------------------------------------
  # ● 获取窗口的宽度
  #--------------------------------------------------------------------------
  def window_width
    return 256
  end
  #--------------------------------------------------------------------------
  # ● 获取显示行数
  #--------------------------------------------------------------------------
  def visible_line_number
    10
  end
  #--------------------------------------------------------------------------
  # ● 生成指令列表
  #--------------------------------------------------------------------------
  def make_command_list
    add_original_commands
    add_return_command
  end
  #--------------------------------------------------------------------------
  # ● 独自添加指令用
  #--------------------------------------------------------------------------
  def add_original_commands
    for i in 0...100
      @r=i+1
      @t="mission" + i.to_s
      if $game_missions.mission(i).getStatus==true
        add_command($game_missions.mission(i).getTitle, @t.to_sym)
      end
    end
  end
  #--------------------------------------------------------------------------
  # ● 结束指令用
  #--------------------------------------------------------------------------
  def add_return_command
    add_command("返回", :returnsc)
  end
  #--------------------------------------------------------------------------
  # ● 按下确定键时的处理
  #--------------------------------------------------------------------------
  def process_ok
    super
  end
  def call_handler(symbol)
    @handler[symbol].call(symbol.id2name[7,symbol.id2name.size-7].to_i) if handle?(symbol)
  end
end
#encoding:utf-8
class Scene_Mission < Scene_MenuBase
  def start
    super
    create_command_window
  end
  def create_command_window
    @command_window = Window_MissionCommand.new
    @window_missionShow=Window_MissionShow.new(256,0)
    @window_missionShow.hide
    @command_window.set_handler(:returnsc,    method(:scenereturns))
    @command_window.set_handler(:cancel,      method(:scenereturns))
    @window_missionShow.set_handler(:cancel,  method(:missionHide))
    @window_missionShow.set_handler(:ok,      method(:missionHide))
    for i in 0...100
      @r=i
      @t="mission" + i.to_s
      @command_window.set_handler(@t.to_sym, method(:missionShow))
    end
  end
  def scenereturns( t)
    SceneManager.return
  end
  def missionShow( t)
    @window_missionShow.setNumber(t)
    @command_window.deactivate
    @window_missionShow.activate
    @window_missionShow.openness=0
    @window_missionShow.show
    @window_missionShow.open
  end
  def missionHide
    @command_window.activate
    @window_missionShow.deactivate
    @window_missionShow.close
    update until @window_missionShow.close?
    @window_missionShow.hide
  end
end
#encoding:utf-8
module DataManager
  class <<self
    alias make_save_contents_task_zabing make_save_contents
    alias create_game_objects_task_zabing create_game_objects
    alias extract_save_contents_task_zabing extract_save_contents
  end
  def self.create_game_objects
    create_game_objects_task_zabing
    $game_missions = Game_Missions.new
  end
  def make_save_contents
    contents = make_save_contents_task_zabing
    contents[:missions] = $game_missions
    contents
  end
  def self.extract_save_contents(contents)
    extract_save_contents_task_zabing(contents)
    $game_missions = contents[:missions]
  end
end
class Window_MenuCommand < Window_Command
  alias add_original_commands_task_zabing add_original_commands
  def add_original_commands
    add_original_commands_task_zabing
    add_command("任务", :maphint)
  end
end
class Scene_Menu < Scene_MenuBase
  alias create_command_window_task_zabing create_command_window
  def create_command_window
    create_command_window_task_zabing
    @command_window.set_handler(:maphint,   method(:command_maphint))
  end
  def command_maphint
    SceneManager.call(Scene_Mission)
  end
end

class Game_Mission  


  def initialize


    @texts = ""


    @titletext = ""


    @imtext = ""


    @NPC1 = ""


    @NPC2 = ""


    @bool_mission = false


  end


  def setText(text);@texts=text;end


  def setTitle(text);@titletext=text;end


  def setImText(text);@imtext=text;end


  def setNPC(t1, t2);@NPC1=t1;@NPC2=t2;end


  def setStatus(b);@bool_mission=b;end


  def getText;@texts;end


  def getTitle;@titletext;end


  def getImText;@imtext;end


  def getNPC1;@NPC1;end


  def getNPC2;@NPC2;end


  def getStatus;@bool_mission;end


  def clear


    @texts = ""


    @titletext = ""


    @imtext = ""


    @NPC1 = ""


    @NPC2 = ""


    @bool_mission = false


  end


end


class Game_Missions


  def initialize


    @mission_array=Array.new


    for i in 0...100


      @mission_array[i]=Game_Mission.new


    end


  end


  def mission(t);@mission_array[t];end


  def getNoMission


    for i in 99..0


      if @mission_array[i].getStatus==false


        return i


      end


    end


  end


  def clear


    for i in 0...100


      @mission_array[i].clear


    end    


  end


  def serMission(titletext)


    for i in 0...100


      if @mission_array[i].getTitle==titletext && @mission_array[i].getStatus==true then


        return i


      end


    end


    return -1


  end


end


class Window_MissionShow < Window_Selectable


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


  # ● 初始化对像


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


  def initialize(x, y)


    super(x, y, window_width, Graphics.height)


    self.openness = 0


    open


  end


  def setNumber(numbers)


    @Mnumber=numbers


    refresh


  end


 


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


  # ● 获取窗口的宽度


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


  def window_width


    return Graphics.width - 256


  end


 


  def draw_title(text , line, size ,dwhere ,color)


    self.contents.font.color=color


    self.contents.font.size=size


 


    draw_text(4, 0 , window_width-40, fitting_height(line+1), text ,dwhere)


    self.contents.font.color=normal_color


    self.contents.font.size=Font.default_size


  end  


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


  # ● 刷新


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


  def refresh


    @texts= $game_missions.mission(@Mnumber).getTitle


    draw_title(@texts,0,48,1,Color.new(255,100,100))


    draw_title("任务介绍",4,22,0,Color.new(100,255,255))


    draw_title($game_missions.mission(@Mnumber).getText,6,18,0,Color.new(255,255,255))


    draw_title("任务奖励/重要信息",9,22,0,Color.new(100,255,255))


    draw_title($game_missions.mission(@Mnumber).getImText,11,18,0,Color.new(255,255,255))


    draw_title("领取任务NPC",14,22,0,Color.new(100,255,255))


    draw_title($game_missions.mission(@Mnumber).getNPC1,16,18,0,Color.new(255,255,255))


    draw_title("交接任务NPC",19,22,0,Color.new(100,255,255))


    draw_title($game_missions.mission(@Mnumber).getNPC2,21,18,0,Color.new(255,255,255))


 


  end


 


end


#encoding:utf-8


class Window_MissionCommand < Window_Command


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


  # ● 初始化对象


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


  def initialize


    super(0, 0)


  end


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


  # ● 获取窗口的宽度


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


  def window_width


    return 256


  end


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


  # ● 获取显示行数


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


  def visible_line_number


    10


  end


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


  # ● 生成指令列表


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


  def make_command_list


    add_original_commands


    add_return_command


  end


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


  # ● 独自添加指令用


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


  def add_original_commands


    for i in 0...100


      @r=i+1


      @t="mission" + i.to_s


      if $game_missions.mission(i).getStatus==true


        add_command($game_missions.mission(i).getTitle, @t.to_sym)


      end


    end


  end


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


  # ● 结束指令用


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


  def add_return_command


    add_command("返回", :returnsc)


  end


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


  # ● 按下确定键时的处理


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


  def process_ok


    super


  end


  def call_handler(symbol)


    @handler[symbol].call(symbol.id2name[7,symbol.id2name.size-7].to_i) if handle?(symbol)


  end


end


#encoding:utf-8


class Scene_Mission < Scene_MenuBase


  def start


    super


    create_command_window


  end


  def create_command_window


    @command_window = Window_MissionCommand.new


    @window_missionShow=Window_MissionShow.new(256,0)


    @window_missionShow.hide


    @command_window.set_handler(:returnsc,    method(:scenereturns))


    @command_window.set_handler(:cancel,      method(:scenereturns))


    @window_missionShow.set_handler(:cancel,  method(:missionHide))


    @window_missionShow.set_handler(:ok,      method(:missionHide))


    for i in 0...100


      @r=i


      @t="mission" + i.to_s


      @command_window.set_handler(@t.to_sym, method(:missionShow))


    end


  end


  def scenereturns( t)


    SceneManager.return


  end


  def missionShow( t)


    @window_missionShow.setNumber(t)


    @command_window.deactivate


    @window_missionShow.activate


    @window_missionShow.openness=0


    @window_missionShow.show


    @window_missionShow.open


  end


  def missionHide


    @command_window.activate


    @window_missionShow.deactivate


    @window_missionShow.close


    update until @window_missionShow.close?


    @window_missionShow.hide


  end


end


#encoding:utf-8


module DataManager


  class <<self


    alias make_save_contents_task_zabing make_save_contents


    alias create_game_objects_task_zabing create_game_objects


    alias extract_save_contents_task_zabing extract_save_contents


  end


  def self.create_game_objects


    create_game_objects_task_zabing


    $game_missions = Game_Missions.new


  end


  def make_save_contents


    contents = make_save_contents_task_zabing


    contents[:missions] = $game_missions


    contents


  end


  def self.extract_save_contents(contents)


    extract_save_contents_task_zabing(contents)


    $game_missions = contents[:missions]


  end


end


class Window_MenuCommand < Window_Command


  alias add_original_commands_task_zabing add_original_commands


  def add_original_commands


    add_original_commands_task_zabing


    add_command("任务", :maphint)


  end


end


class Scene_Menu < Scene_MenuBase


  alias create_command_window_task_zabing create_command_window


  def create_command_window


    create_command_window_task_zabing


    @command_window.set_handler(:maphint,   method(:command_maphint))


  end


  def command_maphint


    SceneManager.call(Scene_Mission)


  end


end

减少冲突，优化程序外观，去除奇怪的地图提示功能后的程序。

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

自己制作的VA脚本---任务+地图提示 新版发布～～

正文摘要:

回复

点评

回复。。。

点评

点评

自己制作的VA脚本---任务+地图提示新版发布～～