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

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

出处：本站整理作者：佚名发布时间：2012-07-21阅读次数：

(@sddx)
[@main]
#ACT
MOV P1 0
MOV P3 0
#SAY
\\　　　　　　<color=ORANGE 近日国王有令、将他珍藏已久的绝世武器“><color=green 传世神戈、传世神刃><color=ORANGE ”拍卖给传世大>\
　　　 <color=ORANGE 陆勇士，每个区的传世大陆只有这二把神兵利器，唯独只有最强悍的勇士才能获得它。>\
　　　 <color=FFFFCC 此武器不会掉落,不能交易,元神不能佩带,每个区各有一把,想获得此武器必须出价比起>\
　　　 <color=FFFFCC 拍价格高出10000个元宝,谁的价格高谁就有权利使用！为了防止恶意竞争，如果被玩家>\
　　　 <color=FFFFCC 拍走了，要等半个小时才能进行下一次拍卖！！！>\
　　　 　　　 　　　　 　  </@@!PIC 传世神戈>　　　 </@@!PIC 传世神刃>\
　　　 <COLOR=FF66CC 传世神戈，神刃，隐藏：麻痹护体特殊属性。其他属性请点击以上图片查看。>\\
　　　 <color=ORANGE 拍卖起始价格：[><color=green 10000个元宝><color=ORANGE ]　　每一次加价:[><color=green 5000个元宝><color=ORANGE ]>\\
　　　 <color=ORANGE 传世神戈持有人:[><$GLOBAL(Z3)><color=ORANGE ]　　成交价格:[><$GLOBAL(Z1)><color=ORANGE ]　　开拍剩余时间:[><$GLOBAL(之刃)><color=ORANGE 分钟]>\\
　　　 <color=ORANGE 传世神刃持有人:[><$GLOBAL(Z4)><color=ORANGE ]　　成交价格:[><$GLOBAL(Z2)><color=ORANGE ]　　开拍剩余时间:[><$GLOBAL(神刃)><color=ORANGE 分钟]>\\
　　　　　　　 <我要拍下传世神戈/@传世神戈><COLOR=FF00FF 拍成功后,原持有人的武器收回>并<color=green 退回%80的元宝！>\\
　　　　　　　 <我要拍下传世神刃/@传世神刃><COLOR=FF00FF 拍成功后,原持有人的武器收回>并<color=green 退回%80的元宝！>\\

[@传世神戈]
#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 0 1 255 @武器121 请输入你想成交这把武器的价格。[每次加价:5000个元宝]

[@武器121]
#IF
CHECKLEVELEX > 0
#ACT
MOV P10 $STR(D0)
#IF
CHECKGAMEGOLD < $STR(D0)
#ACT
SENDMSG 5 对不起，你没有{<$STR(D0)>}个元宝。无法拍下绝世武器<传世神戈>，请回吧。
break
#ELSEACT
#IF
SMALL D0 10000
#ACT
SENDMSG 5 <你输入的元宝价格不够物品的起始价，更别说想参加拍卖了。>
break
#ELSEACT
#IF
CHECKGAMEGOLD < 10000
#ACT
SENDMSG 5 <你的元宝都不够，你还在这里瞎输入干啥？请回吧。>
break
#IF
CHECKVAR GLOBAL Z3 =
#ACT
takew 传世神戈
take 传世神戈 60
CALCVAR GLOBAL Z3 = $USERNAME
SAVEVAR GLOBAL Z3 ..\QuestDiary\数据文件\垃圾\拍卖武器.txt
CALCVAR GLOBAL Z1 = 10000
SAVEVAR GLOBAL Z1 ..\QuestDiary\数据文件\垃圾\拍卖武器.txt
GAMEGOLD - 10000
XZJY 5 = 10000
CALCVAR GLOBAL 之刃 = 30
SAVEVAR GLOBAL 之刃 ..\QuestDiary\数据文件\垃圾\拍卖武器.txt
MOV S11 $USERNAME
INC S11 $DATETIME
INC S11 使用10000个元宝拍卖了传世神戈
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 Z1 > $STR(D0)
#ACT
SENDMSG 5 <你的元宝都不够成交价格，请回吧。>
break
#ELSEACT
#IF
CHECKLEVELEX > 0
#ACT
DEC D0 $GLOBAL(Z1)
#IF
SMALL D0 5000
#ACT
SENDMSG 5 <你的元宝都不够,每次成交加价为：5000，请回吧。>
break
#ELSEACT
takew 传世神戈
take 传世神戈 60
CALCVAR GLOBAL Z5 = $GLOBAL(Z3)
SAVEVAR GLOBAL Z5 ..\QuestDiary\数据文件\垃圾\拍卖武器.txt
CALCVAR GLOBAL Z3 = $USERNAME
SAVEVAR GLOBAL Z3 ..\QuestDiary\数据文件\垃圾\拍卖武器.txt
CALCVAR GLOBAL Z1 = $STR(P10)
SAVEVAR GLOBAL Z1 ..\QuestDiary\数据文件\垃圾\拍卖武器.txt
GAMEGOLD - $STR(P10)
XZJY 5 = $STR(P10)
CALCVAR GLOBAL 之刃 = 30
SAVEVAR GLOBAL 之刃 ..\QuestDiary\数据文件\垃圾\拍卖武器.txt
MOV S11 $USERNAME
INC S11 $DATETIME
INC S11 使用<$STR(P10)>个元宝拍卖了传世神戈
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(P10)>个元宝,拍下绝世武器<传世神戈>,绝世武器拥有超强属性,谁拍谁就有机会拥有它。
SENDMSG 21 拍卖公告:{%S}在{<$MAPNAME>(<$X>,<$Y>)}武器拍卖花费了<$STR(P10)>个元宝,拍下绝世武器<传世神戈>,绝世武器拥有超强属性,谁拍谁就有机会拥有它。 243 235
SENDMSG 21 拍卖公告:{%S}在{<$MAPNAME>(<$X>,<$Y>)}武器拍卖花费了<$STR(P10)>个元宝,拍下绝世武器<传世神戈>,绝世武器拥有超强属性,谁拍谁就有机会拥有它。 243 235
BREAK