SRL Archive - RS3 Outdated / Broken Scripts

Draynor Cutter by Griff721


Griff

2008-07-26 23:37:41

Hey, all! I am releasing this other Draynor Cutter n banker! Place all players in the Draynor bank, fill in lines 22-35, and run the script! I am hoping for lots of feedback on how the script ran, and how it got stopped.



Version 1
Cuts Draynor Trees b Banks them with anti-ban and anti-random
for rev 20

version 1.1
Wow, Walk didnt work! Okay, now its working, its TESTED PROPERLY
version 1.2
Fixed walking, now uses both radial and DDTM's you have to set colors in the constants before running the script. by Griff721 and Blumblebee

Version 1.3
MUCH smoother walking from willows to bank, and bank to willows. Fixed chopping, it finds the trees almost always, and fixed writing in debug box, doesnt go crazy when something goes wrong.

Version 1.4

Walking almost flawless, and chopping improved MAJORLY with TPAs

version 1.5
Completely RE-MADE chopping procedure, now doesn;y just keep clicking the tree, it realises when it is down. Also, much better walking yet again. We really went deep into anti-ban and randoms, too. (Thanks To death for all the help! :D)

Version 1.5(2)
Fixed anti-randoms, added SMART.

Twisted

2008-07-27 00:38:16

How is this 5stars without any1 downloading?

EDIT: Nevermind… You voted.

Griff

2008-07-27 00:39:52

hmm no idea :D I guess people were like wow… its griff721 he must be good

Harry

2008-07-27 00:44:03

From: griff721
hmm no idea :D I guess people were like wow… its griff721 he must be good


Hahaha, that's the quote of the day :p

You need to fix your standards, use autocolour more, and use a better object finder than FindObjCustom (Ex: FindObjTPA), and make the AntiChat procedure not make so much lag, and it will be good for the most part :p

Twisted

2008-07-27 00:46:39

Here's some advice:

1. Better standards.
2. Dtms (or better DDTM's)
3. TPA's > Obj :P
4. for run, just do SetRun.
5. Just use MIX1, MIY1, MIX2, MIY2 (Main Inventory) instead of giving ur own coords.

Just some advice.

-Twisted

P1nky

2008-07-27 00:46:59

are you sure this works..

RadialWalk over grass it changes bro lol.. wont work unless used AC

Twisted

2008-07-27 00:49:59

Did you test this?

P1nky

2008-07-27 00:55:21

Twisted aint i right lol…

it changes grass color every login lol..

:) so it cant be working..

Griff

2008-07-27 00:58:22

Wadya know, Walk doesnt work… It worked for my testing but w/e. This brings me to update number one

P1nky

2008-07-27 01:01:11

still wont work…

lol idk evn if that possible :O use AC

Griff

2008-07-27 01:08:59

I just updated it.. Use 1.1 and it works

P1nky

2008-07-27 01:15:05

ugh dude no…

grass cxhanges colors everytime

eh nvm i explained already

Griff

2008-07-27 01:22:24

Yeah i know I saw that thanks… But I updated it works now targeting the fishing spot instead of grass

BobboHobbo

2008-07-27 04:04:47

DUDE you left your USERNAME AND PASSWORD. PMing you the new one.

Griff

2008-07-27 12:27:43

thanks bobbo, I'll be MUCH more carefull next time

Blumblebee

2008-07-29 21:55:46

haha much better, the walking finally works i did some pretty good work haha.
Proggy W00t!
<~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>
XXXXXX <<Progress Report>> XXXXXX
[——————————————————-]
>> Script Ran For 33 Minutes and 13 Seconds
>>>> Willows Chopped 270 Log.
>>>>>>>>>>>>>>>>>
Manually stopped

BobboHobbo

2008-07-30 07:19:52

Haha, someones using my DDTM tut w00t :P.

Also to run you jsut do SetRun(True); false to walk.

Griff

2008-07-30 11:49:36

Lol yeah, your tut ownz thanks

Claymore

2008-07-30 16:04:21

lol, here is some edited stuff

procedure AntiChat;
begin
if (InChat('wc')) then
TypeSend('99');
if (InChat(Players[CurrentPlayer].Nick)) then
TypeSend('leave me alone');
if (InChat('hey')) then
TypeSend('hows it going?');
if (InChat('sup?')) then
TypeSend('nm nm');
if (InChat('lol')) then
TypeSend('lmao');
if (InChat('boring')) then
TypeSend('I know...');
if (InChat('Griff721 is sexy')) then
TypeSend('thanks you....');
end;

