Page 53 of 117 FirstFirst ... 343515253545563103 ... LastLast
Results 1,301 to 1,325 of 2916

Thread: [AeroLib] HoodzFighter

  1. #1301
    Join Date
    Mar 2013
    Posts
    53
    Mentioned
    0 Post(s)
    Quoted
    22 Post(s)

    Default

    Quote Originally Posted by hoodz View Post
    I got a ranged version of the script but you have to be alone at te caged orges.
    btw hoodz have u considered a super def pot addition? just a reminder =P

  2. #1302
    Join Date
    Apr 2013
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    Quote Originally Posted by hoodz View Post
    I got a ranged version of the script but you have to be alone at te caged orges.
    where is this script? and what is it called?

  3. #1303
    Join Date
    Sep 2012
    Location
    Netherlands
    Posts
    2,752
    Mentioned
    193 Post(s)
    Quoted
    1468 Post(s)

    Default

    Quote Originally Posted by thebigpicture View Post
    where is this script? and what is it called?
    Are you sure you want it? You need to be alone or it will fail. And i have this script private, if you want it i can send it to you.

  4. #1304
    Join Date
    Mar 2013
    Posts
    8
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    ever since the fight caves update, there is no combat script that can run past an hour. :/

  5. #1305
    Join Date
    Mar 2013
    Posts
    53
    Mentioned
    0 Post(s)
    Quoted
    22 Post(s)

    Default

    HpToEat = 57; // enter the amount of hitpoints where you want to eat at, example: HpToEat = 35;
    foodname = 'shark'; //lobster, salmon, trout, shark

    use_prayer = 'false';

    USEPOTS = true;
    POTSTODRINK = 2; // when do you want to drink it pots (your level + number)
    SUPER = true;
    ATTACKPOT = true;
    STRENGTHPOT = true;
    DEFENCEPOT = true;

    monstername1 = 'Og'; //enter some letters of the name of the npc you want to attack (not all), example: monstername = 'oblin';
    monstercolor1 = 9680843; //enter the monster colors here (dont pick colors that match other things alot (black, grey etc)).
    monstercolor2 = 8563135;
    monstercolor3 = 11257558;

    secondairymonster = false; // true if you want to attack a second npc (with different name)

    monstername2 = 'os';
    monstercolor4 = 5272940;
    monstercolor5 = 4743019;
    monstercolor6 = 5405553;

    RIGHTCLICKONLY = false;

    //LOOTING NOT SUGGESTED, UPDATED IN THE FUTURE!

    looting = 'false'; // if you want to loot items set to 'true' . if you dont want to loot items use: 'false'
    // item to loot number 1
    lootname1 = 'seed'; //use some letters of the item you want to loot.
    lootcolor1 = 1134136; //color of loot here. Do ! > NOT < ! use colors that match with the background or the bot will stay stuck in the take_loot procedure!
    lootcolor2 = 1333055; //and here. also make sure to ONLY pickup notes and runes, make sure you have enough space in your inventory before botting or it will keep looting if you dont even have inventory space left.
    // item to loot number 2
    lootname2 = 'seed';
    lootcolor3 = 1134136;
    lootcolor4 = 1333055;
    //item to loot number 3
    lootname3 = 'seed';
    lootcolor5 = 1134136;
    lootcolor6 = 1333055;
    //note: if you want to loot only 1 item then you just copy your colors and name to the next item to loot.

    trainingmode = 2; //use here what mode you want to use, leftupcorner: 1 rightupcorner: 2 leftundercorner:3 rightundercorner: 4, example: trainingmode: 2;
    antibantrainingmode = skill_strength; //or skill_defence, skill_attack, skill_range, skill_magic

    //END OF USER CONFIGURATIONS DONT TOUCH ANYTHING AFTER THIS!


    procedure DeclarePlayers;
    begin
    HowManyPlayers := 1;
    NumberOfPlayers(HowManyPlayers);
    CurrentPlayer := 0;
    with Players[0] do
    begin
    Name := username;
    Pass := password;
    nick := nickname;
    Active := True;
    end;
    end;

    procedure foodsetup;
    begin
    if foodname = 'lobster' then
    begin
    FoodDTM := DTMFromString('m6wAAAHic42ZgYHBhYmDwgmJPIHYEYhsgNo diOyB2BWIfIA5gZGCIAeIoIPYD4lAoDoPyfYDYC4idgHhHshjQ dEaisAaQJBYTZyIEIwEA/ycJgA==');
    end;
    if foodname = 'salmon' then
    begin
    FoodDTM := DTMFromString('mggAAAHicY2NgYOCGYhDgA2IJIBYGYi4gFg JifiBmhMqDxA44SkBFUDErAyZgxaoSYR4DAwCTLQG6');
    end;
    if foodname = 'trout' then
    begin
    FoodDTM := DTMFromString('mggAAAHicY2NgYOAGYmEglgBiPgYIAIlxQT EIMAIxPxALAXF5UhxUBBWzAklWBkyAqRKCIQAAnDwB2A==');
    end;
    if foodname = 'shark' then
    begin
    FoodDTM := DTMFromString('mlwAAAHicY2dgYOACYkYgZgViESCWYoAALi iWgfKZoXK8QCwMxDnBtlCdmJidATfArgOCoQAAsEwBww==');
    end;
    end;

    procedure LoadDTMS;
    begin
    NormalStrengthPot1 := DTMFromString('mlwAAAHicY2dgYOAAYmEgZmWAAH4g5oSKiw KxBBDzQNkCUDWyQLx1sy6QZMSKWaHmYcPYdUAwFAAA8p8CiA== ');
    NormalStrengthPot2:= DTMFromString('mlwAAAHicY2dgYGAFYgEg5gFiTiBmYoAADi AWBGIJIOaDirFB1coA8bKlmkCSEStmhZqLDWPXAcFQAADZCAJJ ');
    NormalStrengthPot3:= DTMFromString('mlwAAAHicY2dgYGAHYkYgFgRiPiDmYIAALi AWAmJpIJaEyoOAMBDLArHqtNlQnZiYFUjiwth1QDAUAADcfgJO ');
    NormalStrengthPot4:= DTMFromString('mlwAAAHicY2dgYHBmYmBwBGJrILZngvA9gd gLiNkZGRjEgZgbiP8A1f4CYh4gWwSIlyzWBPIYsWJWIIkLY9cB wVAAAHvkBc4=');
    SuperStrengthPot1:= DTMFromString('mggAAAHicY2NgYGADYh4gZmGAAH4gZgViQS BmhIrxArEAEEsC8folS6AyqJgNahY6xlSJMJeBAQDO8AKf');
    SuperStrengthpot2:= DTMFromString('mbQAAAHicY2VgYGAHYh4g5maAACYonwvKB8 mLAPGhnTuBJCMKZgaSrGiYEQsGAwCvBAKr');
    SuperStrengthpot3:= DTMFromString('mggAAAHicY2NgYGABYj4g5gRiHiBmYoAAEF scyuaHyksC8fkzZ4AkIwZmBZLYMKZKCIYAAPROAxQ=');
    SuperStrengthpot4:= DTMFromString('mlwAAAHicY2fidgYGAHYkYgFgRiPiDmYIAA LiAWAmJpIJaEyoOAMBDLArHqtNlQnZiYFUjiwth1QDAUAADcfg JO');
    NormalAttackPot1:= DTMFromString('mlwAAAHicY2dgYOAAYh4gZgJiQQYI4IBiMS DmBWIZKFsIKi8LxLrrtwJJRqyYlQE3wK4DgqEAAOlZAmY=');
    NormalAttackPot2:= DTMFromString('mlwAAAHicY2dgYGAHYkYgFgRiPiDmYIAALi AWAmJpIJaEyoOAMBDLArHqtNlQnZiYFUjiwth1QDAUAADcfgJO ');
    NormalAttackPot3:= DTMFromString('mggAAAHicY2NgYGAHYk4gZgNiRiDmY4AAfi CWhbIFgFgYiKWB2PDYGahKVMzFgB1gqoRgCAAAxSACbg==');
    NormalAttackPot4:= DTMFromString('mlwAAAHicY2dgYOBggAAQzQPEQkDMBMScUL YkVJ4biMWBWACIZYE45vwVIMmIFXMx4AbYdUAwFAAADP8C0Q== ');
    SuperAttackPot1:= DTMFromString('mbQAAAHicY2VgYGABYjYg5mOAABBfFMoWgY rLArGOwRYgyYiCWYEkOmbEgsEAAG5MAag=');
    SuperAttackPot2:= DTMFromString('mbQAAAHicY2VgYOAEYg4g5meAABBfEMoG0S JALAvEwsIBQJIRBbMCSXTMiAWDAQBMhwEa');
    SuperAttackPot3:= DTMFromString('mbQAAAHicY2VgYGCFYn4GCGBHYosCsRAQyw Kxq8clIMmIglmR9MMwIxYMBgCC6gH6');
    SuperAttackPot4:= DTMFromString('mlwAAAHicY2dgYiOAAYh4gZgkJiQQYI4IBi MSDmBWIZKFsIKi8LxLrrtwJJRhwYN8ClA0kXAOgeAmE=');
    NormalDefencePot1:= DTMFromString('mrAAAAHic42BgYOAEYnYg5gViNiDmA2IOBg gQgWIQYIKKcwOxDBCLQ7HOFgMgyYgH4wf4dCLrBgDZygHo');
    NormalDefencePot2:= DTMFromString('mrAAAAHic42BgYOACYnYozQPErAwQIAQVE2 JAAE4oFgVicSCWBWK5BgUgyYgH4wf4dCLrBgCyxgGL');
    NormalDefencePot3:= DTMFromString('mrAAAAHic42BgYOACYl4gZgdiNiDmY4AAES DmBmIeBgTgAGJOqJwoEEsBseFpUyDJiAfjB/h0IusGAOAZAfo=');
    NormalDefencePot4:= DTMFromString('mrAAAAHic42BgYOAEYnYg5gNiViDmZ4AAES DmAWIuKJ8RyuYGYlEolgLipCspUFlcGD/ApxNZNwAMnQJo');
    SuperDefencePot1:= DTMFromString('mrAAAAHic42BgYHBjYmDwA2IrIHYBYk8gdg BiJyaInBYjA4MOFBsCsRIQKwCxCBCLAvGWqTpAUxjxYPwAn05k 3QCBZwTm');
    SuperDefencePot2:= DTMFromString('mrAAAAHic42BgYOAAYjYg5gFiFiDmZYAAIa icMJTPCJUDYUkglgBiGSC+t80cKosL4wf4dCLrBgAkeQKj');
    SuperDefencePot3:= DTMFromString('mrAAAAHic42BgYOAEYiYg5gdiDiBmB2JuBg gQhorDaFkgZoTKSQCxJBBfWmcMFcWF8QN8OpF1AwAgFQKS');
    SuperDefencePot4:= DTMFromString('mrAAAAHic42BgYOACYjYg5gFiViDmZYAAYS DmhmIY4ILyxYFYDIilgXhJuwaQZMSD8QN8OpF1AwDuvwIf');
    PrayerPot1:= DTMFromString('mggAAAHicY2NgYGAFYj4g5gJiFgYIANGiUM wDFQOpkQVi/W2dQJIRA7NiFcWNIQAAqN4CEA==');
    PrayerPot2:= DTMFromString('mggAAAHicY2NgYGAFYm4g5oGyQYAJiHmBWA aIBaBi/FB+6pU1QJIRA7NiFcWNIQAAzNICiA==');
    PrayerPot3:= DTMFromString('mggAAAHicY2NgYGBngAAOIOYHYkYg5oSypa FyIkAsCMSyQGx+aT5UFSpmBZLYMKZKCIYAAMHeAmw=');
    PrayerPot4:= DTMFromString('mggAAAHicY2NgYGBngAABIOYDYk4gZgRiXi CWAmJpqDgICANx6pU1UBWomBWrKG4MAQDSJAKT');
    end;

    procedure loggingout;
    begin
    TabDTM := DTMFromString('m1gAAAHic42JgYOAFYmkg5gJiESBmBWJ+Bg SQhmKQOh4kvjRUXgKqlw2IRYE4KykJSDISxP8ZiAOETYJgBAAA z9MDgg==');
    if FindDTM(TabDTM, x, y, MIX1, MIY1, MIX2, MIY2) then
    begin
    MouseBox(X+1, Y+1, X+1, Y+1, mouse_left);
    sleep(10000+random(4000))
    logout;
    FreeDTM(TabDTM);
    terminatescript;
    end;
    end;

    procedure AntiBan;
    begin
    case random(1000) of
    0..1: begin
    hoverskill(antibantrainingmode, false)
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' antiban: hovering skill'
    sleep(800+random(500)) end;
    2..3: begin hoverskill(skill_hitpoints, false)
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' antiban: hovering skill'
    sleep(800+random(500)) end;
    4..10: begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' antiban: moving camera'
    makecompass(randomrange(0, 360))
    sleep(800+random(500)) end;
    11..26: begin
    MMouse(x, y, 4, 4);
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' antiban: random mouse movement'
    sleep(800+random(500)) end;
    17: begin
    if (use_prayer = 'false') then
    case random(2) of
    1: begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' antiban: afk mode'
    wait(80000+ random(40000))
    end
    end
    else
    if use_prayer = 'true' then
    antiban;
    end;
    18: begin adjustmousespeed(2, 10, 20)
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' antiban: changing mouse speed'
    sleep(800+random(500)) end;
    19: begin randomRClick;
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' antiban: random right click'
    sleep(800+random(500)) end;
    20: begin hovermovingobject;
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' antiban: hovering random object'
    sleep(800+random(500)) end;
    21: begin MMouseOffClient('top');
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' moving mouse off client'
    sleep(800+random(500)) end;
    22: begin MMouseOffClient('left');
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' antiban: moving mouse off client'
    sleep(800+random(500)) end;
    23: begin MMouseOffClient('right');
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' antiban: moving mouse off client'
    sleep(800+random(500)) end;
    24:begin MMouseOffClient('bottom');
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' antiban: moving mouse off client'
    sleep(800+random(500)) end;
    25..26: begin if isrunon(false) then
    begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' antiban: checking if run is on'
    setrun(true);
    end
    end;
    29..31: begin randomtab(false);
    sleep(1000+random(500))
    GameTab(tab_stats)
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' antiban: checking random tab'
    end;
    end
    end;

    procedure checkcount;
    begin
    if (not loggedin) then
    begin
    loginplayer;
    setangle(0)
    setrun(true)
    setfightmode(trainingmode)
    gametab(tab_stats)
    if count = 20 then
    begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' no monsters found for a long time - log out'
    logout;
    terminatescript;
    end
    end
    else
    begin
    if count = 20 then
    begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' no monsters found for a long time - log out'
    logout;
    terminatescript;
    end
    end
    end;

    Function Attackmonster6: Boolean;

    Var
    TPAA: T2DPointArray;
    TPA: TPointArray;
    CTS, I, Retry, x, y: Integer;
    MP: Tpoint;
    Box: Tbox;
    t: integer;

    Begin
    pbox2 := IntToBox(188, 23, 379, 64);
    PBox := IntToBox(223, 127, 295, 196);
    CTS := GetColorToleranceSpeed;
    ColorToleranceSpeed(2);
    marktime(t)
    repeat
    FindColorsSpiralTolerance(MSCX, MSCY, TPA, monstercolor6, MSX1, MSY1, MSX2, MSY2, 15);
    ColorToleranceSpeed(CTS);
    TPAA := TPAToATPAEx(TPA, 3, 3);
    SortATPASize(TPAA, True);
    For I := 0 To High(TPAA) Do
    If GetArraylength(TPAA[i]) > 5 Then
    Begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' searching monster'
    inc(Retry);
    MiddleTPAEx(TPAA[i], x, y);
    MP := MiddleTPA(TPAA[i]);
    Box := IntToBox(MP.x-12, MP.y-17, MP.x+12, MP.y+17);
    if (not (FindColor(X, Y, 255, mp.x-12, mp.y-17, mp.x+12, mp.y+17) or FindColor(X, Y, 65280, mp.x-12, mp.y-17, mp.x+12, mp.y+17))) THEN
    begin
    MMouse(x, y, 3, 3);
    sleep(100);
    if (IsUpTextMultiCustom([monstername2])) then
    begin
    if RIGHTCLICKONLY = true then
    begin
    result := True;
    smart_clearcanvas;
    smart_drawdots(TPA);
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' attacking'
    MouseBox(X, Y, X, Y, mouse_right);
    wait(200+random(100));
    ChooseOptionMulti(['tta']);
    count := 0
    Flag;
    wait(2500+random(500))
    exit;
    end
    else
    Begin
    Result := True;
    case random(6) of
    0..4 : begin
    smart_clearcanvas;
    smart_drawdots(TPA);
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' attacking'
    MouseBox(X, Y, X, Y, mouse_left);
    count := 0
    flag;
    wait(2500+random(500))
    exit;
    end;
    5 : begin
    smart_clearcanvas;
    smart_drawdots(TPA);
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' attacking'
    MouseBox(X, Y, X, Y, mouse_right);
    wait(200+random(100));
    ChooseOptionMulti(['tta']);
    count := 0
    Flag;
    wait(2500+random(500))
    exit;
    end;
    end;
    End;
    end
    else
    begin
    findnoninventoryrandoms();
    exit;
    end;
    end
    else
    begin
    findnoninventoryrandoms();
    exit;
    end;
    end
    else
    begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' no monsters found - moving camera'
    makecompass(randomrange(0, 360))
    wait(100+random(230))
    FindNonInventoryRandoms();
    inc(count)
    writeln('count: ' + inttostr(count))
    checkcount;
    findnoninventoryrandoms;
    exit;
    end;
    until (timefrommark(t) > (3000))
    if (timefrommark(t) > (3000)) then
    begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' no monsters found - moving camera'
    makecompass(randomrange(0, 360))
    wait(100+random(230))
    FindNonInventoryRandoms();
    inc(count)
    writeln('count: ' + inttostr(count))
    checkcount;
    findnoninventoryrandoms;
    exit;
    end;
    end;

    Function Attackmonster5: Boolean;

    Var
    TPAA: T2DPointArray;
    TPA: TPointArray;
    CTS, I, Retry, x, y: Integer;
    MP: Tpoint;
    Box: Tbox;
    t: integer;

    Begin
    pbox2 := IntToBox(188, 23, 379, 64);
    PBox := IntToBox(223, 127, 295, 196);
    CTS := GetColorToleranceSpeed;
    ColorToleranceSpeed(2);
    marktime(t)
    repeat
    FindColorsSpiralTolerance(MSCX, MSCY, TPA, monstercolor5, MSX1, MSY1, MSX2, MSY2, 15);
    ColorToleranceSpeed(CTS);
    TPAA := TPAToATPAEx(TPA, 3, 3);
    SortATPASize(TPAA, True);
    For I := 0 To High(TPAA) Do
    If GetArraylength(TPAA[i]) > 5 Then
    Begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' searching monster'
    inc(Retry);
    MiddleTPAEx(TPAA[i], x, y);
    MP := MiddleTPA(TPAA[i]);
    Box := IntToBox(MP.x-12, MP.y-17, MP.x+12, MP.y+17);
    if (not (FindColor(X, Y, 255, mp.x-12, mp.y-17, mp.x+12, mp.y+17) or FindColor(X, Y, 65280, mp.x-12, mp.y-17, mp.x+12, mp.y+17))) THEN
    begin
    MMouse(x, y, 3, 3);
    sleep(100);
    if (IsUpTextMultiCustom([monstername2])) then
    begin
    if RIGHTCLICKONLY = true then
    begin
    result := True;
    smart_clearcanvas;
    smart_drawdots(TPA);
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' attacking'
    MouseBox(X, Y, X, Y, mouse_right);
    wait(200+random(100));
    ChooseOptionMulti(['tta']);
    count := 0
    Flag;
    wait(2500+random(500))
    exit;
    end
    else
    Begin
    Result := True;
    case random(6) of
    0..4 : begin
    smart_clearcanvas;
    smart_drawdots(TPA);
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' attacking'
    MouseBox(X, Y, X, Y, mouse_left);
    count := 0
    flag;
    wait(2500+random(500))
    exit;
    end;
    5 : begin
    smart_clearcanvas;
    smart_drawdots(TPA);
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' attacking'
    MouseBox(X, Y, X, Y, mouse_right);
    wait(200+random(100));
    ChooseOptionMulti(['tta']);
    count := 0
    Flag;
    wait(2500+random(500))
    exit;
    end;
    end;
    End;
    end
    else
    begin
    findnoninventoryrandoms();
    exit;
    end;
    end
    else
    begin
    findnoninventoryrandoms();
    exit;
    end;
    end
    else
    begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' searching monsters'
    attackmonster6;
    exit;
    end;
    until (timefrommark(t) > (3000))
    if (timefrommark(t) > (3000)) then
    begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' searching monsters'
    attackmonster6;
    exit;
    end;
    end;


    Function Attackmonster4: Boolean;

    Var
    TPAA: T2DPointArray;
    TPA: TPointArray;
    CTS, I, Retry, x, y: Integer;
    MP: Tpoint;
    Box: Tbox;
    t: integer;

    Begin
    pbox2 := IntToBox(188, 23, 379, 64);
    PBox := IntToBox(223, 127, 295, 196);
    CTS := GetColorToleranceSpeed;
    ColorToleranceSpeed(2);
    marktime(t)
    repeat
    FindColorsSpiralTolerance(MSCX, MSCY, TPA, monstercolor4, MSX1, MSY1, MSX2, MSY2, 15);
    ColorToleranceSpeed(CTS);
    TPAA := TPAToATPAEx(TPA, 3, 3);
    SortATPASize(TPAA, True);
    For I := 0 To High(TPAA) Do
    If GetArraylength(TPAA[i]) > 5 Then
    Begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' searching monster'
    inc(Retry);
    MiddleTPAEx(TPAA[i], x, y);
    MP := MiddleTPA(TPAA[i]);
    Box := IntToBox(MP.x-12, MP.y-17, MP.x+12, MP.y+17);
    if (not (FindColor(X, Y, 255, mp.x-12, mp.y-17, mp.x+12, mp.y+17) or FindColor(X, Y, 65280, mp.x-12, mp.y-17, mp.x+12, mp.y+17))) THEN
    begin
    MMouse(x, y, 3, 3);
    sleep(100);
    if (IsUpTextMultiCustom([monstername2])) then
    begin
    if RIGHTCLICKONLY = true then
    begin
    result := True;
    smart_clearcanvas;
    smart_drawdots(TPA);
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' attacking'
    MouseBox(X, Y, X, Y, mouse_right);
    wait(200+random(100));
    ChooseOptionMulti(['tta']);
    count := 0
    Flag;
    wait(2500+random(500))
    exit;
    end
    else
    Begin
    Result := True;
    case random(6) of
    0..4 : begin
    smart_clearcanvas;
    smart_drawdots(TPA);
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' attacking'
    MouseBox(X, Y, X, Y, mouse_left);
    count := 0
    flag;
    wait(2500+random(500))
    exit;
    end;
    5 : begin
    smart_clearcanvas;
    smart_drawdots(TPA);
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' attacking'
    MouseBox(X, Y, X, Y, mouse_right);
    wait(200+random(100));
    ChooseOptionMulti(['tta']);
    count := 0
    Flag;
    wait(2500+random(500))
    exit;
    end;
    end;
    End;
    end
    else
    begin
    findnoninventoryrandoms();
    exit;
    end;
    end
    else
    begin
    findnoninventoryrandoms();
    exit;
    end;
    end
    else
    begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' searching monsters'
    attackmonster5;
    exit;
    end;
    until (timefrommark(t) > (3000))
    if (timefrommark(t) > (3000)) then
    begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' searching monsters'
    attackmonster5;
    exit;
    end;
    end;


    Function Attackmonster3: Boolean;

    Var
    TPAA: T2DPointArray;
    TPA: TPointArray;
    CTS, I, Retry, x, y: Integer;
    MP: Tpoint;
    Box: Tbox;
    t: integer;

    Begin
    pbox2 := IntToBox(188, 23, 379, 64);
    PBox := IntToBox(223, 127, 295, 196);
    CTS := GetColorToleranceSpeed;
    ColorToleranceSpeed(2);
    marktime(t)
    repeat
    FindColorsSpiralTolerance(MSCX, MSCY, TPA, monstercolor3, MSX1, MSY1, MSX2, MSY2, 15);
    ColorToleranceSpeed(CTS);
    TPAA := TPAToATPAEx(TPA, 3, 3);
    SortATPASize(TPAA, True);
    For I := 0 To High(TPAA) Do
    If GetArraylength(TPAA[i]) > 5 Then
    Begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' searching monster'
    inc(Retry);
    MiddleTPAEx(TPAA[i], x, y);
    MP := MiddleTPA(TPAA[i]);
    Box := IntToBox(MP.x-12, MP.y-17, MP.x+12, MP.y+17);
    if (not (FindColor(X, Y, 255, mp.x-12, mp.y-17, mp.x+12, mp.y+17) or FindColor(X, Y, 65280, mp.x-12, mp.y-17, mp.x+12, mp.y+17))) THEN
    begin
    MMouse(x, y, 3, 3);
    sleep(100);
    if (IsUpTextMultiCustom([monstername1])) then
    begin
    if RIGHTCLICKONLY = true then
    begin
    result := True;
    smart_clearcanvas;
    smart_drawdots(TPA);
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' attacking'
    MouseBox(X, Y, X, Y, mouse_right);
    wait(200+random(100));
    ChooseOptionMulti(['tta']);
    count := 0
    Flag;
    wait(2500+random(500))
    exit;
    end
    else
    Begin
    Result := True;
    case random(6) of
    0..4 : begin
    smart_clearcanvas;
    smart_drawdots(TPA);
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' attacking'
    MouseBox(X, Y, X, Y, mouse_left);
    count := 0
    flag;
    wait(2500+random(500))
    exit;
    end;
    5 : begin
    smart_clearcanvas;
    smart_drawdots(TPA);
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' attacking'
    MouseBox(X, Y, X, Y, mouse_right);
    wait(200+random(100));
    ChooseOptionMulti(['tta']);
    count := 0
    Flag;
    wait(2500+random(500))
    exit;
    end;
    end;
    End;
    end
    else
    begin
    findnoninventoryrandoms();
    end;
    end
    else
    begin
    findnoninventoryrandoms();
    end;
    end
    else
    begin
    if secondairymonster = false then
    begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' no monsters found - moving camera'
    makecompass(randomrange(0, 360))
    wait(100+random(230))
    FindNonInventoryRandoms();
    inc(count)
    writeln('count: ' + inttostr(count))
    checkcount;
    findnoninventoryrandoms;
    exit;
    end
    else
    begin
    attackmonster4;
    end;
    end;
    until (timefrommark(t) > (3000))
    if (timefrommark(t) > (3000)) then
    begin
    if secondairymonster = false then
    begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' no monsters found - moving camera'
    makecompass(randomrange(0, 360))
    wait(100+random(230))
    FindNonInventoryRandoms();
    inc(count)
    writeln('count: ' + inttostr(count))
    checkcount;
    findnoninventoryrandoms;
    exit;
    end
    else
    begin
    attackmonster4;
    end;
    end;
    end;

    Function Attackmonster2: Boolean;

    Var
    TPAA: T2DPointArray;
    TPA: TPointArray;
    CTS, I, Retry, x, y: Integer;
    MP: Tpoint;
    Box: Tbox;
    t: integer;

    Begin
    pbox2 := IntToBox(188, 23, 379, 64);
    PBox := IntToBox(223, 127, 295, 196);
    CTS := GetColorToleranceSpeed;
    ColorToleranceSpeed(2);
    marktime(t)
    repeat
    FindColorsSpiralTolerance(MSCX, MSCY, TPA, monstercolor2, MSX1, MSY1, MSX2, MSY2, 15);
    ColorToleranceSpeed(CTS);
    TPAA := TPAToATPAEx(TPA, 3, 3);
    SortATPASize(TPAA, True);
    For I := 0 To High(TPAA) Do
    If GetArraylength(TPAA[i]) > 5 Then
    Begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' searching monster'
    inc(Retry);
    MiddleTPAEx(TPAA[i], x, y);
    MP := MiddleTPA(TPAA[i]);
    Box := IntToBox(MP.x-12, MP.y-17, MP.x+12, MP.y+17);
    if (not (FindColor(X, Y, 255, mp.x-12, mp.y-17, mp.x+12, mp.y+17) or FindColor(X, Y, 65280, mp.x-12, mp.y-17, mp.x+12, mp.y+17))) THEN
    begin
    MMouse(x, y, 3, 3);
    sleep(100);
    if (IsUpTextMultiCustom([monstername1])) then
    begin
    if RIGHTCLICKONLY = true then
    begin
    result := True;
    smart_clearcanvas;
    smart_drawdots(TPA);
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' attacking'
    MouseBox(X, Y, X, Y, mouse_right);
    wait(200+random(100));
    ChooseOptionMulti(['tta']);
    count := 0
    Flag;
    wait(2500+random(500))
    exit;
    end
    else
    Begin
    Result := True;
    case random(6) of
    0..4 : begin
    smart_clearcanvas;
    smart_drawdots(TPA);
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' attacking'
    MouseBox(X, Y, X, Y, mouse_left);
    count := 0
    flag;
    wait(2500+random(500))
    exit;
    end;
    5 : begin
    smart_clearcanvas;
    smart_drawdots(TPA);
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' attacking'
    MouseBox(X, Y, X, Y, mouse_right);
    wait(200+random(100));
    ChooseOptionMulti(['tta']);
    count := 0
    Flag;
    wait(2500+random(500))
    exit;
    end;
    end;
    End;
    end
    else
    begin
    findnoninventoryrandoms();
    end;
    end
    else
    begin
    findnoninventoryrandoms();
    end;
    end
    else
    begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' searching monsters'
    attackmonster3;
    exit;
    end;
    until (timefrommark(t) > (3000))
    if (timefrommark(t) > (3000)) then
    begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' searching monsters'
    attackmonster3;
    exit;
    end;
    end;

    Function Attackmonster1: Boolean;

    Var
    TPAA: T2DPointArray;
    TPA: TPointArray;
    CTS, I, Retry, x, y: Integer;
    MP: Tpoint;
    Box: Tbox;
    t: integer;

    Begin
    pbox2 := IntToBox(188, 23, 379, 64);
    PBox := IntToBox(223, 127, 295, 196);
    CTS := GetColorToleranceSpeed;
    ColorToleranceSpeed(2);
    marktime(t)
    repeat
    FindColorsSpiralTolerance(MSCX, MSCY, TPA, monstercolor1, MSX1, MSY1, MSX2, MSY2, 15);
    ColorToleranceSpeed(CTS);
    TPAA := TPAToATPAEx(TPA, 3, 3);
    SortATPASize(TPAA, True);
    For I := 0 To High(TPAA) Do
    If GetArraylength(TPAA[i]) > 5 Then
    Begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' searching monster'
    inc(Retry);
    MiddleTPAEx(TPAA[i], x, y);
    MP := MiddleTPA(TPAA[i]);
    Box := IntToBox(MP.x-12, MP.y-17, MP.x+12, MP.y+17);
    if (not (FindColor(X, Y, 255, mp.x-12, mp.y-17, mp.x+12, mp.y+17) or FindColor(X, Y, 65280, mp.x-12, mp.y-17, mp.x+12, mp.y+17))) THEN
    begin
    MMouse(x, y, 3, 3);
    sleep(100);
    if (IsUpTextMultiCustom([monstername1])) then
    begin
    if RIGHTCLICKONLY = true then
    begin
    result := True;
    smart_clearcanvas;
    smart_drawdots(TPA);
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' attacking'
    MouseBox(X, Y, X, Y, mouse_right);
    wait(200+random(100));
    ChooseOptionMulti(['tta']);
    count := 0
    Flag;
    wait(2500+random(500))
    exit;
    end
    else
    Begin
    Result := True;
    case random(6) of
    0..4 : begin
    smart_clearcanvas;
    smart_drawdots(TPA);
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' attacking'
    MouseBox(X, Y, X, Y, mouse_left);
    count := 0
    flag;
    wait(2500+random(500))
    exit;
    end;
    5 : begin
    smart_clearcanvas;
    smart_drawdots(TPA);
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' attacking'
    MouseBox(X, Y, X, Y, mouse_right);
    wait(200+random(100));
    ChooseOptionMulti(['tta']);
    count := 0
    Flag;
    wait(2500+random(500))
    exit;
    end;
    end;
    End;
    end
    else
    begin
    findnoninventoryrandoms();
    end;
    end
    else
    begin
    findnoninventoryrandoms();
    end;
    end
    else
    begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' searching monsters'
    attackmonster2;
    exit;
    end;
    until (timefrommark(t) > (3000))
    if (timefrommark(t) > (3000)) then
    begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' searching monsters'
    attackmonster2;
    exit;
    end;
    end;

    procedure eating_food;
    begin
    if GetSkillInfo('hitpoints', true) > HpToEat then
    begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' in fight - checking hp'
    wait(700+random(200))
    findnoninventoryrandoms;
    antiban;
    end
    else
    begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' eating'
    gametab(tab_inv)
    wait(120+ random (200))
    if gametab(tab_inv) Then
    begin
    if FindDtm(foodDTM, x, y, MIX1, MIY1, MIX2, MIY2) THEN
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    findnormalrandoms();
    sleep(1000+random(1000))
    gametab(tab_stats)
    end
    else
    begin
    loggingout;
    end
    end
    end
    end;


    procedure IsInCombat;
    begin
    if FindColor(X, Y, 255, 223, 127, 295, 175) or FindColor(X, Y, 65280, 223, 127, 295, 175) THEN
    begin
    smart_clearcanvas;
    findnoninventoryrandoms;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' in fight - checking hp'
    begin
    eating_food;
    end
    end
    else
    begin
    attackmonster1;
    end
    end;

    procedure skill_failsafe;
    begin
    pbox2 := IntToBox(188, 23, 379, 64);
    PBox := IntToBox(223, 127, 295, 196);
    if FindColor(X, Y, 8042720, 485, 11, 515, 32) then
    begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' found a skill interface, closing'
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    wait(400+random(300))
    end
    else
    begin
    isincombat;
    end
    end;

    procedure take_loot;
    begin
    pbox2 := IntToBox(188, 23, 379, 64);
    PBox := IntToBox(223, 127, 295, 196);
    if (looting = 'true') then
    begin
    if FindObjEx(X, Y, [lootname1], [lootcolor1, lootcolor2], 10, 50, MSX1, MSY1, MSX2, MSY2) or FindObjEx(X, Y, [lootname2], [lootcolor3, lootcolor4], 10, 50, MSX1, MSY1, MSX2, MSY2) or FindObjEx(X, Y, [lootname3], [lootcolor5, lootcolor6], 10, 50, MSX1, MSY1, MSX2, MSY2) THEN
    case random(3) of
    0..1 : begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := 'looting'
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    wait(3000+ random(250))
    end;
    2 : begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := 'looting'
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    wait(200+random(100));
    ChooseOptionMulti(['ake']);
    wait(3000+ random(250))
    end;
    end
    else
    begin
    isincombat;
    end;
    end;
    if looting = 'false' then
    begin
    isincombat;
    end
    end;

    function IsPraying: Boolean;
    begin
    if not loggedin then
    exit;
    result := (FindColorsTolerance(monster, 63226, MSX1, MSY1, MSX2, MSY2, 10) or
    FindColorsTolerance(monster, 621348, MSX1, MSY1, MSX2, MSY2, 10))
    end;

    procedure prayercheck;
    begin
    if (use_prayer = 'true') then
    begin
    if (not(ispraying)) then
    begin
    gametab(tab_inv)
    wait(120+ random (200))
    if gametab(tab_inv) Then
    begin
    if findDTM(prayerpot1, x, y, MIX1, MIY1, MIX2, MIY2) THEN
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' prayer points low, drinking prayer potion'
    sleep(1000+random(1000))
    gametab(tab_stats)
    end
    else
    if findDTM(prayerpot2, x, y, MIX1, MIY1, MIX2, MIY2) THEN
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' prayer points low, drinking prayer potion'
    sleep(1000+random(1000))
    gametab(tab_stats)
    end
    else
    if findDTM(prayerpot3, x, y, MIX1, MIY1, MIX2, MIY2) THEN
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' prayer points low, drinking prayer potion'
    sleep(1000+random(1000))
    gametab(tab_stats)
    end
    else
    if findDTM(prayerpot4, x, y, MIX1, MIY1, MIX2, MIY2) THEN
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' prayer points low, drinking prayer potion'
    sleep(1000+random(1000))
    gametab(tab_stats)
    end
    else
    begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' out of prayer potions, logging out after 20 seconds'
    TabDTM := DTMFromString('m1gAAAHic42JgYOAFYmkg5gJiESBmBWJ+Bg SQhmKQOh4kvjRUXgKqlw2IRYE4KykJSDISxP8ZiAOETYJgBAAA z9MDgg==');
    if FindDTM(TabDTM, x, y, MIX1, MIY1, MIX2, MIY2) then
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    sleep(10000+random(4000))
    logout;
    FreeDTM(TabDTM);
    terminatescript;
    end;
    end
    end;
    gametab(tab_prayer)
    wait(100+ random(300));
    mouse(RandomRange(672, 689),RandomRange(331, 353), random(3),random(3),true)
    wait(randomrange(500,800))
    end

    else

    begin
    if (GetSkillInfo('prayer', true)) < 10 then
    begin
    gametab(tab_inv)
    wait(120+ random (200))
    if gametab(tab_inv) Then
    begin
    if findDTM(prayerpot1, x, y, MIX1, MIY1, MIX2, MIY2) THEN
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' prayer points low, drinking prayer potion'
    sleep(1000+random(1000))
    gametab(tab_stats)
    end
    else
    if findDTM(prayerpot2, x, y, MIX1, MIY1, MIX2, MIY2) THEN
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' prayer points low, drinking prayer potion'
    sleep(1000+random(1000))
    gametab(tab_stats)
    end
    else
    if findDTM(prayerpot3, x, y, MIX1, MIY1, MIX2, MIY2) THEN
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' prayer points low, drinking prayer potion'
    sleep(1000+random(1000))
    gametab(tab_stats)
    end
    else
    if findDTM(prayerpot4, x, y, MIX1, MIY1, MIX2, MIY2) THEN
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' prayer points low, drinking prayer potion'
    sleep(1000+random(1000))
    gametab(tab_stats)
    end
    else
    begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := 'out of prayer potions, logging out after 20 seconds'
    loggingout;
    end
    end
    else
    begin
    take_loot;
    end
    end
    end
    end
    else
    if (use_prayer = 'false') then
    begin
    take_loot;
    end
    end;

    procedure DefencePotCheck;
    begin
    if USEPOTS = True then
    begin
    if DEFENCEPOT = True then
    begin
    if GetSkillInfo('Defence', true) > (GetSkillInfo('Defence', false) + POTSTODRINK) then
    begin
    DefencePotCheck;
    end
    else
    begin
    if SUPER = False then
    begin
    gametab(tab_inv)
    wait(120+ random (200))
    if gametab(tab_inv) Then
    begin
    if FindDTM(NormalDefencePot1, x , y, MIX1, MIY1, MIX2, MIY2) then
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    sleep(500+random(500))
    gametab(tab_stats);
    end
    else
    if FindDTM(NormalDefencePot2, x , y, MIX1, MIY1, MIX2, MIY2) then
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    sleep(500+random(500))
    gametab(tab_stats);
    end
    else
    if FindDTM(NormalDefencePot3, x , y, MIX1, MIY1, MIX2, MIY2) then
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    sleep(500+random(500))
    gametab(tab_stats);
    end
    else
    if FindDTM(NormalDefencePot4, x , y, MIX1, MIY1, MIX2, MIY2) then
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    sleep(500+random(500))
    gametab(tab_stats);
    end
    else
    begin
    loggingout;
    end
    end
    end // end of normal Defence pots
    else
    begin // begin of super Defence pots
    gametab(tab_inv)
    wait(120+ random (200))
    if gametab(tab_inv) Then
    begin
    if FindDTM(SuperDefencePot1, x , y, MIX1, MIY1, MIX2, MIY2) then
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    sleep(500+random(500))
    gametab(tab_stats);
    end
    else
    if FindDTM(SuperDefencePot2, x , y, MIX1, MIY1, MIX2, MIY2) then
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    sleep(500+random(500))
    gametab(tab_stats);
    end
    else
    if FindDTM(SuperDefencePot3, x , y, MIX1, MIY1, MIX2, MIY2) then
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    sleep(500+random(500))
    gametab(tab_stats);
    end
    else
    if FindDTM(SuperDefencePot4, x , y, MIX1, MIY1, MIX2, MIY2) then
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    sleep(500+random(500))
    gametab(tab_stats);
    end


    procedure StrengthPotCheck;

    begin
    if USEPOTS = True then
    begin
    if STRENGTHPOT = True then
    begin
    if GetSkillInfo('STRENGTH', true) > (GetSkillInfo('STRENGTH', false) + POTSTODRINK) then
    begin
    isincombat;
    end
    else
    begin
    if SUPER = False then
    begin
    gametab(tab_inv)
    wait(120+ random (200))
    if gametab(tab_inv) Then
    begin
    if FindDTM(NormalStrengthPot1, x , y, MIX1, MIY1, MIX2, MIY2) then
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    sleep(500+random(500))
    gametab(tab_stats);
    end
    else
    if FindDTM(NormalStrengthPot2, x , y, MIX1, MIY1, MIX2, MIY2) then
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    sleep(500+random(500))
    gametab(tab_stats);
    end
    else
    if FindDTM(NormalStrengthPot3, x , y, MIX1, MIY1, MIX2, MIY2) then
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    sleep(500+random(500))
    gametab(tab_stats);
    end
    else
    if FindDTM(NormalStrengthPot4, x , y, MIX1, MIY1, MIX2, MIY2) then
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    sleep(500+random(500))
    gametab(tab_stats);
    end
    else
    begin
    loggingout;
    end
    end
    end // end of normal attack pots
    else
    begin // begin of super attack pots
    gametab(tab_inv)
    wait(120+ random (200))
    if gametab(tab_inv) Then
    begin
    if FindDTM(SuperStrengthPot1, x , y, MIX1, MIY1, MIX2, MIY2) then
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    sleep(500+random(500))
    gametab(tab_stats);
    end
    else
    if FindDTM(SuperStrengthPot2, x , y, MIX1, MIY1, MIX2, MIY2) then
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    sleep(500+random(500))
    gametab(tab_stats);
    end
    else
    if FindDTM(SuperStrengthPot3, x , y, MIX1, MIY1, MIX2, MIY2) then
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    sleep(500+random(500))
    gametab(tab_stats);
    end
    else
    if FindDTM(SuperStrengthPot4, x , y, MIX1, MIY1, MIX2, MIY2) then
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    sleep(500+random(500))
    gametab(tab_stats);
    end
    else
    begin
    loggingout;
    end // if no pot is found it banks
    end // search for pots
    end // search for inv
    end // end of normal and super pots
    end // end of strength pots procedure
    else
    begin
    prayercheck;
    end
    end
    else
    begin
    prayercheck;
    end;
    begin
    prayercheck;
    end
    end;

    procedure AttackPotCheck;
    begin
    if USEPOTS = True then
    begin
    if ATTACKPOT = True then
    begin
    if GetSkillInfo('Attack', true) > (GetSkillInfo('Attack', false) + POTSTODRINK) then
    begin
    StrengthPotCheck;
    end
    else
    begin
    if SUPER = False then
    begin
    gametab(tab_inv)
    wait(120+ random (200))
    if gametab(tab_inv) Then
    begin
    if FindDTM(NormalAttackPot1, x , y, MIX1, MIY1, MIX2, MIY2) then
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    sleep(500+random(500))
    gametab(tab_stats);
    end
    else
    if FindDTM(NormalAttackPot2, x , y, MIX1, MIY1, MIX2, MIY2) then
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    sleep(500+random(500))
    gametab(tab_stats);
    end
    else
    if FindDTM(NormalAttackPot3, x , y, MIX1, MIY1, MIX2, MIY2) then
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    sleep(500+random(500))
    gametab(tab_stats);
    end
    else
    if FindDTM(NormalAttackPot4, x , y, MIX1, MIY1, MIX2, MIY2) then
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    sleep(500+random(500))
    gametab(tab_stats);
    end
    else
    begin
    loggingout;
    end
    end
    end // end of normal attack pots
    else
    begin // begin of super attack pots
    gametab(tab_inv)
    wait(120+ random (200))
    if gametab(tab_inv) Then
    begin
    if FindDTM(SuperAttackPot1, x , y, MIX1, MIY1, MIX2, MIY2) then
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    sleep(500+random(500))
    gametab(tab_stats);
    end
    else
    if FindDTM(SuperAttackPot2, x , y, MIX1, MIY1, MIX2, MIY2) then
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    sleep(500+random(500))
    gametab(tab_stats);
    end
    else
    if FindDTM(SuperAttackPot3, x , y, MIX1, MIY1, MIX2, MIY2) then
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    sleep(500+random(500))
    gametab(tab_stats);
    end
    else
    if FindDTM(SuperAttackPot4, x , y, MIX1, MIY1, MIX2, MIY2) then
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    sleep(500+random(500))
    gametab(tab_stats);
    end
    else
    begin
    loggingout;
    end // if no pot is found it banks
    end // search for pots
    end // search for inv
    end // end of normal and super pots
    end // end of attack pots procedure
    else
    begin
    StrengthPotCheck;
    end
    end
    else
    begin
    StrengthPotCheck;
    end;
    begin
    StrengthPotCheck;
    end
    end;

    procedure FreeTheDTMs;
    begin
    FreeDTMs(['NormalAttackpot1', 'NormalAttackpot2', 'NormalAttackpot3', 'NormalAttackpot4', 'SuperAttackPot1', 'SuperAttackPot2', 'SuperAttackPot3', 'SuperAttackPot4', 'NormalStrengthPot1', 'NormalStrengthPot2', 'NormalStrengthPot3', 'NormalStrengthPot4', 'SuperStrengthPot1', 'SuperStrengthPot2', 'SuperStrengthPot3', 'SuperStrengthPot4', 'FoodDTM']);
    end;

    begin
    DeclarePlayers;
    foodsetup;
    loaddtms;
    SetupSRL();
    disguise('HoodzFighter v2,5')
    SRL_CombatRandoms := False;
    ActivateClient;
    ClearDebug;
    writeln('HoodzFighter version 2,5')
    repeat
    if (not LoggedIn) then
    begin
    LogInPlayer;
    setangle(0)
    setrun(true)
    setfightmode(trainingmode)
    gametab(tab_stats)
    end;
    if (LoggedIn) then
    begin
    skill_failsafe;
    attackpotcheck;
    FindNonInventoryRandoms();
    end;
    until(false);
    addonterminate('FreeTheDTMs')
    end.



    help me out will u mate. trying to get those def pots added
    Last edited by thatstranger1; 07-02-2013 at 04:36 AM.

  6. #1306
    Join Date
    Sep 2012
    Location
    Netherlands
    Posts
    2,752
    Mentioned
    193 Post(s)
    Quoted
    1468 Post(s)

    Default

    Quote Originally Posted by thatstranger1 View Post
    HpToEat = 57; // enter the amount of hitpoints where you want to eat at, example: HpToEat = 35;
    foodname = 'shark'; //lobster, salmon, trout, shark

    use_prayer = 'false';

    USEPOTS = true;
    POTSTODRINK = 2; // when do you want to drink it pots (your level + number)
    SUPER = true;
    ATTACKPOT = true;
    STRENGTHPOT = true;
    DEFENCEPOT = true;

    monstername1 = 'Og'; //enter some letters of the name of the npc you want to attack (not all), example: monstername = 'oblin';
    monstercolor1 = 9680843; //enter the monster colors here (dont pick colors that match other things alot (black, grey etc)).
    monstercolor2 = 8563135;
    monstercolor3 = 11257558;

    secondairymonster = false; // true if you want to attack a second npc (with different name)

    monstername2 = 'os';
    monstercolor4 = 5272940;
    monstercolor5 = 4743019;
    monstercolor6 = 5405553;

    RIGHTCLICKONLY = false;

    //LOOTING NOT SUGGESTED, UPDATED IN THE FUTURE!

    looting = 'false'; // if you want to loot items set to 'true' . if you dont want to loot items use: 'false'
    // item to loot number 1
    lootname1 = 'seed'; //use some letters of the item you want to loot.
    lootcolor1 = 1134136; //color of loot here. Do ! > NOT < ! use colors that match with the background or the bot will stay stuck in the take_loot procedure!
    lootcolor2 = 1333055; //and here. also make sure to ONLY pickup notes and runes, make sure you have enough space in your inventory before botting or it will keep looting if you dont even have inventory space left.
    // item to loot number 2
    lootname2 = 'seed';
    lootcolor3 = 1134136;
    lootcolor4 = 1333055;
    //item to loot number 3
    lootname3 = 'seed';
    lootcolor5 = 1134136;
    lootcolor6 = 1333055;
    //note: if you want to loot only 1 item then you just copy your colors and name to the next item to loot.

    trainingmode = 2; //use here what mode you want to use, leftupcorner: 1 rightupcorner: 2 leftundercorner:3 rightundercorner: 4, example: trainingmode: 2;
    antibantrainingmode = skill_strength; //or skill_defence, skill_attack, skill_range, skill_magic

    //END OF USER CONFIGURATIONS DONT TOUCH ANYTHING AFTER THIS!


    procedure DeclarePlayers;
    begin
    HowManyPlayers := 1;
    NumberOfPlayers(HowManyPlayers);
    CurrentPlayer := 0;
    with Players[0] do
    begin
    Name := username;
    Pass := password;
    nick := nickname;
    Active := True;
    end;
    end;

    procedure foodsetup;
    begin
    if foodname = 'lobster' then
    begin
    FoodDTM := DTMFromString('m6wAAAHic42ZgYHBhYmDwgmJPIHYEYhsgNo diOyB2BWIfIA5gZGCIAeIoIPYD4lAoDoPyfYDYC4idgHhHshjQ dEaisAaQJBYTZyIEIwEA/ycJgA==');
    end;
    if foodname = 'salmon' then
    begin
    FoodDTM := DTMFromString('mggAAAHicY2NgYOCGYhDgA2IJIBYGYi4gFg JifiBmhMqDxA44SkBFUDErAyZgxaoSYR4DAwCTLQG6');
    end;
    if foodname = 'trout' then
    begin
    FoodDTM := DTMFromString('mggAAAHicY2NgYOAGYmEglgBiPgYIAIlxQT EIMAIxPxALAXF5UhxUBBWzAklWBkyAqRKCIQAAnDwB2A==');
    end;
    if foodname = 'shark' then
    begin
    FoodDTM := DTMFromString('mlwAAAHicY2dgYOACYkYgZgViESCWYoAALi iWgfKZoXK8QCwMxDnBtlCdmJidATfArgOCoQAAsEwBww==');
    end;
    end;

    procedure LoadDTMS;
    begin
    NormalStrengthPot1 := DTMFromString('mlwAAAHicY2dgYOAAYmEgZmWAAH4g5oSKiw KxBBDzQNkCUDWyQLx1sy6QZMSKWaHmYcPYdUAwFAAA8p8CiA== ');
    NormalStrengthPot2:= DTMFromString('mlwAAAHicY2dgYGAFYgEg5gFiTiBmYoAADi AWBGIJIOaDirFB1coA8bKlmkCSEStmhZqLDWPXAcFQAADZCAJJ ');
    NormalStrengthPot3:= DTMFromString('mlwAAAHicY2dgYGAHYkYgFgRiPiDmYIAALi AWAmJpIJaEyoOAMBDLArHqtNlQnZiYFUjiwth1QDAUAADcfgJO ');
    NormalStrengthPot4:= DTMFromString('mlwAAAHicY2dgYHBmYmBwBGJrILZngvA9gd gLiNkZGRjEgZgbiP8A1f4CYh4gWwSIlyzWBPIYsWJWIIkLY9cB wVAAAHvkBc4=');
    SuperStrengthPot1:= DTMFromString('mggAAAHicY2NgYGADYh4gZmGAAH4gZgViQS BmhIrxArEAEEsC8folS6AyqJgNahY6xlSJMJeBAQDO8AKf');
    SuperStrengthpot2:= DTMFromString('mbQAAAHicY2VgYGAHYh4g5maAACYonwvKB8 mLAPGhnTuBJCMKZgaSrGiYEQsGAwCvBAKr');
    SuperStrengthpot3:= DTMFromString('mggAAAHicY2NgYGABYj4g5gRiHiBmYoAAEF scyuaHyksC8fkzZ4AkIwZmBZLYMKZKCIYAAPROAxQ=');
    SuperStrengthpot4:= DTMFromString('mlwAAAHicY2fidgYGAHYkYgFgRiPiDmYIAA LiAWAmJpIJaEyoOAMBDLArHqtNlQnZiYFUjiwth1QDAUAADcfg JO');
    NormalAttackPot1:= DTMFromString('mlwAAAHicY2dgYOAAYh4gZgJiQQYI4IBiMS DmBWIZKFsIKi8LxLrrtwJJRqyYlQE3wK4DgqEAAOlZAmY=');
    NormalAttackPot2:= DTMFromString('mlwAAAHicY2dgYGAHYkYgFgRiPiDmYIAALi AWAmJpIJaEyoOAMBDLArHqtNlQnZiYFUjiwth1QDAUAADcfgJO ');
    NormalAttackPot3:= DTMFromString('mggAAAHicY2NgYGAHYk4gZgNiRiDmY4AAfi CWhbIFgFgYiKWB2PDYGahKVMzFgB1gqoRgCAAAxSACbg==');
    NormalAttackPot4:= DTMFromString('mlwAAAHicY2dgYOBggAAQzQPEQkDMBMScUL YkVJ4biMWBWACIZYE45vwVIMmIFXMx4AbYdUAwFAAADP8C0Q== ');
    SuperAttackPot1:= DTMFromString('mbQAAAHicY2VgYGABYjYg5mOAABBfFMoWgY rLArGOwRYgyYiCWYEkOmbEgsEAAG5MAag=');
    SuperAttackPot2:= DTMFromString('mbQAAAHicY2VgYOAEYg4g5meAABBfEMoG0S JALAvEwsIBQJIRBbMCSXTMiAWDAQBMhwEa');
    SuperAttackPot3:= DTMFromString('mbQAAAHicY2VgYGCFYn4GCGBHYosCsRAQyw Kxq8clIMmIglmR9MMwIxYMBgCC6gH6');
    SuperAttackPot4:= DTMFromString('mlwAAAHicY2dgYiOAAYh4gZgkJiQQYI4IBi MSDmBWIZKFsIKi8LxLrrtwJJRhwYN8ClA0kXAOgeAmE=');
    NormalDefencePot1:= DTMFromString('mrAAAAHic42BgYOAEYnYg5gViNiDmA2IOBg gQgWIQYIKKcwOxDBCLQ7HOFgMgyYgH4wf4dCLrBgDZygHo');
    NormalDefencePot2:= DTMFromString('mrAAAAHic42BgYOACYnYozQPErAwQIAQVE2 JAAE4oFgVicSCWBWK5BgUgyYgH4wf4dCLrBgCyxgGL');
    NormalDefencePot3:= DTMFromString('mrAAAAHic42BgYOACYl4gZgdiNiDmY4AAES DmBmIeBgTgAGJOqJwoEEsBseFpUyDJiAfjB/h0IusGAOAZAfo=');
    NormalDefencePot4:= DTMFromString('mrAAAAHic42BgYOAEYnYg5gNiViDmZ4AAES DmAWIuKJ8RyuYGYlEolgLipCspUFlcGD/ApxNZNwAMnQJo');
    SuperDefencePot1:= DTMFromString('mrAAAAHic42BgYHBjYmDwA2IrIHYBYk8gdg BiJyaInBYjA4MOFBsCsRIQKwCxCBCLAvGWqTpAUxjxYPwAn05k 3QCBZwTm');
    SuperDefencePot2:= DTMFromString('mrAAAAHic42BgYOAAYjYg5gFiFiDmZYAAIa icMJTPCJUDYUkglgBiGSC+t80cKosL4wf4dCLrBgAkeQKj');
    SuperDefencePot3:= DTMFromString('mrAAAAHic42BgYOAEYiYg5gdiDiBmB2JuBg gQhorDaFkgZoTKSQCxJBBfWmcMFcWF8QN8OpF1AwAgFQKS');
    SuperDefencePot4:= DTMFromString('mrAAAAHic42BgYOACYjYg5gFiViDmZYAAYS DmhmIY4ILyxYFYDIilgXhJuwaQZMSD8QN8OpF1AwDuvwIf');
    PrayerPot1:= DTMFromString('mggAAAHicY2NgYGAFYj4g5gJiFgYIANGiUM wDFQOpkQVi/W2dQJIRA7NiFcWNIQAAqN4CEA==');
    PrayerPot2:= DTMFromString('mggAAAHicY2NgYGAFYm4g5oGyQYAJiHmBWA aIBaBi/FB+6pU1QJIRA7NiFcWNIQAAzNICiA==');
    PrayerPot3:= DTMFromString('mggAAAHicY2NgYGBngAAOIOYHYkYg5oSypa FyIkAsCMSyQGx+aT5UFSpmBZLYMKZKCIYAAMHeAmw=');
    PrayerPot4:= DTMFromString('mggAAAHicY2NgYGBngAABIOYDYk4gZgRiXi CWAmJpqDgICANx6pU1UBWomBWrKG4MAQDSJAKT');
    end;

    procedure loggingout;
    begin
    TabDTM := DTMFromString('m1gAAAHic42JgYOAFYmkg5gJiESBmBWJ+Bg SQhmKQOh4kvjRUXgKqlw2IRYE4KykJSDISxP8ZiAOETYJgBAAA z9MDgg==');
    if FindDTM(TabDTM, x, y, MIX1, MIY1, MIX2, MIY2) then
    begin
    MouseBox(X+1, Y+1, X+1, Y+1, mouse_left);
    sleep(10000+random(4000))
    logout;
    FreeDTM(TabDTM);
    terminatescript;
    end;
    end;

    procedure AntiBan;
    begin
    case random(1000) of
    0..1: begin
    hoverskill(antibantrainingmode, false)
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' antiban: hovering skill'
    sleep(800+random(500)) end;
    2..3: begin hoverskill(skill_hitpoints, false)
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' antiban: hovering skill'
    sleep(800+random(500)) end;
    4..10: begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' antiban: moving camera'
    makecompass(randomrange(0, 360))
    sleep(800+random(500)) end;
    11..26: begin
    MMouse(x, y, 4, 4);
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' antiban: random mouse movement'
    sleep(800+random(500)) end;
    17: begin
    if (use_prayer = 'false') then
    case random(2) of
    1: begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' antiban: afk mode'
    wait(80000+ random(40000))
    end
    end
    else
    if use_prayer = 'true' then
    antiban;
    end;
    18: begin adjustmousespeed(2, 10, 20)
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' antiban: changing mouse speed'
    sleep(800+random(500)) end;
    19: begin randomRClick;
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' antiban: random right click'
    sleep(800+random(500)) end;
    20: begin hovermovingobject;
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' antiban: hovering random object'
    sleep(800+random(500)) end;
    21: begin MMouseOffClient('top');
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' moving mouse off client'
    sleep(800+random(500)) end;
    22: begin MMouseOffClient('left');
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' antiban: moving mouse off client'
    sleep(800+random(500)) end;
    23: begin MMouseOffClient('right');
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' antiban: moving mouse off client'
    sleep(800+random(500)) end;
    24:begin MMouseOffClient('bottom');
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' antiban: moving mouse off client'
    sleep(800+random(500)) end;
    25..26: begin if isrunon(false) then
    begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' antiban: checking if run is on'
    setrun(true);
    end
    end;
    29..31: begin randomtab(false);
    sleep(1000+random(500))
    GameTab(tab_stats)
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' antiban: checking random tab'
    end;
    end
    end;

    procedure checkcount;
    begin
    if (not loggedin) then
    begin
    loginplayer;
    setangle(0)
    setrun(true)
    setfightmode(trainingmode)
    gametab(tab_stats)
    if count = 20 then
    begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' no monsters found for a long time - log out'
    logout;
    terminatescript;
    end
    end
    else
    begin
    if count = 20 then
    begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' no monsters found for a long time - log out'
    logout;
    terminatescript;
    end
    end
    end;

    Function Attackmonster6: Boolean;

    Var
    TPAA: T2DPointArray;
    TPA: TPointArray;
    CTS, I, Retry, x, y: Integer;
    MP: Tpoint;
    Box: Tbox;
    t: integer;

    Begin
    pbox2 := IntToBox(188, 23, 379, 64);
    PBox := IntToBox(223, 127, 295, 196);
    CTS := GetColorToleranceSpeed;
    ColorToleranceSpeed(2);
    marktime(t)
    repeat
    FindColorsSpiralTolerance(MSCX, MSCY, TPA, monstercolor6, MSX1, MSY1, MSX2, MSY2, 15);
    ColorToleranceSpeed(CTS);
    TPAA := TPAToATPAEx(TPA, 3, 3);
    SortATPASize(TPAA, True);
    For I := 0 To High(TPAA) Do
    If GetArraylength(TPAA[i]) > 5 Then
    Begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' searching monster'
    inc(Retry);
    MiddleTPAEx(TPAA[i], x, y);
    MP := MiddleTPA(TPAA[i]);
    Box := IntToBox(MP.x-12, MP.y-17, MP.x+12, MP.y+17);
    if (not (FindColor(X, Y, 255, mp.x-12, mp.y-17, mp.x+12, mp.y+17) or FindColor(X, Y, 65280, mp.x-12, mp.y-17, mp.x+12, mp.y+17))) THEN
    begin
    MMouse(x, y, 3, 3);
    sleep(100);
    if (IsUpTextMultiCustom([monstername2])) then
    begin
    if RIGHTCLICKONLY = true then
    begin
    result := True;
    smart_clearcanvas;
    smart_drawdots(TPA);
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' attacking'
    MouseBox(X, Y, X, Y, mouse_right);
    wait(200+random(100));
    ChooseOptionMulti(['tta']);
    count := 0
    Flag;
    wait(2500+random(500))
    exit;
    end
    else
    Begin
    Result := True;
    case random(6) of
    0..4 : begin
    smart_clearcanvas;
    smart_drawdots(TPA);
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' attacking'
    MouseBox(X, Y, X, Y, mouse_left);
    count := 0
    flag;
    wait(2500+random(500))
    exit;
    end;
    5 : begin
    smart_clearcanvas;
    smart_drawdots(TPA);
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' attacking'
    MouseBox(X, Y, X, Y, mouse_right);
    wait(200+random(100));
    ChooseOptionMulti(['tta']);
    count := 0
    Flag;
    wait(2500+random(500))
    exit;
    end;
    end;
    End;
    end
    else
    begin
    findnoninventoryrandoms();
    exit;
    end;
    end
    else
    begin
    findnoninventoryrandoms();
    exit;
    end;
    end
    else
    begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' no monsters found - moving camera'
    makecompass(randomrange(0, 360))
    wait(100+random(230))
    FindNonInventoryRandoms();
    inc(count)
    writeln('count: ' + inttostr(count))
    checkcount;
    findnoninventoryrandoms;
    exit;
    end;
    until (timefrommark(t) > (3000))
    if (timefrommark(t) > (3000)) then
    begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' no monsters found - moving camera'
    makecompass(randomrange(0, 360))
    wait(100+random(230))
    FindNonInventoryRandoms();
    inc(count)
    writeln('count: ' + inttostr(count))
    checkcount;
    findnoninventoryrandoms;
    exit;
    end;
    end;

    Function Attackmonster5: Boolean;

    Var
    TPAA: T2DPointArray;
    TPA: TPointArray;
    CTS, I, Retry, x, y: Integer;
    MP: Tpoint;
    Box: Tbox;
    t: integer;

    Begin
    pbox2 := IntToBox(188, 23, 379, 64);
    PBox := IntToBox(223, 127, 295, 196);
    CTS := GetColorToleranceSpeed;
    ColorToleranceSpeed(2);
    marktime(t)
    repeat
    FindColorsSpiralTolerance(MSCX, MSCY, TPA, monstercolor5, MSX1, MSY1, MSX2, MSY2, 15);
    ColorToleranceSpeed(CTS);
    TPAA := TPAToATPAEx(TPA, 3, 3);
    SortATPASize(TPAA, True);
    For I := 0 To High(TPAA) Do
    If GetArraylength(TPAA[i]) > 5 Then
    Begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' searching monster'
    inc(Retry);
    MiddleTPAEx(TPAA[i], x, y);
    MP := MiddleTPA(TPAA[i]);
    Box := IntToBox(MP.x-12, MP.y-17, MP.x+12, MP.y+17);
    if (not (FindColor(X, Y, 255, mp.x-12, mp.y-17, mp.x+12, mp.y+17) or FindColor(X, Y, 65280, mp.x-12, mp.y-17, mp.x+12, mp.y+17))) THEN
    begin
    MMouse(x, y, 3, 3);
    sleep(100);
    if (IsUpTextMultiCustom([monstername2])) then
    begin
    if RIGHTCLICKONLY = true then
    begin
    result := True;
    smart_clearcanvas;
    smart_drawdots(TPA);
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' attacking'
    MouseBox(X, Y, X, Y, mouse_right);
    wait(200+random(100));
    ChooseOptionMulti(['tta']);
    count := 0
    Flag;
    wait(2500+random(500))
    exit;
    end
    else
    Begin
    Result := True;
    case random(6) of
    0..4 : begin
    smart_clearcanvas;
    smart_drawdots(TPA);
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' attacking'
    MouseBox(X, Y, X, Y, mouse_left);
    count := 0
    flag;
    wait(2500+random(500))
    exit;
    end;
    5 : begin
    smart_clearcanvas;
    smart_drawdots(TPA);
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' attacking'
    MouseBox(X, Y, X, Y, mouse_right);
    wait(200+random(100));
    ChooseOptionMulti(['tta']);
    count := 0
    Flag;
    wait(2500+random(500))
    exit;
    end;
    end;
    End;
    end
    else
    begin
    findnoninventoryrandoms();
    exit;
    end;
    end
    else
    begin
    findnoninventoryrandoms();
    exit;
    end;
    end
    else
    begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' searching monsters'
    attackmonster6;
    exit;
    end;
    until (timefrommark(t) > (3000))
    if (timefrommark(t) > (3000)) then
    begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' searching monsters'
    attackmonster6;
    exit;
    end;
    end;


    Function Attackmonster4: Boolean;

    Var
    TPAA: T2DPointArray;
    TPA: TPointArray;
    CTS, I, Retry, x, y: Integer;
    MP: Tpoint;
    Box: Tbox;
    t: integer;

    Begin
    pbox2 := IntToBox(188, 23, 379, 64);
    PBox := IntToBox(223, 127, 295, 196);
    CTS := GetColorToleranceSpeed;
    ColorToleranceSpeed(2);
    marktime(t)
    repeat
    FindColorsSpiralTolerance(MSCX, MSCY, TPA, monstercolor4, MSX1, MSY1, MSX2, MSY2, 15);
    ColorToleranceSpeed(CTS);
    TPAA := TPAToATPAEx(TPA, 3, 3);
    SortATPASize(TPAA, True);
    For I := 0 To High(TPAA) Do
    If GetArraylength(TPAA[i]) > 5 Then
    Begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' searching monster'
    inc(Retry);
    MiddleTPAEx(TPAA[i], x, y);
    MP := MiddleTPA(TPAA[i]);
    Box := IntToBox(MP.x-12, MP.y-17, MP.x+12, MP.y+17);
    if (not (FindColor(X, Y, 255, mp.x-12, mp.y-17, mp.x+12, mp.y+17) or FindColor(X, Y, 65280, mp.x-12, mp.y-17, mp.x+12, mp.y+17))) THEN
    begin
    MMouse(x, y, 3, 3);
    sleep(100);
    if (IsUpTextMultiCustom([monstername2])) then
    begin
    if RIGHTCLICKONLY = true then
    begin
    result := True;
    smart_clearcanvas;
    smart_drawdots(TPA);
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' attacking'
    MouseBox(X, Y, X, Y, mouse_right);
    wait(200+random(100));
    ChooseOptionMulti(['tta']);
    count := 0
    Flag;
    wait(2500+random(500))
    exit;
    end
    else
    Begin
    Result := True;
    case random(6) of
    0..4 : begin
    smart_clearcanvas;
    smart_drawdots(TPA);
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' attacking'
    MouseBox(X, Y, X, Y, mouse_left);
    count := 0
    flag;
    wait(2500+random(500))
    exit;
    end;
    5 : begin
    smart_clearcanvas;
    smart_drawdots(TPA);
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' attacking'
    MouseBox(X, Y, X, Y, mouse_right);
    wait(200+random(100));
    ChooseOptionMulti(['tta']);
    count := 0
    Flag;
    wait(2500+random(500))
    exit;
    end;
    end;
    End;
    end
    else
    begin
    findnoninventoryrandoms();
    exit;
    end;
    end
    else
    begin
    findnoninventoryrandoms();
    exit;
    end;
    end
    else
    begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' searching monsters'
    attackmonster5;
    exit;
    end;
    until (timefrommark(t) > (3000))
    if (timefrommark(t) > (3000)) then
    begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' searching monsters'
    attackmonster5;
    exit;
    end;
    end;


    Function Attackmonster3: Boolean;

    Var
    TPAA: T2DPointArray;
    TPA: TPointArray;
    CTS, I, Retry, x, y: Integer;
    MP: Tpoint;
    Box: Tbox;
    t: integer;

    Begin
    pbox2 := IntToBox(188, 23, 379, 64);
    PBox := IntToBox(223, 127, 295, 196);
    CTS := GetColorToleranceSpeed;
    ColorToleranceSpeed(2);
    marktime(t)
    repeat
    FindColorsSpiralTolerance(MSCX, MSCY, TPA, monstercolor3, MSX1, MSY1, MSX2, MSY2, 15);
    ColorToleranceSpeed(CTS);
    TPAA := TPAToATPAEx(TPA, 3, 3);
    SortATPASize(TPAA, True);
    For I := 0 To High(TPAA) Do
    If GetArraylength(TPAA[i]) > 5 Then
    Begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' searching monster'
    inc(Retry);
    MiddleTPAEx(TPAA[i], x, y);
    MP := MiddleTPA(TPAA[i]);
    Box := IntToBox(MP.x-12, MP.y-17, MP.x+12, MP.y+17);
    if (not (FindColor(X, Y, 255, mp.x-12, mp.y-17, mp.x+12, mp.y+17) or FindColor(X, Y, 65280, mp.x-12, mp.y-17, mp.x+12, mp.y+17))) THEN
    begin
    MMouse(x, y, 3, 3);
    sleep(100);
    if (IsUpTextMultiCustom([monstername1])) then
    begin
    if RIGHTCLICKONLY = true then
    begin
    result := True;
    smart_clearcanvas;
    smart_drawdots(TPA);
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' attacking'
    MouseBox(X, Y, X, Y, mouse_right);
    wait(200+random(100));
    ChooseOptionMulti(['tta']);
    count := 0
    Flag;
    wait(2500+random(500))
    exit;
    end
    else
    Begin
    Result := True;
    case random(6) of
    0..4 : begin
    smart_clearcanvas;
    smart_drawdots(TPA);
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' attacking'
    MouseBox(X, Y, X, Y, mouse_left);
    count := 0
    flag;
    wait(2500+random(500))
    exit;
    end;
    5 : begin
    smart_clearcanvas;
    smart_drawdots(TPA);
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' attacking'
    MouseBox(X, Y, X, Y, mouse_right);
    wait(200+random(100));
    ChooseOptionMulti(['tta']);
    count := 0
    Flag;
    wait(2500+random(500))
    exit;
    end;
    end;
    End;
    end
    else
    begin
    findnoninventoryrandoms();
    end;
    end
    else
    begin
    findnoninventoryrandoms();
    end;
    end
    else
    begin
    if secondairymonster = false then
    begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' no monsters found - moving camera'
    makecompass(randomrange(0, 360))
    wait(100+random(230))
    FindNonInventoryRandoms();
    inc(count)
    writeln('count: ' + inttostr(count))
    checkcount;
    findnoninventoryrandoms;
    exit;
    end
    else
    begin
    attackmonster4;
    end;
    end;
    until (timefrommark(t) > (3000))
    if (timefrommark(t) > (3000)) then
    begin
    if secondairymonster = false then
    begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' no monsters found - moving camera'
    makecompass(randomrange(0, 360))
    wait(100+random(230))
    FindNonInventoryRandoms();
    inc(count)
    writeln('count: ' + inttostr(count))
    checkcount;
    findnoninventoryrandoms;
    exit;
    end
    else
    begin
    attackmonster4;
    end;
    end;
    end;

    Function Attackmonster2: Boolean;

    Var
    TPAA: T2DPointArray;
    TPA: TPointArray;
    CTS, I, Retry, x, y: Integer;
    MP: Tpoint;
    Box: Tbox;
    t: integer;

    Begin
    pbox2 := IntToBox(188, 23, 379, 64);
    PBox := IntToBox(223, 127, 295, 196);
    CTS := GetColorToleranceSpeed;
    ColorToleranceSpeed(2);
    marktime(t)
    repeat
    FindColorsSpiralTolerance(MSCX, MSCY, TPA, monstercolor2, MSX1, MSY1, MSX2, MSY2, 15);
    ColorToleranceSpeed(CTS);
    TPAA := TPAToATPAEx(TPA, 3, 3);
    SortATPASize(TPAA, True);
    For I := 0 To High(TPAA) Do
    If GetArraylength(TPAA[i]) > 5 Then
    Begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' searching monster'
    inc(Retry);
    MiddleTPAEx(TPAA[i], x, y);
    MP := MiddleTPA(TPAA[i]);
    Box := IntToBox(MP.x-12, MP.y-17, MP.x+12, MP.y+17);
    if (not (FindColor(X, Y, 255, mp.x-12, mp.y-17, mp.x+12, mp.y+17) or FindColor(X, Y, 65280, mp.x-12, mp.y-17, mp.x+12, mp.y+17))) THEN
    begin
    MMouse(x, y, 3, 3);
    sleep(100);
    if (IsUpTextMultiCustom([monstername1])) then
    begin
    if RIGHTCLICKONLY = true then
    begin
    result := True;
    smart_clearcanvas;
    smart_drawdots(TPA);
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' attacking'
    MouseBox(X, Y, X, Y, mouse_right);
    wait(200+random(100));
    ChooseOptionMulti(['tta']);
    count := 0
    Flag;
    wait(2500+random(500))
    exit;
    end
    else
    Begin
    Result := True;
    case random(6) of
    0..4 : begin
    smart_clearcanvas;
    smart_drawdots(TPA);
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' attacking'
    MouseBox(X, Y, X, Y, mouse_left);
    count := 0
    flag;
    wait(2500+random(500))
    exit;
    end;
    5 : begin
    smart_clearcanvas;
    smart_drawdots(TPA);
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' attacking'
    MouseBox(X, Y, X, Y, mouse_right);
    wait(200+random(100));
    ChooseOptionMulti(['tta']);
    count := 0
    Flag;
    wait(2500+random(500))
    exit;
    end;
    end;
    End;
    end
    else
    begin
    findnoninventoryrandoms();
    end;
    end
    else
    begin
    findnoninventoryrandoms();
    end;
    end
    else
    begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' searching monsters'
    attackmonster3;
    exit;
    end;
    until (timefrommark(t) > (3000))
    if (timefrommark(t) > (3000)) then
    begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' searching monsters'
    attackmonster3;
    exit;
    end;
    end;

    Function Attackmonster1: Boolean;

    Var
    TPAA: T2DPointArray;
    TPA: TPointArray;
    CTS, I, Retry, x, y: Integer;
    MP: Tpoint;
    Box: Tbox;
    t: integer;

    Begin
    pbox2 := IntToBox(188, 23, 379, 64);
    PBox := IntToBox(223, 127, 295, 196);
    CTS := GetColorToleranceSpeed;
    ColorToleranceSpeed(2);
    marktime(t)
    repeat
    FindColorsSpiralTolerance(MSCX, MSCY, TPA, monstercolor1, MSX1, MSY1, MSX2, MSY2, 15);
    ColorToleranceSpeed(CTS);
    TPAA := TPAToATPAEx(TPA, 3, 3);
    SortATPASize(TPAA, True);
    For I := 0 To High(TPAA) Do
    If GetArraylength(TPAA[i]) > 5 Then
    Begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' searching monster'
    inc(Retry);
    MiddleTPAEx(TPAA[i], x, y);
    MP := MiddleTPA(TPAA[i]);
    Box := IntToBox(MP.x-12, MP.y-17, MP.x+12, MP.y+17);
    if (not (FindColor(X, Y, 255, mp.x-12, mp.y-17, mp.x+12, mp.y+17) or FindColor(X, Y, 65280, mp.x-12, mp.y-17, mp.x+12, mp.y+17))) THEN
    begin
    MMouse(x, y, 3, 3);
    sleep(100);
    if (IsUpTextMultiCustom([monstername1])) then
    begin
    if RIGHTCLICKONLY = true then
    begin
    result := True;
    smart_clearcanvas;
    smart_drawdots(TPA);
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' attacking'
    MouseBox(X, Y, X, Y, mouse_right);
    wait(200+random(100));
    ChooseOptionMulti(['tta']);
    count := 0
    Flag;
    wait(2500+random(500))
    exit;
    end
    else
    Begin
    Result := True;
    case random(6) of
    0..4 : begin
    smart_clearcanvas;
    smart_drawdots(TPA);
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' attacking'
    MouseBox(X, Y, X, Y, mouse_left);
    count := 0
    flag;
    wait(2500+random(500))
    exit;
    end;
    5 : begin
    smart_clearcanvas;
    smart_drawdots(TPA);
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' attacking'
    MouseBox(X, Y, X, Y, mouse_right);
    wait(200+random(100));
    ChooseOptionMulti(['tta']);
    count := 0
    Flag;
    wait(2500+random(500))
    exit;
    end;
    end;
    End;
    end
    else
    begin
    findnoninventoryrandoms();
    end;
    end
    else
    begin
    findnoninventoryrandoms();
    end;
    end
    else
    begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' searching monsters'
    attackmonster2;
    exit;
    end;
    until (timefrommark(t) > (3000))
    if (timefrommark(t) > (3000)) then
    begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' searching monsters'
    attackmonster2;
    exit;
    end;
    end;

    procedure eating_food;
    begin
    if GetSkillInfo('hitpoints', true) > HpToEat then
    begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' in fight - checking hp'
    wait(700+random(200))
    findnoninventoryrandoms;
    antiban;
    end
    else
    begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' eating'
    gametab(tab_inv)
    wait(120+ random (200))
    if gametab(tab_inv) Then
    begin
    if FindDtm(foodDTM, x, y, MIX1, MIY1, MIX2, MIY2) THEN
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    findnormalrandoms();
    sleep(1000+random(1000))
    gametab(tab_stats)
    end
    else
    begin
    loggingout;
    end
    end
    end
    end;


    procedure IsInCombat;
    begin
    if FindColor(X, Y, 255, 223, 127, 295, 175) or FindColor(X, Y, 65280, 223, 127, 295, 175) THEN
    begin
    smart_clearcanvas;
    findnoninventoryrandoms;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' in fight - checking hp'
    begin
    eating_food;
    end
    end
    else
    begin
    attackmonster1;
    end
    end;

    procedure skill_failsafe;
    begin
    pbox2 := IntToBox(188, 23, 379, 64);
    PBox := IntToBox(223, 127, 295, 196);
    if FindColor(X, Y, 8042720, 485, 11, 515, 32) then
    begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' found a skill interface, closing'
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    wait(400+random(300))
    end
    else
    begin
    isincombat;
    end
    end;

    procedure take_loot;
    begin
    pbox2 := IntToBox(188, 23, 379, 64);
    PBox := IntToBox(223, 127, 295, 196);
    if (looting = 'true') then
    begin
    if FindObjEx(X, Y, [lootname1], [lootcolor1, lootcolor2], 10, 50, MSX1, MSY1, MSX2, MSY2) or FindObjEx(X, Y, [lootname2], [lootcolor3, lootcolor4], 10, 50, MSX1, MSY1, MSX2, MSY2) or FindObjEx(X, Y, [lootname3], [lootcolor5, lootcolor6], 10, 50, MSX1, MSY1, MSX2, MSY2) THEN
    case random(3) of
    0..1 : begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := 'looting'
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    wait(3000+ random(250))
    end;
    2 : begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := 'looting'
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    wait(200+random(100));
    ChooseOptionMulti(['ake']);
    wait(3000+ random(250))
    end;
    end
    else
    begin
    isincombat;
    end;
    end;
    if looting = 'false' then
    begin
    isincombat;
    end
    end;

    function IsPraying: Boolean;
    begin
    if not loggedin then
    exit;
    result := (FindColorsTolerance(monster, 63226, MSX1, MSY1, MSX2, MSY2, 10) or
    FindColorsTolerance(monster, 621348, MSX1, MSY1, MSX2, MSY2, 10))
    end;

    procedure prayercheck;
    begin
    if (use_prayer = 'true') then
    begin
    if (not(ispraying)) then
    begin
    gametab(tab_inv)
    wait(120+ random (200))
    if gametab(tab_inv) Then
    begin
    if findDTM(prayerpot1, x, y, MIX1, MIY1, MIX2, MIY2) THEN
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' prayer points low, drinking prayer potion'
    sleep(1000+random(1000))
    gametab(tab_stats)
    end
    else
    if findDTM(prayerpot2, x, y, MIX1, MIY1, MIX2, MIY2) THEN
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' prayer points low, drinking prayer potion'
    sleep(1000+random(1000))
    gametab(tab_stats)
    end
    else
    if findDTM(prayerpot3, x, y, MIX1, MIY1, MIX2, MIY2) THEN
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' prayer points low, drinking prayer potion'
    sleep(1000+random(1000))
    gametab(tab_stats)
    end
    else
    if findDTM(prayerpot4, x, y, MIX1, MIY1, MIX2, MIY2) THEN
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' prayer points low, drinking prayer potion'
    sleep(1000+random(1000))
    gametab(tab_stats)
    end
    else
    begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' out of prayer potions, logging out after 20 seconds'
    TabDTM := DTMFromString('m1gAAAHic42JgYOAFYmkg5gJiESBmBWJ+Bg SQhmKQOh4kvjRUXgKqlw2IRYE4KykJSDISxP8ZiAOETYJgBAAA z9MDgg==');
    if FindDTM(TabDTM, x, y, MIX1, MIY1, MIX2, MIY2) then
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    sleep(10000+random(4000))
    logout;
    FreeDTM(TabDTM);
    terminatescript;
    end;
    end
    end;
    gametab(tab_prayer)
    wait(100+ random(300));
    mouse(RandomRange(672, 689),RandomRange(331, 353), random(3),random(3),true)
    wait(randomrange(500,800))
    end

    else

    begin
    if (GetSkillInfo('prayer', true)) < 10 then
    begin
    gametab(tab_inv)
    wait(120+ random (200))
    if gametab(tab_inv) Then
    begin
    if findDTM(prayerpot1, x, y, MIX1, MIY1, MIX2, MIY2) THEN
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' prayer points low, drinking prayer potion'
    sleep(1000+random(1000))
    gametab(tab_stats)
    end
    else
    if findDTM(prayerpot2, x, y, MIX1, MIY1, MIX2, MIY2) THEN
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' prayer points low, drinking prayer potion'
    sleep(1000+random(1000))
    gametab(tab_stats)
    end
    else
    if findDTM(prayerpot3, x, y, MIX1, MIY1, MIX2, MIY2) THEN
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' prayer points low, drinking prayer potion'
    sleep(1000+random(1000))
    gametab(tab_stats)
    end
    else
    if findDTM(prayerpot4, x, y, MIX1, MIY1, MIX2, MIY2) THEN
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' prayer points low, drinking prayer potion'
    sleep(1000+random(1000))
    gametab(tab_stats)
    end
    else
    begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := 'out of prayer potions, logging out after 20 seconds'
    loggingout;
    end
    end
    else
    begin
    take_loot;
    end
    end
    end
    end
    else
    if (use_prayer = 'false') then
    begin
    take_loot;
    end
    end;

    procedure DefencePotCheck;
    begin
    if USEPOTS = True then
    begin
    if DEFENCEPOT = True then
    begin
    if GetSkillInfo('Defence', true) > (GetSkillInfo('Defence', false) + POTSTODRINK) then
    begin
    DefencePotCheck;
    end
    else
    begin
    if SUPER = False then
    begin
    gametab(tab_inv)
    wait(120+ random (200))
    if gametab(tab_inv) Then
    begin
    if FindDTM(NormalDefencePot1, x , y, MIX1, MIY1, MIX2, MIY2) then
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    sleep(500+random(500))
    gametab(tab_stats);
    end
    else
    if FindDTM(NormalDefencePot2, x , y, MIX1, MIY1, MIX2, MIY2) then
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    sleep(500+random(500))
    gametab(tab_stats);
    end
    else
    if FindDTM(NormalDefencePot3, x , y, MIX1, MIY1, MIX2, MIY2) then
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    sleep(500+random(500))
    gametab(tab_stats);
    end
    else
    if FindDTM(NormalDefencePot4, x , y, MIX1, MIY1, MIX2, MIY2) then
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    sleep(500+random(500))
    gametab(tab_stats);
    end
    else
    begin
    loggingout;
    end
    end
    end // end of normal Defence pots
    else
    begin // begin of super Defence pots
    gametab(tab_inv)
    wait(120+ random (200))
    if gametab(tab_inv) Then
    begin
    if FindDTM(SuperDefencePot1, x , y, MIX1, MIY1, MIX2, MIY2) then
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    sleep(500+random(500))
    gametab(tab_stats);
    end
    else
    if FindDTM(SuperDefencePot2, x , y, MIX1, MIY1, MIX2, MIY2) then
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    sleep(500+random(500))
    gametab(tab_stats);
    end
    else
    if FindDTM(SuperDefencePot3, x , y, MIX1, MIY1, MIX2, MIY2) then
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    sleep(500+random(500))
    gametab(tab_stats);
    end
    else
    if FindDTM(SuperDefencePot4, x , y, MIX1, MIY1, MIX2, MIY2) then
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    sleep(500+random(500))
    gametab(tab_stats);
    end


    procedure StrengthPotCheck;

    begin
    if USEPOTS = True then
    begin
    if STRENGTHPOT = True then
    begin
    if GetSkillInfo('STRENGTH', true) > (GetSkillInfo('STRENGTH', false) + POTSTODRINK) then
    begin
    isincombat;
    end
    else
    begin
    if SUPER = False then
    begin
    gametab(tab_inv)
    wait(120+ random (200))
    if gametab(tab_inv) Then
    begin
    if FindDTM(NormalStrengthPot1, x , y, MIX1, MIY1, MIX2, MIY2) then
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    sleep(500+random(500))
    gametab(tab_stats);
    end
    else
    if FindDTM(NormalStrengthPot2, x , y, MIX1, MIY1, MIX2, MIY2) then
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    sleep(500+random(500))
    gametab(tab_stats);
    end
    else
    if FindDTM(NormalStrengthPot3, x , y, MIX1, MIY1, MIX2, MIY2) then
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    sleep(500+random(500))
    gametab(tab_stats);
    end
    else
    if FindDTM(NormalStrengthPot4, x , y, MIX1, MIY1, MIX2, MIY2) then
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    sleep(500+random(500))
    gametab(tab_stats);
    end
    else
    begin
    loggingout;
    end
    end
    end // end of normal attack pots
    else
    begin // begin of super attack pots
    gametab(tab_inv)
    wait(120+ random (200))
    if gametab(tab_inv) Then
    begin
    if FindDTM(SuperStrengthPot1, x , y, MIX1, MIY1, MIX2, MIY2) then
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    sleep(500+random(500))
    gametab(tab_stats);
    end
    else
    if FindDTM(SuperStrengthPot2, x , y, MIX1, MIY1, MIX2, MIY2) then
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    sleep(500+random(500))
    gametab(tab_stats);
    end
    else
    if FindDTM(SuperStrengthPot3, x , y, MIX1, MIY1, MIX2, MIY2) then
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    sleep(500+random(500))
    gametab(tab_stats);
    end
    else
    if FindDTM(SuperStrengthPot4, x , y, MIX1, MIY1, MIX2, MIY2) then
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    sleep(500+random(500))
    gametab(tab_stats);
    end
    else
    begin
    loggingout;
    end // if no pot is found it banks
    end // search for pots
    end // search for inv
    end // end of normal and super pots
    end // end of strength pots procedure
    else
    begin
    prayercheck;
    end
    end
    else
    begin
    prayercheck;
    end;
    begin
    prayercheck;
    end
    end;

    procedure AttackPotCheck;
    begin
    if USEPOTS = True then
    begin
    if ATTACKPOT = True then
    begin
    if GetSkillInfo('Attack', true) > (GetSkillInfo('Attack', false) + POTSTODRINK) then
    begin
    StrengthPotCheck;
    end
    else
    begin
    if SUPER = False then
    begin
    gametab(tab_inv)
    wait(120+ random (200))
    if gametab(tab_inv) Then
    begin
    if FindDTM(NormalAttackPot1, x , y, MIX1, MIY1, MIX2, MIY2) then
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    sleep(500+random(500))
    gametab(tab_stats);
    end
    else
    if FindDTM(NormalAttackPot2, x , y, MIX1, MIY1, MIX2, MIY2) then
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    sleep(500+random(500))
    gametab(tab_stats);
    end
    else
    if FindDTM(NormalAttackPot3, x , y, MIX1, MIY1, MIX2, MIY2) then
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    sleep(500+random(500))
    gametab(tab_stats);
    end
    else
    if FindDTM(NormalAttackPot4, x , y, MIX1, MIY1, MIX2, MIY2) then
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    sleep(500+random(500))
    gametab(tab_stats);
    end
    else
    begin
    loggingout;
    end
    end
    end // end of normal attack pots
    else
    begin // begin of super attack pots
    gametab(tab_inv)
    wait(120+ random (200))
    if gametab(tab_inv) Then
    begin
    if FindDTM(SuperAttackPot1, x , y, MIX1, MIY1, MIX2, MIY2) then
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    sleep(500+random(500))
    gametab(tab_stats);
    end
    else
    if FindDTM(SuperAttackPot2, x , y, MIX1, MIY1, MIX2, MIY2) then
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    sleep(500+random(500))
    gametab(tab_stats);
    end
    else
    if FindDTM(SuperAttackPot3, x , y, MIX1, MIY1, MIX2, MIY2) then
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    sleep(500+random(500))
    gametab(tab_stats);
    end
    else
    if FindDTM(SuperAttackPot4, x , y, MIX1, MIY1, MIX2, MIY2) then
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    sleep(500+random(500))
    gametab(tab_stats);
    end
    else
    begin
    loggingout;
    end // if no pot is found it banks
    end // search for pots
    end // search for inv
    end // end of normal and super pots
    end // end of attack pots procedure
    else
    begin
    StrengthPotCheck;
    end
    end
    else
    begin
    StrengthPotCheck;
    end;
    begin
    StrengthPotCheck;
    end
    end;

    procedure FreeTheDTMs;
    begin
    FreeDTMs(['NormalAttackpot1', 'NormalAttackpot2', 'NormalAttackpot3', 'NormalAttackpot4', 'SuperAttackPot1', 'SuperAttackPot2', 'SuperAttackPot3', 'SuperAttackPot4', 'NormalStrengthPot1', 'NormalStrengthPot2', 'NormalStrengthPot3', 'NormalStrengthPot4', 'SuperStrengthPot1', 'SuperStrengthPot2', 'SuperStrengthPot3', 'SuperStrengthPot4', 'FoodDTM']);
    end;

    begin
    DeclarePlayers;
    foodsetup;
    loaddtms;
    SetupSRL();
    disguise('HoodzFighter v2,5')
    SRL_CombatRandoms := False;
    ActivateClient;
    ClearDebug;
    writeln('HoodzFighter version 2,5')
    repeat
    if (not LoggedIn) then
    begin
    LogInPlayer;
    setangle(0)
    setrun(true)
    setfightmode(trainingmode)
    gametab(tab_stats)
    end;
    if (LoggedIn) then
    begin
    skill_failsafe;
    attackpotcheck;
    FindNonInventoryRandoms();
    end;
    until(false);
    addonterminate('FreeTheDTMs')
    end.



    help me out will u mate. trying to get those def pots added
    almost correct, im changing some things so it actually drinks defence pots and im going to add my own dtms.

  7. #1307
    Join Date
    Jul 2013
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    I'm not able to get the bot to run. I opened it but im not really sure what do after that. Could you post a video showing how to set it up? Would greatly appreciate it brother.

  8. #1308
    Join Date
    Mar 2013
    Posts
    53
    Mentioned
    0 Post(s)
    Quoted
    22 Post(s)

    Default

    Quote Originally Posted by hoodz View Post
    almost correct, im changing some things so it actually drinks defence pots and im going to add my own dtms.
    thanks man this was actually my first attept at any scripting. how do u think i did?

  9. #1309
    Join Date
    Sep 2012
    Location
    Netherlands
    Posts
    2,752
    Mentioned
    193 Post(s)
    Quoted
    1468 Post(s)

    Default

    Quote Originally Posted by thatstranger1 View Post
    thanks man this was actually my first attept at any scripting. how do u think i did?
    Pretty good, you should try to make your own scripts maybe?

  10. #1310
    Join Date
    Sep 2012
    Location
    Netherlands
    Posts
    2,752
    Mentioned
    193 Post(s)
    Quoted
    1468 Post(s)

    Default

    Quote Originally Posted by fallflat View Post
    I'm not able to get the bot to run. I opened it but im not really sure what do after that. Could you post a video showing how to set it up? Would greatly appreciate it brother.
    Okay

  11. #1311
    Join Date
    Feb 2013
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Why does it keep putting exp lamps/books on attack? Is there a way to make it so that it puts it on strength?

  12. #1312
    Join Date
    Mar 2013
    Posts
    53
    Mentioned
    0 Post(s)
    Quoted
    22 Post(s)

    Default

    Quote Originally Posted by hoodz View Post
    Pretty good, you should try to make your own scripts maybe?
    maybe after i learn a little more "yohojo" magic

  13. #1313
    Join Date
    Sep 2012
    Posts
    270
    Mentioned
    4 Post(s)
    Quoted
    97 Post(s)

    Default

    Quote Originally Posted by thatstranger1 View Post
    HpToEat = 57; // enter the amount of hitpoints where you want to eat at, example: HpToEat = 35;
    foodname = 'shark'; //lobster, salmon, trout, shark

    use_prayer = 'false';

    USEPOTS = true;
    POTSTODRINK = 2; // when do you want to drink it pots (your level + number)
    SUPER = true;
    ATTACKPOT = true;
    STRENGTHPOT = true;
    DEFENCEPOT = true;

    monstername1 = 'Og'; //enter some letters of the name of the npc you want to attack (not all), example: monstername = 'oblin';
    monstercolor1 = 9680843; //enter the monster colors here (dont pick colors that match other things alot (black, grey etc)).
    monstercolor2 = 8563135;
    monstercolor3 = 11257558;

    secondairymonster = false; // true if you want to attack a second npc (with different name)

    monstername2 = 'os';
    monstercolor4 = 5272940;
    monstercolor5 = 4743019;
    monstercolor6 = 5405553;

    RIGHTCLICKONLY = false;

    //LOOTING NOT SUGGESTED, UPDATED IN THE FUTURE!

    looting = 'false'; // if you want to loot items set to 'true' . if you dont want to loot items use: 'false'
    // item to loot number 1
    lootname1 = 'seed'; //use some letters of the item you want to loot.
    lootcolor1 = 1134136; //color of loot here. Do ! > NOT < ! use colors that match with the background or the bot will stay stuck in the take_loot procedure!
    lootcolor2 = 1333055; //and here. also make sure to ONLY pickup notes and runes, make sure you have enough space in your inventory before botting or it will keep looting if you dont even have inventory space left.
    // item to loot number 2
    lootname2 = 'seed';
    lootcolor3 = 1134136;
    lootcolor4 = 1333055;
    //item to loot number 3
    lootname3 = 'seed';
    lootcolor5 = 1134136;
    lootcolor6 = 1333055;
    //note: if you want to loot only 1 item then you just copy your colors and name to the next item to loot.

    trainingmode = 2; //use here what mode you want to use, leftupcorner: 1 rightupcorner: 2 leftundercorner:3 rightundercorner: 4, example: trainingmode: 2;
    antibantrainingmode = skill_strength; //or skill_defence, skill_attack, skill_range, skill_magic

    //END OF USER CONFIGURATIONS DONT TOUCH ANYTHING AFTER THIS!


    procedure DeclarePlayers;
    begin
    HowManyPlayers := 1;
    NumberOfPlayers(HowManyPlayers);
    CurrentPlayer := 0;
    with Players[0] do
    begin
    Name := username;
    Pass := password;
    nick := nickname;
    Active := True;
    end;
    end;

    procedure foodsetup;
    begin
    if foodname = 'lobster' then
    begin
    FoodDTM := DTMFromString('m6wAAAHic42ZgYHBhYmDwgmJPIHYEYhsgNo diOyB2BWIfIA5gZGCIAeIoIPYD4lAoDoPyfYDYC4idgHhHshjQ dEaisAaQJBYTZyIEIwEA/ycJgA==');
    end;
    if foodname = 'salmon' then
    begin
    FoodDTM := DTMFromString('mggAAAHicY2NgYOCGYhDgA2IJIBYGYi4gFg JifiBmhMqDxA44SkBFUDErAyZgxaoSYR4DAwCTLQG6');
    end;
    if foodname = 'trout' then
    begin
    FoodDTM := DTMFromString('mggAAAHicY2NgYOAGYmEglgBiPgYIAIlxQT EIMAIxPxALAXF5UhxUBBWzAklWBkyAqRKCIQAAnDwB2A==');
    end;
    if foodname = 'shark' then
    begin
    FoodDTM := DTMFromString('mlwAAAHicY2dgYOACYkYgZgViESCWYoAALi iWgfKZoXK8QCwMxDnBtlCdmJidATfArgOCoQAAsEwBww==');
    end;
    end;

    procedure LoadDTMS;
    begin
    NormalStrengthPot1 := DTMFromString('mlwAAAHicY2dgYOAAYmEgZmWAAH4g5oSKiw KxBBDzQNkCUDWyQLx1sy6QZMSKWaHmYcPYdUAwFAAA8p8CiA== ');
    NormalStrengthPot2:= DTMFromString('mlwAAAHicY2dgYGAFYgEg5gFiTiBmYoAADi AWBGIJIOaDirFB1coA8bKlmkCSEStmhZqLDWPXAcFQAADZCAJJ ');
    NormalStrengthPot3:= DTMFromString('mlwAAAHicY2dgYGAHYkYgFgRiPiDmYIAALi AWAmJpIJaEyoOAMBDLArHqtNlQnZiYFUjiwth1QDAUAADcfgJO ');
    NormalStrengthPot4:= DTMFromString('mlwAAAHicY2dgYHBmYmBwBGJrILZngvA9gd gLiNkZGRjEgZgbiP8A1f4CYh4gWwSIlyzWBPIYsWJWIIkLY9cB wVAAAHvkBc4=');
    SuperStrengthPot1:= DTMFromString('mggAAAHicY2NgYGADYh4gZmGAAH4gZgViQS BmhIrxArEAEEsC8folS6AyqJgNahY6xlSJMJeBAQDO8AKf');
    SuperStrengthpot2:= DTMFromString('mbQAAAHicY2VgYGAHYh4g5maAACYonwvKB8 mLAPGhnTuBJCMKZgaSrGiYEQsGAwCvBAKr');
    SuperStrengthpot3:= DTMFromString('mggAAAHicY2NgYGABYj4g5gRiHiBmYoAAEF scyuaHyksC8fkzZ4AkIwZmBZLYMKZKCIYAAPROAxQ=');
    SuperStrengthpot4:= DTMFromString('mlwAAAHicY2fidgYGAHYkYgFgRiPiDmYIAA LiAWAmJpIJaEyoOAMBDLArHqtNlQnZiYFUjiwth1QDAUAADcfg JO');
    NormalAttackPot1:= DTMFromString('mlwAAAHicY2dgYOAAYh4gZgJiQQYI4IBiMS DmBWIZKFsIKi8LxLrrtwJJRqyYlQE3wK4DgqEAAOlZAmY=');
    NormalAttackPot2:= DTMFromString('mlwAAAHicY2dgYGAHYkYgFgRiPiDmYIAALi AWAmJpIJaEyoOAMBDLArHqtNlQnZiYFUjiwth1QDAUAADcfgJO ');
    NormalAttackPot3:= DTMFromString('mggAAAHicY2NgYGAHYk4gZgNiRiDmY4AAfi CWhbIFgFgYiKWB2PDYGahKVMzFgB1gqoRgCAAAxSACbg==');
    NormalAttackPot4:= DTMFromString('mlwAAAHicY2dgYOBggAAQzQPEQkDMBMScUL YkVJ4biMWBWACIZYE45vwVIMmIFXMx4AbYdUAwFAAADP8C0Q== ');
    SuperAttackPot1:= DTMFromString('mbQAAAHicY2VgYGABYjYg5mOAABBfFMoWgY rLArGOwRYgyYiCWYEkOmbEgsEAAG5MAag=');
    SuperAttackPot2:= DTMFromString('mbQAAAHicY2VgYOAEYg4g5meAABBfEMoG0S JALAvEwsIBQJIRBbMCSXTMiAWDAQBMhwEa');
    SuperAttackPot3:= DTMFromString('mbQAAAHicY2VgYGCFYn4GCGBHYosCsRAQyw Kxq8clIMmIglmR9MMwIxYMBgCC6gH6');
    SuperAttackPot4:= DTMFromString('mlwAAAHicY2dgYiOAAYh4gZgkJiQQYI4IBi MSDmBWIZKFsIKi8LxLrrtwJJRhwYN8ClA0kXAOgeAmE=');
    NormalDefencePot1:= DTMFromString('mrAAAAHic42BgYOAEYnYg5gViNiDmA2IOBg gQgWIQYIKKcwOxDBCLQ7HOFgMgyYgH4wf4dCLrBgDZygHo');
    NormalDefencePot2:= DTMFromString('mrAAAAHic42BgYOACYnYozQPErAwQIAQVE2 JAAE4oFgVicSCWBWK5BgUgyYgH4wf4dCLrBgCyxgGL');
    NormalDefencePot3:= DTMFromString('mrAAAAHic42BgYOACYl4gZgdiNiDmY4AAES DmBmIeBgTgAGJOqJwoEEsBseFpUyDJiAfjB/h0IusGAOAZAfo=');
    NormalDefencePot4:= DTMFromString('mrAAAAHic42BgYOAEYnYg5gNiViDmZ4AAES DmAWIuKJ8RyuYGYlEolgLipCspUFlcGD/ApxNZNwAMnQJo');
    SuperDefencePot1:= DTMFromString('mrAAAAHic42BgYHBjYmDwA2IrIHYBYk8gdg BiJyaInBYjA4MOFBsCsRIQKwCxCBCLAvGWqTpAUxjxYPwAn05k 3QCBZwTm');
    SuperDefencePot2:= DTMFromString('mrAAAAHic42BgYOAAYjYg5gFiFiDmZYAAIa icMJTPCJUDYUkglgBiGSC+t80cKosL4wf4dCLrBgAkeQKj');
    SuperDefencePot3:= DTMFromString('mrAAAAHic42BgYOAEYiYg5gdiDiBmB2JuBg gQhorDaFkgZoTKSQCxJBBfWmcMFcWF8QN8OpF1AwAgFQKS');
    SuperDefencePot4:= DTMFromString('mrAAAAHic42BgYOACYjYg5gFiViDmZYAAYS DmhmIY4ILyxYFYDIilgXhJuwaQZMSD8QN8OpF1AwDuvwIf');
    PrayerPot1:= DTMFromString('mggAAAHicY2NgYGAFYj4g5gJiFgYIANGiUM wDFQOpkQVi/W2dQJIRA7NiFcWNIQAAqN4CEA==');
    PrayerPot2:= DTMFromString('mggAAAHicY2NgYGAFYm4g5oGyQYAJiHmBWA aIBaBi/FB+6pU1QJIRA7NiFcWNIQAAzNICiA==');
    PrayerPot3:= DTMFromString('mggAAAHicY2NgYGBngAAOIOYHYkYg5oSypa FyIkAsCMSyQGx+aT5UFSpmBZLYMKZKCIYAAMHeAmw=');
    PrayerPot4:= DTMFromString('mggAAAHicY2NgYGBngAABIOYDYk4gZgRiXi CWAmJpqDgICANx6pU1UBWomBWrKG4MAQDSJAKT');
    end;

    procedure loggingout;
    begin
    TabDTM := DTMFromString('m1gAAAHic42JgYOAFYmkg5gJiESBmBWJ+Bg SQhmKQOh4kvjRUXgKqlw2IRYE4KykJSDISxP8ZiAOETYJgBAAA z9MDgg==');
    if FindDTM(TabDTM, x, y, MIX1, MIY1, MIX2, MIY2) then
    begin
    MouseBox(X+1, Y+1, X+1, Y+1, mouse_left);
    sleep(10000+random(4000))
    logout;
    FreeDTM(TabDTM);
    terminatescript;
    end;
    end;

    procedure AntiBan;
    begin
    case random(1000) of
    0..1: begin
    hoverskill(antibantrainingmode, false)
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' antiban: hovering skill'
    sleep(800+random(500)) end;
    2..3: begin hoverskill(skill_hitpoints, false)
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' antiban: hovering skill'
    sleep(800+random(500)) end;
    4..10: begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' antiban: moving camera'
    makecompass(randomrange(0, 360))
    sleep(800+random(500)) end;
    11..26: begin
    MMouse(x, y, 4, 4);
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' antiban: random mouse movement'
    sleep(800+random(500)) end;
    17: begin
    if (use_prayer = 'false') then
    case random(2) of
    1: begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' antiban: afk mode'
    wait(80000+ random(40000))
    end
    end
    else
    if use_prayer = 'true' then
    antiban;
    end;
    18: begin adjustmousespeed(2, 10, 20)
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' antiban: changing mouse speed'
    sleep(800+random(500)) end;
    19: begin randomRClick;
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' antiban: random right click'
    sleep(800+random(500)) end;
    20: begin hovermovingobject;
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' antiban: hovering random object'
    sleep(800+random(500)) end;
    21: begin MMouseOffClient('top');
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' moving mouse off client'
    sleep(800+random(500)) end;
    22: begin MMouseOffClient('left');
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' antiban: moving mouse off client'
    sleep(800+random(500)) end;
    23: begin MMouseOffClient('right');
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' antiban: moving mouse off client'
    sleep(800+random(500)) end;
    24:begin MMouseOffClient('bottom');
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' antiban: moving mouse off client'
    sleep(800+random(500)) end;
    25..26: begin if isrunon(false) then
    begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' antiban: checking if run is on'
    setrun(true);
    end
    end;
    29..31: begin randomtab(false);
    sleep(1000+random(500))
    GameTab(tab_stats)
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' antiban: checking random tab'
    end;
    end
    end;

    procedure checkcount;
    begin
    if (not loggedin) then
    begin
    loginplayer;
    setangle(0)
    setrun(true)
    setfightmode(trainingmode)
    gametab(tab_stats)
    if count = 20 then
    begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' no monsters found for a long time - log out'
    logout;
    terminatescript;
    end
    end
    else
    begin
    if count = 20 then
    begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' no monsters found for a long time - log out'
    logout;
    terminatescript;
    end
    end
    end;

    Function Attackmonster6: Boolean;

    Var
    TPAA: T2DPointArray;
    TPA: TPointArray;
    CTS, I, Retry, x, y: Integer;
    MP: Tpoint;
    Box: Tbox;
    t: integer;

    Begin
    pbox2 := IntToBox(188, 23, 379, 64);
    PBox := IntToBox(223, 127, 295, 196);
    CTS := GetColorToleranceSpeed;
    ColorToleranceSpeed(2);
    marktime(t)
    repeat
    FindColorsSpiralTolerance(MSCX, MSCY, TPA, monstercolor6, MSX1, MSY1, MSX2, MSY2, 15);
    ColorToleranceSpeed(CTS);
    TPAA := TPAToATPAEx(TPA, 3, 3);
    SortATPASize(TPAA, True);
    For I := 0 To High(TPAA) Do
    If GetArraylength(TPAA[i]) > 5 Then
    Begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' searching monster'
    inc(Retry);
    MiddleTPAEx(TPAA[i], x, y);
    MP := MiddleTPA(TPAA[i]);
    Box := IntToBox(MP.x-12, MP.y-17, MP.x+12, MP.y+17);
    if (not (FindColor(X, Y, 255, mp.x-12, mp.y-17, mp.x+12, mp.y+17) or FindColor(X, Y, 65280, mp.x-12, mp.y-17, mp.x+12, mp.y+17))) THEN
    begin
    MMouse(x, y, 3, 3);
    sleep(100);
    if (IsUpTextMultiCustom([monstername2])) then
    begin
    if RIGHTCLICKONLY = true then
    begin
    result := True;
    smart_clearcanvas;
    smart_drawdots(TPA);
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' attacking'
    MouseBox(X, Y, X, Y, mouse_right);
    wait(200+random(100));
    ChooseOptionMulti(['tta']);
    count := 0
    Flag;
    wait(2500+random(500))
    exit;
    end
    else
    Begin
    Result := True;
    case random(6) of
    0..4 : begin
    smart_clearcanvas;
    smart_drawdots(TPA);
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' attacking'
    MouseBox(X, Y, X, Y, mouse_left);
    count := 0
    flag;
    wait(2500+random(500))
    exit;
    end;
    5 : begin
    smart_clearcanvas;
    smart_drawdots(TPA);
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' attacking'
    MouseBox(X, Y, X, Y, mouse_right);
    wait(200+random(100));
    ChooseOptionMulti(['tta']);
    count := 0
    Flag;
    wait(2500+random(500))
    exit;
    end;
    end;
    End;
    end
    else
    begin
    findnoninventoryrandoms();
    exit;
    end;
    end
    else
    begin
    findnoninventoryrandoms();
    exit;
    end;
    end
    else
    begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' no monsters found - moving camera'
    makecompass(randomrange(0, 360))
    wait(100+random(230))
    FindNonInventoryRandoms();
    inc(count)
    writeln('count: ' + inttostr(count))
    checkcount;
    findnoninventoryrandoms;
    exit;
    end;
    until (timefrommark(t) > (3000))
    if (timefrommark(t) > (3000)) then
    begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' no monsters found - moving camera'
    makecompass(randomrange(0, 360))
    wait(100+random(230))
    FindNonInventoryRandoms();
    inc(count)
    writeln('count: ' + inttostr(count))
    checkcount;
    findnoninventoryrandoms;
    exit;
    end;
    end;

    Function Attackmonster5: Boolean;

    Var
    TPAA: T2DPointArray;
    TPA: TPointArray;
    CTS, I, Retry, x, y: Integer;
    MP: Tpoint;
    Box: Tbox;
    t: integer;

    Begin
    pbox2 := IntToBox(188, 23, 379, 64);
    PBox := IntToBox(223, 127, 295, 196);
    CTS := GetColorToleranceSpeed;
    ColorToleranceSpeed(2);
    marktime(t)
    repeat
    FindColorsSpiralTolerance(MSCX, MSCY, TPA, monstercolor5, MSX1, MSY1, MSX2, MSY2, 15);
    ColorToleranceSpeed(CTS);
    TPAA := TPAToATPAEx(TPA, 3, 3);
    SortATPASize(TPAA, True);
    For I := 0 To High(TPAA) Do
    If GetArraylength(TPAA[i]) > 5 Then
    Begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' searching monster'
    inc(Retry);
    MiddleTPAEx(TPAA[i], x, y);
    MP := MiddleTPA(TPAA[i]);
    Box := IntToBox(MP.x-12, MP.y-17, MP.x+12, MP.y+17);
    if (not (FindColor(X, Y, 255, mp.x-12, mp.y-17, mp.x+12, mp.y+17) or FindColor(X, Y, 65280, mp.x-12, mp.y-17, mp.x+12, mp.y+17))) THEN
    begin
    MMouse(x, y, 3, 3);
    sleep(100);
    if (IsUpTextMultiCustom([monstername2])) then
    begin
    if RIGHTCLICKONLY = true then
    begin
    result := True;
    smart_clearcanvas;
    smart_drawdots(TPA);
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' attacking'
    MouseBox(X, Y, X, Y, mouse_right);
    wait(200+random(100));
    ChooseOptionMulti(['tta']);
    count := 0
    Flag;
    wait(2500+random(500))
    exit;
    end
    else
    Begin
    Result := True;
    case random(6) of
    0..4 : begin
    smart_clearcanvas;
    smart_drawdots(TPA);
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' attacking'
    MouseBox(X, Y, X, Y, mouse_left);
    count := 0
    flag;
    wait(2500+random(500))
    exit;
    end;
    5 : begin
    smart_clearcanvas;
    smart_drawdots(TPA);
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' attacking'
    MouseBox(X, Y, X, Y, mouse_right);
    wait(200+random(100));
    ChooseOptionMulti(['tta']);
    count := 0
    Flag;
    wait(2500+random(500))
    exit;
    end;
    end;
    End;
    end
    else
    begin
    findnoninventoryrandoms();
    exit;
    end;
    end
    else
    begin
    findnoninventoryrandoms();
    exit;
    end;
    end
    else
    begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' searching monsters'
    attackmonster6;
    exit;
    end;
    until (timefrommark(t) > (3000))
    if (timefrommark(t) > (3000)) then
    begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' searching monsters'
    attackmonster6;
    exit;
    end;
    end;


    Function Attackmonster4: Boolean;

    Var
    TPAA: T2DPointArray;
    TPA: TPointArray;
    CTS, I, Retry, x, y: Integer;
    MP: Tpoint;
    Box: Tbox;
    t: integer;

    Begin
    pbox2 := IntToBox(188, 23, 379, 64);
    PBox := IntToBox(223, 127, 295, 196);
    CTS := GetColorToleranceSpeed;
    ColorToleranceSpeed(2);
    marktime(t)
    repeat
    FindColorsSpiralTolerance(MSCX, MSCY, TPA, monstercolor4, MSX1, MSY1, MSX2, MSY2, 15);
    ColorToleranceSpeed(CTS);
    TPAA := TPAToATPAEx(TPA, 3, 3);
    SortATPASize(TPAA, True);
    For I := 0 To High(TPAA) Do
    If GetArraylength(TPAA[i]) > 5 Then
    Begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' searching monster'
    inc(Retry);
    MiddleTPAEx(TPAA[i], x, y);
    MP := MiddleTPA(TPAA[i]);
    Box := IntToBox(MP.x-12, MP.y-17, MP.x+12, MP.y+17);
    if (not (FindColor(X, Y, 255, mp.x-12, mp.y-17, mp.x+12, mp.y+17) or FindColor(X, Y, 65280, mp.x-12, mp.y-17, mp.x+12, mp.y+17))) THEN
    begin
    MMouse(x, y, 3, 3);
    sleep(100);
    if (IsUpTextMultiCustom([monstername2])) then
    begin
    if RIGHTCLICKONLY = true then
    begin
    result := True;
    smart_clearcanvas;
    smart_drawdots(TPA);
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' attacking'
    MouseBox(X, Y, X, Y, mouse_right);
    wait(200+random(100));
    ChooseOptionMulti(['tta']);
    count := 0
    Flag;
    wait(2500+random(500))
    exit;
    end
    else
    Begin
    Result := True;
    case random(6) of
    0..4 : begin
    smart_clearcanvas;
    smart_drawdots(TPA);
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' attacking'
    MouseBox(X, Y, X, Y, mouse_left);
    count := 0
    flag;
    wait(2500+random(500))
    exit;
    end;
    5 : begin
    smart_clearcanvas;
    smart_drawdots(TPA);
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' attacking'
    MouseBox(X, Y, X, Y, mouse_right);
    wait(200+random(100));
    ChooseOptionMulti(['tta']);
    count := 0
    Flag;
    wait(2500+random(500))
    exit;
    end;
    end;
    End;
    end
    else
    begin
    findnoninventoryrandoms();
    exit;
    end;
    end
    else
    begin
    findnoninventoryrandoms();
    exit;
    end;
    end
    else
    begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' searching monsters'
    attackmonster5;
    exit;
    end;
    until (timefrommark(t) > (3000))
    if (timefrommark(t) > (3000)) then
    begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' searching monsters'
    attackmonster5;
    exit;
    end;
    end;


    Function Attackmonster3: Boolean;

    Var
    TPAA: T2DPointArray;
    TPA: TPointArray;
    CTS, I, Retry, x, y: Integer;
    MP: Tpoint;
    Box: Tbox;
    t: integer;

    Begin
    pbox2 := IntToBox(188, 23, 379, 64);
    PBox := IntToBox(223, 127, 295, 196);
    CTS := GetColorToleranceSpeed;
    ColorToleranceSpeed(2);
    marktime(t)
    repeat
    FindColorsSpiralTolerance(MSCX, MSCY, TPA, monstercolor3, MSX1, MSY1, MSX2, MSY2, 15);
    ColorToleranceSpeed(CTS);
    TPAA := TPAToATPAEx(TPA, 3, 3);
    SortATPASize(TPAA, True);
    For I := 0 To High(TPAA) Do
    If GetArraylength(TPAA[i]) > 5 Then
    Begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' searching monster'
    inc(Retry);
    MiddleTPAEx(TPAA[i], x, y);
    MP := MiddleTPA(TPAA[i]);
    Box := IntToBox(MP.x-12, MP.y-17, MP.x+12, MP.y+17);
    if (not (FindColor(X, Y, 255, mp.x-12, mp.y-17, mp.x+12, mp.y+17) or FindColor(X, Y, 65280, mp.x-12, mp.y-17, mp.x+12, mp.y+17))) THEN
    begin
    MMouse(x, y, 3, 3);
    sleep(100);
    if (IsUpTextMultiCustom([monstername1])) then
    begin
    if RIGHTCLICKONLY = true then
    begin
    result := True;
    smart_clearcanvas;
    smart_drawdots(TPA);
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' attacking'
    MouseBox(X, Y, X, Y, mouse_right);
    wait(200+random(100));
    ChooseOptionMulti(['tta']);
    count := 0
    Flag;
    wait(2500+random(500))
    exit;
    end
    else
    Begin
    Result := True;
    case random(6) of
    0..4 : begin
    smart_clearcanvas;
    smart_drawdots(TPA);
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' attacking'
    MouseBox(X, Y, X, Y, mouse_left);
    count := 0
    flag;
    wait(2500+random(500))
    exit;
    end;
    5 : begin
    smart_clearcanvas;
    smart_drawdots(TPA);
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' attacking'
    MouseBox(X, Y, X, Y, mouse_right);
    wait(200+random(100));
    ChooseOptionMulti(['tta']);
    count := 0
    Flag;
    wait(2500+random(500))
    exit;
    end;
    end;
    End;
    end
    else
    begin
    findnoninventoryrandoms();
    end;
    end
    else
    begin
    findnoninventoryrandoms();
    end;
    end
    else
    begin
    if secondairymonster = false then
    begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' no monsters found - moving camera'
    makecompass(randomrange(0, 360))
    wait(100+random(230))
    FindNonInventoryRandoms();
    inc(count)
    writeln('count: ' + inttostr(count))
    checkcount;
    findnoninventoryrandoms;
    exit;
    end
    else
    begin
    attackmonster4;
    end;
    end;
    until (timefrommark(t) > (3000))
    if (timefrommark(t) > (3000)) then
    begin
    if secondairymonster = false then
    begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' no monsters found - moving camera'
    makecompass(randomrange(0, 360))
    wait(100+random(230))
    FindNonInventoryRandoms();
    inc(count)
    writeln('count: ' + inttostr(count))
    checkcount;
    findnoninventoryrandoms;
    exit;
    end
    else
    begin
    attackmonster4;
    end;
    end;
    end;

    Function Attackmonster2: Boolean;

    Var
    TPAA: T2DPointArray;
    TPA: TPointArray;
    CTS, I, Retry, x, y: Integer;
    MP: Tpoint;
    Box: Tbox;
    t: integer;

    Begin
    pbox2 := IntToBox(188, 23, 379, 64);
    PBox := IntToBox(223, 127, 295, 196);
    CTS := GetColorToleranceSpeed;
    ColorToleranceSpeed(2);
    marktime(t)
    repeat
    FindColorsSpiralTolerance(MSCX, MSCY, TPA, monstercolor2, MSX1, MSY1, MSX2, MSY2, 15);
    ColorToleranceSpeed(CTS);
    TPAA := TPAToATPAEx(TPA, 3, 3);
    SortATPASize(TPAA, True);
    For I := 0 To High(TPAA) Do
    If GetArraylength(TPAA[i]) > 5 Then
    Begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' searching monster'
    inc(Retry);
    MiddleTPAEx(TPAA[i], x, y);
    MP := MiddleTPA(TPAA[i]);
    Box := IntToBox(MP.x-12, MP.y-17, MP.x+12, MP.y+17);
    if (not (FindColor(X, Y, 255, mp.x-12, mp.y-17, mp.x+12, mp.y+17) or FindColor(X, Y, 65280, mp.x-12, mp.y-17, mp.x+12, mp.y+17))) THEN
    begin
    MMouse(x, y, 3, 3);
    sleep(100);
    if (IsUpTextMultiCustom([monstername1])) then
    begin
    if RIGHTCLICKONLY = true then
    begin
    result := True;
    smart_clearcanvas;
    smart_drawdots(TPA);
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' attacking'
    MouseBox(X, Y, X, Y, mouse_right);
    wait(200+random(100));
    ChooseOptionMulti(['tta']);
    count := 0
    Flag;
    wait(2500+random(500))
    exit;
    end
    else
    Begin
    Result := True;
    case random(6) of
    0..4 : begin
    smart_clearcanvas;
    smart_drawdots(TPA);
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' attacking'
    MouseBox(X, Y, X, Y, mouse_left);
    count := 0
    flag;
    wait(2500+random(500))
    exit;
    end;
    5 : begin
    smart_clearcanvas;
    smart_drawdots(TPA);
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' attacking'
    MouseBox(X, Y, X, Y, mouse_right);
    wait(200+random(100));
    ChooseOptionMulti(['tta']);
    count := 0
    Flag;
    wait(2500+random(500))
    exit;
    end;
    end;
    End;
    end
    else
    begin
    findnoninventoryrandoms();
    end;
    end
    else
    begin
    findnoninventoryrandoms();
    end;
    end
    else
    begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' searching monsters'
    attackmonster3;
    exit;
    end;
    until (timefrommark(t) > (3000))
    if (timefrommark(t) > (3000)) then
    begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' searching monsters'
    attackmonster3;
    exit;
    end;
    end;

    Function Attackmonster1: Boolean;

    Var
    TPAA: T2DPointArray;
    TPA: TPointArray;
    CTS, I, Retry, x, y: Integer;
    MP: Tpoint;
    Box: Tbox;
    t: integer;

    Begin
    pbox2 := IntToBox(188, 23, 379, 64);
    PBox := IntToBox(223, 127, 295, 196);
    CTS := GetColorToleranceSpeed;
    ColorToleranceSpeed(2);
    marktime(t)
    repeat
    FindColorsSpiralTolerance(MSCX, MSCY, TPA, monstercolor1, MSX1, MSY1, MSX2, MSY2, 15);
    ColorToleranceSpeed(CTS);
    TPAA := TPAToATPAEx(TPA, 3, 3);
    SortATPASize(TPAA, True);
    For I := 0 To High(TPAA) Do
    If GetArraylength(TPAA[i]) > 5 Then
    Begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' searching monster'
    inc(Retry);
    MiddleTPAEx(TPAA[i], x, y);
    MP := MiddleTPA(TPAA[i]);
    Box := IntToBox(MP.x-12, MP.y-17, MP.x+12, MP.y+17);
    if (not (FindColor(X, Y, 255, mp.x-12, mp.y-17, mp.x+12, mp.y+17) or FindColor(X, Y, 65280, mp.x-12, mp.y-17, mp.x+12, mp.y+17))) THEN
    begin
    MMouse(x, y, 3, 3);
    sleep(100);
    if (IsUpTextMultiCustom([monstername1])) then
    begin
    if RIGHTCLICKONLY = true then
    begin
    result := True;
    smart_clearcanvas;
    smart_drawdots(TPA);
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' attacking'
    MouseBox(X, Y, X, Y, mouse_right);
    wait(200+random(100));
    ChooseOptionMulti(['tta']);
    count := 0
    Flag;
    wait(2500+random(500))
    exit;
    end
    else
    Begin
    Result := True;
    case random(6) of
    0..4 : begin
    smart_clearcanvas;
    smart_drawdots(TPA);
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' attacking'
    MouseBox(X, Y, X, Y, mouse_left);
    count := 0
    flag;
    wait(2500+random(500))
    exit;
    end;
    5 : begin
    smart_clearcanvas;
    smart_drawdots(TPA);
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' attacking'
    MouseBox(X, Y, X, Y, mouse_right);
    wait(200+random(100));
    ChooseOptionMulti(['tta']);
    count := 0
    Flag;
    wait(2500+random(500))
    exit;
    end;
    end;
    End;
    end
    else
    begin
    findnoninventoryrandoms();
    end;
    end
    else
    begin
    findnoninventoryrandoms();
    end;
    end
    else
    begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' searching monsters'
    attackmonster2;
    exit;
    end;
    until (timefrommark(t) > (3000))
    if (timefrommark(t) > (3000)) then
    begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' searching monsters'
    attackmonster2;
    exit;
    end;
    end;

    procedure eating_food;
    begin
    if GetSkillInfo('hitpoints', true) > HpToEat then
    begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' in fight - checking hp'
    wait(700+random(200))
    findnoninventoryrandoms;
    antiban;
    end
    else
    begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' eating'
    gametab(tab_inv)
    wait(120+ random (200))
    if gametab(tab_inv) Then
    begin
    if FindDtm(foodDTM, x, y, MIX1, MIY1, MIX2, MIY2) THEN
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    findnormalrandoms();
    sleep(1000+random(1000))
    gametab(tab_stats)
    end
    else
    begin
    loggingout;
    end
    end
    end
    end;


    procedure IsInCombat;
    begin
    if FindColor(X, Y, 255, 223, 127, 295, 175) or FindColor(X, Y, 65280, 223, 127, 295, 175) THEN
    begin
    smart_clearcanvas;
    findnoninventoryrandoms;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' in fight - checking hp'
    begin
    eating_food;
    end
    end
    else
    begin
    attackmonster1;
    end
    end;

    procedure skill_failsafe;
    begin
    pbox2 := IntToBox(188, 23, 379, 64);
    PBox := IntToBox(223, 127, 295, 196);
    if FindColor(X, Y, 8042720, 485, 11, 515, 32) then
    begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' found a skill interface, closing'
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    wait(400+random(300))
    end
    else
    begin
    isincombat;
    end
    end;

    procedure take_loot;
    begin
    pbox2 := IntToBox(188, 23, 379, 64);
    PBox := IntToBox(223, 127, 295, 196);
    if (looting = 'true') then
    begin
    if FindObjEx(X, Y, [lootname1], [lootcolor1, lootcolor2], 10, 50, MSX1, MSY1, MSX2, MSY2) or FindObjEx(X, Y, [lootname2], [lootcolor3, lootcolor4], 10, 50, MSX1, MSY1, MSX2, MSY2) or FindObjEx(X, Y, [lootname3], [lootcolor5, lootcolor6], 10, 50, MSX1, MSY1, MSX2, MSY2) THEN
    case random(3) of
    0..1 : begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := 'looting'
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    wait(3000+ random(250))
    end;
    2 : begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := 'looting'
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    wait(200+random(100));
    ChooseOptionMulti(['ake']);
    wait(3000+ random(250))
    end;
    end
    else
    begin
    isincombat;
    end;
    end;
    if looting = 'false' then
    begin
    isincombat;
    end
    end;

    function IsPraying: Boolean;
    begin
    if not loggedin then
    exit;
    result := (FindColorsTolerance(monster, 63226, MSX1, MSY1, MSX2, MSY2, 10) or
    FindColorsTolerance(monster, 621348, MSX1, MSY1, MSX2, MSY2, 10))
    end;

    procedure prayercheck;
    begin
    if (use_prayer = 'true') then
    begin
    if (not(ispraying)) then
    begin
    gametab(tab_inv)
    wait(120+ random (200))
    if gametab(tab_inv) Then
    begin
    if findDTM(prayerpot1, x, y, MIX1, MIY1, MIX2, MIY2) THEN
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' prayer points low, drinking prayer potion'
    sleep(1000+random(1000))
    gametab(tab_stats)
    end
    else
    if findDTM(prayerpot2, x, y, MIX1, MIY1, MIX2, MIY2) THEN
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' prayer points low, drinking prayer potion'
    sleep(1000+random(1000))
    gametab(tab_stats)
    end
    else
    if findDTM(prayerpot3, x, y, MIX1, MIY1, MIX2, MIY2) THEN
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' prayer points low, drinking prayer potion'
    sleep(1000+random(1000))
    gametab(tab_stats)
    end
    else
    if findDTM(prayerpot4, x, y, MIX1, MIY1, MIX2, MIY2) THEN
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' prayer points low, drinking prayer potion'
    sleep(1000+random(1000))
    gametab(tab_stats)
    end
    else
    begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' out of prayer potions, logging out after 20 seconds'
    TabDTM := DTMFromString('m1gAAAHic42JgYOAFYmkg5gJiESBmBWJ+Bg SQhmKQOh4kvjRUXgKqlw2IRYE4KykJSDISxP8ZiAOETYJgBAAA z9MDgg==');
    if FindDTM(TabDTM, x, y, MIX1, MIY1, MIX2, MIY2) then
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    sleep(10000+random(4000))
    logout;
    FreeDTM(TabDTM);
    terminatescript;
    end;
    end
    end;
    gametab(tab_prayer)
    wait(100+ random(300));
    mouse(RandomRange(672, 689),RandomRange(331, 353), random(3),random(3),true)
    wait(randomrange(500,800))
    end

    else

    begin
    if (GetSkillInfo('prayer', true)) < 10 then
    begin
    gametab(tab_inv)
    wait(120+ random (200))
    if gametab(tab_inv) Then
    begin
    if findDTM(prayerpot1, x, y, MIX1, MIY1, MIX2, MIY2) THEN
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' prayer points low, drinking prayer potion'
    sleep(1000+random(1000))
    gametab(tab_stats)
    end
    else
    if findDTM(prayerpot2, x, y, MIX1, MIY1, MIX2, MIY2) THEN
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' prayer points low, drinking prayer potion'
    sleep(1000+random(1000))
    gametab(tab_stats)
    end
    else
    if findDTM(prayerpot3, x, y, MIX1, MIY1, MIX2, MIY2) THEN
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' prayer points low, drinking prayer potion'
    sleep(1000+random(1000))
    gametab(tab_stats)
    end
    else
    if findDTM(prayerpot4, x, y, MIX1, MIY1, MIX2, MIY2) THEN
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := ' prayer points low, drinking prayer potion'
    sleep(1000+random(1000))
    gametab(tab_stats)
    end
    else
    begin
    smart_clearcanvas;
    SMART_DrawText(190,75-50,statchars, 'time running: '+ MsToTime(GetTimeRunning,3) ,clWhite);
    SMART_DrawText(190,95-50,StatChars, 'Status: '+ status ,clWhite);
    status := 'out of prayer potions, logging out after 20 seconds'
    loggingout;
    end
    end
    else
    begin
    take_loot;
    end
    end
    end
    end
    else
    if (use_prayer = 'false') then
    begin
    take_loot;
    end
    end;

    procedure DefencePotCheck;
    begin
    if USEPOTS = True then
    begin
    if DEFENCEPOT = True then
    begin
    if GetSkillInfo('Defence', true) > (GetSkillInfo('Defence', false) + POTSTODRINK) then
    begin
    DefencePotCheck;
    end
    else
    begin
    if SUPER = False then
    begin
    gametab(tab_inv)
    wait(120+ random (200))
    if gametab(tab_inv) Then
    begin
    if FindDTM(NormalDefencePot1, x , y, MIX1, MIY1, MIX2, MIY2) then
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    sleep(500+random(500))
    gametab(tab_stats);
    end
    else
    if FindDTM(NormalDefencePot2, x , y, MIX1, MIY1, MIX2, MIY2) then
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    sleep(500+random(500))
    gametab(tab_stats);
    end
    else
    if FindDTM(NormalDefencePot3, x , y, MIX1, MIY1, MIX2, MIY2) then
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    sleep(500+random(500))
    gametab(tab_stats);
    end
    else
    if FindDTM(NormalDefencePot4, x , y, MIX1, MIY1, MIX2, MIY2) then
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    sleep(500+random(500))
    gametab(tab_stats);
    end
    else
    begin
    loggingout;
    end
    end
    end // end of normal Defence pots
    else
    begin // begin of super Defence pots
    gametab(tab_inv)
    wait(120+ random (200))
    if gametab(tab_inv) Then
    begin
    if FindDTM(SuperDefencePot1, x , y, MIX1, MIY1, MIX2, MIY2) then
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    sleep(500+random(500))
    gametab(tab_stats);
    end
    else
    if FindDTM(SuperDefencePot2, x , y, MIX1, MIY1, MIX2, MIY2) then
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    sleep(500+random(500))
    gametab(tab_stats);
    end
    else
    if FindDTM(SuperDefencePot3, x , y, MIX1, MIY1, MIX2, MIY2) then
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    sleep(500+random(500))
    gametab(tab_stats);
    end
    else
    if FindDTM(SuperDefencePot4, x , y, MIX1, MIY1, MIX2, MIY2) then
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    sleep(500+random(500))
    gametab(tab_stats);
    end


    procedure StrengthPotCheck;

    begin
    if USEPOTS = True then
    begin
    if STRENGTHPOT = True then
    begin
    if GetSkillInfo('STRENGTH', true) > (GetSkillInfo('STRENGTH', false) + POTSTODRINK) then
    begin
    isincombat;
    end
    else
    begin
    if SUPER = False then
    begin
    gametab(tab_inv)
    wait(120+ random (200))
    if gametab(tab_inv) Then
    begin
    if FindDTM(NormalStrengthPot1, x , y, MIX1, MIY1, MIX2, MIY2) then
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    sleep(500+random(500))
    gametab(tab_stats);
    end
    else
    if FindDTM(NormalStrengthPot2, x , y, MIX1, MIY1, MIX2, MIY2) then
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    sleep(500+random(500))
    gametab(tab_stats);
    end
    else
    if FindDTM(NormalStrengthPot3, x , y, MIX1, MIY1, MIX2, MIY2) then
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    sleep(500+random(500))
    gametab(tab_stats);
    end
    else
    if FindDTM(NormalStrengthPot4, x , y, MIX1, MIY1, MIX2, MIY2) then
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    sleep(500+random(500))
    gametab(tab_stats);
    end
    else
    begin
    loggingout;
    end
    end
    end // end of normal attack pots
    else
    begin // begin of super attack pots
    gametab(tab_inv)
    wait(120+ random (200))
    if gametab(tab_inv) Then
    begin
    if FindDTM(SuperStrengthPot1, x , y, MIX1, MIY1, MIX2, MIY2) then
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    sleep(500+random(500))
    gametab(tab_stats);
    end
    else
    if FindDTM(SuperStrengthPot2, x , y, MIX1, MIY1, MIX2, MIY2) then
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    sleep(500+random(500))
    gametab(tab_stats);
    end
    else
    if FindDTM(SuperStrengthPot3, x , y, MIX1, MIY1, MIX2, MIY2) then
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    sleep(500+random(500))
    gametab(tab_stats);
    end
    else
    if FindDTM(SuperStrengthPot4, x , y, MIX1, MIY1, MIX2, MIY2) then
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    sleep(500+random(500))
    gametab(tab_stats);
    end
    else
    begin
    loggingout;
    end // if no pot is found it banks
    end // search for pots
    end // search for inv
    end // end of normal and super pots
    end // end of strength pots procedure
    else
    begin
    prayercheck;
    end
    end
    else
    begin
    prayercheck;
    end;
    begin
    prayercheck;
    end
    end;

    procedure AttackPotCheck;
    begin
    if USEPOTS = True then
    begin
    if ATTACKPOT = True then
    begin
    if GetSkillInfo('Attack', true) > (GetSkillInfo('Attack', false) + POTSTODRINK) then
    begin
    StrengthPotCheck;
    end
    else
    begin
    if SUPER = False then
    begin
    gametab(tab_inv)
    wait(120+ random (200))
    if gametab(tab_inv) Then
    begin
    if FindDTM(NormalAttackPot1, x , y, MIX1, MIY1, MIX2, MIY2) then
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    sleep(500+random(500))
    gametab(tab_stats);
    end
    else
    if FindDTM(NormalAttackPot2, x , y, MIX1, MIY1, MIX2, MIY2) then
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    sleep(500+random(500))
    gametab(tab_stats);
    end
    else
    if FindDTM(NormalAttackPot3, x , y, MIX1, MIY1, MIX2, MIY2) then
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    sleep(500+random(500))
    gametab(tab_stats);
    end
    else
    if FindDTM(NormalAttackPot4, x , y, MIX1, MIY1, MIX2, MIY2) then
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    sleep(500+random(500))
    gametab(tab_stats);
    end
    else
    begin
    loggingout;
    end
    end
    end // end of normal attack pots
    else
    begin // begin of super attack pots
    gametab(tab_inv)
    wait(120+ random (200))
    if gametab(tab_inv) Then
    begin
    if FindDTM(SuperAttackPot1, x , y, MIX1, MIY1, MIX2, MIY2) then
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    sleep(500+random(500))
    gametab(tab_stats);
    end
    else
    if FindDTM(SuperAttackPot2, x , y, MIX1, MIY1, MIX2, MIY2) then
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    sleep(500+random(500))
    gametab(tab_stats);
    end
    else
    if FindDTM(SuperAttackPot3, x , y, MIX1, MIY1, MIX2, MIY2) then
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    sleep(500+random(500))
    gametab(tab_stats);
    end
    else
    if FindDTM(SuperAttackPot4, x , y, MIX1, MIY1, MIX2, MIY2) then
    begin
    MMouse(x, y, 3, 3);
    clickmouse2(mouse_left);
    sleep(500+random(500))
    gametab(tab_stats);
    end
    else
    begin
    loggingout;
    end // if no pot is found it banks
    end // search for pots
    end // search for inv
    end // end of normal and super pots
    end // end of attack pots procedure
    else
    begin
    StrengthPotCheck;
    end
    end
    else
    begin
    StrengthPotCheck;
    end;
    begin
    StrengthPotCheck;
    end
    end;

    procedure FreeTheDTMs;
    begin
    FreeDTMs(['NormalAttackpot1', 'NormalAttackpot2', 'NormalAttackpot3', 'NormalAttackpot4', 'SuperAttackPot1', 'SuperAttackPot2', 'SuperAttackPot3', 'SuperAttackPot4', 'NormalStrengthPot1', 'NormalStrengthPot2', 'NormalStrengthPot3', 'NormalStrengthPot4', 'SuperStrengthPot1', 'SuperStrengthPot2', 'SuperStrengthPot3', 'SuperStrengthPot4', 'FoodDTM']);
    end;

    begin
    DeclarePlayers;
    foodsetup;
    loaddtms;
    SetupSRL();
    disguise('HoodzFighter v2,5')
    SRL_CombatRandoms := False;
    ActivateClient;
    ClearDebug;
    writeln('HoodzFighter version 2,5')
    repeat
    if (not LoggedIn) then
    begin
    LogInPlayer;
    setangle(0)
    setrun(true)
    setfightmode(trainingmode)
    gametab(tab_stats)
    end;
    if (LoggedIn) then
    begin
    skill_failsafe;
    attackpotcheck;
    FindNonInventoryRandoms();
    end;
    until(false);
    addonterminate('FreeTheDTMs')
    end.



    help me out will u mate. trying to get those def pots added
    Put that around Simba tags next time, thanks

  14. #1314
    Join Date
    May 2013
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    How will i ever run this longer as 1 hour? it gets stuck at every random event..

  15. #1315
    Join Date
    Sep 2012
    Location
    Netherlands
    Posts
    2,752
    Mentioned
    193 Post(s)
    Quoted
    1468 Post(s)

    Default

    Quote Originally Posted by Huuuge View Post
    How will i ever run this longer as 1 hour? it gets stuck at every random event..
    enter your nickname

  16. #1316
    Join Date
    Jan 2013
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    Im having trouble getting the bot to eat trout or any other food. I entered 24 as Hp to eat and wrote 'trout' in there, but it wont eat any of it, even when my hp is at 24 or below...?

  17. #1317
    Join Date
    Sep 2008
    Posts
    754
    Mentioned
    8 Post(s)
    Quoted
    275 Post(s)

    Default

    Quote Originally Posted by Hinklebart View Post
    Im having trouble getting the bot to eat trout or any other food. I entered 24 as Hp to eat and wrote 'trout' in there, but it wont eat any of it, even when my hp is at 24 or below...?
    Few things:

    -do you have runescape's in-game brightness set to highest?.
    -do you have the latest SRL_OSR include revision?.

    The DTM's hoodz uses are solid for food finding, but encase they do not work you can work around it in two methods:

    A) Create your own DTM for the Trout (not hard, easy; lots of tutorials about it).

    Can be edited at like 100:

    Simba Code:
    if foodname = 'trout' then
    begin

    B) Switching from DTM to color finding.

    At line 1061 Change the line that reads

    Simba Code:
    if  FindDtm(foodDTM, x, y, MIX1, MIY1, MIX2, MIY2)  THEN
    to
    Simba Code:
    if FindObjEx(x,y,['rout'],[YourFoodColorHere],YourFooDTolerancehere,50,MIX1, MIY1, MIX2, MIY2) then

    then you can use the Eye-Drop Tool to pick a color for the trout, and set Tolerance to around 3-10.

    So it looks like

    Simba Code:
    if gametab(tab_inv) Then
            begin
            if FindObjEx(x,y,['rout'],[198215],1,50,MIX1, MIY1, MIX2, MIY2) then
                begin
                 clickmouse2(mouse_left);
                 findnormalrandoms();
                 sleep(1000+random(1000))
                 gametab(tab_stats)

  18. #1318
    Join Date
    Sep 2012
    Location
    Netherlands
    Posts
    2,752
    Mentioned
    193 Post(s)
    Quoted
    1468 Post(s)

    Default

    Quote Originally Posted by samerdl View Post
    Few things:

    -do you have runescape's in-game brightness set to highest?.
    -do you have the latest SRL_OSR include revision?.

    The DTM's hoodz uses are solid for food finding, but encase they do not work you can work around it in two methods:

    A) Create your own DTM for the Trout (not hard, easy; lots of tutorials about it).

    Can be edited at like 100:

    Simba Code:
    if foodname = 'trout' then
    begin

    B) Switching from DTM to color finding.

    At line 1061 Change the line that reads

    Simba Code:
    if  FindDtm(foodDTM, x, y, MIX1, MIY1, MIX2, MIY2)  THEN
    to
    Simba Code:
    if FindObjEx(x,y,['rout'],[YourFoodColorHere],YourFooDTolerancehere,50,MIX1, MIY1, MIX2, MIY2) then

    then you can use the Eye-Drop Tool to pick a color for the trout, and set Tolerance to around 3-10.

    So it looks like

    Simba Code:
    if gametab(tab_inv) Then
            begin
            if FindObjEx(x,y,['rout'],[198215],1,50,MIX1, MIY1, MIX2, MIY2) then
                begin
                 clickmouse2(mouse_left);
                 findnormalrandoms();
                 sleep(1000+random(1000))
                 gametab(tab_stats)
    Thanks buddy!

    I dont know if you heard the rumors but im going to try to make a slayer script. I know already that i need your help, so be prepared for that

  19. #1319
    Join Date
    Jul 2013
    Posts
    12
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    WHen i runned this script it works great, but when i came back on i was hacked. All my money is gone.

  20. #1320
    Join Date
    Sep 2008
    Posts
    754
    Mentioned
    8 Post(s)
    Quoted
    275 Post(s)

    Default

    Quote Originally Posted by Aphredion View Post
    WHen i runned this script it works great, but when i came back on i was hacked. All my money is gone.

    Cant tell if trolling or serious, thousands of downloads and nothing evil. Obvious troll.

    @hoodz

    I'd be more than glad to help you with whatever it is you need me to do :-).

  21. #1321
    Join Date
    Jul 2013
    Posts
    12
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    if u think im trolling, then ur wrong. i really lost all my cash and i am really fucked up now. so please dont tell me im trolling because im not

  22. #1322
    Join Date
    Sep 2008
    Posts
    754
    Mentioned
    8 Post(s)
    Quoted
    275 Post(s)

    Default

    Quote Originally Posted by Aphredion View Post
    if u think im trolling, then ur wrong. i really lost all my cash and i am really fucked up now. so please dont tell me im trolling because im not
    Has nothing to do with this script.

    Am sorry for not taking your case seriously, if this script did hack you - then please upload your current script to this thread anyone can examine it and find malicious codes.

    Also did you download any other scripts/bot clients? if so please name them and where you downloaded them from.
    And going a bit off here, but did you try to look for some private servers or click on java promoting links? some website lure you to whats called 'java drive by', could be anything really .. Could be a link/site you entered and downloaded something without knowing its a keylogger/rat.

    And lastly, do you have the IP from the Ip logging? if you ran the script then it logged you in, it takes a screen shot of the ip and logs it, can be found in Simba\Includes\SRL-OSR\logs\IPLogs

    check the most recent pictures, if an odd ip stands out please post it here and we can get a moderator to look into it.

  23. #1323
    Join Date
    Feb 2013
    Posts
    17
    Mentioned
    0 Post(s)
    Quoted
    10 Post(s)

    Default

    Thank you for the Great skript!

    I have a little question/suggestin:

    Would it be possible to use Guthans as "food"? So everytime your HP drop bellowe a certain ammount you put on guthans and heal up. If your HP continue to fall bellow a certain ammount you would then eat something.

    This way you could make the trips longer and save money, bc you don't wear guthans all the time.

    //Edit: Sorry, I just searched the Thread and saw that this was already suggested!
    Last edited by Hanswurst; 07-16-2013 at 06:15 PM.

  24. #1324
    Join Date
    Dec 2011
    Location
    SWAGVILLE
    Posts
    14
    Mentioned
    0 Post(s)
    Quoted
    13 Post(s)

    Default

    It's constantly searching and attacking monsters. It never seems to realize when i'm already in combat, help please? Thanks in advance

    Besides that ran flawless for 5 hours straight. Could of kept going
    Last edited by Glossy Aussie; 07-18-2013 at 07:31 AM.

  25. #1325
    Join Date
    Sep 2012
    Location
    Netherlands
    Posts
    2,752
    Mentioned
    193 Post(s)
    Quoted
    1468 Post(s)

    Default

    Quote Originally Posted by Aphredion View Post
    if u think im trolling, then ur wrong. i really lost all my cash and i am really fucked up now. so please dont tell me im trolling because im not
    Im on holiday right now... So thats impossible. You can look at the source of the script its 100% clean

Page 53 of 117 FirstFirst ... 343515253545563103 ... LastLast

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Tags for this Thread

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •