传世私服搞笑武器拍卖神文件(2)

[@传世神刃]
#IF
CHECKVAR GLOBAL 神刃 > 0
#ACT
SENDMSG 5 本次拍卖已结束,目前时间还剩<$GLOBAL(神刃)>分钟
break
#IF
CHECKVAR GLOBAL Z3 = $USERNAME
#act
MESSAGEBOX 对不起，你已经是绝世武器的持有人，不能重复竞拍!
BREAK
CLOSE
#IF
CHECKVAR GLOBAL Z4 = $USERNAME
#act
MESSAGEBOX 对不起，你已经是绝世武器的持有人，战歌网，不能重复竞拍!
BREAK
CLOSE
#ELSEACT
goto @开始卖卖

[@开始卖卖]
#ACT
QUERYVAL 3 1 255 @武器122 请输入你想成交这把武器的价格。[每次加价:5000个元宝]

[@武器122]
#IF
CHECKLEVELEX > 0
#ACT
MOV P13 $STR(D3)
#IF
CHECKGAMEGOLD < $STR(D3)
#ACT
SENDMSG 5 对不起，你没有{<$STR(D3)>}个元宝。无法拍下绝世武器<传世神刃>，请回吧。
break
#ELSEACT
#IF
SMALL D3 10000
#ACT
SENDMSG 5 <你输入的元宝价格不够物品的起始价，更别说想参加拍卖了。>
break
#ELSEACT
#IF
CHECKGAMEGOLD < 10000
#ACT
SENDMSG 5 <你的元宝都不够，你还在这里瞎输入干啥？请回吧。>
break
#IF
CHECKVAR GLOBAL Z4 =
#ACT
takew 传世神刃
take 传世神刃 60
CALCVAR GLOBAL Z4 = $USERNAME
SAVEVAR GLOBAL Z4 ..\QuestDiary\数据文件\垃圾\拍卖武器.txt
CALCVAR GLOBAL Z2 = 10000
SAVEVAR GLOBAL Z2 ..\QuestDiary\数据文件\垃圾\拍卖武器.txt
GAMEGOLD - 10000
BDCOUNT = 10000
CALCVAR GLOBAL 神刃 = 30
SAVEVAR GLOBAL 神刃 ..\QuestDiary\数据文件\垃圾\拍卖武器.txt
MOV S11 $USERNAME
INC S11 $DATETIME
INC S11 使用100个元宝拍卖了传世神刃
MOV S12 ..\QuestDiary\数据文件\保存信息\
INC S12 $DATAS
INC S12 拍卖.txt
ADDVARLIST $STR(S11) $STR(S12)
GIVE 传世神刃 1
GMEXECUTE 在线提问 @收取传世神刃
GOTO @MAIn
SENDMSG 15 拍卖公告:{%S}在{<$MAPNAME>(<$X>,<$Y>)}武器拍卖花费了10000个元宝,拍下绝世武器<传世神刃>,绝世武器拥有超强属性,谁拍谁就有机会拥有它。
SENDMSG 21 拍卖公告:{%S}在{<$MAPNAME>(<$X>,<$Y>)}武器拍卖花费了10000个元宝,拍下绝世武器<传世神刃>,绝世武器拥有超强属性,谁拍谁就有机会拥有它。 243 235
SENDMSG 21 拍卖公告:{%S}在{<$MAPNAME>(<$X>,<$Y>)}武器拍卖花费了10000个元宝,拍下绝世武器<传世神刃>,绝世武器拥有超强属性,谁拍谁就有机会拥有它。 243 235
break
#IF
CHECKVAR GLOBAL Z2 > $STR(D3)
#ACT
SENDMSG 5 <你的元宝都不够成交价格，请回吧。>
break
#ELSEACT
#IF
CHECKLEVELEX > 0
#ACT
DEC D3 $GLOBAL(Z2)
#IF
SMALL D3 5000
#ACT
SENDMSG 5 <你的元宝都不够,每次成交加价为：5000，请回吧。>
break
#ELSEACT
takew 传世神刃
take 传世神刃 60
CALCVAR GLOBAL Z6 = $GLOBAL(Z4)
SAVEVAR GLOBAL Z6 ..\QuestDiary\数据文件\垃圾\拍卖武器.txt
CALCVAR GLOBAL Z4 = $USERNAME
SAVEVAR GLOBAL Z4 ..\QuestDiary\数据文件\垃圾\拍卖武器.txt
CALCVAR GLOBAL Z2 = $STR(P13)
SAVEVAR GLOBAL Z2 ..\QuestDiary\数据文件\垃圾\拍卖武器.txt
GAMEGOLD - $STR(P13)
BDCOUNT = $STR(P13)
CALCVAR GLOBAL 神刃 = 30
SAVEVAR GLOBAL 神刃 ..\QuestDiary\数据文件\垃圾\拍卖武器.txt
MOV S11 $USERNAME
INC S11 $DATETIME
INC S11 使用<$STR(P13)>个元宝拍卖了传世神刃
MOV S12 ..\QuestDiary\数据文件\保存信息\
INC S12 $DATAS
INC S12 拍卖.txt
ADDVARLIST $STR(S11) $STR(S12)
GIVE 传世神刃
GMEXECUTE 在线提问 @收取传世神刃
GOTO @MAIn
SENDMSG 15 拍卖公告:{%S}在{<$MAPNAME>(<$X>,<$Y>)}武器拍卖花费了<$STR(P13)>个元宝,拍下绝世武器<传世神刃>,绝世武器拥有超强属性,谁拍谁就有机会拥有它。
SENDMSG 21 拍卖公告:{%S}在{<$MAPNAME>(<$X>,<$Y>)}武器拍卖花费了<$STR(P13)>个元宝,拍下绝世武器<传世神刃>,绝世武器拥有超强属性,谁拍谁就有机会拥有它。 243 235
SENDMSG 21 拍卖公告:{%S}在{<$MAPNAME>(<$X>,<$Y>)}武器拍卖花费了<$STR(P13)>个元宝,拍下绝世武器<传世神刃>,绝世武器拥有超强属性,谁拍谁就有机会拥有它。 243 235
BREAK