用RGM做了个方便小巧的内嵌命令行输入框 - Project1

#==============================================================================
# ■ RGM专用CLI输入框 v1.0.1
#------------------------------------------------------------------------------
# 使用说明：
# 脚本插入 Main 前。此功能依赖于 RGM（1.0.4），其它 runtime 运行时不会加载。
# 在以下指定的 Scene 中按 Alt 键呼出输入框，输入指令后按 Enter 键立刻执行，
# Esc 键为清空内容，若中途想退出控制台，直接清空后按回车键即可。
# 上、下键可以切换输入框的显示位置。
#
# Wiley 2023.8.5
#==============================================================================
if defined? RGM
# 数组中是需要添加输入框的 Scene ，可自行增删
$add_cli_scenes = [
Scene_Title,
Scene_Map,
Scene_Menu,
Scene_Item,
Scene_Skill,
Scene_Equip,
Scene_Status,
Scene_Battle,
Scene_Shop,
Scene_Debug
]
module RGM
module Ext
module Window
module_function
def wiley_get_width
@@width
end
def wiley_get_height
@@height
end
end
class TextBox
attr_accessor :sprite
end
end
end
class Window_CLI < Window_Base
def initialize
super(16, 16, RGM::Ext::Window::wiley_get_width - 32, 64)
self.back_opacity = 200 # 背景透明度设置
end
end
$add_cli_scenes.each do |scene|
scene.alias_method :wiley_old_update, :update
scene.send :define_method, :update do
if $tbox
if Input.trigger?(Input::DOWN)
$tbox.sprite.y = RGM::Ext::Window::wiley_get_height - $winc.height
$winc.y = $tbox.sprite.y - 16
elsif Input.trigger?(Input::UP)
$winc.y = 16
$tbox.sprite.y = 32
end
$tbox.update
unless $tbox.active
eval $tbox.last_text
$winc.dispose
$winc = $tbox = nil
end
elsif Input.trigger?(23) # 呼出按键设置
$winc = Window_CLI.new
$winc.z = 10010
$tbox = RGM::Ext::TextBox.new
$tbox.set_rect(32, 32, RGM::Ext::Window::wiley_get_width - 64, 32)
# $tbox.default_text = 'p "hi"' # 这里可以设置默认输入内容
$tbox.background_color = Color.new(0, 0, 0, 0)
$tbox.text_color = Color.new(255, 255, 255, 255)
$tbox.enable
else
wiley_old_update
end
end
end
end

复制代码