求人写一下脚本vx的仿网游即时消息……

adswyc · 发表于 2008-6-9 05:12:13

提示: 作者被禁止或删除内容自动屏蔽

Beside · 发表于 2008-6-9 05:15:02

输入文字后屏幕上显示？

adswyc · 发表于 2008-6-9 05:15:52

提示: 作者被禁止或删除内容自动屏蔽

火鸡三毛老大 · 发表于 2008-6-9 07:29:41

以下引用adswyc于2008-6-8 21:15:52的发言：

以下引用Beside于2008-6-8 21:15:02的发言：

输入文字后屏幕上显示？

是的

不可以联网有这个也没什么意义...
如果可以用语句判定角色输入的文字就可以实现仿·网游聊天系统了

这个....
如果能完成...
我也想要一份..

got3 · 发表于 2008-6-9 15:50:37

这个功能，就是夜想曲里面的吧？

吃到东西会在屏幕上显示，还有信息啥的{/hx}

任务提示等

火鸡三毛老大 · 发表于 2008-6-9 16:00:29

以下引用got3于2008-6-9 7:50:37的发言：

这个功能，就是夜想曲里面的吧？

吃到东西会在屏幕上显示，还有信息啥的

任务提示等

话说...
看了工程...
没有这功能
只是有个输入法！

Beside · 发表于 2008-6-9 16:51:20

大致修改完毕还有一点坐标的问题

yangff · 发表于 2008-6-9 16:54:10

恩,工程量不大,我事一下吧

yangff · 发表于 2008-6-9 17:44:08

http://rpg.blue/upload_program/files/Project2_93433424.rar

系统信息：本贴获得楼主认可，66RPG感谢您的热情解答～

Beside · 发表于 2008-6-9 17:47:16

完成了……

脚本如下直接覆盖掉原来输入法那个

