code macro Battle Bot luna

18.16 Administrator

Tentang bla..bla.bla..

" Delay 2000
Rem mulai
Gosub cek warna
Goto mulai
Sub cek warna
    dim color(1),s,x,y
    // color(0)kamu isi sample color ke1 yg color(1)kamu isi sample color ke2 dari momon
    //Gnoll Sharp
    color(0)="3A517A":color(1)="304774"
    //Kabold
    //color(0)="47525E":color(1)="404d56"
    //Kabold Brown
    //color(0)="0f3566":color(1)="0c3263"
    While true
        s=0
        For 2
            VBSCall findcentercolor(0,0,1024,768,color(s),x,y)
            //ini pake resolusi gw
            If x>=0 and y>=0
                MoveTo x y
                LeftClick 1
                IfColor 342,41,d69cff,0
                EndIf
                KeyPress 50,1
                Delay 1300
                KeyPress 50,1
            EndIf
            s=s+1
        EndFor
        Delay 1
    EndWhile
Return "

Tanpa tanda kutip