its TypeSend, get it right =3


procedure Run;
begin
SetRun(True);
end;

SRL Works better and plus it is less detectable =3


RadialWalk(FindStoneColor,150,250,72,4,4) then

{RadialWalk(FindWaterColor,150,250,72,4,4) then. This will click on the watter near the trees, otherwise use the stone one}

Much better right, thats auto coloring right there!


FindObjTPA(x, y, 4876128, 20, 2, 15, 25, 10, ['illow', 'Willo', 'Willow'])

TPA's are better


if FindObjCustom(x, y, ['Wil', 'low'], [3564109,1321507, 3168582], 7) then
begin
MarkTime(Timer);
Mouse(x, y, 0, 0, False);
if ChooseOption('hop') then
repeat
case Random(15) of
2: MouseBox(MSx1, MSy1, MSx2, MSy2, 3);
4: HoverSkill('Woodcutting', False);
5: MouseBox(MIx1, MIy1, MIx2, MIy2, 3);
7: HoverSkill('WoodCutting', False);
end;
AntiChat;
until (TimeFromMark(Timer) >= (15000 + Random(1500))) or (InvFull) or (not (LoggedIn));
end;

Set a timer when cutting willows (This is for your level, other people prefer waiting till the IsUpText does not appear when the tree is down.) This will prevent having to click and click every 10 seconds. BAD! Reminder, it is measured in milli seconds


1000 ms = 1s
60s = 1m
60m = 1hr
etc


function Banking: Boolean;
begin
if (InvFull) then
begin
OpenBankFast('db');
FFlag(0);
Wait(500);
if (BankScreen) then
begin
Deposit(2, 28, True);
Wait(50);
end
else
LogOut;
end;

USE SRL! Everyone (Even Wizzup?, PvH, or any great scripters uses them.)

Sigh…. I learned alot from myself, you should have to!

Blumblebee

2008-07-30 16:11:55

thanks for the tips on the auto coloring, but i tihn your not looking at our new update when your talking about our banking, we use dtm's in the banking and we are in the process of rewriting our chopping proceedure, thanks for the feedback and we'll try to improve the script as best we can

Griff

2008-07-30 16:46:09

yeah thanks death, ima try and make the chopping procedure much cleaner, so it doesnt have to keep clicking all the time

Griff

2008-07-30 17:47:18

WOOOOOO version 1.4 is out, hope you all like it!

hootman

2008-07-30 17:57:06

i got this error the second time after it logged me in but did nothing

Line 176: [Hint] (15822:1): Variable 'MYMARK' never used in script C:\Documents and Settings\Jason R Milne\Desktop\Version 1.4 By Griff721 and Blumblebee.scar
Line 305: [Hint] (15951:10): Variable 'Result' never used in script C:\Documents and Settings\Jason R Milne\Desktop\Version 1.4 By Griff721 and Blumblebee.scar
Line 28: [Hint] (15674:15): Variable 'CX' never used in script C:\Documents and Settings\Jason R Milne\Desktop\Version 1.4 By Griff721 and Blumblebee.scar
Line 28: [Hint] (15674:15): Variable 'CY' never used in script C:\Documents and Settings\Jason R Milne\Desktop\Version 1.4 By Griff721 and Blumblebee.scar
Line 29: [Hint] (15675:1): Variable 'MYMARK' never used in script C:\Documents and Settings\Jason R Milne\Desktop\Version 1.4 By Griff721 and Blumblebee.scar

hootman

2008-07-30 18:00:13

Also it loggs in then does nothing what am i doing wrong?

Blumblebee

2008-07-30 18:44:28

those are hints lol not errors and it sohuldn't it works fine for use, are u using version 1.4?
also, do you have your rev 20 and it works best if your in the bottom bank slot of Draynor Bank? although thats not necessary, i'm really not sure what your problem is though

Claymore

2008-07-30 22:30:36

which thread is the one your using? This or the one in first script section ;p

Anyways, if you need help or some tutoring, PM me.

Griff

2008-07-30 22:56:55

haha both XD and i think we re fine, although if you could help with the anti randoms, we have them but they don't seem to work as well as we want them to

Claymore

2008-07-31 01:32:34

How To Set Up Anti Randoms
-

FindNormalRandoms;

Anywhere! This solves all randoms (Trust me, solved Certer to Old Man to Frogs, vice versa)

To make the Anti Randoms work do the following.

