Project1

标题: 用易语言RMXP增加网络功能 [打印本页]

---

作者: woolenhy    时间: 2009-7-30 22:33
标题: 用易语言RMXP增加网络功能


来源：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 上传

点击文件名下载附件

---

作者: 凌辰    时间: 2009-7-30 22:41
请问你的转载获得授权了么？

---

作者: woolenhy    时间: 2009-7-30 22:56
怕了你的头像。。。。

---

作者: 凌辰    时间: 2009-7-30 22:59

怕了你的头像。。。。
woolenhy 发表于 2009-7-30 22:56

请不要言其它，你的转载得到作者的授权了么？

---

作者: link006007    时间: 2009-7-31 00:17
话说。。。这个和以前发布的 调用Win API教学说的有什么区别？

---

作者: DeathKing    时间: 2009-7-31 09:11

怕了你的头像。。。。
woolenhy 发表于 2009-7-30 22:56

现在才发现，某辰的头像是削笔刀？？？

还有，我说RM没有实现网络的必要。不然的话，那些网游就用RM开发了。

---

作者: 流川枫    时间: 2009-8-1 14:57
66RPG论坛越来越牛了，广告竟然做到编辑框里来了……

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

---

作者: 涂鸦boy    时间: 2009-8-23 19:52
很好很强大，还是开源的
正好玩了半年易语言，对RUBY无爱
不过还是期待柳之一的新版6R网络脚本，毕竟这个没有组队和交易

---

作者: 亿万星辰    时间: 2009-8-25 14:06
其实最早的那个网络脚本，也就是数据包乱飞……

---

作者: 小叽    时间: 2009-8-25 17:29
这个东西有什么用吗?

---

作者: chaoscracker    时间: 2009-9-27 12:12
好耶~开源:victory:

---

作者: 雅冬露    时间: 2009-11-30 11:39
提示: 作者被禁止或删除 内容自动屏蔽

---

作者: 一醉倾城    时间: 2010-2-12 19:38
呃、。。。。。。持保留意见。。。。

---

作者: yangff    时间: 2010-7-3 15:35
这个数据包忒猥琐了……

---

作者: 飛天派    时间: 2010-7-20 17:00
這要怎麼用??
有詳細教學嗎?

---

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

Powered by Discuz! X3.1