传奇技术一条龙教你怎么制作元宝商行脚本教程

[@main]
#if
#act
ClearDelayGoto
Close
#say
<[元宝商行]/SCOLOR=254>  <NEW~/SCOLOR=249>    <尊敬的/SCOLOR=250><【><$USERNAME><】>，<欢迎来到/SCOLOR=250><【><$SERVERNAME><】>\
<---------------------------------------------------------------------/SCOLOR=11>\
<商行简介：>\
<本商行金币收购元宝,也可使用金币购买元宝,单笔交易/SCOLOR=19><1000000/SCOLOR=250><元宝/SCOLOR=19>\
<商行设立典当池,每次收购/SCOLOR=20><1000000/SCOLOR=250><元宝,满/SCOLOR=20><50000000/SCOLOR=250><元宝商行将不予收购./SCOLOR=20>\
<同时商行人员为能够维持生计,适当加价出售典当池的元宝！/SCOLOR=21>\
<收购比例：1000000元宝=30灵符/SCOLOR=244>  <出售比例：40灵符=1000000元宝/SCOLOR=244>\
<当前典当池共有：> <$STR(G9)>  <元宝>\ \

\      「<收购元宝|254#1000000元宝=30灵符/@收购元宝> 」                  「 <购买元宝|254#40灵符=1000000元宝/@购买元宝>」


[@收购元宝]
#IF
CHECKTEXTLIST ..\QuestDiary\功能文件\服务器状态控制.txt 测试
#ACT
MESSAGEBOX 测试区无法使用此功能，请正式开区后收购！
BREAK

#if
NOT CHECKTITLE 沙城捐献
#ACT
MESSAGEBOX 你没有沙城捐献，无法回收元宝！
break

#IF
small G9 50000000
CheckGameGold > 999999
#Act
GameGold - 1000000
INC G9 1000000
GameDiamond + 30
INC U28 30
Goto @Main
Break
#ElseAct
MESSAGEBOX [收购失败]:\　\　　　　　　你背包没有〖1000000〗或典当池已满50000000元宝!
Break

[@购买元宝]
#IF
CHECKTEXTLIST ..\QuestDiary\功能文件\服务器状态控制.txt 测试
#ACT
MESSAGEBOX 测试区无法使用此功能，请正式开区后购买！
BREAK

#if
NOT CHECKTITLE 沙城捐献
#ACT
MESSAGEBOX 你没有沙城捐献，无法回收元宝！
break

#IF
large G9 0
CheckGameDiamond > 119
#Act
GameGold + 1000000
DEC G9 1000000
GameDiamond - 40
INC G27 120
INC U27 120
Goto @Main
Break
#ElseAct
MESSAGEBOX [购买失败]:\　\　　　　　　你背包没有〖40灵符〗或典当池无元宝!
Break