GOM引擎混沌神塔脚本，传奇一条龙测试期间副本暂未开放脚本命令

西瓜柚子冰

[@Main]
#IF
CHECKTEXTLIST ..\QuestDiary\测试奖励\服务器状态控制.txt 测试
#Act
MESSAGEBOX [操作提示]:\　\　　　　　　测试期间副本暂未开放......
Break

#IF
CHECKTEXTLIST ..\QuestDiary\测试奖励\服务器状态控制.txt 开区
#Act
CloseBigDialogBox
Goto @混沌神塔数据获取
MOV N$资源序号                        14
MOV N$背景图片序号                921
MOV N$装备展示特效开始图号        910
MOV S$装备展示1                <Img:623:20:22:-120|251#爆率物品：本服所有装备>
MOV S$装备展示2                <Img:624:20:38:-120|251#爆率物品：本服所有装备>
MOV S$装备展示3                <Img:591:20:52:-120|251#爆率物品：本服所有特殊>
MOV S$装备展示4                <Img:534:20:66:-116|251#爆率物品：本服所有生肖>
MOV S$装备展示5                <Img:75:20:84:-120|251#爆率物品：本服所有技能书>
MOV S$进入地图按钮        <imgex:<$Str(N$资源序号)>:901:902:901:320:-140|^-^251#进入需要10人民币^-^/@进入地图>

OPENMERCHANTBIGDLG <$str(N$资源序号)> <$str(N$背景图片序号)> 1 4 15 -60 1 720 11
HCALL <$USERNAME> @每日刷新混沌神塔

#say
　\　\　\　\
　　　　　{第一名：<$str(S$跨区混沌神塔区服0)><$str(S$跨区混沌神塔名称0)>        <$str(S$跨区混沌神塔层数0)>层 /fcolor=243}\　\
　　　　　{第二名：<$str(S$跨区混沌神塔区服1)><$str(S$跨区混沌神塔名称1)>        <$str(S$跨区混沌神塔层数1)>层 /fcolor=251}\　\
　　　　　{第三名：<$str(S$跨区混沌神塔区服2)><$str(S$跨区混沌神塔名称2)>        <$str(S$跨区混沌神塔层数2)>层 /fcolor=253}\　\
　　　　　{第四名：<$str(S$跨区混沌神塔区服3)><$str(S$跨区混沌神塔名称3)>        <$str(S$跨区混沌神塔层数3)>层 /fcolor=146}\　\
　　　　　{第五名：<$str(S$跨区混沌神塔区服4)><$str(S$跨区混沌神塔名称4)>        <$str(S$跨区混沌神塔层数4)>层 /fcolor=250}\　\
　                 {<$str(S$当前名次)> /fcolor=249}\　\　\　\　\
　                                                                                             { <$str(N$混沌神塔奖池总额)>/fcolor=243}<元/fcolor=250>\
　                                                                                                              { <$str(N$混沌神塔奖励1)>/fcolor=242}{元/fcolor=243}\
　                                                                                                              { <$str(N$混沌神塔奖励2)>/fcolor=242}{元/fcolor=251}\
　                                                                                                              { <$str(N$混沌神塔奖励3)>/fcolor=242}{元/fcolor=253}\
　                                                                                                              { <$str(N$混沌神塔奖励4)>/fcolor=242}{元/fcolor=146}\
　                                                                                                              { <$str(N$混沌神塔奖励5)>/fcolor=242}{元/fcolor=250}\
　\　\　\　\
<playimg:<$str(N$资源序号)>:<$str(N$装备展示特效开始图号)>:10:200:8:-119:0:0>
<playimg:<$str(N$资源序号)>:<$str(N$装备展示特效开始图号)>:10:200:-2:-119:0:0>
<playimg:<$str(N$资源序号)>:<$str(N$装备展示特效开始图号)>:10:200:-14:-119:0:0>
<playimg:<$str(N$资源序号)>:<$str(N$装备展示特效开始图号)>:10:200:-24:-119:0:0>
<playimg:<$str(N$资源序号)>:<$str(N$装备展示特效开始图号)>:10:200:-36:-119:0:0>\
<$str(S$装备展示1)>
<$str(S$装备展示2)>
<$str(S$装备展示3)>
<$str(S$装备展示4)>
<$str(S$装备展示5)>\
<$str(S$进入地图按钮)><imgex:<$str(N$资源序号)>:898:899:900:415:-97|-^250#昨日总奖池:<$str(N$昨日总奖池)>元^-^
243#第一名:<$str(S$昨日混沌神塔区服0)><$str(S$昨日混沌神塔名称0)>        奖励金额:<$str(S$昨日混沌神塔奖励0)>     领取状态:<$str(S$领取状态0)>^-^
251#第二名:<$str(S$昨日混沌神塔区服1)><$str(S$昨日混沌神塔名称1)>        奖励金额:<$str(S$昨日混沌神塔奖励1)>     领取状态:<$str(S$领取状态1)>^-^
253#第三名:<$str(S$昨日混沌神塔区服2)><$str(S$昨日混沌神塔名称2)>        奖励金额:<$str(S$昨日混沌神塔奖励2)>     领取状态:<$str(S$领取状态2)>^-^
254#第四名:<$str(S$昨日混沌神塔区服3)><$str(S$昨日混沌神塔名称3)>        奖励金额:<$str(S$昨日混沌神塔奖励3)>     领取状态:<$str(S$领取状态3)>^-^
250#第五名:<$str(S$昨日混沌神塔区服4)><$str(S$昨日混沌神塔名称4)>        奖励金额:<$str(S$昨日混沌神塔奖励4)>     领取状态:<$str(S$领取状态4)>^-/@领取奖励>


