传奇拍卖系统脚本

gmbbs醉后知酒浓

[@main]
#if
equal A114
#act
mov A114

#if
isadmin
#say
　\
<元宝可拍卖物品以下物品:/SCOLOR=242>　<提示/SCOLOR=242>：<佩戴武器可召唤强力宝宝2只/SCOLOR=254>\
<-----------------------------------------------------------/SCOLOR=6>\
<奖励物品/SCOLOR=253>：<九霄龙吟/SCOLOR=254>　　　<初始化参数/@初始化参数>\
<当前元宝拍卖第一名的是/SCOLOR=249>：<$STR(A114)>\
<当前拍卖元宝价格是/SCOLOR=249> <$STR(G116)> <个元宝/SCOLOR=249>\
<-----------------------------------------------------------/SCOLOR=6>\
<如果物品倍价高者拍卖所得！之前持有装备的将自动收回/SCOLOR=250>\
<每次拍卖都要比当前拍卖价格多出10W即可/SCOLOR=253>　　【<我要竞卖武器/@领取九霄龙吟>】\
#elsesay
　\
<元宝可拍卖物品以下物品:/SCOLOR=242>　<提示/SCOLOR=242>：<佩戴武器可召唤强力宝宝2只/SCOLOR=254>\
<-----------------------------------------------------------/SCOLOR=6>\
<奖励物品/SCOLOR=253>：<九霄龙吟/SCOLOR=254>\
<当前元宝拍卖第一名的是/SCOLOR=249>：<$STR(A114)>\
<当前拍卖元宝价格是/SCOLOR=249> <$STR(G116)> <个元宝/SCOLOR=249>\
<-----------------------------------------------------------/SCOLOR=6>\
<如果物品倍价高者拍卖所得！之前持有装备的将自动收回/SCOLOR=250>\
<每次拍卖都要比当前拍卖价格多出10W即可/SCOLOR=253>　　【<我要竞卖武器/@领取九霄龙吟>】\


[@初始化参数]
#act
mov G116 0
MOV G118 0
mov A114
CLEARNAMELIST ..\QuestDiary\九霄龙吟名单.txt
messagebox 初始化完成！！！
goto @main

[@领取九霄龙吟]
#if
checkitem 九霄龙吟 1
#act
messagebox 不要这么贪心！你领取的东西都还在呀！
break

#if
checkitemw 九霄龙吟 1
#act
messagebox 不要这么贪心！你领取的东西都还在呀！
break

#if
checknamelist ..\QuestDiary\九霄龙吟名单.txt
#act
give 九霄龙吟 1
break

#if
EQUAL G116 0
#ACT
GOTO @第一次拍卖
#ELSEACT
MOV G118 0
INC G118 <$STR(G116)>
INC G118 100000
GOTO @历届拍卖了

[@第一次拍卖]
#if
CHECKGAMEGOLD > 99999
#act
mov G116 100000
mov A114 <$USERNAME>
MOV G118 0
GameGold - <$STR(G116)>
give 九霄龙吟 1
CLEARNAMELIST ..\QuestDiary\九霄龙吟名单.txt
addnamelist ..\QuestDiary\九霄龙吟名单.txt
SENDMSG 1 [%s]领取了[九霄龙吟]！[%s]当前拍卖价格为[<$STR(G116)>]元宝！
SENDMSG 1 [%s]领取了[九霄龙吟]！[%s]当前拍卖价格为[<$STR(G116)>]元宝！
GuildNoticeMsg 254 4 [%s]领取了[九霄龙吟]！[%s]当前拍卖价格为[<$STR(G116)>]元宝！
GuildNoticeMsg 253 4 [%s]领取了[九霄龙吟]！[%s]当前拍卖价格为[<$STR(G116)>]元宝！
GuildNoticeMsg 255 3 [%s]领取了[九霄龙吟]！[%s]当前拍卖价格为[<$STR(G116)>]元宝！
goto @main
#elseact
messagebox 注意！你还需要继续努力哦！\　\你当前元宝为　<$GAMEGOLD>\　\当前第一名拍卖元宝为　<$STR(G116)>\　\你需要超过第一名拍卖元宝10W才可以领取物品
break


