64gm论坛 发表于 2016-12-23 08:45:01

NPC留言版脚本系统脚本 -传奇私服 一条龙

(@@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

QuestDiary\变量\颜色.txt
这个颜色.txt 自己创建下 里面就属于1-255之间的数值 是文字的颜色 一个数值是一行
比如
颜色.txt里面写

1
10
50
250
30
254


嵇古兰 发表于 2020-2-3 22:29:53

陈海龄 发表于 2020-2-4 13:46:05

席清悦 发表于 2020-2-5 03:57:20

裘因丑 发表于 2020-2-5 17:48:55

础干 发表于 2020-2-6 07:59:35

酒瞧 发表于 2020-2-6 23:31:53

仉洋然 发表于 2020-2-7 18:50:01

睹唔 发表于 2020-2-8 09:27:21

踵虑 发表于 2020-2-8 23:07:21

页: [1] 2 3 4 5 6 7
查看完整版本: NPC留言版脚本系统脚本 -传奇私服 一条龙