论坛 › 脚本技术 › 传奇版本元宝留言系统脚本

GM部落 发表于 2015-5-11 12:31:10

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

传奇元宝留言系统次脚本由传奇一条龙开传奇提供
(@@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)>元宝.\ \
<输入发布信息/@@InPutString30><返回/@发表>\ \
[@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)>元宝.\ \
<输入发布信息/@@InPutString31><返回/@发表>\ \
[@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)>元宝.\ \
<输入发布信息/@@InPutString32><返回/@发表>\ \
[@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)>元宝.\ \
<输入发布信息/@@InPutString33><返回/@发表>\ \
[@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)>元宝.\ \
<输入发布信息/@@InPutString34><返回/@发表>\ \
[@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)>元宝.\ \
<输入发布信息/@@InPutString35><返回/@发表>\ \
[@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)>元宝.\ \
<输入发布信息/@@InPutString36><返回/@发表>\ \
[@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)>元宝.\ \
<输入发布信息/@@InPutString37><返回/@发表>\ \
[@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)>. <返回/@发表>\ \
每使用一次需要的元宝数增加一倍。直到服务器重启或把变量清零。如和服务器其它变量有冲突。请自行修改。

laojingli 发表于 2017-11-22 06:28:22

此贴有意思~~~~~~~

laojingli 发表于 2017-11-22 06:35:47

此贴有意思~~~~~~~

laojingli 发表于 2017-11-22 06:42:05

我怎么就踩不死你呢??

laojingli 发表于 2017-11-22 06:48:01

写得好啊　估计有马甲

laojingli 发表于 2017-11-22 06:48:32

写得好啊　估计有马甲

laojingli 发表于 2017-11-22 06:53:54

谁都不容易啊 ~~

laojingli 发表于 2017-11-22 06:59:55

长时间没来看了 ～～

laojingli 发表于 2017-11-22 07:05:33

我是来收集资料滴...

laojingli 发表于 2017-11-22 07:11:40

楼上的稍等啦

查看完整版本: 传奇版本元宝留言系统脚本