22pk一条龙发布 充值测试脚本

22pk论坛

[@MAIN]
#IF
EQUAL G499 1
#ACT
GetListString ..\QuestDiary\时光数据\人民币数据\<$USERID>.txt 0 N$测试区人民币数量
OPENMERCHANTBIGDLG 1 2180 0 4 0 0 0 230 -10
BREAK
#SAY
<ImgEx:1:1878:1877:1879:460:40/@EXIT> \ \ \ \ \ \

<>                                    <PlayImg:1:2198:7:50:0:5:0/@领取测试元宝>    <PlayImg:1:2191:7:100:0:5:0/@充值元宝>\ \ \ \

<>                                                                  {<$STR(N$测试区人民币数量)>/FCOLOR=249}\

#IF
#ACT
GetListString ..\QuestDiary\时光数据\人民币数据\<$USERID>.txt 0 N$测试区人民币数量
OPENMERCHANTBIGDLG 1 2180 0 4 0 0 0 230 -10
BREAK
#SAY
<ImgEx:1:1878:1877:1879:460:40/@EXIT> \ \ \ \ \ \

<>                                    <PlayImg:1:2198:7:50:0:5:0/@领取测试元宝>    <PlayImg:1:2191:7:100:0:5:0/@充值元宝>\ \ \

<>                             <测试区获得人民币在此处记录人民币点/FCOLOR=253>    <点击此处记录/@点击此处记录>\

<>                                                                  {<$STR(N$测试区人民币数量)>/FCOLOR=249}\

[@充值元宝]
#IF
#ACT
OpenWebSite  http://001mir.xzryjd.com/app/acquire/req?gid=5562
break


[@领取测试元宝]
#IF
LARGE N$测试区人民币数量 0
#ACT
MOV P1 <$STR(N$测试区人民币数量)>
MOV P2 <$STR(N$测试区人民币数量)>
MUL P1 2000
MUL P2 100
GAMEGOLD + <$STR(P1)>
GAMEGIRD + <$STR(P2)>
GAMEDIAMOND + <$STR(N$测试区人民币数量)>
CREDITPOINT + <$STR(N$测试区人民币数量)>
SENDMSG 1  ★[%s]:恭喜玩家<$USERNAME>领取了测试区奖励获得了<$STR(P1)>元宝。
SENDMSG 1  ★[%s]:恭喜玩家<$USERNAME>领取了测试区奖励获得了<$STR(P2)>武林币。
SENDMSG 1  ★[%s]:恭喜玩家<$USERNAME>领取了测试区奖励获得了<$STR(N$测试区人民币数量)>充值点。
SENDMSG 1  ★[%s]:恭喜玩家<$USERNAME>领取了测试区奖励获得了<$STR(N$测试区人民币数量)>幸运点。
CLEARNAMELIST ..\QuestDiary\时光数据\人民币数据\<$USERID>.txt
AddTextList ..\QuestDiary\时光数据\人民币数据\<$USERID>.txt 0
GOTO @MAIN
BREAK

#ELSEACT
MESSAGEBOX 测试区获得元宝记录为零或者已经领取完毕了！

[@点击此处记录]
#IF
CHECKGAMEPOINT > 0
#ACT
INC N$测试区人民币数量 <$GAMEPOINT>
GAMEPOINT = 0
CLEARNAMELIST ..\QuestDiary\时光数据\人民币数据\<$USERID>.txt
AddTextList ..\QuestDiary\时光数据\人民币数据\<$USERID>.txt <$STR(N$测试区人民币数量)>
GOTO @MAIN
MESSAGEBOX \　\　\人民币点记录成功，正式开区可领取等额充值！
BREAK
#ELSEACT
MESSAGEBOX \　\　\记录失败：人民币点数为零！