PDA

View Full Version : YetAnotherWillowCutter by Coatrackofsatan



coatrackofsatan
06-22-2007, 08:03 PM
This cuts willows in Draynor
Start it in the Draynor Bank
I need help with Anti-Randoms and Anti-Ban(case/of won't work for some reason)
It's very short right now
As I am aiming to shorten the length of these scripts
I'm also working on one that cuts from Port Sarim Willows and banks at draynor (because the other one posted on here is over 2000 lines!)
Don't Flame Please I'm pretty new to SCAR
Thanks :D

ZephyrsFury
06-23-2007, 05:18 AM
ok... i got a few suggestions for you.

first of all... when walking to the willows, i see you are using radialwalk. this probably won't work mostof the time because it requires that exact colour and the colours very dynamic on runescape.

secondly... on the way back, why dont you just make the script click the bank symbol. no need for radial walking.

thirdly:
If(FindColorSpiral(x,y,5362424,567,10,727,142) and FindColorSpiral(x,y,12894414,567,10,727,142)) then;
Mouse(x,y,0,0,True)
wait(5000)

i think you want 'or' instead of 'and'. because currently, it will only work if both colours are found exactly. you should also add a tolerance so that the colour doesn't have to be exact but just similar.

lastly, when you are phrase 'Bank booth' because parts of the phrase might we covered up or something and the script cant find it. you should only use parts of the phrase or word such as 'ooth' or 'ank' or 'nk bo'.

other than that, nice first script. keep it up.;)

BobboHobbo
06-23-2007, 09:07 AM
Hmm i see, Its something like my first script :D

Well i can see you need to fix the standards (Which i hate :D)

Also you need to add Antirandoms + Ban to the script.

Also multiplayer is the biggest thing in macroing.


As i look through the script, i can see it will not work at all, due to the radial walk because your finding a road color and there isnt any raod near the willows.

But good try for a first script.

Macho Man67
06-25-2007, 01:40 AM
Nice first script! It looks like you put some effort in this( which is always good)! Here are some fixes:

Scripting standards
Anti Ban and Anit Randoms
Multiplayer(you put in switch players but no player array)
Radialwalking

If you need further help private message me and I would be glad to help you!

BobboHobbo
06-25-2007, 08:34 AM
Macho radialwalk is a bit advanced for a beginger but if u want to learn it here is my guide:

