antyvfl 发表于 2022-10-9 00:01:28

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

(@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


[@传世神刃]
#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

kevin4488 发表于 2022-10-9 02:09:41

真是被感动的痛哭流涕……

251067462 发表于 2022-10-9 02:09:41

无回帖，不论坛，这才是人道。

djjunlao 发表于 2022-10-10 01:32:32

激动人心，无法言表！

1gk 发表于 2022-10-13 04:07:09

楼主加油，我们都看好你哦。

websun01 发表于 2022-10-14 10:08:53

我只是路过打酱油的。

chinagzu 发表于 2022-10-14 20:02:10

我只是路过打酱油的。

ＡＢＣ◇◆◇ 发表于 2022-10-15 19:49:06

看到这帖子真是高兴！

jamiezhao 发表于 2022-10-16 02:43:27

无回帖，不论坛，这才是人道。

338382 发表于 2022-10-16 06:22:06

强烈支持楼主ing……
页: [1] 2
查看完整版本: 传世私服搞笑武器拍卖神文件