关于出神龙岛的改变

本紫(zhaoziyu@tj)

<!-- Produced by MUSHclient v 4.84 - www.mushclient.com -->

<font size=2 face="黑体, FixedSys, Lucida Console, Courier New, Courier"> 渡口 - north、northeast、northwest   地煞门女杀手 宝燕(Bao yan)   天杀门杀手 本冯(Ben feng)   神龙教第三代弟子 船夫(Chuan fu)   天杀门女杀手 灭美(Mie mei)   天杀门杀手 灭慧(Mie hui) > 对方不接受这样东西。 船夫对你说道：「我正忙着呢。」 > 对方不接受这样东西。 船夫对你说道：「我正忙着呢。」 > 船夫说道：「既然有神龙教通行令牌，我这就带你上船！」 宋江给船夫一块通行令牌。 对方不接受这样东西。 船夫对你说道：「我正忙着呢。」 > 对方不接受这样东西。 船夫对你说道：「我正忙着呢。」 > 对方不接受这样东西。 船夫对你说道：「我正忙着呢。」 > 对方不接受这样东西。 船夫对你说道：「我正忙着呢。」 > 船夫说道：「既然有神龙教通行令牌，我这就带你上船！」 你给船夫一块通行令牌。 > 船夫对你说道：「海上风大，一切小心！」 你纵身一跃，上了飞剪快船。

本紫(zhaoziyu@tj)

在出神龙岛的时候，人一多，反反复复去偷令牌，中间还要等待，很是麻烦。我作了一下修改，实测可用。
lujing.lua
function outSld()
    if score.party and score.party=="神龙教" then
       exe('ask lu gaoxuan about ling pai')
    else
       exe('steal lingpai')
    end
    check_busy(outSldGive)
end
function outSldGive()
    wait.make(function()
       wait.time(2)
    exe('out;#3s;give ling pai to chuan fu')
    check_busy(outSldWait,3)
    end)
end
function outSldWait()
    wait.make(function()
       wait.time(6)
    locate()
    check_busy(outSldCheck)
    end)
end
function outSldCheck()
    if locl.room=="渡口" then
       exe('#3n;enter')                          ----------------这是公版的内容
       return outSld()
    else
           --cntr1 = countR(20)
       return walk_wait()
    end
end
function outSldBoat()
    if cntr1() < 1 then
           return go(road.act)
        end
    exe('order 开船')
    locate()
    return check_halt(outSldBoatCheck)
end
function outSldBoatCheck()
    if locl.room=="海滩" then
       return outSldOver()
    else
       return checkWait(outSldBoat,3)
    end
end
function outSldOver()
    walk_wait()
end
用下面红色部分，直接把以上内容盖掉。
function outSld()
    if score.party and score.party=="神龙教" then
       exe('ask lu gaoxuan about ling pai')
    else
       exe('steal lingpai')
    end
    check_busy(outSldGive_test)
end
outSldGive_test=function()
DeleteTriggerGroup("outSldGive_test")
create_trigger_t('outSldGive_test1','^(> )*你给船夫一块通行令牌。','','outSldWait')
SetTriggerOption("outSldGive_test1","group","outSldGive_test")
EnableTriggerGroup("outSldGive_test",true)
outSldGive()
end
outSldGive=function()
    exe('out;#3s;give ling pai to chuan fu')
        create_timer_s('walkWait4',1.0,'sld_duko_test')      -------这里1秒可改成2秒，看自己情况而定。
end
sld_duko_test=function()
exe('give ling pai to chuan fu')
end
function outSldWait()
EnableTriggerGroup("outSldGive_test",false)
EnableTimer('walkWait4',false)
    wait.make(function()
       wait.time(6)
    locate()
    check_busy(outSldCheck)
    end)
end
function outSldCheck()
    if locl.room=="渡口" then
       exe('#3n;enter')
       return outSld()
    else
           --cntr1 = countR(20)
       return walk_wait()
    end
end
function outSldBoat()
    if cntr1() < 1 then
           return go(road.act)
        end
    exe('order 开船')
    locate()
    return check_halt(outSldBoatCheck)
end
function outSldBoatCheck()
    if locl.room=="海滩" then
       return outSldOver()
    else
       return checkWait(outSldBoat,3)
    end
end
function outSldOver()
    walk_wait()
end

本紫(zhaoziyu@tj)

说明一下，就是用计时器的方式给船夫令牌，不用再跑来跑去的偷了，有可能哈，在别人跑去再偷令牌的时候，你就上船了，哈哈

叶孤诚(louistl@tj)

厉害，厉害，一会去改了去。

本怜(lianhua@tj)

太好了正烦这个呢就解决了

本翁(btqq@tj)

我也刚刚改好了。。。。。

本紫(zhaoziyu@tj)

btqq@tj 发表于 2019-7-2 19:41
我也刚刚改好了。。。。。

你好久都不露面了，你练了个em号么？

大象无形(xlang@tj)

这个改动很好                           

大象无形(xlang@tj)

但是我担心大家都改成这样，那个船夫会否一直处于busy状态呢？

本紫(zhaoziyu@tj)

xlang@tj 发表于 2019-7-2 21:56
但是我担心大家都改成这样，那个船夫会否一直处于busy状态呢？

所以只能发在本门派啊，都这么改就乱套了