物品限量回收和回购，可以输入数量回收
本帖最后由 天域传奇 于 2020-5-15 02:49 编辑用于材料回收，和出售，简易的玩家交易所，
但是价格GM是GM设定的。回收数量有上限，这个自己决定，可以仿造这个多加几个材料回收和回购。自己卖，玩家买:lol
(@@InPutString @@InPutInteger)
[@main]
#if
#act
OpenBigDialogBox 3 402
#say
\
<> < 您好这里是神秘商店，我们回收并售卖物品/AUTOCOLOR=253>\
<> <ItemShow:825:<$STR(G300)>:0:0:1>\
<> [书页] 数量：[{<$STR(G300)>/SCOLOR=250}] <3元宝购买/@@InPutInteger50><1元宝卖入/@@InPutInteger57>\ \
[@InPutInteger50]
#IF
#act
MUL N$元宝数量 <$STR(n50)> 3
#IF
SMALL n50 1
#act
messagebox 请输入1-999的数字
break
#IF
LARGE n50 999
#act
messagebox 请输入1-999的数字
break
#IF
equal G300 0
#ACT
MESSAGEBOX 目前已经没有书页了，请等待其他玩家卖入.
break
#IF
SMALL G300 <$STR(n50)>
#ACT
MESSAGEBOX 目前没有<$STR(n50)>个书页了.无法购买！
break
#IF
CheckGAMEGold < <$STR(N$元宝数量)>
#ACT
MESSAGEBOX 购买<$STR(n50)>个书页需要超过<$STR(N$元宝数量)>的元宝数，否则无法卖给你书页.
BREAK
#IF
large G300 <$STR(n50)>
CheckGAMEGold > <$STR(N$元宝数量)>
#ACT
gamegold - <$STR(N$元宝数量)>
DEC G300 <$STR(n50)>
GIVE 书页 <$STR(n50)>
SendMsg 6 成功花费<$STR(N$元宝数量)>元宝，购入<$STR(n50)>个书页.
GOTO @MAIN
break
#IF
equal G300 <$STR(n50)>
CheckGAMEGold > <$STR(N$元宝数量)>
#ACT
gamegold - <$STR(N$元宝数量)>
DEC G300 <$STR(n50)>
GIVE 书页 <$STR(n50)>
SendMsg 6 成功花费<$STR(N$元宝数量)>元宝，购入<$STR(n50)>个书页.
GOTO @MAIN
break
[@InPutInteger57]
#IF
SMALL n57 1
#act
messagebox 请输入1-999的数字
break
#IF
LARGE n57 999
#act
messagebox 请输入1-999的数字
break
#IF
LARGE G300 1000
#ACT
MESSAGEBOX 目前书页已经超过1000个了，暂时不允许卖入.
break
#IF
NOT checkitem 书页 <$STR(n57)>
#ACT
MESSAGEBOX 你没有<$STR(n57)>个书页了.无法卖出！
break
#IF
checkitem 书页 <$STR(n57)>
#ACT
MUL N$元宝数量 <$STR(n57)> 1
gamegold + <$STR(N$元宝数量)>
INC G300 <$STR(n57)>
TAKE 书页 <$STR(n57)>
GOTO @MAIN
SendMsg 6 成功卖出<$STR(n57)>个书页，获得<$STR(N$元宝数量)>元宝，现在服务器有<$STR(G300)>个书页.
SendMsg 0 玩家『<$USERNAME>』成功卖给神秘商店<$STR(n57)>个书页，获得<$STR(N$元宝数量)>元宝。
break
我只能说楼主这个价格卖得好，
但是呢 卖什么价格是你们的自由，我不能干涉！
至于是否有人购买，那么我就不知道了！ 你能卖出去算我输，自己重新编个脚本都值不了这些 6666666666
你能卖出去算我输，自己重新编个脚本都值不了这些 水电费水电费第三方第三方士大夫 :):):):):):):):):):):):):):) :):):):):):):):):):):):):):):):):):):):):):):):):):):):):):):):):):):):) :):):):):):):):):):):):):):):):):):):):):):):):):):) :):):):):):):):):):):):):):):):):)