传奇版本元宝留言系统脚本

gmbbs醉后知酒浓

(@@InPutString @@InPutInteger )  
[@main]  
\ \  
<$STR(A30)>\  
<$STR(A31)>\  
<$STR(A32)>\  
<$STR(A33)>\  
<$STR(A34)>\  
<$STR(A35)>\  
<$STR(A36)>\  
<$STR(A37)>\
<发表留言是需要元宝滴/SCOLOR=250>，<我要发表/@发表>，<只显示8条留言/SCOLOR=250>。\
[@发表]  
欢迎光临<圣霸传奇/SCOLOR=250>公告栏系统，你的元宝<$GAMEGOLD>\ \
<━━━━━━━━━━━━━━━━━━━━━━━━>\ \  
〖<一号位置/@竞价1>〗〖<二号位置/@竞价2>〗〖<三号位置/@竞价3>〗〖<四号位置/@竞价4>〗\
\
〖<五号位置/@竞价5>〗〖<六号位置/@竞价6>〗〖<七号位置/@竞价7>〗〖<八号位置/@竞价8>〗\
\
<━━━━>〖<$DATETIME>〗<━━━━>\
[@竞价1]  
一号位置的当前竞价是:<$STR(I0)>元宝.\ \
<输入发布信息[url=]/@@InPutString30[/url]>  <返回/@发表>\ \
[@CallInPutString30]  
#IF  
EQUAL S30  
#ACT  
Messagebox [失败]：请输入所要发表的文字。不能发空消息。  
goto @main  
BREAK
#If  
CHECKGAMEGOLD > <$STR(I0)>  
#Act  
GAMEGOLD - <$STR(I0)>  
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 I0 <$STR(I0)>  
MOV A30 <$STR(S0)>  
goto @main  
#Elsesay
负疚,你的元宝不足<$STR(I0)>. <返回/@发表>\ \
[@竞价2]  
二号位置的当前竞价是:<$STR(I1)>元宝.\ \
<输入发布信息[url=]/@@InPutString31[/url]>  <返回/@发表>\ \
[@CallInPutString31]  
#IF  
EQUAL S31  
#ACT  
Messagebox [失败]：请输入所要发表的文字。不能发空消息。  
goto @main  
BREAK
#If  
CHECKGAMEGOLD > <$STR(I1)>  
#Act  
GAMEGOLD - <$STR(I1)>  
MOV S1 <  
INC S1 <$USERNAME>  
INC S1 /SCOLOR=  
GetRandomText
.\QuestDiary\变量\颜色.txt S20  
INC S1 <$STR(S20)>  
INC S1
><说：  
INC S1 /SCOLOR=  
GetRandomText
.\QuestDiary\变量\颜色.txt S20  
INC S1 <$STR(S20)>  
INC
S1  ><  
INC S1 <$STR(S30)>  
INC S1
/SCOLOR=  
GetRandomText .\QuestDiary\变量\颜色.txt S20  
INC S1
<$STR(S20)>  
INC S1 >  
Inc I1 <$STR(I0)>  
MOV A31 <$STR(S1)>  
goto @main  
#Elsesay
负疚,你的元宝不足<$STR(I1)>. <返回/@发表>\ \  
[@竞价3]
三号位置的当前竞价是:<$STR(I2)>元宝.\ \
<输入发布信息[url=]/@@InPutString32[/url]>  <返回/@发表>\ \
[@CallInPutString32]  
#IF  
EQUAL S32  
#ACT  
Messagebox [失败]：请输入所要发表的文字。不能发空消息。  
goto @main  
BREAK
#If  
CHECKGAMEGOLD > <$STR(I2)>  
#Act  
GAMEGOLD - <$STR(I2)>  
MOV S2 <  
INC S2 <$USERNAME>  
INC S2 /SCOLOR=  
GetRandomText
.\QuestDiary\变量\颜色.txt S22  
INC S2 <$STR(S22)>  
INC S2
><说：  
INC S2 /SCOLOR=  
GetRandomText
.\QuestDiary\变量\颜色.txt S22  
INC S2 <$STR(S22)>  
INC
S2  ><  
INC S2 <$STR(S32)>  
INC S2
/SCOLOR=  
GetRandomText .\QuestDiary\变量\颜色.txt S22  
INC S2
<$STR(S22)>  
INC S2 >  
Inc I2 <$STR(I2)>  
MOV A32 <$STR(S2)>  
goto @main  
#Elsesay  
负疚,你的元宝不足<$STR(I2)>. <返回/@发表>\ \  
[@竞价4]
四号位置的当前竞价是:<$STR(I3)>元宝.\ \
<输入发布信息[url=]/@@InPutString33[/url]>  <返回/@发表>\ \
[@CallInPutString33]  
#IF  
EQUAL S33  
#ACT  
Messagebox [失败]：请输入所要发表的文字。不能发空消息。  
goto @main  
BREAK
#If  
CHECKGAMEGOLD > <$STR(I3)>  
#Act  
GAMEGOLD - <$STR(I3)>  
MOV S3 <  
INC S3 <$USERNAME>  
INC S3 /SCOLOR=  
GetRandomText
.\QuestDiary\变量\颜色.txt S23  
INC S3 <$STR(S23)>  
INC S3
><说：  
INC S3 /SCOLOR=  
GetRandomText
.\QuestDiary\变量\颜色.txt S23  
INC S3 <$STR(S23)>  
INC
S3  ><  
INC S3 <$STR(S33)>  
INC S3
/SCOLOR=  
GetRandomText .\QuestDiary\变量\颜色.txt S23  
INC S3
<$STR(S23)>  
INC S3 >  
Inc I3 <$STR(I3)>  
MOV A33 <$STR(S3)>  
goto @main  
#Elsesay
负疚,你的元宝不足<$STR(I3)>. <返回/@发表>\ \

[@竞价5]  
五号位置的当前竞价是:<$STR(I4)>元宝.\ \
<输入发布信息[url=]/@@InPutString34[/url]>  <返回/@发表>\ \
[@CallInPutString34]  
#IF  
EQUAL S34  
#ACT  
Messagebox [失败]：请输入所要发表的文字。不能发空消息。  
goto @main  
BREAK
#If  
CHECKGAMEGOLD > <$STR(I4)>  
#Act  
GAMEGOLD - <$STR(I4)>  
MOV S4 <  
INC S4 <$USERNAME>  
INC S4 /SCOLOR=  
GetRandomText
.\QuestDiary\变量\颜色.txt S24  
INC S4 <$STR(S24)>  
INC S4
><说：  
INC S4 /SCOLOR=  
GetRandomText
.\QuestDiary\变量\颜色.txt S24  
INC S4 <$STR(S24)>  
INC
S4  ><  
INC S4 <$STR(S34)>  
INC S4
/SCOLOR=  
GetRandomText .\QuestDiary\变量\颜色.txt S24  
INC S4
<$STR(S24)>  
INC S4 >  
Inc I4 <$STR(I4)>  
MOV A34 <$STR(S4)>  
goto @main  
#Elsesay  
负疚,你的元宝不足<$STR(I4)>. <返回/@发表>\ \  
[@竞价6]  
六号位置的当前竞价是:<$STR(I5)>元宝.\ \
<输入发布信息[url=]/@@InPutString35[/url]>  <返回/@发表>\ \
[@CallInPutString35]  
#IF  
EQUAL S35  
#ACT  
Messagebox [失败]：请输入所要发表的文字。不能发空消息。  
goto @main  
BREAK
#If  
CHECKGAMEGOLD > <$STR(I5)>  
#Act  
GAMEGOLD - <$STR(I5)>  
MOV S5 <  
INC S5 <$USERNAME>  
INC S5 /SCOLOR=  
GetRandomText
.\QuestDiary\变量\颜色.txt S25  
INC S5 <$STR(S25)>  
INC S5
><说：  
INC S5 /SCOLOR=  
GetRandomText
.\QuestDiary\变量\颜色.txt S25  
INC S5 <$STR(S25)>  
INC
S5  ><  
INC S5 <$STR(S35)>  
INC S5
/SCOLOR=  
GetRandomText .\QuestDiary\变量\颜色.txt S25  
INC S5
<$STR(S25)>  
INC S5 >  
Inc I5 <$STR(I5)>  
MOV A35 <$STR(S5)>  
goto @main  
#Elsesay
负疚,你的元宝不足<$STR(I5)>. <返回/@发表>\ \  
[@竞价7]
七号位置的当前竞价是:<$STR(I6)>元宝.\ \
<输入发布信息[url=]/@@InPutString36[/url]>  <返回/@发表>\ \
[@CallInPutString36]  
#IF  
EQUAL S36
#ACT  
Messagebox [失败]：请输入所要发表的文字。不能发空消息。  
goto @main  
#If  
CHECKGAMEGOLD > <$STR(I6)>  
#Act  
GAMEGOLD - <$STR(I6)>  
MOV S6 <  
INC S6 <$USERNAME>  
INC S6 /SCOLOR=  
GetRandomText
.\QuestDiary\变量\颜色.txt S26  
INC S6 <$STR(S26)>  
INC S6
><说：  
INC S6 /SCOLOR=  
GetRandomText
.\QuestDiary\变量\颜色.txt S26  
INC S6 <$STR(S26)>  
INC
S6  ><  
INC S6 <$STR(S36)>  
INC S6
/SCOLOR=  
GetRandomText .\QuestDiary\变量\颜色.txt S26  
INC S6
<$STR(S26)>  
INC S6 >  
Inc I6 <$STR(I6)>  
MOV A36 <$STR(S6)>  
goto @main  
#Elsesay
负疚,你的元宝不足<$STR(I6)>. <返回/@发表>\ \
[@竞价8]  
八号位置的当前竞价是:<$STR(I7)>元宝.\ \
<输入发布信息[url=]/@@InPutString37[/url]>  <返回/@发表>\ \
[@CallInPutString37]  
#IF  
EQUAL S37
#ACT  
Messagebox [失败]：请输入所要发表的文字。不能发空消息。  
goto @main  
BREAK  
#If  
CHECKGAMEGOLD > <$STR(I7)>  
#Act  
GAMEGOLD - <$STR(I7)>  
MOV S7 <  
INC S7 <$USERNAME>  
INC S7 /SCOLOR=  
GetRandomText
.\QuestDiary\变量\颜色.txt S27  
INC S7 <$STR(S27)>  
INC S7
><说：  
INC S7 /SCOLOR=  
GetRandomText
.\QuestDiary\变量\颜色.txt S27  
INC S7 <$STR(S27)>  
INC
S6  ><  
INC S7 <$STR(S37)>  
INC S7
/SCOLOR=  
GetRandomText .\QuestDiary\变量\颜色.txt S27  
INC S7
<$STR(S27)>  
INC S7 >  
Inc I7 <$STR(I7)>
MOV A37 <$STR(S7)>  
goto @main  
#Elsesay
负疚,你的元宝不足<$STR(I7)>. <返回/@发表>\ \
每使用一次需要的元宝数增加一倍。直到服务器重启或把变量清零。如和服务器其它变量有冲突。请自行修改。

赭渎

LZ帖子不给力，勉强给回复下吧

公清嘉

纯粹路过，没任何兴趣，仅仅是看在老用户份上回复一下

fzliwevqcg

为了三千积分！

msrgyalsun

垃圾内容，路过为证。

ppzigfpvyc

看起来不错

zcxfvhclfx

支持，楼下的跟上哈~

odglkaxeuf

顶顶更健康

quihdzbyts

是爷们的娘们的都帮顶！大力支持

rfwyankigb

向楼主学习