此脚本好处,可以利用脚本实现传奇私服与论坛发帖一样的功能,比如发布行会通知,攻城信息,玩家自助留言等功能,充分发挥了脚本的强大功能与传奇私服的特色功能,只需要讲此脚本做成一个NPC的方式即可以实现,下面脚本需要做任何修改,即可实现对应功能。下面还包括竞价留言的功能,总之这个脚本的强大涵盖了大部分的函数调用,而且是完整无错的,非常值得广大gm使用。
[@公告]
{
#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\私服脚本\变量文件\颜色.txt S20
INC S0 <$STR(S20)>
INC S0 ><说:
INC S0 /SCOLOR=
GetRandomText .\QuestDiary\私服脚本\变量文件\颜色.txt S20
INC S0 <$STR(S20)>
INC S0  ><
INC S0 <$STR(S30)>
INC S0 /SCOLOR=
GetRandomText .\QuestDiary\私服脚本\变量文件\颜色.txt S20
INC S0 <$STR(S20)>
INC S0 >
inc G460 5
MOV A80 <$STR(S0)>
goto @main
#Elsesay
抱歉,你的元宝不足<$STR(G461)>. <返回/@发表>\ \


[@竞价2]
#act
inc G462 5
mov G463 <$STR(G462)>
dec G462  5
#say
当前元宝数:<$GAMEGOLD>个\ \
二号位置的当前竞价是:<$STR(G462)>元宝.\ \
你必须支付:<$STR(G463)>元宝,才能使用广告位!\ \
<输入发布信息/@@InPutString31>  <返回/@发表>\ \

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

#If
CHECKGAMEGOLD > <$STR(G463)>
#Act
GAMEGOLD - <$STR(G463)>
MOV S0 <
INC S0 勇士:<$USERNAME>
INC S0 /SCOLOR=
GetRandomText .\QuestDiary\私服脚本\变量文件\颜色.txt S20
INC S0 <$STR(S20)>
INC S0 ><说:
INC S0 /SCOLOR=
GetRandomText .\QuestDiary\私服脚本\变量文件\颜色.txt S20
INC S0 <$STR(S20)>
INC S0  ><
INC S0 <$STR(S31)>
INC S0 /SCOLOR=
GetRandomText .\QuestDiary\私服脚本\变量文件\颜色.txt S20
INC S0 <$STR(S20)>
INC S0 >
inc G462 5
MOV A81 <$STR(S0)>
goto @main
#Elsesay
抱歉,你的元宝不足<$STR(G463)>. <返回/@发表>\ \

[@竞价3]
#act
inc G464 5
mov G465 <$STR(G464)>
dec G464 5
#say
当前元宝数:<$GAMEGOLD>个\ \
三号位置的当前竞价是:<$STR(G464)>元宝.\ \
你必须支付:<$STR(G465)>元宝,才能使用广告位!\ \
<输入发布信息/@@InPutString32>  <返回/@发表>\ \

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

#If
CHECKGAMEGOLD > <$STR(G465)>
#Act
GAMEGOLD - <$STR(G465)>
MOV S0 <
INC S0 勇士:<$USERNAME>
INC S0 /SCOLOR=
GetRandomText .\QuestDiary\私服脚本\变量文件\颜色.txt S20
INC S0 <$STR(S20)>
INC S0 ><说:
INC S0 /SCOLOR=
GetRandomText .\QuestDiary\私服脚本\变量文件\颜色.txt S20
INC S0 <$STR(S20)>
INC S0  ><
INC S0 <$STR(S32)>
INC S0 /SCOLOR=
GetRandomText .\QuestDiary\私服脚本\变量文件\颜色.txt S20
INC S0 <$STR(S20)>
INC S0 >
inc G464 5
MOV A82 <$STR(S0)>
goto @main
#Elsesay
抱歉,你的元宝不足<$STR(G465)>. <返回/@发表>\ \

[@竞价4]
#act
inc G466 5
mov G467 <$STR(G466)>
dec G466  5
#say
当前元宝数:<$GAMEGOLD>个\ \
一号位置的当前竞价是:<$STR(G466)>元宝.\ \
你必须支付:<$STR(G467)>元宝,才能使用广告位!\ \
<输入发布信息/@@InPutString53>  <返回/@发表>\ \

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

#If
CHECKGAMEGOLD > <$STR(G467)>
#Act
GAMEGOLD - <$STR(G467)>
MOV S0 <
INC S0 勇士:<$USERNAME>
INC S0 /SCOLOR=
GetRandomText .\QuestDiary\私服脚本\变量文件\颜色.txt S20
INC S0 <$STR(S20)>
INC S0 ><说:
INC S0 /SCOLOR=
GetRandomText .\QuestDiary\私服脚本\变量文件\颜色.txt S20
INC S0 <$STR(S20)>
INC S0  ><
INC S0 <$STR(S53)>
INC S0 /SCOLOR=
GetRandomText .\QuestDiary\私服脚本\变量文件\颜色.txt S20
INC S0 <$STR(S20)>
INC S0 >
inc G466 5
MOV A83 <$STR(S0)>
goto @main
#Elsesay
抱歉,你的元宝不足<$STR(G466)>. <返回/@发表>\ \


[@竞价5]
#act
inc G468 5
mov G469 <$STR(G468)>
dec G468  5
#say
当前元宝数:<$GAMEGOLD>个\ \
五号位置的当前竞价是:<$STR(G468)>元宝.\ \
你必须支付:<$STR(G469)>元宝,才能使用广告位!\ \
<输入发布信息/@@InPutString34>  <返回/@发表>\ \

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

#If
CHECKGAMEGOLD > <$STR(G469)>
#Act
GAMEGOLD - <$STR(G469)>
MOV S0 <
INC S0 勇士:<$USERNAME>
INC S0 /SCOLOR=
GetRandomText .\QuestDiary\私服脚本\变量文件\颜色.txt S20
INC S0 <$STR(S20)>
INC S0 ><说:
INC S0 /SCOLOR=
GetRandomText .\QuestDiary\私服脚本\变量文件\颜色.txt S20
INC S0 <$STR(S20)>
INC S0  ><
INC S0 <$STR(S34)>
INC S0 /SCOLOR=
GetRandomText .\QuestDiary\私服脚本\变量文件\颜色.txt S20
INC S0 <$STR(S20)>
INC S0 >
inc G468 5
MOV A84 <$STR(S0)>
goto @main
#Elsesay
抱歉,你的元宝不足<$STR(G469)>. <返回/@发表>\ \

 

[@竞价6]
#act
inc G470 5
mov G471 <$STR(G470)>
dec G470  5
#say
当前元宝数:<$GAMEGOLD>个\ \
六号位置的当前竞价是:<$STR(G470)>元宝.\ \
你必须支付:<$STR(G471)>元宝,才能使用广告位!\ \
<输入发布信息/@@InPutString35>  <返回/@发表>\ \

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

#If
CHECKGAMEGOLD > <$STR(G471)>
#Act
GAMEGOLD - <$STR(G471)>
MOV S0 <
INC S0 勇士:<$USERNAME>
INC S0 /SCOLOR=
GetRandomText .\QuestDiary\私服脚本\变量文件\颜色.txt S20
INC S0 <$STR(S20)>
INC S0 ><说:
INC S0 /SCOLOR=
GetRandomText .\QuestDiary\私服脚本\变量文件\颜色.txt S20
INC S0 <$STR(S20)>
INC S0  ><
INC S0 <$STR(S35)>
INC S0 /SCOLOR=
GetRandomText .\QuestDiary\私服脚本\变量文件\颜色.txt S20
INC S0 <$STR(S20)>
INC S0 >
inc G470 5
MOV A85 <$STR(S0)>
goto @main
#Elsesay
抱歉,你的元宝不足<$STR(G471)>. <返回/@发表>\ \


[@竞价7]
#act
inc G472 5
mov G473 <$STR(G472)>
dec G472  5
#say
当前元宝数:<$GAMEGOLD>个\ \
七号位置的当前竞价是:<$STR(G472)>元宝.\ \
你必须支付:<$STR(G473)>元宝,才能使用广告位!\ \
<输入发布信息/@@InPutString36>  <返回/@发表>\ \

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

#If
CHECKGAMEGOLD > <$STR(G473)>
#Act
GAMEGOLD - <$STR(G473)>
MOV S0 <
INC S0 勇士:<$USERNAME>
INC S0 /SCOLOR=
GetRandomText .\QuestDiary\私服脚本\变量文件\颜色.txt S20
INC S0 <$STR(S20)>
INC S0 ><说:
INC S0 /SCOLOR=
GetRandomText .\QuestDiary\私服脚本\变量文件\颜色.txt S20
INC S0 <$STR(S20)>
INC S0  ><
INC S0 <$STR(S36)>
INC S0 /SCOLOR=
GetRandomText .\QuestDiary\私服脚本\变量文件\颜色.txt S20
INC S0 <$STR(S20)>
INC S0 >
inc G472 5
MOV A86 <$STR(S0)>
goto @main
#Elsesay
抱歉,你的元宝不足<$STR(G473)>. <返回/@发表>\ \


[@竞价8]
#act
inc G474 5
mov G475 <$STR(G474)>
dec G474  5
#say
当前元宝数:<$GAMEGOLD>个\ \
八号位置的当前竞价是:<$STR(G474)>元宝.\ \
你必须支付:<$STR(G475)>元宝,才能使用广告位!\ \
<输入发布信息/@@InPutString37>  <返回/@发表>\ \

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

#If
CHECKGAMEGOLD > <$STR(G475)>
#Act
GAMEGOLD - <$STR(G475)>
MOV S0 <
INC S0 勇士:<$USERNAME>
INC S0 /SCOLOR=
GetRandomText .\QuestDiary\私服脚本\变量文件\颜色.txt S20
INC S0 <$STR(S20)>
INC S0 ><说:
INC S0 /SCOLOR=
GetRandomText .\QuestDiary\私服脚本\变量文件\颜色.txt S20
INC S0 <$STR(S20)>
INC S0  ><
INC S0 <$STR(S37)>
INC S0 /SCOLOR=
GetRandomText .\QuestDiary\私服脚本\变量文件\颜色.txt S20
INC S0 <$STR(S20)>
INC S0 >
inc G474 5
MOV A87 <$STR(S0)>
goto @main
#Elsesay
抱歉,你的元宝不足<$STR(G475)>. <返回/@发表>\ \


[@IsInFilterList]
#ACT
MESSAGEBOX 输入数据中包含了非法字符,请重新编辑!
ClosebigDialogBox
CLOSE
break
}
以上脚本如有转载,请注明出处:www.shaibar.com


转载本文请注明来源于:http://www.shaibar.com .