巨集A 作用: 设定寄COD信件中的物品价格, 单位是G (跟上一篇文章的巨集A一模一样, 可以共用) 格式: /run pA={"物品A物品B","物品C","物品D"}pP={"价格A","价格C","价格D"} 范例: /run pA={"烬花心绽花风暴藤艾萨拉的帷纱","暮光茉莉鞭尾蜥草","烈性生命", "奎蛇之舌冰棘","永恒生命","虎百合金黄苜蓿"}pP={35/20,50/20,9,25/20,6,20/20} 说明: 以上范例会用每组35G的价格, 贩售烬花等草药. 因为定价一般是用每组价格, 所以写成35/20就会自动被换算成每根草1g75s, 方便修改. 在字数限制内可以放很多组. 限制: 可以在搜寻字串中找到的物品都会被视为符合预设条件. 如果设定"黄铁矿石", "铁矿"跟"铁矿石"都会被视为同价格. 巨集B 作用: 定义并固定收件人ID为目前寄信页面所填名称, 避免每寄一封要重填一次. 程式码: /run sE=SendMailNameEditBox m=sE:GetText()if m~=""then MN=m end g= GetSendMailItem gI=GetContainerItemInfo uC=UseContainerItem sMC= SendMailCODButton sMG=SendMailMoneyGold fL=floor sL=select mX=table. maxn function fI(a,b)return a and b and a:find(b)end 巨集C 作用: 摆上物品并设定COD价格 说明: 1. 此巨集会自动重覆摆放在寄件区的第一格物品, 并自动把信填满 (放满12格或直到你身上没有该物品) 2. 如果第一格目前是空的, 则自动摆上之前第一格出现过的物品. 3. 会根据巨集A设定价格. 4. 可以手动改变要寄的东西, 并再点一次巨集重新计算价格. 范例: A. 身上超过12叠烬花: 将一叠烬花放在第一格, 按巨集C, 信件会填满12格烬花. 寄出此封信以後, 再点一次巨集C, 会自动填满烬花, 不用手动指定. B. 身上只有 7叠烬花: 将一叠烬花放在第一格, 按巨集C, 信件会填满7格烬花. 此时如将第一格置换为烈性生命, 按巨集C, 信件会填满6格烈性生命并重算价格. 限制: 1. COD有每封10000g的内建上限, 超过则会无法寄出, 如果想要贩售大量烈性生命, 可以考虑跟草药混搭, 这样就可以正常计价. 2. 整封信的总货品订价以g为最小单位, 银跟铜的部份会被无条件舍去. 程式码: /run sE:SetText(MN)n=g(1)if n then NN=n end for b=0,4 do for s=1,36 do l=sL( 7,gI(b,s))if fI(l,NN)then uC(b,s)end end end t=0 for i=1,12 do n,_,c=g(i) for j=1,mX(pA)do if fI(pA[j],n)then t=t+c*pP[j]sMC:Click()end end end sMG: SetText(fL(t)) 程式码请自行黏贴成同一行, 上面列的每一行之间不可以有空格. 随手关灯, 省电节能. 使用流程总结: 1. 按一次巨集A (有重登入或改变价格才需再按一次) 2. 按一次巨集B (有重登入或改变收信人才需再按一次) 3. 摆上一格物品 4. 按一次巨集C, 确认无误後发送. 5. 重覆步骤4直到寄完, 再回到步骤3换寄其他物品. 这个巨集的功能我完全用不到, 而且是刚写的, 所以如果有出错, 或发生惨剧 麻烦请回报, 谢谢. (如需测试, 可以寄给自己的分身实验看看.) 设定跟说明看起来很烦琐, 但使用上应该很无脑. 另外, 我有刻意不放SendMailFrame_SendMail()在巨集里, 虽然每次要手动发送, 但应该安全很多. --

※ 发信站: 批踢踢实业坊(ptt.cc) ◆ From: 114.45.176.46