PDA

View Full Version : 1st script: CuT and BuRn 0.55 Alpha



lefamaster
03-14-2007, 04:58 PM
CUT_AND_BURN VERSION 0.70 Has been released!

Okay after much effort to learn DTM's I am proud to release a whole new take on this project.

What it does:
1. Cuts down logs and oaks.
2. Burns ALL logs and oaks.
3. Returns back to just north of Draynor Market, and repeats.
4. No longer drops logs, and will quit burning logs once out.
5. Will move if detects that it can't make a fire.

New functions only click on logs and tinderbox, and will move if can't make fire. After firemaking will return back to just north of draynor.
No longer drops random items.

Start the script just North of Draynor Market Seed Stall.
Equip as many axes as you like.
Enjoy!
EASY TO LEVEL FIRE AND WOODCUTTING AT SAME TIME ON NOOB ACCOUNTS!!!!!

Currnet fixes--------3-23-07
Main Loop fixed 3-23-07!! Thanks to Wt-fakawi for the insight!!!
added bitmap detection to return back to draynor. will tweak on this some more.


NEED PROGGY REPORTS FOLKS!
Thanks for everyone who is helping me to improve and learn from this.

WT-Fakawi
03-14-2007, 05:29 PM
Not Bad, Nr.1! The burn is a lil' oversized.... This can be truncated to 5 or 6 lines :) and
Replace Wait with FTWait. No worries, we all started out like this! Good work, keep 'm coming.

the scar noob
03-14-2007, 08:21 PM
Plz someone edit this post, he left his username and passes in it, i tried and they are changed!!
You're lucky!!

EDIT: Btw, why a dropping procedure when it suppose to burn them?

JuKKa
03-14-2007, 09:13 PM
ur: procedure burn; is reaaally horible.. please use a repeat or something .. and use color finding its a bit more safer fix this standars:



end;
begin
if not loggedin then
RandomNextPlayer(True);
If Not(loggedin) Then
LoginPlayer;

end;
end;


and this:



if (AxeWielded='1') Then
Begin
Ban;
Responder;
DropTo(3,28);
FindNormalRandoms;
Loads:= Loads + 1;
End else


add a line to ur player declarations:


Players[Currentplayer].boolean:= True; //True for equipped false not..


and ur responder lagged me like froze my whole screen add waits!


instead of this;



if findcolorspiral(x,y,Treecolor1,3,3,515,336)or
findcolorspiral(x,y,Treecolor2,3,3,515,336)or
findcolorspiral(x,y,Treecolor3,3,3,515,336) then


use this:



if FindMSColor(x,y,Treecolor1)or
FindMSColor(x,y,Treecolor2)or
FindMSColor(x,y,Treecolor3) then



and finally i think... the end...



begin
if not loggedin then
LoginPlayer;
end;



end;


End;
end;
end.


pressed a bit to many times enter here..?

else its quite good script for starters.. i think :p

lefamaster
03-14-2007, 09:18 PM
Kewl...i pulled it down to remove the user names/ passwords. duh.
i am at work so it may take a while, but hey it beats working.

Thanks for the many great insights and directions juKKa, I was just sort of stabbing at anything I could find in the dark.

the scar noob
03-14-2007, 09:27 PM
What about that drop??
and Jukka i agree with that repeat but about those standardizing, this is the first script of this dude, i don't think that even someone's first script was standardized...

lefamaster
03-14-2007, 09:59 PM
Okay many many questions.
1) I changed the findColorSpirial to FindMSColor will test to see the difference. What is the main difference?

2)
By Drunkenoldma
Players[Currentplayer].boolean:= True; //True for equipped false not..
I can't get this to work for the life of me? It wrecks my compile when i try to drop it as into the procedure DeclarePlayers. where/ how do i put it?

3)How would I condense the burn procedure into a simple repeat? (without an infinite loop)

4)The "drop" is due to a lack of knowledge on how to get it to detect if a fire already exists, or can't be built. I read through a great deal of the SRL Manuals Firemaking Skills section, but couldn't get the syntax of the procedures to compile....i need an example.

casinbonuscod
03-15-2007, 04:00 AM
.

JuKKa
03-15-2007, 06:48 AM
what the hell is it with that casino?!

well use it like this:


