ub3r |<1||3r*1337*
2006-04-17 16:05:14
why do i get this error?
SRL Archive - Help and Support
huh?
Pwnd
2006-04-17 16:10:10
Could be a number of things.
SetupSRL; is required.
Your bitmaps/dtms may not be loaded.
Trying to use a canvas that isn't there.
SetupSRL; is required.
Your bitmaps/dtms may not be loaded.
Trying to use a canvas that isn't there.
ub3r |<1||3r*1337*
2006-04-17 16:13:40
i have SetupSRL in my script
i dont have DTM's/Bitmaps
whats a canvas?
i dont have DTM's/Bitmaps
whats a canvas?
c0de
2006-04-17 16:28:42
reselect client window :/
ub3r |<1||3r*1337*
2006-04-17 16:52:26
doesnt work… still get that error
Dark_Sniper
2006-04-17 17:04:02
may we see code :p.
c0de
2006-04-17 17:41:25
show us teh c0de :P
ub3r |<1||3r*1337*
2006-04-17 22:05:04
program SilkBuyer;
///////////////////////////////////////////////////////////////////////////
///This will buy silk and bank them, improvements can be PMed to me on //
///villavu.com/forums made by: ub3r l<1ll3r //
///////////////////////////////////////////////////////////////////////////
{Instructions
1. Start at the most Northern Open Bank
2. Money in first slot
3. V-bright
4. Put your pin in Line 127 if you have one
{.include SRL\SRL.Scar}
{Version info:
V1:very unstable[unreleased]
V1.9:a lot more stable with double clicking[unreleased]
V1.95: tested and being released
V2: more stable and with symbol to symbol
V3: fixed up a lot of walking, much more faster
V4:will now log off after 20 loads and has anti-randoms and will do this 6 times until the script will end (100 loads)
V5: now with a progress report
V6: Now standardized (i think)
V7: properly standardized and has Mouse flag detection
V8: now with auto color}
var
H, Poop, mcount,TSy,TSx,EEy,EEx,RRx,RRy,FFx,FFy,AAx,AAy,BBx,BBy,CCx,CCy,DDx,DDy,GGx,GGy: Integer;
rock,tree1,tree2,silk,tree3,tree4,rock,something,NNx,NNy,bumbum:integer;
/////////////////SETUP////////////////////////////
Const
User = 'killerkoo4';
Pass = '';
Pin1 ='5946';//put a pin if you have one else dont touch
//////////////////////////////////////////////////
procedure MoveSilkcolorget;
begin
Writeln('Facing North and going to the silk buyer!');
Face('N');
if(FindColorTolerance(x, y, 1920640, 643, 51, 677, 70, 50))then
begin
rock:=Getcolor(x,y)
Mouse(x, y, 1, 1, true)
end else
begin
Writeln('Color(s) not found! restart script!');
Terminatescript;
end;
Flag;
if(FindColorTolerance(TSx, TSy, 1260363, 653, 30, 697, 54, 50))then
Begin
tree1:=Getcolor(TSx,TSy)
Mouse(x, y, 1, 1, true)
end else
Begin
Writeln('Color(s) not found! restart script!');
Terminatescript;
end;
Flag;
if(FindColorTolerance(EEx, EEy, 1260363, 683, 20, 706, 41, 50))then
begin
tree2:=Getcolor(EEx,EEy)
Mouse(x, y, 1, 1, true)
end else
begin
Writeln('Color(s) not found! restart script!');
terminatescript;
end;
Flag;
if(FindColorTolerance(RRx, RRy, 6162831, 655, 41, 690, 74, 50))then
Begin
silk:=Getcolor(RRx,RRy)
Mouse(x, y, 1, 1, true)
end else
begin
Writeln('Color(s) not found! restart script!');
terminatescript;
end;
Flag;
Wait(3000);
end;
procedure Buy;
begin
Poop:=0
repeat
repeat
if(FindColorTolerance(FFx, FFy, 12425379, 4, 4, 514, 336, 8))then
begin
Mouse(x, y, 0, 0, true);
Mouse(x, y, 0, 0, true);
wait(1000)
end;
until(findcolortolerance(x,y,16711680,187,427,407,451,6))
if (findcolortolerance(x,y,16711680,187,427,407,451,6)) then
begin
Wait(3000);
MMouse(224, 444, 1, 0);
Wait(800);
Mouse(224, 444, 1, 0, true);
Mouse(224, 444, 1, 0, true);
Wait(1000);
MMouse(270, 395, 1, 0);
Wait(800);
Mouse(270, 395, 1, 0, true);
Mouse(270, 395, 1, 0, true);
Wait(1000);
MMouse(203, 448, 1, 0);
Wait(800);
Mouse(203, 448, 1, 0, true);
Mouse(203, 448, 1, 0, true);
Wait(1000);
MMouse(280, 446, 1, 0);
Mouse(280, 446, 1, 0, true);
Mouse(280, 446, 1, 0, true);
Wait(2000);
MMouse(238, 432, 1, 0);
Mouse(238, 432, 1, 0, true);
Mouse(238, 432, 1, 0, true);
Wait(1000);
MMouse(217, 445, 1, 0);
Mouse(217, 445, 1, 0, true);
Wait(1000);
MMouse(290, 447, 1, 0);
Mouse(290, 447, 1, 0, true);
Mouse(290, 447, 1, 0, true);
Poop:= Poop + 1
Writeln('We have '+IntToStr(Poop)+' silk(s) for this load!');
TalkToRand;
Wait(2000);
end else
begin
wait(2000)
buy;
end;
until(FindColorTolerance(x, y, 8625060, 703, 434, 724, 454, 8))
end;
procedure GoBackgetcolor;
begin
Face('N');
Wait(1000);
if(FindColorTolerance(AAx, AAy, 598088, 596, 90, 656, 129, 50))then
begin
tree3:=Getcolor(AAx,AAy)
Mouse(x, y, 1, 1, true);
Flag;
end;
if(FindColorTolerance(BBx, BBy, 2818305, 610, 80, 654, 133, 50))then
begin
tree4:=Getcolor(BBx,BBy)
Mouse(x, y, 1, 1, true);
Flag;
end;
if(FindColorTolerance(CCx, CCy, 598088, 594, 90, 636, 129, 50))then
begin
something:=Getcolor(CCx,CCy)
Mouse(x, y, 1, 1, true);
Flag;
end;
if(FindColorTolerance(DDx, DDy, 994407, 594, 84, 649, 106,50))then
begin
rock:=Getcolor(DDx,DDy)
Mouse(x, y, 1, 1, true);
Flag;
end;
if(FindColorTolerance(GGx, GGy, BankColor, 587, 59, 641, 99, 8))then
begin
bumbum:=Getcolor(GGx,GGy)
Mouse(x, y, 1, 1, true);
Flag;
end;
if(FindColorTolerance(NNx, NNy, 660059, 46, 111, 97, 164, 50))then
InPin(Pin1);
Deposit2(5, 27);
Wait(5000);
end;
procedure GoBack;
begin
Face('N');
Wait(1000);
if(FindColorTolerance(AAx, AAy, tree3, 596, 90, 656, 129, 8))then
Mouse(x, y, 1, 1, true);
Flag;
if(FindColorTolerance(BBx, BBy, tree4, 610, 80, 654, 133, 8))then
Mouse(x, y, 1, 1, true);
Flag;
if(FindColorTolerance(CCx, CCy, something, 594, 90, 636, 129, 8))then
Mouse(x, y, 1, 1, true);
Flag;
if(FindColorTolerance(DDx, DDy, rock, 594, 84, 649, 106, 8))then
Mouse(x, y, 1, 1, true);
Flag;
if(FindColorTolerance(GGx, GGy, bumbum, 587, 59, 641, 99, 8))then
Mouse(x, y, 1, 1, true);
Flag;
if(FindColorTolerance(x, y, 660059, 46, 111, 97, 164, 7))then
InPin(Pin1);
Deposit2(5, 27);
Wait(5000);
end;
procedure MoveSilk;
begin
Writeln('Facing North and going to the silk buyer!');
Face('N');
if(FindColorTolerance(x, y, 1920640, 643, 51, 677, 70, 50))then
Mouse(x, y, 1, 1, true) else
begin
Writeln('Color(s) not found! restart script!');
Terminatescript;
end;
Flag;
if(FindColorTolerance(TSx, TSy, 1260363, 653, 30, 697, 54, 50))then
Mouse(x, y, 1, 1, true)else
Begin
Writeln('Color(s) not found! restart script!');
Terminatescript;
end;
Flag;
if(FindColorTolerance(EEx, EEy, 1260363, 683, 20, 706, 41, 50))then
Mouse(x, y, 1, 1, true)else
begin
Writeln('Color(s) not found! restart script!');
terminatescript;
end;
Flag;
if(FindColorTolerance(RRx, RRy, 6162831, 655, 41, 690, 74, 50))then
Mouse(x, y, 1, 1, true)else
begin
Writeln('Color(s) not found! restart script!');
terminatescript;
end;
Flag;
Wait(3000);
end;
procedure LogIn;
begin
Mouse(450, 286, 10, 10, true);
SendKeys(User);
SendKeys(Chr(13));
SendKeys(Pass);
Mouse(298, 323, 10, 10, true);
repeat
wait(90)
until(findcolortolerance(x,y,584,397,295,619,374,5))
Mouse(495, 341, 10, 10, true);
end;
begin
SetupSRL;
if(findcolortolerance(x,y,5918541,397,288,429,303,6))then
Login;
movesilkcolorget;
buy;
goback;
repeat
repeat
movesilk;
buy;
gobackgetcolor;
mcount:=mcount+1
until(mcount>=10)
wait(200000)(random(900)
H:=H+1
until(H>=5
end.XxKanexX
2006-04-17 22:08:55
That happens sometimes to me. From what i know it's Scar.
Copy and Paste your code into another opened scar window. Or just exit Scar (Save your work) and re-open it. That normally does it for me.
If that keeps happening there could be some denying of code in there.
Copy and Paste your code into another opened scar window. Or just exit Scar (Save your work) and re-open it. That normally does it for me.
If that keeps happening there could be some denying of code in there.
XxKanexX
2006-04-17 22:11:23
I found the error. Also, sorry but i renamed your "Buy" procedure, "Buye".. Because with my SRL theres already a buy procedure.
It was line 266. You had: Wait(20000)(random(900)); It's meant to be: Wait(20000 + random(900));
Heres your code. Compiles fine :)
It was line 266. You had: Wait(20000)(random(900)); It's meant to be: Wait(20000 + random(900));
Heres your code. Compiles fine :)
program SilkBuyer;
///////////////////////////////////////////////////////////////////////////
///This will buy silk and bank them, improvements can be PMed to me on //
///villavu.com/forums made by: ub3r l<1ll3r //
///////////////////////////////////////////////////////////////////////////
{Instructions
1. Start at the most Northern Open Bank
2. Money in first slot
3. V-bright
4. Put your pin in Line 127 if you have one
{.include SRL\SRL.Scar}
{Version info:
V1:very unstable[unreleased]
V1.9:a lot more stable with double clicking[unreleased]
V1.95: tested and being released
V2: more stable and with symbol to symbol
V3: fixed up a lot of walking, much more faster
V4:will now log off after 20 loads and has anti-randoms and will do this 6 times until the script will end (100 loads)
V5: now with a progress report
V6: Now standardized (i think)
V7: properly standardized and has Mouse flag detection
V8: now with auto color}
var
H, Poop, mcount,TSy,TSx,EEy,EEx,RRx,RRy,FFx,FFy,AAx,AAy,BBx,BBy,CCx,CCy,DDx,DDy,GGx,GGy: Integer;
rock,tree1,tree2,silk,tree3,tree4,rock,something,NNx,NNy,bumbum:integer;
/////////////////SETUP////////////////////////////
Const
User = 'killerkoo4';
Pass = '';
Pin1 ='5946';//put a pin if you have one else dont touch
//////////////////////////////////////////////////
procedure MoveSilkcolorget;
begin
Writeln('Facing North and going to the silk buyer!');
Face('N');
if(FindColorTolerance(x, y, 1920640, 643, 51, 677, 70, 50))then
begin
rock:=Getcolor(x,y)
Mouse(x, y, 1, 1, true)
end else
begin
Writeln('Color(s) not found! restart script!');
Terminatescript;
end;
Flag;
if(FindColorTolerance(TSx, TSy, 1260363, 653, 30, 697, 54, 50))then
Begin
tree1:=Getcolor(TSx,TSy)
Mouse(x, y, 1, 1, true)
end else
Begin
Writeln('Color(s) not found! restart script!');
Terminatescript;
end;
Flag;
if(FindColorTolerance(EEx, EEy, 1260363, 683, 20, 706, 41, 50))then
begin
tree2:=Getcolor(EEx,EEy)
Mouse(x, y, 1, 1, true)
end else
begin
Writeln('Color(s) not found! restart script!');
terminatescript;
end;
Flag;
if(FindColorTolerance(RRx, RRy, 6162831, 655, 41, 690, 74, 50))then
Begin
silk:=Getcolor(RRx,RRy)
Mouse(x, y, 1, 1, true)
end else
begin
Writeln('Color(s) not found! restart script!');
terminatescript;
end;
Flag;
Wait(3000);
end;
procedure Buye;
begin
Poop:=0
repeat
repeat
if(FindColorTolerance(FFx, FFy, 12425379, 4, 4, 514, 336, 8))then
begin
Mouse(x, y, 0, 0, true);
Mouse(x, y, 0, 0, true);
wait(1000)
end;
until(findcolortolerance(x,y,16711680,187,427,407,451,6))
if (findcolortolerance(x,y,16711680,187,427,407,451,6)) then
begin
Wait(3000);
MMouse(224, 444, 1, 0);
Wait(800);
Mouse(224, 444, 1, 0, true);
Mouse(224, 444, 1, 0, true);
Wait(1000);
MMouse(270, 395, 1, 0);
Wait(800);
Mouse(270, 395, 1, 0, true);
Mouse(270, 395, 1, 0, true);
Wait(1000);
MMouse(203, 448, 1, 0);
Wait(800);
Mouse(203, 448, 1, 0, true);
Mouse(203, 448, 1, 0, true);
Wait(1000);
MMouse(280, 446, 1, 0);
Mouse(280, 446, 1, 0, true);
Mouse(280, 446, 1, 0, true);
Wait(2000);
MMouse(238, 432, 1, 0);
Mouse(238, 432, 1, 0, true);
Mouse(238, 432, 1, 0, true);
Wait(1000);
MMouse(217, 445, 1, 0);
Mouse(217, 445, 1, 0, true);
Wait(1000);
MMouse(290, 447, 1, 0);
Mouse(290, 447, 1, 0, true);
Mouse(290, 447, 1, 0, true);
Poop:= Poop + 1
Writeln('We have '+IntToStr(Poop)+' silk(s) for this load!');
TalkToRand;
Wait(2000);
end else
begin
wait(2000)
buye;
end;
until(FindColorTolerance(x, y, 8625060, 703, 434, 724, 454, 8))
end;
procedure GoBackgetcolor;
begin
Face('N');
Wait(1000);
if(FindColorTolerance(AAx, AAy, 598088, 596, 90, 656, 129, 50))then
begin
tree3:=Getcolor(AAx,AAy)
Mouse(x, y, 1, 1, true);
Flag;
end;
if(FindColorTolerance(BBx, BBy, 2818305, 610, 80, 654, 133, 50))then
begin
tree4:=Getcolor(BBx,BBy)
Mouse(x, y, 1, 1, true);
Flag;
end;
if(FindColorTolerance(CCx, CCy, 598088, 594, 90, 636, 129, 50))then
begin
something:=Getcolor(CCx,CCy)
Mouse(x, y, 1, 1, true);
Flag;
end;
if(FindColorTolerance(DDx, DDy, 994407, 594, 84, 649, 106,50))then
begin
rock:=Getcolor(DDx,DDy)
Mouse(x, y, 1, 1, true);
Flag;
end;
if(FindColorTolerance(GGx, GGy, BankColor, 587, 59, 641, 99, 8))then
begin
bumbum:=Getcolor(GGx,GGy)
Mouse(x, y, 1, 1, true);
Flag;
end;
if(FindColorTolerance(NNx, NNy, 660059, 46, 111, 97, 164, 50))then
InPin(Pin1);
Deposit2(5, 27);
Wait(5000);
end;
procedure GoBack;
begin
Face('N');
Wait(1000);
if(FindColorTolerance(AAx, AAy, tree3, 596, 90, 656, 129, 8))then
Mouse(x, y, 1, 1, true);
Flag;
if(FindColorTolerance(BBx, BBy, tree4, 610, 80, 654, 133, 8))then
Mouse(x, y, 1, 1, true);
Flag;
if(FindColorTolerance(CCx, CCy, something, 594, 90, 636, 129, 8))then
Mouse(x, y, 1, 1, true);
Flag;
if(FindColorTolerance(DDx, DDy, rock, 594, 84, 649, 106, 8))then
Mouse(x, y, 1, 1, true);
Flag;
if(FindColorTolerance(GGx, GGy, bumbum, 587, 59, 641, 99, 8))then
Mouse(x, y, 1, 1, true);
Flag;
if(FindColorTolerance(x, y, 660059, 46, 111, 97, 164, 7))then
InPin(Pin1);
Deposit2(5, 27);
Wait(5000);
end;
procedure MoveSilk;
begin
Writeln('Facing North and going to the silk buyer!');
Face('N');
if(FindColorTolerance(x, y, 1920640, 643, 51, 677, 70, 50))then
Mouse(x, y, 1, 1, true) else
begin
Writeln('Color(s) not found! restart script!');
Terminatescript;
end;
Flag;
if(FindColorTolerance(TSx, TSy, 1260363, 653, 30, 697, 54, 50))then
Mouse(x, y, 1, 1, true)else
Begin
Writeln('Color(s) not found! restart script!');
Terminatescript;
end;
Flag;
if(FindColorTolerance(EEx, EEy, 1260363, 683, 20, 706, 41, 50))then
Mouse(x, y, 1, 1, true)else
begin
Writeln('Color(s) not found! restart script!');
terminatescript;
end;
Flag;
if(FindColorTolerance(RRx, RRy, 6162831, 655, 41, 690, 74, 50))then
Mouse(x, y, 1, 1, true)else
begin
Writeln('Color(s) not found! restart script!');
terminatescript;
end;
Flag;
Wait(3000);
end;
procedure LogIn;
begin
Mouse(450, 286, 10, 10, true);
SendKeys(User);
SendKeys(Chr(13));
SendKeys(Pass);
Mouse(298, 323, 10, 10, true);
repeat
wait(90)
until(findcolortolerance(x,y,584,397,295,619,374,5))
Mouse(495, 341, 10, 10, true);
end;
begin
SetupSRL;
if(findcolortolerance(x,y,5918541,397,288,429,303,6))then
Login;
movesilkcolorget;
buye;
goback;
repeat
repeat
movesilk;
buye;
gobackgetcolor;
mcount:=mcount+1
until(mcount>=10)
[B] wait(200000 + random(900));[/B]
H:=H+1
until(H>=5);
end.
Dark_Sniper
2006-04-17 22:12:16
nope kane its a access violation :p lemme see where :).
nope….. hmm cant find it.
nope….. hmm cant find it.
ub3r |<1||3r*1337*
2006-04-17 22:12:52
well… i exited and entered it again… about 80 times to be exact, and it still doesnt work. mabye i should reinstall scar?
XxKanexX
2006-04-17 22:18:50
Look, the one i posted worked for me. :p Did you try that?
Dark_Sniper
2006-04-17 22:19:41
kane found the reson why :p…
heres his quote.
edit( he posted before me agian! god!… i </3 kane)(lol :p)
heres his quote.
edit( he posted before me agian! god!… i </3 kane)(lol :p)
From: XxKanexX
I found the error. Also, sorry but i renamed your "Buy" procedure, "Buye".. Because with my SRL theres already a buy procedure.
It was line 266. You had: Wait(20000)(random(900)); It's meant to be: Wait(20000 + random(900));
Heres your code. Compiles fine :)
program SilkBuyer;
///////////////////////////////////////////////////////////////////////////
///This will buy silk and bank them, improvements can be PMed to me on //
///villavu.com/forums made by: ub3r l<1ll3r //
///////////////////////////////////////////////////////////////////////////
{Instructions
1. Start at the most Northern Open Bank
2. Money in first slot
3. V-bright
4. Put your pin in Line 127 if you have one
{.include SRL\SRL.Scar}
{Version info:
V1:very unstable[unreleased]
V1.9:a lot more stable with double clicking[unreleased]
V1.95: tested and being released
V2: more stable and with symbol to symbol
V3: fixed up a lot of walking, much more faster
V4:will now log off after 20 loads and has anti-randoms and will do this 6 times until the script will end (100 loads)
V5: now with a progress report
V6: Now standardized (i think)
V7: properly standardized and has Mouse flag detection
V8: now with auto color}
var
H, Poop, mcount,TSy,TSx,EEy,EEx,RRx,RRy,FFx,FFy,AAx,AAy,BBx,BBy,CCx,CCy,DDx,DDy,GGx,GGy: Integer;
rock,tree1,tree2,silk,tree3,tree4,rock,something,NNx,NNy,bumbum:integer;
/////////////////SETUP////////////////////////////
Const
User = 'killerkoo4';
Pass = '';
Pin1 ='5946';//put a pin if you have one else dont touch
//////////////////////////////////////////////////
procedure MoveSilkcolorget;
begin
Writeln('Facing North and going to the silk buyer!');
Face('N');
if(FindColorTolerance(x, y, 1920640, 643, 51, 677, 70, 50))then
begin
rock:=Getcolor(x,y)
Mouse(x, y, 1, 1, true)
end else
begin
Writeln('Color(s) not found! restart script!');
Terminatescript;
end;
Flag;
if(FindColorTolerance(TSx, TSy, 1260363, 653, 30, 697, 54, 50))then
Begin
tree1:=Getcolor(TSx,TSy)
Mouse(x, y, 1, 1, true)
end else
Begin
Writeln('Color(s) not found! restart script!');
Terminatescript;
end;
Flag;
if(FindColorTolerance(EEx, EEy, 1260363, 683, 20, 706, 41, 50))then
begin
tree2:=Getcolor(EEx,EEy)
Mouse(x, y, 1, 1, true)
end else
begin
Writeln('Color(s) not found! restart script!');
terminatescript;
end;
Flag;
if(FindColorTolerance(RRx, RRy, 6162831, 655, 41, 690, 74, 50))then
Begin
silk:=Getcolor(RRx,RRy)
Mouse(x, y, 1, 1, true)
end else
begin
Writeln('Color(s) not found! restart script!');
terminatescript;
end;
Flag;
Wait(3000);
end;
procedure Buye;
begin
Poop:=0
repeat
repeat
if(FindColorTolerance(FFx, FFy, 12425379, 4, 4, 514, 336, 8))then
begin
Mouse(x, y, 0, 0, true);
Mouse(x, y, 0, 0, true);
wait(1000)
end;
until(findcolortolerance(x,y,16711680,187,427,407,451,6))
if (findcolortolerance(x,y,16711680,187,427,407,451,6)) then
begin
Wait(3000);
MMouse(224, 444, 1, 0);
Wait(800);
Mouse(224, 444, 1, 0, true);
Mouse(224, 444, 1, 0, true);
Wait(1000);
MMouse(270, 395, 1, 0);
Wait(800);
Mouse(270, 395, 1, 0, true);
Mouse(270, 395, 1, 0, true);
Wait(1000);
MMouse(203, 448, 1, 0);
Wait(800);
Mouse(203, 448, 1, 0, true);
Mouse(203, 448, 1, 0, true);
Wait(1000);
MMouse(280, 446, 1, 0);
Mouse(280, 446, 1, 0, true);
Mouse(280, 446, 1, 0, true);
Wait(2000);
MMouse(238, 432, 1, 0);
Mouse(238, 432, 1, 0, true);
Mouse(238, 432, 1, 0, true);
Wait(1000);
MMouse(217, 445, 1, 0);
Mouse(217, 445, 1, 0, true);
Wait(1000);
MMouse(290, 447, 1, 0);
Mouse(290, 447, 1, 0, true);
Mouse(290, 447, 1, 0, true);
Poop:= Poop + 1
Writeln('We have '+IntToStr(Poop)+' silk(s) for this load!');
TalkToRand;
Wait(2000);
end else
begin
wait(2000)
buye;
end;
until(FindColorTolerance(x, y, 8625060, 703, 434, 724, 454, 8))
end;
procedure GoBackgetcolor;
begin
Face('N');
Wait(1000);
if(FindColorTolerance(AAx, AAy, 598088, 596, 90, 656, 129, 50))then
begin
tree3:=Getcolor(AAx,AAy)
Mouse(x, y, 1, 1, true);
Flag;
end;
if(FindColorTolerance(BBx, BBy, 2818305, 610, 80, 654, 133, 50))then
begin
tree4:=Getcolor(BBx,BBy)
Mouse(x, y, 1, 1, true);
Flag;
end;
if(FindColorTolerance(CCx, CCy, 598088, 594, 90, 636, 129, 50))then
begin
something:=Getcolor(CCx,CCy)
Mouse(x, y, 1, 1, true);
Flag;
end;
if(FindColorTolerance(DDx, DDy, 994407, 594, 84, 649, 106,50))then
begin
rock:=Getcolor(DDx,DDy)
Mouse(x, y, 1, 1, true);
Flag;
end;
if(FindColorTolerance(GGx, GGy, BankColor, 587, 59, 641, 99, 8))then
begin
bumbum:=Getcolor(GGx,GGy)
Mouse(x, y, 1, 1, true);
Flag;
end;
if(FindColorTolerance(NNx, NNy, 660059, 46, 111, 97, 164, 50))then
InPin(Pin1);
Deposit2(5, 27);
Wait(5000);
end;
procedure GoBack;
begin
Face('N');
Wait(1000);
if(FindColorTolerance(AAx, AAy, tree3, 596, 90, 656, 129, 8))then
Mouse(x, y, 1, 1, true);
Flag;
if(FindColorTolerance(BBx, BBy, tree4, 610, 80, 654, 133, 8))then
Mouse(x, y, 1, 1, true);
Flag;
if(FindColorTolerance(CCx, CCy, something, 594, 90, 636, 129, 8))then
Mouse(x, y, 1, 1, true);
Flag;
if(FindColorTolerance(DDx, DDy, rock, 594, 84, 649, 106, 8))then
Mouse(x, y, 1, 1, true);
Flag;
if(FindColorTolerance(GGx, GGy, bumbum, 587, 59, 641, 99, 8))then
Mouse(x, y, 1, 1, true);
Flag;
if(FindColorTolerance(x, y, 660059, 46, 111, 97, 164, 7))then
InPin(Pin1);
Deposit2(5, 27);
Wait(5000);
end;
procedure MoveSilk;
begin
Writeln('Facing North and going to the silk buyer!');
Face('N');
if(FindColorTolerance(x, y, 1920640, 643, 51, 677, 70, 50))then
Mouse(x, y, 1, 1, true) else
begin
Writeln('Color(s) not found! restart script!');
Terminatescript;
end;
Flag;
if(FindColorTolerance(TSx, TSy, 1260363, 653, 30, 697, 54, 50))then
Mouse(x, y, 1, 1, true)else
Begin
Writeln('Color(s) not found! restart script!');
Terminatescript;
end;
Flag;
if(FindColorTolerance(EEx, EEy, 1260363, 683, 20, 706, 41, 50))then
Mouse(x, y, 1, 1, true)else
begin
Writeln('Color(s) not found! restart script!');
terminatescript;
end;
Flag;
if(FindColorTolerance(RRx, RRy, 6162831, 655, 41, 690, 74, 50))then
Mouse(x, y, 1, 1, true)else
begin
Writeln('Color(s) not found! restart script!');
terminatescript;
end;
Flag;
Wait(3000);
end;
procedure LogIn;
begin
Mouse(450, 286, 10, 10, true);
SendKeys(User);
SendKeys(Chr(13));
SendKeys(Pass);
Mouse(298, 323, 10, 10, true);
repeat
wait(90)
until(findcolortolerance(x,y,584,397,295,619,374,5))
Mouse(495, 341, 10, 10, true);
end;
begin
SetupSRL;
if(findcolortolerance(x,y,5918541,397,288,429,303,6))then
Login;
movesilkcolorget;
buye;
goback;
repeat
repeat
movesilk;
buye;
gobackgetcolor;
mcount:=mcount+1
until(mcount>=10)
[B] wait(200000 + random(900));[/B]
H:=H+1
until(H>=5);
end.
XxKanexX
2006-04-17 22:20:58
Lol, thanx dark. Heres what i got from running that:
Successfully compiled
Line 26: [Hint] (11468:72): Variable 'ROCK' never used in script
Facing North and going to the silk buyer!
Color(s) not found! restart script!
Successfully executed
ub3r |<1||3r*1337*
2006-04-17 22:31:41
ok, thanks for fixing it, i diddnt know how to use random wait lol.
and i'm still fixing the script
EDIT: ok, i now give up on updating my al-kharid silk buyer. i'm just gonna make a whole new script :p
and i'm still fixing the script
EDIT: ok, i now give up on updating my al-kharid silk buyer. i'm just gonna make a whole new script :p
XxKanexX
2006-04-17 22:33:13
Just remember, i had to edit the procedure "Buy" to, "Buye". You can change it back if you want.
Just go into notepad, type Ctrl + H, and type "Buye" in the first bit and "Buy" in the second ;)
Just go into notepad, type Ctrl + H, and type "Buye" in the first bit and "Buy" in the second ;)