热血传奇竞价公告NPC全部脚本

[@main]
#IF
#ACT
OpenBigDialogBox 3
#say
\
<这里是玩家公告版，可以发布行会通知、攻城信息、好友留言、买卖装备等等！大家多来光顾！~/SCOLOR=116>\ \
<$STR(A80)>\ \
<$STR(A81)>\ \
<$STR(A82)>\ \
<$STR(A83)>\ \
<$STR(A84)>\ \
<$STR(A85)>\ \
<$STR(A86)>\ \
<$STR(A87)>\ \
<发表公告是需要元宝滴/SCOLOR=250> <我要发表/@发表> <只显示8条公告/SCOLOR=254>。\
[@发表]
#if
large G460 99
#act
mov G460 0
#if
large G462 99
#act
mov G462 0
#if
large G464 99
#act
mov G464 0
#if
large G466 99
#act
mov G466 0
#if
large G468 99
#act
mov G468 0
#if
large G470 99
#act
mov G470 0
#if
large G472 99
#act
mov G472 0
#if
large G474 99
#act
mov G474 0
#say
欢迎光临<华文论坛/SCOLOR=250>公告栏系统，你的元宝<$GAMEGOLD>\ \
<注意：每次使用公告位，必须比当前价格多支付5个元宝才能使用！/SCOLOR=253>\ \
<注意：此公告，每30分钟会在所有玩家的屏幕上显示15秒钟，租用一次可使用到礼拜一早8点！/SCOLOR=242>\ \
你要租用：\
〖<一号位置/@竞价1>〗〖<二号位置/@竞价2>〗〖<三号位置/@竞价3>〗〖<四号位置/@竞价4>〗\ \

〖<五号位置/@竞价5>〗〖<六号位置/@竞价6>〗〖<七号位置/@竞价7>〗〖<八号位置/@竞价8>〗\ \

<━━━━>〖<$DATETIME>〗<━━━━>\
#Elsesay
欢迎光临<华文论坛/SCOLOR=250>公告栏系统，你的元宝<$GAMEGOLD>\ \
<注意：每次使用公告位，必须比当前价格多支付5个元宝才能使用！/SCOLOR=253>\ \
<注意：此公告，每30分钟会在所有玩家的屏幕上显示15秒钟，租用一次可使用到礼拜一早8点！/SCOLOR=242>\ \
你要租用：\
〖<一号位置/@竞价1>〗〖<二号位置/@竞价2>〗〖<三号位置/@竞价3>〗〖<四号位置/@竞价4>〗\ \

〖<五号位置/@竞价5>〗〖<六号位置/@竞价6>〗〖<七号位置/@竞价7>〗〖<八号位置/@竞价8>〗\ \

<━━━━>〖<$DATETIME>〗<━━━━>\
[@竞价1]
#act
inc G460 5
mov G461 <$STR(G460)>
dec G460 5
#say
当前元宝数：<$GAMEGOLD>个\ \
一号位置的当前竞价是:<$STR(G460)>元宝.\ \
你必须支付：<$STR(G461)>元宝，才能使用广告位！\ \
<输入发布信息/@@InPutString30> <返回/@发表>\ \

[@InPutString30]
#IF
EQUAL S30
#ACT
Messagebox [失败]：请输入所要发表的文字。不能发空消息。
goto @main
BREAK

#If
CHECKGAMEGOLD > <$STR(G461)>
#Act
GAMEGOLD - <$STR(G461)>
MOV S0 <
INC S0 勇士：<$USERNAME>
INC S0 /SCOLOR=
GetRandomText .\QuestDiary\GM758.NET\列表\颜色.txt S20
INC S0 <$STR(S20)>
INC S0 ><说:
INC S0 /SCOLOR=
GetRandomText .\QuestDiary\GM758.NET\列表\颜色.txt S20
INC S0 <$STR(S20)>
INC S0 ><
INC S0 <$STR(S30)>
INC S0 /SCOLOR=
GetRandomText .\QuestDiary\GM758.NET\列表\颜色.txt S20
INC S0 <$STR(S20)>
INC S0 >
inc G460 5
MOV A80 <$STR(S0)>
goto @main
#Elsesay
抱歉,你的元宝不足<$STR(G461)>. <返回/@发表>\ \