SRL Archive - General

ok when i run this script it picks up flax but then when its done it dosent go to the bank or the spinning wheel… i am to stupid to fix it(lol) can someone check it out

I take no credit for making this.
/////////////////////////////////////////////////////
//{/ Flax0r //}/
//{/ By //}/
//{/ || //}/
//{/ || //}/
//{/ || //}/
//{/ \/ //}/
//{/ |****************************************| //}/
//{/ |* _ _ _____ _ _ __ __ *| //}/
//{/ |* | | | | | ____| | | | | \ \ / / *| //}/
//{/ |* | |_| | | |__ | | | | \ \/ / *| //}/
//{/ |* | _ | | __| | | | | } { *| //}/
//{/ |* | | | | | |___ | |___ | | / /\ \ *| //}/
//{/ |* |_| |_| |_____| |_____| |_| /_/ \_\ *| //}/
//{/ |****************************************| //}/
//{/ Version 2.1 //}/
//////////////////////////////////////////////////////

{ V.1 - Pick flax, with banking errors ]
[ V.2 - Fixed banking errors, now working on report ]
[ V1 - Everything seems to be working, pretty sweet ]
[ V1.1 - Fixed some minor bugs, and added ending ]
[ V2 - Uses Si, has a more proficient/faster picking system ]
[ V2.1 - Added Anti-Ban features }

{ Instructions: ]
[ 1. Fill out the setup. ]
[ 2. Open ScarScape in High Quality ]
[ 3. Start in the bank, or in the flax field ]
[ 4. Enjoy the script ]
[ USE SCAR Version 2.02 }

{ Credit: ]
[ Idiota - Previous Versions were based on the way she did it. ]
[ Swift - Tested it, and reported bugs, made the top presentation. ]
[ POP - I kinda used his idea with the ending art. ]
[ RancidKraut - Gave me the idea to redo it for 2.02, and use si. ]
[ JaC - Helped with the conversion between changing it to si. ]
[ TheFinalExodus - Helped with multiple pathing, and syntax. ]
[ Thanks for the help! }

program flax0r;
const
{ Main Setup }

Lamp = 'fletching' ; // Skill for lamp random
Flax = 8000 ; // Number of flax to pick

{ ANTI-BAN Features Setup }
// Random Login/Logout
UserNumber = 1 ; // User set in si.scar, needs to be setup in your si.scar if your using RandomLogout
RandomLogout = false ; // Logs out at a given time, and logs back in with your UserNumber
Intime = 120 ; // Time it keeps you logged in, in minutes
Outtime = 3 ; // Time it keeps you logged out, in minutes
CheckMod = false ; // Checks for mods
// Random Talking UNDER CONSTRUCTION
TalkRandom = false ; // Randomly Talks

{ COLORS Setup }

mmLadder = 1060441 ; // Color of Ladder on minimap
mmTree = 1606923 ; // Color of Tree symbol on minimap
FlaxColor = 12032 ; // 14999696 (old color) | Color of the flax

var sst,cst,wst,wet,awt,srt,tih,tim,tis,Trips,FlaxPicked,rantalk,kthx,randertalk,x,y:integer;

{.include si.scar}

procedure ProgressReport;
begin
ClearReport;
AddToReport('[ - Flax Picker by heliX - ]');
AddToReport('[ - Progress Report - ]');
cst:=getsystemTime;
srt:=(cst-sst)/1000;
tih:=srt/3600;
tim:=(srt/60)-tih*60;
tis:=srt-tim*60-tih*3600;
awt:=wet-wst;
AddToReport('Worked for '+inttostr(tih)+' Hours '+inttostr(tim)+' Minutes '+inttostr(tis)+' Seconds');
AddToReport('Completed: ' + inttostr(Trips) + ' trips');
AddToReport('Picked: ' + inttostr(FlaxPicked) + ' Flax');
AddToReport('Picking Approximately '+inttostr((FlaxPicked/(srt/60))*60)+' Flax per Hour');
end;

procedure Randoms;
begin
CheckRandoms(UserNumber,Lamp,'NA',false,false,[rtText, rtLamp, rtLogout, rtBox]);
end;

procedure BankPro;
begin
Randoms; OpenBank;
Mouse(585,230,2,2,false); wait(500+random(250));
ClickText('Store All',553,205,740,463);
CloseWindow;
end;

procedure ToFlax;
begin
SetRun(true);
if(FindColorRight(x,y,mmtree,579,119,740,164))then
begin Mouse(x-19+random(3),y+23+random(3),0+random(3),0+random(3),true); Flag;
if(FindColorRight(x,y,mmtree,578,112,740,164))then
begin Mouse(x+12+random(3),y+20+random(3),0+random(3),0+random(3),true); Flag;
if(FindColorRight(x,y,mmLadder,603,64,712,100))then
begin Mouse(x+22+random(3),y+34+random(3),0+random(3),0+random(3),true); Flag;
if(FindColorRight(x,y,mmLadder,598,2,642,40))then
begin Mouse(x+64+random(3),y+71+random(3),0+random(3),0+random(3),true); Flag;
end;
end;
end;
end;
end;

