Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement