用易语言RMXP增加网络功能

woolenhy

来源：EDGame http://www.yx166.com/

作者也发了一个，被我抢先几秒先转过来了，:L ，转载已通过作者授权。。。

RpgMake XP 使用脚本是Ruby ,我们可以用易语言开发dll插件 供RMXP调用,实现一些该软件本身不具有的功能

这个例程使用“黑月”开发 给RMXP增加了一个UDP的网络通信功能
插件: ESend.dll       7K
演示服务端:EServer.exe    22K



调用方法:
使用RM脚本编辑器 查看Main脚本 改成这样

1. #==============================================================================
   
2. 
   
3. # ■ Main
   
4. 
   
5. #------------------------------------------------------------------------------
   
6. 
   
7. # 　各定义结束后、从这里开始实际处理。
   
8. 
   
9. #==============================================================================
   
10. 
    
11. 
    
12. 
    
13. begin
    
14. 
    
15. # 准备过渡
    
16. 
    
17. # 设置系统默认字体
    
18. 
    
19. Font.default_name = (["黑体"])
    
20. 
    
21. 
    
22. 
    
23. 
    
24. 
    
25. def Win32API.Send(ip,port,text)
    
26. 
    
27. s = Win32API.new('E:\\dll\\ESend.dll', 'send',%w(p i p ), 'v')
    
28. 
    
29. s.call(ip,port,text)
    
30. 
    
31. end
    
32. 
    
33. 
    
34. 
    
35. Win32API.Send("127.0.0.1",2503,"新玩家进入游戏")
    
36. 
    
37. 
    
38. 
    
39. 
    
40. 
    
41. Graphics.freeze
    
42. 
    
43. # 生成场景对像 (标题画面)
    
44. 
    
45. $scene = Scene_Title.new
    
46. 
    
47. # $scene 为有效的情况下调用 main 过程
    
48. 
    
49. while $scene != nil
    
50. 
    
51. $scene.main
    
52. 
    
53. end
    
54. 
    
55. # 淡入淡出
    
56. 
    
57. Graphics.transition(20)
    
58. 
    
59. rescue Errno::ENOENT
    
60. 
    
61. # 补充 Errno::ENOENT 以外错误
    
62. 
    
63. # 无法打开文件的情况下、显示信息后结束
    
64. 
    
65. filename = $!.message.sub("No such file or directory - ", "")
    
66. 
    
67. print("找不到文件 #{filename}。 ")
    
68. 
    
69. end

复制代码

接口说明:
Win32API.Send(服务端IP,服务端端口,发送的数据内容)


以后你就可以在其他脚本中通过这句代码 来发送网络数据报了
例如: 打开 Game_Character 3 脚本
当主角移动的时候,我们发送数据报通知服务端

1. #--------------------------------------------------------------------------
   
2. 
   
3. # ● 向下移动
   
4. 
   
5. # turn_enabled : 本场地位置更改许可标志
   
6. 
   
7. #--------------------------------------------------------------------------
   
8. 
   
9. def move_down(turn_enabled = true)
   
10. 
    
11. # p'下走'
    
12. 
    
13. Win32API.Send("127.0.0.1",2503,"角色向下移动-->来自RMXP中的信息")
    
14. 
    
15. # 面向下
    
16. 
    
17. if turn_enabled
    
18. 
    
19. turn_down
    
20. 
    
21. end
    
22. 
    
23. # 可以通行的场合
    
24. 
    
25. if passable?(@x, @y, 2)
    
26. 
    
27. # 面向下
    
28. 
    
29. turn_down
    
30. 
    
31. # 更新坐标
    
32. 
    
33. @y += 1
    
34. 
    
35. # 增加步数
    
36. 
    
37. increase_steps
    
38. 
    
39. # 不能通行的情况下
    
40. 
    
41. else
    
42. 
    
43. # 接触事件的启动判定
    
44. 
    
45. check_event_trigger_touch(@x, @y+1)
    
46. 
    
47. end
    
48. 
    
49. end

复制代码

RMXP网络插件源码.rar (63.38 KB, 下载次数: 417)

2009-7-30 22:33 上传

点击文件名下载附件

飛天派

這要怎麼用??
有詳細教學嗎?

yangff

这个数据包忒猥琐了……

一醉倾城

呃、。。。。。。持保留意见。。。。

chaoscracker

好耶~开源:victory:

小叽

这个东西有什么用吗?

亿万星辰

其实最早的那个网络脚本，也就是数据包乱飞……

涂鸦boy

很好很强大，还是开源的
正好玩了半年易语言，对RUBY无爱
不过还是期待柳之一的新版6R网络脚本，毕竟这个没有组队和交易

流川枫

66RPG论坛越来越牛了，广告竟然做到编辑框里来了……

LZ说的，RUBY本身就可以自己实现，根本不需要插件，多此一举嘛