汉之云脚本编写简明教程

vbvan

汉之云脚本研究（附带MOD制作工具）
http://game.ali213.net/thread-1857825-1-4.html

建议大家在编写脚本之前先认真阅读一下原始的脚本代码，以便能够更好的理解整个游戏系统和如何实现各种效果。
下面就结合原始的脚本代码，介绍一下如何编写自己的MOD脚本。

首先，先来看一下原始的脚本文件各自的功能：

main目录
0000?：基础函数库
002??：主线序章
003??：主线第一章
004??：主线第二章
005??：主线第三章
006??：主线第四章
1000?：游戏基本元素
101??：普通支线剧情
108??：其它剧情（商人/迷宫/DOMO）
109??：伙伴支线剧情
110??：场景切换

fight目录
F001：基础函数
F002：普通战斗
F003：伙伴剧情战斗
F004：支线剧情战斗
F005：主线剧情战斗

一、基础修改

我们以“存档点”部分的代码为例，详细解析一下如何实现最基本的修改
打开10000c.lua，我们可以找到如下的代码：

1. restore_motion = function()
   
2.    local mainid = get_mainrole()
   
3.    local mainname = get_rolename(mainid)
   
4.    restore_team()
   
5.    msginfo("全身籠罩一股清風")
   
6. end
   
7. 
   
8. restore_save = function()
   
9.    restore_motion()
   
10.    restore_save_q()
    
11. end
    
12. 
    
13. restore_save_q = function()
    
14.    selmsg(2, "選項：")
    
15.    setselect(1, "1.存檔")
    
16.    setselect(2, "2.取消")
    
17.    sleep(3)
    
18.    waitanykey()
    
19.    restore_save_ans(getselectanwser())
    
20. end
    
21. 
    
22. restore_save_ans = function(x)
    
23.    local mainid = get_mainrole()
    
24.    local mainname = get_rolename(mainid)
    
25.    if x == 1 then
    
26.       call_save()
    
27.    elseif x == 2 then
    
28.       restore_team()
    
29.    else
    
30.       restore_save_q()
    
31.    end
    
32. end

复制代码

当我们在存档点按空格键时，就会触发restore_save函数（具体参见10803c.lua中的t7901函数）
它一共做了两件事情。第一，调用restore_motion函数恢复全员的状态；第二，就是弹出选择框，提示你是否需要存档。
弹出对话框的函数是selmsg。它有两个参数，第一个指定对话框中有多少个选择项，第二个是对话框的标题
你可以使用setselect设置选择项的具体内容，getselectanswer函数用于获取用户的选择。
之后你就可以在restore_save_ans里根据用户的选择进行相应的处理了
在支线剧情中，我们会经常看到选择框的身影

这里我给出一个修改的实例，大家可以借此熟悉一下lua脚本的语法（if、for、数组）和汉之云提供的一些函数（additem、addsprite、addmoney分别用于增加物品、怪物和金钱，join用于加入队员）

1. restore_save_q = function()
   
2.    selmsg(3, "選項：")
   
3.    setselect(1, "1.存檔")
   
4.    setselect(2, "2.作弊")
   
5.    setselect(3, "3.取消")
   
6.    sleep(3)
   
7.    waitanykey()
   
8.    restore_save_ans(getselectanwser())
   
9. end
   
10. 
    
11. restore_cheat_q = function()
    
12.    selmsg(6, "選項：")
    
13.    setselect(1, "1.怪物")
    
14.    setselect(2, "2.物品")
    
15.    setselect(3, "3.裝備")
    
16.    setselect(4, "4.金錢")
    
17.    setselect(5, "5.隊伍")
    
18.    setselect(6, "6.取消")
    
19.    sleep(3)
    
20.    waitanykey()
    
21.    restore_cheat_ans(getselectanwser())
    
22. end
    
23. 
    
24. restore_cheat_ans = function(x)
    
25.    local mainid = get_mainrole()
    
26.    local mainname = get_rolename(mainid)
    
27.    if x == 1 then
    
28.       local mon = {17, 14, 15, 15, 16, 16, 14, 12, 7, 6}
    
29.       local a = table.getn(mon)
    
30.       for i = 1, a do
    
31.          for j = 1, mon[i] do
    
32.             addsprite(i * 100 + 900 + j, 1)
    
33.          end
    
34.       end
    
35.    elseif x == 2 then
    
36.       for i = 6001, 6028 do
    
37.          if i ~= 6024 then
    
38.             additem(i, 99)
    
39.          end
    
40.       end
    
41.       for i = 6039, 6046 do
    
42.          if i ~= 6040 then
    
43.             additem(i, 99)
    
44.          end
    
45.       end
    
46.    elseif x == 3 then
    
47.       local i1 = {3001, 3018, 3021, 3041, 3061, 3081, 3101, 4001, 4021, 4041, 5001, 5051}
    
48.       local i2 = {3016, 3018, 3034, 3055, 3074, 3090, 3109, 4011, 4030, 4051, 5024, 5063}
    
49.       local a = table.getn(i1)
    
50.       local b = table.getn(i2)
    
51.       local num = 11
    
52.       if a == b then
    
53.          for i = 1, a do
    
54.             for j = i1[i], i2[i] do
    
