Sure, add my MSN. :)Quote:
Originally Posted by hayhay89
Eerik.
Printable View
Sure, add my MSN. :)Quote:
Originally Posted by hayhay89
Eerik.
SCAR Code:program HeavenzeyezFirstScript;
{.include SRL/SRL/Misc/Smart.scar}
{.include srl/srl.scar}
{.include srl/srl/skill/woodcutting.scar}
{.include srl/srl/misc/trade.scar}
var
LogsDropped, BrokenAxes,
TradesMade, PlayerTime, RPlayerTime,
MadeRespond, dtmaxe, loads: integer;
First: boolean;
{Heaven'z Powercutter v 0.9
*Cuts any f2p tree*
*Drops logs*
*Has multiplayers*
*antirandoms/antiban*
*Entfinder + avoider*
*Autoresponder*
*Autotrader*
*Use on your own resonse*
*Start logged out*
*Post proggies*
*Use Scar 3.14 SRL4 Rev12*
*Includes SMART*}
const
YourSRLId = '';
YourSRLPassword = '';
TimeForPlayer = 999999999999; // Time for Each Player In Minutes(Random 5 minutes will be added).
TreeToChop = 'willow'; // tree,oak,all(finds any tree),yew or willow.
World = 128; //Wich world to start S.m.a.r.t in?
procedure DeclarePlayers;
begin
CurrentPlayer := 0;
NumberOfPlayers(1);
Players[0].Name := 'username'; //your username between ''
Players[0].Pass := 'password'; //you password between''
Players[0].Nick := 'ser'; //nickname from you username between'' example 'ser'
Players[0].Active := True; //active->true or false.
{ Players[1].Name := 'username';
Players[1].Pass := 'password';
Players[1].Nick := 'ser';
Players[1].Active := True;
Players[2].Name := 'username';
Players[2].Pass := 'passowrd';
Players[2].Nick := 'ser';
Players[2].Active := True;}
end;
procedure FindRandoms;
begin
FindNormalRandoms;
if (Findfight) then
begin
RunAway('n', false, 1, 10000 + random(5000));
ftwait(20 + random(10));
end;
end;
procedure Sig;
begin
cleardebug;
writeln(' Hello!');
wait(1000 + random(1001));
writeln(' My Powercutter,');
wait(1000 + random(1001));
writeln(' Brought to you by Heavenzeyez1:) ,');
wait(1000 + random(1001));
writeln(' Hope U''re going to like it. :)');
wait(3000 + random(1001));
writeln(' _ _ ')
writeln('( ) ( ) ')
writeln('| |_| | __ _ _ _ _ __ __ ____ ')
writeln('| _ | / __`\ / _` )( ) ( ) / __`\/ _ `\ (_ ,) ')
writeln('| | | |( ___/( (_| || \_/ |( ___/| ( ) | / /_ ')
writeln('(_) (_)`\____)`\__,_)`\___/ `\____)(_) (_) (____) ')
Wait(1000);
writeln(' ___ ___ _ _ ')
writeln('( _`\ ( _`\ ( )_ ( )_ ')
writeln('| |_) ) _ _ _ _ __ _ __ | ( (_) _ _ | ,_)| ,_) __ _ __ ')
writeln('| ,__/ / _`\ ( ) ( ) ( ) / __`\( __)| | _ ( ) ( )| | | | / __`\( __) ')
writeln('| | ( (_) )| \_/ \_/ |( ___/| | | (_( )| (_) || |_ | |_ ( ___/| | ')
writeln('(_) `\___/ `\___x___/ `\____)(_) (____/ `\___/ `\__)`\__)`\____)(_) ')
Wait(3000);
end;
var
Axecolor: integer;
function searchaxe1: boolean;
var
x, y, dtmaxe: integer;
begin
if (not (loggedin)) then exit;
dtmAxe := DTMFromString('78DA63DCCDC4C0B09791011974660831FC07D' +
'220D1FF40C07800A86623AA1A882C8C04D23B806A4E1150B30DA8' +
'E6380135BB806A761150B39708F7EC07AAD9815F0D00F3891069');
begin
gametab(4);
wait(500 + random(501));
if finddtm(dtmAxe, x, y, MIX1, MIY1, MIX2, MIY2) then
begin
result := true;
writeln('axe in bag.');
Freedtm(dtmaxe);
end
else
begin
dtmAxe := DTMFromString('78DA63DCCDC4C0B09791011974660831FC07D' +
'220D1FF40C07800A86623AA1A882C8C04D23B806A4E1150B30DA8' +
'E6380135BB806A761150B39708F7EC07AAD9815F0D00F3891069');
begin
if (not (finddtm(dtmaxe, x, y, MIX1, MIY1, MIX2, MIY2))) then
result := false;
writeln('axe not in bag.');
freedtm(dtmaxe);
end;
end;
end;
end;
function searchaxe2: boolean;
var
x, y, dtmaxe: integer;
begin
if (not (loggedin)) then exit;
dtmAxe := DTMFromString('78DA63DCCDC4C0B09791011974660831FC07D' +
'220D1FF40C07800A86623AA1A882C8C04D23B806A4E1150B30DA8' +
'E6380135BB806A761150B39708F7EC07AAD9815F0D00F3891069');
begin
gametab(5);
wait(500 + random(501));
if finddtm(dtmAxe, x, y, MIX1, MIY1, MIX2, MIY2) then
begin
result := true;
writeln('axe wielded.');
end
else
begin
dtmAxe := DTMFromString('78DA63DCCDC4C0B09791011974660831FC07D' +
'220D1FF40C07800A86623AA1A882C8C04D23B806A4E1150B30DA8' +
'E6380135BB806A761150B39708F7EC07AAD9815F0D00F3891069');
begin
if (not (finddtm(dtmaxe, x, y, MIX1, MIY1, MIX2, MIY2))) then
result := false;
writeln('axe not wielded.');
end;
end;
end;
freedtm(dtmaxe);
Freedtm(dtmaxe);
end;
procedure check4axe;
begin
if not (loggedin) then exit;
if not (searchaxe1) and not (searchaxe2) then
begin
Logout;
writeln('didn''t find any axe.')
end
else
begin
writeln('All clear got axes.');
end;
end;
function CheckIfAxeIsBroken: boolean;
var
x, y, BrokenAxeDTM: Integer;
begin
BrokenAxeDTM := DTMFromString('78DA636C616260E0636440061D697C601A26C' +
'AD80354C38FAA06260B57D30754C34D404D2F508D080135CD4035' +
'5C04D4D400D5A8E05703008C0604B4');
GameTab(4);
Wait(200 + random(100));
if FindDTM(BrokenAxeDTM, x, y, MIX1, MIY1, MIX2, MIY2) then
begin
result := True;
Logout;
end
else
Result := false;
FreeDTM(BrokenAxeDTM);
end;
function FindTree(var x, y: Integer; Treetype: string; Click: Boolean): Boolean; //by Negaal
var
TPA: TpointArray;
ATPA: array of TPointArray;
MSCPoint: Tpoint;
i, CTS, Color: integer;
Uptext: string;
begin
x := mscx;
y := mscy;
MSCPoint.x := mscy;
MSCPoint.y := mscy;
Color := 2966339;
case lowercase(TreeType) of
'tree', 'usual': Uptext := 'Tree';
'oak': UpText := 'Oak';
'willow': UpText := 'illo';
'yew': UpText := 'Yew';
'all': uptext := 'hop d';
end;
CTS := GetColorToleRanceSpeed;
ColorToleranceSpeed(2);
SetColorspeed2Modifiers(0.3, 0.3);
FindColorsSpiralTolerance(x, y, TPA, Color, msx1, msy1, msx2, msy2, 10)
ColorToleranceSpeed(CTS);
SetColorspeed2Modifiers(0.2, 0.2);
if Length(TPA) >= 30 then
begin
ATPA := SplitTPA(TPA, 10);
SortATPAFrom(ATPA, MSCPoint);
for i := 0 to High(ATPA) do
if Length(ATPA[i]) >= 30 then
begin
MiddleTPAEx(ATPA[i], x, y);
if not Click then
begin
Result := True;
Exit;
end;
MMouse(x - 10, y - 10, 21, 21);
Wait(100 + random(100));
if IsUpText(UpText) then
begin
Result := True;
Getmousepos(x, y);
Exit;
end;
end;
end;
end;
function Check4Tree: boolean;
var
x, y: integer;
begin
if not (loggedin) then exit;
if findtree(x, y, treetochop, true) then
begin
result := true;
writeln('tree found.')
end
else
begin
if not (findtree(x, y, treetochop, true)) then
begin
writeln('didn''t find tree, going to look for it.');
wait(7500 + random(2500));
if not (findtree(x, y, treetochop, true)) then
writeln('still didn''t find it.');
wait(7500 + random(2500));
if not (findtree(x, y, treetochop, true)) then
writeln('OMFG!, get urself to the trees!!!');
result := false;
end;
end;
end;
procedure AutoResponder;
var
WcText: array of string;
i: integer;
begin
SetArrayLength(WcText, 3);
WcText[0] := 'wc';
WcText[1] := 'lvl';
WcText[2] := 'wc lvl';
for I := 0 to 2 do
if Inchat(WcText[i]) then
begin
Typesend('My wc lvl is ' + inttostr(GetSkillInfo('woodcutting', false)));
MadeRespond := MadeRespond + 1;
Break;
end;
end;
procedure AutoTrader;
begin
if (SomeoneTrades) then
begin
AcceptTrade;
Wait(4000 + random(1000));
Decline;
Trades := Trades + 1;
case random(10) of
0: Typesend('Maybe later.');
1: Typesend('No thanks, my friend.');
2: Typesend('Nvm.');
3: Typesend('I never needed that.');
4: Typesend('Thanks for offering.');
5: Typesend('You are so cool with your things.');
6: Typesend('Go and sell these to some1 else.');
7: Typesend('Sorry I already have it.');
8: Typesend('Leave me alone.');
9: Typesend('Nice.');
end;
end;
end;
procedure HoverToSkill;
begin
if (not (LoggedIn)) then exit;
case Random(50) of
0: HoverSkill('Woodcutting', false);
1: HoverSkill('Mining', false);
2: HoverSkill('Runecrafting', false);
3: HoverSkill('Magic', false);
4: HoverSkill('Smithing', false);
5: HoverSkill('Strenght', false);
6: HoverSkill('Attack', false);
7: HoverSkill('Defence', false);
8: HoverSkill('Hitpoints', false);
9: HoverSkill('Firemaking', false);
10: HoverSkill('Crafting', false);
end;
end;
procedure DropLogs;
var
i, logdtm, x, y: integer;
begin
if (not (LoggedIn)) then Exit;
if (not (InvFull)) then Exit;
FindRandoms;
if searchaxe1 or searchaxe2 then
writeln('Beginning to drop logs.');
repeat
logdtm := DTMFromString('78DA63FCC4C4C0F09291011954C69A33FC07D' +
'220D1FF40C0F81CA8E61EAA1A882C8C04D23F816A6E1350F30FA8' +
'E60D01359F816A3E1050F30AA8E63301350F816ADE1250F314A8E' +
'6297E35005A7C14EE');
gametab(4);
if finddtm(logdtm, x, y, MIX1, MIY1, MIX2, MIY2) then
begin
Wait(200 + random(50));
Mouse(x, y, 2, 2, false);
wait(300 + random(51));
Chooseoption('rop');
Inc(reportvars[0]);
LogsDropped := LogsDropped + 1
FTWait(1);
begin
if not(finddtm(logdtm, x, y, MIX1, MIY1, MIX2, MIY2)) then
begin
for i := 2 to 28 do
begin
if ExistsItem(i) then
begin
MMouseItem(i);
wait(100 + random(50));
DropItem(i)
Wait(100 + Random(100));
Inc(reportvars[0]);
LogsDropped := LogsDropped + 1
FTWait(1);
end;
end;
end;
end;
end;
until not (finddtm(logdtm, x, y, MIX1, MIY1, MIX2, MIY2));
findrandoms;
Freedtm(logdtm);
Writeln('Sucesfully dropped whole inventory.');
Loads := Loads +1;
end;
procedure RandomTalk;
begin
if (not (loggedin)) then exit;
case Random(75) of
0: Typesend('We love chopping trees.');
1: Typesend('Hello.');
2: Typesend('Hello ppl.');
3: Typesend('Hello fellos.');
4: Typesend('I''m Woodcutting.');
5: Typesend('I''m so happy.');
6: Typesend('Do you know Fred?');
7: Typesend('Can i have yor logs?');
8: Typesend('I have extremly great marks at school.');
9: Typesend('Do you love Runescape?(i do)');
10: Typesend('Can you speak english?');
11: Typesend('My favourite color is red.'); //pane 12-30 ka sama rea peale
12: Typesend('I''m bored.');
13: Typesend('I''m tired.');
14: Typesend('I''m lazy.');
15: Typesend('My fingers hurt already.');
16: Typesend('I want to sleep!');
17: Typesend('I will must finish playing soon.');
18: Typesend('My father wants to get to the internet.');
19: Typesend('We love runescape.');
20: Typesend('WC lvl?');
21: Typesend('WC lvls?');
22: Typesend('Woodcuttin lvl?');
23: Typesend('Woodcutting lvls?');
24: Typesend('I want candy.');
25: Typesend('I ate candy last time 5 days ago.');
26: Typesend('I must go to shop.');
27: Typesend('My father is insener.');
28: Typesend('Do u beleave in ghosts?');
29: Typesend('Have u met Santa?');
30: FTWait(4);
end;
end;
procedure ChopLogs;
var
x, y, chopstart, entfound: integer;
begin
if not (check4tree) then logout;
repeat
if (not (LoggedIn)) then exit;
if InvCount = 28 then Exit;
FindRandoms;
AutoTrader;
AutoResponder;
Wait(500 + random(500));
if FindTree(x, y, treetochop, true) then
begin
Mouse(x, y, 0, 0, True);
Getmousepos(x, y); //annab scarile teada, kus hiir on.
FFlag(0); //enne ei tee midagi kuni lipp ära kaob.
MarkTime(chopstart); //märgib ära puu klikkamise aja. käivitab aja.
repeat //kui leiab puu, aga ei kliki, ja leiab ka endi
if FindEnt(x, y, True) then FindRandoms;
EntFound := EntFound + 1;
FindRandoms;
FTWait(1); //otsib viimaselt realt.
if FindBlackChatMessage('cutting level of') then break;
Wait(250);
if FindBlackChatMessage('have an axe') then
begin
break;
end;
FTWait(1);
until (not loggedIn) or (not isuptext('hop')) or (TimeFromMark(Chopstart) > (30000 + random(15000)));
end;
until (InvFull) and (InvCount = 28) or (not loggedIn);
end;
//invcount-> asjad palju invis on.
procedure ProgressReport;
begin
SrlRandomsReport;
writeln('========================');
Writeln('Heavens''s AutoChopper');
Writeln('Worked:' + timerunning);
Writeln('Dropped ' + inttostr(LogsDropped) + ' logs.');
Writeln('Dropped ' + inttostr(Loads) + ' loads.');
Writeln('Talked ' + inttostr(MadeRespond) + ' times to other ppl.');
Writeln('Made ' + inttostr(Trades) + ' trades.');
writeln('Please post proggies at my script homepage.');
writeln('========================');
end;
procedure AntiBan;
begin
if (not (LoggedIn)) then exit;
case random(20) of
0: SetRun(true);
1: wait2(3000 + random(2000), true);
2: RandomMovement;
3: AlmostLogout;
4: PickUpMouse;
5: BoredHuman;
6: HoverSkill('woodcutting', false);
7: HoverSkill('random', false);
8: RandomTalk;
9: HoverToSkill;
10: DoEmote(1 + random(30));
end;
end;
procedure Playersetup;
var
lvlcomment, wclvl: integer;
begin
Loginplayer;
Wait(2000 + random(1000));
SetAngle(true);
MakeCompass('n');
FindRandoms;
Setrun(true);
RPlayerTime := TimeForPlayer + Random(5);
MarkTime(PlayerTime);
First := True;
Check4axe;
if loggedIn then
begin
WcLvl := GetSkillInfo('woodcutting', false);
if wclvl > 0 then
Writeln('Wc lvl = ' + inttostr(wclvl))
else
begin
Writeln('Error with getting wc lvl.')
Logout;
end;
if LoggedIn then
for lvlcomment := 0 to 3 do
case lvlcomment of
0:
begin
if (wclvl > 0) and (wclvl < 15) then
Writeln('Uhh, you can''t even cut oaks with wc lvl of' + inttostr(wclvl));
end;
1:
begin
if (wclvl > 14) and (wclvl < 30) then
Writeln('Pretty nice WC, best for chopping oaks, or ' + inttostr(wclvl) + ' isn''t enough for you? =]');
end;
2:
begin
if (wclvl > 29) and (wclvl < 60) then
Writeln('Nice WC level,' + inttostr(60 - wclvl) + ' levels more and you''re ready for yews!');
end;
3:
begin
if (wclvl >= 60) then
Writeln('Dude, you ROCK!...Wow, ' + inttostr(wclvl) + ' WC!');
end;
end;
end;
end;
function SwitchPlayers: Boolean;
begin
if (TimeFromMark(playertime) / 60 / 1000 > RPlayerTime) then
begin
Result := True;
WriteLn('Time is up');
end
else
Result := False;
end;
begin
SmartSetupEx(World, False, False);
SetTargetDC(SmartGetDC);
SRLId := YourSRLId;
SRLPassword := YourSRLPassword;
SetupSRL;
ScriptID := '592'; //592 on mu scripti ID.
Declareplayers;
Sig;
repeat
PlayerSetup;
repeat
Disguise('Dropped ' + inttostr(LogsDropped) +' Logs');
ChopLogs;
Droplogs;
AntiBan;
ProgressReport;
until (not loggedin) or (SwitchPlayers);
Nextplayer(Loggedin);
until False;
end.
I edited some things, like the S.m.a.r.t world thing.
I run this with SCAR 3.12 (Or 3.14, also works), with SRL 4 REV #12/13 (Min. 12 for S.m.a.r.t)
That's not necessary,Quote:
Originally Posted by floor66
Eerik.
Wait don't apply. I ran it at night and hoped it would run overnight.Quote:
Originally Posted by heavenzeyez1
2 Died
1 Hit By Random (Freaky Most Probably)
3 Were in the right place
It went through all the players and then didn't restart and go back to player 1 ? You may want to add this into the script. It'd be relatively easy, I've done it now. But I think be better for you to learn how to do it :D
Otherwise Its a good script. Heres my proggie :D
========================
Heavens's AutoChopper
Worked:3 Hours, 33 Minutes and 26 Seconds
Dropped 1286 logs.
Dropped 31 loads.
Talked 6 times to other ppl.
Made 0 trades.
Please post proggies at my script homepage.
========================
========================
Heavens's AutoChopper
Worked:3 Hours, 33 Minutes and 26 Seconds
Dropped 1286 logs.
Dropped 31 loads.
Talked 6 times to other ppl.
Made 0 trades.
Please post proggies at my script homepage.
========================
========================
Heavens's AutoChopper
Worked:3 Hours, 7 Minutes and 20 Seconds
Dropped 1286 logs.
Dropped 31 loads.
Talked 3 times to other ppl.
Made 0 trades.
Please post proggies at my script homepage.
========================
========================
Heavens's AutoChopper
Worked:3 Hours, 2 Minutes and 42 Seconds
Dropped 1243 logs.
Dropped 30 loads.
Talked 3 times to other ppl.
Made 0 trades.
Please post proggies at my script homepage.
========================
========================
Heavens's AutoChopper
Worked:2 Hours, 56 Minutes and 0 Seconds
Dropped 1191 logs.
Dropped 29 loads.
Talked 3 times to other ppl.
Made 0 trades.
Please post proggies at my script homepage.
========================
========================
Heavens's AutoChopper
Worked:2 Hours, 49 Minutes and 40 Seconds
Dropped 1150 logs.
Dropped 28 loads.
Talked 2 times to other ppl.
Made 0 trades.
Please post proggies at my script homepage.
========================
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| SRL 4 Randoms Report |
| www.srl-forums.com |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| SRL Logs : 13 |
| Fights : 1 |
| Talks : 10 |
| Ricks : 1 |
| Old Men : 1 |
| Lamps Solved : 2 |
| Frog Solved : 1 |
| Capn Hand[s] : 2 |
| Certers Missed : 1 |
| Boxes Solved : 1 |
| Death[s] : 2 |
| Ents Found : 1 |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
Hmm, it restarts players good, when i ran it.;)Quote:
Originally Posted by death2u
Eerik, and thanks for the proggy. :)
[Runtime Error] : Exception: Access violation at address 027E10AB in module 'Embedded SMART.dll'. Read of address 000006DC in line 47 in script C:\Users\Ryan\SCAR 3.14\includes\SRL/SRL/Misc/Smart.scar
Hey this is a good script dawg. Nice work man. Any if u noticed, you kept your passwords in the latest release. gotta watch out.
Another thing, It doesn't run away from fights (Thats why theres so many deaths recorded for your script )
i run this for a long time and post my proggie
There's problem with u'r SMART. :)Quote:
Originally Posted by Crunk_Muffin
I'll be waiting. ;)Quote:
Originally Posted by feirydoom
??Quote:
Originally Posted by kingarabian
It should?..I'll check it out. :)Quote:
Originally Posted by death2u
Thanks,
But the deaths in proggie can come when u chop in Lumby.;)
And THANKS ALL, Hope to see some proggies, too. :)
Eerik.
It says current player not active. I want to use SMART how do I do that?
My script is created after that, u must setup ur SMART first. ;)Quote:
Originally Posted by Not a L33cher
http://www.villavu.com/forum/showthread.php?t=21279
Eerik.
Oh now I get it thanks gonna see if it works now.
Proggy:
========================
Heavens's AutoChopper
Worked:6 Minutes and 15 Seconds
Dropped 49 logs.
Dropped 1 loads.
Talked 0 times to other ppl.
Made 0 trades.
Please post proggies at my script homepage.
========================
tree found.
========================
Heavens's AutoChopper
Worked:9 Minutes and 19 Seconds
Dropped 49 logs.
Dropped 1 loads.
Talked 0 times to other ppl.
Made 0 trades.
Please post proggies at my script homepage.
========================
Stopped Manually?Quote:
Originally Posted by Not a L33cher
Thanks,
Eerik.
Thats the problem, no it stopped by itself.
Copy here ur DeclarePlayers Procedure. :)
So i will see, if the problem is there;)
Eerik.
New proggy:
========================
Heavens's AutoChopper
Worked:1 Hours, 28 Minutes and 57 Seconds
Dropped 566 logs.
Dropped 13 loads.
Talked 0 times to other ppl.
Made 0 trades.
Please post proggies at my script homepage.
========================
Got
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| SRL 4 Randoms Report |
| www.srl-forums.com |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| SRL Logs : 1 |
| Talks : 2 |
| Old Men : 2 |
| Boxes Solved : 2 |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
Heavens's AutoChopper
Worked:1 Hours, 13 Minutes and 45 Seconds
Dropped 824 logs.
Dropped 19 loads.
Talked 0 times to other ppl.
Made 0 trades.
Please post proggies at my script homepage.
Btw man I edited the script to include teak trees aswell, if you would like to incorporate it into your next update, just pm me
1 user?:OQuote:
Originally Posted by Not a L33cher
Thanks anyways, :p ;)
Eerik.
Just keep it private :pQuote:
Originally Posted by Crunk_Muffin
And thanks for the proggy,;)
Eerik.
hey
heres a quick 1 i did
ill get a longer 1 tonight ill run over night
Quote:
========================
Heavens's AutoChopper
Worked:3 Hours, 1 Minutes and 38 Seconds
Dropped 1768 logs.
Dropped 39 loads.
Talked 0 times to other ppl.
Made 0 trades.
Please post proggies at my script homepage.
========================
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| SRL 4 Randoms Report |
| www.srl-forums.com |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| SRL Logs : 8 |
| Talks : 8 |
| Ricks : 3 |
| Old Men : 3 |
| Lamps Solved : 2 |
| Frog Solved : 1 |
| Boxes Solved : 1 |
| Death[s] : 1 |
| Ents Found : 3 |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
Hey,Quote:
Originally Posted by hayhay89
Thanks, ;)
Eerik.
========================
Heavens's AutoChopper
Worked:6 Hours, 55 Minutes and 40 Seconds
Dropped 4813 logs.
Dropped 106 loads.
Talked 0 times to other ppl.
Made 0 trades.
Please post proggies at my script homepage.
best one yet. NO RANDOMS !?
NiceNice!!!Quote:
Originally Posted by Crunk_Muffin
It has Randoms;) Make sure u set up ur NickNames correct. :)
Thanks, ;)
Eerik.
No, it really is no randoms. I auto wc in a secret place I found that has NO randoms. Please don't ask where because this is too good, I can't let jagex realise it.Quote:
Originally Posted by heavenzeyez1
But yeah, 6 hours.
Worked:1 Hours, 41 Minutes and 0 Seconds
Dropped 843 logs.
Dropped 21 loads.
Talked 0 times to other ppl.
Made 0 trades.
Please post proggies at my script homepage.
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| SRL 4 Randoms Report |
| www.srl-forums.com |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| SRL Logs : 21 |
| Talks : 5 |
| Dwarfs : 1 |
| Old Men : 2 |
| Sandwiches : 1 |
| Lamps Solved : 2 |
| Boxes Solved : 2 |
| Ents Found : 6 |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
not bad, not bad
actually
very good;)
but the findfight doesnt work
(srl error)
thats the only bug in the script..
the dropping isnt very fast...
otherwise
great script:D
Go ahead, keep autoing out there. :)Quote:
Originally Posted by Crunk_Muffin
6 Hours FTW, Thanks again,
Eerik.
Yes, FindFight is ATM SRL problem.Quote:
Originally Posted by pvh
If u want faster Dropping, just go to Procedure DropLogs and then Change the Wait(ChangeThis) to smaller number. :)
Thanks, ;)
Eerik.
If you add the line: Players[CurrentPlayer].Level[8] := GetSkillInfo('hitpoints', False); in your playersetup procedure within the if LoggedIn statement (between line 488 & 489) then FindFight will work perfectly.
SCAR Code:First := True;
Check4axe;
if loggedIn then
begin
Players[CurrentPlayer].Level[8] := GetSkillInfo('hitpoints', False); //<<-----
WcLvl := GetSkillInfo('woodcutting', false);
if wclvl > 0 then
Writeln('Wc lvl = ' + inttostr(wclvl))
else
begin
Writeln('Error with getting wc lvl.');
It will be properly fixed in SRL 14 but that could take for ever to come out or be out tommorow..
This fix does not break anything and when SRL 14 comes out it does not need removing.
Thanks,Quote:
Originally Posted by PriSoner
Eerik,
I will add that. :)
using it as im typing this, working like a dream, ill post proggie when i come back home. running it on my main cuz he needs wc lvls so i hope its 100% safe lol..
thanks a lot
~~~~ Reserved for proggies ~~~~~
yours,
prince
I tried this by my own..Quote:
Originally Posted by PriSoner
but it did NOT work :(
error:
Line 494: [Error] (13511:1): Unknown identifier 'WcLvl' in script
what do i do wrong?
WcLvl is an integer and must be declared in Global(in begin of the script or declare it in Procedure's Variables. Like that->Quote:
Originally Posted by pvh
BTW it should be there already? :rolleyes:SCAR Code:Procedure PlayerSetup;
var
WcLvls:Integer;
Eerik.
It should be, u can always add the FindFight Update from Prisoner's message. :)Quote:
Originally Posted by prince
But i suggest at least 2 players. ;)
Eerik.
we should not change it in line 488-489Quote:
Originally Posted by heavenzeyez1
but in line:
506-507 ;)
im gonna test it now;)
(findfight)
U don't declare variables in the middle of the script? :OQuote:
Originally Posted by pvh
Eerik.
Tried it on willows:
========================
Heavens's AutoChopper
Worked:1 Hours, 11 Minutes and 48 Seconds
Dropped 320 logs.
Dropped 7 loads.
Talked 6 times to other ppl.
Made 0 trades.
Please post proggies at my script homepage.
========================
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| SRL 4 Randoms Report |
| www.srl-forums.com |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| Talks : 1 |
| Dwarfs : 1 |
| Boxes Solved : 1 |
| Death[s] : 1 |
| Ents Found : 2 |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
It "Double Drops" the logs. Thinking that it dropped twice what it actually dropped. Like I have a whole inventory and then it drop it all thinking it dropped 56 logs.
That's because u lagg...
I'll get and update out soon. :)
So i'll fix the dropping time. :)
Eerik.
Edit: Update should be out today, atm working on my Regular Tree Banker. :)
[Runtime Error] : Exception: Access violation at address 020D10AB in module 'Embedded SMART.dll'. Read of address 000006DC in line 47 in script
usin scar 3.14 and rev 13 :rolleyes: any help?
|:::|:|¨¨::|::::|¨¨|
|---|:|--- ::|::::|__|
|:::|:|___:|__:|
Hmm..Try out v2?:)Quote:
Originally Posted by klinnks
BUMP!!!
V 2.0 out. Dropping thing updated, + entfinder will work!! ;)
Eerik.
Line 361: [Error] (13378:23): comma (',') expected in script C:\Documents and Settings\Marcin\Desktop\Heaven'z Powercutter v2.0.scar
using scar 43,14 srl 4.13
help?
tessting v2 now and congratz on srl member u rock!
error comma error for ever 1 getting this put
this in drop procedure
if your too nooby to do this then go away and read some tutsQuote:
if finddtm(logdtm, x, y, MIX1, MIY1, MIX2, MIY2) then
begin
Wait(100 + random(50));
Mouse(x, y, 2, 2, (false));
wait(100 + random(51));
Chooseoption('rop');
Wait(1000+ random(100));
Inc(reportvars[0]);
LogsDropped := LogsDropped + 1
FTWait(1);
begin
i fixed it before you :P