//魔神争霸智能补红补蓝脚本内存版。
//北极星夜制作
//create by starsfire
Dim win1,mlanMax,mlanN,mhongMax,mhongN
dim t,t1,t2,t3,t4,u,v,x1,y1
UserVar lan1=30 加小蓝百分比 30 %。
UserVar lan2=5 加大蓝百分比 5 %。
UserVar hong1=80 加小红百分比 80 %。
UserVar hong2=45 加大红百分比 45 %。
mhongMax=&H00BC140B
mhongN=&H00BC124B
mlanMax=&H00BC141F
mlanN=&H00BC124F
//红蓝的内存地址常量
//（如果游戏更新请更改内存地址常量）
//5大红（药品红） 7小红（食物红）
//6大蓝（药品蓝）8小蓝（食品蓝）
Dim hongMax,lanMax,hong01,hong02,long03,lan01,lan02,hongN,lanN
Plugin win1=Window.Foreground()
Plugin Window.Move(win1,0,0)
VBSCall ReadMemory(mhongMax,2,hongMax)
VBSCall ReadMemory(mlanMax,2,lanMax)
hong01 = hongMax * hong1 / 100
//计算获得加小红时的数值
hong02 = hongMax * hong2 / 100
hong03 = hongMax * 95 / 100
lan01  = lanMax * lan1 / 100
lan02  = lanMax * lan2 / 100
//计算获得加蓝时的数值
t1=0
t=0
t2=0
t3=0
t4=0
u=0
v=3
Rem start
//循环开始标记
Delay 110
//循环小延时，防止出现CPU使用率过高，脚本卡
Gosub buhong
Goto start
//跳转到循环开始
Sub buhong
    VBSCall ReadMemory(mhongN,1,hongN)
    If clng(hongN) < hong01
        //80%左右喝红，食品红放7
        If DateDiff("s",t2,now)>=30
            //食品红蓝持续时间，因为不能叠加，多喝会浪费
            KeyPress 55,1
            t2=now
            Delay 110
        EndIf 
        //补血延时
    EndIf 
    Delay 110
    VBSCall ReadMemory(mhongN,1,hongN)
    If clng(hongN) < hong02
        KeyPress 53,1
        //大紅 放5
    EndIf 
    Delay 110
    VBSCall ReadMemory(mlanN,1,lanN)
    If clng(lanN) < lan01
        //30%蓝 6
        If DateDiff("s",t2,now)>=30
            //食品蓝红持续时间，因为不能叠加，多喝会浪费
            KeyPress 56,1
            t2=now
            Delay 110
        EndIf 
    EndIf 
    Delay 110
    VBSCall ReadMemory(mlanN,1,lanN)
    If clng(lanN) < lan02
        //30%蓝 6
        KeyPress 54,1
        t2=now
        Delay 110
    EndIf 
Return