Click here to view the Radial Walk guide (http://www.villavu.com/forum/showthread.php?t=11584)

ZephyrsFury
06-25-2007, 10:56 AM
Macho radialwalk is a bit advanced for a beginger but if u want to learn it here is my guide:

Click here to view the Radial Walk guide (http://www.villavu.com/forum/showthread.php?t=11584)

not really, as long as you use the Radial Walking Aid by yakman and remember to SetupSRL. Thats what stuffed me up when i first tried it in my scripts.

Santa_Clause
06-25-2007, 11:06 AM
Ok, I put some antiban and antirandoms in the script straight from my fighter...

I also standardised it for you:

///////////////Coatrackofsatan's Willow Cutter/////
///////////////YES I NEED BETTER ANTI-RANDOMS//////
//////////////AND SOME ANTIBAN....////////////////
/////////////IF YOU WANT TO HELP, EMAIL ME////////
////////////COATRACKOFSATAN@GMAIL.COM///////////
////////////ENJOY!/////////////////////////////
program YetAnotherWillowCutter;
{.include /SRL/SRL.scar}
{.include /SRL/SRL/extended/xMapWalk.scar}
{.include /SRL/SRL/skill/woodcutting.scar}
{.include srl/srl/extended/xAntiBan.scar}

const
WillowColor = 2379848;
FarmingColor = 3104359;
LoadsToCut = 50;

var NNBMP, LogDTM, loads, NumLogins: integer;

procedure DeclarePlayer;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;

Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Active := True;
end;

procedure Progress;
begin
ClearDebug;
WriteLn('YetAnotherWillowCutter')
WriteLn('----------------------')
WriteLn('LoadsCut:' + InttoStr(loads))
WriteLn('LoadsRemaining:' + InttoStr(loadstocut - loads))
end;

procedure AvoidBan;
begin
case 1 + random(5) of
1: MMouse(400, 10, 399, 9);
2: GameTab(3 + Random(2));
3: RandomRClick;
4: AlmostLogout;
5: PickUpMouse;
6: BoredHuman;
7: MouseBox(MSX1, MSY1, MSX2, MSY2, 7);
end;
GameTab(4);
end;

procedure Chop;
var x, y: integer;
begin
repeat
if (FindColorSpiral(x, y, WillowColor, 0, 0, 760, 505)) then ;
if (FindEnt(WillowColor)) then ;
begin
AvoidBan;
SleepAndMoveMouse(4123 + random(46));
end;
FindNormalRandoms;
Mouse(x, y, 0, 0, False)
AvoidBan;
ChooseOption(x, y, 'hop d')
if (inchat('swing')) then
SleepAndMoveMouse(4325 + random(1000));
until (InvFull)
end;

procedure Bank;
var x, y: integer;
begin
repeat
if (FindObj(x, y, 'Bank booth', 5066848, 9)) then ;
begin
FindNormalRandoms;
AvoidBan;
Mouse(x, y, 0, 0, False)
ChooseOption(x, y, 'quickly')
Wait(3000)
if (BankScreen) then ;
begin
FindDTM(LogDTM, x, y, 599, 208, 733, 458)
Mouse(x, y, 0, 0, False)
ChooseOption(x, y, 'All')
end
end
CloseBank;
until (InvCount < 4)
end;

procedure WalkToWillows;
var x, y: integer;
begin
MakeCompass('N')
FindNormalRandoms;
AvoidBan;
RadialWalk(1593380, 181, 270, 75, 0, 0);
Flag;
end;

procedure WalkBack;
var x, y: integer;
begin
MakeCompass('N')
AvoidBan;
RadialRoadWalk(RoadColor, 0, 179, 75, 0, 0);
Flag;
if (FindColorSpiral(x, y, 5362424, 567, 10, 727, 142) and FindColorSpiral(x, y, 12894414, 567, 10, 727, 142)) then ;
Mouse(x, y, 0, 0, True)
wait(5000)
end;

begin
LogDTM := DTMFromString('78DA638C676060F0634001EEA69C0C0F813 42' +
'310FF0702C64420239C010D302291403A0C48441050E30F24 8208' +
'A8C905128104D464821C49404D3A9008C5AF06005AEA0A55' );
loads := 0
NumLogins := 0
SetupSRL;
DisguiseScar('foobar2000')
DeclarePlayer;
ActivateClient;
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
if not (LoggedIn) then ;
LoginPlayer;
FindNormalRandoms;
HighestAngle;
MakeCompass('N')
repeat
repeat
Progress;
SetRun(True)
WalkToWillows;
Chop;
WalkBack;
Bank;
loads := loads + 1
until (loads >= loadstocut)
NextPlayer(True);
NumLogins := NumLogins + 1
until (HowManyPlayers <= NumLogins)
end.

ZephyrsFury
06-25-2007, 11:10 AM
procedure AvoidBan;
begin
case 1 + random(5) of
1: MMouse(400, 10, 399, 9);
2: GameTab(3 + Random(2));
3: RandomRClick;
4: AlmostLogout;
5: PickUpMouse;
6: BoredHuman;
7: MouseBox(MSX1, MSY1, MSX2, MSY2, 7);
end;
GameTab(4);
end;


SantaClause, your antiban procedure will never do MouseBox because you have only put 1+ random(5) not 1+random(7);

pdog
06-27-2007, 08:56 PM
\quote\crap script!!!! wont work for me

x13om13e12x
06-27-2007, 09:57 PM
the first script i tired to write was a cow hide banker but the cow killing part screwed up alot, and then WT-Fawaki made his and i just gave up on it, but it was 800+ at the time.

ZephyrsFury
06-28-2007, 08:32 AM
\quote\crap script!!!! wont work for me

can you do any better!?!? :mad: