Dontpanic's Flax Picker!

TrustedMM · Jul 5, 2007

This morning i tryed it and said download the latest vierson

andy259 · Jul 5, 2007

hi but it always stops on sum points of it. it just logs out and gets confused plz fix but great flax picker auto very good

andy259 · Jul 5, 2007

it always stops and logs out and get confussed and dosent log back in can u fix thanks.

flatline · Jul 6, 2007

mine says runtime error exception file paths cannot contain any of these characters the stuff liek : / ?

krieg accomplice · Jul 6, 2007

Include file C:\Program Files\SCAR 3.06\includes\srl\srl.scar does not exist.
Failed when compiling
how i fix this?

TrustedMM · Jul 6, 2007

Make sure you have slr downloaded or the latest virson go to file and it will be there

Town · Jul 6, 2007

flatline, Scar 3.10 is still buggy, download Scar 3.06.

krieg, File ---> Download SRL.

cotton_eye_joe92 · Jul 6, 2007

Does anyone maybe know what I'm doing wrong, or what is wrong?: Duplicate identifier 'RANDOMCHAT' in script (then it says a location of some file.

Thanks!
-Joe

beaneriffic · Jul 6, 2007

i downloaded, lets see what happens

bb3377 · Jul 6, 2007

For me It usually only works for about an hour then displays a walking error, otherwise it is VERY good, so if you fix this I think it could be one of the best out there.

IAUTO · Jul 6, 2007

this doesnt work for me anymore 2 days ago it worked perfect but know it has finding bank errors in like 5 min.

kingreven6 · Jul 6, 2007

its a good flax picker, but every 5 mins, it has problems finding bank, or just randomly logs out, and wont log back in.

WokI · Jul 6, 2007

still works for me, are you still using scar 3.06?

IAUTO · Jul 6, 2007

Yes Iam and I've tryed reinstalling DiVi. ( yes I got 3.06 not 3.1 )

biggychris · Jul 6, 2007

Ive done everything WokI said but he logs in turns on run then goes to random places most often the party house near the bank then it logs out, i go back to the script and it says "MM flax color: 9797221""Error finding flax." Im very new to SCAR and scripts and im just looking for some help, sorry if this is an annoying or obvious question.

WokI · Jul 7, 2007

mkay, make sure you have these things...

SCAR Divi 3.06
then go to file > Download SRL (or somethinglike that)