Players[0].Name := ''; //Username
Players[0].Pass := ''; //Password
Players[0].Nick := ''; //3 or 4 letters username
Players[0].Boolean1 := True; //True for weilded, false not
Players[0].Skill := 'Woodcutting'; //The skill for when you get a lamp
Players[0].Active := True;



procedure dropit;
begin
if (Players[Currentplayer].boolean1 Then
Begin
Ban;
Responder;
DropTo(3,28);
FindNormalRandoms;
Loads:= Loads + 1;
End else
if (not(Players[Currentplayer].boolean1 Then
Begin
Ban;
Responder;
DropTo(3,28);
FindNormalRandoms;
Loads:= Loads + 1;
begin
if not loggedin then
RandomNextPlayer(True);
end;

end;
End;

YoHoJo
03-15-2007, 06:56 AM
Not another one of those add poster accs.
Wizzup already banned about 2.
And still, they dont even link to porn =(.

the scar noob
03-15-2007, 09:54 AM
Not another one of those add poster accs.
Wizzup already banned about 2.
And still, they dont even link to porn =(.
Hahaha, lol but now really, what a bout that log dropiing if it suppose to burn??:f:

lefamaster
03-16-2007, 10:03 PM
Version now .57
Added SRL Userstats and Script ID.
Need some serious help here, on cleaning up the burn procedure still.

Trying to focus on standardization....any pointers?
Also have a kink in the loop for the playerarry still....it stops at the last player and doesn't log in the next. Can someone help me on this also.
Please....for the love of all that is lefa....help me!

thanks, and pardon the desperation.

the scar noob
03-16-2007, 10:26 PM
.. why a dropping procedure if it should burn the logs??
When are you willing to answer my question??

lefamaster
03-16-2007, 10:35 PM
I thought I answered this in above post.

The SRL Manaul makes reference to as few procedures...

var Fire, Tinderbox, LogMask: Integer;
Description:
Variables containing the firemaking bitmaps.

procedure LoadFireMakingBitmaps;
By: WT-Fakawi
Description:
Loads bitmaps into memory or frees it from memory.

function CantLightCheck: Boolean;
By: Dankness
Description:
Results True if able to light logs

procedure LightWait;
By: Dankness
Description:
Waits till Logs are Lighted

function WeHaveLogs(var WhereX, WhereY: Integer): Boolean;
By: WT-Fakawi
Description:
Checks if there is Logs in your Inventory Returns X,Y Cords of Log

function ThereIsFire(var WhereX, WhereY: Integer): Boolean;
By: WT-Fakawi
Description:
Checks if there is Fire in MainScreen Returns X,Y Cords

I really don't know how to use any of these yet. I need an example...or a nudge in the right direction.

I know it needs to do this.

1. Check to see if a fire already exist, and if does move
2. Check to see if a flower, or other bush is there, and if does move.
3. Wait a appropriate time then move on to another fire.
4. Burn all logs.
5. Re-center it self in groove of tree...if it makes fires beyond trees.

The drop was due to a lack of knowledge of the above procedure...can you illuminate these for me?

TOB
03-16-2007, 10:38 PM
http://kaitnieks.com/scar/scriptingsta

Also, I have a partial script doing this thing which I may finish :p

lefamaster
03-16-2007, 10:44 PM
Kewl TOB, and thanks for the standard link.
I look forward to your release, as I would love to see an example of this in action.
You just don't see too many fire scripts out there.

lefamaster
03-22-2007, 06:46 PM
VERSION 0.68 just released. New functions with DTM's included.


.. why a dropping procedure if it should burn the logs??
When are you willing to answer my question??
and I finally fixed it so it burns them ALL!

oh...and I left three accounts in there as a bonus to the first person who actually downloads it and looks inside the script. ~On PURPOSE~

enjoy!
Tell me what how to improve it even more!!

Smartzkid
03-22-2007, 07:34 PM
Line 397 needs to be fixed...look at it and you'll see what I mean

EDIT: Actually, theres a ton of them in there...do a search (ctrl+f) for movemouse...

lefamaster
03-23-2007, 05:58 PM
VERSION 0.69 Released. 3-23-07. Main loop fixed and other stuff.



Line 397 needs to be fixed...look at it and you'll see what I mean

EDIT: Actually, theres a ton of them in there...do a search (ctrl+f) for movemouse...



please explain what you mean here? I was trying to use FTwait but don't really know the difference.

Smartzkid
03-23-2007, 06:21 PM
on line 397, and a lot of other lines, you used movemouse+clickmouse instead of mouse

just hit [ctrl]+[f] and type in 'movemouse'. That will show you everywhere that your script has movemouse in it.

lefamaster
03-23-2007, 10:33 PM
VERSION 0.70 Released. Fixed all clickmouse and replace with mouse. added new move procedure, for when making fires.

Thanks for the tip Smartzkid, that helped answer alot of questions I had on clickmouse vs. mouse. I appreciate the help.

Ran this pretty long at work on two PC's and seemed to find its way back and repeat fairly well.
Look forward to any feedback, Thnaks!

legendaryhero90
03-23-2007, 11:09 PM
Not another one of those add poster accs.
Wizzup already banned about 2.
And still, they dont even link to porn =(.

im guessing thats all you think about...

and this script lags a lot!

it didnt even move after logging in?!??!

wtf? :eek:

EDIT: ok didnt see the updated one lol

ill try that too

Suad1234515
09-03-2007, 03:35 PM
This is awsome! now i dont have to spend millions of hours burning logs THX

markel
09-05-2007, 03:45 AM
ill try this out.

Nebuli
09-05-2007, 05:21 AM
Grave diggers...

asdffff
09-09-2007, 03:04 AM
ill try this out:D

cris2
09-24-2007, 08:52 PM
ima download this and try it out on one of my newb skillers cheers, if i get it too work ill leav a prog report :)

optikal
09-30-2007, 05:48 PM
this script looks ok thank you , took quite alot of editing to get it to work id shaw you what i changed but i deleted so much

batal
10-01-2007, 04:08 PM
This script works fine but you need to fix some of the editing.

jalentik
10-03-2007, 02:16 AM
for some reason it wont run for me. everytime i try to run any type of script it gives me a [runtime error] or something. on this one:

Line 73: [Error] (15081:12): Unknown identifier 'BOOLEAN1' in script C:\Documents and Settings\Jalen\Local Settings\Temporary Internet Files\Content.IE5\D6S2X6A5\cut_and_burn0[1].70%5Bpub%5D.scar

is there something im supposed to be doin?

Tim0suprem0
10-03-2007, 03:36 AM
03-23-2007, 06:09 PM

Please look at the date guys this script is waaaaay old.

cracker667
10-07-2007, 04:28 AM
:google:
Looks Good To Me Ty Man

DillonSykes
10-07-2007, 05:09 AM
Thanks, This looks pretty good!!!!

yeahdudeirock
10-09-2007, 12:05 AM
great for ur first man

yeahdudeirock
10-09-2007, 12:06 AM
oh yeah btw it would be even better if u try and make this work on yews or willows lol.... might take a bit of time but get sum help, anyway its great how it is

noahthepoo
10-30-2007, 09:40 AM
it i not working for me .....im new idk why.

qwix
10-30-2007, 01:05 PM
nice i like it

geforce
10-30-2007, 01:20 PM
dont work for me

ssaccount
11-01-2007, 09:34 PM
looks very nice gotta try it now

wesleyxD
11-16-2007, 11:57 AM
its good first script but maybe you can add willows or maples or yews

Binney911
11-24-2007, 12:31 AM
nice scripting works good

Valii
01-09-2008, 10:37 AM
Whats this? The problem...

Line 73: [Error] (15081:12): Unknown identifier 'BOOLEAN1' in script C:\DOCUME~1\Atk-opp\LOCALS~1\Temp\cut_and_burn0.70[pub].scar

Melvin12
01-12-2008, 03:01 AM
Line 73: [Error] (15081:12): Unknown identifier 'BOOLEAN1' in script C:\Documents and Settings\Melvin\Desktop\cut_and_burn0.70[pub].scar
Failed when compiling
Line 72: [Error] (15080:24): Unknown identifier 'BOOLEAN' in script C:\Documents and Settings\Melvin\Desktop\cut_and_burn0.70[pub].scar

HayHay89
01-12-2008, 03:11 AM
people this script is so old

DONT GRAVEDIG
the owner hasnt been on srl for 4 months

shadeslayer
06-12-2008, 09:32 AM
do it still work?