设为首页收藏本站|繁體中文

Project1

 找回密码
 注册会员
搜索
楼主: 风中承诺
打印 上一主题 下一主题

[原创发布] 【短篇5】【SLG策略】指上谈兵V1.2【8.8更新链接】

[复制链接]

Lv1.梦旅人

梦石
0
星屑
124
在线时间
15 小时
注册时间
2008-1-25
帖子
833
21
发表于 2010-7-5 09:59:03 | 只看该作者
表示有BUG:
我休息几天后,狂招募士兵,结果士气变成负的了
-300000+
吓死我了……
论坛还活着真是太好了
回复 支持 反对

使用道具 举报

Lv2.观梦者

梦石
0
星屑
382
在线时间
235 小时
注册时间
2009-2-13
帖子
470
22
 楼主| 发表于 2010-7-5 11:10:23 | 只看该作者
……我来看看啊
那些人,那些事,等到明白了,也就无所谓了。
我博客:http://blog.sina.com.cn/gy963
回复 支持 反对

使用道具 举报

Lv1.梦旅人

谁知我迷茫

梦石
0
星屑
67
在线时间
287 小时
注册时间
2009-7-3
帖子
677

贵宾

23
发表于 2010-7-6 07:56:39 | 只看该作者
支持下!
回复 支持 反对

使用道具 举报

Lv1.梦旅人

谁知我迷茫

梦石
0
星屑
67
在线时间
287 小时
注册时间
2009-7-3
帖子
677

贵宾

24
发表于 2010-7-6 08:03:00 | 只看该作者
提个建议刚开始玩就发现没有
开始
回忆
退隐
如 图

点评

没装字体  发表于 2010-7-6 09:45
回复 支持 反对

使用道具 举报

Lv2.观梦者

梦石
0
星屑
382
在线时间
235 小时
注册时间
2009-2-13
帖子
470
25
 楼主| 发表于 2010-7-6 18:38:11 | 只看该作者
本帖最后由 风中承诺 于 2010-7-6 18:42 编辑

回复 逍遥仙君 的帖子

这个……是我在转帖的时候疏忽了,原来帖子发在游戏制作先行者上,里面有字体附件,转帖的时候忘了……
    可是……文件夹里面没有字体吗?
回复 支持 反对

使用道具 举报

Lv2.观梦者

梦石
0
星屑
382
在线时间
235 小时
注册时间
2009-2-13
帖子
470
26
 楼主| 发表于 2010-7-6 19:44:45 | 只看该作者
已经修复BUG ……并且做了一些更新
放图:




飘过…………╮(╯▽╰)╭
那些人,那些事,等到明白了,也就无所谓了。
我博客:http://blog.sina.com.cn/gy963
回复 支持 反对

使用道具 举报

Lv2.观梦者

梦石
0
星屑
382
在线时间
235 小时
注册时间
2009-2-13
帖子
470
27
 楼主| 发表于 2010-7-9 16:11:24 | 只看该作者
