Project1

标题: 自己做的采集系统! [打印本页]

作者: wm123450405 时间: 2008-1-19 08:18
标题: 自己做的采集系统!
本帖最后由后知后觉于 2009-7-30 02:42 编辑

自己的采集系统
在Main  插入此脚本!
在事件里输入脚本
$scene = Scene_Collection
接有采集画面了
哈哈

######################################################################
class Window_Collection < Window_Selectable
  def initialize
super(240, 200, 120, 80)
self.contents = Bitmap.new(width - 32, height - 32)
self.back_opacity = 160
refresh
  end
  def refresh
self.contents.clear
#self.contents.draw_text(4, 20, 40, 32, "采集……", 2)
  end
  def update(t)
@t = t
for i in 0..@t
   self.contents.font.color = Color.new(32, 255, 32, 160)
   self.contents.draw_text(4, 0, 80, 32, "采集中……", 0)
   self.contents.font.color = Color.new(200, 200, 200, 160)
   self.contents.draw_text(4 + i * 4, 32, 4 ,20, "█", 0)
end
  end
end

class Window_Collection_End < Window_Selectable
  def initialize
super(240, 200, 120, 80)
self.contents = Bitmap.new(width - 32, height - 32)
refresh
update
  end
  def refresh
self.contents.clear
  end
  def update
self.contents.draw_text(4, 10, 80, 32, "得到花 1 个")
  end
end

class Scene_Collection
  def main
@spriteset = Spriteset_Map.new
@message_window = Window_Message.new
@i = 1
@collection_window = Window_Collection.new
@wait_count = 20
Graphics.transition
loop do
   Graphics.update
   Input.update
   update
   if $scene != self
      return
   end
end
Graphics.freeze
  end
  def update
if @wait_count != 0
   @wait_count -= 1
   return
elsif @i <= 20
   @collection_window.update(@i)
   @i += 1
   @wait_count = 20
   return
else
   @collection_window.dispose
   update_collection_window
   @wait_count = 20
   return
end
  end
  def update_collection_window
@collection_end_window = Window_Collection_End.new
@wait_count = 160
@collection_end_window.dispose
$scene = Scene_Map.new
  end
end
###################################################################

作者: 越前リョーマ 时间: 2008-1-20 02:15
MS用事件做也可以……|||

系统好像太过简单了……（脚本只不过是增加了一个过渡画面……|||）
不过有时也会有用，
收下了！{/wx}

作者: 千年狐狸精 时间: 2008-1-21 01:11
那朵花不是默认素材吧

作者: TERENCE 时间: 2008-1-21 03:00
MS不错!
先收下再说。

作者: 沉默的米饭团 时间: 2008-1-21 03:10
非常好!

作者: Eclair 时间: 2008-1-21 03:14
提示: 作者被禁止或删除内容自动屏蔽

作者: ONEWateR 时间: 2008-1-21 22:11
不错！

作者: 逐月 时间: 2008-1-27 19:09
提示: 作者被禁止或删除内容自动屏蔽

作者: 死圣 时间: 2008-1-27 19:41
鼓励

作者: 030428 时间: 2008-1-27 20:06
提示: 作者被禁止或删除内容自动屏蔽

作者: 火鸡三毛老大 时间: 2009-6-12 08:00
不错 ..以后想做个牧场物语类型的游戏 .

作者: 一醉倾城 时间: 2009-7-30 01:31
{:3_60:} 恩，批量应该能实现，只是要批量干嘛？？？难道我落伍了？

作者: langdd007 时间: 2010-10-4 16:30
提示: 作者被禁止或删除内容自动屏蔽

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