=begin
脚本：【完美输入法修正】
功能：输入法。
说明: 直接用Type_Field创建输入域即可进行输入，在此可根据Type_Field域对象
的活动标记active来自定义刷新等，在Type_Field中需要自己处理特殊按键
的处理方法。具体不明白之处请参考范例工程。
作者：灼眼的夏娜
补充: 至于以前那个版本也许很多人都注意到那个烦人的问题了吧，按Enter和Tab那
些会出现不爽的声音，这个版本解决了那个问题，并简化添加了Type_Field类
来方便创建输入域。
=end
#==============================================================================
# ■ RInput
#------------------------------------------------------------------------------
# 　全键盘处理的模块。
#==============================================================================
module RInput
#--------------------------------------------------------------------------
# ● 常量定义
#--------------------------------------------------------------------------
ENTER = 0x0D
SPACE = 0x20
UP = 0x26
DOWN = 0x28
LEFT = 0x25
RIGHT = 0x27
LCTRL = 0xA2
LALT = 0xA4
#--------------------------------------------------------------------------
# ● 临时Hash
#--------------------------------------------------------------------------
@R_Key_Hash = {}
@R_Key_Repeat = {}
#--------------------------------------------------------------------------
# ● 唯一API
#--------------------------------------------------------------------------
GetKeyState = Win32API.new("user32","GetAsyncKeyState",['I'],'I')
#--------------------------------------------------------------------------
# ● 单键处理
#--------------------------------------------------------------------------
def self.trigger?(rkey)
result = GetKeyState.call(rkey)
if @R_Key_Hash[rkey] == 1 and result != 0
return false
end
if result != 0
@R_Key_Hash[rkey] = 1
return true
else
@R_Key_Hash[rkey] = 0
return false
end
end
end
#==============================================================================
# ■ EasyConv
#------------------------------------------------------------------------------
# 　转码模块。
#==============================================================================
module EasyConv
#--------------------------------------------------------------------------
# ● 常量定义
#--------------------------------------------------------------------------
CP_ACP = 0
CP_UTF8 = 65001
#--------------------------------------------------------------------------
# ● 模块函数
#--------------------------------------------------------------------------
module_function
#--------------------------------------------------------------------------
# ● 转码
#--------------------------------------------------------------------------
def s2u(text)
m2w = Win32API.new('kernel32', 'MultiByteToWideChar', 'ilpipi', 'i')
w2m = Win32API.new('kernel32', 'WideCharToMultiByte', 'ilpipipp', 'i')
len = m2w.call(CP_ACP, 0, text, -1, nil, 0)
buf = "\0" * (len*2)
m2w.call(CP_ACP, 0, text, -1, buf, buf.size/2)
len = w2m.call(CP_UTF8, 0, buf, -1, nil, 0, nil, nil)
ret = "\0" * len
w2m.call(CP_UTF8, 0, buf, -1, ret, ret.size, nil, nil)
ret[-1] = ""
return ret
end
#--------------------------------------------------------------------------
# ● 转码
#--------------------------------------------------------------------------
def u2s(text)
m2w = Win32API.new('kernel32', 'MultiByteToWideChar', 'ilpipi', 'i')
w2m = Win32API.new('kernel32', 'WideCharToMultiByte', 'ilpipipp', 'i')
len = m2w.call(CP_UTF8, 0, text, -1, nil, 0)
buf = "\0" * (len*2)
m2w.call(CP_UTF8, 0, text, -1, buf, buf.size/2)
len = w2m.call(CP_ACP, 0, buf, -1, nil, 0, nil, nil)
ret = "\0" * len
w2m.call(CP_ACP, 0, buf, -1, ret, ret.size, nil, nil)
return ret
end
end
#==============================================================================
# ■ TypeAPI
#------------------------------------------------------------------------------
# 　输入法相关API模块。
#==============================================================================
module TypeAPI
#--------------------------------------------------------------------------
# ● API定义
#--------------------------------------------------------------------------
GPPS = Win32API.new("kernel32","GetPrivateProfileString",'pppplp','l')
FindWindow = Win32API.new("user32", "FindWindow", 'pp', 'i')
CreateWindow = Win32API.new("NetGame","CreatWnd",'l','l')
SetHK = Win32API.new("NetGame","SetHK",'v','v')
GetText = Win32API.new("NetGame","GetWndText",'l','p')
SetFocus = Win32API.new("user32","SetFocus",'l','l')
IfBack = Win32API.new("NetGame","If_Back",'v','i')
StartType = Win32API.new("NetGame","StartType",'v','v')
EndType = Win32API.new("NetGame","EndType",'v','v')
GetKeyInfos = Win32API.new("NetGame","GetKeyInfo",'v','i')
#--------------------------------------------------------------------------
# ● 模块函数
#--------------------------------------------------------------------------
module_function
#--------------------------------------------------------------------------
# ● 获取参数
#--------------------------------------------------------------------------
def getParam
val = "\0" * 256
GPPS.call("Game","Title","",val,256,"./Game.ini")
val.delete!("\0")
return val
end
#--------------------------------------------------------------------------
# ● 获取窗口
#--------------------------------------------------------------------------
def findWindow
return FindWindow.call("RGSS Player",self.getParam)
end
#--------------------------------------------------------------------------
# ● 创建窗口
#--------------------------------------------------------------------------
def createWindow(hwnd)
return CreateWindow.call(hwnd)
end
#--------------------------------------------------------------------------
# ● 设置HK
#--------------------------------------------------------------------------
def setHK
SetHK.call
end
#--------------------------------------------------------------------------
# ● 获取文字
#--------------------------------------------------------------------------
def getText
return EasyConv.s2u(GetText.call(@subhwnd))
end
#--------------------------------------------------------------------------
# ● 设置焦点
#--------------------------------------------------------------------------
def setFocus
SetFocus.call(@subhwnd)
end
#--------------------------------------------------------------------------
# ● 转换焦点
#--------------------------------------------------------------------------
def lostFocus
SetFocus.call(@hwnd)
end
#--------------------------------------------------------------------------
# ● 退格判定
#--------------------------------------------------------------------------
def ifBack
return IfBack.call
end
#--------------------------------------------------------------------------
# ● 开始输入
#--------------------------------------------------------------------------
def startType
StartType.call
end
#--------------------------------------------------------------------------
# ● 结束输入
#--------------------------------------------------------------------------
def endType
EndType.call
end
#--------------------------------------------------------------------------
# ● 输入中特殊按键处理
#--------------------------------------------------------------------------
def getKeyInfos
return GetKeyInfos.call
end
#--------------------------------------------------------------------------
# ● 获取句柄
#--------------------------------------------------------------------------
@hwnd = self.findWindow
@subhwnd = self.createWindow(@hwnd)
#--------------------------------------------------------------------------
# ● 设置HK应用
#--------------------------------------------------------------------------
self.setHK
end
#==============================================================================
# ■ Type_Field
#------------------------------------------------------------------------------
# 　处理输入域的类。
#==============================================================================
class Type_Field
#--------------------------------------------------------------------------
# ● 定义实例变量
#--------------------------------------------------------------------------
attr(:active)
#--------------------------------------------------------------------------
# ● 初始化
#--------------------------------------------------------------------------
def initialize(v,default_text = "",default_careth = nil,default_fonts = 16, default_fontc = Color.new(255,255,255,255))
# active
@active = true
# 视口
rect = v.rect
@v = Viewport.new(rect.x,rect.y,rect.width,rect.height)
@beijing= Sprite.new(@v)
@beijing.bitmap = Cache.system("1081-1")#Cache.("Title")picture icon
@w = rect.width
@h = rect.height
# 属性
@caret_h = default_careth.nil? ? @h : [@h,default_careth].min
@caret_y = rect.y + (@h - @caret_h) / 2
@font_size = [default_fonts,@h].min
# 描绘contents
@cts = Sprite.new(@v)
@cts.bitmap = Bitmap.new(@w - 3,@h)
@cts.bitmap.font.size = @font_size
@cts.bitmap.font.color = default_fontc
# 辅助属性
@bk_count = 0
@text = default_text.scan(/./)
@max_width = @w - 3
@caret_pos = @text.size
@save_pos = @caret_pos
# 光标Caret
@v1 = Viewport.new(rect.x,@caret_y,@w + 3,@caret_h)
@caret_sp = Sprite.new(@v1)
@caret_bitmap = Bitmap.new(3,@caret_h)
@caret_bitmap.fill_rect(3,0,1,@caret_h,Color.new(0,0,0,180))
@caret_bitmap.fill_rect(2,0,1,@caret_h,Color.new(0,0,0))
@caret_bitmap.fill_rect(2,0,1,@caret_h,Color.new(255,255,255))
@caret_sp.bitmap = @caret_bitmap
@caret_sp.x = self.get_width(@text[0,@caret_pos].to_s)
@caret_sp.y = 0
@caret_sp.visible = false
@caret_flash_count = 0
# 刷新
refresh
# 设置焦点
TypeAPI.setFocus
# 开始输入
TypeAPI.startType
end
#--------------------------------------------------------------------------
# ● 设置活动标记
#--------------------------------------------------------------------------
def active=(value)
if value != true and value != false
return
end
@active = value
@caret_sp.visible = @active
end
#--------------------------------------------------------------------------
# ● 释放
#--------------------------------------------------------------------------
def dispose
@caret_bitmap.dispose
@caret_sp.bitmap.dispose
@caret_sp.dispose
@cts.bitmap.dispose
@cts.dispose
@v.dispose
@v1.dispose
end
#--------------------------------------------------------------------------
# ● 刷新
#--------------------------------------------------------------------------
def refresh
@cts.bitmap.clear
@cts.bitmap.draw_text(0,0,@w,@h,@text.to_s)
end
#--------------------------------------------------------------------------
# ● 获取文字
#--------------------------------------------------------------------------
def get_text
return @text.to_s
end
#--------------------------------------------------------------------------
# ● 取得字符宽度
#--------------------------------------------------------------------------
def get_width(str)
return @cts.bitmap.text_size(str).width
end
#--------------------------------------------------------------------------
# ● 更新
#--------------------------------------------------------------------------
def update
# 非激活状态则返回
unless @active
return
end
# 获取按键信息
key_info = TypeAPI.getKeyInfos
case key_info
when 0x09 # Tab
# 按下 Tab 键的情况自己定义怎么处理
return
when 0x0d # Enter
text = get_text
$scene.type_window.add_instant_text(text)
@text = []
refresh
return
when 0x1B # Esc
# 按下 Esc 键的情况自己定义怎么处理
return
end
self.update_text
self.update_lrb
self.update_back
self.update_caret
end
#--------------------------------------------------------------------------
# ● 更新文字
#--------------------------------------------------------------------------
def update_text
# 文字刷新
TypeAPI.setFocus
text = TypeAPI.getText
if text != ""
for char in text.scan(/./)
if self.get_width(@text.to_s + char) <= @max_width
@text[@caret_pos,0] = char
@caret_pos += 1
else
break
end
end
refresh
end
end
#--------------------------------------------------------------------------
# ● 更新左右按键
#--------------------------------------------------------------------------
def update_lrb
if RInput.trigger?(RInput::LEFT) and @caret_pos > 0
@caret_pos -= 1
return
end
if RInput.trigger?(RInput::RIGHT) and @caret_pos < @text.size
@caret_pos += 1
return
end
end
#--------------------------------------------------------------------------
# ● 更新退格
#--------------------------------------------------------------------------
def update_back
# 前退格处理
@bk_count += TypeAPI.ifBack
if @bk_count > 0
@bk_count -= 1
if @caret_pos > 0
@text.delete_at(@caret_pos - 1);@caret_pos -= 1;refresh
end
end
end
#--------------------------------------------------------------------------
# ● 更新光标闪烁
#--------------------------------------------------------------------------
def update_caret
# 闪烁计时
@caret_flash_count += 1
if @caret_flash_count == 20
@caret_sp.visible = !@caret_sp.visible
@caret_flash_count = 0
end
# Caret位置刷新
if @save_pos != @caret_pos
@save_pos = @caret_pos
@caret_sp.x = self.get_width(@text[0,@save_pos].to_s)
end
end
end
#==============================================================================
# ■ Window_TypeMessage
#------------------------------------------------------------------------------
#==============================================================================
class Window_TypeMessage < Window_Message
#--------------------------------------------------------------------------
# ● 初始化对象
#--------------------------------------------------------------------------
def initialize
super
self.openness = 255
self.opacity = 0
self.contents.font.size = 18
self.x = 20
@lines = []
refresh
self.visible = false if $game_switches[1] == true
end
#--------------------------------------------------------------------------
# ● 释放
#--------------------------------------------------------------------------
def dispose
super
end
#--------------------------------------------------------------------------
# ● 刷新画面
#--------------------------------------------------------------------------
def update
return if $game_switches[1] == true
super
refresh if Graphics.frame_count % 8 == 0
end
#--------------------------------------------------------------------------
# ● 打开窗口 (无效化)
#--------------------------------------------------------------------------
def open
end
#--------------------------------------------------------------------------
# ● 关闭窗口 (无效化)
#--------------------------------------------------------------------------
def close
end
#--------------------------------------------------------------------------
# ● 设置窗口背景与位置 (无效化)
#--------------------------------------------------------------------------
def reset_window
end
#--------------------------------------------------------------------------
# ● 清除
#--------------------------------------------------------------------------
def clear
refresh
end
#--------------------------------------------------------------------------
# ● 获取行数
#--------------------------------------------------------------------------
def line_number
return @lines.size
end
#--------------------------------------------------------------------------
# ● 返回一行
#--------------------------------------------------------------------------
def back_one
@lines.pop
refresh
end
#--------------------------------------------------------------------------
# ● 返回至指定行
# line_number : 行编号
#--------------------------------------------------------------------------
def back_to(line_number)
while @lines.size > line_number
@lines.pop
end
refresh
end
#--------------------------------------------------------------------------
# ● 添加文章
# text : 添加的文章
#--------------------------------------------------------------------------
def add_instant_text(text)
@lines.push([text, Graphics.frame_count])
@lines.delete_at(0) if @lines.size > 4
refresh
end
#--------------------------------------------------------------------------
# ● 替换文章
# text : 要替换的文章
# 将最下行替换为别的文章。
#--------------------------------------------------------------------------
def replace_instant_text(text)
@lines.pop
@lines.push([text, Graphics.frame_count])
refresh
end
#--------------------------------------------------------------------------
# ● 获取最下行的文章
#--------------------------------------------------------------------------
def last_instant_text
return @lines[-1]
end
#--------------------------------------------------------------------------
# ● 刷新
#--------------------------------------------------------------------------
def refresh
return if $game_switches[1] == true
self.contents.clear
for i in [email protected]
draw_line(i)
end
self.y = 360 - (@lines.size ) * WLH
end
#--------------------------------------------------------------------------
# ● 描绘行
# index : 行编号
#--------------------------------------------------------------------------
def draw_line(index)
rect = Rect.new(0, 0, 0, 0)
rect.x += 4
rect.y += index * WLH
rect.width = contents.width - 8
rect.height = WLH
self.contents.clear_rect(rect)
self.contents.font.color = normal_color
self.contents.font.color.alpha = 700 - (Graphics.frame_count - @lines[index][1]) * 4
self.contents.draw_text(rect, @lines[index][0])
end
end
class Scene_Map < Scene_Base
attr_accessor :type_window
def start
super
$game_map.refresh
@spriteset = Spriteset_Map.new
@message_window = Window_Message.new
@type_window = Window_TypeMessage.new
end
def terminate
super
if $scene.is_a?(Scene_Battle) # 正在切换战斗画面的情况下
@spriteset.dispose_characters # 为了生成背景隐藏角色
end
snapshot_for_background
@spriteset.dispose
@message_window.dispose
@type_window.dispose
if $scene.is_a?(Scene_Battle) # 正在切换战斗画面的情况下
perform_battle_transition # 执行战斗前变换
end
end
def update
super
$game_map.interpreter.update # 更新解释器
$game_map.update # 更新滴入
$game_player.update # 更新玩家
$game_system.update # 更新计时器
@spriteset.update # 更新活动块元件
@message_window.update # 更新消息窗口
@type_window.update
unless $game_message.visible # 正在显示消息以外的情况
update_transfer_player
update_encounter
update_call_menu
update_call_debug
update_scene_change
end
end
end

复制代码

范例如下
http://rpg.blue/upload_program/files/Project2_93433584.rar

锻炼脚本能力……算法不当请指出

被抢先了。T_T

系统信息：本贴获得楼主认可，66RPG感谢您的热情解答～

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

求人写一下脚本vx的仿网游即时消息……

烫烫烫

开拓者