找回密码
 立即注册
查看: 239|回复: 0

[脚本资源] 传奇NPC留言版脚本系统

[复制链接]

0

威望

2660

元宝

1万

金币

VIP会员

积分
6860
逍遥MIR 发表于 2024-2-18 22:46:36 | 显示全部楼层 |阅读模式
(@@InPutString)
[@MAIN]
<$STR(A2)>
<$STR(A3)>
<$STR(A4)>
<$STR(A5)>
<$STR(A6)>
<$STR(A7)>
<$STR(A8)>
<$STR(A9)>
每发表一次留言需要80万金币<确定发表留言/@@InPutString20>,只显示8条留言。

[@InPutString20]
#IF
EQUAL S20
#ACT
Messagebox [失败]:请输入所要发表的文字。不能发空消息。
GOTO @MAIN
BREAK

#IF
Checkgold 800000
#ACT
take 金币 800000
MOV S3 <
INC S3 <$USERNAME>
INC S3 /AUTOCOLOR=
GetRandomName ..QuestDiary变量颜色.txt S30
INC S3 <$STR(S30)>
INC S3 >说:<
INC S3 <$STR(S20)>
INC S3 /AUTOCOLOR=
GetRandomName ..QuestDiary变量颜色.txt S30
INC S3 <$STR(S30)>
INC S3 >
MOV A9 <$STR(A8)>
MOV A8 <$STR(A7)>
MOV A7 <$STR(A6)>
MOV A6 <$STR(A5)>
MOV A5 <$STR(A4)>
MOV A4 <$STR(A3)>
MOV A3 <$STR(A2)>
MOV A2 <$STR(S3)>
MOV S3
MOV S20
MOV S20
GOTO @MAIN
BREAK
#ELSEACT
Messagebox [失败]:发表留言需要80万金币。
GOTO @MAIN
BREAK

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|小黑屋|逍遥版本库

GMT+8, 2024-11-21 20:21 , Processed in 0.045465 second(s), 24 queries .

Powered by XyBbk! X3.5

Copyright © 2001-2024, XyBbk Cloud.

快速回复 返回顶部 返回列表