香港版寶寶自動治療補快樂

為內存與找色混合腳本。
本腳本只適合目前香港版本。

1.自動補寶寶
2.自動恢複快樂
3.寶寶死亡提示
4.肉到20提示
5.可選擇5個寶寶
6.可選擇補血間隔
7.F6寵物口糧，F7快樂用品

下面為暗鍵精靈原碼
--------------------------------------



Plugin tl = Window.Foreground()
Delay 2000
base="620DC4"
base = "&H" & base
VBSCall ReadMemory(base,2,esi)
esi = esi + &H26d38
VBSCall ReadMemory(esi,2,esi1)
BBHP1 = esi1 + &H3C
MAXHP1 =esi1 + &H40
BBKL1 = esi1 + &H4C
BBHP2 = esi1 + &H12C
MAXHP2 =esi1 + &H130
BBKL2 = esi1 + &H13C
BBHP3 = esi1 + &H21C
MAXHP3 =esi1 + &H220
BBKL3 = esi1 + &H22C
BBHP4 = esi1 + &H2AC
MAXHP4 =esi1 + &H2B0
BBKL4 = esi1 + &H2BC
BBHP5 = esi1 + &H2AC
MAXHP5 =esi1 + &H2B0
BBKL5 = esi1 + &H2BC
UserVar BBXZ=DropList{宝宝1:1|宝宝2:2|宝宝3:3|宝宝4:4|宝宝5:5}请选择出战宝宝
If BBXZ=1
    BBHP = BBHP1
    MAXHP = MAXHP1
    BBNAME = BBNAME1
    BBKL = BBKL1
EndIf
If BBXZ=2
    BBHP = BBHP2
    MAXHP = MAXHP2
    BBNAME = BBNAME2
    BBKL = BBKL2
EndIf
If BBXZ=3
    BBHP = BBHP3
    MAXHP = MAXHP3
    BBNAME = BBNAME3
    BBKL = BBKL3
EndIf
If BBXZ=4
    BBHP = BBHP4
    MAXHP = MAXHP4
    BBNAME = BBNAME4
    BBKL = BBKL4
EndIf
If BBXZ=5
    BBHP = BBHP5
    MAXHP = MAXHP5
    BBNAME = BBNAME5
    BBKL = BBKL5
EndIf
For 9999999
    VBS ROU = 0
    VBS QIU = 0
    Plugin QIU = Memory.Read32Bit(tl,&H07A13A3C)
    Plugin ROU = Memory.Read32Bit(tl,&H07A13A24)
    VBSCall ReadMemory("&H"& Hex(BBHP),1,bbhp10)
    VBSCall ReadMemory("&H"& Hex(MAXHP),1,maxhp10)
    VBSCall ReadMemory("&H"& Hex(BBKL),1,bbkl10)
    Gosub BB
EndFor
Sub BB
    bbhp10 = maxhp10 - bbhp10
    If bbhp10>=5332
        Delay 50
        KeyPress 117,1
        Delay 1100
    Else
        If QIU>0
            If bbkl10<=90
                KeyPress 118,1
                Delay 1200
            EndIf
        EndIf
        If ROU=20
            Delay 100
            Beep
            Delay 1000
        EndIf
    EndIf
    UserVar PK=DropList{正常模式:1|PK模式:2}選擇戰鬥模式
    If PK = 2
        Goto 結束
    EndIf
    IfColor 27,89,000000,1
        Beep
        Delay 500
    Else
    EndIf
    Delay 40
    Rem 結束
Return