Project1

标题: 小段代码书写请教 [打印本页]

---

作者: 千夜辉雪    时间: 2014-11-21 16:20
标题: 小段代码书写请教
我想创建一个窗口
显示位置是屏幕中央 高度为100
文字内容为自定义 脚本里是输入$tip="";$tip_imformation="";
也就是在事件编辑中输入脚本进行调用 但是每次调用3秒之后让窗口消失不太会

RUBY 代码复制

class Window_Tip < Window_Base
  def initialize
    if $tip_information.is_a?(String) and $tip_information!=""
      @temptext = $tip_information.gsub(/(\r\n)|\n/,"")
      i = 1
      p = 0
      insert_list = []
      while p+i<= @temptext.size
        w = tb.text_size(@temptext[p,i]).width
        if w > window_width
          insert_list << p+i-2
          p = p+i-2
          i = 1
        end
        i+=1
      end
      insert_list.reverse!
      insert_list.each{|k| @temptext.insert(k,"\n")}
      tb.dispose
      addheight = (insert_list.size+2) * 24
    end
    super(0,416/2+50, window_width, window_height)
    refresh
  end
  def window_width
    return 544
  end
 
  def window_height
    return 100
  end
  def refresh
    contents.clear
    if $tip.nil? or $tip==""
      $tip=""
      $tip_information=""
    end
    draw_text_ex(0,0,"\\c[1]#{$tip}")
    text_color(2)
    draw_text_ex(0,24,@temptext)
  end
  def tip
    $tip
  end
  def open
    refresh
    super
  end
end

class Window_Tip < Window_Base


  def initialize


    if $tip_information.is_a?(String) and $tip_information!=""


      @temptext = $tip_information.gsub(/(\r\n)|\n/,"")


      i = 1


      p = 0


      insert_list = []


      while p+i<= @temptext.size


        w = tb.text_size(@temptext[p,i]).width


        if w > window_width


          insert_list << p+i-2


          p = p+i-2


          i = 1


        end


        i+=1


      end


      insert_list.reverse!


      insert_list.each{|k| @temptext.insert(k,"\n")}


      tb.dispose


      addheight = (insert_list.size+2) * 24


    end


    super(0,416/2+50, window_width, window_height)


    refresh


  end


  def window_width


    return 544


  end


 


  def window_height


    return 100


  end


  def refresh


    contents.clear


    if $tip.nil? or $tip==""


      $tip=""


      $tip_information=""


    end


    draw_text_ex(0,0,"\\c[1]#{$tip}")


    text_color(2)


    draw_text_ex(0,24,@temptext)


  end


  def tip


    $tip


  end


  def open


    refresh


    super


  end


end

---

作者: taroxd    时间: 2014-11-21 16:57
窗口有一个 update 方法，通常会每帧调用一次。

在窗口的 update 中，监控 $tip 的变化。

例：

RUBY 代码复制

class Window_XXX
 
  def update
    refresh unless @tip.equal? $tip
    disappear if Graphics.frame_count - @frame > 180
  end
 
  def refresh
    @tip = $tip
    @frame = Graphics.frame_count
    # redraw the contents
  end
 
  def disappear
    # ...
  end
 
end

class Window_XXX


 


  def update


    refresh unless @tip.equal? $tip


    disappear if Graphics.frame_count - @frame > 180


  end


 


  def refresh


    @tip = $tip


    @frame = Graphics.frame_count


    # redraw the contents


  end


 


  def disappear


    # ...


  end


 


end

---

作者: 路路    时间: 2014-11-21 18:41
提示: 作者被禁止或删除 内容自动屏蔽

---

欢迎光临 Project1 (https://rpg.blue/)

Powered by Discuz! X3.1