传奇私服装备拍卖的脚本

Gm基地

(@@InPutString @@InPutInteger)
[@main]
#if
ISADMIN
#if
#act
closeBigDialogBox
#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
large G497 1
#IF
large N97 <$STR(G499)>
#ACT
CreateFile QuestDiary\竞价中心\竞价名单\<$STR(A497)>.txt
AddTextList .\QuestDiary\竞价中心\竞价名单\<$STR(A497)>.txt <$STR(G499)>

GAMEGOLD - <$STR(N97)>
sendmsg 0 [<$USERNAME>]出[<$STR(N97)>]元宝竞价物品[<$STR(A499)>]
;sendmsg 0 [<$STR(A497)>]竞价失败.请到竞价中心取回原竞价元宝
mov A497 <$USERNAME>
mov G499 <$STR(N97)>
break


#if
large G497 1
CHECKGAMEGOLD < <$STR(N97)>
#act
messagebox 您的元宝不足【<$STR(N97)>】
break


#if
equal G497 0
#act
messagebox 竞价已经结束！
break


;AddTextList .\QuestDiary\竞价中心\失败名单.txt <$STR(A497)>











#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 1
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 对不起，没有您的名单。