[1] - Make sure you did…


Players[1].Nick := 'ick';

[2] - Make sure you run the script logged out.

[3] - Make sure you have…


if (not (LoggedIn)) then
LogInPlayer;

[4] - Run the script, it should log in the player. This is how the Nick Name is then created, through SRL Log Ins. How it works? I don't know.

Griff

2008-07-31 01:44:13

Thanks a lot death, We will be sure to add that to version 1.5 (which is gonna be aweomse btw, with an amazing brand new chopping procedure in the making), so thanks a lot for the help.

Claymore

2008-07-31 01:52:19

No problem ;p Its what great SRL Members do ;p

Blumblebee

2008-07-31 02:51:31

ok yeah we have that too, I'm wondering if do we wanna run that in our mainloop or during our chopping procedure, and for finding fighting randoms how would i do that, i think theres something like findfight or sumthing along those lines but im not entirely sure. thanks

haha sorry i have so many questions, I've been learning scar for 2 days now and i want to absorb as much as possible thanks again

Claymore

2008-07-31 11:14:48


function MyAntiRandoms: Boolean;
begin
if (FindNormalRandoms) then
Result := True;
if (FindFight) then
begin
RunAwayTo('N', 1, 1500 + Random(500));
Result := True;
end;
end;

RunAwayTo : Runs away to the direction, wait 1 and a half second and a additional random 500 and then returns to position.

Blumblebee

2008-07-31 13:10:20

hey thanks man and im crediting you in our script :D

Griff

2008-07-31 14:12:02

yeah thanks a lot death, all your advice is making our script amazing :D

Claymore

2008-07-31 14:17:54

fella's thats just anti-randoms, there is nothing unique with that function. No need for credits, it is just nice to see a group of 2 people working on a script. Something i don't see in SRL alot.

Blumblebee

2008-07-31 14:32:21

haha thanks :D

Griff

2008-07-31 17:47:31

VERSION 1.5 RELEASED!!! Watch for the completely re-made chopping procedure, better walking yet again, and anti-randoms and anti-ban. See top post and script for more.

Blumblebee

2008-07-31 19:51:52

and someone stole the noob acc that we we re autoing with, this will slightly slow down our updates, as im going to have to get a new acc 30 wcing to continue working
-blumblebee
E: Done lol

Griff

2008-07-31 21:11:11

lol NOT STEWII

Claymore

2008-07-31 22:28:00

Well guys, read my idea in the free for all section in your thread. SRLPlayerForm saves data inside your SRL rather than your script.

Griff

2008-08-01 00:33:20

Me and Blumblebee are going on vacation for a week! No we are not going together, just coincidence that were going at the same time. Hold tight got just 1 week!

Claymore

2008-08-01 00:35:28

can i work on the script ;p lol!

Blumblebee

2008-08-01 01:09:48

ill talk it over with griff and see what he thinks about it, I don't care really you seem to know what your doing, I'll give griff a shout tomorrow before I leave then I'll give you an answer.

Griff

2008-08-02 21:37:58

Yeah, Death control is yours while we are gone. BTW im back for 2 days, then im off again.

Blumblebee

2008-08-05 23:22:44

sigh dude ur so pathetic…
Stop spamming!

Griff

2008-08-06 23:08:30

meh, I just kinda wanted our script to be at the top of the list again :D
And i have a sick version coming out when i get home friday or saturday

Claymore

2008-08-06 23:46:43

5 Post… Id give you a Warning…. The only way you can get this script up top is to make it more advanced. this script belongs to the free section or first scripts. no offence

Griff

2008-08-09 18:03:12

Hmmm Version 1.6 in frist script seciotn

jkmaster

2008-08-17 19:16:48

he septuple posted… meaning he posted 7 consecutive posts all by himself…. SPAM

Magiic

2008-08-19 05:20:07

big spam

Griff

2008-08-22 12:43:17

why thank you, sandos….. you joined a month ago and have 155 posts…. and your telling me I spam?
and now you come and gravedig an outdated script, not even talking about the script, but about other people spamming…. grats

Claymore

2008-08-26 18:30:31

You sort of spam, like 4 post in a row ;p

Well i found out your DDTM is wrong because you forgot to add TOLERANCE!


dtmMainPoint.Tolerance := 0;
//SHOULD BE
dtmMainPoint.Tolerance := 30; //could be higher

This applys to the SUBPOINTS ASWELL.


dtmSubPoints[0].AreaSize := 3;

change the area size of all subpoints to 3