[@历届拍卖了]
#if
CHECKGAMEGOLD > <$STR(G118)>
#act
mov G116 <$STR(G118)>
mov A114 <$USERNAME>
MOV G118 0
GameGold - <$STR(G116)>
give 九霄龙吟 1
CLEARNAMELIST ..\QuestDiary\九霄龙吟名单.txt
addnamelist ..\QuestDiary\九霄龙吟名单.txt
SENDMSG 1 [%s]领取了[九霄龙吟]！[%s]当前拍卖价格为[<$STR(G116)>]元宝！
SENDMSG 1 [%s]领取了[九霄龙吟]！[%s]当前拍卖价格为[<$STR(G116)>]元宝！
GuildNoticeMsg 254 4 [%s]领取了[九霄龙吟]！[%s]当前拍卖价格为[<$STR(G116)>]元宝！
GuildNoticeMsg 253 4 [%s]领取了[九霄龙吟]！[%s]当前拍卖价格为[<$STR(G116)>]元宝！
GuildNoticeMsg 255 3 [%s]领取了[九霄龙吟]！[%s]当前拍卖价格为[<$STR(G116)>]元宝！
goto @main
#elseact
messagebox 注意！你还需要继续努力哦！\　\你当前元宝为　<$GAMEGOLD>\　\当前第一名拍卖元宝为　<$STR(G116)>\　\你需要超过第一名拍卖元宝10W才可以领取物品
break



(@getsellgold @selloff @buyoff )
[@main]
#IF
#ACT

CloseBigDialogBox

BREAK
#SAY
当前元宝数量为：<$GAMEGOLD>个\
╔┄┄┄┄┄┄╗  ╔┄┄┄┄┄┄╗  ╔┄┄┄┄┄┄╗\
┆『<出售物品/@selloff>』┆  ┆『<购买物品/@buyoff>』┆  ┆『<元宝物品>』┆\
╚┄┄┄┄┄┄╝  ╚┄┄┄┄┄┄╝  ╚┄┄┄┄┄┄╝\
╔┄┄┄┄┄┄╗  ╔┄┄┄┄┄┄╗  ╔┄┄┄┄┄┄╗\
┆『<我的款项/@selfgold>』┆  ┆『<我的物品/@selfitem>』┆  ┆『<返回首页/@main>』┆\
╚┄┄┄┄┄┄╝  ╚┄┄┄┄┄┄╝  ╚┄┄┄┄┄┄╝\ \
<注意:只能用元宝来出售、购买物品>\
[@selloff]
请将拍卖物品放上，并输入拍卖价格: \ \
╔┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄╗\
┆ <注意：在我这里出售需要缴纳5%的税收> ┆\
╚┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄╝\ \
请下载专用登入器，否则无法使用这个系统！\
<返回/@main>
[@selfitem]
以下为你在此拍卖的物品:\
<返回/@Main>\
<$SELLOFFITEM>
[@selfgold]
以下为你在此拍卖所得款项:  \
<返回/@main> <取款 /@getsellgold>\
<$SELLOUTGOLD>
[@getsellgold]
#ACT
goto @selfgold
[@buyoff2]
[@buyoff]
以下为全部拍卖的物品，绿颜色的为你自己拍卖的物品，\
可以直接取回。\ \
<返回/@Main>

择拇

LZ是天才，坚定完毕

儅芰璋

一直在看

段牧歌

我是个凑数的。。。

鍊谯浆

学习下

票啧掠

回个帖子，下班咯~

床放贾

呵呵。。。

碣悖拗

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

强婉丽

有空一起交流一下

咸悦人

LZ敢整点更有创意的不？兄弟们等着围观捏~