[@领取奖励]
#IF
equal T4
#act
messagebox 你尚未进入昨日排名.
break

#IF
checkcontainstextlist ..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt <$str(T4)>[已领取]
#act
messagebox 你已经领取过了奖励.
break

#IF
NOT checkcontainstextlist ..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt <$str(T4)>[未领取]
#act
messagebox 你尚未进入昨日排名.
break

#if
#ACT
getliststring ..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt 0 S$领取判断0 N$领取金额0
getliststring ..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt 1 S$领取判断1 N$领取金额1
getliststring ..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt 2 S$领取判断2 N$领取金额2
getliststring ..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt 3 S$领取判断3 N$领取金额3
getliststring ..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt 4 S$领取判断4 N$领取金额4

#IF
equal S$领取判断0 <$str(T4)>[未领取]
#act
gamepoint + <$str(N$领取金额0)>
Getrandomtext ..\QuestDiary\功能文件\给于项链.txt S$给于项链
Give <$STR(S$给于项链)> 1
Getrandomtext ..\QuestDiary\功能文件\给于装备.txt S$给于装备
Give <$STR(S$给于装备)> 1
addtextlistex ..\..\..\..\通区文本\通区混沌神塔\数据文件勿动\混沌神塔喇叭.txt <混沌神塔排名奖励:/FCOLOR=224>恭喜昨日混沌神塔第一名<≮<$SERVERNAME>≯/FCOLOR=224>玩家<“<$USERNAME>”/FCOLOR=253>成功领取“<混沌神塔排名第一/FCOLOR=242>”奖励“{<$str(N$领取金额0)>RMB点以及[<$STR(S$给于项链)>]一条+[<$STR(S$给于装备)>]一件../FCOLOR=254}”.. 0
deltextlist ..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt <$str(T4)>[未领取]:<$str(N$领取金额0)>
deltextlist ..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt
addtextlistex ..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt <$str(T4)>[已领取]:<$str(N$领取金额0)> 0
goto @main
break