then once its done (takes around 3 mins on a slow internet) use this script (same on, just make sure you use this one.

{------------------------------------------|
| |
| Flax Picker by Dontpanic |
| |
| Features: |
| - Solves the beekeeper random event |
| - Checks if you have the latest version |
| - Exteremely reliable autocolor |
| - Almost 100% accurate walking |
| - Progress report |
| - No inscript setup required! |
| - Multi-player |
| - Uses srl player setup

form |
| - Unique anti ban |
| |
| Notes: |
| My beekeeper solver may be used in other |
| scripts as long as you keep the credit |
| tag at the top. My functions/procedures |
| may be used in other scripts if you put |
| a comment at the top crediting me. All |
| procedures in this script were created |
| by me. All includes used in this script |
| were created by the srl developers/ |
| community. |
| |
|------------------------------------------}

{Sites posted on:
- srl-forums.com
- rs-resources.com
- moparisthebest.com
- sythe.org
- fagex.net
}

{.include srl\srl.scar}

//*****************************************************//
// Bee Keeper Solver by Dontpanic //
//*****************************************************//

var
bk1,bk2,bk3,bk4,px,py,BeeKeepers:integer;

procedure bkDtms;
begin
bk1:= DTMFromString('78DA637CCFC0C010C08002AE5FBAC8C00FA41' +
'9A17CC63740C20E55CDC553A750D5DC02129EA86A5E3C7D8AAAE6' +
'2C9088475573E7FA755435DC40561CAA9A2533A6A3AA01B1BC50D' +
'5ECDEB001450D004BC013DD');;
bk2:=DTMFromString('78DA639CC8C0C010C880020EEDDCC1C00FA41' +
'9A17CC6D3986AD62C5880AA662990484355B36BE3465435AB31D5' +
'6C5FB31A55CD464C355B56AE4055B30D53CDBA850B51D59C0712E' +
'9A86A66F6F761AA89425533A1AD0D554D2FA69A5DEBD7A3AAE9C3' +
'74CFD1BD7B51D4000064E81F19');
bk4:= DTMFromString('78DA63BCCBC0C060C780028EEDDBC7C00FA41' +
'9A17C460920CB0155CD9A050B50D5480359EEA86AA67476A2AAB9' +
'0524DC50D56C5BB31A55CD43201185AAE6C0F66DA86A8481AC105' +
'4353BD6AE4155F3034878A0AA59347D3A8A1A0009451441');
bk3:=DTMFromString('78DA63DCC8C0C050C880020EEEDCC1C00FA41' +
'9A17CC63740221F55CDDA850B51D5BC071215A86AA67476A2AAB9' +
'0E249A51D5CCECEF4355730E4834A0AA1115124255B31648B4A1A' +
'AD9B97E1DA67B5A51D5CC993811450D0020E41535');
end;

procedure bkSetup;
begin
bkDtms;
end;

function FindBeeKeeper:boolean;
var
ct:integer;
begin
ct:=0;
repeat
ct:=ct+1;
until(FindColorTolerance(x,y,14802401,163, 96,427, 255,ct));
MMouse(x,y,0,0);
wait(100+random(50));
Result:=IsUpText('per');
if(Result) then wait(100+random(50));
end;

function OpenWin:boolean;
begin
if(not(IsUpText('per'))) then FindBeeKeeper else GetMousePos(x,y);
Mouse(x,y,0,0,true);
wait(10);
Flag;
MMouse(296, 447,10,1);
wait(1000+random(100));
while(FindColor(x,y,16777215,23, 437,394, 461)) do begin
Mouse(296, 447,10,1,true);
wait(1000+random(200));
end;
Result:=true;
wait(1000+random(500));
end;

procedure DoneBk;
begin
MMouse(254, 270,3,3);
getmousepos(x,y);
wait(200+random(100));
Mouse(x,y,0,0,true);
wait(1000);
repeat
wait(100);
until(FindColor(x,y,16711680,23, 437,394, 461));
Wait(1000+random(500));
BeeKeepers:=BeeKeepers+1;
WriteLn('Solved Bee Keeper!');
end;

function FindPiece(piece:integer):boolean;
var
fpMark:longint;
begin
MarkTime(fpMark);
repeat
wait(100);
if(TimeFromMark(fpMark)>40000) then Exit;
until(FindDtm(piece,px,py,23, 29 ,426, 224));
Result:=True;
end;

function ClickPiece(piece:integer):boolean;
begin
if(not(FindPiece(piece))) then Exit;
Mouse(px+5,py+10,1,1,true);
wait(800+random(100));
Result:=True;
end;

procedure ClickArrow(arrow:integer);
begin
if(arrow=1) then Mouse(141, 275,5,5,true);
if(arrow=2) then Mouse(194, 269,5,5,true);
if(arrow=3) then Mouse(314, 273,5,5,true);
if(arrow=4) then Mouse(361, 271,5,5,true);
end;

function MovePiece(mx,my,piece:integer):boolean;
begin
if(not(ClickPiece(piece))) then Exit;
Result:=True;
while(px<mx) do begin
ClickArrow(4);
wait(900+random(100));
px:=px+15;
end;
while(py<my) do begin
ClickArrow(2);
wait(900+random(100));
py:=py+15;
end;
while(px>mx+16) do begin
ClickArrow(3);
wait(900+random(100));
px:=px-15;
end;
while(py>my+16) do begin
ClickArrow(1);
wait(900+random(100));
py:=py-15;
end;
end;

function FixPiece(piece:integer):boolean;
begin
if(piece=1) then begin
Result:=MovePiece(84, 62,bk1);
end;
if(piece=2) then begin
Result:=MovePiece(61, 165,bk2);
end;
if(piece=3) then begin
Result:=MovePiece(350, 47,bk3);
end;
if(piece=4) then begin
Result:=MovePiece(350, 158,bk4);
end;
end;

function SolvePiece(piece:integer):boolean;
begin
if(piece=1) then begin
Result:=MovePiece(259,29,bk1);
end;
if(piece=2) then begin
Result:=MovePiece(222,82,bk2);
end;
if(piece=3) then begin
Result:=MovePiece(224,141,bk3);
end;
if(piece=4) then begin
Result:=MovePiece(224,190,bk4);
end;
end;

function FixPieces:boolean;
begin
if(not(FixPiece(2))) then Exit;
if(not(FixPiece(4))) then Exit;
if(not(FixPiece(3))) then Exit;
if(not(FixPiece(1))) then Exit;
Result:=True;
end;

function MovePieces:boolean;
begin
if(not(SolvePiece(2))) then Exit;
if(not(SolvePiece(4))) then Exit;
if(not(SolvePiece(3))) then Exit;
if(not(SolvePiece(1))) then Exit;
Result:=True;
end;

procedure SolveBeeKeeper;
begin
OpenWin;
if(not(FixPieces)) then begin
WriteLn('Error solving bee keeper, Trying Again');
Mouse(497, 17,3,3,true);
SolveBeeKeeper;
end;
if(not(MovePieces)) then begin
WriteLn('Error solving bee keeper, Trying Again');
Mouse(497, 17,3,3,true);
SolveBeeKeeper;
end;
DoneBk;
end;

function BeeKeeper:boolean;
begin
if(GetColor(649, 78)=0) then begin
WriteLn('Middle of mm black, checking for bee keeper');
wait(3000+random(200));
if(FindBeeKeeper) then begin
WriteLn('Found Bee Keeper, Trying to solve');
Result:=True;
SolveBeeKeeper;
end;
end;
end;
//****************************************************//

var
Bankers,TreeSymbolColor,MMFlaxColor,FinalMinutesPerPlayer,BankBooth,TotalLoads,Direction:integer;
PlayerStartMark,StartScriptMark,LastAntiBan,NextAntiBan:longint;

const
FlaxColor=940041;
MinutesPerPlayer=20;
RandomMinutesPerPlayer=10;
Version=10;
AntiBanRandTime=120000;

procedure CheckVersion;
begin
if(Version=strtoint(GetPage('http://dontpanic0.googlepages.com/FlaxPickerVersion.txt'))) then begin
WriteLn('You have the latest version!');
end else begin
WriteLn('You''re version is outdated. Please download the latest version from http://srl-forums.com');
end;
end;

procedure SetupScript;
begin
SetupSRL;
CheckVersion;
MouseSpeed:=7;
Direction:=random(2);
bkSetup;
CheckHPFirst:=true;
StartPlayers(true,'');
TotalLoads:=0;
Bankers:= DTMFromString('78DA63CC62626070654001FFFE09337001694' +
'6289FB11AA18609979A7A22D4B413A1260728E383AA06260B5753' +
'42849A4622D47412560300D3490EB0');
MMFlaxColor:=0;
BankBooth := DTMFromString('78DA63E4676460E8654001610E9C0C5C409A1' +
'1CA6704A96985B0B9A062011E3E986AEA51D574E61860AAA94455' +
'33A13907450D00C80806C0');
ActivateClient;
wait(500);
MarkTime(StartScriptMark);
end;

function FindBankers(var x,y:integer):boolean;
begin
Result:=FindDtm(Bankers,x,y,MMX1,MMY1,MMX2,MMY2);
end;

procedure AlignCompass;
begin
while(not(FindBankers(x,y))) do begin
if(Direction=0) then KeyDown(vk_left)
else KeyDown(vk_right);
repeat
wait(20+random(10));
until(FindBankers(x,y));
if(Direction=0)then KeyUp(vk_left)
else KeyUp(vk_right);
if(Direction=0) then Direction:=1
else Direction:=0;
wait(300+random(100));
end;
end;

procedure FindRands2;
begin
BeeKeeper;
FindDead;
FindMime;
FindMaze;
FindQuiz;
FindDemon;
FindScapeRune;
FindLamp(LampSkill);
if (FindNewBox) then SolveBox;
end;

function FindWestFlax(var x,y:integer):boolean;
var
i:integer;
begin
i:=574;
repeat
i:=i+1;
if(i=721)then begin
Result:=false;
Exit;
end;
until(FindColor(x,y,MMFlaxColor,i,MMY1,i+1,MMY2));
Result:=True;
end;

function FindNorthFlax(var x,y:integer):boolean;
var
i:integer;
begin
i:=8;
repeat
i:=i+1;
if(i=170)then begin
Result:=false;
Exit;
end;
until(FindColor(x,y,MMFlaxColor,MMX1,i,MMX2,i));
Result:=True;
end;

procedure RunFromFight;
begin
FindWestFlax(x,y);
Mouse(x,y,0,0,true);
wait(50+random(50));
FFlag(10);
FindWestFlax(x,y);
Mouse(x-50,y,0,0,true);
wait(50+random(50));
FFlag(10);
wait(5000+random(5000));
FindWestFlax(x,y);
Mouse(x,y,0,0,true);
wait(50+random(50));
Flag;
end;

procedure FindRands1;
begin
if(FindTalk) then FindRands2;
if(FindFight) then begin
RunFromFight;
end;
end;

function GetTreeSymbolColor:boolean;
begin
TreeSymbolColor:=GetSymbolColor(x,y,'tree');
if(TreeSymbolColor>0)then begin
WriteLn('Tree symbol color: '+inttostr(TreeSymbolColor));
Result:=true;
end else Result:=false;
end;

function FindTreeSymbol(a,b:integer;var x,y:integer):boolean;
begin
Result:=FindColor(x,y,TreeSymbolColor,MMX1,a,MMX2,b);
end;

procedure GetMMFlaxColor;
var
tol,fx,fy,BaseColor:integer;
begin
BaseColor:=11884646;
tol:=-1;
repeat
tol:=tol+1;
until(FindColorTolerance(fx,fy,BaseColor,648, 83,MMX2,MMY2,tol));
MMFlaxColor:=GetColor(fx,fy);
WriteLn('MM flax color: '+inttostr(MMFlaxColor));
end;

procedure ToFlax;
var
i:integer;
begin
if(not(LoggedIn)) then Exit;
if not FindTreeSymbol(100,160,x,y) then begin
writeLn('Error walking 1');
Logout;
Exit;
end;
Mouse(x-10,y,0,0,true);
SetRun(true);
GameTab(4);
FFlag(10);
if(not(FindTreeSymbol(50,120,x,y))) then begin
writeLn('Error walking 1.5');
Logout;
Exit;
end;
Mouse(x-10,y+40,0,0,true);
wait(50+random(50));
FFlag(5);
if(not(FindTreeSymbol(30,100,x,y))) then begin
writeLn('Error walking 2');
Logout;
Exit;
end;
Mouse(x-20,y+75,0,0,true);
wait(50+random(50));
FFlag(10);
i:=70;
repeat
i:=i+1;
if(i=170)then begin
WriteLn('Error walking 3');
Logout;
Exit;
end;
until(FindTreeSymbol(i,i+1,x,y));
Mouse(x+30,y+50,0,0,true);
wait(50+random(50));
FFlag(10);
if(not(LoggedIn)) then Exit;
i:=30;
repeat
i:=i+1;
if(i=170)then begin
WriteLn('Error walking 4');
Logout;
Exit;
end;
until(FindTreeSymbol(i,i+1,x,y));
Mouse(x+50,y+80,0,0,true);
wait(50+random(50));
FFlag(10);
if(MMFlaxColor=0) then begin
GetMMFlaxColor;
end;
if(not(FindWestFlax(x,y))) then begin
WriteLn('Error walking 5');
Logout;
Exit;
end;
if(not(FindNorthFlax(i,y))) then begin
WriteLn('Error walking 5b');
Logout;
Exit;
end;
Mouse(x+10,y+10,0,0,true);
wait(50+random(50));
Flag;
end;

procedure PickFlag;
var
FlagBegin:LongInt;
begin
MarkTime(FlagBegin);
while(FlagPresent) do begin
wait(10+random(10));
if(TimeFromMark(FlagBegin)>4000) then
Exit;
end;
end;

procedure PickFlax;
var
i:integer;
done:boolean;
begin
x:=276;
y:=164;
i:=-1;
done:=false;
repeat
i:=i+1;
if(i>9) then begin
if(FindObj(x,y,'lax',941321,20)) then begin
Mouse(x,y,0,0,true);
Wait(50+random(50));
PickFlag;
wait(400+random(200));
Exit;
end;
end;
if(i=20) then begin
FindRands2;
end;
if(i=30) then begin
WriteLn('Error finding flax.');
Logout;
Exit;
end;
if(FindColorSpiralTolerance(x,y,FlaxColor,MSX1,MSY1,MSX2,MSY2,i)) then begin
MMouse(x,y,0,0);
wait(50+random(50));
if(IsUpTextMulti('Pic','lax','Fla')) then begin
done:=true;
HoldMouse(x,y,true);
wait(30+random(20));
ReleaseMouse(x,y,true);
wait(50+random(40));
PickFlag;
wait(400+random(200));
end;
end;
until(done or not(LoggedIn));
end;

procedure ToBank;
var
i:integer;
begin
if(not(LoggedIn)) then Exit;
if(not(FindWestFlax(x,y))) then begin
WriteLn('Error walking 5.5');
Logout;
Exit;
end;
if(not(FindNorthFlax(i,y))) then begin
WriteLn('Error walking 5.5b');
Logout;
Exit;
end;
Mouse(x,y+37,0,0,true);
wait(50+random(50));
FFlag(20);
if(not(FindWestFlax(x,y))) then begin
WriteLn('Error walking 6');
Logout;
Exit;
end;
if(not(FindNorthFlax(i,y))) then begin
WriteLn('Error walking 6b');
Logout;
Exit;
end;
Mouse(x-20,y,0,0,true);
wait(50+random(50));
FFlag(20);
if(not(FindWestFlax(x,y))) then begin
WriteLn('Error walking 7');
Logout;
Exit;
end;
if(not(FindNorthFlax(i,y))) then begin
WriteLn('Error walking 7b');
Logout;
Exit;
end;
Mouse(x-50,y-30,0,0,true);
wait(50+random(50));
FFlag(20);
x:=644;
y:=36;
if(not(FindColorSpiral(x,y,TreeSymbolColor,MMX1,MMY1,MMX2,MMY2))) then begin
WriteLn('Error walking 8');
Logout;
Exit;
end;
Mouse(x+20,y-10,0,0,true);
wait(50+random(50));
FFlag(20);
x:=640;
y:=91;
if(not(FindColorSpiral(x,y,TreeSymbolColor,MMX1,MMY1,MMX2,MMY2))) then begin
WriteLn('Error walking 8.5');
Logout;
Exit;
end;
Mouse(x+15,y-40,0,0,true);
wait(50+random(50));
FFlag(20);
if(not(FindTreeSymbol(11,70,x,y)))then begin
writeLn('Error walking 9');
Logout;
Exit;
end;
Mouse(x-15,y-15,0,0,true);
wait(50+random(50));
FFlag(20);
if(not(FindTreeSymbol(40,120,x,y)))then begin
writeLn('Error walking 10');
Logout;
Exit;
end;
Mouse(x-10,y-40,0,0,true);
wait(50+random(50));
Flag;
wait(300+random(400));
end;

procedure TopAngle;
begin
KeyDown(vk_up);
wait(1000+random(600));
KeyUp(vk_up);
wait(300+random(300));
end;

procedure ArrowKeys;
begin
KeyDown(vk_down);
wait(300+random(500));
KeyUp(vk_down);
wait(300+random(200));
TopAngle;
end;

procedure RandomChat;
var
Text:string;
begin
case random(58) of
00: Text:='gah this is so boring';
01: Text:='i bet ive got more flax then u';
03: Text:='farming lvls?';
04: Text:='im going for a million flax!';
05: Text:='im goin for a billion flax ';
06: Text:='gah i hate all the dumb noob lvl 3s';
07: Text:='this is my flax field everyone leave';
08: Text:='so much flax';
09: Text:='selling flax in bank only 500 each!';
10: Text:='free flax!!! haha jk';
11: Text:='ill kill any1 who steals my flax';
12: Text:='maybe i should sell this flax now';
13: Text:='maybe il sell flax on forums';
14: Text:='ur all noobs';
15: Text:='boring.....';
16: Text:='what times it there?';
17: Text:='asdfghjk;';
18: Text:='qwertyuiop[]';
19: Text:='zxcvbnm,./';
20: Text:='look @ my cards: []]]]]]]]]]]]]]]]]]';
21: Text:='pick a card []]]]]]]]]]]]]]]]]]]]]]';
22: Text:='im so sad my cat died today';
23: Text:='my dog died today ';
24: Text:='i got a pet dog today =)';
25: Text:='i have a dog, how bout you?';
26: Text:='i have a cat, how about you?';
27: Text:='i got a pet cat today but it bit me lol';
28: Text:='lol noob';
29: Text:='i own all you';
30: Text:='blahh so bored lol';
31: Text:='press 111 if youo like pures';
32: Text:='who likes dueling?';
33: Text:='who likes pkin?';
34: Text:='why does this take so long';
35: Text:='why doesnt jagex put a bank in the middle of here?';
36: Text:='i want to do a minigame soon';
37: Text:='-.- so bored';
38: Text:='picking flax is boring =(';
39: Text:='Firefox is so awsome';
40: Text:='i hate internet explorer';
41: Text:='i hate windows';
42: Text:='yall should use firefox';
43: Text:='i hate internet explorer';
44: Text:='linux is awsome';
45: Text:='whos your fav band?';
46: Text:='ipods are so cool';
47: Text:='i wanna get an iphone there ownage';
48: Text:='gahh i think my computer got viruses';
49: Text:='im infected';
50: Text:='some fansite gave me viri';
51: Text:='lollolllll so bored';
52: Text:='white:loading... please wait';
53: Text:='white:connection lost... attempting to reestablish';
54: Text:='laggggg';
55: Text:='the new loading update is so cool';
56: Text:='green:||||||||||||||';
57: Text:='red:||||||||||||||';
end;
TypeSend(Text);
wait(300+random(100));
end;

procedure RunOn;
begin
SetRun(true);
GameTab(4);
end;

procedure RandomTab;
begin
GameTab(1+random(11));
wait(600+random(300));
GameTab(4);
end;

procedure HoverRandomSkill;
begin
case random(9) of
0: HoverSkill('attack',false);
1: HoverSkill('defence',false);
2: HoverSkill('strength',false);
3: HoverSkill('woodcutting',false);
4: HoverSkill('mining',false);
5: HoverSkill('hitpoints',false);
6: HoverSkill('prayer',false);
7: HoverSkill('magic',false);
8: HoverSkill('crafting',false);
end;
end;

procedure AntiBan;
begin
case random(8) of
0: ArrowKeys;
1: SleepAndMoveMouse(1000+random(500));
2: RandomChat;
3: RunOn;
4: PickUpMouse;
5: RandomTab;
6: AlmostLogout;
7: HoverRandomSkill;
end;
end;

procedure AntiBanIfNeeded;
begin
if(TimeFromMark(LastAntiBan)>=NextAntiBan) then begin
AntiBan;
MarkTime(LastAntiBan);
NextAntiBan:=random(AntiBanRandTime);
end;
end;

procedure FillInv;
begin
repeat
PickFlax;
FindRands1;
AntiBanIfNeeded;
until(not(LoggedIn) or InventoryFull);
end;

procedure FindObjBank;
var
i:integer;
begin
repeat
if((i=0)or(i=3)or(i=6)or(i=9)) then if FindObj(x,y,'Use',541530,10) then Mouse(x,y,0,0,false);
if((i=1)or(i=4)or(i=7)or(i=10)) then if FindObj(x,y,'oth',541530,10) then Mouse(x,y,0,0,false);
if((i=2)or(i=5)or(i=8)) then if FindObj(x,y,'Bank b',541530,10) then Mouse(x,y,0,0,false);
i:=i+1;
if(i=10) then begin
Logout;
WriteLn('Took too many tries to find the bank booth');
end;
until(ClickOption('Use-quickly',1)or(not(LoggedIn)));
end;

function DtmBank:boolean;
begin
if(not(FindDtm(BankBooth,x,y,167, 0 ,327, 336))) then
Exit;
MMouse(x,y-3,0,0);
wait(50+random(30));
if(not(IsUpTextMulti('oth','Use','Bank B'))) then Exit;
Mouse(x,y,0,0,false);
if(ClickOption('Use-quickly',1)) then Result:=true;
end;

procedure BankFlax;
begin
if(not(DtmBank)) then FindObjBank;
if(not(LoggedIn)) then Exit;
repeat
wait(50+random(50));
until(BankScreen)or(not(LoggedIn));
if(LoggedIn)then begin
Deposit(1,28,2);
MMouse(480, 35,10,10);
GetMousePos(x,y);
wait(50+random(50));
Mouse(x,y,0,0,true);
wait(100+random(100));
end;
end;

procedure ProgressReport;
var
CheckPlayer:integer;
ActivePlayers:string;
Flax,FlaxPerHour,TimeInHours:extended;
begin
TotalLoads:=TotalLoads+1;
Flax:=TotalLoads*28;
TimeInHours:=TimeFromMark(StartScriptMark)/3600000;
FlaxPerHour:=Flax/TimeInHours;
ActivePlayers:='';
for CheckPlayer:=0 to (HowManyPlayers-1) do begin
if(Players[CheckPlayer].Active=True) then begin
ActivePlayers:=ActivePlayers+(Players[CheckPlayer].Name)+',';
end;
end;
WriteLn('||||||FlaxPicker By Dontpanic||||||');
WriteLn('Worked for: '+inttostr(trunc(TimeInHours))+' hours and '+inttostr(trunc((TimeInHours-(trunc(TimeInHours)))*60))+' minutes');
WriteLn('Loads: '+inttostr(TotalLoads));
WriteLn('Flax: '+inttostr(trunc(Flax)));
WriteLn('Flax Per Hour: '+inttostr(trunc(FlaxPerHour)));
WriteLn('Bee Keepers Solved: '+inttostr(BeeKeepers));
WriteLn('Players in use: '+ActivePlayers);
WriteLn('|||||||||||||||||||||||||||||||||||');
end;

begin
SetupScript;
if(LoggedIn) then Logout;
LoginPlayer;
TopAngle;
if(not(GetTreeSymbolColor)) then begin
writeLn('ERROR: Can''t find tree symbol color, terminating');
TerminateScript;
end;
repeat
FinalMinutesPerPlayer:=MinutesPerPlayer+random(RandomMinutesPerPlayer);
MarkTime(PlayerStartMark);
repeat
AlignCompass;
ToFlax;
MarkTime(LastAntiBan);
NextAntiBan:=random(AntiBanRandTime);
FillInv;
ToBank;
BankFlax;
if(LoggedIn) then ProgressReport;
until(not(LoggedIn)) or (TimeFromMark(PlayerStartMark)>=(FinalMinutesPerPlayer*60000));
NextPlayer(LoggedIn);
until(false);
end.
Click to expand...

try being logged out in seers bank, and run...

still works flawlessly...

IAUTO · Jul 7, 2007

biggychris said: ↑

Ive done everything WokI said but he logs in turns on run then goes to random places most often the party house near the bank then it logs out, i go back to the script and it says "MM flax color: 9797221""Error finding flax." Im very new to SCAR and scripts and im just looking for some help, sorry if this is an annoying or obvious question.
Click to expand...

This is what im talking about. WoKi I did all and this still happens.

bb3377 · Jul 7, 2007

Worked for: 1 hours and 32 minutes
Loads: 46
Flax: 1288
Flax Per Hour: 839
Bee Keepers Solved: 0
Players in use: *********,
|||||||||||||||||||||||||||||||||||
Error walking 5
NextPlayer

Too bad for the walking errors... It seems that it can never get past 1 hour.
I don't know why you guys are having troubles though..

beaneriffic · Jul 7, 2007

i tried it yesterday, and had troubles to, i log in at seers bank it turns on run, clicks on some trees and logs out

WokI · Jul 7, 2007

OKAY! heres what you need to do

If it can't find the flax, you need to change the color in this part of the script.

const
FlaxColor=940041; <-----
MinutesPerPlayer=20;
RandomMinutesPerPlayer=10;
Version=10;
AntiBanRandTime=120000;

Re-take the colors...

Also, this happened, and i got there right when he/she was about to leave...look...

POST ERRORS HERE

Log in or Sign up

Dontpanic's Flax Picker!

TrustedMM Active Member

andy259 Guest

andy259 Guest

flatline Guest

krieg accomplice Guest

TrustedMM Active Member

Town Grand Master

cotton_eye_joe92 Guest

beaneriffic Guest

bb3377 Guest

IAUTO Member

kingreven6 Guest

WokI Member

IAUTO Member

biggychris Newcomer

WokI Member

IAUTO Member

bb3377 Guest

beaneriffic Guest

WokI Member

Log in or Sign up

Dontpanic's Flax Picker!

Thread Tools

TrustedMM Active Member

andy259 Guest

andy259 Guest

flatline Guest

krieg accomplice Guest

TrustedMM Active Member

Town Grand Master

cotton_eye_joe92 Guest

beaneriffic Guest

bb3377 Guest

IAUTO Member

kingreven6 Guest

WokI Member

IAUTO Member

biggychris Newcomer

WokI Member

IAUTO Member

bb3377 Guest

beaneriffic Guest

WokI Member

Useful Searches