【短篇5】【SLG策略】指上谈兵V1.2【8.8更新链接】

空气

表示有BUG：
我休息几天后，狂招募士兵，结果士气变成负的了
-300000+
吓死我了……

风中承诺

……我来看看啊

逍遥仙君

支持下！

逍遥仙君

提个建议刚开始玩就发现没有
开始
回忆
退隐
如 图

风中承诺

回复 逍遥仙君 的帖子

这个……是我在转帖的时候疏忽了，原来帖子发在游戏制作先行者上，里面有字体附件，转帖的时候忘了……
    可是……文件夹里面没有字体吗？

风中承诺

已经修复BUG ……并且做了一些更新
放图：




飘过…………╮(╯▽╰)╭

风中承诺

最近忙着帮人做游戏……偶尔看看这个工程，新开了一个，结果发现SLG后竟然出现“脚本已经被备份”……如原作中有此问题
请用以下代码解决：

1. $__jmp_here.call if $__jmp_here
   
2. 
   
3. #==========================================================================
   
4. OpenThread = Win32API.new("kernel32", "OpenThread", "LIL", "L")
   
5. CloseHandle = Win32API.new("kernel32", "CloseHandle", "L", "I")
   
6. Thread32Next = Win32API.new("kernel32", "Thread32Next", "LP", "I")
   
7. ResumeThread = Win32API.new("kernel32", "ResumeThread", "L", "L")
   
8. SuspendThread = Win32API.new("kernel32", "SuspendThread", "L", "L")
   
9. Thread32First = Win32API.new("kernel32", "Thread32First", "LP", "I")
   
10. GetCurrentProcessId = Win32API.new("kernel32",
    
11.   "GetCurrentProcessId", "V", "L")
    
12. CreateToolhelp32Snapshot = Win32API.new("kernel32",
    
13.   "CreateToolhelp32Snapshot", "LL", "L")
    
14. #GetLastError = Win32API.new("kernel32", "GetLastError", "V", "L")
    
15. #FormatMessage = Win32API.new("kernel32", "FormatMessage", "LLLLPLP", "L")
    
16. #==========================================================================
    
17. 
    
18. #def get_sys_err_msg(err_code)   
    
19. #  buff = " " * 128
    
20. #  FormatMessage.call(0x00001000, 0x00000800, err_code, 0x0409, buff,
    
21. #                     256, 0x00002000)
    
22. #  return buff.strip!
    
23. #end
    
24. 
    
25. # 通过系统快照获取系统线程信息
    
26. hSnapShot = CreateToolhelp32Snapshot.call(4, 0)
    
27. threadEntry = [28, 0, 0, 0, 0, 0, 0].pack("L*")
    
28. 
    
29. # 需要的RM 线程 ID
    
30. threadID = 0
    
31. # 枚举所有线程
    
32. found = Thread32First.call(hSnapShot, threadEntry)
    
33. while found != 0
    
34.   arrThreadEntry = threadEntry.unpack("L*")
    
35.   if arrThreadEntry[3] == GetCurrentProcessId.call
    
36.     threadID = arrThreadEntry[2]
    
37.   end
    
38.   found = Thread32Next.call(hSnapShot, threadEntry)
    
39. end
    
40. 
    
41. # 通过线程标识获取线程句柄
    
42. # 2: 暂停和恢复线程访问权限
    
43. # 2097151: 所有可能的访问权限（Windows XP 下无效）
    
44. $hCriticalThread = OpenThread.call(2, 0, threadID)
    
45. #$hCriticalThread = OpenThread.call(2097151, 0, threadID)
    
46. # 暂停 RM 的最后一个线程
    
47. SuspendThread.call($hCriticalThread)
    
48. # 关闭系统快照句柄
    
49. CloseHandle.call(hSnapShot)
    
50. 
    
51. #==========================================================================
    
52. # 清除不需要的 Win32API 对象
    
53. OpenThread = Thread32Next = Thread32First = SuspendThread =
    
54. GetCurrentProcessId = CreateToolhelp32Snapshot = nil
    
55. #==========================================================================
    
56. 
    
57. def resume_critical_thread
    
58.   # 恢复 RM 的最后一个线程
    
59.   while ResumeThread.call($hCriticalThread) > 1; end
    
60.   # 关闭线程句柄
    
61.   CloseHandle.call($hCriticalThread)   
    
62. end
    
63. 
    
64. # F12 后的跳转标记
    
65. callcc{ |$__jmp_here| }
    
66. 
    
67. #==========================================================================
    
68. # 脚本执行主过程
    
69. for subscript in 1...$RGSS_SCRIPTS.size
    
70.   begin
    
71.     eval(Zlib::Inflate.inflate($RGSS_SCRIPTS[subscript][2]))
    
72.   rescue Exception => ex
    
73.     # 异常发生并抛出给解释器时恢复线程
    
74.     resume_critical_thread unless defined?(Reset) && ex.class == Reset
    
75.     raise ex
    
76.   end
    
77. end
    
78. #==========================================================================
    
79. 
    
80. resume_critical_thread
    
81. exit

复制代码

风中承诺

上高中回来看看帖……

皮卡猫

应该你看看贴所以我下载了!

越前リョーマ

文件过期了，请恢复。