RMXP更換引擎為RGSS3!!!!

Judgement · 发表于 2013-4-26 21:56:39

RMFlash.dll冲突，不过这个前面也有人提到了……{:2_253:}

sai90306 · 发表于 2013-4-26 22:43:39

原來如此，其實我最期待的就是VA的文字描邊功能，XP實在太難看了，另LZ有提到VA的腳本要轉換過....是要怎麼轉阿@@若是能轉XP就強大了阿!!

茉莉花上的露水 · 发表于 2013-4-26 22:47:22

XP转VA引擎，会不会导致一些XP的原本脚本功能失效啊{:2_270:}

serena718 · 发表于 2013-4-26 22:58:14

本帖最后由 serena718 于 2013-4-26 23:10 编辑

噢，致命性BUG是我個人工程的問題，因為我內部太多腳本，可能哪個發生衝突了OTZ
其實基本上你這個單獨用沒問題的，只是我個人的工程不適用...(懶得移植到其他版本上了，儘管他版的性能較好XD)
說實在我想用RGSS3也只是為了那個Viewport功能，之前把一個VA的地圖類腳本移植到XP，一切都OK，就是Viewport有問題
我原本一直以為是我的寫法不對，後來才發現是VA和XP根本上的差異(淚
現在是用XP套用VX的運行庫，其實也為的不是啥，只是因為換新電腦後才發覺640*480這視窗大小實在有些蛋疼
但我選單什麼的都寫死了，素材也都弄好了，懶的改，乾脆直接用畫面拉伸的方式來放大視窗(XP做不到這點啊泣可休)
如果LZ有空，幫我復刻個VA的Viweport Ver.XP，我就很感激了(喂

joe5491 · 发表于 2013-4-27 11:37:10

RMFlash修好了～換成底下的腳本（天殺的編碼問題）...

p.s.不過有時播放會沒有聲音....不知如何解決.....(機率變高了....約1/2)

#Flash 播放器 v1.3 作者:灼眼的夏娜
#Only for RGSS3 -by joe59491
class String
CP_ACP = 0
CP_UTF8 = 65001
def u2s
m2w = Win32API.new("kernel32", "MultiByteToWideChar", "ilpipi", "i")
w2m = Win32API.new("kernel32", "WideCharToMultiByte", "ilpipipp", "i")
len = m2w.call(CP_UTF8, 0, self, -1, nil, 0)
buf = "\0" * (len*2)
m2w.call(CP_UTF8, 0, self, -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
def s2u
m2w = Win32API.new("kernel32", "MultiByteToWideChar", "ilpipi", "i")
w2m = Win32API.new("kernel32", "WideCharToMultiByte", "ilpipipp", "i")
len = m2w.call(CP_ACP, 0, self, -1, nil, 0);
buf = "\0" * (len*2)
m2w.call(CP_ACP, 0, self, -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);
return ret
end
def s2u!
self[0, length] = s2u
end
def u2s!
self[0, length] = u2s
end
end
class Bitmap
RtlMoveMemory_pi = Win32API.new('kernel32', 'RtlMoveMemory', 'pii', 'i')
RtlMoveMemory_ip = Win32API.new('kernel32', 'RtlMoveMemory', 'ipi', 'i')
def address
buffer, ad = "xxxx", object_id * 2 + 16
RtlMoveMemory_pi.call(buffer, ad, 4); ad = buffer.unpack("L")[0] + 8
RtlMoveMemory_pi.call(buffer, ad, 4); ad = buffer.unpack("L")[0] + 16
RtlMoveMemory_pi.call(buffer, ad, 4); return buffer.unpack("L")[0]
end
end
class RMFlash
API_NEW = Win32API.new("RMFlash", "_new", "piil", "l")
API_UPDATE = Win32API.new("RMFlash", "_update", "l", "v")
API_FREE = Win32API.new("RMFlash", "_free", "l", "v")
API_PLAYING = Win32API.new("RMFlash", "_is_playing", "l", "i")
API_PAUSE = Win32API.new("RMFlash", "_pause", "l", "v")
API_RESUME = Win32API.new("RMFlash", "_resume", "l", "v")
API_BACK = Win32API.new("RMFlash", "_back", "l", "v")
API_REWIND = Win32API.new("RMFlash", "_rewind", "l", "v")
API_FORWARD = Win32API.new("RMFlash", "_forward", "l", "v")
API_CURFRAME = Win32API.new("RMFlash", "_cur_frame", "l", "i")
API_TOTALFRAME = Win32API.new("RMFlash", "_total_frames", "l", "i")
API_GOTOFRAME = Win32API.new("RMFlash", "_goto_frame", "li", "v")
API_GETLOOP = Win32API.new("RMFlash", "_get_loop", "l", "i")
API_SETLOOP = Win32API.new("RMFlash", "_set_loop", "li", "v")
API_CLEARALL = Win32API.new("RMFlash", "_clear_all", "v", "v")
API_VALID = Win32API.new("RMFlash", "_valid", "l", "i")
API_SENDMSG = Win32API.new("RMFlash", "_send_message", "liii", "l")
CUR_PATH = Dir.pwd
def self.get_version
return 1.3
end
def self.clear_all
API_CLEARALL.call
end
def self.load(name, width, height, v = nil)
#new("#{CUR_PATH}/#{name}".u2s, width, height,v)
new("#{CUR_PATH}/#{name}", width, height,v)
end
attr_reader :valid
def initialize(flash_name, flash_width, flash_height, viewport = nil)
[url=home.php?mod=space&uid=114926]@sprite[/url] = Sprite.new(viewport)
@sprite.bitmap = Bitmap.new(flash_width, flash_height)
@value = API_NEW.call(flash_name, flash_width, flash_height, @sprite.bitmap.address)
@loop = API_GETLOOP.call(@value) > 0
@valid = API_VALID.call(@value) > 0
end
def viewport
@sprite.viewport
end
def update
API_UPDATE.call(@value)
end
def dispose
API_FREE.call(@sprite.bitmap.address)
@sprite.dispose#AVG
end
def playing?
API_PLAYING.call(@value) > 0
end
def pause
API_PAUSE.call(@value)
end
def resume
API_RESUME.call(@value)
end
def back
API_BACK.call(@value)
end
def rewind
API_REWIND.call(@value)
end
def forward
API_FORWARD.call(@value)
end
def current_frame
API_CURFRAME.call(@value)
end
def total_frames
API_TOTALFRAME.call(@value)
end
def goto_frame(goal_frame)
API_GOTOFRAME.call(@value, goal_frame)
end
def x
@sprite.x
end
def x=(v)
@sprite.x = v
end
def y
@sprite.y
end
def y=(v)
@sprite.y = v
end
def z
@sprite.z
end
def z=(v)
@sprite.z = v
end
def width
@sprite.bitmap.width
end
def height
@sprite.bitmap.height
end
def loop?
@loop
end
def loop=(v)
if @loop != v
@loop = v
API_SETLOOP.call(@value, v)
end
end
def msg_to_flash(msg, wParam, lParam)
return API_SENDMSG.call(@value, msg, wParam, lParam)
end
# 例
WM_MOUSEMOVE = 0x0200
def make_long(a, b)
return (a & 0xffff ) | (b & 0xffff) << 16
end
def on_mouse_move(x, y)
return msg_to_flash(WM_MOUSEMOVE, 0, make_long(x, y))
end
end
RMFlash.clear_all
module Kernel
alias origin_exit exit unless method_defined? :exit
def exit(*args)
RMFlash.clear_all
origin_exit(*args)
end
end

复制代码

1142881837 · 发表于 2013-4-27 12:08:25

为什么他比我注册的还晚，但是他的经验比我多这么多啊！难道走后门了？

serena718 · 发表于 2013-4-27 14:08:36

本帖最后由 serena718 于 2013-4-27 14:17 编辑

其實我那個問題跟19樓發生的是差不多的，經我測試，可能是與隊列移動和八方向等腳本衝突
至於Viewport嘛...
http://www.atelier-rgss.com/RGSS/System/ACE_SYS08.html
我是把這個腳本移植到XP上才發現的，似乎VA的viewport不會跟著畫面跑(內建說明檔好想也有寫，只是日文我看不太懂，但他有標示只有RGSS3專有的...)
總之我改的那個腳本(寫法都沒動，只動了一些XP和VA之間沒有的地方)，在純XP上沒用(效果有，但表現方式不對...= =)
直到我將他搬到偽VA上(不是LZ你的這個，是我之前找到一個歪國的偽VA方法)，卻成功了，正式發現兩版本間的Viewport有問題
後來我在XP上是把刷新ox和oy給去掉了，效果還OK，就是圖片會一直跟著畫面跑，很彆扭

還有發現一個重大BUG，F9失蹤了...

无脑之人 · 发表于 2013-4-27 15:43:46

LZ你好在下刚刚使用了阁下的脚本，发现了如下问题：
1.在下使用的是兰触（花晴兰）给的鼠标脚本，在下自己家的鼠标位置判定，他在我自己写的物品界面出现了index判断失误，不知道是不是阁下影响的。
2.在下的物品栏不知为何无法显示项目了
3.在下的自动换行效果没了，目测是self[start,length]失效，这不科学
4.在下根据VX VA以及兰触说的对XP的一些脚本进行了修改和复刻（例如VX里面bitmap的渐变矩形），不知道会不会有什么影响

joe5491 · 发表于 2013-4-27 16:25:44

无脑之人发表于 2013-4-27 15:43
LZ你好在下刚刚使用了阁下的脚本，发现了如下问题：
1.在下使用的是兰触（花晴兰）给的鼠标脚本，在下自己 ...

1.在下使用的是兰触（花晴兰）给的鼠标脚本，在下自己家的鼠标位置判定，他在我自己写的物品界面出现了index判断失误，不知道是不是阁下影响的。話說RGSS3裡面有重新定義過Input::C、Input::B.....（變成 :C 、:B.....）
2.在下的物品栏不知为何无法显示项目了                            重新檢查腳本裡的顯示問題....
3.在下的自动换行效果没了，目测是self[start,length]失效，这不科学       不科學+1  (用slice吧？)
4.在下根据VX VA以及兰触说的对XP的一些脚本进行了修改和复刻（例如VX里面bitmap的渐变矩形），不知道会不会有什么影响       語法沒用錯就行了，只是不能移回正常的XP而已
5.阁下貌似用::Sprite改变了Sprite，在下的采矿界面因此而无法进行了，请阁下说一下Sprite发生的改动，谢谢             這個Sprite是從XP裡的F1中找出來的...不應該有問題...-_-|||

无脑之人 · 发表于 2013-4-27 16:25:48

2和5已经解决原因是汉字不再是三个字节，和VA和XP解释器的区别问题

def mouse
sx = self.x + 16
zx = self.x + self.width - 16
sy = self.y + 16
zy = self.y + self.height - 16
mx = $mouse.mousex
my = $mouse.mousey
return if mx < sx
return if mx > zx
return if my < sy-16
return if my > zy+16
if my >= zy and my <= zy+16
if @index < @item_max - @column_max
if @mouse_push > 60
@mouse_push = 0
@index = (@index + @column_max) % @item_max
end
@mouse_push += 1
else
@mouse_push = 0
end
end
if my >= sy-16 and my <= sy
if @index < @item_max - @column_max
if @mouse_push > 60
@mouse_push = 0
@index = (@index + @column_max) % @item_max
end
@mouse_push += 1
else
@mouse_push = 0
end
end
x = mx - sx
y = my - sy
cursor_width = (self.width-32) / @column_max
xindex = (x+self.ox) / cursor_width
yindex = (y+self.oy) / 32
@index = yindex * @column_max + xindex
if @index >= @item_max-1
@index = @item_max-1
end
if @index < 0
@index = 0
end
end

复制代码

这是在下index判定的脚本求前辈给解答哪里错了（关键是为什么只有物品错了……）

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

[原创发布] RMXP更換引擎為RGSS3!!!!

点评

点评

评分

点评

点评

点评

评分

点评

点评

点评

点评

点评