书籍 求助

novarain

原版那五本書的處理是寫死在引擎內的，用物品附加腳本的方式沒辦法繞過，你可以用HOOK_USEOBJ接手整個程序然後重寫一份新的處理方式。

novarain

我不知道你做了什麼，不過書的腳本我偷閒時試著寫了一下，看來不算複雜。

novarain

那是命令行工具，直接執行是沒有用的。

novarain

基本一些的就在命令行下：compile.exe -p -O2 你的.ssl

如果你修改的原始腳本是用短路求值邏輯寫的那再加上-s，編譯有問題就照錯誤訊息去找出錯的行數修bug。

novarain

這是我寫的腳本框架，你可以自己加上想要的技能提升邏輯。

1. #include ".\headers\define.h"
   
2. #include ".\headers\command.h"
   
3. #include ".\headers\sfall\sfall.h"
   
4. 
   
5. #define BOOK_BONUS    (5)
   
6. 
   
7. procedure start;
   
8. procedure UseObjHandler;
   
9. 
   
10. procedure UseObjHandler begin
    
11.    variable
    
12.       user  := get_sfall_arg,
    
13.       obj   := get_sfall_arg,
    
14.       skill := -1,
    
15.       bonus := BOOK_BONUS,
    
16.       msg, skLevel;
    
17. 
    
18.    if (obj_item_subtype(obj) == item_type_misc_item) then begin
    
19.       switch obj_pid(obj) begin
    
20.       case PID_BIG_BOOK_OF_SCIENCE:
    
21.          skill := SKILL_SCIENCE;
    
22.          msg := 802;
    
23.       case PID_DEANS_ELECTRONICS:
    
24.          skill := SKILL_REPAIR;
    
25.          msg := 803;
    
26.       case PID_FIRST_AID_BOOK:
    
27.          skill := SKILL_FIRST_AID;
    
28.          msg := 804;
    
29.       case PID_SCOUT_HANDBOOK:
    
30.          skill := SKILL_OUTDOORSMAN;
    
31.          msg := 806;
    
32.       case PID_GUNS_AND_BULLETS:
    
33.          skill := SKILL_SMALL_GUNS;
    
34.          msg := 805;
    
35.       end
    
36. 
    
37.       // read book
    
38.       if (skill != -1) then begin
    
39.          if combat_is_initialized then begin
    
40.             display_msg(mstr_proto(902));
    
41.             set_sfall_return(0);
    
42.             return;
    
43.          end
    
44. 
    
45.          skLevel := has_skill(dude_obj, skill);
    
46. 
    
47.          // custom skill increment logic begin
    
48. 
    
49. 
    
50.          // custom skill increment logic end
    
51. 
    
52.          gfade_out(1);
    
53.          game_time_advance(ONE_GAME_HOUR * (11 - dude_iq));
    
54.          exec_map_update_scripts;
    
55.          gfade_in(1);
    
56.          display_msg(mstr_proto(800));
    
57.          if (has_skill(dude_obj, skill) == skLevel) then begin
    
58.             msg := 801;
    
59.          end
    
60.          display_msg(mstr_proto(msg));
    
61.          set_sfall_return(1); // remove
    
62.       end
    
63.    end
    
64. end
    
65. 
    
66. procedure start begin
    
67.    if game_loaded then begin
    
68.       register_hook_proc(HOOK_USEOBJ, UseObjHandler);
    
69.    end
    
70. end
    

复制代码