first off...please make you OWN thread for YOUR issues....and second you forgot a whole bunch of semi-colins ..and the period goes after main loop not before ...try this
SCAR Code:
program New;
{.include SRL/SRL.scar}
////////////////////////////////////////////////////////////////////////////////
///////////////////////////AGENT 83's Rimmington Miner//////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////Credit to Ranger135xp, I used his///////////////////
////////////////////////////Varrock West Miner for a lot of/////////////////////
////////////////////////////Reference.//////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
procedure Bank2Mine;
var GuildLadder: String;
var acc: extended;
begin
if FindDeformedBitmapToleranceIn(GuildLadder,x,y,0,0,1000,800,50,50,true,acc) then
begin
MoveMouse(x,y);
Wait(200);
GetMousePos(x,y);
ClickMouse(x,y,true);
end;
end;
procedure BitMapData;
begin
GuildLadder := BitmapFromString(19, 31, 'z78DAED96CB1283200' +
'C457F292418702908FFFF49C5329D32521D2C8F2E2A8BB3D1C9F1' +
'465EDA68CD9E0D2FA8CAE9A4976E3564C4A2AE32ADE33D31B1776' +
'0C1C69A291B1AF9ED4240F01618D8CD1046FA66FE0DE5FC607CE6' +
'8A2E2F3697757B630D77BD0AC6AD3A8835E6B2F01AA29531CF18E' +
'DD1D2CF951BFB59F20E8F71FD8F31FC474055B28EDA1A73DEC65F' +
'192785D3F59DB0DE78CE1263793FCF33F6368ECC7854F9CED86AE' +
'6F4CEF8DD4C1EB9DB9CDFD0469E5F37EBB9DDC2851B6F8C94820C' +
'C923D6BBC8D1840A11453026244D88734E89B4A03F7A5ACE079F3' +
'61EF2');
end;
begin
SetupSRL;
BitMapData;
Bank2Mine;
end.
Back onto my issue: i got rid of the missmatch error...i accidently left extra bracket when i took away repeat and until....then i found another issue so i fixed that but now i got yet another problem...this is the procedure for the form result
SCAR Code:
procedure buttonclick(sender: TObject);
begin
ClearDebug;
Writeln('Set-up Completed');
Writeln('Running Auto-replier');
frmDesign.Caption:= frmDesign.Caption + '.';
frmDesign.ModalResult:= mrOk;
speak:= True;
Edit1.Text:= s;
Edit2.Text:= msg1;
Edit3.Text:= msg2;
Edit4.Text:= msg3;
If(RadioButton1.Checked)then
begin
SetTimeOut(strtoint(s), 'TerminateScript');
end;
end;
now edit1 is the box you set the time for....but when i pres play...the form pops up then i fill it out and press ok..then another box pops up saying " '' is not a valid integer value" so what would be wrong? i have strtoint for to convert the edits from string to integers in my other scripts and i didnt get this error