Sub
修改内存()
Dim
_坐标s,_坐标x,修改次数=1
Dim
背包=
array
(516,730,591,794,
"A88951"
,
"-4|12|DEAB45,-3|5|4A86D3,-11|-2|0D439D,-11|-8|2F63B4,-22|-10|DCAA42,-25|-8|AB6712,-26|5|3B73C8,-28|14|B06C18"
,0,0.9,0,300)
TracePrint
Dir.
Delete
(
"/sdcard/ms_revoland_x.txt"
)
TracePrint
Dir.
Delete
(
"/sdcard/ms_revoland_s.txt"
)
PutAttachment
"/sdcard/"
,
"*.txt"
do
If
Sys.
AppIsFront
(
"com.xiongliang.revoland"
)
Then
If
找色(背包)
then
rem
重新开始
Delay
1000
PutAttachment
"/data/data/"
,
"ms_revoland_x"
PutAttachment
"/data/data/"
,
"ms_revoland_s"
Delay
1000
zm.
Execute
(
"chmod 777 /data/data/ms_revoland_s"
)
zm.
Execute
(
"chmod 777 /data/data/ms_revoland_x"
)
Delay
500
zm.
Execute
(
"/data/data/ms_revoland_x"
)
zm.
Execute
(
"/data/data/ms_revoland_s"
)
For
100
_坐标x =
File.
Read
(
"/sdcard/ms_revoland_x.txt"
)
_坐标s =
File.
Read
(
"/sdcard/ms_revoland_s.txt"
)
If
(_坐标x =
"输入的值有误"
or
_坐标s =
"输入的值有误"
)
or
(_坐标s=
""
or
_坐标x=
""
)
then
ShowMessage
"等待内存搜索..."
TracePrint
"等待内存搜索..."
Delay
1000
修改内存 =
False
Else
ShowMessage
"内存修改成功!!!"
Delay
1000
修改内存 =
true
修改次数 = 修改次数 + 1
If
修改次数 < 4
Then
If
修改次数=2
zm.
FileWriteLine
"/sdcard/ms_revoland_x.txt"
, 1,
"6264"
zm.
FileWriteLine
"/sdcard/ms_revoland_s.txt"
, 1,
"288"
goto
重新开始
ElseIf
修改次数 = 3
Then
zm.
FileWriteLine
"/sdcard/ms_revoland_x.txt"
, 1,
"3360"
zm.
FileWriteLine
"/sdcard/ms_revoland_s.txt"
, 1,
"720"
Goto
重新开始
Else
Exit
Do
End
if
End
If
Exit
Do
End
If
Next
Else
End
If
Else
KillApp
"com.xiongliang.revoland"
Delay
2000
RunApp
"com.xiongliang.revoland"
For
15
Delay
1000
ShowMessage
"等待启动"
Next
End
if
Loop
End
Sub