program helpbot;
var
  stopProg: Boolean;
  helpTag, kndTag: Integer; // Store @help bitmap in this variable
  x, y, x1, y1, i: Integer;
  s: string;

procedure Send(const s: string);
begin
  for i:= 1 to 50 do PressKey(8);
  SendKeys(s, 5, 30);
end;

function find(const needle, haystack: string): Boolean;
begin
  result := (pos(needle, haystack) > 0);
end;

begin
  x := 0;
  y := 0;
  stopProg := false;
  //helpTag := BitmapFromString(35, 14, 'meJx1lEFKA0EQRXP/fTZmcGGy8A' +
  //      'wKQpAEQTfCEBIvo8W88PKpNlA0Nd09//XvqplpPz+8fj29z6vVb4v' +
  //      'N2zdLrJJsjxeCx93HjwnztdM9bCORUuO0nxlJYAlSXBHEk5ggdz4f' +
  //      'z4A8rV54LErlcPN1z1+jrBGU+5kvFjgdkTcQryyaJ2VhpdN7VwdI5' +
  //      'QpkyRso/bZLUDm952qCpqUx0B9BIHglC9f0c1uuCuIC7QFHQdkkSl' +
  //      'mje6A0jpHW1Sn+L6h9EUWsVfSrzVh9PJzHAuFojGyPEdRa/Qo6nHQ' +
  //      'EC5AlGINVNEdQM5WftnWxGai+bYALZxSv0J35+KMoL3kG5/kqaWy7' +
  //      'bv3yWY81VjSQZ2BU5AZaqtOaIU+SRSl9cf7uNGt75BkystPSNe+OP' +
  //      'aDBvEN/Hc2Red5VlrLm/wD9wbkh');
  helpTag := BitmapFromString(5, 12, 'meJybve/i7H0XZ+0+gwdN3XUamcv' +
        'AwAAXBJLIsljZmGrgXGSjgGjy5sNAEtk9EMUQcZCCrSeACACJxHrp');
  kndTag := BitmapFromString(19, 10, 'meJx9kOEKQEAQhPf9f1yhxEMokv' +
        'JDSuS5bDeZxh20XezeN2bHzNr5rOfTTzOrxp0V+rXsV7w30+HFkcU' +
        'HfYsKCiryBfqJkbN6gSxPBcEW3UL2YXjYchukUL4RQNpQzeRfynIX' +
        'baqyNvMd8RnuPHMFNwYQNl6VVYT505L6/7fHbJNwOM1BzydJ5gLZTBmv');
  wait(5000);
  repeat
  begin
  if (FindBitmapToleranceIn(helpTag, x, y, 70, 445, 400, 460, 30)) then
  begin
    Freeze;
    if (FindBitmapToleranceIn(kndTag, x1, y1, 70, 445, 95, 460, 30)) then
    begin
      Unfreeze;
      continue;
    end;
    s := GetTextAtEx(x + 5, 445, 494, 460, 1, 5, 4, 255, 20, 'SmallChars');
    WriteLn(s);
    if (find('where', s)) then
    begin
        if (find('dark', s) and find('beast', s)) then
        begin
            Send('dung tele > taverly > far south of lesser demons');
        end
        else if (find('kbd', s)) then
        begin
            Send('boss teleports > king black dragon > run east to ladder (wilderness)');
        end
        else if (find('drag', s)) then
        begin
            if (find('king', s)) then
            begin
                Send('boss teleports > king black dragon > run east to ladder (wilderness)');
            end
            else if (find('black', s)) then
            begin
                Send('dung tele > taverly > end of dung or 80agil shortcut nw of entr for blk drag');
            end
            else if (find('green', s)) then
            begin
                Send('Pk tele > west drag (wildy) or dung tele > chaos tun > ent 3 north');
            end
            else if (find('mith', s)) then
            begin
                Send('dung tele > ancient cavern > down stairs near greens up stairs for mith drags');
            end
            else if (find('bronz', s)) then
            begin
                Send('dung tele > kalphite lair > up rope');
            end
            else if (find('iron', s) or find('steel', s)) then
            begin
                Send('dung tele > kalphite lair > up rope run sw');
            end
            else if (find('frost', s)) then
            begin
                Send('dung tele > asgarnia ice > room south of ice strykewyrms');
            end
            else if (find('lava', s)) then
            begin
                Send('pk teleports > lava dragons (wildy)');
            end;
        end
        else if (find('glacor', s)) then
        begin
            Send('Dung tele > glacor lair');
        end
        else if (find('demon', s)) then
        begin
            if (find(' ab', s)) then
            begin
                Send('training tele > slayer tower > 3rd floor at end for abyssal demons');
            end
            else if (find('lesser', s)) then
            begin
                Send('dung tele > taverly > east of blue dragons for lesser demons');
            end
            else if (find('great', s)) then
            begin
                Send('dung tele > brimhaven > 2nd floor for greater demons');
            end
            else if (find('black', s)) then
            begin
                Send('dung tele > taverly > after blue dragons for black demons');
            end;
        end
        else if (find('jadinko', s)) then
        begin
            Send('dung tele > forbidden dung > mutated jadinko males at the end');
        end
        else if (find('hell', s) and find('hound', s)) then
        begin
            Send('dung tele > taverly > end of dung, 80agil shortcut useful for hellhounds');
        end
        else if (find('jungl', s) and find('horr', s)) then
        begin
            Send('dung tele > jungle dung for jungle horrors');
        end
        else if (find('stry', s) or find('wyrm', s)) then
        begin
            if (find('desert', s)) then
            begin
                Send('dung tele > kalphite lair > run around to west side rope');
            end
            else if (find('jungle', s)) then
            begin
                Send('dung tele > jungle dungeon for jungle strykewyrms');
            end
            else if (find('ice', s)) then
            begin
                Send('dung tele > asgarnia ice dung for ice strykewyrms');
            end;
        end
        else if (find('gargoyle', s)) then
        begin
            Send('training tele > slayer tower > 3rd floor for gargoyles');
        end
        else if (find('warrior', s)) then
        begin
            if (find('ice', s)) then
            begin
                Send('dung tele > asgarnia ice dung for ice warriors');
            end
            else if (find('earth', s)) then
                begin
            Send('dung tele > chaos tun > ent 1 nw nw ne nw w for earth warriors');
            end;
        end
        else if (find('avian', s)) then
            begin
        Send('boss teleports > god wars > armadyl > aviansies / gwd minions');
        end
        else if (find('dag', s) and find('oth', s)) then
        begin
            Send('dung tele > waterbirth > dagganoths or boss tele > dagganoth kings');
        end
        else if (find('chaos', s) and find('ele', s)) then
        begin
            Send('boss tele > chaos elemental (wildy)');
        end
        else if (find('dus', s) and find('dev', s)) then
        begin
            Send('dung tele chaos tunnels > entr 1 > NW NW NE');
        end
        else if (find('tzh', s)) then
        begin
            Send('::tz for tzhaar task monsters');
        end
        else if (find('dwar', s)) then
        begin
            Send('::mining for dwarf');
        end
        else if (find('spirit', s) and find('mage', s) or find('gorak', s)) then
        begin
            Send('boss tele > god wars > zamorak for gorak / spiritual mage');
        end
        else if (find('water', s) and find('fien', s)) then
        begin
            Send('dung tele > chaos tun > ent 1 > nw nw ne nw sw ne ne (rcmnd to skip)');
        end
        else if (find('veld', s)) then
        begin
            Send('training tele > slayer tower > 2nd floor for bloodvelds');
        end
        else if (find('nechr', s)) then
        begin
            Send('training tele > slayer tower > 3rd floor for nechryaels');
        end
        else if (find('crawl', s)) then
        begin
            if (find('hand', s)) then
            begin
                Send('training tele > slayer tower');
            end
            else if (find('cave', s)) then
            begin
                Send('training tele > fremenik slayer dung');
            end;
        end
        else if (find('jell', s)) then
        begin
            Send('training tele > fremenik slayer dung (soulwars ones dont count)');
        end
        else if (find('bansh', s)) then
        begin
            Send('training tele > slayer tower');
        end
        else if (find('giant', s)) then
        begin
            if (find('ice', s)) then
            begin
                Send('dung tele > chaos tunnels > ent 1 > e s w'); // corrected
            end
            else if (find('hill', s)) then
            begin
                Send('dung tele > taverly > south lessers and before dark beasts for hill giants');
            end
            else if (find('fire', s)) then
            begin
                Send('dung tele > brimhaven or dung tele > chaos tun > ent 4 > nw for fire giants');
            end
            else if (find('moss', s)) then
            begin
                Send('dung tele > chaos tunnel > ent 5 for moss giants');
            end;
        end
        else if (find('cyclop', s)) then
        begin
            Send('minigame tele > warriors guild for cyclops, ::Thread 1767 for guide');
        end
        else if (find('callis', s)) then
        begin
            Send('boss tele > callisto (wilderness)');
        end
        else if (find('aquan', s)) then
        begin
            Send('boss tele > dag kings > west for aquanites');
        end
        else if (find('wolv', s)) then
        begin
            Send('skill tele > farming > catherby > east to white wolf montain for wolves');
        end
        else if (find('rock', s) and find('slug', s)) then
        begin
            Send('training tele > fremenik slayer dung for rock slugs');
        end
        else if (find('dog', s)) then
        begin
            Send('dung tele > brimhaven for dogs');
        end
        else if (find('bear', s)) then
        begin
            Send('city tele > ardounge > east and up for bears');
        end
        else if (find('skeleton', s)) then
        begin
            Send('training tele > edgeville slayer dungeon for skeletons');
        end
        else if (find('scorp', s)) then
        begin
            Send('training tele > varrock slayer dung or ::dice > nw to mine for scorpions');
        end
        else if (find('ice', s) and find('fien', s)) then
        begin
            Send('white dwarf mountain, sw of edge then north, west of monastery for ice fiends');
        end
        else if (find('ghost', s)) then
        begin
            Send('dung tele > taverly dungeon for ghosts');
        end
        else if (find(' bat', s)) then
        begin
            Send('dung tele > taverly dungeon for bats');
        end
        else if (find('cave', s) and find('bug', s)) then
        begin
            Send('dung tele > chaos tunnel > ent 3 > for cave bugs');
        end
        else if (find('spider', s)) then
        begin
            Send('training tele > fremenik slayer dung for spiders');
        end
        else if (find('zomb', s)) then
        begin
            Send('training tele > edgeville slayer dungeon for zombies');
        end;
    end
    else if (find('thread', s)) then
    begin
    if (find('herb', s)) then
      begin
        Send('::thread 4791 or ::thread 2258 for herblore guide');
      end
        else if (find('farm', s)) then
        begin
            Send('::thread 13355 for farming guide');
        end
        else if (find('sum', s)) then
        begin
            Send('::thread 5989 or ::thread 7410 for summoning guide');
        end
        else if (find('rc', s) or (find('rune', s) and find('crafting', s))) then
        begin
            Send('::thread 27402 for runecrafting guide');
        end
        else if (find('dung', s)) then
        begin
            Send('::thread 19480 for dungeoneering guide');
        end
        else if (find('pet', s)) then
        begin
            Send('::thread 12814 for pet guide');
        end
        else if (find('clue', s) and find('guide', s)) then
        begin
            Send('::thread 4879 for clue scroll guide, ::thread 9951 for clue rewards');
        end
        else if (find('statu', s) or find('artifact', s)) then
        begin
            Send('::thread 19084 pk statue/artifact guide');
        end
        else if (find('fire', s)) then
        begin
            Send('::thread 7823 for fire cape guide');
        end
        else if (find('kiln', s)) then
        begin
            Send('::thread 4740 for kiln guide');
        end
        else if (find('dice', s)) then
        begin
            Send('::thread 10031 for dice thread');
        end
        else if (find('defender', s) or (find('warrior', s) and not(find('ring', s)))) then
        begin
            Send('::thread 1767 for warriors guild minigame for defenders / cyclops');
        end
        else if (find('donat', s)) then
        begin
            Send('::thread 8542 for donator benefits/perks');
        end
        else if (find('yell', s) and find('rule', s)) then
        begin
            Send('::thread 15863 for yell rules');
        end
        else if (find('h/c', s)) then
        begin
            Send('::thread 14885 for h/c rules');
        end
        else if (find('update', s)) then
        begin
            Send('::thread 15938 for latest update thread');
        end
        else if (find('iron', s) and find('man', s)) then
        begin
            Send('::thread 12655 for ironman guide');
        end
        else if (find('lamp', s) or find('skill', s)) then
        begin
            Send('::thread 19137 for all skills inc lamp xp');
        end
        else if (find('pray', s)) then
        begin
            Send('::thread 18334 for prayer guide');
        end
        else if (find('hunter', s)) then
        begin
            Send('::thread 7369 for hunter guide');
        end
        else if (find('arma', s) and find('rune', s)) then
        begin
            Send('::thread 8909 for armadyl rune guide');
        end
        else if (find('wildy', s) and (find('skill', s) or find('dxp', s))) then
        begin
            Send('::thread 8971 for wildy skilling');
        end
        else if (find('start', s)) then
        begin
            Send('::thread 9781 or ::thread 26905 for starter guide');
        end
        else if (find('reward', s) and (find('myst', s) or find('crys', s) or find('clue', s))) then
        begin
            Send('::thread 9951 for mbox/clue/crystal chest rewards');
        end
        else if (find('chaos', s) and find('tun', s)) then
        begin
            Send('::thread 1868 for chaos tunnels');
        end
        else if (find('kree', s) or (find('arma', s) and find('boss', s))) then
        begin
            Send('::thread 2938 for armadyl/kreearra guide');
        end
        else if (find('karam', s)) then
        begin
            Send('::thread 3539 for karambwan fishing guide');
        end
        else if (find('bandos', s) and not(find('ava', s))) then
        begin
            Send('::thread 4133 for bandos guide');
        end
        else if (find('bandos', s) and find('ava', s)) then
        begin
            Send('::thread 10478 for bandos avatar guide');
        end
        else if (find('nex', s)) then
        begin
            Send('::thread 11023 for nex guide');
        end
        else if (find('corp', s)) then
        begin
            Send('::thread 9660 for corporeal beast guide');
        end
        else if (find('nomad', s)) then
        begin
            Send('::thread 8186 for nomad guide');
        end;
    end
    else if (find('what', s)) then
    begin
        if (find('nomad', s) and find('bag', s)) then
        begin
            Send('Nomads tele bag (untradeable) from voting gives 1 time teleport to Nomad');
        end
        else if (find('effig', s)) then
        begin
            Send('effigies are x4 xp lamps with increasing level reqs: 91 93 95 97, and then give dragonkin xp lamp');
        end;
    end
    else if (find('how', s)) then
    begin
        if (find('ball', s) and find('make', s)) then
        begin
            Send('Buy cball mould for 1 vote ticket and use on furnace with steel bars in inv');
        end
        else if (find('strength', s) and find(' am', s)) then
        begin
            Send('cut ruby,gold bar,amulet mold on furnace, use on wool (::skill), enchant');
        end
        else if (find('skull', s) and find('long', s)) then
        begin
            Send('skull lasts for 10 minutes');
        end;
    end
    else if (find('maul', s) and find('rapier', s) and find('or', s)) then
    begin
        Send('maul is good for pking, rapier is good for pvm');
    end;
      wait(2000);
       Unfreeze;
     end;
    wait(200);
  end;
  until(stopProg);
  FreeBitmap(helpTag);
end.