同时求问K大，关于给这个玩家上12，heal怎么做，其实我想更优化一点。
automacro a {delay 2console /你已坐下./call {do ignore 1 allif (@invamount (蓝色魔力矿石) == 0) goto qkpause 1do chat create "冰洞3k|企业2k|拉赫2.5k 自己交易" 2 0 Maple# A, B, C, D = 聊天室名字pause 1do sitstop
:qklock alock block clock dlock elock fdo chat create "冰洞3k|企业2k|拉赫2.5k 直接交易买票" 2 0 Mapledo sitstop}
}
automacro b {console /玩家 (.*?) \(等级 (\d*)\) 请求交易/call {do deal$name = $.lastMatch1$bufs = $.lastMatch1do chat modify "$name 买票中,请稍后" 2 0 Maplepause 1do pm "$name" "你好, 冰洞3k|企业2k|拉赫2.5k 请输入正确金额买票"pause 3#10秒后该玩家无反应则取消交易do dealpause 2do dealpause 3do deal no
stop}}
automacro c {console /玩家 ^(.*) 往交易栏上放入了: (.*) x(.*)$/icall {if ($.lastMatch2 != "蓝色魔力矿石") goto end#如果交易对象在放入蓝色魔力矿石10秒后无动作则取消交易pause 10do deal nostop:end#如果该玩家放入其他道具则取消交易do deal nostop}}
automacro d {console /玩家 (.*) 往交易栏放入了 (.*) Z/call {$a = $.lastMatch2if ($a == 3,000) goto bbif ($a == 2,000) goto bbif ($a == 2,500) goto bb#3个传点的价格必须不同否则会出错pause 2#如果交易时玩家给于的金额不等于以上价格则取消交易do deal nostop:bbpause 1do dealpause 1do deal#10秒后该玩家无反应则取消交易pause 10do deal nostop}}
automacro e {console /^你得到了 (.+?) Z.$/call {lock block ddo chat leavepause 1do e 10$a = $.lastMatch1if ($a == 3,000) goto a1if ($a == 2,000) goto b2if ($a == 2,500) goto c3#3个传点的价格必须不同否则会出错且和上面一样:a1call warp1stop:b2call warp2stop:c3call warp3stoprelease all}}
macro warp1 {do eval open(FILE, ">>", Settings::getControlFilename("recorder.txt")); print FILE "冰洞-3000 \n"; close FILE;# 将传送日志记录进recorder.txt,记录传点-> A# B,C,D也会记录的
$aa1 = @Invamount (蓝色魔力矿石)#传送之前记录蓝石数量$x = @arg("$.pos", 1)$y = @arg("$.pos", 2)$x0 = @eval($x + @rand(1,3))$x1 = @eval($x - @rand(1,3))$y0 = @eval($y - @rand(1,3))do sl 27 @random("$x0", "$x1") $y0pause 2do warp ra_fild01#地图名 a = ra_fild01pause 4$aa2 = @Invamount (蓝色魔力矿石)#传送之后记录蓝石数量if ($aa1 == $aa2) goto ax#如果传送之前和传送之后蓝石数量一致则重新来过stop
:axdo eval open(FILE, ">>", Settings::getControlFilename("recorder.txt")); print FILE "[ERROR]冰洞-3000(失败) \n"; close FILE;#如果经常出现传送失败的日志则你应该换个点做生意了pause 2do c 哎呀o(）＾）)o，好像出问题了pause 1do c 让我再试一次吧...pause 1do e 79call axx#执行重试脚本axxstop}
macro axx {call warp1#执行重试脚本warp1}
macro warp2 {do eval open(FILE, ">>", Settings::getControlFilename("recorder.txt")); print FILE "企业-2000 \n"; close FILE;$bb1 = @Invamount (蓝色魔力矿石)$x = @arg("$.pos", 1)$y = @arg("$.pos", 2)$x0 = @eval($x + @rand(1,3))$x1 = @eval($x - @rand(1,3))$y0 = @eval($y - @rand(1,3))do sl 27 @random("$x0", "$x1") $y0pause 2do warp veinspause 4$bb2 = @Invamount (蓝色魔力矿石)if ($bb1 == $bb2) goto bxstop
:bxdo eval open(FILE, ">>", Settings::getControlFilename("recorder.txt")); print FILE "[ERROR]企业-2000(失败) \n"; close FILE;pause 2do c 哎呀o(）＾）)o，好像出问题了pause 1do c 让我再试一次额=.=pause 1do e 78call bxxstop}
macro bxx {call warp2}
macro warp3 {do eval open(FILE, ">>", Settings::getControlFilename("recorder.txt")); print FILE "拉赫-2500 \n"; close FILE;$cc1 = @Invamount (蓝色魔力矿石)$x = @arg("$.pos", 1)$y = @arg("$.pos", 2)$x0 = @eval($x + @rand(1,3))$x1 = @eval($x - @rand(1,3))$y0 = @eval($y - @rand(1,3))do sl 27 @random("$x0", "$x1") $y0pause 2do warp rachelpause 4$cc2 = @Invamount (蓝色魔力矿石)if ($cc1 == $cc2) goto cxstop
:cxdo eval open(FILE, ">>", Settings::getControlFilename("recorder.txt")); print FILE "[ERROR]拉赫(失败) \n"; close FILE;pause 2do c 哎呀o(）＾）)o，好像出问题了pause 1do c 让我再试一次嘛= =pause 1do e 77call cxxstop}
macro cxx {call warp3}
automacro f {console /你在\((.*), (.*)\) 开了个传送阵/call {do eval open(FILE, ">>", Settings::getControlFilename("recorder.txt")); print FILE "-------------- \n"; close FILE;do c @random("$name""感谢您的惠顾!","$name""时间就是金钱我的朋友!","$name""去吧!","$name""欢迎下次光临!","$name" "主教的灵魂在护佑着你!")
if (@invamount (蓝色魔力矿石) == 0) goto qkpause 3do chat create "冰洞3k|企业2k|拉赫2.5k 直接交易买票" 2 0 Maplerelease brelease dpause 3do sitstop:qklock alock block clock dlock elock fdo chat create "冰洞3k|企业2k|拉赫2.5k 直接交易买票" 2 0 Mapledo sitstop}}
automacro debugA {console /(.*) \((\d+)\): 你获得了 (.*) Zeny./ipriority 1call {$i = $.lastMatch2if ("$i" != "") goto ok:okrelease allstop}}
automacro debugB {console /(从: (.*)) 那里: 你获得了 (.*) Zeny./ipriority 1call {$i = $.lastMatch2if ("$i" != "") goto ok:okrelease allstop}}
automacro dealcancelled {console /^交易已取消$/idelay 1call {do chat modify "冰洞3k|企业2k|拉赫2.5k 直接交易买票" 2 0 Maple
do sitrelease all}}
automacro a {delay 2console /你已坐下./call {do ignore 1 allif (@invamount (蓝色魔力矿石) == 0) goto qkpause 1do chat create "冰洞3k|企业2k|拉赫2.5k 自己交易" 2 0 Maple# A, B, C, D = 聊天室名字pause 1do sitstop
:qklock alock block clock dlock elock fdo chat create "冰洞3k|企业2k|拉赫2.5k 直接交易买票" 2 0 Mapledo sitstop}
}
automacro b {console /玩家 (.*?) \(等级 (\d*)\) 请求交易/call {do deal$name = $.lastMatch1$bufs = $.lastMatch1do chat modify "$name 买票中,请稍后" 2 0 Maplepause 1do pm "$name" "你好, 冰洞3k|企业2k|拉赫2.5k 请输入正确金额买票"pause 3#10秒后该玩家无反应则取消交易do dealpause 2do dealpause 3do deal no
stop}}
automacro c {console /玩家 ^(.*) 往交易栏上放入了: (.*) x(.*)$/icall {if ($.lastMatch2 != "蓝色魔力矿石") goto end#如果交易对象在放入蓝色魔力矿石10秒后无动作则取消交易pause 10do deal nostop:end#如果该玩家放入其他道具则取消交易do deal nostop}}
automacro d {console /玩家 (.*) 往交易栏放入了 (.*) Z/call {$a = $.lastMatch2if ($a == 3,000) goto bbif ($a == 2,000) goto bbif ($a == 2,500) goto bb#3个传点的价格必须不同否则会出错pause 2#如果交易时玩家给于的金额不等于以上价格则取消交易do deal nostop:bbpause 1do dealpause 1do deal#10秒后该玩家无反应则取消交易pause 10do deal nostop}}
automacro e {console /^你得到了 (.+?) Z.$/call {lock block ddo chat leavepause 1do e 10$a = $.lastMatch1if ($a == 3,000) goto a1if ($a == 2,000) goto b2if ($a == 2,500) goto c3#3个传点的价格必须不同否则会出错且和上面一样:a1call warp1stop:b2call warp2stop:c3call warp3stoprelease all}}
macro warp1 {do eval open(FILE, ">>", Settings::getControlFilename("recorder.txt")); print FILE "冰洞-3000 \n"; close FILE;# 将传送日志记录进recorder.txt,记录传点-> A# B,C,D也会记录的
$aa1 = @Invamount (蓝色魔力矿石)#传送之前记录蓝石数量$x = @arg("$.pos", 1)$y = @arg("$.pos", 2)$x0 = @eval($x + @rand(1,3))$x1 = @eval($x - @rand(1,3))$y0 = @eval($y - @rand(1,3))do sl 27 @random("$x0", "$x1") $y0pause 2do warp ra_fild01#地图名 a = ra_fild01pause 4$aa2 = @Invamount (蓝色魔力矿石)#传送之后记录蓝石数量if ($aa1 == $aa2) goto ax#如果传送之前和传送之后蓝石数量一致则重新来过stop
:axdo eval open(FILE, ">>", Settings::getControlFilename("recorder.txt")); print FILE "[ERROR]冰洞-3000(失败) \n"; close FILE;#如果经常出现传送失败的日志则你应该换个点做生意了pause 2do c 哎呀o(）＾）)o，好像出问题了pause 1do c 让我再试一次吧...pause 1do e 79call axx#执行重试脚本axxstop}
macro axx {call warp1#执行重试脚本warp1}
macro warp2 {do eval open(FILE, ">>", Settings::getControlFilename("recorder.txt")); print FILE "企业-2000 \n"; close FILE;$bb1 = @Invamount (蓝色魔力矿石)$x = @arg("$.pos", 1)$y = @arg("$.pos", 2)$x0 = @eval($x + @rand(1,3))$x1 = @eval($x - @rand(1,3))$y0 = @eval($y - @rand(1,3))do sl 27 @random("$x0", "$x1") $y0pause 2do warp veinspause 4$bb2 = @Invamount (蓝色魔力矿石)if ($bb1 == $bb2) goto bxstop
:bxdo eval open(FILE, ">>", Settings::getControlFilename("recorder.txt")); print FILE "[ERROR]企业-2000(失败) \n"; close FILE;pause 2do c 哎呀o(）＾）)o，好像出问题了pause 1do c 让我再试一次额=.=pause 1do e 78call bxxstop}
macro bxx {call warp2}
macro warp3 {do eval open(FILE, ">>", Settings::getControlFilename("recorder.txt")); print FILE "拉赫-2500 \n"; close FILE;$cc1 = @Invamount (蓝色魔力矿石)$x = @arg("$.pos", 1)$y = @arg("$.pos", 2)$x0 = @eval($x + @rand(1,3))$x1 = @eval($x - @rand(1,3))$y0 = @eval($y - @rand(1,3))do sl 27 @random("$x0", "$x1") $y0pause 2do warp rachelpause 4$cc2 = @Invamount (蓝色魔力矿石)if ($cc1 == $cc2) goto cxstop
:cxdo eval open(FILE, ">>", Settings::getControlFilename("recorder.txt")); print FILE "[ERROR]拉赫(失败) \n"; close FILE;pause 2do c 哎呀o(）＾）)o，好像出问题了pause 1do c 让我再试一次嘛= =pause 1do e 77call cxxstop}
macro cxx {call warp3}
automacro f {console /你在\((.*), (.*)\) 开了个传送阵/call {do eval open(FILE, ">>", Settings::getControlFilename("recorder.txt")); print FILE "-------------- \n"; close FILE;do c @random("$name""感谢您的惠顾!","$name""时间就是金钱我的朋友!","$name""去吧!","$name""欢迎下次光临!","$name" "主教的灵魂在护佑着你!")
if (@invamount (蓝色魔力矿石) == 0) goto qkpause 3do chat create "冰洞3k|企业2k|拉赫2.5k 直接交易买票" 2 0 Maplerelease brelease dpause 3do sitstop:qklock alock block clock dlock elock fdo chat create "冰洞3k|企业2k|拉赫2.5k 直接交易买票" 2 0 Mapledo sitstop}}
automacro debugA {console /(.*) \((\d+)\): 你获得了 (.*) Zeny./ipriority 1call {$i = $.lastMatch2if ("$i" != "") goto ok:okrelease allstop}}
automacro debugB {console /(从: (.*)) 那里: 你获得了 (.*) Zeny./ipriority 1call {$i = $.lastMatch2if ("$i" != "") goto ok:okrelease allstop}}
automacro dealcancelled {console /^交易已取消$/idelay 1call {do chat modify "冰洞3k|企业2k|拉赫2.5k 直接交易买票" 2 0 Maple
do sitrelease all}}
