hi, i was just wondering if anybody had some advice about this script that would make the procedures work better or to simplify them.
//////////////////////////////////////////////////////////////////////////
// Setup VERsion 2.0 //
// -------- //
// Instructions: //
// 1} Start near the items you want to pickup. //
// //
// 2} Use Eyedropper above to pick a distinctive color on item. //
/// //
/// 3}pick up to 3 colors. add to constants below. //
//// //
///// 4}Drag crosshair onto runescape screen, hit green run arow. //
//// //
/// 5}Watch the script pickup the items =p //
/// //
// VERSION HISTORY //
// 1.0)successful! no antiban or random wait times no randoms. //
// 1.5)added random w8s for antiban and getmouse position. //
// succesful!! //
// 2.0)added 1 player login! version not tested.... //
// Leave All Feedback on scar-scripts.com or srl-forums.com //
/////////////////////////////////////////////////////////////////////////
Program AutoPickup;
{.include SRL/SRL.scar}
const
Color1 =000000;//
Color2 =000000;// >pick colors
Color3 =000000;//
///////////If Login doesnt work tell me on srl or scar-scripts////////////
/////////until then delete it if it doesnt work or you dont want it////
///////remember to remove declare players from the last loop(line 82)//
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:= 0;
Players[0].Name := 'Username';
Players[0].Pass := 'Password';
Players[0].Nick := 'Nickname';
Players[0].Active := True;
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;
procedure Signature;
begin
ClearDebug;
Writeln('My First Working Script!!!');
Writeln('Pickup Whatever item u set it to!');
Writeln(' Uses Colors and mouse commands');
Writeln(' By:Lilboy543');
Wait(2000 + random(550));
end;
procedure ClickColors;
begin
repeat
if(FindColor(x,y,Color1,MSX1,MSY1,MSY2,MSY2))then
begin
Mouse(x,y,1,1,true);
wait(575+random(167));
end;
if(FindColor(x,y,Color2,MSX1,MSY1,MSY2,MSY2))then
begin
Mouse(x,y,1,1,true);
wait(600+random(170));
end;
if(FindColor(x,y,Color3,MSX1,MSY1,MSY2,MSY2))then
begin
Mouse(x,y,1,1,true);
wait(550+random(160));
end;
until(False);
end;
begin
SetupSRL;
Signature;
DeclarePlayers;
ClickColors;
end.


Reply With Quote





It could be though if you added a dropping procedure like I said 