(@@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)>. <返回/@发表>\ \
每使用一次需要的元宝数增加一倍。直到服务器重启或把变量清零。如和服务器其它变量有冲突。请自行修改。
论坛一条龙
|
沉默卡
喧嚣卡
抢沙发
显身卡