Runtime Error?

[clickhere]

I dont understand whats wrong with the script:

 

OpenCodes := OpenFile(IncludesPath + 'Codes.txt', true);

Runtime Error Line 81 File access error

 

I've put the codes.txt file inside the same folder as scar

 

Thanks in advance for your help

 

CLICKHERE

[FHannes]

If you put the file in the same folder as SCAR, why are you loading it from the includes folder?

AppPath + 'Codes.txt'

[clickhere]

I dont understand what you mean?

[clickhere]

Could you open teamviewer and help me from there?

[FHannes]

No, I barely have any time on my hands as it is... I mean, replace IncludesPath with AppPath.

[clickhere]

It still doesnt work

[FHannes]

wWell, then you didn't put it in the right folder... Try passing an absolute path to the function.

[LordJashin]

wWell, then you didn't put it in the right folder... Try passing an absolute path to the function.

 

I wanted the script not to be tied down to just him. So he could pass it on. Originally it was an absolute path, I changed it to includes path though. App path pointed at C:/Program Files/. Try putting it in My Documents->SCAR Divi->Includes folder. Make sure it says IncludesPath + 'Codes.txt' in the script.

 

Also you can post the script if you want. It doesn't matter to me

[clickhere]

[scar]{~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~

_ _ _____ _ _ ______ _ _ _ _

| | | |/ ____| | | | | ____| (_) | | /\ | | | |

| |__| | (___ | |__| | | |__ _ __ _ ___ _ __ __| | / \ __| | __| | ___ _ __

| __ |\___ \| __ | | __| '__| |/ _ \ '_ \ / _` | / /\ \ / _` |/ _` |/ _ \ '__|

| | | |____) | | | | | | | | | | __/ | | | (_| | / ____ \ (_| | (_| | __/ |

|_| |_|_____/|_| |_| |_| |_| |_|\___|_| |_|\__,_|/_/ \_\__,_|\__,_|\___|_|

 

Version: 1.0

By: LordJashin32

Last Updated: 8/26/12

 

------------------------------------------------------------------------------------

 

Directions:

1. Put a file called Codes.txt in the same directory

as this Script file (HSH Friend Adder)! This file should

contain all the friend codes you wish to add! ONLY

the codes, nothing more or this won't work!

 

2. Open HighSchool Hero on your iPhone over TightVNC (only!)

 

3. Go to the friends area, where you input friend codes

 

4. Use the Crosshairs on SCAR Divi to select HSH

on TightVNC!

 

`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~

 

Copyright 2012 LordJashin32 All Rights Reserved

 

`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~}

 

{$IFNDEF SCAR335_UP}

{$ERROR You need SCAR 3.35 or higher to run this script! You can get SCAR Divi at www.scar-divi.com}

'You need SCAR 3.35 or higher to run this script! You can get SCAR Divi at http://www.scar-divi.com'

{$ENDIF}

 

program Highschool;

 

var

Client: TSCARWindowClient;

a0, a1, a2, a3, a4, a5, a6, a7, a8, a9, Backspace, Add: TPoint;

GlobalFileSize: Integer;

EntryPoint: TPoint;

w, h: Integer;

Codes: string;

 

const

CodeLength = 8;

 

procedure SetupClient;

begin

Client := TSCARWindowClient(GetClient);

ActivateWindow(Client.Handle);

GetWindowSize(Client.Handle, w, h);

end;

 

procedure SetupButtons;

begin

EntryPoint := Point(160, 195);

a0 := Point(162, 448);

a1 := Point(50, 287);

a2 := Point(164, 296);

a3 := Point(268, 297);

a4 := Point(50, 335);

a5 := Point(156, 351);

a6 := Point(268, 348);

a7 := Point(59, 400);

a8 := Point(162, 399);

a9 := Point(267, 397);

Backspace := Point(269, 457);

Add := Point(292, 244);

end;

 

function ReadCodes: string;

var

OpenCodes: Integer;

s: string;

begin

OpenCodes := OpenFile(IncludesPath + 'Codes.txt', true);

ReadFileString(OpenCodes, s, FileSize(OpenCodes));

GlobalFileSize := FileSize(OpenCodes);

Result := Ansistring(s);

CloseFile(OpenCodes);

end;

 

procedure TypeCode(Code: string);

var

i: Integer;

CheckKeypad: TSCARBitmap;

x, y: Integer;

begin

if Length(Code) <> 8 then Exit;

 

CheckKeypad := TSCARBitmap.Create('deNrt0VtqwzAQBdDsohvqukvTvBTJer/sNIspg' +

'n64aAY0RAJTDAd/JXfuRe+Ht4MN3yQuPiGPIi01G2cYLf/Z0s34BwmSsxRQZxM' +

'yjJZP7tlCuwWSC59q1C1I/vJCN5SyMyQVLtbAgQUtf36hG0qaDImFDTVwYEHLz' +

'9SeLSadIKEwvkbdguSnlm5CRRLsXYTyQjuCPnczNWcNe5fRW7D3Wv+Gy0CC3PJ' +

'cOq4sQZ+75P4N3OgtLe6T78EW0hD0ufsHE47kxi1EM2HYpAn63LXUnLXr3UDU6' +

'C3IXTNgi/nd0vgVZsSWC9P9yObvEOeb2m3Q6Sp3G/R1mf6N41nsNujzxDfl48h' +

'ALf/9AR6lo+I=');

SetMousePos(EntryPoint.x, EntryPoint.y);

ClickMouse(EntryPoint.x, EntryPoint.y, mbLeft);

Repeat

i := i + 1;

wait(1000);

if i = 5 then begin

CheckKeypad.free

Exit;

 

end;

until (i = 5) or FindBitmapTol(x, y, CheckKeypad, 0, 0, w - 1, h - 1, 10);

 

i := 0;

CheckKeypad.Free;

{ for i := 0 to 15 do

begin

SetMousePos(backspace.x, backspace.y);

ClickMouse(backspace.x, backspace.y, mbLeft);

wait(100);

end;}

for i := 1 to 8 do

begin

case StrToInt(Copy(Code, i, 1)) of

0:

begin

SetMousePos(a0.x, a0.y);

ClickMouse(a0.x, a0.y, mbleft);

end;

1:

begin

SetMousePos(a1.x, a1.y);

ClickMouse(a1.x, a1.y, mbleft);

end;

2:

begin

SetMousePos(a2.x, a2.y);

ClickMouse(a2.x, a2.y, mbleft);

end;

3:

begin

SetMousePos(a3.x, a3.y);

ClickMouse(a3.x, a3.y, mbleft);

end;

4:

begin

SetMousePos(a4.x, a4.y);

ClickMouse(a4.x, a4.y, mbleft);

end;

5:

begin

SetMousePos(a5.x, a5.y);

ClickMouse(a5.x, a5.y, mbleft);

end;

6:

begin

SetMousePos(a6.x, a6.y);

ClickMouse(a6.x, a6.y, mbleft);

end;

7:

begin

SetMousePos(a7.x, a7.y);

ClickMouse(a7.x, a7.y, mbleft);

end;

8:

begin

SetMousePos(a8.x, a8.y);

ClickMouse(a8.x, a8.y, mbleft);

end;

9:

begin

SetMousePos(a9.x, a9.y);

ClickMouse(a9.x, a9.y, mbleft);

end;

end;

Wait(100);

end;

SetMousePos(Add.x, Add.y);

ClickMouse(Add.x, Add.y, mbLeft);

end;

 

procedure CheckIfAdded;

var

bmp, Bmp1: TSCARBitmap;

i, x, y: Integer;

begin

Bmp1 := TSCARBitmap.Create('deNpdlHlQ03caxr8xIEWQKkcIOSAHuQgQLrcga' +

'3GqwCpTVwXd6q7jjLNr7XR3p7ZKd9p1y1qPotUWheWSChHCFa4gBElSknAFBEG' +

'OkCIsVSIajkVcoNZ1ffaH+48685nn72ee93mfCOJOWtkUtFYW3ey32uDvpgtll' +

'YSzpi8ex8wgOmsWG69icRTd2sboGKUiCE+sWB4Y+W1y4RvOV0XMLLFnocynTuh' +

'jYXgO+DFaOV6qdaRa7K6PYmW7kFomffgXQh3HVeNLV60nhQxSJnQyRPtWC2hDM' +

'ew2FvnemVg8SDuLmDiv08wjWh5Ny6PrOatLPYhGwVZGCzBqxPzQcMZflUdS8GQ' +

'Cj8Zb9+zNjlLg+TgWB7WJW9QCQZZCeD7Mv0AhuObvq3Z1twQIesIVpQFep72IO' +

'SU2n+9ewHQxKPjlLPc6EaNa7pvFddInyXMl9FNvkM5YlpZJLAwywndtYxMj93U' +

'ahKRGRGoD6QaBe4U3XSXxrkmKwtwgHvaXHNjx5dZIPL6Dx3fnz6cXJ8XjvxOY7' +

'2/6dVJVeHju9tgnNVcwOgDt9WfHjmnEkmy3NVURQdMXPkdTIfpaHqUdKwsOvML' +

'1rnsreOHkUXRr0Fs1e/5IloyuDnZVM0ibHxnkO1PJGPzJ99xXVBNIyqWkUky/I' +

'XTTi31Kpb53Ug9h1ooZ67mNiowtMXdVmejRP7r8deGOLbB3YXms69CBM37eC7p' +

'rWBhFZyvqNbhn+3fGmVyBf8dvdmJ2DH06TI/j/rh5357LksCpL/6CsV5M9uBHE' +

'2Y7uv6UkCemVfiTZp+V8xk5RB9AmaG9rLUiUhJESqXO5d7EIGEWixjIOYsZG6Z' +

'/+IzPzonZcCEmND1a8pWCfzEuFPMjmB027nk3b2MofrbhYXeBkFcUwMfcKByDx' +

'n27HWfSqGA7ir65eSkdjqmxU19+GxGBW91wjJ9NCGs6cQAL3db0g5khTmq5k55' +

'L2rkryegpM69CuSoOopXInCu8SAP3TaX/elz5GvcHYR/5O4udJ5XmyHj5UaLTo' +

'awLm8RwDOFOV0NCbM/xQ1jowoO25qjIOpkcS8NP7S2VyfFDn36E5am5ka6O/Kz' +

'nZnPznz8u2pWCyR/RYTi3d7OtIh0PjE3Ht+dEe5TKnZv5RMdYSaY5gP4a9UJSJ' +

'qWVSZ11Ms863ptFAi9kncbUMOy2c0HyzGD53c+Owj4EY9XleAUc/ZSxtl3b+1I' +

'PY7n3QV/ld36sAgYLc72AremD/eU7t+OfA3g6h7tj6tTUD6TB5s+/wL1JtBkW9' +

'VVYsC015Z5QuH0joysFpD14TQvnxdX86QYu/WXV8leqVS2ia6RuKrFbgdyr83A' +

'yHDbcG/lYIjgVF40eHf41/jg3I/NXsViy4qfxuri4/vd/j6UB+/D1s+s8a8Lew' +

'tIEnk5kJvwyPTzk7K7E2+VXMe/Aozld2sm6T1IxO4fpaTjsXZ9+WLg5LC+Ekc8' +

'mumAPs2h1/TqqVzQjh25i019Wql03eIRKrIRDiiUuykim8XfxeGClmlC4f3f+w' +

'RTM2TBk0r6XcjJCgmUr/jOujozWxG7Cs4mf7e15YllnQhLmJ/CDuWZ/MrSamcq' +

'i9yPFkzXFGOnDcF9awlbMTaPb8lEAOyc28um3J3HmE90GTg1vlSFwVYfEhXJF2' +

'XgNahwML4zV8UmFkF4kci0MY6LsH7hvRXszbrdifnQy53SmRFCwKRw/jWLR1pW' +

'4rVIeNG8qxZINJSrUN8Ix2nPu2KUQEUw3qOZ3Xj6xZKymrE43lB6NCX5u1uLh2' +

'FTeBZhqYe+DOqNho59KQKqFROO/MgUv4noF6jdbOSvD1S53qecRFYdkeJFb++K' +

'hVaHfRDXqWUlG4553Mv3Wt+zYjEkLZm7b96Y0SgOVe9+GuQy93dDroMpWJoSnu' +

'ZCunfHQlcJxG2OdaKur3L8tIy7c/MeDuGXEpBWWJigvtieGZq8lDaJVJpmTlr3' +

'ygy+gvaw3mYTCwiKWANLEJC1iF43ApVrsYUmMsO5LHD+8u3aT9IpgrYrpboqRT' +

'f3tD49PfTi0MeI6a93VcJZmq3xq2zu2DaFqqd81sWejmK32WZO7hiwcTl448p6' +

'S6VYpYF5ypZVxGQ1Svi3+7Y4Q0U05V7uWNDqTQTZ90If0UVv6/23nvKL/AwSGb' +

'6s=');

bmp := TSCARBitmap.Create('deNqVlntMU1ccx1sZGsU5J1hEQRB0DvCxbBPcl' +

'hkVgxomm9kUpvGxqQPUOecyNxJZpm7JwrbA1LnFRUG3TKNbnGwmPEux0AulFPo' +

'ESgvlUVpaWvqi9M1+9x7upaWFsZvPH70nTfrp7/s75/xSaUtow3nvaY/s1+zLU' +

'GdsU21L6U9N7l0fp0xgdEeFyZ+hAV3AYhwZQSfwLE4HEBGiej/L+NvNkZKfzY8' +

'f2poxa1219ttLHWvCxRF0cThNcznfYzZ5bKOy15KES+nCCJoAsZTWRtBKwGdM0' +

'ELAi8RpJuEum+pAaXSQtANLcKQEEiAcBxwUOzc7lIpxr9drH3P2KT2jVvjs0uu' +

'0V76RbFgBDoNf5bt0Q26TsXP35kkHhr8DoYFoQkTRGkkwgnZSQ+qvISYRARE4Q' +

'gJUB1QK3c1rHot5fHzcwqkb+OKcpvhre48cXl0jeuXHx1riF/Z+fsrRr3So+jq' +

'z0icdgmlwEMtpDST1JOwVhEP4pIPQP46JRILFIUxNMNVWgJLXYe8tOMtLWMhPi' +

'lDfKHKbRmBR/88fovQX5R8esnW1OzWDXXnvIgcsYQF3A6NxddikA6GBeIKIptX' +

'5wIr26wrfOHgzxEGUouPwG1YBD3zsSoUsJws5tB/KMPM4sOhQD8g/y5UezbSK+' +

'E7dkPzCaVwjbq7k2F4Dq1xVcpWXto5yoKiNmYDpj6/GDHFgAXHIzh51DKnBx8x' +

'vFB1IR6XgvhI/eOcnvLxut+rOdUF2mpHLdhkNyqKLrBg6Ny1Z+/iB1+WySNpEO' +

'W9TDjUUK3GqA2j0dwjsiiBxEInIzp+AbQI+oNGSsQmV4kni07KC0+PEo39S2XZ' +

'ol76uwm0x95deY7/A6C760mkYdllMA7/fYCUtCpSpig3OLLtiShyA9OxhJGNqw' +

'RpSY1ApmKtC+NnboVawbpVJhHn7tBV/ecZsuuq/xWcO2pRyr8s50lzPSUusiqM' +

'HylROg19XxEzbFb5xoESEue8gSWunmLl6HlWK+tfjoVZ4W+o0bcczNWV3wdnWq' +

'zDyGqDydvVA6/HMqviQyumVApllVwTGwX0zFUk69TpmYhhVCub6xVAuWPc4HU2' +

'ZKar7t/AvEY0B6/LvC2qeXzCdzHRxz7IrAuOoSghFscLDSV9XGUefiGZTlBtOd' +

'eJp3PNyX+lVj30Mvdr6e7Cd66tXzZnqQEFq1Pgzy64IipGPIU9pfk5NYhgqBf/' +

'IbggaP9JNI5wdSd0/XHIaDUjSPjTYd7MY25HMjA/1dWBSkN1V68//spryj/p/v' +

'e4yG+HXtRUPG7YkoFIoviuABoBFQ301tnVt1+VP7BoVnEiQvtfjge8bGmokp7L' +

'ZyYspBxYFuTt8ty3s4tl2RbA4hCf2wq7B94hWLT65n/XcfPbGiKGye6gnB25d4' +

'aREd5w/buvpcltMela5idcAwwYU3z7Qq310l78nFTngkMdLPcLnJIRTMWhX1AQ' +

'QNA524iL1g1KPw44Xs+we/61XJXn7rVIBnrXRIMvPrVs5R5q7z9ohcg5ruy+eE' +

'2XvGLx93d6vxLeVbbS3sIATOxdpIDCfu4O6TeBmCdoVtQFMSYTKAhxMPA6UDk5' +

'pfWWZEWPBr4PDSG25YNdLICA5uMvS2uQ2m/oKC7CYEP6mWMWnH1h42Jiis+vkA' +

'eSAQ968zYjIiasZaIn8D4fAONj+cWBx8zpzs8zcetAYJx8Ye3ounGmKeQocBFu' +

'T1b8UG8ofyXOyuFF00OCvWSTZvlG8bUNLdChywGFMTpUwz7T6TDgw7dSRDjN3x' +

'UQcy4PE0bxqvnTvlsEfC3X3bxse/6m7V9Lz0dHWtUuoUrTGzhckMfiR9EkHBr1' +

'tWQjlgOMzhuGToc+sCHPjvzfD/rs=');

wait(1000);

Repeat

if FindBitmapTol(x, y, bmp, 0, 0, w - 1, h - 1, 10) or FindBitmapTol(x, y, bmp1, 0, 0, w - 1, h - 1, 10) then

begin

SetMousePos(x, y);

ClickMouse(x, y, mbLeft);

bmp.Free;

bmp1.Free;

Exit;

end;

SetMousePos(234, 400);

ClickMouse(234,400,mbLeft);

i := i + 1;

wait(1000);

until (i = 5);

if i = 5 then

begin

bmp.Free;

bmp1.Free;

WriteLn('Failed to find OKAY button so we have no idea if anything is being typed in');

//TerminateScript;

end;

end;

 

procedure DeleteCode(Code: string);

var

OpenCodes: Integer;

begin

Delete(Codes, Pos(Code, Codes), 8);

DeleteFile(IncludesPath + 'Codes.txt');

OpenCodes := RewriteFile(IncludesPath + 'Codes.txt', True);

WriteFileString(OpenCodes, Codes);

GlobalFileSize := FileSize(OpenCodes);

CloseFile(OpenCodes);

 

end;

 

procedure CheckIfWindowIsOpen;

var

w1, h1: Integer;

begin

GetWindowSize(TSCARWindowClient(GetClient).Handle, w1, h1);

if (w1 <> w) or (h1 <> h) then

begin

ShowMessage('Window is not open so I terminated the script');

TerminateScript;

 

end;

end;

 

procedure ReadAndTypeCodes;

var

CurrentCode: string;

from: Integer;

i: Integer;

begin

from := 1;

Codes := ReadCodes;

Codes := GetNumbers(Codes);

i := 1;

Repeat

CheckIfWindowIsOpen;

CurrentCode := Copy(Codes, from, CodeLength);

TypeCode(CurrentCode);

CheckIfAdded;

from := from + CodeLength;

DeleteCode(CurrentCode);

until (from > GlobalFileSize);

end;

 

begin

ClearDebug;

SetupButtons;

SetupClient;

ReadAndTypeCodes;

end.[/scar]

Edited August 29, 2012 by Freddy

[clickhere]

LOL the title messed up

[MarkD]

Darn, nice.

Should work though, can't see any reason why the includes shouldn't work except that the file is not present in your include folder. Or, your include directory isn't correctly configured.

[LordJashin]

Yeah just tested it on mine. It works fine. In SCAR Divi go to Tools->Explore->Includes put Codes.txt in there...