留言系统元宝版 |
(@@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 内容来自dedecms 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 copyright dedecms 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)>. <返回/@发表>\ \ 每使用一次需要的元宝数增加一倍。直到服务器重启或把变量清零。如和其它变量有冲突。请自行修改。 |
1.76精品传奇_1.76天下毁灭_1.76复古传奇_英雄合击_中变靓装传奇_无忧传奇
传奇花屏补丁,花屏补丁,土城花屏补丁,盟重土城花屏补丁下载,土城花屏补丁下载,沙巴克花屏补丁,传奇土城花屏补丁下载
网站每天发布最新、最好的传奇版本下载和与传奇服务端配套开区传奇模版,网游技术教程全部免费下载!
无忧网络是目前唯一家所有的传奇服务端,传奇私服花屏补丁,盟重花屏补丁和传奇客户端下载都经过站长亲自测试并配有真实测试图!
所有的工具软件和传奇版本在发布之前,都会经过站长亲自测试,保证chuanqisf可以进入游戏,所有软件都无毒无插件!
本站声明:本站所有技术资料与下载资源均为网络搜集整理,并不代表本站的观点与立场,如有侵犯您的权益,请来信指出,本站将立即改正Copyright © 2002-2014 无忧网络 版权所有蜀ICP备09041899号