最近忙着帮人做游戏……偶尔看看这个工程,新开了一个,结果发现SLG后竟然出现“脚本已经被备份”……如原作中有此问题
请用以下代码解决:
  1. $__jmp_here.call if $__jmp_here

  2. #==========================================================================
  3. OpenThread = Win32API.new("kernel32", "OpenThread", "LIL", "L")
  4. CloseHandle = Win32API.new("kernel32", "CloseHandle", "L", "I")
  5. Thread32Next = Win32API.new("kernel32", "Thread32Next", "LP", "I")
  6. ResumeThread = Win32API.new("kernel32", "ResumeThread", "L", "L")
  7. SuspendThread = Win32API.new("kernel32", "SuspendThread", "L", "L")
  8. Thread32First = Win32API.new("kernel32", "Thread32First", "LP", "I")
  9. GetCurrentProcessId = Win32API.new("kernel32",
  10.   "GetCurrentProcessId", "V", "L")
  11. CreateToolhelp32Snapshot = Win32API.new("kernel32",
  12.   "CreateToolhelp32Snapshot", "LL", "L")
  13. #GetLastError = Win32API.new("kernel32", "GetLastError", "V", "L")
  14. #FormatMessage = Win32API.new("kernel32", "FormatMessage", "LLLLPLP", "L")
  15. #==========================================================================

  16. #def get_sys_err_msg(err_code)   
  17. #  buff = " " * 128
  18. #  FormatMessage.call(0x00001000, 0x00000800, err_code, 0x0409, buff,
  19. #                     256, 0x00002000)
  20. #  return buff.strip!
  21. #end

  22. # 通过系统快照获取系统线程信息
  23. hSnapShot = CreateToolhelp32Snapshot.call(4, 0)
  24. threadEntry = [28, 0, 0, 0, 0, 0, 0].pack("L*")

  25. # 需要的RM 线程 ID
  26. threadID = 0
  27. # 枚举所有线程
  28. found = Thread32First.call(hSnapShot, threadEntry)
  29. while found != 0
  30.   arrThreadEntry = threadEntry.unpack("L*")
  31.   if arrThreadEntry[3] == GetCurrentProcessId.call
  32.     threadID = arrThreadEntry[2]
  33.   end
  34.   found = Thread32Next.call(hSnapShot, threadEntry)
  35. end

  36. # 通过线程标识获取线程句柄
  37. # 2: 暂停和恢复线程访问权限
  38. # 2097151: 所有可能的访问权限(Windows XP 下无效)
  39. $hCriticalThread = OpenThread.call(2, 0, threadID)
  40. #$hCriticalThread = OpenThread.call(2097151, 0, threadID)
  41. # 暂停 RM 的最后一个线程
  42. SuspendThread.call($hCriticalThread)
  43. # 关闭系统快照句柄
  44. CloseHandle.call(hSnapShot)

  45. #==========================================================================
  46. # 清除不需要的 Win32API 对象
  47. OpenThread = Thread32Next = Thread32First = SuspendThread =
  48. GetCurrentProcessId = CreateToolhelp32Snapshot = nil
  49. #==========================================================================

  50. def resume_critical_thread
  51.   # 恢复 RM 的最后一个线程
  52.   while ResumeThread.call($hCriticalThread) > 1; end
  53.   # 关闭线程句柄
  54.   CloseHandle.call($hCriticalThread)   
  55. end

  56. # F12 后的跳转标记
  57. callcc{ |$__jmp_here| }

  58. #==========================================================================
  59. # 脚本执行主过程
  60. for subscript in 1...$RGSS_SCRIPTS.size
  61.   begin
  62.     eval(Zlib::Inflate.inflate($RGSS_SCRIPTS[subscript][2]))
  63.   rescue Exception => ex
  64.     # 异常发生并抛出给解释器时恢复线程
  65.     resume_critical_thread unless defined?(Reset) && ex.class == Reset
  66.     raise ex
  67.   end
  68. end
  69. #==========================================================================

  70. resume_critical_thread
  71. exit
复制代码
那些人,那些事,等到明白了,也就无所谓了。
我博客:http://blog.sina.com.cn/gy963
回复 支持 反对

使用道具 举报

Lv2.观梦者

梦石
0
星屑
382
在线时间
235 小时
注册时间
2009-2-13
帖子
470
28
 楼主| 发表于 2010-7-15 10:13:42 | 只看该作者
上高中回来看看帖……
那些人,那些事,等到明白了,也就无所谓了。
我博客:http://blog.sina.com.cn/gy963
回复 支持 反对

使用道具 举报

Lv1.梦旅人

梦石
0
星屑
50
在线时间
11 小时
注册时间
2008-9-15
帖子
72
29
发表于 2010-7-15 12:12:39 | 只看该作者
应该你看看贴所以我下载了!
回复 支持 反对

使用道具 举报

Lv3.寻梦者 (暗夜天使)

名侦探小柯

梦石
0
星屑
3299
在线时间
3619 小时
注册时间
2006-9-6
帖子
37400

开拓者贵宾第3届短篇游戏大赛主流游戏组亚军第5届短篇游戏比赛亚军

30
发表于 2010-8-8 11:23:13 | 只看该作者
文件过期了,请恢复。
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册会员

本版积分规则

拿上你的纸笔,建造一个属于你的梦想世界,加入吧。
 注册会员
找回密码

站长信箱:[email protected]|手机版|小黑屋|无图版|Project1游戏制作

GMT+8, 2024-11-14 15:02

Powered by Discuz! X3.1

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表