SRL Archive - Outdated / Broken

Hello. This is my Smelter + Cannon Ball Maker. This script was first Neon's, but then he gave it to me and told me to be owner if your wondering.

Autocolors may not work because of new game engine. I tested this with Bronze bars and worked.

{=========================================================================]
[ SRL Smelter & Cannon ball maker. ]
[ ]
[ NAME : SRL Smelter & Cannon ball maker. ]
[ WRITER : Jon Buddy ]
[ CATEGORY : Smelters and Smithers ]
[ DESCRIPTION : Smelts bars and makes Cannon balls ]
[ AUTOCOLOR : Yes (May not work so better off selecting em ]
[ NOTES : Version 2. ]
[ CONTACT : Jon Buddy on SRL Forums ]
[ ]
[ ]
[=========================================================================]
[ Instructions. ]
{=========================================================================]
1. Start in Al Kharid Bank with empty inventory if making bars
2. Have primary ore in 1st bank slot secondary ore (Coal) in 2nd bank slot
3. Drag crosshair and fill out Const(BELOW)
4. If making CBall's have the Mold in 1st inventory slot
5. If you are making Ore to Cball then have the Iron in 1st bank slot coal in 2nd and mold in 1st inv slot
If you are making cannon balls, put "Bartype" to Steel
[=========================================================================}

For Progress Reports.

Mine-Jon Buddy:
**************************************************
Using character *Username*
Jon Buddy*s Al Kharid Smelter/Cannon ball maker
Progress Report:
00:13:56
Made about 98 Bars
Currently smelting Bronze bars

Cool, but why do you use neonclick??

I never had problems with the mouse. If you want, I can change.

I think Mouse would do, it's in SRL.

But doesn't matter, it just looks a bit cooler. :p

Thanks, could you test later when you got time?

I suggest adding more of the SRL procedures such as the Player Array, and especially as Wizzup? said; Mouse, and TypeSend, isntead of SendKeysHuman..

There are a lot of Procedures in there that could be replaced with better working SRL procedures..

I am going to test.

There are a lot of compiling errors, lets see if I can get it working.

I like this mouse better.

Then I suggest putting in a boolean UseNeonMouse:= , or something, so people can choose whether they want to use this mouse, bens mous,e or Mutant's mouse..

Then I would have to change almost all code. It's almost the same mouse, except a tad sower because mutants is really fast.

I ran the script, and here is what I observed:
I like the 3 different walking procedures to and from the bank!

When I was smelting, I liked the anti-ban routine, however I think it happened to often, that could be fixed by a simple repeat if Random(6) =1 then doantibanstuff; until..

Also, the script did not have support for if I gained a level, it did not keep smelting, it just kept doing random anti-ban procedures, which could be fixed by adding this in the middle of your Bars; procedure: if FindText('Congratulations, CharsNPC,xs,ys,xe,ye) then SmeltBars;

Another problem I had was that it never detected when I had run out of bronze bars correctly, because it was examining items in the anti-ban procedure, and that messed with the statement until(IsChatMessage('You have run out of')); This could be a simple fix, by adding a Or (Not(FindBitmap(BronzeOre,X,Y)));

You don't have many Randomchecks going on during the script either.

It was a pretty good script all around though, but I suggest adding some more SRL procedures.

Good job,
Cheesehunk.

Thanks for your reply!
Yes, I tried the Or (Not(FindBitmap(Ore)) Stuff but it would only smelt 1 ore, I will edit the withdraw to make it first check if there is ore in bank.
I also will edit the FindNormalRandoms to TalkToRand;
Can you also explain what you with the repeat if Random(6) =1 then doantibanstuff; until..

From: jon buddy
Thanks for your reply!
Yes, I tried the Or (Not(FindBitmap(Ore)) Stuff but it would only smelt 1 ore, I will edit the withdraw to make it first check if there is ore in bank.
I also will edit the FindNormalRandoms to TalkToRand;
Can you also explain what you with the repeat if Random(6) =1 then doantibanstuff; until..

No problem, I got my SRL tester avatar for a reason!:p
I think you are using the SleepandMoveMouse for the anti-ban, so just do something like this:
Line 484:
[PHP]if Random (10) = 1 then
begin
SleepAndMoveMouse(1000);
end;
[/PHP]
This will make it so about every 10 times it rotates through that repeat loop, it will perform the anitban routines, instead of everytime.
Maybe put a wait(500+random(500)); at the end of the loop.

Aright thanks. Once I get home I will update and post a new version.