procedure PickFlax;
begin
repeat
if(findobj(x,y,'Pick',FlaxColor,0))then
getmousepos(x,y);
mouse(x,y,0,0,true)
wait(600+random(250))
randoms;
until(invincount=28)
end;

procedure ToBank;
begin
SetRun(false);
Mouse(606,64,1,1,true); Flag;
if(findcolorRight(x,y,mmLadder,558,5,671,122))then
begin Mouse(x+random(3),y+26+random(3),0+random(3),0+random(3),true);Flag;
if(FindColorRight(x,y,mmLadder,554,6,693,141))then
begin Mouse(x-26+random(3),y-23+random(3),0+random(3),0+random(3),true); Flag;
if(findcolorright(x,y,mmTree,557,1,741,47))then
begin Mouse(x-19+random(3),y+23+random(3),0+random(3),0+random(3),true); Flag;
if(FindColorRight(x,y,mmTree,549,2,750,95))then
begin Mouse(x-13+random(3),y-40+random(3),0+random(3),0+random(3),true); wait(1000+random(250)); Flag;
end;
end;
end;
end;
end;

function FindMod1(acc: Integer):boolean;
var
t, tx, ty:Integer;
begin
if(FindBitmapToleranceIn(bmpMod,tx,ty,1,345,110,430,15)) or
(FindBitmapToleranceIn(bmpAdmin,tx,ty,1,345,110,430,15))then
begin
result:=true;
randertalk:=(random(2))
if (randertalk = 1) then
wait(3000+random(2000))
speak('parents g2g')
wait(2000+random(1000))
LogOut;
if (randertalk = 2) then
wait(3000+random(2000))
speak('so hungry bbl')
wait(2000+random(1000))
LogOut;
repeat
Wait(60000);
t:=t+1;
until(t>=30+random(30));
Login(acc);
end;
end;

procedure banprotect;
begin
If (CheckMod = true ) then
FindMod1(UserNumber);
if (randomlogout = true) then
AntiBan(Intime, Outtime, UserNumber)
end;

procedure randomtalk;
begin
rantalk:=(random(5)+1)
if (rantalk = 1) and (talkrandom = true) then
begin
speak('picking flax gets so boring');
end;
if (rantalk = 2) and (talkrandom = true) then
begin
speak('cant wait until i sell this');
end;
if (rantalk = 3) and (talkrandom = true) then
begin
speak('If your happy and you know it clap your hands!');
end;
begin
if (rantalk = 4) and (talkrandom = true) then
speak('omg getting tired of this');
end;
if (rantalk = 5) and (talkrandom = true) then
begin
speak('i cant wait until i have alot of flax');
end;
ChatsOff;
end;



procedure ending;
begin
writeln('.__ .__ .__ ');
writeln('| |__ ____ | | |__|__ ___');
writeln('| | \_/ __ \| | | \ \/ /');
writeln('| \ ___/| |_| |> < ');
writeln('|___| /\___ >____/__/__/\_ \');
writeln(' \/ \/ \/');
end;

procedure kthxtalk;
begin
kthx:=(random(12))
if (TalkRandom = True) and (kthx = 5) then
randomtalk;
end;

begin
LoadInclude('Microsoft Word - Document1',false);
ChatsOff; Randoms;
FlaxPicked:=0;
Trips:=0;
sst:=GetSystemTime;
repeat
ToFlax;
PickFlax;
FlaxPicked:=FlaxPicked+28;
Trips:=FlaxPicked/28;
banprotect;
ToBank;
BankPro;
ProgressReport;
banprotect;
kthxtalk;
until(FlaxPicked>=Flax-27)
ending;
logout;
end.

ozonelayer
View Public Profile
Send a private message to ozonelayer
Send email to ozonelayer
Find all posts by ozonelayer
Add ozonelayer to Your Buddy List






« Previous Thread | Next Thread »

vBulletin Message

Cancel Changes
Quick Reply
The following errors occurred when this message was submitted

Okay
Message:





Please click one of the Quick Reply icons in the posts above to activate Quick Reply.

Options
Quote message in reply?


Posting Quick Reply - Please Wait



Thread Tools
Show Printable Version
Email this Page
Subscribe to this Thread

Display Modes
Linear Mode
Switch to Hybrid Mode
Switch to Threaded Mode

Search this Thread


Advanced Search

Rate This Thread
Excellent
Good
Average
Bad
Terrible


Posting Rules
You may post new threads
You may post replies
You may post attachments
You may edit your posts

——————————————————————————–

vB code is On
Smilies are On

please close this post.