55.                additem(j, num)
    
56.             end
    
57.          end
    
58.       end
    
59.    elseif x == 4 then
    
60.       addmoney(1000000)
    
61.    elseif x == 5 then
    
62.       for i = 1, 11 do
    
63.          join(i)
    
64.       end
    
65.    elseif x == 6 then
    
66.    else
    
67.       restore_cheat_q()
    
68.    end
    
69. end
    
70. 
    
71. restore_save_ans = function(x)
    
72.    local mainid = get_mainrole()
    
73.    local mainname = get_rolename(mainid)
    
74.    if x == 1 then
    
75.       call_save()
    
76.    elseif x == 3 then
    
77.       restore_team()
    
78.    elseif x == 2 then
    
79.       restore_cheat_q()
    
80.    else
    
81.       restore_save_q()
    
82.    end
    
83. end

复制代码

二、剧情修改
剧情修改相对比较复杂，所以我们先从人物对话开始介绍。
下面是飞羽军营中和“徐豐”对话的相应代码（简化过了）：

1. t341 = function()
   
2.    local mainid = get_mainrole()
   
3.    local mainname = get_rolename(mainid)
   
4.    chang_role_dir_torole(mainid, 341, 0)
   
5.    lock_player(1)
   
6.    set_watch_each(mainid, 341)
   
7.    if isfon(1002) == 1 and isfon(1017) == 0 then
   
8.       local a = random(2)
   
9.       if a == 0 then
   
10.          facetotalk(341, "徐豐", "聽說供應曹賊糧草的是在邽嶺山中的砦堡！")
    
11.       else
    
12.          facetotalk(341, "徐豐", "邽嶺就在我軍營外幾里處。")
    
13.       end
    
14.    else
    
15.       if isfon(1017) == 1 and isfon(1053) == 0 then
    
16.          facetotalk(341, "徐豐", "我們的補給從漢中運來，路途遙遠。不像曹賊，邽嶺以北幾乎是援助他們的砦堡。")
    
17.       else
    
18.          if isfon(1101) == 1 and isfon(1151) == 0 then
    
19.             facetotalk_noback(341, "徐豐", "我們現在就在賊將郭淮、費曜駐守的上邽城外。")
    
20.             chatinfo(341, "徐豐", "料想他們怎麼也想不到，我們飛羽部隊會在這地方。")
    
21.             chang_role_dir(341, 0, 1)
    
22.          end
    
23.       end
    
24.    end
    
25.    lock_player(0)
    
26.    set_watch_back(mainid, 341)
    
27. end

复制代码

我们可以看到，和NPC对话之前通常会作两件事情：
第一，调用chang_role_dir_torole，使得NPC朝向主角；第二，调用lock_player将主角锁定
然后就是一长串根据isfon的if...else...了。
isfon是is flag on的缩写。每当我们进行一次对话，完成一次任务的时候，系统都会使用fon函数进行记录。之后就可以使用isfon来判断对话是否发生，任务是否完成，等等。
这里，我们和"徐豐"对话的时候，系统会根据flag的值来推断玩家目前处于剧情的哪个阶段，并显示相应的对话
（比如，游戏一开始，和多聞使对话之后就会设置1002这个flag）

isfon和fon对于主线或者支线的剧情非常重要。可以说是我们制作MOD剧情必不可少的函数
譬如，我们完成NPC交待的任务，返回领取奖励的时候，系统就会根据flag来测试相应任务是否完成。

[ 本帖最后由 vbvan 于 2008-1-13 12:51 编辑 ]

no4pt

到底是封装到高级了，怪简单。闭包+面向过程函数式，没有OO嘛

oY忆江南Yo

看到代码之后两眼一抹黑！我要昏倒了！

静若澜泉

哪位高手指点一下 怎样在游戏后期把游兆调出来呀？！！

xcz1984

太难了，只能支持了。。。。。。。。。。。。。。。。。。。。。

hunterybj

赞，技术贴

一直想可以自己修改剧情，终于有人值了条明路了

定一个

solomleee

van大的好东东，顶起!!

yost0120

好强大 不过看不太懂 纯支持了... - -b

ctking

一直在玩FFX的模拟器,好久没来仙剑区了.
看到神帖,再顶一下.

peter824

神贴，不懂编程的最好别去乱改。。

dacdog

盼望自定剧情早点出来 [舒服] [舒服] [舒服]

大雄QQ

参数的设定
平衡最重要@@@

镜头做好了一遍就可以了@

brenda_st

[害怕]
我那点底子阿。。。
怎么混。。。

小蚊子

啥.......C++一样么

kof-zly

对van大顶礼膜拜......

xlt1987

好强大的帖子啊,顶上

x_t_j

这样的话，单个人能做的不过就是改几个道具数值，让游戏比较容易一些。
至于修改剧情这么复杂的活，没有团队组织分工好像不现实啊。

PS:Lua语言就是C和basic的杂糅么？看着有一种似曾相识的感觉……

darkarthas

完全看不懂  OY   
不过还是很佩服阿  

iamchenchao

我是专程进来膜拜van大的   

shevacy

学习学习学习学习学习学习学习学习学习学习学习学习学习学习学习学习学习学习学习学习学习学习学习学习学习学习