#IF
equal S$领取判断1 <$str(T4)>[未领取]
#act
gamepoint + <$str(N$领取金额1)>
addtextlistex ..\..\..\..\通区文本\通区混沌神塔\数据文件勿动\混沌神塔喇叭.txt <混沌神塔排名奖励:/FCOLOR=224>恭喜昨日混沌神塔第二名<≮<$SERVERNAME>≯/FCOLOR=224>玩家<“<$USERNAME>”/FCOLOR=253>成功领取“<混沌神塔排名第二/FCOLOR=242>”奖励“{<$str(N$领取金额1)>RMB点/FCOLOR=254}”.. 0
deltextlist ..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt <$str(T4)>[未领取]:<$str(N$领取金额1)>
deltextlist ..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt
addtextlistex ..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt <$str(T4)>[已领取]:<$str(N$领取金额1)> 1
goto @main
break

#IF
equal S$领取判断2 <$str(T4)>[未领取]
#act
gamepoint + <$str(N$领取金额2)>
addtextlistex ..\..\..\..\通区文本\通区混沌神塔\数据文件勿动\混沌神塔喇叭.txt <混沌神塔排名奖励:/FCOLOR=224>恭喜昨日混沌神塔第三名<≮<$SERVERNAME>≯/FCOLOR=224>玩家<“<$USERNAME>”/FCOLOR=253>成功领取“<混沌神塔排名第三/FCOLOR=242>”奖励“{<$str(N$领取金额2)>RMB点/FCOLOR=254}”.. 0
deltextlist ..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt <$str(T4)>[未领取]:<$str(N$领取金额2)>
deltextlist ..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt
addtextlistex ..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt <$str(T4)>[已领取]:<$str(N$领取金额2)> 2
goto @main
break

#IF
equal S$领取判断3 <$str(T4)>[未领取]
#act
gamepoint + <$str(N$领取金额3)>
addtextlistex ..\..\..\..\通区文本\通区混沌神塔\数据文件勿动\混沌神塔喇叭.txt <混沌神塔排名奖励:/FCOLOR=224>恭喜昨日混沌神塔第四名<≮<$SERVERNAME>≯/FCOLOR=224>玩家<“<$USERNAME>”/FCOLOR=253>成功领取“<混沌神塔排名第四/FCOLOR=242>”奖励“{<$str(N$领取金额3)>RMB点/FCOLOR=254}”.. 0
deltextlist ..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt <$str(T4)>[未领取]:<$str(N$领取金额3)>
deltextlist ..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt
addtextlistex ..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt <$str(T4)>[已领取]:<$str(N$领取金额3)> 3
goto @main
break

#IF
equal S$领取判断4 <$str(T4)>[未领取]
#act
gamepoint + <$str(N$领取金额4)>
addtextlistex ..\..\..\..\通区文本\通区混沌神塔\数据文件勿动\混沌神塔喇叭.txt <混沌神塔排名奖励:/FCOLOR=224>恭喜昨日混沌神塔第五名<≮<$SERVERNAME>≯/FCOLOR=224>玩家<“<$USERNAME>”/FCOLOR=253>成功领取“<混沌神塔排名第五/FCOLOR=242>”奖励“{<$str(N$领取金额4)>RMB点/FCOLOR=254}”.. 0
deltextlist ..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt <$str(T4)>[未领取]:<$str(N$领取金额4)>
deltextlist ..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt
addtextlistex ..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt <$str(T4)>[已领取]:<$str(N$领取金额4)> 4
goto @main
break

[@进入地图]
#IF
CHECKTEXTLIST ..\QuestDiary\测试奖励\服务器状态控制.txt 测试
#Act
MESSAGEBOX [操作提示]:\　\　　　　　　测试期间副本暂未开放......
Break

#IF
checkgamepoint < 10
#act
MESSAGEBOX 进入失败：\\RMB点不足10元！
break

#IF
#act
HCALL <$USERNAME> @个人序号获取

#if
#act
gamepoint - 10
MOV N$混沌神塔金额累计 10
MOVR N$随机 0 1000000
MOV N$混沌神塔当前层 1
MOV S$混沌神塔地图号 当前层<$str(N$混沌神塔当前层)>x<$username>x<$str(N$随机)>x<$day>x<$hour>x<$minute>
ADDMIRRORMAP T339 <$str(S$混沌神塔地图号)> 跨服混沌神塔<$str(N$混沌神塔当前层)>层 3600 0159 9999
mongenex <$str(S$混沌神塔地图号)> 20 23 通天教主88001 5 1 0 251
CreateNPC 混沌神塔 <$str(S$混沌神塔地图号)> 20 23 15 混沌神塔内 1
map <$str(S$混沌神塔地图号)>
HCALL <$USERNAME> @每日刷新混沌神塔
HCALL <$USERNAME> @混沌神塔层数记录

[@混沌神塔数据获取]
IF
#ACT
getliststring ..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt 5 N$昨日总奖池
getliststring ..\..\..\..\通区文本\通区混沌神塔\昨日排行记录A.txt 0 S$昨日混沌神塔名称0 S$无效
getliststring ..\..\..\..\通区文本\通区混沌神塔\昨日排行记录B.txt 0 S$昨日混沌神塔区服0 S$无效
getliststring ..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt 0 S$领取状态0 S$昨日混沌神塔奖励0
getliststring ..\..\..\..\通区文本\通区混沌神塔\昨日排行记录A.txt 1 S$昨日混沌神塔名称1 S$无效
getliststring ..\..\..\..\通区文本\通区混沌神塔\昨日排行记录B.txt 1 S$昨日混沌神塔区服1 S$无效
getliststring ..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt 1 S$领取状态1 S$昨日混沌神塔奖励1
getliststring ..\..\..\..\通区文本\通区混沌神塔\昨日排行记录A.txt 2 S$昨日混沌神塔名称2 S$无效
getliststring ..\..\..\..\通区文本\通区混沌神塔\昨日排行记录B.txt 2 S$昨日混沌神塔区服2 S$无效
getliststring ..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt 2 S$领取状态2 S$昨日混沌神塔奖励2
getliststring ..\..\..\..\通区文本\通区混沌神塔\昨日排行记录A.txt 3 S$昨日混沌神塔名称3 S$无效
getliststring ..\..\..\..\通区文本\通区混沌神塔\昨日排行记录B.txt 3 S$昨日混沌神塔区服3 S$无效
getliststring ..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt 3 S$领取状态3 S$昨日混沌神塔奖励3
getliststring ..\..\..\..\通区文本\通区混沌神塔\昨日排行记录A.txt 4 S$昨日混沌神塔名称4 S$无效
getliststring ..\..\..\..\通区文本\通区混沌神塔\昨日排行记录B.txt 4 S$昨日混沌神塔区服4 S$无效
getliststring ..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt 4 S$领取状态4 S$昨日混沌神塔奖励4
INC S$昨日混沌神塔奖励0 元
INC S$昨日混沌神塔奖励1 元
INC S$昨日混沌神塔奖励2 元
INC S$昨日混沌神塔奖励3 元
INC S$昨日混沌神塔奖励4 元
DEC S$领取状态0 1 5
DEC S$领取状态1 1 5
DEC S$领取状态2 1 5
DEC S$领取状态3 1 5
DEC S$领取状态4 1 5
DEC S$昨日混沌神塔区服0 1 5
DEC S$昨日混沌神塔区服1 1 5
DEC S$昨日混沌神塔区服2 1 5
DEC S$昨日混沌神塔区服3 1 5
DEC S$昨日混沌神塔区服4 1 5
DEC S$昨日混沌神塔名称0 1 5
DEC S$昨日混沌神塔名称1 1 5
DEC S$昨日混沌神塔名称2 1 5
DEC S$昨日混沌神塔名称3 1 5
DEC S$昨日混沌神塔名称4 1 5


getliststring ..\..\..\..\通区文本\通区混沌神塔\奖池金额.txt 0 N$混沌神塔奖池总额
MOV N$混沌神塔奖励1 <$str(N$混沌神塔奖池总额)>
MOV N$混沌神塔奖励2 <$str(N$混沌神塔奖池总额)>
MOV N$混沌神塔奖励3 <$str(N$混沌神塔奖池总额)>
MOV N$混沌神塔奖励4 <$str(N$混沌神塔奖池总额)>
MOV N$混沌神塔奖励5 <$str(N$混沌神塔奖池总额)>
MUL N$混沌神塔奖励1 15
MUL N$混沌神塔奖励2 10
MUL N$混沌神塔奖励3 8
MUL N$混沌神塔奖励4 5
MUL N$混沌神塔奖励5 3
DIV N$混沌神塔奖励1 100
DIV N$混沌神塔奖励2 100
DIV N$混沌神塔奖励3 100
DIV N$混沌神塔奖励4 100
DIV N$混沌神塔奖励5 100

getliststring ..\..\..\..\通区文本\通区混沌神塔\跨区排行记录B.txt 0 S$跨区混沌神塔区服0
getliststring ..\..\..\..\通区文本\通区混沌神塔\跨区排行记录B.txt 1 S$跨区混沌神塔区服1
getliststring ..\..\..\..\通区文本\通区混沌神塔\跨区排行记录B.txt 2 S$跨区混沌神塔区服2
getliststring ..\..\..\..\通区文本\通区混沌神塔\跨区排行记录B.txt 3 S$跨区混沌神塔区服3
getliststring ..\..\..\..\通区文本\通区混沌神塔\跨区排行记录B.txt 4 S$跨区混沌神塔区服4

getliststring ..\..\..\..\通区文本\通区混沌神塔\跨区排行记录A.txt 0 S$跨区混沌神塔名称0 S$跨区混沌神塔层数0
getliststring ..\..\..\..\通区文本\通区混沌神塔\跨区排行记录A.txt 1 S$跨区混沌神塔名称1 S$跨区混沌神塔层数1
getliststring ..\..\..\..\通区文本\通区混沌神塔\跨区排行记录A.txt 2 S$跨区混沌神塔名称2 S$跨区混沌神塔层数2
getliststring ..\..\..\..\通区文本\通区混沌神塔\跨区排行记录A.txt 3 S$跨区混沌神塔名称3 S$跨区混沌神塔层数3
getliststring ..\..\..\..\通区文本\通区混沌神塔\跨区排行记录A.txt 4 S$跨区混沌神塔名称4 S$跨区混沌神塔层数4

DEC S$跨区混沌神塔区服0 1 5
DEC S$跨区混沌神塔区服1 1 5
DEC S$跨区混沌神塔区服2 1 5
DEC S$跨区混沌神塔区服3 1 5
DEC S$跨区混沌神塔区服4 1 5

DEC S$跨区混沌神塔名称0 1 5
DEC S$跨区混沌神塔名称1 1 5
DEC S$跨区混沌神塔名称2 1 5
DEC S$跨区混沌神塔名称3 1 5
DEC S$跨区混沌神塔名称4 1 5

MOV S$输入字符 <$str(S$跨区混沌神塔层数0)>
goto @混沌神塔层数计算
MOV S$跨区混沌神塔层数0 <$str(S$输入字符)>
MOV S$输入字符 <$str(S$跨区混沌神塔层数1)>
goto @混沌神塔层数计算
MOV S$跨区混沌神塔层数1 <$str(S$输入字符)>
MOV S$输入字符 <$str(S$跨区混沌神塔层数2)>
goto @混沌神塔层数计算
MOV S$跨区混沌神塔层数2 <$str(S$输入字符)>
MOV S$输入字符 <$str(S$跨区混沌神塔层数3)>
goto @混沌神塔层数计算
MOV S$跨区混沌神塔层数3 <$str(S$输入字符)>
MOV S$输入字符 <$str(S$跨区混沌神塔层数4)>
goto @混沌神塔层数计算
MOV S$跨区混沌神塔层数4 <$str(S$输入字符)>

