64 Bit Scar, Script won't work on Windows 7

[LordJashin]

I've had this problem for a while now. Goes for both Scar and Simba. Script just won't work, and hes up in North Carolina so I have to try to get it to work over team viewer.

 

1. Scar supports 64 Bit Windows 7 right?

2. What else could be interfering?

3. I tested 3.33 beta on his machine the other day, no problems there right?

Maybe an earlier version of SCAR that supports 64 bit? At this point I don't care, whatever works. I think this script supports 3.00+ anyway.

 

On his computer its either:

 

a. finds the dtm, if not I go make another that it should find

b. it finds it, but does nothing with the mouse

 

ActivateClient; seems to work. Mouse functions work otherwise. I just don't understand why this works perfectly fine on my comp with WinXP and not on his, I think I remember trying XP compat mode aswell.

 

I've made numerous scripts with Scar and Simba, debugged them to try to get this to work on his machine. Its a laptop. I wonder if there is something in the background interfering.

 

I'll try making a new user then trying the script later.

 

For anyone interested, this spams the battle button on the World of tanks game. Pretty crappy, I have a better one for Simba somewhere.

 

[sCAR]

// v0.1

 

program WOTBattleSpammer;

 

const

TimeToRun = 0; // in minutes

 

var

w, h: LongInt;

TimesUp: Boolean;

 

procedure GetTimer;

var

S: Extended;

begin

if TimeToRun = 0 then exit;

S := GetTimeRunning/1000/60;

if S >= TimeToRun then

begin

TimesUp := True;

Writeln('TIMES UP!!!!!!');

end;

end;

 

procedure TargetWot;

begin

ActivateClient;

end;

 

procedure BattleButton;

var

But, x, y, i: Integer;

begin

i := 0;

But := DTMFromString('78DA63BCC4C4C0B0890105FCFBF78F810B483' +

'302F17F20603C0A54B30655CD330349067EA81A10607C0C54B30D' +

'55CDEF9F3FE1E680D5BC02AAD98CA6E6D72F5435B7816A56A1A97' +

'1B144B50BE4E6D5A86ABEDA6BA3AA3988A9E6AAA93CAA9A1D986A' +

'EE6A2BA2AA7984A9E6838D21AA9A57986ABE39A0B9F93EA69A4F6' +

'676286A0008B728C7');

ActivateClient;

Repeat

wait(500);

i := i + 1;

WriteLn('Check 1');

Until (FindDTM(But, x, y, 0, 0, w - 1, h - 1)) or (i = 30);

if i = 30 then

begin

WriteLn('Check 1 Failed');

FreeDTM(But);

Exit;

end;

i := 0;

if FindDTM(But, x, y, 0, 0, w - 1, h - 1) then

Repeat

TargetWot;

MoveMouse(x + 150, y + 350);

wait(100);

MoveMouse(x, y);

wait(100);

ClickMouse(x, y, true);

wait(200);

MoveMouse(x + 5, y + 5);

wait(100);

ClickMouse(x + 5, y + 5, true);

MoveMouse(x + 30, y + 7);

wait(300);

ClickMouse(x + 30, y + 7, true);

wait(300);

MoveMouse(x + 100, y + 300);

WriteLn('Check 2');

WriteLn('Woot clicking');

i := i + 1;

Until (i = 5) or not FindDTM(But, x, y, 0, 0, w - 1, h - 1);

if i = 5 then

begin

WriteLn('Check 2 Failed');

FreeDTM(But);

Exit;

end;

if not FindDTM(But, x, y, 0, 0, w - 1, h - 1) then

FreeDTM(But);

end;

 

 

var

a : TCanvas;

 

procedure BattleSpammer;

begin

Repeat

GetTimer;

TargetWot;

BattleButton;

Until TimesUp;

end;

 

 

begin

ClearDebug;

MoveToTray;

wait(1000);

FindWindowTitlePart('W.o', true);

TargetWot;

wait(1000);

GetClientDimensions(w, h);

wait(500);

a := GetClientCanvas;

a.Font.Color := 91622;

a.TextOut(5, 5, 'WOT BATTLE SPAMMER v0.1 By LordJashin ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');

BattleSpammer;

a.free;

WriteLn('stop script');

end.

 

[/sCAR]

Edited April 12, 2012 by LordJashin

[shadowrecon]

Has he tried installing scar using the windows xp configuration? Also have you tried running scar under admin? Im currently running scar on 2 machines with windows 7, no problems. it has to be a user error or machine error.

[FHannes]

I develop and test SCAR on a Win7 x64 installation, so it should work just fine with Win7...