SRL Archive - First Scripts

[H]CUT_AND_BURN VERSION 0.70 Has been released![/H]

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.

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.

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?

ur: procedure burn; is reaaally horible.. please use a repeat or something .. and use color finding its a bit more safer fix this standars:

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

end;
end;
[/Php]

and this:

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

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

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.

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…

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.

.

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;

Not another one of those add poster accs.
Wizzup already banned about 2.
And still, they dont even link to porn =(.

From: YoHoJo
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:

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.

.. why a dropping procedure if it should burn the logs??
When are you willing to answer my question??

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?

http://kaitnieks.com/scar/scriptingsta

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

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.

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!!

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…

[H]VERSION 0.69 Released. 3-23-07. Main loop fixed and other stuff. [/H]

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.

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.

[H]VERSION 0.70 Released. Fixed all clickmouse and replace with mouse. added new move procedure, for when making fires.[/H]

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!

From: YoHoJo
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

This is awsome! now i dont have to spend millions of hours burning logs THX

ill try this out.

Grave diggers…

ill try this out:D

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 :)

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

This script works fine but you need to fix some of the editing.

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?

03-23-2007, 06:09 PM

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

:google:

Looks Good To Me Ty Man

Thanks, This looks pretty good!!!!

great for ur first man

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

it i not working for me …..im new idk why.

nice i like it

dont work for me

looks very nice gotta try it now

its good first script but maybe you can add willows or maples or yews

nice scripting works good

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

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

people this script is so old

DONT GRAVEDIG
the owner hasnt been on srl for 4 months

do it still work?