achment ".\plugin" ,*.dll
KeyPress 121,1
UnlockMouse
a = Plugin.Window.Find("360se_Frame",0)
Hwnd = Plugin.Window.MousePoint()
Call Plugin.Window.Size(a,1030,770)
Call Plugin.Window.Move(a,0,0)
dim chongwux(4),chongwuy(4)
dim hongT,lanT,a,b,hong,lan,wz,i
//F3红，F4蓝
//在游戏中利用按键抓点抓色工具找到x1,x2,y,color所对应的值并替换。
Rem 开始
UserVar ms=droplist{"野外打怪":1|"古堡探险":2|"竞技场":3|"副本":4}=1 "设置挂机模式（4种）"
UserVar abc3="-----以下为野地挂机设置------" "--------------------以下为野地挂机设置----------------------"
UserVar wz=droplist{"位置1":1|"位置2":2|"位置3":3|"位置4":4|"位置5":5}=2 "位置（野地打怪模式有效）"
UserVar abc2="-----以下为古堡探险设置------" "--------------------以下为古堡探险设置----------------------"
UserVar gbcs=100 "设置打古堡次数（古堡模式有效）"
UserVar wee3="-------以下为副本设置--------" "----------------------以下为副本设置------------------------"
UserVar dzxz=droplist{"队长":1}=1 "队长或队员选择副本模式有效"
UserVar fbgk=3000 "设置每次打完观看的时间（单位毫秒 1000毫秒为1秒 默认3秒）"
UserVar abc1="----以下3项为竞技场模式设置---" "-----------------以下3项为竞技场模式设置-------------------"
UserVar gj=droplist{"亚丁城":1|"克斯特城":2|"萨格尔城":3}=1 "国家选择（竞技场模式有效）"
UserVar jjccs=20 "设置打竞技场次数（竞技场模式有效）"
UserVar TN=6 "设置打竞技场的时间间隔单位：分钟 用户自行设置"
UserVar abc4="--------以下为通用设置-------" "----------------------以下为通用设置------------------------"
UserVar hong=droplist{"100%":0|"90%":1|"70%":2|"50%":3|"20%":4} "自动吃红（90%/70%/50%/20%4种）"
UserVar lan=droplist{"90%":1|"70%":2|"50%":3|"20%":4} "自动吃蓝（90%/70%/50%/20%4种）"
UserVar no=20 "设置打怪多少次修理装备（就是打多少个怪自己设置默认20）"
UserVar sw=droplist{"免费复活":1|"报警":2|"关机":3}=1 "死亡选择（野地打怪模式有效，免费复活/报警/关机）"
UserVar ch=droplist{"关闭":0|"1-2":1|"1-3":2|"1-4":3|"1-5":4|"1-6":5|"1-7":6|"1-8":7}=0 "设置自动升级宠物的个数"
UserVar TX=60 "设置宠物喂养和升级的时间单位分钟，用户自行设置默认60分钟"
UserVar yys=droplist{"关闭":1|"不关闭":2}=1 "打怪时是否关闭打怪动画"
UserVar wulan=droplist{"不加蓝":1|"加蓝":2}=1 "不加蓝（打开时只加血不加蓝 没蓝不报警）"
UserVar zdxx=droplist{"显示":1|"不显示":2}=1 "是否小窗口显示战斗信息（桌面顶端小窗口显示）"
UserVar chongqijiaob=droplist{"自动最小化":1|"手动最小化":2}=1 "重启脚本后是否最小化窗口360浏览器有效"
UserVar abc="-------以下一般不用设置-------" "---------------------以下为特殊情况才设置-------------------"
UserVar hongT=1000 "补血延时时间（1000毫秒=1秒）"
UserVar lanT=1000 "补蓝延时时间（1000毫秒=1秒）"
UserVar hongxs="0.96" "红瓶的相似度（0-1 1为最相似）"
UserVar lanxs="0.96" "蓝瓶的相似度（0-1 1为最相似）"
If zdxx=1 Then
    tisi = Plugin.WindowEx3.CreateTextRgn(0,604,1,420,19)
    Call Plugin.WindowEx3.SetTextRgnStyle(tisi,"FFFEFE","080D78","Fixedsys",13,0,1)
    Call Plugin.WindowEx3.SetWindowState(tisi,8)
End if
If chongqijiaob=1 Then
    Call Plugin.WindowEx3.SetWindowState(a,3)
End if
TXZ=now
TXX=now
//宠物1-8位置的X,Y坐标
chongwux(0)=420
chongwux(1)=558
chongwux(2)=427
chongwux(3)=556
chongwux(4)=426
chongwux(5)=552
chongwux(6)=434
chongwux(7)=561
chongwuy(0)=113
chongwuy(1)=113
chongwuy(2)=163
chongwuy(3)=165
chongwuy(4)=213
chongwuy(5)=212
chongwuy(6)=262
chongwuy(7)=266
//循环开始标记
//dgjs为打怪次数记数器
dgjs=0
hpjs=0
lpjs=0
//时间停顿判断 如果 用于在打怪刚开始的确认窗口停顿时间为70秒就重新点击开始脚本
timedaguai=70
If zdxx=1 Then
    Call Plugin.WindowEx3.SendTextRgnString(tisi,"总计打怪数为："&dgjs&"喝红瓶数为："&hpjs&"喝蓝瓶数为:"&lpjs)
End if
n=0
//jjn为竞技场次数计数器
jjn=0
Delay 32
Call 红的百分比()
Delay 32
Call 蓝的百分比()
Delay 32
Rem 打怪开始
If ms=4 Then
    Goto 关闭宠物升级
End if
Call 宠物模块1()
Call 竞技场打断()
Call 宠物模块()
Call 竞技场打断()
Rem 关闭宠物升级
Call 加血()
Call 竞技场打断()
Delay 256
If ms=1 Then
    Rem 打怪开始2
    Call 打怪()