From: Narcle
www.mmoglider.com
Problem is you have to pay up front… but its fucking worth it. It reads the ram internally, so it gets all the information.
Btw, I tried doing the WoW botting with scar thing… It can work, but your conditions have to be exactly the same… like 800*600 dimensions etc. Also I never figured out how to walk around and then target a mob YOU wanted to attack. Either way, check that program out first.
Edit:
If we could get SCAR working really well for it, i'd rather use it then Glider.
Dang, I dont want to pay. Lol i wopped this up for my bro, still not finished and never been properly tested but it buys those ehchanting shard things from the Ehchant salesman in Ironforge. Still gotta make main login procs and stuff.
program New;
{.include SRL/SRL.scar}
var
x, y: integer;
procedure DeclarePlayers;
begin
HowManyPlayers := 4;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 1;
Players[0].Name := 't';
Players[0].Active := True;
Players[0].Integers[1] := 0;
Players[1].Name :='';
Players[1].Active := True;
Players[1].Integers[1] := 1;
Players[2].Name := 'te';
Players[2].Active := True;
Players[2].Integers[1] := 2;
Players[3].Name := '';
Players[3].Active := True;
Players[3].Integers[1] := 3;
end;
function WoWReady: boolean;
var
Lx, Ly: integer;
begin
Result := findcolor(Lx, Ly, 5438463, 108, 89, 178, 129);
end;
procedure LoginAccount; forward;
procedure LogoutWow;
begin
end;
procedure NextPlayerWoW(Active, Log: boolean);
begin
if RandomPlayer then
RandomNextPlayer(Active)
else
begin
WriteLn('NextPlayer(Active: ' + BoolToStr(Active) + ');');
Players[CurrentPlayer].Active := Active;
if Log then LogoutWoW;
PlayerCurTime := (GetSystemTime div 1000);
Players[CurrentPlayer].Worked := Players[CurrentPlayer].Worked +
((PlayerCurTime - PlayerStartTime) / 60);
CurrentPlayer := (CurrentPlayer + 1) mod Length(Players);
while Players[CurrentPlayer].Active = False do
begin
CurrentPlayer := (CurrentPlayer + 1) mod Length(Players);
if (AllPlayersInactive) then Wait(60000); // Everybody False. Endless Loop.
end;
SRL_Logs := SRL_Logs + 1;
LoginAccount;
end;
end;
procedure LoginAccount;
var
Tx, Ty, Tries: integer;
begin
if (WowReady) then
begin
case Players[CurrentPlayer].Integers[1] of
0: begin Tx := 875; Ty := 139; end;
1: begin Tx := 879; Ty := 195; end;
2: begin Tx := 873; Ty := 252; end;
3: begin Tx := 883; Ty := 309; end;
4: begin Tx := 883; Ty := 365; end;
5: begin Tx := 888; Ty := 417; end;
6: begin Tx := 884; Ty := 476; end;
7: begin Tx := 889; Ty := 537; end;
end;
Mouse(Tx, Ty, 25, 10, true);
wait(500 + random(3000));
Mouse(509, 736, 6, 6, true);
wait(1000 + random(1000));
repeat
wait(100);
Inc(tries);
until (not (findcolor(x, y, 460918, 436, 730, 461, 743)) or (Tries > 25));
if (tries > 25) then
begin
Exit;
NextPlayerWow(false, true);
end;
end else
Writeln('Couldnt login');
end;
function FindShopLady: boolean;
begin
Mouse(516, 452, 5, 5, False);
end;
function ShopOpened: boolean;
begin
Result := findcolor(x, y, 2370092, 154, 171, 213, 197);
end;
procedure Buy;
var
t: integer;
begin
repeat
Wait(1000);
inc(t);
until (ShopOpened or (T > 5));
if T > 5 then LogoutWow;
repeat
if findcolor(x, y, 42956, 190, 268, 228, 298) then
begin
Mouse(x, y, 5, 5, true);
if findcolor(x, y, 53759, 27, 267, 63, 294) then
begin
Mouse(x, y, 5, 5, true);
end;
end;
until (not findcolor(x, y, 42956, 190, 268, 228, 298));
end;
begin
SetupSRL;
ActivateClient;
DeclarePlayers;
LoginAccount;
repeat
FindShopLady;
Buy;
until (AllPlayersInactive);
end.
You wanna make a WoW Include? :D