GOM引擎新区竞拍脚本，GOM传奇服务端设置竞拍的方法和教程

[@main]
#if
#act
LOADVAR HUMAN 竞拍花费 ..\QuestDiary\数据文件\竞拍花费.txt
#say
\<ItemShow:1628:1:300:50:1><PlayImg:41:217:36:200:350:10:0>\
\ 开区一小时内拍卖本服唯一**时装,只卖一件,之后再无机会获得!\
\ 拍卖每次加价100灵符,竞拍失败后必须先领回灵符之后才能再次参与竞拍!\
\       当前竞拍得主为[<$STR(A4)>]  当前竞拍价格为[<$STR(G11)>]\ \ \ \
\  <我要竞拍/@@inputinteger22>     <竞拍失败,取回灵符/@取回竞拍灵符>  <竞拍成功,领取竞拍物品/@领取竞拍时装>\


[@inputinteger22]
#if
EQUAL G16 1
#act
MESSAGEBOX 拍卖已经结束,最终得主为[<$STR(A4)>].
break
#if
SMALL G5 60
#act
MOV N$竞拍总价 <$STR(G11)>
INC N$竞拍总价 100
#elseact
MESSAGEBOX 本拍卖只有新区一小时内开启!
break
#if
CHECKGAMEGIRD ? <$STR(N22)>
#act
#elseact
MESSAGEBOX 你没有这么多灵符,不能参与本次竞价!
break
#if
CHECKVAR HUMAN 竞拍花费 > 0
#act
GOTO @main
MESSAGEBOX 请先取回上次竞拍花费的灵符之后再次参与竞拍!
break
#if
NOT SMALL N22 <$STR(N$竞拍总价)>
#act
MOV G11 <$STR(N22)>
MOV A4 <$USERNAME>
MOV G4 0
GAMEGIRD - <$STR(N22)>
CALCVAR HUMAN 竞拍花费 + <$STR(N22)>
SAVEVAR HUMAN 竞拍花费 ..\QuestDiary\数据文件\竞拍花费.txt
GOTO @main
sendmovemsg 0 253 255 150 1 玩家[<$USERNAME>]参与了竞拍,出价[<$STR(N22)>]灵符,5分钟内无人再次竞价,本服唯一时装将归属于他!
SENDMSG 0 玩家[<$USERNAME>]参与了竞拍,出价[<$STR(N22)>]灵符,5分钟内无人再次竞价,本服唯一时装将归属于他!
SENDMSG 0 玩家[<$USERNAME>]参与了竞拍,出价[<$STR(N22)>]灵符,5分钟内无人再次竞价,本服唯一时装将归属于他!
break
#elseact
GOTO @main
MESSAGEBOX 每次出价必须高于竞拍总价100灵符以上!
break

[@领取竞拍时装]
#if
NOT EQUAL A4 <$USERNAME>
#act
MESSAGEBOX 你不是竞拍得主,不能领取竞拍物品!
break
#if
EQUAL G16 0
#act
MESSAGEBOX 当前竞拍还未结束,不能领取奖励!
break
#if
EQUAL A5
#act
MOV A5 <$USERNAME>
GIVE 白色剑神 1
GOTO @main
sendmovemsg 0 253 255 150 1 玩家[<$USERNAME>]成功领取竞拍物品,祝贺此玩家距离称霸全服更进一步!
SENDMSG 0 玩家[<$USERNAME>]成功领取竞拍物品,祝贺此玩家距离称霸全服更进一步!
SENDMSG 0 玩家[<$USERNAME>]成功领取竞拍物品,祝贺此玩家距离称霸全服更进一步!
break
#elseact
GOTO @main
MESSAGEBOX 竞拍物品已经被[<$STR(A5)>]领取过了!
break

[@取回竞拍灵符]
#if
NOT EQUAL A4 <$USERNAME>
#act
#elseact
MESSAGEBOX 你是当前竞拍得主,不能取回灵符!
break
#if
CHECKVAR HUMAN 竞拍花费 > 0
#act
GAMEGIRD + <$HUMAN(竞拍花费)>
CALCVAR HUMAN 竞拍花费 = 0
SAVEVAR HUMAN 竞拍花费 ..\QuestDiary\数据文件\竞拍花费.txt
MESSAGEBOX 成功取回之前的竞拍灵符,你可以继续参与竞拍!
GOTO @main
break
#elseact
GOTO @main
MESSAGEBOX 你没有参与竞拍,没有灵符可以给你!
break