项目

一般

简介

行会红包 » 历史记录 » 修订 26

修订 25 (chenjun, 2022-06-02 17:34) → 修订 26/29 (chenjun, 2022-06-02 17:52)

h4. %{color:green}行会红包% 

 玩家可以在行会中发红包给行会成员,也可以收取其他成员发放的红包 

 - 
 - 

 h4. *%{color:deepskyblue}特戒引擎脚本示例:%* 

 - 
 - 

 bq. %{color:lightGrey};..\Mir200\Envir\QuestDiary\行会红包\行会红包.txt% 
 [<notextile>@</notextile>main] 
 %{color:lightGrey};行会红包UI显示处理% 
 #if 
 #act 
 openMerchantBigDlg lc_chuangti 4 0 0 1 0 0 
 goto <notextile>@</notextile>生成红包列表 
 goto <notextile>@</notextile>红包数据 
 #say 
 <panelsize:1440:900>\ 
 <Img:lc_quyufenge_01:255:95:1>\ 
 <Img:lc_quyufenge_02:270:760:1>\ 
 <text:灵符:<$gameGird>{scolor=250}:1100:840> \ 
 <ImgButton:lc_anniuhui_4zi_da:1300:820:去发红包/<notextile>@</notextile>去发红包>\ 
 %{color:lightGrey};创建领取红包列表界面% 
 <notextile><</notextile>*{color:green}[[dlg_itemGrid_|itemGrid]]*:GridName,0,0,1:260:80:310,410:1,4,652,1:0>\ 
 &nbsp; 
 &nbsp; 
 [<notextile>@</notextile>去发红包] 
 #if 
 #act 
 mov n$发红包金额显示值 1000 
 mov n$发红包数量显示值 10 
 goto <notextile>@</notextile>设置红包 
 &nbsp; 
 &nbsp; 
 [<notextile>@</notextile>设置红包] 
 #if 
 #act 
 openMerchantBigDlg lc_chuangti 4 0 0 1 0 0 
 #say 
 %{color:lightGrey};红包展示% 
 <Img:lc_hongbao_03:123:225:1:1.5> 
 <text:<$userName>的红包{scolor=151}:200:240> \ 
 <text:恭喜发财,大吉大利{scolor=151}:128:374> \ 
 <text:发放金额:{scolor=161}:500:230> \ 
 <img:huatiao01:832:222:1:1> 
 %{color:lightGrey};红包金额输入框% 
 <notextile><</notextile>*{color:green}[[dlg_Input_|Input]]*:1:1:<$str(n$发红包金额显示值)>:161:400:40:161:30:6:921:237/<notextile>@</notextile>endInput1> \ 
 &nbsp; 
 <text:今日可发<$str(u$今日剩余可发灵符)>灵符{scolor=160}:803:317> \ 
 <ImgButton:lc_shangcheng_jh_anniu:772:224:/<notextile>@</notextile>发放金额减>\ 
 <ImgButton:lc_shangcheng_jiahao_anniu:1074:224:/<notextile>@</notextile>发放金额加>\ 
 <text:红包数量:{scolor=161}:500:480> \ 
 <img:huatiao01:832:474:1:1> 
 %{color:lightGrey};红包数量输入框% 
 <notextile><</notextile>*{color:green}[[dlg_Input_|Input]]*:2:1:<$str(n$发红包数量显示值)>:161:400:40:161:30:4:931:487/<notextile>@</notextile>endInput2> \ 
 <ImgButton:lc_shangcheng_jh_anniu:772:476:/<notextile>@</notextile>红包数量减>\ 
 <ImgButton:lc_shangcheng_jiahao_anniu:1074:476:/<notextile>@</notextile>红包数量加>\ 
 <text:祝福语:{scolor=161}:500:700> \ 
 <text:恭喜发财,大吉大利{scolor=161}:692:700> \ 
 <text:注:未领取的红包将于24小时后退还{scolor=250}:100:850> \ 
 <ImgButton:lc_anniuhui_4zi_da:1200:820:发送/<notextile>@</notextile>submitinput>\ 
 &nbsp; 
 &nbsp; 
 [<notextile>@</notextile>endInput1] 
 %{color:lightGrey};触发编辑结束,如未输入红包金额,会返回一个空字符% 
 #act 
 mov n$新红包金额 <$str(s1)> 
 &nbsp; 
 #if 
 not equal s1 
 small n$新红包金额 n$发红包金额显示值 
 #act 
 sendtipsmsg 红包金额最少需要1000灵符 
 mov s1 1000 
 mov n$发红包金额显示值 <$str(s1)> 
 goto <notextile>@</notextile>设置红包 
 #elseact 
 mov n$发红包金额显示值 <$str(s1)> 
 &nbsp; 
 &nbsp; 
 [<notextile>@</notextile>endInput2] 
 %{color:lightGrey};触发编辑结束,如未输入红包数量,会返回一个空字符% 
 #act 
 mov n$新红包数量 <$str(s2)> 
 &nbsp; 
 #if 
 not equal s2 
 small n$新红包数量 n$发红包数量显示值 
 #act 
 sendtipsmsg 红包数量最少10个 
 mov s2 10 
 mov n$发红包数量显示值 <$str(s2)> 
 goto <notextile>@</notextile>设置红包 
 #elseact 
 mov n$发红包数量显示值 <$str(s2)> 
 &nbsp; 
 &nbsp; 
 %{color:lightGrey};点击调整红包金额的减号按钮触发% 
 [<notextile>@</notextile>发放金额减] 
 #if 
 small n$发红包金额显示值 1001 
 #act 
 mov n$发红包金额显示值 1000 
 sendtipsmsg 红包金额最少需要1000灵符 
 #elseact 
 mov n$显示值数字化金额 <$str(n$发红包金额显示值)> 
 dec n$显示值数字化金额 100 
 mov n$发红包金额显示值 <$str(n$显示值数字化金额)> 
 goto <notextile>@</notextile>设置红包 
 &nbsp; 
 &nbsp; 
 %{color:lightGrey};点击调整红包金额的加号按钮触发% 
 [<notextile>@</notextile>发放金额加] 
 #if 
 equal s1 
 #act 
 mov s1 10 
 mov n$显示值数字化金额 1000 
 inc n$显示值数字化金额 100 
 mov n$发红包金额显示值 <$str(n$显示值数字化金额)> 
 goto <notextile>@</notextile>设置红包 
 break 
 &nbsp; 
 #if 
 #act 
 mov n$显示值数字化金额 <$str(n$发红包金额显示值)> 
 inc n$显示值数字化金额 100 
 mov n$发红包金额显示值 <$str(n$显示值数字化金额)> 
 goto <notextile>@</notextile>设置红包 
 &nbsp; 
 &nbsp; 
 %{color:lightGrey};点击调整红包数量的减号按钮触发% 
 [<notextile>@</notextile>红包数量减] 
 #if 
 small n$发红包数量显示值 11 
 #act 
 mov n$发红包数量显示值 10 
 sendtipsmsg 红包数量最少10个 
 #elseact 
 mov n$显示值数字化数量 <$str(n$发红包数量显示值)> 
 dec n$显示值数字化数量 1 
 mov n$发红包数量显示值 <$str(n$显示值数字化数量)> 
 goto <notextile>@</notextile>设置红包 
 &nbsp; 
 &nbsp; 
 %{color:lightGrey};点击调整红包数量的加号按钮触发% 
 [<notextile>@</notextile>红包数量加] 
 #if 
 equal s2 
 #act 
 mov s2 10 
 mov n$显示值数字化数量 10 
 inc n$显示值数字化数量 1 
 mov n$发红包数量显示值 <$str(n$显示值数字化数量)> 
 goto <notextile>@</notextile>设置红包 
 break 
 &nbsp; 
 #if 
 #act 
 mov n$显示值数字化数量 <$str(n$发红包数量显示值)> 
 inc n$显示值数字化数量 1 
 mov n$发红包数量显示值 <$str(n$显示值数字化数量)> 
 goto <notextile>@</notextile>设置红包 
 &nbsp; 
 &nbsp; 
 [<notextile>@</notextile>submitinput] 
 %{color:lightGrey};触发提交时,如果未输入过任何内容,则返回值为空格% 
 #if 
 equal " " <$str(s1)> 
 #act 
 mov s1 <$str(n$发红包金额显示值)> 
 &nbsp; 
 #if 
 equal " " <$str(s2)> 
 #act 
 mov s2 <$str(n$发红包数量显示值)> 
 &nbsp; 
 %{color:lightGrey};今日剩余可发灵符不足时,弹出提示% 
 #act 
 mov n$新红包金额 <$str(s1)> 
 &nbsp; 
 #if 
 large n$新红包金额 u$今日剩余可发灵符 
 #act 
 messageBox 今日剩余可发灵符不足 
 break 
 &nbsp; 
 #if 
 small n$新红包金额 1000 
 #act 
 messageBox 红包金额最少需要1000灵符 
 break 
 &nbsp; 
 #if 
 small n$新红包数量 10 
 #act 
 messageBox 红包数量最少10个 
 break 
 &nbsp; 
 #if 
 #act 
 mov n$新红包金额 <$str(s1)> 
 %{color:lightGrey};更新今日剩余可发灵符% 
 dec u$今日剩余可发灵符 n$新红包金额 
 %{color:lightGrey};扣除灵符% 
 gameGird - <$str(s1)> 
 %{color:lightGrey};添加新红包数据,时间戳,发放者角色名,红包总金额,红包数量% 
 mov s$新红包数据 <$timeStamp>|<$userName>|<$str(s1)>|<$str(s2)>|: 
 inc s$新红包数据 <$guild2(行会红包)> 
 *{color:green}[[calcVar]]* guild2 行会红包 = <$str(s$新红包数据)> 
 %{color:lightGrey};更新自己发出的红包列表,过期退还红包余额时用% 
 mov s1 <$str(t$自己发出的红包列表)> 
 inc s1 <$timeStamp>| 
 mov t$自己发出的红包列表 <$str(s1)>  
 sendMsg 6 发送红包成功 
 %{color:lightGrey};重新加载红包列表界面% 
 goto <notextile>@</notextile>main 
 &nbsp; 
 &nbsp; 
 [<notextile>@</notextile>生成红包列表] 
 %{color:lightGrey};获取全部的行会红包,包括不能领取的% 
 #act 
 mov s$红包列表含已领取 <$guild2(行会红包)> 
 *{color:green}[[pgExtractString]]* : s$红包列表含已领取 s$红包列表含已领取分割后 n$行会红包总数 
 mov n$红包计数器 1 
 &nbsp; 
 %{color:lightGrey};循环取出列表中各红包的时间戳% 
 #if loop n$行会红包总数 
 #act 
 %{color:lightGrey};取出单个红包数据% 
 mov n$var <$str(n$红包计数器)> 
 *{color:green}[[getListValue]]* s$红包列表含已领取分割后 <$str(n$var)> s$红包 
 %{color:lightGrey};取出红包的时间戳% 
 *{color:green}[[pgExtractString]]* | <$str(s$红包)> s$红包分割后 n$红包分割后 
 mov n$var 1 
 *{color:green}[[getListValue]]* s$红包分割后 <$str(n$var)> s$红包的时间戳 
 goto <notextile>@</notextile>过滤红包 
 inc n$红包计数器 1 
 &nbsp; 
 &nbsp; 
 [<notextile>@</notextile>过滤红包] 
 %{color:lightGrey};列表不展示自己已经领取过的行会红包,列表不展示发出超过24小时的行会红包% 
 %{color:lightGrey};检测时间戳是否在自己领过的红包列表中,检测时间戳与当前时间的差值是否大于24小时% 
 #act 
 mov n$var1 <$timeStamp> 
 mov n$var2 <$str(s$红包的时间戳)> 
 dec n$var1 n$var2 
 div n$发出多少小时 n$var1 3600 
 &nbsp; 
 #or 
 *{color:green}[[checkContainsText]]* t$自己领过的红包列表 s$红包的时间戳 
 not small n$发出多少小时 24 
 #act 
 mov s$tmp 
 *{color:green}[[ansiReplaceText]]* s$红包列表含已领取 <$str(s$红包)>: s$tmp 
 mov s$红包列表 <$str(s$红包列表含已领取)> 
 #elseact 
 mov s$红包列表 <$str(s$红包列表含已领取)> 
 &nbsp; 
 &nbsp; 
 [<notextile>@</notextile>红包数据] 
 #act 
 *{color:green}[[pgExtractString]]* : s$红包列表 s$红包列表分割后 n$行会红包总数 
 &nbsp; 
 %{color:lightGrey};没有可领取的红包% 
 #if 
 equal n$行会红包总数 0 
 #act 
 mov s$itemList  
 &nbsp; 
 %{color:lightGrey};红包界面第1个红包% 
 #if 
 large n$行会红包总数 0 
 #act 
 mov n$var 1 
 *{color:green}[[getListValue]]* s$红包列表分割后 <$str(n$var)> s$红包1 
 *{color:green}[[pgExtractString]]* | <$str(s$红包1)> s$红包分割后 n$红包分割数 
 mov n$var 2 
 *{color:green}[[getListValue]]* s$红包分割后 <$str(n$var)> s$红包角色名 
 mov s$item1 (<itemindex:1> 
 inc s$item1 <Img:lc_hongbao_01:25:10:1/<notextile>@</notextile>领取红包(1)> 
 inc s$item1 <Img:lc_qiang:100:250:1> 
 inc s$item1 <text:<$str(s$红包角色名)>的红包{scolor=151}:60:55> 
 inc s$item1 <text:恭喜发财,大吉大利{scolor=151}:35:175>) 
 mov s$itemList <$str(s$item1)> 
 &nbsp; 
 %{color:lightGrey};红包界面第2个红包% 
 #if 
 large n$行会红包总数 1 
 #act 
 mov n$var 2 
 *{color:green}[[getListValue]]* s$红包列表分割后 <$str(n$var)> s$红包2 
 *{color:green}[[pgExtractString]]* | <$str(s$红包2)> s$红包分割后 n$红包分割数 
 mov n$var 2 
 *{color:green}[[getListValue]]* s$红包分割后 <$str(n$var)> s$红包角色名 
 mov s$item2 (<itemindex:2> 
 inc s$item2 <Img:lc_hongbao_01:25:10:1/<notextile>@</notextile>领取红包(2)> 
 inc s$item2 <Img:lc_qiang:100:250:1> 
 inc s$item2 <text:<$str(s$红包角色名)>的红包{scolor=151}:60:55> 
 inc s$item2 <text:恭喜发财,大吉大利{scolor=151}:35:175>) 
 inc s$itemList <$str(s$item2)> 
 &nbsp; 
 %{color:lightGrey};红包界面第3个红包% 
 #if 
 large n$行会红包总数 2 
 #act 
 mov n$var 3 
 *{color:green}[[getListValue]]* s$红包列表分割后 <$str(n$var)> s$红包3 
 *{color:green}[[pgExtractString]]* | <$str(s$红包3)> s$红包分割后 n$红包分割数 
 mov n$var 2 
 *{color:green}[[getListValue]]* s$红包分割后 <$str(n$var)> s$红包角色名 
 mov s$item3 (<itemindex:3> 
 inc s$item3 <Img:lc_hongbao_01:25:10:1/<notextile>@</notextile>领取红包(3)> 
 inc s$item3 <Img:lc_qiang:100:250:1> 
 inc s$item3 <text:<$str(s$红包角色名)>的红包{scolor=151}:60:55> 
 inc s$item3 <text:恭喜发财,大吉大利{scolor=151}:35:175>) 
 inc s$itemList <$str(s$item3)> 
 &nbsp; 
 %{color:lightGrey};红包界面第4个红包% 
 #if 
 large n$行会红包总数 3 
 #act 
 mov n$var 4 
 *{color:green}[[getListValue]]* s$红包列表分割后 <$str(n$var)> s$红包4 
 *{color:green}[[pgExtractString]]* | <$str(s$红包4)> s$红包分割后 n$红包分割数 
 mov n$var 2 
 *{color:green}[[getListValue]]* s$红包分割后 <$str(n$var)> s$红包角色名 
 mov s$item4 (<itemindex:4> 
 inc s$item4 <Img:lc_hongbao_01:25:10:1/<notextile>@</notextile>领取红包(4)> 
 inc s$item4 <Img:lc_qiang:100:250:1> 
 inc s$item4 <text:<$str(s$红包角色名)>的红包{scolor=151}:60:55> 
 inc s$item4 <text:恭喜发财,大吉大利{scolor=151}:35:175>) 
 inc s$itemList <$str(s$item4)> 
 &nbsp; 
 %{color:lightGrey};红包界面第5个红包% 
 #if 
 large n$行会红包总数 4 
 #act 
 mov n$var 5 
 *{color:green}[[getListValue]]* s$红包列表分割后 <$str(n$var)> s$红包5 
 *{color:green}[[pgExtractString]]* | <$str(s$红包5)> s$红包分割后 n$红包分割数 
 mov n$var 2 
 *{color:green}[[getListValue]]* s$红包分割后 <$str(n$var)> s$红包角色名 
 mov s$item5 (<itemindex:5> 
 inc s$item5 <Img:lc_hongbao_01:25:10:1/<notextile>@</notextile>领取红包(5)> 
 inc s$item5 <Img:lc_qiang:100:250:1> 
 inc s$item5 <text:<$str(s$红包角色名)>的红包{scolor=151}:60:55> 
 inc s$item5 <text:恭喜发财,大吉大利{scolor=151}:35:175>) 
 inc s$itemList <$str(s$item5)> 
 &nbsp; 
 %{color:lightGrey};红包界面第6个红包% 
 #if 
 large n$行会红包总数 5 
 #act 
 mov n$var 6 
 *{color:green}[[getListValue]]* s$红包列表分割后 <$str(n$var)> s$红包6 
 *{color:green}[[pgExtractString]]* | <$str(s$红包6)> s$红包分割后 n$红包分割数 
 mov n$var 2 
 *{color:green}[[getListValue]]* s$红包分割后 <$str(n$var)> s$红包角色名 
 mov s$item6 (<itemindex:6> 
 inc s$item6 <Img:lc_hongbao_01:25:10:1/<notextile>@</notextile>领取红包(6)> 
 inc s$item6 <Img:lc_qiang:100:250:1> 
 inc s$item6 <text:<$str(s$红包角色名)>的红包{scolor=151}:60:55> 
 inc s$item6 <text:恭喜发财,大吉大利{scolor=151}:35:175>) 
 inc s$itemList <$str(s$item6)> 
 &nbsp; 
 %{color:lightGrey};红包界面第7个红包% 
 #if 
 large n$行会红包总数 6 
 #act 
 mov n$var 7 
 *{color:green}[[getListValue]]* s$红包列表分割后 <$str(n$var)> s$红包7 
 *{color:green}[[pgExtractString]]* | <$str(s$红包7)> s$红包分割后 n$红包分割数 
 mov n$var 2 
 *{color:green}[[getListValue]]* s$红包分割后 <$str(n$var)> s$红包角色名 
 mov s$item7 (<itemindex:7> 
 inc s$item7 <Img:lc_hongbao_01:25:10:1/<notextile>@</notextile>领取红包(7)> 
 inc s$item7 <Img:lc_qiang:100:250:1> 
 inc s$item7 <text:<$str(s$红包角色名)>的红包{scolor=151}:60:55> 
 inc s$item7 <text:恭喜发财,大吉大利{scolor=151}:35:175>) 
 inc s$itemList <$str(s$item7)> 
 &nbsp; 
 %{color:lightGrey};红包界面第8个红包% 
 #if 
 large n$行会红包总数 7 
 #act 
 mov n$var 8 
 *{color:green}[[getListValue]]* s$红包列表分割后 <$str(n$var)> s$红包8 
 *{color:green}[[pgExtractString]]* | <$str(s$红包8)> s$红包分割后 n$红包分割数 
 mov n$var 2 
 *{color:green}[[getListValue]]* s$红包分割后 <$str(n$var)> s$红包角色名 
 mov s$item8 (<itemindex:8> 
 inc s$item8 <Img:lc_hongbao_01:25:10:1/<notextile>@</notextile>领取红包(8)> 
 inc s$item8 <Img:lc_qiang:100:250:1> 
 inc s$item8 <text:<$str(s$红包角色名)>的红包{scolor=151}:60:55> 
 inc s$item8 <text:恭喜发财,大吉大利{scolor=151}:35:175>) 
 inc s$itemList <$str(s$item8)> 
 &nbsp; 
 &nbsp; 
 [<notextile>@</notextile>领取红包] 
 #if 
 #act 
 %{color:lightGrey};取出单个红包的数据% 
 mov n$var <$scriptParam1> 
 *{color:green}[[getListValue]]* s$红包列表分割后 <$str(n$var)> s$点的红包 
 *{color:green}[[pgExtractString]]* | <$str(s$点的红包)> s$红包分割后 n$红包分割数 
 %{color:lightGrey};取出红包的金额和数量% 
 mov n$var 1 
 *{color:green}[[getListValue]]* s$红包分割后 <$str(n$var)> s$点的红包时间戳 
 mov n$var 3 
 *{color:green}[[getListValue]]* s$红包分割后 <$str(n$var)> s$点的红包金额 
 mov n$var 4 
 *{color:green}[[getListValue]]* s$红包分割后 <$str(n$var)> s$点的红包数量 
 mov n1 <$str(s$点的红包金额)> 
 mov n2 <$str(s$点的红包数量)> 
 &nbsp; 
 %{color:lightGrey};随机获得红包奖励% 
 %{color:lightGrey};如果红包数量大于1,领取后更新该红包% 
 #if 
 large n2 1 
 %{color:lightGrey};领过的红包不能再领% 
 not *{color:green}[[checkContainsText]]* t$自己领过的红包列表 s$点的红包时间戳 
 #act 
 div n$当前平均值 n1 n2 
 mul n$当前平均值的2倍 n$当前平均值 2 
 %{color:lightGrey};一个行会红包只能再领2次时,最后1个玩家至少可以领取1个货币% 
 dec n$当前平均值的2倍 1 
 movr n$随机红包领取值 1 n$当前平均值的2倍 
 dec n1 n$随机红包领取值 
 dec n2 1 
 mov s1 <$str(s$红包分割后_1)>|<$str(s$红包分割后_2)>|<$str(n1)>|<$str(n2)>| 
 mov s$红包列表 <$guild2(行会红包)> 
 *{color:green}[[ansiReplaceText]]* s$红包列表 <$str(s$点的红包)> <$str(s1)> 
 *{color:green}[[calcVar]]* guild2 行会红包 = <$str(s$红包列表)> 
 gameGird + n$随机红包领取值 
 sendtipsmsg 恭喜你抢到了<$str(n$随机红包领取值)>灵符的红包 
 mov s1 <$str(t$自己领过的红包列表)> 
 inc s1 <$str(s$点的红包时间戳)>| 
 mov t$自己领过的红包列表 <$str(s1)>  
 goto <notextile>@</notextile>main 
 &nbsp; 
 %{color:lightGrey};一个行会红包只能再领1次时,领取后删除该红包% 
 #if 
 equal n2 1 
 %{color:lightGrey};自己领过的红包不能再领% 
 not *{color:green}[[checkContainsText]]* t$自己领过的红包列表 s$点的红包时间戳 
 #act 
 mov s$tmp 
 mov s$红包列表 <$guild2(行会红包)> 
 *{color:green}[[ansiReplaceText]]* s$红包列表 <$str(s$点的红包)>: s$tmp 
 *{color:green}[[calcVar]]* guild2 行会红包 = <$str(s$红包列表)> 
 gameGird + n1 
 sendtipsmsg 恭喜你抢到了<$str(n1)>灵符的红包 
 goto <notextile>@</notextile>main 
 &nbsp; 
 &nbsp; 
 [<notextile>@</notextile>返还过期红包] 
 %{color:lightGrey};循环取出自己发出的红包% 
 #act 
 *{color:green}[[pgExtractString]]* | <$str(t$自己发出的红包列表)> s1 n1 
 mov n$红包计数器 1 
 &nbsp; 
 %{color:lightGrey};循环取出自己发红包列表中红包的时间戳% 
 #if loop n1 
 #act 
 %{color:lightGrey};取出时间戳% 
 mov n$var <$str(n$红包计数器)> 
 *{color:green}[[getListValue]]* s1 <$str(n$var)> s$红包的时间戳 
 goto <notextile>@</notextile>过期处理 
 inc n$红包计数器 1 
 &nbsp; 
 %{color:lightGrey};返还过期的红包% 
 #if 
 large u$过期返还的红包金额 0 
 #act 
 messageBox 您发出的行会红包超过24小时仍未领完\现将未领取的红包退还\共退还<$str(u$过期返还的红包金额)>灵符 
 gameGird + u$过期返还的红包金额 
 sendMsg 6 你获得了退还的<$str(u$过期返还的红包金额)>灵符 
 mov u$过期返还的红包金额 0 
 &nbsp; 
 &nbsp; 
 [<notextile>@</notextile>过期处理] 
 %{color:lightGrey};根据时间戳判断该红包是否过期% 
 #act 
 mov n$var1 <$timeStamp> 
 mov n$var2 <$str(s$红包的时间戳)> 
 dec n$var1 n$var2 
 div n$发出多少小时 n$var1 3600 
 &nbsp; 
 #if 
 not small n$发出多少小时 24 
 #act 
 %{color:lightGrey};从发红包数据中删除该红包% 
 mov s$tmp 
 *{color:green}[[ansiReplaceText]]* t$自己发出的红包列表 <$str(s$红包的时间戳)>| s$tmp 
 goto <notextile>@</notextile>找出仍在行会红包中的 
 &nbsp; 
 %{color:lightGrey};过期并且依然存在于行会红包中的,找出来% 
 [<notextile>@</notextile>找出仍在行会红包中的] 
 #act 
 %{color:lightGrey};获取全部的行会红包% 
 mov s$红包列表含已领取 <$guild2(行会红包)> 
 *{color:green}[[pgExtractString]]* : s$红包列表含已领取 s$红包列表含已领取分割后 n$行会红包总数 
 &nbsp; 
 #if 
 *{color:green}[[checkContainsText]]* s$红包列表含已领取 s$红包的时间戳 
 #act 
 mov n$红包计数器2号 1 
 %{color:lightGrey};循环取出列表中红包们的时间戳% 
 #if loop n$行会红包总数 
 #act 
 %{color:lightGrey};取出红包% 
 mov n$var <$str(n$红包计数器2号)> 
 *{color:green}[[getListValue]]* s$红包列表含已领取分割后 <$str(n$var)> s$红包 
 *{color:green}[[pgExtractString]]* | <$str(s$红包)> s$红包分割后 n$红包分割后 
 %{color:lightGrey};取出红包的时间戳% 
 mov n$var 1 
 *{color:green}[[getListValue]]* s$红包分割后 <$str(n$var)> s$行会红包的时间戳 
 %{color:lightGrey};取出红包的红包金额% 
 mov n$var 3 
 *{color:green}[[getListValue]]* s$红包分割后 <$str(n$var)> s$行会红包金额 
 goto <notextile>@</notextile>处理仍在行会红包中的 
 inc n$红包计数器2号 1 
 &nbsp; 
 &nbsp; 
 %{color:lightGrey};将红包余额存个人变量,再从行会红包中删除% 
 [<notextile>@</notextile>处理仍在行会红包中的] 
 #if 
 *{color:green}[[CompareText]]* s$红包的时间戳 s$行会红包的时间戳 
 #act 
 %{color:lightGrey};将红包余额存变量% 
 mov n$var <$str(s$行会红包金额)> 
 inc u$过期返还的红包金额 n$var 
 %{color:lightGrey};从行会红包中删除该红包% 
 mov s$tmp 
 mov s$红包列表 <$guild2(行会红包)> 
 *{color:green}[[ansiReplaceText]]* s$红包列表 <$str(s$红包)>: s$tmp 
 *{color:green}[[calcVar]]* guild2 行会红包 = <$str(s$红包列表)> 
 &nbsp; 
 &nbsp; 
 %{color:lightGrey};自己领红包数据中,删除时间超过24小时的红包% 
 [<notextile>@</notextile>更新领红包数据] 
 %{color:lightGrey};循环取出自己领取的红包% 
 #act 
 *{color:green}[[pgExtractString]]* | <$str(t$自己领过的红包列表)> s1 n1 
 mov n$红包计数器 1 
 &nbsp; 
 %{color:lightGrey};循环取出自己领取红包列表中红包的时间戳% 
 #if loop n1 
 #act 
 %{color:lightGrey};取出时间戳% 
 mov n$var <$str(n$红包计数器)> 
 *{color:green}[[getListValue]]* s1 <$str(n$var)> s$红包的时间戳 
 goto <notextile>@</notextile>领红包过期处理 
 inc n$红包计数器 1 
 &nbsp; 
 &nbsp; 
 [<notextile>@</notextile>领红包过期处理] 
 %{color:lightGrey};根据时间戳判断该红包是否过期% 
 #act 
 mov n$var1 <$timeStamp> 
 mov n$var2 <$str(s$红包的时间戳)> 
 dec n$var1 n$var2 
 div n$发出多少小时 n$var1 3600 
 &nbsp; 
 #if 
 not small n$发出多少小时 24 
 #act 
 %{color:lightGrey};从领红包数据中删除该红包% 
 mov s$tmp 
 *{color:green}[[ansiReplaceText]]* t$自己领过的红包列表 <$str(s$红包的时间戳)>| s$tmp 

 - 
 - 

 bq. %{color:lightGrey};..\Mir200\Envir\MapQuest_def\QManage.txt% 
 [<notextile>@</notextile>Login] 
 #if 
 %{color:lightGrey};登陆时返还过期红包% 
 #call [\行会红包\行会红包.txt] <notextile>@</notextile>返还过期红包 
 %{color:lightGrey};登陆时,自己领红包数据中,删除时间超过24小时的红包% 
 #call [\行会红包\行会红包.txt] <notextile>@</notextile>更新领红包数据 
 &nbsp; 
 %{color:lightGrey};每日首次登陆时重置每日数据% 
 #if 
 checkLoginCount = 1 
 #act 
 mov u$今日剩余可发灵符 10000000