本站主推发布:长久传奇私服发布网,新开传奇,新开传奇私服,176复古传奇,迷失传奇,战神传奇,传奇私服,我本沉默,仙剑传奇

传奇私服发布网_新开传奇私服_最大新开长久传奇私服网站_9299F.COM

当前位置: 久久首页 > 开服资料 > 传奇脚本 >

价高者得规则脚本

时间:2016-09-20 00:13来源:新开传奇私服 作者:传奇私服发布网
该脚本只是竞价拍卖NPC脚本,并非全部竞价拍卖系统脚本,大家可以参照学习修改完善使用,如使用请自行添加相应数据后才可以使用。 [@main] if ISADMIN say 竞价物品名称:$STR(A499)\ 竞价物品属性:$STR(A498)\ 竞价元宝数目:$STR(G499)\ 当前竞价人物:$STR(A497)\ 竞价剩余时间:$STR(G498)分钟.\ 在竞价物品剩余时间内,谁出的价钱最高,该物品就是归谁的.\ 竞价如果失败,竞价元宝如数退还.
该脚本只是竞价拍卖NPC脚本,并非全部竞价拍卖系统脚本,大家可以参照学习修改完善使用,如使用请自行添加相应数据后才可以使用。
[@main]
if
ISADMIN
say
竞价物品名称:<$STR(A499)>\
竞价物品属性:<$STR(A498)>\
竞价元宝数目:<$STR(G499)>\
当前竞价人物:<$STR(A497)>\
竞价剩余时间:<$STR(G498)>分钟.\
<在竞价物品剩余时间内,谁出的价钱最高,该物品就是归谁的.>\
<竞价如果失败,竞价元宝如数退还.> <竞价失败人物退还元宝说明/@退还>\
<GM设置竞价物品/@gm>\
<点此输入竞标价格(必须大于现在竞价元宝数目)/@@InPutInteger97> <竞价成功领取/@成功>
elsesay
竞价物品名称:<$STR(A499)>\
竞价物品属性:<$STR(A498)>\
竞价元宝数目:<$STR(G499)>\
当前竞价人物:<$STR(A497)>\
竞价剩余时间:<$STR(G498)>分钟.\
<在竞价物品剩余时间内,谁出的价钱最高,该物品就是归谁的.>\
<竞价如果失败,竞价元宝如数退还.> <竞价失败人物退还元宝说明/@退还>\ \
<点此输入竞标价格(必须大于现在竞价元宝数目)/@@InPutInteger97> <竞价成功领取/@成功>
[@CallInPutInteger97]
if
equal G498 0
act
messagebox 竞价已经结束!
break
if
CHECKGAMEGOLD < <$STR(N97)>
act
messagebox 您的元宝不足【<$STR(N97)>】
break
IF
large N97 <$STR(G499)>
ACT
CreateFile QuestDiary\竞价中心\竞价名单\<$STR(A497)>.txt
AddTextList .\QuestDiary\竞价中心\竞价名单\<$STR(A497)>.txt <$STR(G499)>
AddTextList .\QuestDiary\竞价中心\失败名单.txt <$STR(A497)>
GAMEGOLD - <$STR(N97)>
sendmsg 0 [<$USERNAME>]出[<$STR(N97)>]元宝竞价物品[<$STR(A499)>]
sendmsg 0 [<$STR(A497)>]竞价失败.请到竞价中心取回原竞价元宝
mov A497 <$USERNAME>
mov G499 <$STR(N97)>
elseact
messagebox 你的出价太低了。现在竞价【<$STR(G499)>】
[@退还]
请牢记:\
如果您竞价失败.请一定在您再次竞价之前取回元宝.\
请牢记.\
如不看说明.元宝丢失自行负责.\ \ \
<取回退还的元宝/@退还元宝> <返回/@main>
[@退还元宝]
if
checknamelist ..\QuestDiary\竞价中心\失败名单.txt
act
GetRandomText .\QuestDiary\竞价中心\竞价名单\<$USERNAME>.txt S97
GAMEGOLD + <$STR(S97)>
DelNameList ..\QuestDiary\竞价中心\失败名单.txt
messagebox 竞价失败元宝已经取回。共【<$STR(S97)>】
elseact
messagebox 对不起,没有您的名单。
[@gm]
设置竞价\
<点此设置竞价物品/@@InPutString81> 当前:<$STR(A499)>\ \
<点此设置竞价物品属性/@@InPutString82> 当前:<$STR(A498)>\ \
< 点此设置竞价时间/@@InPutString83> 当前:<$STR(G498)>分钟\ \
<点此设置竞价最低元宝/@@InPutString84> 当前:<$STR(G499)>\
<点此开始进入倒计时竞价/@倒计时竞价>\
[@倒计时竞价]
act
MOV G497 0
messagebox 竞价已经开始计时
[@CallInPutString81]
act
mov A499 <$STR(S81)>
messagebox 设置成功
goto @gm
[@CallInPutString82]
act
mov A498 <$STR(S82)>
messagebox 设置成功
goto @gm
[@CallInPutString83]
act
mov G498 <$STR(S83)>
messagebox 设置成功
goto @gm
[@CallInPutString84]
act
mov G499 <$STR(S84)>
messagebox 设置成功
goto @gm
[@成功]
if
checknamelist ..\QuestDiary\竞价中心\成功名单.txt
act
GetRandomText .\QuestDiary\竞价中心\竞价成功\<$USERNAME>.txt S97
give <$STR(S97)> 1
DelNameList ..\QuestDiary\竞价中心\成功名单.txt
sendmsg 0 恭喜玩家[<$USERNAME>]领取竞价物品【<$STR(S97)>】
sendmsg 0 恭喜玩家[<$USERNAME>]领取竞价物品【<$STR(S97)>】
sendmsg 0 恭喜玩家[<$USERNAME>]领取竞价物品【<$STR(S97)>】
elseact
messagebox 对不起,没有您的名单。
(责任编辑:就爱久久服)
------分隔线----------------------------
栏目列表
推荐内容