Edit again: It works till the i like to join sentence, ANy help?
I inserted (click: (true) or something to click the ' i would like to join' then i get stuck again...... it will searth for the person again?!?
{.Script Info:
# ScriptName = AV Queue & AFK
# Author =
# Description = Queues, joins, afks, rejoins AV games.
# Version = 1.0
# Date = 27 Aug 06
# Comments =
/Script Info}
program AvQueue;
var
bmpN6, bmpWM, bmpWMTip, bmpEnter, bmpJoin, bmpJoinBg, bmpLeave: Integer;
function InBattlegrounds: Boolean;
var x,y: Integer;
begin
Result := FindBitmapToleranceIn(bmpN6,x,y,1,1,500,500,10);
end;
function BattlemasterSelected: Boolean;
var x,y: Integer;
begin
Result := FindBitmapToleranceIn(bmpWM, x,y,10,10,500,500,10);
end;
function MouseOnBattlemaster: Boolean;
var x,y: Integer;
begin
Result := FindBitmapToleranceIn(bmpWMTip,x,y,10,10,1024,768, 50);
end;
procedure EnterBg;
var x,y: Integer;
begin
If(FindBitmapToleranceIn(bmpEnter,x,y,1,1,1024,768 ,0)=True) then
begin
MoveMouse(x + 3,y + 3);
Wait(500);
ClickMouse(x + 3,y + 3,True);
Wait(1000);
end;
if(FindBitmapToleranceIn(bmpJoin,x,y,1,1,1024,768, 0)=True) then
begin
MoveMouse(x + 3,y + 3);
Wait(500);
ClickMouse(x + 3,y + 3,True);
Wait(1000);
SendKeysVB('{ESC}', True);
Wait(500);
end;
if(FindBitmapToleranceIn(bmpJoinBg,x,y,1,1,1024,76 8,0)=True) then
begin
MoveMouse(x + 3,y + 3);
Wait(500);
Writeln('Joining battlegrounds!');
ClickMouse(x + 3,y + 3,True);
Wait(10000);
end;
end;
procedure MoveCameraTop;
begin
SendKeys('[');
Wait(500);
end;
procedure Click(Left: Boolean);
var x,y : Integer;
begin
GetMousePos(x,y);
ClickMouse(x,y,Left);
end;
function LeaveBg: Boolean;
var x,y: Integer;
begin
if(FindBitmapToleranceIn(bmpLeave,x,y,0,0,1024,768 ,10)=True)then
begin
MoveMouse(x,y);
Wait(500);
ClickMouse(x,y,True);
Wait(10000);
Result := true;
end
else
begin
Result := False;
end;
end;
procedure SelectBattlemaster;
var x,y: Integer;
begin
for y := 291 to 768 do
begin
for x := 300 to 1024 do
begin
MoveMouse(x,y);
Wait(1);
click (true)
if(MouseOnBattlemaster) then
begin
Click(False);
Wait(500);
y := 769;
x := 1025;
end;
x := x + 25;
end;
y := y + 50;
end;
end;
procedure LoadBitmaps;
begin
bmpWM := BitmapFromString(33, 13, 'z78DADD94497' +
'2E3300C45AF4480F39200A5FB1FA93114CB526C264E7AD31D 2D9E' +
'6DFA0B9F18C85823408F5752CC4071C606FCC421ECA2B9F21 4520' +
'A42BE112319F94DE63885E589120F8E7424B83387148D098E 1060' +
'04FCA709C2185098B60CA987F0FFB3D6DFC07EFC06527C454 4921' +
'CCF73C2FAEEEB73F20CA1143AF7EF7E97D7F83F25873D3D0B 7F72' +
'968B288CC1A4BFE44C6937BF8CF00E7B678B36CA5FC4A13D3 D8B1' +
'8515C589B204FB3BAA57457D6CAD259223E97129179FD9B92 2EF9' +
'BA3367EFA9D25D88C6B9943BFDCE4B3EE79E1EBFF73A953E4 5D83' +
'F7BAB4CED97CE6AAD7EEE08B50EEA7B1CAEF108CED6EF1D17 6D55' +
'FDC0BDFED94B56704F8F0F107C0F4D6B52C75D2335F749E34 5A9D' +
'2D42C9AF5ABD8AE386BDDD86626CC572EEB61DCEB775E5EAB 1DAF' +
'F15322B05C92466B716964AAC5B1353FA1D13ADEC07A61F39 64FD' +
'D1535DB95E58569EFB27AF75ABFF3927FE62B228EF4B8A380 D77A' +
'29BDEB4D4545BD7AD5EC06D9CAA1F13B6ABF86F7AE6B1F333 F345' +
'E5B38EF5E52CFA8ECA61F61AFDF794936F4190B3DAA542EEB C9E6' +
'CA4B58ACAA79E81EC0F6166D7A33FA75F0B8CDF2E5AD8F5E0 0E8A' +
'700BED67FF4FA0330E113C5');
bmpWMTip := BitmapFromString(11, 11, 'z78DAA5915B0EC4200845B75481' +
'AAFDC401F6BFA4A16232EDD826F3F0E3C6001E2E820494ACD 42C9' +
'967254004C5BD46FD86AE3069CF2A2968922C28C0CA85D7D6 5A6E' +
'9479D5B57D4ED8B072AD3D62171A04FC85404609C5922DB6B 0EC0' +
'EAD1F5A9C21C10C42C447659F65F8EF1AC90DBC4B39793810 BA87' +
'E29198FA4D475FF5CE8FF937060106E135EF414F04FC8320D 71E6' +
'2F6D8E09C8D5741C89BEF974F35E966CB734D0298F42EFE95 3E01' +
'A5619E63');
bmpEnter := BitmapFromString(6, 1, '95683E94663D93663C96673C97' +
'683C9C6B3D');
bmpJoin := BitmapFromString(1, 8, '5D00005900005800005F0102630' +
'2046202046703066B0408');
bmpJoinBg := BitmapFromString(14, 7, 'z78DA6D904B1285200C04AF3' +
'4044870C9F7FE477A24A8F82C5D7459E3D88430613E6C3C38 F017' +
'B9A25F9D4FD28BCE7263CF2502EDC802142F0DA8480590E01 310C' +
'B6EBE482F66CBADDF8B3AA5EBF92E6A42965350866ECDFAE0 616C' +
'70FF1EEE960C65AFE61CEAF465E78BA275A4E0A66F70F5F32 EA4C' +
'DF5FE4CCEBF9ACD69CE31DA4C0669A746DDC0FA3A9BB8CCAB 13B3' +
'6EDBDB9C21EB7E562E02AF1B532E673A778F5B4175DBC46D2 791C' +
'E1CDA790B773B0BE6B6E450F656F872FAA1DB167AD01B6D86 A793' +
'A339699FF503E48D7894');
bmpN6 := BitmapFromString(8, 1, '2F270D100C08100C08100F060E0D03' +
'19170A201E1229261F');
bmpLeave := BitmapFromString(13, 7, 'z78DA8D904B7644210844B754208' +
'20E7D7EF6BFA40635E94E3209837B3C6559804A60A4D99E0C D854' +
'06257345B442606A4E5575662322C85A83DC097EC09441EE1 71AA' +
'0A36B72A7789A826E9A222169817A4E4341D1C79F97072A5F 69BD' +
'3703C668053429B8A427203778CDFA3D1B6E5AF504BB34646 81BD' +
'E9917C7AB532431DB277FA48D9DC65B5F91694AD399376323 BE9B' +
'B670BA87BCEFFEAB73CE166967CEE35CB4CF1F8AF4F0C80CD A48C' +
'5BBCFB89D296618A956E78CDD3387E7D0F77957FEADE4BAB9 7791' +
'ED6723EFC33D4865EBFA0FEE9C3BE1F8C3F4E60BD56E70AB' );
end;
var i : Integer;
begin
LoadBitmaps;
FindWindow('World of Warcraft');
ActivateClient;
Wait(500);
while(True) do
begin
if(InBattlegrounds) then
begin
// In BG
if not(LeaveBg) then
if(Random(10) = 4) then
begin
i := 0;
HoldMouse(500 + Random(100),500,True);
for i := 0 to 50 do
SendKeys('a');
Wait(1000);
ReleaseMouse(500 + Random(100),500,True);
end
end
else
begin
// Not in BG
if not(BattlemasterSelected) then
begin
MoveCameraTop;
SelectBattlemaster;
end;
EnterBg;
end;
Wait(500);
end;
end.