留言板[脚本]-80家族网

80族长 · 发表于 2020-8-14 12:09:32

80家族网：本站力求让你一站在手资源全有！
此脚本转自别处！免费开源分享。

说重点：
1.留言长度，输入数量直接就是输入框默认的。输入框能输入多少字，留言就是多少字。
2.可对留言进行管理。管理员资格由激活码激活。

脚本代码↓：（变量占用自行更换，所用文本目录自行建立，相信新手也不是问题）

[@留言板]
#if
#ACT
OPENMERCHANTBIGDLG 25 70 0 0 0 0 1 737 2 1
#say
<--------------------------------------------------------留言板--------------------------------------------------------/FCOLOR=253>\
<$STR(A284)>\
\
<$STR(A283)>\
\
<$STR(A282)>\
\
<$STR(A281)>\
\
<$STR(A280)>\
\
<$STR(A279)>\
\
<$STR(A278)>\
\
<$STR(A277)>\
\
<$STR(A276)>\
\
<$STR(A275)>\
\
<$STR(A274)>\
\
<$STR(A273)>\
\
<$STR(A272)>\
\
<$STR(A271)>\
\
<$STR(A270)>\
<刷新留言/@留言板>             留言板状态：{<$STR(A285)>/FCOLOR=249}\
<我要留言[url=]/@@InPutString270[/url]>             <管理留言/@管理留言板>             申请成为<留言板管理员/@申请管理员>\
<注意事项>：\
<为防止刷屏，每发表一条留言需要2万金币，只显示最后15条留言。/FCOLOR=224><留言骂人等素质低下的加入黑名单！>\

[@@InPutString270]
#IF
EQUAL A285 维护中请稍后……
#ACT
Messagebox [失败]：留言板维护中，请稍后……
GOTO @留言板
BREAK
#IF
Checknamelist ..\Questdiary\留言板\留言板黑名单.txt
#ACT
Messagebox [失败]：黑名单禁止留言！
#ELSEACT
GOTO @InPutString270
[@InPutString270]
#IF
EQUAL A285 维护中请稍后……
#ACT
Messagebox [失败]：留言板维护中，请稍后……
GOTO @留言板
BREAK
#IF
NOT checkgold 20000
#ACT
Messagebox [失败]：发表留言需要2万金币。
GOTO @留言板
BREAK
#IF
random 4
#ACT
take 金币 20000
MOV S271 [{<$USERNAME>/FCOLOR=250}]说：
INC S271 {<$STR(S270)>/FCOLOR=151}
AddTextList ..\QuestDiary\留言板\留言记录.txt <$STR(S271)>----时间：<$DATETIME>----累计充值：<$str(U99)>----等级：<$LEVEL>
MOV A284 <$STR(A283)>
MOV A283 <$STR(A282)>
MOV A282 <$STR(A281)>
MOV A281 <$STR(A280)>
MOV A280 <$STR(A279)>
MOV A279 <$STR(A278)>
MOV A278 <$STR(A277)>
MOV A277 <$STR(A276)>
MOV A276 <$STR(A275)>
MOV A275 <$STR(A274)>
MOV A274 <$STR(A273)>
MOV A273 <$STR(A272)>
MOV A272 <$STR(A271)>
MOV A271 <$STR(A270)>
MOV A270 <$STR(S271)>
GOTO @留言板
BREAK
#IF
random 3
#ACT
take 金币 20000
MOV S271 [{<$USERNAME>/FCOLOR=250}]说：
INC S271 {<$STR(S270)>/FCOLOR=116}
MOV A284 <$STR(A283)>
MOV A283 <$STR(A282)>
MOV A282 <$STR(A281)>
MOV A281 <$STR(A280)>
MOV A280 <$STR(A279)>
MOV A279 <$STR(A278)>
MOV A278 <$STR(A277)>
MOV A277 <$STR(A276)>
MOV A276 <$STR(A275)>
MOV A275 <$STR(A274)>
MOV A274 <$STR(A273)>
MOV A273 <$STR(A272)>
MOV A272 <$STR(A271)>
MOV A271 <$STR(A270)>
MOV A270 <$STR(S271)>
GOTO @留言板
BREAK
#IF
random 2
#ACT
take 金币 20000
MOV S271 [{<$USERNAME>/FCOLOR=250}]说：
INC S271 {<$STR(S270)>/FCOLOR=229}
MOV A284 <$STR(A283)>
MOV A283 <$STR(A282)>
MOV A282 <$STR(A281)>
MOV A281 <$STR(A280)>
MOV A280 <$STR(A279)>
MOV A279 <$STR(A278)>
MOV A278 <$STR(A277)>
MOV A277 <$STR(A276)>
MOV A276 <$STR(A275)>
MOV A275 <$STR(A274)>
MOV A274 <$STR(A273)>
MOV A273 <$STR(A272)>
MOV A272 <$STR(A271)>
MOV A271 <$STR(A270)>
MOV A270 <$STR(S271)>
GOTO @留言板
BREAK
#IF
#ACT
take 金币 20000
MOV S271 [{<$USERNAME>/FCOLOR=250}]说：
INC S271 <$STR(S270)>
MOV A284 <$STR(A283)>
MOV A283 <$STR(A282)>
MOV A282 <$STR(A281)>
MOV A281 <$STR(A280)>
MOV A280 <$STR(A279)>
MOV A279 <$STR(A278)>
MOV A278 <$STR(A277)>
MOV A277 <$STR(A276)>
MOV A276 <$STR(A275)>
MOV A275 <$STR(A274)>
MOV A274 <$STR(A273)>
MOV A273 <$STR(A272)>
MOV A272 <$STR(A271)>
MOV A271 <$STR(A270)>
MOV A270 <$STR(S271)>
GOTO @留言板
BREAK
[@管理留言板]
#if
Checknamelist ..\Questdiary\留言板\留言板管理员.txt
#ACT
MOV P270 99
SetOnTimer 6 1
OPENMERCHANTBIGDLG 25 70 0 0 0 0 1 737 2 1
#say
<--------------------------------------------------------留言板--------------------------------------------------------/FCOLOR=253>\
<$STR(A284)>  <删除/@删除1515>\
<$STR(A283)>  <删除/@删除1414>\
<$STR(A282)>  <删除/@删除1313>\
<$STR(A281)>  <删除/@删除1212>\
<$STR(A280)>  <删除/@删除1111>\
<$STR(A279)>  <删除/@删除1010>\
<$STR(A278)>  <删除/@删除99>\
<$STR(A277)>  <删除/@删除88>\
<$STR(A276)>  <删除/@删除77>\
<$STR(A275)>  <删除/@删除66>\
<$STR(A274)>  <删除/@删除55>\
<$STR(A273)>  <删除/@删除44>\
<$STR(A272)>  <删除/@删除33>\
<$STR(A271)>  <删除/@删除22>\
<$STR(A270)>  <删除/@删除11>\ \
<返回留言板/@留言板>\
<注意事项>：\
<删除操作不可逆，请管理员谨慎操作^_^>\
#ELSEACT
Messagebox [失败]：您不是留言板管理员。

