腾飞论坛 发表于 2012-11-28 16:30:57

传奇元宝竞价留言系统脚本

(@@InPutString @@InPutInteger )

[@main]
\ \
<$STR(A30)>\
<$STR(A31)>\
<$STR(A32)>\
<$STR(A33)>\
<$STR(A34)>\
<$STR(A35)>\
<$STR(A36)>\
<$STR(A37)>\
<发表留言是需要元宝的/SCOLOR=249>，<我要发表/@发表>，<只显示8条留言/SCOLOR=250>。\


[@发表]
欢迎光临遨游<1.76复古传奇>公告栏系统，你的元宝<$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
BREAK

#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)>. <返回/@发表>\ \

每使用一次需要的元宝数增加一倍。直到服务器重启或把变量清零。如和服务器其它变量有冲突。请自行修改。

论坛一条龙

裴朴 发表于 2014-4-4 15:14:51

今天过得很不爽！

恭帝国 发表于 2014-4-4 14:42:42

吹牛的人越来越多了！

笔迷元老院 发表于 2014-4-4 14:51:39

楼主的等级很高啊！

同年同月同日生 发表于 2014-4-4 14:39:35

楼主病的不轻啊！

超级晕 发表于 2014-4-4 15:16:18

缺乏激情了！

股吹 发表于 2014-4-20 20:00:19

论坛的人气越来越旺了！

后的体温 发表于 2014-4-20 20:04:56

东方不败外加灭绝师太啊！

后的体温 发表于 2014-4-20 19:24:53

楼主英明！

后的体温 发表于 2014-4-20 20:01:53

管它三七二十一！
页: [1] 2 3
查看完整版本: 传奇元宝竞价留言系统脚本