setstringblank S$跨区混沌神塔区服0 25 1
setstringblank S$跨区混沌神塔区服1 25 1
setstringblank S$跨区混沌神塔区服2 25 1
setstringblank S$跨区混沌神塔区服3 25 1
setstringblank S$跨区混沌神塔区服4 25 1
setstringblank S$跨区混沌神塔名称0 15 1
setstringblank S$跨区混沌神塔名称1 15 1
setstringblank S$跨区混沌神塔名称2 15 1
setstringblank S$跨区混沌神塔名称3 15 1
setstringblank S$跨区混沌神塔名称4 15 1
setstringblank S$跨区混沌神塔层数0 4 0
setstringblank S$跨区混沌神塔层数1 4 0
setstringblank S$跨区混沌神塔层数2 4 0
setstringblank S$跨区混沌神塔层数3 4 0
setstringblank S$跨区混沌神塔层数4 4 0


getstringpos ..\..\..\..\通区文本\通区混沌神塔\跨区排行记录A.txt <$STR(T4)><$USERNAME>:<$str(U2)><$str(T4)>
INC N0 1
MOV S$当前名次 第<$str(N0)>名

#IF
large N0 99999
#act
MOV S$当前名次 未上榜


#IF
EQUAL S$昨日混沌神塔名称0
#act
MOV S$昨日混沌神塔区服0 暂无当前排名记录
MOV S$昨日混沌神塔奖励0 暂无排名
MOV S$领取状态0 [无记录]
#IF
EQUAL S$昨日混沌神塔名称1
#act
MOV S$昨日混沌神塔区服1 暂无当前排名记录
MOV S$昨日混沌神塔奖励1 暂无排名
MOV S$领取状态1 [无记录]
#IF
EQUAL S$昨日混沌神塔名称2
#act
MOV S$昨日混沌神塔区服2 暂无当前排名记录
MOV S$昨日混沌神塔奖励2 暂无排名
MOV S$领取状态2 [无记录]
#IF
EQUAL S$昨日混沌神塔名称3
#act
MOV S$昨日混沌神塔区服3 暂无当前排名记录
MOV S$昨日混沌神塔奖励3 暂无排名
MOV S$领取状态3 [无记录]
#IF
EQUAL S$昨日混沌神塔名称4
#act
MOV S$昨日混沌神塔区服4 暂无当前排名记录
MOV S$昨日混沌神塔奖励4 暂无排名
MOV S$领取状态4 [无记录]

#IF
#act
setstringblank S$昨日混沌神塔区服0 25 1
setstringblank S$昨日混沌神塔区服1 25 1
setstringblank S$昨日混沌神塔区服2 25 1
setstringblank S$昨日混沌神塔区服3 25 1
setstringblank S$昨日混沌神塔区服4 25 1
setstringblank S$昨日混沌神塔名称0 15 1
setstringblank S$昨日混沌神塔名称1 15 1
setstringblank S$昨日混沌神塔名称2 15 1
setstringblank S$昨日混沌神塔名称3 15 1
setstringblank S$昨日混沌神塔名称4 15 1
setstringblank S$昨日混沌神塔奖励0 9 1
setstringblank S$昨日混沌神塔奖励1 9 1
setstringblank S$昨日混沌神塔奖励2 9 1
setstringblank S$昨日混沌神塔奖励3 9 1
setstringblank S$昨日混沌神塔奖励4 9 1



[@混沌神塔层数计算]
#IF
checkstringlength <$str(S$输入字符)> = 8
#act
DEC S$输入字符 4 99
break
#IF
checkstringlength <$str(S$输入字符)> = 7
#act
DEC S$输入字符 3 99
break
#IF
checkstringlength <$str(S$输入字符)> = 6
#act
DEC S$输入字符 2 99
break
#IF
checkstringlength <$str(S$输入字符)> = 9
#act
DEC S$输入字符 5 99
break
#IF
checkstringlength <$str(S$输入字符)> = 10
#act
DEC S$输入字符 6 99
break

传说惠州

这么强,支持楼主，佩服

1893354006

我也是坐沙发的

问天指路

LZ是天才，坚定完毕

我就是小豆丁

非常好，顶一下

1855

鼎力支持！！

盛世德华

不错 支持一个了

Bigmerboy

打酱油的人拉，回复下赚取积分

城市生活

珍爱生命，果断回帖。

jeff8

楼主呀，，，您太有才了。。。