[@删除1515]
#act
mov A284 该条留言已被删除~！
GOTO @管理留言板
BREAK
[@删除1414]
#act
mov A283 该条留言已被删除~！
GOTO @管理留言板
BREAK
[@删除1313]
#act
mov A282 该条留言已被删除~！
GOTO @管理留言板
BREAK
[@删除1212]
#act
mov A281 该条留言已被删除~！
GOTO @管理留言板
BREAK
[@删除1111]
#act
mov A280 该条留言已被删除~！
GOTO @管理留言板
BREAK
[@删除1010]
#act
mov A279 该条留言已被删除~！
GOTO @管理留言板
BREAK
[@删除99]
#act
mov A278 该条留言已被删除~！
GOTO @管理留言板
BREAK
[@删除88]
#act
mov A277 该条留言已被删除~！
GOTO @管理留言板
BREAK
[@删除77]
#act
mov A276 该条留言已被删除~！
GOTO @管理留言板
BREAK
[@删除66]
#act
mov A275 该条留言已被删除~！
GOTO @管理留言板
BREAK
[@删除55]
#act
mov A274 该条留言已被删除~！
GOTO @管理留言板
BREAK
[@删除44]
#act
mov A273 该条留言已被删除~！
GOTO @管理留言板
BREAK
[@删除33]
#act
mov A272 该条留言已被删除~！
GOTO @管理留言板
BREAK
[@删除22]
#act
mov A271 该条留言已被删除~！
GOTO @管理留言板
BREAK
[@删除11]
#act
mov A270 该条留言已被删除~！
GOTO @管理留言板
BREAK
[@申请管理员]
#IF
CHECKTEXTLIST ..\QuestDiary\留言板\留言板管理员.txt <$USERNAME>
#ACT
Messagebox [失败]：您已经是留言板管理员，无需重复申请！
GOTO @留言板
BREAK
#if
#ACT
CloseBigDialogBox
#say
<$USERNAME>.欢迎光临.\
申请管理员需要注意的事项：\
1.经常在线，有责任心。\
2.对于违规的留言能够及时删除。\
3.和客服取得管理员激活码。\ \
<点此输入管理员激活码成为[url=]/@@InPutString272[/url]>留言板管理员\ \
<返回/@留言板>\

[@@InPutString272]
#IF
Checknamelist ..\Questdiary\留言板\留言板黑名单.txt
#ACT
Messagebox [失败]：黑名单禁止申请！
#ELSEACT
GOTO @InPutString272
[@InPutString272]
#IF
CHECKTEXTLIST ..\QuestDiary\留言板\留言板申请码.txt <$STR(S272)>
#ACT
AddTextList ..\QuestDiary\留言板\留言板管理员.txt <$USERNAME>
DELTEXTLIST ..\QuestDiary\留言板\留言板申请码.txt <$STR(S272)>
Messagebox [成功]：\恭喜~！\您已经成为留言板管理员！
GOTO @留言板
#ELSEACT
Messagebox [失败]：激活码不正确！
GOTO @留言板
BREAK

测试图：
204943lbqkk48s2a2a0aev_副本.png

		自动登录	找回密码
密码			立即注册

	80族长：充值比例1:100	03-29 22:52
	80族长：版本里面赞助NPC的使用方法！	02-20 14:51

小喇叭+ 发布

[GEE引擎] 留言板[脚本]-80家族网

主题推荐