SRL Archive - RS3 Outdated / Broken Scripts

All i ask is for you to post bugs and post progress reports so that i know how my script is doing.

enjoy,

XcanadamanX







Xcan's Smelter v1.5 downloaded: 278 times
Xcan's Smelter/CannonballMaker downloaded: to many times to count

Can't you use integer1 for that?

I see you implemented start time. Nice.

Looks pretty good from what I can see, but please try standards.

ok ill change that tomorrow to tired right now.

edit: nvm ill do it now. so i dont get flammed about it. changed it.

I'm was trying to smelt Steel Bars and it takes out the ores all right and goes to the furance just fine but once it's inside the house that has the furance it doesn't find it for me, the mouse just moves to the top left corner of the screen and stays there.

Edit: Was me just being stupid, forgot to change the brightness tone, so actually haven't fully tested it yet, will test later to see if it really works, awesome script.

Moving to top left means something that sets coords has failed, such as findcolor(x,y) doesnt find the color, so x,y is 0,0 and mmouse goes to 0,0. Thats why you use if findcolor then mouse (for finding functions that return boolean, otherwise use if not (x=0)). Furnace finding is the hardest part.

Oh ok, that was the first time that has ever happened to me, so I didn't know, still haven't had much 'time' to test it yet.

This looks very nice script! Good work.

Thank you for the comments! I appreciate all the feedback.
Boreas: i didnt really think it was that hard. i just made it find the orange color and everytime for me it worked.

EDIT: Multiplayer is not working correctly at the moment. IT will work fine if i fix one thing.

Edit:it is now fixed and uploaded. use the second one its better.

Great Iv been looking for one of these once Iv got enough ores Ill test it out and say how it went

sounds good! what kind of ores are you smelting? cause i havent tested bronze to see if it works. if anyone does bronze please tell me.

looks like steel is broke though. It successfully makes the bars but I was looking through the script and the chatmessage is not catching when it is done….maybe cuz steel produces a differnt message. It just stays at the furnace and never heads back to the bank.

works great though on mith and addy.

thanks!
lefa

l0l good timing to make this script :) i'l check this out .

ill look into the "broken steel' problem.

edit: julle13: can you please tell me why my script is horrible? i would like to know so i get it better.

darn it it doesnt have ati randoms , any chances of fixing this soon ?

it did say on my release that there were no randoms but…i put some in so tell me if they work. also…it MIGHT screw up if it finds a random during the smelting process because the char will stop smelting. If you want to take the chance of dying just go into the procedure infurnace and delete the antirandoms; after GetNewChatMsg;. its your risk.

ive got a fuck load of iron and coal, i wanna make steel bars. but everytime i run the script, it does nothing, doesnt even log in

i think the script needs some tweaking.

have you set everything right? everytime i use it, it works perfectly. did u fill in the declare players?
edit:subin: can you tell me why i have to tweak it? some people say it works great.

Btw in the const setup where you have 'bar' you could add it to the player setup so if they wanted to amke different kind of bars for a different player.

eg.

[php]
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Loc :='bank'; //bank or furn
Players[0].String1 := 'bronze'; //Bar to smelt
Players[0].Skill:='smithing';
Players[0].Active:=True;
[/php]

From: xcanadamanx
have you set everything right? everytime i use it, it works perfectly. did u fill in the declare players?
edit:subin: can you tell me why i have to tweak it? some people say it works great.

i have set everything right… is there anything i have to do? start logged in or out? w or n? ores in first bank slot? at the mment it wont even log in.. i am using it with 1 player…. have deleted the other player slot and put the #players down to 1

Czepa:it should work anywhere. I dont know whats wrong with it. ill look into it later.Fot the ores you need the primary ore in the first bank slot ie: iron,mith,addy and secondary ore in the second slot ie: tin or copper, and coal.
ArrOw: i will put that into my v1 script. thanks for the idea!!:D ill also use it to set the amount to loads to do so each player can do different amount of loads. thanks again for the ideas!!

edit: Czepa:you have to change the start time. its called Stime in the constants. change it to the hour before you start it or set it at 1 and it should start automatically unless you start at 1 in the morning. that should fix your problem.

ok thanks.. ill try that. but one thing: why do you have that stime stuff? why dont you just make it so it starts straight away. thats pretty pointless isnt it

well i guess in some peoples way it is pointless…but if you want to start it later then you can. next version will have it so you can choose. thanks for reminding me.

From: xcanadamanx
ill look into the "broken steel' problem.

edit: julle13: can you please tell me why my script is horrible? i would like to know so i get it better.

oi… have you found it yet dickhead? for starters why the fuck would you put stime in? then secondly you are too noob to find out this simple steel problem? i dont understand what sort of drugs your on, but you should sober up. the chat message is longer than the other ones right? scar logs these messages as they come up…..

when u look at scar it says: you have run out of iron ore with which to make st

you should change that for you if bar=steel

change:

if bar ='steel' then
begin
repeat
wait(200+random(200))
RandomMovement;
MMouse(255,405,2,2)
until (IsUpText('Smelt')=true)
Mouse(255,405,2,2,false)
wait(200+random(500))
ClickOption('Smelt X',3)
repeat
wait(1000+random(500))
until (FindText(x,y,'Enter amount:',UpChars,MCX1,MCY1,MCX2,MCY2)=true)
Sendtext('10'+chr(13))
repeat
wait(1000+random(200))
GetNewChatMsg;
antirandoms;
until (IsChatMessage('you have run out of iron ore with which to make steel.')=true)
writeln('found text')
end;

to this:

if bar ='steel' then
begin
repeat
wait(200+random(200))
RandomMovement;
MMouse(255,405,2,2)
until (IsUpText('Smelt')=true)
Mouse(255,405,2,2,false)
wait(200+random(500))
ClickOption('Smelt X',3)
repeat
wait(1000+random(500))
until (FindText(x,y,'Enter amount:',UpChars,MCX1,MCY1,MCX2,MCY2)=true)
Sendtext('10'+chr(13))
repeat
wait(1000+random(200))
GetNewChatMsg;
antirandoms;
until (IsChatMessage('you have run out of iron ore with which to make st')=true)
writeln('found text')
end;

Problem solved fuckhead.:f:

:eek:thankyou, come Again:duh:
ps. anymore problems, send it to the master, dont let this noob TRY to solve it

wow is it your time of the month or something? wow…

edit: i didnt test steel because i assumed that all the chat messages would be almost the same. i didnt know that the chat message in the box is too long. so lay off buddy:fiery:

From: xcanadamanx
wow is it your time of the month or something? wow…

edit: i didnt test steel because i assumed that all the chat messages would be almost the same. i didnt know that the chat message in the box is too long. so lay off buddy:fiery:

yeh lol soz for that.. its a nice script though
is there anyway you can make the bank opening better? the current thingo: openbank3 takes ageas to open the bank and is VERY detectable moves from left to right and all over the screen and then it finally decides to open the bank

From: xcanadamanx
Czepa:it should work anywhere. I dont know
ArrOw: i will put that into my v1 script. thanks for the idea!!:D ill also use it to set the amount to loads to do so each player can do different amount of loads. thanks again for the ideas!!

No problem!

Edit: if you wanted it to do laods i think you would add this line.

[php]
Players[0].Integer1 := 10;//how many loads.
[/php]

czepa:im going to try to work on a better bank opener for v1, but if i finish it i just might add it on to this script.
ArrOw:thanks for the example! ill credit you in my script when i put it in thanks.

From: Boreas
Moving to top left means something that sets coords has failed, such as findcolor(x,y) doesnt find the color, so x,y is 0,0 and mmouse goes to 0,0. Thats why you use if findcolor then mouse (for finding functions that return boolean, otherwise use if not (x=0)). Furnace finding is the hardest part.

As for that, did you remember to specify the RS screen? That usually fixes the problem for me, because it knows the cursor is only supposed to stay in the specified area, so it won't go to the top left. :)

<=========Progress for Smelter-V.0.5-=========>

**********************************************
Name : t**********h
Number : 1
Smithing Level : 53
Done : 15 loads
Made : 135 bars
Worked for : 23 Minutes and 52 Seconds
Banked : 16 times.
Location : furn
**********************************************
1 : t********h= True- Lvl: 53Loads done: 15 Loc: furn
2 : = False- Lvl: 0Loads done: 0 Loc: bank
NextPlayer



Super-duper-scally-umper your script kicks ass dude! KEEP UP THE GOOD WORK!

This is my next proggy

<=========Progress for Smelter-V.0.5-=========>

**********************************************
Name : t********h
Number : 1
Smithing Level : 53
Done : 18 loads
Made : 162 bars
Worked for : 29 Minutes and 29 Seconds
Banked : 19 times.
Location : furn
**********************************************
1 : t*********h= True- Lvl: 53Loads done: 18 Loc: furn
2 : = False- Lvl: 0Loads done: 0 Loc: bank
found furnace
12:20:05 am . . . .
Successfully executed

Thanks for those proggys rachelishot0! thanks for the compliment.but please try not to triple post. thanks. wait till v1 its going to be even better!:D

Xcana if you need any more suggestions or help feel free to PM me or add my msn, I wont be on it till later though im download cars for my brother using UTorrent and it lags my computer.

-Arr0w

Thanks ArrOw ill take u up on that offer…but right now i dont need any help… any suggestions for my v1 will be very helpful.

You could add a auto responder.

im working on that right now…

edit:ArrOw the loads thing isnt working for v1 arrOw. it only does one load and the logs out but i set it to do ten. please pm me if you know any way to fix this. thanks

anyone have any more progress reports? please post if so.

give it a cannon ball maker!

I'm not a member so i cant put that in unless someone makes just the cannonball part and i put it in my script or if i get a membership.

one thing has to be changed in this script for it to work with the new srl. Find lowestangle; and delete the whole procedure. it is now in srl so it will come up with a duplicate identifyer if you keep it in. merry x-mas and happy new year everyone!!

Dont get mad at me, but I have to say, this script was worth giving up my first post…Very nice script btw…very nice.

Here's a suggestion(dont take it offensively)
I noticed it (looked at it for 20mins) that it only had one walk path.
Maybe some more walk paths for the next version aye?

Line 111: [Error] (18206:11): Duplicate identifier 'LOWESTANGLE' in script

look on my last post on page 2 and you will find the answer for the dup indentifyer.

robbie: i could do that but really how many walk paths can i do from the bank to thr smelter? thanks for the suggestion though it will probably go in the next version. also why would i take that offensively? thats a good suggestion.

ok its working, after it right clicks right bar to smith it does nothing when it should press type x bars and when you gain a smithing lvl it does nothing

i know it will mess up after gaining a level. im pretty sure its fixed in my next version. i dont know why it it doesnt press smelt x. look in the procedure infurnace to see if its in their to press. else redownload the script again.

User specified a new RS window
Failed when compiling

Line 118: [Error] (18213:11): Duplicate identifier 'LOWESTANGLE' in script C:\Documents and Settings\Eigenaar\Local Settings\Temporary Internet Files\Content.IE5\XH9IGJPV\Xcan%27s%20Smelter1[1].scar

the last post on page says

one thing has to be changed in this script for it to work with the new srl. Find lowestangle; and delete the whole procedure. it is now in srl so it will come up with a duplicate identifyer if you keep it in.

V1 has been released!!

Version 1.5 is now released. It is now auto color. go check it out.

I guess no one uses this script. oh well…if you do post a proggy and some critism.

edit: 100th post oh ya!

From: xcanadamanx
I guess no one uses this script. oh well…if you do post a proggy and some critism.

edit: 100th post oh ya!

I use it a bit. I have a question though, what is the SRLID and SRLPass thing for?

its for the SRL global stats check it out here if you dont have it http://villu-reborn.com/stats/

looks good from what i can see. to add anti randoms just put findnormalrandoms in a free procedures =p

Gonna try it now.

looks good from what i can see. to add anti randoms just put findnormalrandoms in a free procedures =p

it has antirandoms. look under the procedure antirandoms and antirandoms2

very nice looking and easy to use, but frequently locks up (and dont say its my computer, i i garuantee it's not)… but a few little tweaks should fix it up

please be more specific…where does it lock up? and is it in the same place?

;) Hi There,

Like the script, needs a few tweeks but otherwise very good + on rep.

Smelted 2500 steel bars over 6/7 hours or so (with one player). had to monitor it to ensure it was ok.

Issues found:
1. occasionally when smelting it gets to 2 or 3 bars smelted and then the screen angle lowers to find the door and then the player goes to the bank.
2. Sometimes gets lost on return to bank in the palace (???) to the east of the bank and cannot recover.
3. when smelting steel, always selects 'Smelt x' and enters "10"?? this should be 9 as that is the most that can be smelted or should use 'Smelt 10'

Really like this and have been using on main (smithing 76).

Good work.

thank you…
1. i dont know why that happens it must be with the count bmp
2.yes that is because it can't find the bank so it goes to the next closest symbol. the water symbol in the palace.
3.it enters 10 for one purpose so that it can find the text (you have run out of)
edit: i never thought of it clicking smelt 10 before. thats a small fix. ill pm it to you if you really want it.

Nice quick reply :)

3. I think it would be better for the number entered to be something like '11', '22', '33' etc, shows a lack of concern / exactness, user being lazy, missed the smelt 10 option. entering '10' involves two key entries.

thanks for the offer of the pm fix, but I AM such a noob at this forum stuff its unreal! :)

If you can please do and I will figure out how to get the PM message lol :)

Ok figured it out!

would you rather it go 11 or press smelt 10?

Version 1.5

Hi there, sorry for the delay.

Have been trying to work out how to avoid the errors I have been getting.

1. To avoid my problem of leaving the furnace early I have added a wait (10000
+ 500 random) command in the Open Door proceedure, just after the writeln 'Door is Open' line. This does not 'fix' problem, but means that a few more bars are made before it goes to the bank.

2. Entering 10 to smelt. I amended the code TypeSend(inttostr(BAmount+1)) to TypeSend(inttostr(BAmount+2)) and this now enters 11 units. This only works with steel (to have 11 entered) as BAmount has a different value depending on the type.

3. I also amended in the WSteel proc, how much coal was removed from ClickOption('All', 1); to ClickOption('X',1);
Findt;
TypeSend('18')

The only reason for doing this is to reduce the amount of weight carried and therefore make running last a little longer.

If you could show how to select smelt 10, I can use your answer to correct my attempt which I will try very soon.

I have also noticed today (after the update) that I am not finding the furnace. As I have changed the code slightly, I will investigate.

Many Thanks

I have been trying to figure out how it all works and I have managed to change it to enter 11

to make is put in smelt 10 would be harder than expected because i have one function for all bars. if it doesnt find the furnace you might have to change the colour in the script for the furn as it might've changed it in the update. also for leaving early i donno why it its doing that. you could put wait(how ever much you want) at the very end of the procedure furn. i hipe you like this as it is my second script i have ever made.
edit:yohoho: please explain why this is horrible. thanks

Version 1.5.

Yes, I had noticed that and in a way it is probably best to leave it alone. Point 3 in my last post, I will be extending this change to the other bars that need it (e.g. Mith & Addy), as I have realised another benefit, It will be quicker :)

Great for a second script, still planning my first

Nice script, couple of tweaks needed as they have been pointed out already, but that aint nothing i cant do my self, i will be using this script often anlong with fawakis smither too, tyvm

no problem im glad someone's using it.

it wont find the furnace for me otherwise flawless! How do you fix it to find furnace?

the color has probably changed on the furnace. or does the mouse go to the furnace but not click it? if the color has changed just sample the oragne part of the furnace and put the color you got in the setup. that should fix it.

Used the orange from the symbol or the actual furnace? Cause it goes into the furnace room but then the mouse goes to the top left corner and just stays there.

the color in the furnace…the orange part.

Same problem happened for me, testing it now…

Edit: Perfect! I took the color near the side of the orange part and it worked right away. Thx.

Edit2:While smelting if someone asks you for your level, it auto responds. However, if you finished smelting at the same time it starts looking for ores after response and gets stuck.

can you explain that more clearly i dont quite understand. and how does it get stuck just sits there or tries to do something else?

Great script, i screwed up at first puting the mini-map color of furnace instead of the actual furnace. Fixed that it works perfect. Great Script.

Padaktur

thank you…i will change the first post so other people will know to change the furnace color.

here u go u havent had a proggy so here u go..

<=========Progress for Smelter-V.1.5-=========>
 
**********************************************
Name : 
Number : 1
Smithing Level : 43
Done : 51 loads
Made : 459 Steel bars
Worked for : 2 Hours, 0 Minutes and 27 Seconds
Banked : 52 times.
Gained Approx : 8007 exp.
Location : furn
**********************************************
1 : ****= True- Lvl: 43 Loads done: 51 Loc: furn
2 : = False- Lvl: 0 Loads done: 0 Loc: 
Can't Find Ores
AutoColor:
Steel color = 9013650
Successfully executed

the steel bars count is wrong..i had 506 when i finished…..i only had 1 steel bar in my bank so i actually made 505

thanks a lot! my xp count must be off 8000 xp for around 500 bars doesnt seem right. i might update this script in the future…but i have to finish my RMB/PM first.

thanks i swear its the best smeltir script i ever seen

best wishes in other scripts and keep goin

evil dark

thanks…its going to be way better once i update it but that might be awhile until i do.

Hi There, Very Nice Script, Only major problem I encountered was, seeing I was starting with smithing lvl 1 with my character, I was gaining levels rapidly, and there doesn't seem to be anything to handle the "click to continue" screen that is recieved when you get a level, Other than that, No complaints,
Thanks, RAM

Yea forgot to mention that.. it doesnt do anything when you lvl…it just stays stuck their.. I just clicked on it to continue and the script moved on. But yea i forgot about that.

thanks for that…will be addressed when i update it. ill probably redo most of it since it was my first real script and i have learned a ton since i made it.

i works until you get to the furnace. it never clicks on the furnace. what am i doing wrong???

From: J-Son
I'm was trying to smelt Steel Bars and it takes out the ores all right and goes to the furance just fine but once it's inside the house that has the furance it doesn't find it for me, the mouse just moves to the top left corner of the screen and stays there.

thats exactly what happened to me. i was on v-bright and i still didn't work.

the color of the inside of the smelter changed. get the color of the mainscreen orange color of the inside of the furn and put it where it says

Const furnace       = 1528765; //orange part of furnace...change the number

also thanks for the feed back

This is the best smelter i've used so far and I'm looking forward to your next versions… however, I had to do some work on this script to make it run correctly… the procedures i've changed was in Furn;

Procedure Furn;
begin
Repeat
antirandoms;
if (FindColorRightTol(x,y,BarColor,15, 378, 494, 437,8)) then
MMouse(x-10,y,2,2);
wait(250);
if (IsUpText('melt 1')=true) then
Wait(250);
Mouse(x-10,y,2,2,false);
if (ChooseOption(x,y,'melt X')) then
begin
Flag;
FTWait(1);
repeat
Wait(100);
until (Amount);
end;
until (Amount);
TypeSend(inttostr(BAmount+random(999)));
repeat
wait(100);
until(Findcolor(x,y,finishedbarcolor,604,322,646,353));
{
if not LoggedIn then Exit;
wait(1000+random(500));
antirandoms;
until (BarCount=true) or FindText(x, y, 'You have run out of',+
smallchars, MCX1, MCY1, MCX2, MCY2);
if (BarCount=true) then writeln('Found Bars');
If (FindText(x, y, 'You have run out of', smallchars, MCX1, MCY1, MCX2,+
MCY2)) then Writeln('Found Text')
}
end;

The finishedbarcolor line is the color of the bar at the specified location 604,322,646,353 which is at column 2, row 4… if you don't know how to do basic scar scripts like this then it'd be hard to understand…. but this is so easy once you learn it… read some tutorials, it's easy!

And then I modified a little bit for the FindFurnace procedure:
Procedure FindFurnace;
begin
antirandoms;
Status('Finding furnace…');
if (invfull=false) then
begin
writeln('Can''t Find Ores');
end
else
begin
Antirandoms;
repeat
if not LoggedIn then Exit;
FindMSColorTol(x,y,furnace,5);
wait(50+random(10));
MMouse(x,y,0,0);
wait(20+random(10));
until IsUpTextMulti('melt','me','lt');
begin
Mouse(x,y,0,0,true);
writeln('Found Furnace');
FTWait(2+random(1));
AntiRandoms;
end;
end;
end;
I changed the FindMSColorTol(x,y,furnace,5); line…

And then towards the top, in the Const field, i added finishedbarcolor = 2704729;, that's the color of the finished bar (at a specific location).

This is noob way of scripting, I'm waiting for a updated version of your script… if you think made a mistake somewhere or I should do it in another way, just post your suggestions.

Do you think you can make a cooking script for Al Kharid too? It could be based on this script… I think you'll make the best cooking script if you do the same banking, clicking procedures… just l33t scripting! Please make a cooking script based on this script!! Thanks for this script.

^^ thanks. but you havent seen the redone script. i have to say myself it is very good. the redone script should be out this week. look for it;)

Im sorry to bother you and this is probbaly a huge nooby question for me to ask…
when i get to furnace the mosue just goes to top left corner… i know there is a quick easy fix but i was wondering if u can help…
also if im smithing iron will ti withdraw rings of forging?

thnx

umm…you have to change the furnace color in const and no it wont withdraw rings of forgings

It w/draws the ores, goes to the furnace and smelts them, but if i lvl up it'll stop and also once it's done smelting it just logs out, it won't do anymore loads.

when i get to furnace the mosue just goes to top left corner
and i tried to sed a other furnes coler and it still doest work help pls

then your setting a bad color. what part of the furnace are you picking the color from? and you might want to wait considering my redone smelter will be out either today or tomorrow.

I'll wait for the new one and give you a progress report and any bugs, I just manually smelted 1.5k bronze bars <.<

oh ill be sure to test this out and post some proggys =]

just wait till i update it should be out tomorrow.

oh, alright ill wait, cause this one seems to not find the furnace for me

you got to change the furnace color in const for this one to work.

edit: updated…check it out.

v2 seems to mess up this is what happens, i run it walks to furn when done smelting it walks to the bank find but….then it goes past it too that little green arrow "–>>>" right next to the bank and doesn't do anything after that

the arrow near the water?

Is there any way to delay the typing time when you click withdraw x amount? Because it types the number of ores before the box actually pops up and than doesnt withdraw anything…. please help.

For me it goes tot he bank and just sits there…
matter of fact lemme check somethign i think i just made a noob mistake.

yeah i forgot the 185 –>> 184 after re-DLing, i'll have a proggie of 2k+ bars in the morning.

Hmmm, Having a problem finding the cactus color…even after I manually select the color and enter it as my generic color or as my test color…..I tried on Divi and previous versions, same thing…It just walks behind the bank…..BTW, I changed report to report1 in order to get it to compile, Thanks, RAM

yeah for me it opens the bank, w/draws iron and then doesn't do anything. It did smelt once but only once.

[php]
Cactus Color = 2912577

walking to cactus
found furn
found bar screen
NextPlayer
Successfully executed
[/php]

I watched, it never realized i finished making the bars, plus, im pretty sure it only pressed 10 to make bronze, not x and 14…

From: Nerheim
Is there any way to delay the typing time when you click withdraw x amount? Because it types the number of ores before the box actually pops up and than doesnt withdraw anything…. please help.

thats not possible. it waits until it finds "enter amout:"

I watched, it never realized i finished making the bars, plus, im pretty sure it only pressed 10 to make bronze, not x and 14…

not possible either i dont have it able to click withdraw 10

Xcan, check the PM I sent you :)

ok, now it worked, but it never got the chat message that it ran out of ores, so i dont know.. im going to change it to type in 15 instead of 14, so it will get the message, because thats what im assuming it was waiting for, just moving around.. or maybe it was looking for something else, because it was hovering and right clicking the furnace

doesnt look for text. counts primary ores. leaves when there is no primary ores left.

Hmmm, Having a problem finding the cactus color…even after I manually select the color and enter it as my generic color or as my test color…..I tried on Divi and previous versions, same thing…It just walks behind the bank…..BTW, I changed report to report1 in order to get it to compile, Thanks, RAM

it compiles fine for me. darn last minute changes. it could just be out of the range of my color finding. just change worlds and try again

well there was no ores left? and it was just wandering around, right clicking the door, the furnace, and moving the mouse aimlessly, so i dont know what it was waiting for then,

probably looking for the door. an updated one will be out later. i will debug everything so if it screwes up ill know where it did.

For some reason it logs out after walking to the cactus

i have no clue why. whats the debug say?

[php]
walking to cactus
NextPlayer
Successfully executed
[/php]

just happened to me when i tried it out.
PS i stopped it manually cause it logged out

that is weird. ill look into it.

^ exact same thing as garrett

doesnt do that for me.
edit:wait nvm just did it

i have no clue what makes it do that. most times it works sometimes it stops at that cactus.

I keep getting this error…. script wont run……..
Line 605: [Error] (16426:1): comma (',') expected in script C:\Program Files\SCAR 2.03\Scripts\Xcan's Smelter2[1].0b-Pub.scar

opps sorry forgot a ) updated.

Pretty soon I'll have 2k tin/copper to terst this out w/ so i'll (hopefully) have a nice fat proggie for you.

I got it wokring now…… lol except that it withdraws ores then walks near cactus then logs out as soon as it leaves the bank for no reason at all….
is there a fix for this?

[Runtime Error] : Out Of Range in line 87 in script C:\Documents and Settings\HP_Propietario\Escritorio\Xcan's Smelter2[1].0b-Pub.scar

help

you didnt set up your players right

i didnt set players right?
or u answering someone elses problem…
Once again i will tell problem player withdraws ores walks out of bank towards cactus….. as player is walking towards the cactus it logs out…
can anyone help me?

malakai didnt set them up right, you are having a problem other people have had. xcan is working on a fix i think

i am and i have no clue why it is doing that. still looking into it.

k thnx… guys :)

what i put in the pin if i dont have pin number?

put 0

I get this when I try to use it

Failed when compiling
Line 82: [Error] (18818:12): Unknown identifier 'PIN' in script C:\Documents and Settings\Myles\Desktop\Xcan's Smelter2.0b-Pub.scar

What is it doing when it is finding the cactus color, it seems as though it opens the bank, then trys to look for the color? and what in the world is the "RIGHT bankslot"

From: Roni a
What is it doing when it is finding the cactus color, it seems as though it opens the bank, then trys to look for the color? and what in the world is the "RIGHT bankslot"

it can only do one thing at a time so it is only looking
for the cactus color then it opens bank then deposits and withdraws ores then it goes to furn then it smelts then it goes back to bank repeat. it means the bankslot that is the most right…duh:duh:

PM when a working one's out and i have 3.5k copper/tin ores to test it w/ =)

i still dont know why its logging out at the cactus
i dont see anywhere that it says nextplayer in this

Procedure ToFurn;
begin
  if (not(loggedin)) then exit;
  if XRadialWalk(CactusColor,90,180,60,6,-2) then writeln('walking to cactus')
  wait(10)
  FindAll3;
  XRadialWalk(CactusColor,60,170,75,2,-20)
  FindAll3;
  OpenDoor;
  Mouse(648, 83-20, 2, 2, true)
  Players[currentplayer].Loc:='Furnace'
end;

maybe it thinks its logged out because if it logs out it switches players

edit: it pisses me off because it was working good before i released

edit:now i find it just stops at the cactus then does nothing. i donno why its doing this.:confused:

ya i looked through your code for a while, and never found anything that would make it switch, unless something makes it think that it is logged out. i cant see any other reason

i know its just pissing me off.now i dont have it switch players(i think it was going to if i left it) it just sits at the cactus doing nothing. and congrats on becomng a member;)

ty, and thanks for voting for me :p

I thought you should know that a member at rs2cheating.us took your script, edited it to make it look like he wrote it, and posted it there saying it was his. He looked like a noob so I checked every script in this section to make sure they were different from his, and sure enough I found this post.

Here's the topic if you're interested:
http://www.rs2cheating.us/forums/showthread.php?p=69940#post69940

Nice job :).
Here is one thing though. Could you add Blurite Ore? I have already added it in my script though.

I'll post a proggie as soon as my JAVA Client can light up and load.

Fix the log out! You can do it!
I believe in u xcanadamanx

91smith-is that your smithing lvl currently or your goal?

im trying but my comp wont do that it just stops at the cactus then does nothing. ill be asking someone to help me out that has this problem.

I still have my 3.5k copper/tin waiting =)

Its my goal:spot:

i know where the problem is now just havent had time to fix sorry. exams comming up.

ok, i understand, i have exams in a few weeks, and am finding my time is limited here already, so take your time, as long as you know where it is.

i think ive fixed it…just a couple more things im just touching up.

sweet i cant wait till u fix it!!!!
once u get the cactus log out fixed this will be a bomb script!!!!

me either :p cant wait to test it out again :p

wait till you see the mem one i will be making;)

that you'll PM me <.<:duh: :duh: :duh:

i updated it. hopefully it works properly and no more cactus log out bug. try it tell me how it goes.

im confused as to where to start the script. Could you clarify this for me? thanks

looks like someone didnt read first post.

==================================================
Instructions.
==================================================


1. USE Runescape with Low Detail, Very Bright.
2. Set your Screen to 32 bit TRUE color.
3. Set Playernames and Passwords in DeclarePlayers.
4. Set NumberOfPlayers.
5. Position your chars at Al Kharid bank RIGHT bankslot.
6. Make sure your Players have ores/bars.
7. If you're making c-ball make sure you have a mould in the last inv slot
==================================================

LOL xcanadamanx im sorry bud………. your newversion still logs out at cactus lol….

GOD DAMN THE STUPID SCRIPT!!!! GAHHAHHH………sorry its pissing the crap outta me. i dont know why it does that. one question does it just sit there until it logs out or clicks the logout button?

The script works pretty well for the first load, then when it withdraws the ores, the same problem with the cactus occurs and gets logged out. I'm new to this forum, but I was a big fan of your 1.5 version.

did you watch it? if so did it click the logout button or did it just sit at the cactus and log out after a couple mins?

lol thats the part i was confused about. I tried it in different bank slots but idk which one you mean when you say right but the slots go north/south. I figured it was the bottom one and it just did random things. It got the ores then went NW, next time it went S and it never got to the furnace.

It clicked logged out by itself just like before. This is really weird cause looking at the code, there obviously isn't anything that would suggest it would do that.

ooh? a member version? will it own ejjman's? his *cough* doesnt log out at the cactus, which yours still does *endcough*

i donno why it does it. and ya member version….it might own ejj's but i donno i gotta figure out this stupid bug first…

edit:sorry to clarify it should move the screen to point west so the one closest bankbooth to the kebab shop

i can get it to run for about 1-2 runs then it just screws up at that cactus =\ maybe take cactus the out?

if i take out the cactus then i cant walk without using coords. i could use the rock but it would do the same thing.

edit:when the script screwes up at the cactus just wait and move around a bit but still in the area of the cactus just so you dont log out then see if it will start back up again.
one time i was just talking and forgot to turn the script off it just sat there for a couple mins then started again. maybe its just my comp that does that.

not working and yes it clicks on log out button

hmm…i cant find where i put it to log out at the cactus. on my comp it just sits there then randomly starts working again. ill look in srl if there is something that i use logs out

i could help later sometime i guess, im pretty busy now, and i have an all-nighter softball game for a fundraiser on friday, and a band concert tomorrow, so i might not be on, saturday and sunday would be the first days that i would be able to help you out on.

^^sounds good. i cant find where the bug is so maybe someone else can.

Instead of using the cactus, what about rewriting using paths or kittens?

i will for the members version of this but i cant use that for nonmems and i cant use paths because thats for roads.

lolpie, dont talk about that kitten..

hi, just tested out the script… got a syntax error while compiling the script at the line where the number of loads is set up… may i noe wats wrng? thanks

u sure it isnt the line where the pin number is? if you dont have a pin put 0 and make sure you have a number where integer1= is

my script works perfectly..

up to banking once it types in my pin it just stalls till i log out..

any idea's?

no i donno why it does it. does it type the pin in wrong?

no it types it in correctly
but doesnt withdraw any ore

im really relying on this script lol
5k steel bars needed to smith
and its the closest any of these peoples scripts have come to smelting..

look in the rs updates section for the fix for your problem

so, how goes the error? and the members version? :p im using sums rimmy miner, so i am getting lots of ores. Im waiting, i will hold out a while, but if you dont fix it soon, i will go to the dark side (ejjman) :)

to be honest i have had no time this week and i probably wont have much time for the next week and a bit either. (teachers decide to shove all the work at the end) so i havent had time to look at it or make the mems version.

didn't help one bit :[

you went here?http://www.villavu.com/forum/showthread.php?t=9818

your script worked finally
it withdrew the ore like it was suppose to
got to smelter
then pulled my mouse to top left corner
and kept right clicking??

hi, the sytnax error is fixed now, but when i run the script, it just kept running arnd frm the bank to the furnace and back to the cactus, doesnt even click on the bank booth at all… is there anything wrng or isit just me?

same shit happend to me but somehow it fixed itself
now when it moves.. it can't find the smelter, arrows just shoots to top left corner so who knows..
guess we have to wait for his reply.

everything works fine untill it gets to furnace..
it can't seem to locate the furnace..

and god damn.. i got 3.6k steel bars to make and your script is my only resort :P

Line 82: [Error] (15903:22): Syntax error in script C:\Program Files\SCAR 2.03\Scripts\Xcan's Smelter2[1].1-Pub.scar

I get this… scar 2.03 SRL 3.07

From: XcanadamanX
u sure it isnt the line where the pin number is? if you dont have a pin put 0 and make sure you have a number where integer1= is

there is the answer from last page. and guys it usually finds the furnace perfectly. a little color change mustve happened last update or something.

From: XcanadamanX
GOD DAMN THE STUPID SCRIPT!!!! GAHHAHHH………sorry its pissing the crap outta me. i dont know why it does that. one question does it just sit there until it logs out or clicks the logout button?

The reason it logs out instantly for some and waits for others is a setting in the setupsrl.scar file! When you run it the option 'Timeout Logouts' must be set to true other wise it will log out instantly! Dunno why it do that though, must be detecting some kind of timeout.

For those whose bankscreen isnt being picked up check the RS Updates section for the answer.

Hope this helps!

~~Ciesson~~

Ok ive worked out this logout error! First you need to do what my previous post says about changing the timelogouts setting to true. Now when you run it and it just sits there doing nothing ts waiting for it to time out. If you move around a bit and go back to the same place and leave it it runs finally. This is because it thinks its timedout and continues the script. Hope this helps.

:confused: And btw, at the start of the script the screen aint turning to the west, even though it says it does???:confused:

~~Ciesson~~

EDIT: Going to bed now, exams tommorrow :(

please dont double post. Use the EDIT button. This will not solve the thing, unless you stay by the script the whole time. This is not the point of autoing :).

all will eventually be fixed once i finish exams.

i have tried your script and filled out form and it says line 83 syntax error
Players[0].Name :='******'; //username
Players[0].Pass :='*****'; //password
Players[0].Nick :=''; //3-4 consecutive letters of your user name(NOT First letter)
Players[0].Loc :='Bank'; //keep at bank
Players[0].String1 :='st-ball'; //type of bar bronze,iron,steel,mith,addy,rune,gold,silver,or-ball(ore ot cball),st-ball(steel to cball)
Players[0].Skill :='smithing'; //skill to choose when you get a genie
PLayers[0].Pin :=; //Pin number(not a string!!)
Players[0].integer1:=1; //how many loads
_______________ ^
_______________ |
Players[0].Active :=True; //are you going to use this player

also im new here so i dotn know how to run scar sripts real well

PLayers[0].Pin :=; //Pin number(not a string!!)

should be changed to

PLayers[0].Pin := 0; //Pin number(not a string!!)

thank you 3garrett3…saving me from answering these questions….still havent had a chance to look at why its stopping at the cactus(once this week and weekend is over ill have some time)

ya i have exams this week too, better get studying, probly study all day tomorrow. Hope you do well.

good luck to you too. i also have nls (national lifeguard service) which takes 48 hours in about 6 days

ouch, i just have small 1.5 hour exams :) Go Grade 9! :p

###########attention###########

the script is working with srl 3.8 and scar divi 3.6 its not perfect but it is working


###########attention###########

its not stopping at the cactus?

yep its not

funny that it stops for me. im finally going to look into why it stops

go for it :p :)

ok easy fix for now. instead of using my function that messes up in only one spot im going to change it to fflag; for now. update will be on 1st page soon.

edit: fixed for now.i changed it now it wont check door when going back to bank.
next version-better door finding, better bank finding

edit: can an admin take that stupid poll off…thanks

works great :)

are you using 2.11? and thank you.

yep im using 2.11, but it messed up after my smithing lvled up. Here's my proggie: :D


/Xcan's Smelter/CannonballMaker\
| V2.11 |
|——————————|
|Ran For: 00:30:21 |
|Finished: 17 load(s). |
|Made: 162 bars. |
|Gained: 2835 exp. |
|______________________________|
| SRL Randoms Report |
| www.Srl-Forums.com |
|______________________________|
| Trade Missed : 1 |
| New Box[es] Solved : 1 |
\______________________________/

ya thats the one thing i gotta fix. when you gain a lvl the txt is in a different place now. i havent fixed it because my char is lvl 75 smithing and hasnt gained a lvl in a while

nvm, i tested more and its kinda unstable, it works but u get these errors, they are bolded:

Line 58: [Hint] (15554:1): Variable 'ACC' never used in script C:\Program Files\SCAR 3.06\Scripts\RS\Xcan's Smelter2.11-pub.scar
SRL Compiled in 15msec.
*username
Cactus Color = 2453307
walking to cactus
waiting for flag to disappear
finding door
found furn
found bar screen
waiting to be done
waiting for flag to disappear
[B]couldn't find with RW[/B] 
waiting for flag to disappear
[B]Didnt Find DTM...looking for symbol[/B]
Successfully executed 

From: XcanadamanX
ya thats the one thing i gotta fix. when you gain a lvl the txt is in a different place now. i havent fixed it because my char is lvl 75 smithing and hasnt gained a lvl in a while

Thats the same as my main :redface: , Is this ur main too? :)

ya its my main.
@noobstuff: was the cactus near the bank on the screen?

yep the cactus was near the bank, it always is since the script walks u to the cactus then to the bank

no was it on the screen when it went screwy

yeah, it after it gets screwy, it directs the character to the back of the bank

so it clicked near the cactus right? then clicked near the bank symbol then clicked behind the bank? if so thats just a little dtm error and ive already fixed in next version. same with the level error ive fixed as you can see in the stats.

it gets stuck on my monks robe when its trying to find the bank. otherwise it looks good, i just always wear monks robes when i smelt.

uhhhh…..theres nothing really i can do about that. but im going to try to make my bank finding better so hopefully that will fix it.

|Ran For: 00:32:02 |
|Finished: 16 load(s). |
|Made: 238 bars. |
|Gained: 1475.6 exp. |

my char has a noob smith lvl and was doing Bronze

i was reading your earlier posts but didnt know if any1 else did bronze on yours.

it works Wonderful if u ask me.

the only problem is the lvl prob.
But you already knew that so :D


wonderful job

/Xcan's Smelter/CannonballMaker\
| V2.11 |
|——————————|
|Ran For: 00:51:20 |
|Finished: 19 load(s). |
|Made: 274 bars. |
|Gained: 3425 exp. |
|______________________________|
| SRL Randoms Report |
| www.Srl-Forums.com |
|______________________________|
| Fight Random : 1 |
| New Box[es] Solved : 1 |
\______________________________/

and that proggy is from iron bar smelting

again wondeful job :)

thank you:D i will put the updated one up soon. the level problem is fixed.

so is it up now? I have 1.2k bronze to smelt, so i figured I would help test this baby out :D

ya v2.13 but the counting of bronze bars are off i believe. it doubles it for some reason. oh well its only for the proggy

ya, I tried to use it, but it froze it.. Then, it didnt click anything, then in the debug, I got didnt find cactus color, and nothing else?

uhhh…..try a different world…what scar r u using? works better using divi 3.06 and 3.8

im using Divi 3.10? Srl 3.81?

Edit: I just downloaded 3.11 now :D

i use divi 3.06 and srl 3.81 (whatever the newest one is)

Great, now im going to have 3.06, 2.03, and 3.11…. How fun…

i keep on getting this error….(i use scar divi 3.06 and SRL 3.81)
Line 83: [Error] (15579:22): Syntax error in script C:\Documents and Settings\****\Desktop\Xcan's Smelter2.12-pub.scar

hi i keep getting this error when i try to compile it opens up color.scar in a new tab and says

Failed when compiling
Line 303: [Error] (5002:11): Unknown identifier 'ScanExactMinimapD' in script C:\Program Files\SCAR 3.06\includes\srl\srl\core\Color.scar

i tried it with scar 3.11 and srl 3.81 and scar 3.06 and srl 3.81 like xcan

so can somebody help me out because im not to sure whats going on

From: qwerty123
i keep on getting this error….(i use scar divi 3.06 and SRL 3.81)
Line 83: [Error] (15579:22): Syntax error in script C:\Documents and Settings\****\Desktop\Xcan's Smelter2.12-pub.scar

put 0 as your pin. im guessing thats your problem.

@Bonfield: are the plugins in the right place? check in the plugins folder that they are all there.

2.12 still has some errors, sometimes it gets itself mixed up with the range in the kekab shop and the mouse just keeps on hovering over it.

i got the DTM error again and i was at the back of the bank again
and another time my character was standing inside the scimmy shop

i know 2.12 has errors thats why i updated and put 2.13—but 2.14 should be out soon i think i fixed most of the bugs you just said. inside the scimmy shop you say? ive never had that.

lol, the scimmy shop, i saw it happen when it spoke with the mysterious old man it went to the entrance and just stood there

first time it went in O.o

that is weird.

i ll try to post a progress report soon
:p

put 0 as your pin. im guessing thats your problem.

im still getting the same error.Line 83: [Error] (15579:22): Syntax error in script C:\Documents and Settings\*\Desktop\Xcan's Smelter2.14-pub.scar

i think its got something to do with this line:
line 83: Players[0].integer1:=10; //how many loads
:S

when u use this script are u supposed to set the view to the highest?

this meaning when u press the up arrow button on ur keyboard

@ noobstuff: yes its supposed to be at the highest angle.
@qwerty123: did you go like this? Players[0].Pin :=0;

I will be glad to see this working. I Have been waiting on a good smither for along time and there really hasnt been one working. Thanks in advance for the new version.

no problemo. its been working great for me.

thanks how do i make sure i have all the plugins?

thanks so much for the advice XcanadamanX, it works great now!
time to smith 10k steel bars hehehe :P will post proggie soon.

From: Bonfield
thanks how do i make sure i have all the plugins?

go into the scar folder. then into the plugins folder. now if there isnt bowplugin,freddyplugin,certerplugin,or quiz plugin you'll have to reinstall srl–for scar divi just go to file download srl. if using 2.03 (not recommended for this script) you'll have to download from this site again.

i got this script and tested it out and it does the melting bit ok but on the way back goes south all the time and the other problem is when you lvl im smithing it just stops and does nothing and also u have to be face west when u log in for the script to work witch is bad i think and i does go to the bank i have had 1 bank bar and i help it along to there it need a lot of work still good luck:spot:

what version are you using?

2nd best script ever made. Will post progs soon…

thank you :p whats the best script:p

Stupid3000s Guild Miner from way back when. I mean Its horrible know, but I used to run taht thing every night for about a year. Got 5 lvl 70+ miners.


BTW…suddenly the smither won't run. I do the same thing, I start at bank, it withdraws, walks over to furnace. Then it finds the door, then it clicks on the Furnace and says found funace. The bar screen comes up and it doesn't do anything. Then it says Finding door… It finds the door once and wants to find it again. I dunno what changed, I re-downloaded the script…..

did you set the bar your making?

ya to steel….could you please post what your set up looks like so I can compare….I'm pretty sure I have everything, ive tripled checked it all

Const StartPlayer   = 0; // Determines who will play first
      MSpeed        = 9; //speed of the mouse...higher number slower speed, lower number higher speed
      BMouse        = true; //BenMouse...true or false
      MySRLID       = '3454354';   // Must be a string!
      MySRLPassword = 'heeimnottelling';   // Must be a string!
      RunDir        = 's';  // RunDirection when you find a fight.
      RunFar        = True;  //just leave this


Procedure DeclarePlayers;
begin
  HowManyPlayers:= 1; // Set Number of Players here.
  NumberOfPlayers(HowManyPlayers); // Sets the Players Array Length;
  CurrentPlayer:= StartPlayer; // CurrentPlayer = Array Index

  Players[0].Name    :='myusername';    //username
  Players[0].Pass    :='mypass';    //password
  Players[0].Nick    :='mynick';       //3-4 consecutive letters of your user name(NOT First letter)
  Players[0].Loc     :='Bank';   //keep at bank
  Players[0].String1 :='addy';       //type of bar bronze,iron,steel,mith,addy,rune,gold,silver,or-ball(ore ot cball),st-ball(steel to cball)
  Players[0].Skill   :='smithing';   //skill to choose when you get a genie
  Players[0].Pin     :=0;           //Pin number(not a string!!)
  Players[0].integer1:=15;           //how many loads
  Players[0].Active  :=True;         //are you going to use this player
end;

Poop, thats what a had too. It did the same thing. It got ores, went to furnace room, found door, clicked on furnace and then wanted to find the door again.


Shot at 2007-07-16

I dunno what happened, it worked for me one day, know it doesnt. I'm probably just an idiot.

working fine for me…did you change to divi 3.11?

EDIT: OOPS, I FEEL DUMB

For some reason it doesn't run in clients. When I just run it off Runescape.com it runs fine. Sorry I caused so much trouble…maybe you should add "Must Run on Runescape.com to Work" to your first page so people don't make the same mistake I did.

I have 1k iron and 2k coal lined up for it tonight :)

thanks i didnt know that will add on first page.

It also works after the new Runescape Update. Lots of skills like WC (mage logs) changed, luckily it didnt affect smelting.

yep good thing.

/Xcan's Smelter/CannonballMaker\
| V2.13 |
|——————————|
|Ran For: 00:19:17 |
|Finished: 12 load(s). |
|Made: 108 bars. |
|Gained: 1890 exp. |
|______________________________|


108 bars in 19 mins, thats fast

thank you. it will be faster once i get my door, bank and furnace finding better.:p

______________________________
/Xcan's Smelter/CannonballMaker\
| V2.13 |
|——————————|
|Ran For: 00:15:43 |
|Finished: 10 load(s). |
|Made: 90 bars. |
|Gained: 1575 exp. |
|______________________________|


Ya, thats what I'm worried about, when it finds the door the mouse is really jerky, Jagex could catch on to that.

you could take it out but then you could be stuck at the door

I love this script, I only wish I had more accounts that could smelt steel. I'm in the process of making like 5…but NO one sells tin and copper.

im using sums rimmington miner to mine copper and tin. and thank you! :D

If you have any extra, tell me, I would love to buy it.

new version almost ready….guess what its going to be faster….better bank finding, door finding…(working on furnace finding but its getting better) prepare to be amased. but it wont be done(hee hee thanks bories) till tomorrow(that furnace finding needs some fine tuning.+ i dont have any more ores.)

"but it wont be dont" It doesnt make sense but it rymes. :)

I cant wait for the update, I dunno how much better it can get. Im gonna have like 10k and 5k iron to smelt and like 1k tin and 1k copper to smelt. :)

Help!
I used it yesterday to do a little bit of smelting but now today when I had heaps of tin and copper all it dose is take out the tin says it cant find ores and logs out, what am I doing wrong??

I'm getting this error, can someone help me?

Line 83: [Error] (15579:22):

Line 83 is this : Players[0].integer1:=15; //how many loads

Put you bank pin at 0. It means the line above it btw.

If that doesnt work dont put anything for your bank pin.

Ya, so anyway, xcan, have that version ready soon, I have been running sums rimmy miner, and my guys have like 10k iron ores to smelt, so it would be nice to get this running, ejjmans doesnt work anymore cause they moved certain colors around, so it isnt working, and make yours work for 3.11 :)

ill make it work for 3.11 when i download 3.11:p and i think i gotta put the furnace finding to what it was. but banking and door finding are much improved.

ok its uploaded.

Download 3.11 now, last version didnt like 3.11 for some reason. I dont want to have 2.03 (Chicken Killer) 3.06 (Smelter) and 3.11 (everything else). It makes me mad. :p

lol…i got 3.11 downloaded but i gotta wait to get some coal so i can test.

Fine… What script are you using for coal anyway?

Thanks for updating :) I will test it out later today….

EDIT: Tested, Bronze doesnt work. It withdraws tin but not copper. Then it says it cant find ores and log out

Steels withdrawing works, but it cant find cactus for me. So it blind clicks, which sort of works.
Should I just put in color for cactus so it doesn't have to find it?

EDIT Again: I tested it a third time and it found the cactus…bronze still doesnt work. Steel is flawless though

hmm…i havent touched anything to do with bronze. try 2.14 to see if the bronze works there. the color on the copper might've changed

3garrett3: i just buy coal.i have no good coal miners.

Will do, Ill edit this post soon with results.

Buying coal, how much each, I got like 10k, but I bought it.

how much you selling for? ill buy basically as much as you can sell. (i got 3k addy so i need the coal)

edit: next version has an auto updater.

I mean, I'll sell 5k of it, but at like 200ea (considering I bought it at 200ea).

But I would only sell it if you sold my some copper and tin, cause I have 5 accounts I need to get up to lvl 15 to smith Iron, and thats like 1.5k bronze bars. Summilions Rimm miner doesnt work for me (goes east to yew tree at fally gates) so I have no real way to get tin or copper.


EDIT: 2.14 Bronze doesn't work eather.

SRL Compiled in 15msec.
Found Compass
Cactus Color = 3371601
Didnt Find Ores…Logging Out
NextPlayer

I'm pretty sure this :

rock2 := DTMFromString('78DA6314636060106540016FDAAC19B880342' +
'310FF0702467E204381010D302291405A06484811500332438880' +
'1A90C592F8D50000BE3206A7');

Is the problem, theres something wrong in there, I dunno what though

ill have to make another dtm

edit: try 2.16

Will do

EDIT: I like the auto updater, but Bronze still doesn't work. This time it doesn't even withdraw tin or copper. It just loads bank screen and then presses the X right away and log outs.

Checking Version…
You Have The Latest Version
SRL Compiled in 16msec.
Found Compass
Cactus Color = 2448692
Didnt Find Ores…Logging Out


Have you tested Bronze yet? Or is it just me its not working for, I mean I tested steel and it works.

I can give you like one full load of copper and tin for you to test it if you dont have it.

Ya the script did work for bronze, but after like 200 it got box and stopped and now when ever I try to start it I lag heaps (probly just my connection) but anyway hope it clears up and try it again thanks.

i didnt test bronze. uhhh…ill try to get some ores.
use 2.16 to get the new one.

Ill try bronze again….

Yes, it works in 2.17. YES!!!

The door finding is uber fast know, the mouse just runs over it a second….very nice.



One suggestion, just have it go Setrun(true); at the end

begin
CheckVersion;
SetupSrl;
Mousespeed:=Mspeed;
Benmouse:=Bmouse;
SRLID:=MySRLID;
SRLPassword:=MYSRLPASSWORD;
ScriptID:='30'
ReportVars[2]:=ReportVars[2]+1
DeclarePlayers;
LoadDtms;
LoginPlayer;
SetRun(True);
MakeCompass('w')
FindCactusColor;
MakeCompass('w')
FindMould;
Chats;
Main;
end.

This makes it go quite a bit faster, if you have it switch after like 10 loads, they are almost running the whole time.

|Ran For: 00:18:59 |
|Finished: 10 load(s). |
|Made: 238 bars. |
|Gained: 1475.6 exp. |
|Gained: 7 level(s).

nice, 7 levels, 238 bars in under 20 mins.

next version…lol

edit: 3garrett3: 2.17 is working with divi 3.11. you have to get 2.16 then it will auto update. (i ran out of uploading spots on here)

This works with 3.11? Does it work better in 3.11 or 3.06, cause im using 3.06 and it works flawlessly.

Successfully compiled
Line 426: [Hint] (15922:5): Variable 'S' never used in script C:\Program Files\SCAR 3.11\Scripts\RS\Xcan's Smelter2.16-pub.scar
Line 745: [Hint] (16241:5): Variable 'I' never used in script C:\Program Files\SCAR 3.11\Scripts\RS\Xcan's Smelter2.16-pub.scar
Line 57: [Hint] (15553:1): Variable 'ACC' never used in script C:\Program Files\SCAR 3.11\Scripts\RS\Xcan's Smelter2.16-pub.scar
Checking Version...
You Do Not Have the Latest Version...Updating
[Runtime Error] : Exception: Filenames can not contain any of these characters: / : * ? " < > | in line 204 in script C:\Program Files\SCAR 3.11\Scripts\RS\Xcan's Smelter2.16-pub.scar

I get this when i try to run 2.16 in Scar 3.11 w

Hmm, great code… I didnt find anything to complain about so I used all my powers to find sum flaws in ur standards :stirthepot:
A) 'mith':
begin
end;
is supposed to be
'mith': begin
end;

B) ABCD:=iwjd*j23+22;
is supposed to be
ABCD := iwjd * j23 + 22;

:) Great job

lol thanks n3ss3s.

grr…darn freddy. ill go report this in the bugs on freddy's site. so for now just use 3.06. unless you want to update with 3.06 and run on 3.11.

edit: if you want it to work with 3.11 go to checkversion and find this line

AFile:=RewriteFile(AppPath+'/Scripts/Xcan''s Smelter'+version+'-Pub.scar',false)

now change that to

AFile:=RewriteFile(AppPath+'\Scripts\Xcan''s Smelter'+version+'-Pub.scar',false)

voila now it works

More ppl should use this…I mean, if you have 5 characters that can smith Steel, you can make 600k in 10hrs….and thats with buying the coal and iron, I mean, if you mined then, that thats like 3.6mil in 10hrs.

im making 630k in one hour making addy

edit: but the addy isnt working right now. looks like jagex is changing the ore colors slowly. remember the bronze wouldnt work because of that. and now its addy. steel should be messing up sooner or later.

Ya, jeez. 630k an hour…. Are you buying the coal and addy? or Mining them. If your buying them, what do you buy them at and what do you sell them at? I'm getting a few guys close to smelting addy…

ahh sorry…ill have to calculate the profit but thats the gross value.

ooooooo, so do you buy addy ore and coal, then smith it and sell for what, 3k a bar or something?

3.4k ea im trying to get 3.5kea

This script runs good, but after I run it for say, an 2 hours, all my accounts end up like west of the Scimmy shop, by that cactus. I think the script gets confused because the cactus is the same shape and color is the one it uses to walk to and from the bank. I don't know if theres anything you can do about it…

i had a better version but i need a good door autocolorer. i can get it to find right beside the furnace door. then ill have another proc to find the middle of the furn. it will be better but it messed up because of the door autocolorers i was using.

You dont always need Autocolorers, I mean, I can get the color of the door myself and put it in….if it would make it easier.

it changes often…unless you want to keep changing the color.:p

Ya, its easier for the lazy ass like me to not have to walk around and pick all the colors before starting the script.

so as soon as i get a good autocolorer ill let you guys have it.

k, sounds good :)

thanks alot for this script only problem is it sometimes get lost at the unused bank booths and it freezes…. sometimes? here's my proggie:

/Xcan's Smelter/CannonballMaker\
| V2.17 |
|——————————|
|Ran For: 00:39:12 |
|Finished: 18 load(s). |
|Made: 189 bars. |
|Gained: 1102.5 exp. |
|Gained: 1 level(s). |
|___________________________|
| SRL Randoms Report |
| www.Srl-Forums.com |
|___________________________|
\___________________________/

ya i figured it would do that eventually. my one that im working on now has that fixed.

So now that theres new randoms out, should I wait on using scripts until a version of SRL comes out that solves these randoms? I imagine that would take a while unless it already solves them.

i havent gotten the new random yet and ive been autoing for the last couple days.

Each time i run the script it opens the bank and cant find the rock DTM. What should i do? The Rock is there. Im trying to smith bronze..Help…

you got the new version?

is the newest version 2.18?

If is is then i have it.

ya…damn i gave the one without the changed bronze DTM. grrr…i have to many versions. ill see if i can find the right one.

ok to update it just find this

{
====================================================================== }
                     VersionNumber = '2.18';                                          {
====================================================================== }

and change it to 2.17. it will then download the new one and just use the new one.

srr dude it still doesn't work??

ok tell me EXACTLY what it does then.

Back from Vacation… I'll try it out again :)

ok this is what the dialog box says:

User specified a new RS window
Successfully compiled
Checking Version…
You Have The Latest Version
SRL Compiled in 516msec.
Cactus Color = 3701336
Didnt Find Ores…Logging Out
NextPlayer

So it logs in then it opens the bank and cant find the copper and tin ore so it quits out of the bank and logs out…

grr jagex is bugging the hell outta me. the copper ore should work but i gotta change the tin one now.

Haha. Jagex is bugging us all sir :p

its like they wait until i fix one dtm then they screw up another one….

They got spys everywhere!!!

i try to run it. but it keep said u don't have the latest version but all i see it 2.16 is the newest can u help me

it auto updates it…check in your scripts folder of scar

i try to update it but it keep said
[Runtime Error] : Exception: Filenames can not contain any of these characters: / : * ? " < > | in line 204 in script

i dont feel like putting another version up so put this in the checkversion proc.

Procedure CheckVersion;
var version,version1,script:string;
    Afile:integer;
begin
  Writeln('Checking Version...')
  Version1:=GetPage('http://www.xcanadamanx.phpnet.us/Version.txt')
  Version:=Left(version1,4)
  if not(VersionNumber=Version) then
  begin
    Writeln('You Do Not Have the Latest Version...Updating')
    Script:=GetPage('http://www.xcanadamanx.phpnet.us/Smelter'+version+'.txt')
    AFile:=RewriteFile(apppath+'\Scripts\Xcan''s Smelter'+version+'-pub.scar',false)
    if WriteFileString(AFile,Script) then
    begin
      Writeln('V'+version+' is Saved in Scar''s Scripts Folder')
      Writeln('Terminating Script')
      TerminateScript;
    end else
    writeln('Couldn''t save script...Go to WWW.SRL-Forums.com')
  end else
  writeln('You Have The Latest Version')
end;

I tried lots of times but it just didn't work..
I have set the players and the the brightness in low detail..
the debug box writes:

Successfully compiled
Checking Version…
You Have The Latest Version
SRL Compiled in 13msec.
Found Compass

Then just stand here and nothing to do..:(
Please give me some solutions.

have you looked at the top banner lately? ill show you what it says.

Welcome to the SRL forums… RUNESCAPE UPDATE 06-08-07…SRL NEEDS TWEAKING…SRL Library no longer compatible with Runescape…Dont auto until SRL is updated!…

Can't even start the script! :(

Line 199: [Error] (16020:10): Unknown identifier 'Left' in script C:\Documents and Settings\Leonardo\Escritorio\Xcan's Smelter2.16-pub.scar

use scar divi. and it wont work anyway because of the update.

then update ur scritpt it was so nice :s

i cant until srl is updated

Welcome to the SRL forums… RUNESCAPE UPDATE 06-08-07…SRL NEEDS TWEAKING…SRL Library no longer compatible with Runescape…Dont auto until SRL is updated!…

will it work with SRL 4 beta?

Can Somebody fix this script that was how i made money in runescape!!!!!!!!!

no im still updating it…seems that some things dont work as well as they did with srl 3.81…be patient im working on it.

From: XcanadamanX
no im still updating it…seems that some things dont work as well as they did with srl 3.81…be patient im working on it.

man this is a very good script i cant wait for the next updated 1! take your time yo the slower the better cuz more things that need to be fixed will be fixed. great script!:spot:

me too bro
come on XcanadamanX u can do it

ive been busy sorry…furnace finding is better now…but my count functions dont work now so im trying to find another way to do the same thing.

so it just needs a little tweaking hopefully nothing big? =D

once i figure out this one bug ill release it but until then…

edit: 2.19 out use the auto updater to get it
also the proggy doesnt really work. it shows time and loads thats it. the find level function also may not work. tell me if it doesnt. also tell me any other bugs it may have.

thx man =D

*cough*it the autoupdater might not work because of the old script*cough* so i may just post it here.

program XcanSmelterCannonBallMaker;
{.include SRL/SRL.Scar}
{.include SRL/SRL/Misc/Trade.Scar}
{
                                  __
              __  __             (_ \
              \ \/ /___ __ _ _ __  \/ ___
               \  // __/ _` | `_ \   / __|
               /  \ (_| (_| | | | |  \__ \
              /_/\_\___\__,_|_| |_|  |___/
               __                _ _
              / _\_ __ ___   ___| | |_ ___ _ __
              \ \| '_ ` _ \ / _ \ | __/ _ \ '__|
              _\ \ | | | | |  __/ | ||  __/ |
              \__/_| |_| |_|\___|_|\__\___|_|
                    ____    _  ___
             /\   /\___ \  / |/ _ \
             \ \ / / __) | | | (_) |
              \ V / / __/ _| |\__, |
               \_/ |_____(_)_|  /_/


           NAME        : Xcan's Smelter V2.19
           WRITER      : XcanadamanX (Xcan)
           CATEGORY    : Smelter
           AUTOCOLOR   : No need
           CONTACT     : [email]rstevenson23@gmail.com[/email]
           SRL REV.    : 4
           Scar REV.   : 3.11
==========================================================================
                Smelts And Banks All Bars In Al Kharid.

==========================================================================
                           Instructions.
==========================================================================


 1. USE Runescape with Low Detail, Very Bright.
 2. Set your Screen to 32 bit TRUE color.
 3. Set Playernames and Passwords in DeclarePlayers.
 4. Set NumberOfPlayers.
 5. Position your chars at Al Kharid bank RIGHT bankslot.
 6. Make sure your Players have ores/bars.
==========================================================================

Use anything you want in this script in your own personal scripts.
please credit me if you do this so no one thinks your stealing ;)

Valid Bars-> bronze,iron,steel,silver,gold,mith,addy,rune.
Valid Cannonball options-> or-ball smelts ores then makes cannonballs.
                        -> st-ball makes cannonballs from steel bars. }



Var
    DTM,x,y,CactusColor,OreAmount,sbar,load,loads:integer;
    rock1,rock2,mould,levels,DoorColor,TotalCballs,TotalBars:integer;
    NoMould:boolean;

Const StartPlayer   = 0; // Determines who will play first
      MSpeed        = 13; //speed of the mouse...higher number slower speed, lower number higher speed
      BMouse        = true; //BenMouse...true or false
      MySRLID       = '';   // Must be a string!
      MySRLPassword = '';   // Must be a string!
      RunDir        = 's';  // RunDirection when you find a fight.
      RunFar        = True;  //just leave this

{
====================================================================== }
                     VersionNumber = '2.19';                                          {
====================================================================== }

Procedure DeclarePlayers;
begin
  HowManyPlayers:= 2; // Set Number of Players here.
  NumberOfPlayers(HowManyPlayers); // Sets the Players Array Length;
  CurrentPlayer:= StartPlayer; // CurrentPlayer = Array Index
  HowManyBooleans := 0;

  Players[0].Name    :='';    //username
  Players[0].Pass    :='';    //password
  Players[0].Nick    :='';       //3-4 consecutive letters of your user name(NOT First letter)
  Players[0].Loc     :='Bank';   //keep at bank
  Players[0].Strings[0] :='';       //type of bar bronze,iron,steel,mith,addy,rune,gold,silver,or-ball(ore ot cball),st-ball(steel to cball)
  Players[0].Pin     :=;           //Pin number(not a string!!)
  Players[0].integers[0]:=10;           //how many loads
  Players[0].integers[1]:=0;         //LEAVE THESE
  Players[0].integers[2]:=0;         //LEAVE THESE
  Players[0].Active  :=True;         //are you going to use this player

{  Players[1].Name    :='';    //username
  Players[1].Pass    :='';    //password
  Players[1].Nick    :='';       //3-4 consecutive letters of your user name(NOT First letter)
  Players[1].Loc     :='Bank';   //keep at bank
  Players[1].String1 :='';       //type of bar bronze,iron,steel,mith,addy,rune,gold,silver,or-ball(ore ot cball),st-ball(steel to cball)
  Players[1].Skill   :='smithing';   //skill to choose when you get a genie
  Players[1].Pin     :=0;           //Pin number(not a string!!)
  Players[1].integer1:=0;           //how many loads
  Players[1].Active  :=True;}
  LoadPlayerArray;
end;

Procedure LoadDtms;
Begin
  DTM := DTMFromString('78DA63EC67626008624001EDEDD10C2250F67' +
       'F2060EC06AAF14655F3E70F13580D2394CFD80E54E345404D3F61' +
       '7300DB730F15');
  case Lowercase(Players[CurrentPlayer].Strings[0]) of
  'bronze':
  begin
  rock1 := DTMFromString('78DA639CC0C0C0C0C3C8800C7A9B9B1944803' +
       '448F43F10304E063118D000231209A4E700090E46FC6ABA808424' +
       '01357540828F809AA9404204BF1A0097F90A64');
  rock2 := DTMFromString('78DA634C64606038C080021E345A328800694' +
       '620FE0F048CB940C60E0634C0884402E954207182809A68207196' +
       '801A7F207118BF1A00ACC90B66');
  OreAmount:=28;
  end;
  'iron':
  begin
  rock1 := DTMFromString('78DA63DCCFC0C0E0CB80027CF59519B880342' +
       '310FF0702C60D404618031A60442281F40E20114D40CD3120114A' +
       '40CD6920E1855F0D00E4FC0A09');
  rock2:=0
  OreAmount:=28;
  end;
  'steel','or-ball':
  begin
  rock1 := DTMFromString('78DA63DCCFC0C0E0CB80027CF59519B880342' +
       '310FF0702C60D404618031A60442281F40E20114D40CD3120114A' +
       '40CD6920E1855F0D00E4FC0A09');
  rock2 := DTMFromString('78DA63EC676060F06140012626CA0C5C409A1' +
       '188FF0301E374202394010D30229140BA11488411503307487811' +
       '50D30D24A2F1AB0100797E090A');
  sbar := DTMFromString('78DA63946660601062400113DBDB19B880342' +
       '310FF0702460520839B010D302291401A648E0C01353C40429880' +
       '1A652021825F0D00B24D0699');
  mould := DTMFromString('78DA63E4656060E066400139A9A90C5C409A1' +
       '188FF0301A3389021C58006189148202D0B24D809A8E144E2E052' +
       '036288E057030053D005D7');
  OreAmount:=27;
  end;
  'st-ball':
  begin
  sbar := DTMFromString('78DA63946660601062400113DBDB19B880342' +
       '310FF0702460520839B010D302291401A648E0C01353C40429880' +
       '1A652021825F0D00B24D0699');
  rock1 := DTMFromString('78DA63946660601062400113DBDB19B880342' +
       '310FF0702460520839B010D302291401A648E0C01353C40429880' +
       '1A652021825F0D00B24D0699');
  rock2 := 0
  mould := DTMFromString('78DA63E4656060E066400139A9A90C5C409A1' +
       '188FF0301A3389021C58006189148202D0B24D809A8E144E2E052' +
       '036288E057030053D005D7');
  end;
  'silver':
  begin
  rock1 := DTMFromString('78DA6314636060106140011B36EC62E002D28' +
       'C40FC1F0818F9810C050634C0884402690E202145408D0C116A14' +
       '8184007E3500FB290711');
  rock2:=0
  OreAmount:=28;
  end;
  'gold':
  begin
  rock1 := DTMFromString('78DA631463606010614001F7B749317001694' +
       '620FE0F048CFC408602031A604422813407909022A04686083520' +
       '7B84F0AB0100B99E06A7');
  rock2:=0
  OreAmount:=28;
  end;
  'mith':
  begin
  rock1 := DTMFromString('78DA631462606010644001BEFEC50C5C409A1' +
       '188FF0301A33C90C1CD8006189148202D0924C408A8E103123204' +
       'D4B0030951FC6A004D1805E6');
  rock2 := DTMFromString('78DA63EC676060F06140012626CA0C5C409A1' +
       '188FF0301E374202394010D30229140BA11488411503307487811' +
       '50D30D24A2F1AB0100797E090A');
  OreAmount:=25;
  end;
  'addy':
  begin
  rock1 := DTMFromString('78DA634C646060F06340013E09BE0C22409A1' +
       '188FF0301632E90E1CE8006189148201D0324A209A8F1C7B40B43' +
       '4D3A9008C5AF06005E91088B');
  rock2 := DTMFromString('78DA63EC676060F06140012626CA0C5C409A1' +
       '188FF0301E374202394010D30229140BA11488411503307487811' +
       '50D30D24A2F1AB0100797E090A');
  OreAmount:=28;
  end;
  'rune':
  begin
  rock1 := DTMFromString('78DA631463606010624001FE19250C5C409A1' +
       '188FF0301A32090A1C08006189148200DD22049408D0C909022A0' +
       '46114808E057030066CC0623');
  rock2 := DTMFromString('78DA63EC676060F06140012626CA0C5C409A1' +
       '188FF0301E374202394010D30229140BA11488411503307487811' +
       '50D30D24A2F1AB0100797E090A');
  OreAmount:=27;
  end;
  end;
end;

Procedure CheckVersion;
var version,version1,script:string;
    Afile:integer;
begin
  Writeln('Checking Version...')
  Version1:=GetPage('http://www.xcanadamanx.phpnet.us/Version.txt')
  Version:=Left(version1,4)
  if not(VersionNumber=Version) then
  begin
    Writeln('You Do Not Have the Latest Version...Updating')
    Script:=GetPage('http://www.xcanadamanx.phpnet.us/Smelter'+version+'.txt')
    AFile:=RewriteFile(AppPath+'\Scripts\Xcan''s Smelter'+version+'-Pub.scar',false)
    if WriteFileString(AFile,Script) then
    begin
      Writeln('V'+version+' is Saved in Scar''s Scripts Folder')
      Writeln('Terminating Script')
      TerminateScript;
    end else
    writeln('Couldn''t save script...Go to WWW.SRL-Forums.com')
  end else
  writeln('You Have The Latest Version')
end;

function FindCactusColor: Integer;
var
  GenericColor, a, b, TestColor, Red, Green, Blue : integer;
begin
  GenericColor := 3698770;
  Flag;
  a := MMX1;
  b := MMY1;
  repeat
    b := b + 1;
    repeat;
      a := a + 1;
      if FindColorTolerance(x, y, GenericColor, a, b, MMX2, MMY2, 50) then
      begin
        if a = MMX1 + 1 then b := y;
        a := x;
        TestColor := GetColor(x, y);
        red := (TestColor mod 256);
        green := ((TestColor / 256) mod 256);
        blue := ((TestColor / 256) / 256);
        if Green - Red >= 24 then if Green - Red <= 60 then
        if Red - Blue >= 1 then if Red - Blue <= 33 then
        if Green - Blue >= 40 then if Green - Blue <= 78 then
        begin
          Result := TestColor;
          CactusColor := TestColor;
          WriteLn('Cactus Color = ' +
          IntToStr(TestColor));
          Exit;
        end;
      end else a := MMX2;
    until a >= MMX2;
    a := MMX1;
  until b >= MMY2;
  WriteLn('Could not find Cactus Color!');
  Result := 0;
end;

Function InPin2(pin:integer):Boolean;
var pinstr:string;
    star,i,x,y:integer;
    tpt1,tpt2:array[0..3] of tpoint;
begin
  if (PinScreen) then
  begin
    star := BitmapFromString2(False, 'a81C2B78DA4D8B3912C0200C0' +
       '3BF247C01A5C984FF3F29166970B1A359C90090A3007F0A61493A' +
       '8DDBCBACF4328CE66C7C07BDF0A9A7928B6DF4C63C4FA15E684B6' +
       'C1AD47EEE3AE036373F9CC');
    tpt1[0].x:=428; tpt1[0].y:=31;
    tpt2[0].x:=442; tpt2[0].y:=48;
    tpt1[1].x:=444; tpt1[1].y:=31;
    tpt2[1].x:=458; tpt2[1].y:=48;
    tpt1[2].x:=460; tpt1[2].y:=31;
    tpt2[2].x:=474; tpt2[2].y:=48;
    tpt1[3].x:=476; tpt1[3].y:=31;
    tpt2[3].x:=490; tpt2[3].y:=48;
    PinStr:=(inttostr(pin))
    mmouse(322,203,20,20);
    for i:=1 to 4 do
    begin
      wait(100+random(100));
      ClickText(pinstr[i], upchars, 1, 1, 512, 336, True);
      wait(100+random(100))
      mmouse(322,203,20,20);
      repeat
        wait(20)
        if i=4 then
        begin
          repeat
            wait(20)
          until bankscreen
        break;
        end;
      until FindBitmaptoleranceIn(star,x,y,tpt1[i-1].x,tpt1[i-1].y,tpt2[i-1].x,tpt2[i-1].y,20)
    end;
  end;
  if (bankscreen) then result:=true;
  freebitmap(star)
end;

function XRadialWalk(TheColor: Integer; StartRadial, EndRadial: Integer; Radius:
  Integer; Xmod, Ymod, Xoff, Yoff: Integer): Boolean;
var
  mx, my: Integer;
begin
  if (StartRadial = EndRadial) then
  begin
    WriteLn('WARNING: Using LinearRalk, StarRadial, and EndRadial are the same');
    if LinearRoadWalk(TheColor, StartRadial, Radius, XMod, YMod) then
      Result := True;
  end else
  if (radialwalkex(mx, my, 648, 83, thecolor, 0, startradial, endradial, radius))
  then
  begin
    MouseFindFlag(MX+Xoff, MY+Yoff, Xmod, Ymod);
    Result := True;
  end;
end;

function XRadialFindObj(var Wx,Wy:integer; TheColor: Integer; StartRadial, EndRadial: Integer; Radius:
  Integer; Xoff, Yoff: Integer): Boolean;
var
  mx, my: Integer;
begin
  if (radialwalkex(mx, my, 648, 83, thecolor, 0, startradial, endradial, radius))
  then
  begin
    WX:= (Mx + Xoff)
    WY:= (My + Yoff)
    Result := True;
  end;
end;

Function Level:boolean;
begin
  Result:=(GetColor(213, 386)=8388608)
  if (result) then
  begin
    clicktocontinue;
    wait(2000)
    clicktocontinue;
    WriteLn('******** LEVEL UP ********');
    WriteFileString(TheFile, '******** LEVEL UP ********' + Chr(13))
    levels:=levels+1;
    ReportVars[4]:=ReportVars[4]+1;
  end;
end;

Procedure FindMould;
Begin
  if FindDtm(Mould,x,y,MIX1,MIY1,MIX2,MIY2) then
  NoMould:=False
end;

Function FindT:boolean;
Begin
  repeat
    if not Loggedin then Exit;
    wait(100+random(200));
  Until (FindText(x, y, 'Enter amount:', UpChars, MCX1, MCY1, MCX2, MCY2));
  result:=true
End;

Procedure Logout2;
var i:integer;
text:string;
Begin
  GameTab(10)
  i:=random(4)
  case i of
  0:text:='lick'
  1:text:='ere'
  2:text:='to'
  3:text:='ogo'
  end;
  ClickText(text,upchars,MiX1,MIY1,MIX2,MIY2,true)
  repeat
    wait(500)
  until not(Loggedin)
end;

Procedure WithdrawOres(option1,option2:string;amount1,amount2,rock1,rock2:integer);
Begin
 if (not(Loggedin)) then exit;
 if rock2=0 then
 begin
   if FindDTM(rock1,x,y,MSX1,MSY1,MSX2,MSY2) then
   begin
     Mouse(x,y,3,3,false)
     repeat
       wait(10)
     Until(ChooseOption('All'))
   end else
   Begin
     Writeln('Didnt Find Ores...Logging Out')
     closebank;
     closebank;
     Logout2;
     exit;
   end;
 end else
 begin
   if FindDTM(rock1,x,y,MSX1,MSY1,MSX2,MSY2) then
   Begin
     repeat
       Mouse(x,y,3,3,false)
       wait(10)
     Until(ChooseOption(option1))
     if option1='X' then
     begin
       if FindT then
       TypeSend(inttostr(amount1))
     end;
     If FindDTM(Rock2,x,y,MSX1,MSY1,MSX2,MSY2) then
     Begin
       repeat
         Mouse(x,y,3,3,false)
         wait(10)
       Until(ChooseOption(option2))
       if option2='X' then
       begin
         if FindT then
         TypeSend(inttostr(amount2))
       end;
     end else
     Begin
       Writeln('Didnt Find Ores...Logging Out')
       closebank;
       closebank;
       Logout2;
       NextPlayer(false)
       exit;
     end;
   end else
   Begin
     Writeln('Didnt Find Ores...Logging Out')
     closebank;
     closebank;
     Logout2;
     NextPlayer(false)
     exit;
   end;
   if (NoMould) and ((Players[CurrentPlayer].strings[0]='or-ball') or
   (Players[CurrentPlayer].strings[0]='st-ball')) then
   if FindDtm(mould,x,y,MSX1,MSY1,MSX2,MSY2) then
   begin
     Mouse(x,y,4,4,true)
     NoMould:=False;
   end else
   begin
     Writeln('Didnt Find Mould...Logging Out')
     closebank;
     closebank;
     Logout2;
     NextPlayer(false)
     exit;
   end;
 end;
end;


Procedure InBank;
Begin
  if (not(Loggedin)) then exit;
  if (not(bankscreen)) then exit;
  Case lowercase(Players[CurrentPlayer].Strings[0]) of
  'bronze':WithdrawOres('X','All',14,14,rock1,rock2)
  'iron','silver','gold':WithdrawOres('All','',0,0,rock1,rock2)
  'steel','or-ball':WithdrawOres('X','X',9,18,rock1,rock2)
  'st-ball':WithdrawOres('All','',0,0,rock1,rock2)
  'mith':WithdrawOres('X','X',5,20,rock1,rock2)
  'addy':WithdrawOres('X','All',4,0,rock1,rock2)
  'rune':WithdrawOres('X','X',3,24,rock1,rock2)
  End;
End;

Function Amount1:boolean;
begin
  if (FindText(x,y,'Enter amount:',UpChars,MCX1,MCY1,MCX2,MCY2)=true) then
  result:=true
end;

function CountItemDtm(dtm: Integer): Integer;
var
  i, x, y: Integer;
  TB: Tbox;
begin
  GameTab(4);
  for i := 1 to 28 do
  begin
    TB := InvBox(i);
    if ExistsItem(i) then
      if FindDtm(DTM, x, y, TB.x1, TB.y1, TB.x2, TB.y2) then
        Inc(Result);
  end;
end;

Function OreCount:integer;
Begin
   result:=CountItemDtm(rock1)
end;

Function BarCount:integer;
Begin
   result:=CountItemDtm(Dtm)
end;


{Function Door(var x,y:integer):boolean;
begin
  if (FindObjMultiDistTime(x,y,'se D','e Doo','Clo',1659242,1261909,538442,20,45,2))then
  Result := True;
end;}

Function Door(colors:array of integer):boolean;
var i:integer;
Begin
  For i:=0 to (length(colors)-1) do
  begin
    if FindColoredAreaTolerance(x,y,colors[i], 175, 43, 379, 252, 20, 10) then
    begin
      MMouse(x,y,0,0)
      wait(10)
      If IsUpTextMulti('Door','oor','Doo') then
      begin
        result:=True
        break;
      end;
    end;
  end;
end;


procedure OpenDoor;
var mark:integer;
begin
  if (not(Loggedin)) then exit;
  Status('finding door...');
  writeln('finding door');
  fflag(0)
  wait(100)
  MarkTime(mark);
  Mousespeed:=25+random(10)
  if (Door([1659242,1261909,538442])) then
  begin
    wait(100)
    If IsUpTextMulti('C','los','ose') then
    writeln('door is open')
    else
    begin
      if IsUpTextMulti('O','pen','Open') then
      begin
        getmousepos(x,y)
        Mouse(x,y,0,0,true)
      end;
    end;
    Mousespeed:=MSpeed;
  end else
  writeln('couldn''t find door')
end;

Procedure FindBank2;

var
  bx, by: Integer;
  WhichAngle: Extended;

Begin
  wait(250)
  if FindDtmRotated(DTM, bx, by, MMX1, MMY1, MMX2, MMY2, -2.0, 2.0, 0.5,
  WhichAngle) then
  Begin
    Mouse(bx, by, 0, 0, True);
    WriteLn('Found DTM');
    Flag;
  end else
  begin
    WriteLn('Didnt Find DTM...looking for symbol');
    FindSymbol(x, y, 'bank');
    Mouse(x, y, 2, 2, true);
    Flag;
    wait(500);
    FindDtmRotated(DTM, x, y, MMX1, MMY1, MMX2, MMY2, -1.0, 2.0, 0.1,
    WhichAngle)
    Mouse(x, y, 0, 0, true);
    Flag;
  end;
end;

Function FindBankBooth(Colors:array of integer):boolean;
var i:integer;
Begin
  For i:=0 to (length(colors)-1) do
  begin
    if FindColoredAreaTolerance(x,y,colors[i], 240, 76, 340, 221, 40, 10) then
    begin
      MMouse(x,y,0,0)
      wait(10)
      If IsUpTextMulti('ank','booth','ooth') then
      begin
        result:=True
        break;
      end;
    end;
  end;
end;

procedure MyOpenBank;
begin
  If (not(Loggedin)) then exit;
  Status('Opening bank...');
  Flag;
  wait(500)
  if not (BankScreen) then
    //Lowestangle;
    repeat
     // if (FindObjMultiDist(x,y,'ank','Bank','Ban',5988448,3618620,2114903,15,60)) then
      if FindBankBooth([605778,5988448,604492,12097,7763321]) then
      begin
        getmousepos(x,y)
        Wait(250);
        Mouse(x,y,0,0,false);
        if (ChooseOption('quickly')) then
        begin
          Flag;
          repeat
            Wait(1000);
            InPin2(Players[CurrentPlayer].Pin);
          until (BankScreen);
        end;
      end;
    until (BankScreen)
end;

Function BarScreen:boolean;
begin
  result:=(GetColor(37, 373)=10264383)
end;

Procedure SortTPAFrom(Var a: Array Of TPoint; From: TPoint); //creds to Wizzup?
  { Sort's all points in a TPointArray.
    First Value will be closest to From, Last Value most far away.}
Var
   I, C: Integer;

Begin
  For I := 0 To Length(a) - 2 Do
  Begin
    If Distance(a[i].x, a[i].y, from.x, from.y) > Distance(a[i + 1].x, a[i + 1].y, from.x, from.y) Then
    Begin
      C := I;
      Repeat
        {WriteLn(IntToStr(c) + ' (' + IntToStr(a[c].x) + ', ' + IntToStr(a[c].y) + ') <-> ' +
        ' (' + IntToStr(a[c + 1].x) + ', ' + IntToStr(a[c + 1].y) + ')');}
        tSwap(a[c], a[c + 1]);
        if c < 1 then
          break;
        c := c - 1;
      Until Distance(a[c].x, a[c].y, from.x, from.y) < Distance(a[c + 1].x, a[c + 1].y, from.x, from.y)
      //writeln('next');
    End;
  End
End;

Function FindFurnace2:boolean;
var i,x,y,tempmousespeed:integer;
    points:array of tpoint;
    point:tpoint;
Begin
  wait(250);
  point.x:=MSCX;
  point.y:=MSCY
  colortolerancespeed(2)
  FindColorsTolerance(Points,1913771,MSx1,MSy1,MSx2,MSY2,10)
  writeln(inttostr(length(points)))
  SortTPAFrom(points,point)
  Mousespeed:=25+random(10)
  wait(250)
  For i:=0 to (length(Points)-1) do
  begin
    wait(2)
    If FindColoredAreaTolerance(x,y,1913771,points[i].x-30,points[1].y-30,points[i].x+30,
    points[1].y+30,80,10) then
    begin
      MMouse(x,y,4,4)
      wait(100+random(100))
      If IsUpTextMulti('melt','urn','ace') then
      Begin
        GetMousePos(x,y)
        Mouse(x,y,0,0,true)
        writeln('found furn')
        result:=True
        break;
      end;
    end;
  end;
  Mousespeed:=MSpeed;
  colortolerancespeed(1)
end;

Function FindFurnace(colors:array of integer):boolean;
var i:integer;
Begin
  wait(250);
  for i:=0 to (length(colors)-1) do
  begin
  if FindColoredAreaTolerance(x,y,colors[i], 136, 0, MMX2, MMY2, 2000, 20) then
  begin
    MMouse(x,y,0,0)
    wait(250)
    If IsUpTextMulti('melt','urn','ace') then
    begin
      mouse(x,y,0,0,true)
      writeln('found furn')
      result:=True
      break;
    end;
  end;
 end;
end;


Procedure PickBar(spot,amount:integer);
var a,b,mymark:integer;
Begin
  if (not(Loggedin)) then exit;
  fflag(0)
  marktime(mymark)
  Repeat
    if (not(Loggedin)) then Break;
    wait(10)
  until (FindFurnace2)
  repeat
    if (not(Loggedin)) then Break;
    wait(10)
  until (BarScreen)
  if (not(Loggedin)) then exit;
  if barscreen then writeln('found bar screen')
  a:=((spot*50)+5)
  b:=405
  MMouse(a,b,4,4)
  wait(100)
  getmousepos(x,y)
  Mouse(x,y,0,0,false)
  if (amount = 5) then
  begin
    ChooseOption('5')
    exit;
  end;
  if (amount = 10) then
  begin
    ChooseOption('10')
    exit;
  end;
  ChooseOption('X')
  FindT;
  SendText(inttostr(amount)+Chr(13))
end;

Function FindFastRandoms: Boolean;    // By WT-Fakawi.

Var
  i: Integer;

Begin
  For I := 1 To 14 Do
  Begin
    Case I Of
       1:  If FindDead Then
             Result := True;

       2:  If FindMod Then
             Result := True;

       3:  If FindMime Then
             Result := True;

       4:  If FindMaze Then
             Result := True;

       5:  If FindQuiz Then
             Result := True;

       6:  If FindDemon Then
             Result := True;

       7: Begin
             If NoGameTab Then
             Begin
               Result := True;
               Players[CurrentPlayer].loc := 'No GameTab';
               Logout;
               Exit;
             End;
           End;

       8: Begin
              If InBlack Then
              Begin
                Result := True;
                Players[CurrentPlayer].loc := 'InBlack';
                Logout;
                Exit;
              End;
            End;

       9 : If RC Then
             Result := True;

       10 : If FindFight Then
              Begin
                Result := True;
                RunTo(RunDir, RunFar);
              End;

       11: If FindTalk Then
             Result := True;

       12: If HandleTrade Then
             Result := True;

       13: If Level then
             Result := True;


       //14: SaveToLog;  next version probably if i get it working
       //                will save proggys and chat text

       14: If FindDemon Then
             Begin
               result:=True;
               SolveDemon;
             End;

    End;
    Wait(1);
  End;
End;

Function FindAll(num:integer):boolean;
var i:integer;
Begin
  if (not(Loggedin)) then exit;
  writeln('waiting to be done')
  While (OreCount > num) do
  begin
    case i+1 of
      1: begin
           If FindFastRandoms then
           begin
             Result:=True;
             break;
           end;
         end;
      2: Begin
           If FindNormalRandoms then
           begin
             Result:= True;
             break;
           end;
         end;
    end;
    wait(1)
    //SaveToLog;
    i:=i+1;
    if i>2 then i:=0
  end;
end;

Function FindAll2(num:integer):boolean;
var i:integer;
Begin
  if (not(Loggedin)) then exit;
  writeln('waiting to be done')
  While (BarCount > num) do
  begin
    case i+1 of
      1: begin
           If FindFastRandoms then
           begin
             Result:=True;
             break;
           end;
         end;
      2: Begin
           If FindNormalRandoms then
           begin
             Result:= True;
             break;
           end;
         end;
    end;
    if (not(loggedin)) then exit;
    wait(1)
    //SaveToLog;
    i:=i+1;
    if i>2 then i:=0
  end;
end;

Function FindAll3:boolean;
var i,mymark:integer;
Begin
  if (not(Loggedin)) then exit;
  writeln('waiting for flag to disappear')
  MarkTime(mymark)
  While (FlagDistance>8) do
  begin
    case i+1 of
      1: begin
           If FindFastRandoms then
           begin
             Result:=True;
             exit;
           end;
         end;
      2: Begin
           If FindNormalRandoms then
           begin
             Result:= True;
             exit;
           end;
         end;
      3: If TimeFromMark(MyMark)>=8000 then exit;
    end;
    if (not(loggedin)) then exit;
    wait(5)
    //SaveToLog;
    i:=i+1;
    if i>3 then i:=0
  end;
end;

Procedure InFurnace;
Begin
  if (not(loggedin)) then exit;
  Case Lowercase(Players[currentplayer].strings[0]) of
  'bronze':PickBar(1,14);
  'iron':PickBar(3,28);
  'silver':PickBar(4,28)
  'gold':PickBar(6,28)
  'steel':PickBar(5,10)
  'mith':PickBar(7,5);
  'addy':PickBar(8,5);
  'rune':PickBar(9,5);
  End;
  if (FindAll(0)) then
  begin
    Infurnace;
  end;
    wait(250)
    Players[currentplayer].integers[1]:=Players[currentplayer].integers[1]+BarCount
    ReportVars[1]:=ReportVars[1]+Barcount;
    TotalBars:=TotalBars+Barcount;
    Case lowercase(Players[currentplayer].strings[0]) of
      'bronze':ReportVars[10]:=ReportVars[10]+14;
      'iron':ReportVars[11]:=ReportVars[11]+BarCount;
      'silver':ReportVars[12]:=ReportVars[12]+28;
      'steel':ReportVars[13]:=ReportVars[13]+9;
      'gold':ReportVars[14]:=ReportVars[14]+28;
      'mith':ReportVars[15]:=ReportVars[15]+5;
      'addy':ReportVars[16]:=ReportVars[16]+4;
      'rune':ReportVars[17]:=ReportVars[17]+3;
    end;
end;

Procedure InFurnaceCannon;
Begin
  if (not(loggedin)) then exit;
  Case Lowercase(Players[currentplayer].strings[0]) of
  'or-ball':Pickbar(5,9)
  End;
  if (FindAll(0)) then
  begin
    InFurnaceCannon;
  end;
  ReportVars[1]:=ReportVars[1]+Barcount;
  TotalBars:=TotalBars+Barcount;
  Players[currentplayer].integers[1]:=Players[currentplayer].integers[1]+BarCount
  ReportVars[13]:=ReportVars[13]+Barcount;
end;

Procedure MakeCannonBalls;
Begin
  if (not(loggedin)) then exit;
  if FindDtm(mould,x,y,MIX1,MIY1,MIX2,MIY2) then
  begin
    if FindDtm(sbar,x,y,MIX1,MIY1,MIX2,MIY2) then
    begin
      flag;
      Mouse(x,y,4,4,true)
      repeat
        FindFurnace2;
        repeat
          wait(10)
        until (barscreen)
      until (barscreen)
      repeat
        Mouse(254,395,4,4,false)
        wait(100)
      until ChooseOption('All')
      if (FindAll2(1)) then
      begin
        MakeCannonBalls;
      end;
    end else
    begin
      Writeln('Didnt Find Steel Bars...Logging Out')
      logout2
      nextplayer(false)
    end;
  end else
  begin
    Writeln('Didnt Find Mould...Logging Out')
    NoMould:=True;
    exit;
  end;
end;

function FindDoorColor:integer; //creds to boreas!
var Color,tmpx,tmpy,MinOfRange:integer;
Length206,Length217,Length233,Length241:integer;
Array206,Array217,Array233,Array241:array of tpoint;
RangeOfOthers206,RangeOfOthers217,RangeOfOthers233,RangeOfOthers241:integer;
tmpbool:boolean;
begin
  for Color:=200 to 254 do
  begin
    if not(((Color=206)or(Color=217)or(Color=233)or(Color=241))) then
    begin
      if FindColor(tmpx,tmpy,Color,mmx1,mmy1,mmx2,mmy2) then
      begin
        result:=Color;
        tmpbool:=true;
      end;
    end;
    if tmpbool then break;
  end;
  if not(tmpbool) then
  begin
    //writeln('its a drop dot color');
    FindColorsTolerance(Array206,206,mmx1,mmy1,mmx2,mmy2,0);
    Length206:=getarraylength(Array206);
    FindColorsTolerance(Array217,217,mmx1,mmy1,mmx2,mmy2,0);
    Length217:=getarraylength(Array217);
    FindColorsTolerance(Array233,233,mmx1,mmy1,mmx2,mmy2,0);
    Length233:=getarraylength(Array233);
    FindColorsTolerance(Array241,241,mmx1,mmy1,mmx2,mmy2,0);
    Length241:=getarraylength(Array241);
    RangeOfOthers206:=max(Length233,max(Length217,Length241))-min(Length233,min(Length217,Length241));
    RangeOfOthers217:=max(Length233,max(Length206,Length241))-min(Length233,min(Length206,Length241));
    RangeOfOthers233:=max(Length206,max(Length217,Length241))-min(Length206,min(Length217,Length241));
    RangeOfOthers241:=max(Length233,max(Length217,Length206))-min(Length233,min(Length217,Length206));
    MinOfRange:=min(RangeOfOthers206,min(RangeOfOthers217,min(RangeOfOthers233,RangeOfOthers241)));
    case MinOfRange of
      RangeOfOthers206: result:=206;
      RangeOfOthers217: result:=217;
      RangeOfOthers233: result:=233;
      RangeOfOthers241: result:=241;
    end;
  end;
end;


Function FindMMFurnaceDoor:Boolean;
var mymark,doorcolor,x1,y1:integer;
    found:boolean;
begin
 DoorColor:=FindDoorColor;
 writeln(inttostr(doorcolor))
 writeln('Doing New Proc')
 if doorcolor=0 then
 begin
   result:=false
 end;
 if XRadialFindObj(x,y,CactusColor,60,210,75,2,-20) then
 begin
   writeln('found cactus')
   marktime(mymark)
   X1:=X;
   Y1:=Y;
   repeat
   Y1:=Y1-1;
   wait(5)
   if FindColor(x,y,doorcolor,X1,Y1,MMX2-20,y) then
   begin
     found:=true;
     break;
   end;
   until (timefrommark(mymark)>3000)
   if found then
   begin
     mouse(x-2,y+2,1,1,true)
     result:=true
   end else
   result:=false;
 end;
end;


Procedure ToFurn;
begin
  if (not(loggedin)) then exit;
  wait(500)
  if (invcount < oreamount) then
  begin
    writeln('not enough ores...logging out')
    logout2;
    nextplayer(false);
    exit;
  end;
  if XRadialWalk(CactusColor,90,180,60,1,-2,6,-2) then writeln('walking to cactus')
  wait(10)
  FFlag(0);
  FindFastRandoms;
  wait(500)
  if (not(FindMMFurnaceDoor)) then
  begin
    writeln('couldn''t find with Xcan''s Proc')
    if (XRadialWalk(CactusColor,60,210,75,1,-1,2,-20)) then
    begin
    end
    else
    begin
      writeln('couldn''t find with RW')
      if FindColor(x,y,cactuscolor,MMCX, MMCY, 722, 127) then
      mouse(x,y,2,2,true)
      else
      begin
        writeln('couldn''t find with FindColor...blind clicking')
        mouse(698, 99,4,4,true)
      end;
    end;
  end;
  FindAll3;
  fflag(0)
  OpenDoor;
  Mouse(648, 83-20, 2, 2, true)
  Players[currentplayer].Loc:='Furnace'
end;

Procedure ToBank;
begin
  if (not(loggedin)) then exit;
  DoorColor:=FindDoorColor;
  if RadialWalk(Doorcolor,200,170,40,0,0) then
  begin
    findall3;
    fflag(0)
    opendoor;
  end;
  if not(XRadialWalk(CactusColor,255,290,75,1,-1,4,0)) then
  begin
    writeln('couldn''t find with RW')
    if FindColor(x,y,cactuscolor,572, 60,616, 137) then
    mouse(x,y,4,4,true)
    else
    begin
      writeln('couldn''t find with FindColor...blind clicking')
      mouse(597, 87,4,4,true)
    end;
  end;
  FindAll3;
  FFlag(0);
  wait(200);
  FindBank2;
  Players[currentplayer].Loc:='Bank'
end;

Procedure Bank;
Begin
  if (not(loggedin)) then exit;
  if (InvCount = OreAmount) then exit;
  if (lowercase(players[currentplayer].strings[0])='st-ball') or
  (lowercase(players[currentplayer].strings[0])='or-ball') then
  begin
    Players[currentplayer].integers[2]:=Players[currentplayer].integers[2]+Amount('inv',1)
    ReportVars[18]:=ReportVars[18]+Amount('inv',1)
    TotalCballs:=TotalCballs+amount('inv',1)
  end;
  DwarfItem;
  MyopenBank;
  fixbank;
  if (lowercase(players[currentplayer].strings[0])='st-ball') or
  (lowercase(players[currentplayer].strings[0])='or-ball') then
  Deposit(1,27,2) else
  depositall;
  Banks:=Banks+1
end;

function AdvProg(num : integer; maxlength : integer) : string;
begin
  result := Replicate(' ',maxlength-length(inttostr(num)));
end;

function AdvProgEx(num : extended; maxlength : integer) : string;
begin
  result := Replicate(' ',maxlength-length(floattostr(num)));
end;

Function xp:extended;
Begin
  Case lowercase(Players[currentplayer].strings[0]) of
    'bronze':Result:=TotalBars*6.2
    'iron':Result:=TotalBars*12.5
    'silver':Result:=TotalBars*13.7
    'steel':Result:= TotalBars*17.5
    'gold':Result:=TotalBars*22.5
    'mith':Result:=TotalBars*30
    'addy':Result:=TotalBars*37.5
    'rune':Result:=TotalBars*50
    'st-ball':Result:=TotalCBalls*25.5
    'or-ball':Result:=((TotalBars*17.5)+(TotalCBalls*(25.5 div 4)))
  end;
end;

Procedure Report;
Begin
  ChangeReportWidth(280);
  ClearReport;
  writeln(' ____________________________________ ');
  writeln('/   Xcan''s Smelter/CannonballMaker   \');
  writeln('|                V2.19               |')
  writeln('|------------------------------------|');
  writeln('|Ran For: '+TimeRunning);
  writeln('|Finished: '+inttostr(load)+' load(s).'+AdvProg(load,17)+'|');
  If totalbars > 0 then
  writeln('|Made: '+inttostr(totalbars)+' bars.'+
  advprog(totalbars,23)+'|')
  If TotalCballs > 0 then
  writeln('|Made: '+inttostr(TotalCballs)+' cannonballs.'+
  advprog(TotalCballs,16)+'|')
  If Xp > 0 then
  writeln('|Gained: '+FloatToStr(xp)+' exp.'+AdvProgEx(xp,22)+'|')
  If Levels > 0 then
  writeln('|Gained: '+inttostr(levels)+' level(s).'+ AdvProg(levels,18)+'|')
  writeln('\____________________________________/');
  SRLRandomsReport;
end;

Procedure Intro;
begin
  ChangeReportWidth(280);
  ClearReport;
  AddToReport('                    __ ');
  AddToReport(' __  __            (_ \');
  AddToReport(' \ \/ /___ __ _ _ __ \/  ___  ');
  AddToReport('  \  // __/ _` | `_ \   / __| ');
  AddToReport('  /  \ (_| (_| | | | |  \__ \');
  AddToReport(' /_/\_\___\__,_|_| |_|  |___/');
  wait(1000)
  ClearReport;
  AddToReport('  __           _       _  ');
  AddToReport(' / _\ ___ _ __(_)_ __ | |_ ___ ');
  AddToReport(' \ \ / __| ''__| | ''_ \| __/ __|');
  AddToReport(' _\ \ (__| |  | | |_) | |_\__ \ ');
  AddToReport(' \__/\___|_|  |_| .__/ \__|___/');
  AddToReport('                |_|         ');
  wait(1000);
  ClearReport;
  AddToReport('          Brings You:');
  Wait(1000);
  ClearReport;
  AddToReport(' Xcan''s Smelter/CannonballMaker');
  AddToReport('             V'+Versionnumber)
  Wait(1000);
  AddToReport('');
  AddToReport('');
  AddToReport('');
  AddToReport('Please POST All Progress Reports');
end;

Procedure Chats;
Begin
  SetChat('on',1)
  SetChat('friends',2)
  SetChat('on',3)
  SetChat('on',1) //double just to make sure
  SetChat('friends',2)
  SetChat('on',3)
end;

Procedure Main;
Begin
  repeat
    repeat
    if Players[currentplayer].Loc='Bank' then
    begin
      Bank;
      InBank;
      Report;
      ToFurn;
    end;
    if Players[currentplayer].Loc='Furnace' then
    begin
      Case lowercase(Players[CurrentPlayer].Strings[0]) of
      'bronze','iron','silver','gold','steel','mith','addy','rune':
        begin
          InFurnace;
        end;
      'st-ball':
        Begin
          MakeCannonBalls;
        end;
      'or-ball':
        Begin
          InFurnaceCannon;
          MakeCannonBalls;
        end;
      end;
      ToBank;
      Load:=Load+1
      Loads:=Loads+1
      ReportVars[0]:=ReportVars[0]+1
    end;
    if (not(loggedin)) then
    begin
      writeln('not logged in')
      nextplayer(False)
    end;
    until (Loads=Players[currentplayer].integers[0])
    Logout2;
    FreeDtm(rock1)
    Loads:=0;
    if Rock2 > 0 then FreeDtm(rock2)
    LoadDtms;
    if howmanyplayers=1 then wait(300000)
    Nextplayer(true);
    MakeCompass('w');
    FindMould;
    MakeCompass('w');
    Chats;
    MakeCompass('w');
  until(false)
end;

begin
  Intro;
  CheckVersion;
  SetupSrl;
  Mousespeed:=Mspeed;
  SRLID:=MySRLID;
  SRLPassword:=MYSRLPASSWORD;
  ScriptID:='30'
  ReportVars[2]:=ReportVars[2]+1
  DeclarePlayers;
  LoadDtms;
  SetupDemon;
  LoginPlayer;
  MakeCompass('w')
  FindCactusColor;
  MakeCompass('w')
  FindMould;
  Chats;
  Main;
end.

there just in case the updater doesnt work. anyway im off to work. leave bugs and such.

Line 56: [Error] (15552:5): Duplicate identifier 'x' in script C:\Program Files\SCAR 3.11\ScriptsXcan's Smelter2.19-pub.scar

Can u help me with that please?

Download SRL 4?

i have it installed….

u kno what? ill uninstall everything and redownload scar and srl 4.

alright i got it to compile but it doesnt do anything doesnt even log in? =(

works perfect for me.
edit: what scar r u using?

scar divi 11?

/ Xcan's Smelter/CannonballMaker \
| V2.19 |
|————————————|
|Ran For: 7 Minutes and 18 Seconds
|Finished: 4 load(s). |
\____________________________________/

There it is =) working smooth now.:spot: :spot: :D Thanks to :Xcanadaman for helping me make it work and also thanks to 3garrett3 for helping me.

/ Xcan's Smelter/CannonballMaker \
| V2.19 |
|————————————|
|Ran For: 1 Hours, 28 Minutes and 50 Seconds
|Finished: 41 load(s). |
\____________________________________/

Beautiful script :)

true

very nice worK!
i will give it a try!

if you get it saying you dont have enough ores but you do tell me ill give you a fix but sometimes it works fine for some people

/ Xcan's Smelter/CannonballMaker \
| V2.19 |
|————————————|
|Ran For: 59 Minutes and 26 Seconds
|Finished: 32 load(s). |
|Gained: 1 level(s). |
\____________________________________/


Oh yea after it does like 20 or more loads it gets confused with the tanner instead of the smelter. It find the tanner's door since its very similar to the smelters door and goes into it. But still a goood script =).

thanks for the proggy. and you just confirmed that the level function still works. ill fix that bug later.

it seems to smelt fine, but it doesn't find my mould when i'm trying to make cannonballs. does it need to be in a certain inventory spot or something?

another issue i'm having, and i'm a noob to this, obviously, so i dunno if it's a script issue or an SRL isssue, but if the pin# can't be a string, what happens if it the pin starts with a zero?

i seem to be having the 'not enough ores…' problem? PM me a fix? :confused:


/ Xcan's Smelter/CannonballMaker \
| V2.19 |
|————————————|
|Ran For: 8 Minutes and 8 Seconds
|Finished: 5 load(s). |
\____________________________________/

From: lowtolerance
it seems to smelt fine, but it doesn't find my mould when i'm trying to make cannonballs. does it need to be in a certain inventory spot or something?

another issue i'm having, and i'm a noob to this, obviously, so i dunno if it's a script issue or an SRL isssue, but if the pin# can't be a string, what happens if it the pin starts with a zero?

yes the mould has to be in the FIRST inventory slot.
umm…0123 would still work

edit; fix is on first page.

walking to cactus
237
Doing New Proc
found cactus
waiting for flag to disappear
finding door
1
[Runtime Error] : Out Of Range in line 690 in script C:\Stuff\My Downloads\SCAR 3.11\Scripts\Xcan's Smelter2.19-pub.scar

After getting to the furnace, when its trying to find it, it'll out of range. I think the +30 and -30 and putting it below 0 but i cant seem to fix it meself…

Oh and heres a small proggy :P
_______________________________
/ Xcan's Smelter/CannonballMaker \
| V2.19 |
|————————————|
|Ran For: 9 Minutes and 10 Seconds |
|Finished: 5 load(s). |
\_______________________________/

lmfao this is what you guys have:

If FindColoredAreaTolerance(x,y,1913771,points[i].x-30,points[1].y-30,points[i].x+30,
    points[1].y+30,80,10) then  //notice the 1

this is what it should be:

If FindColoredAreaTolerance(x,y,1913771,points[i].x-30,points[1].y-30,points[i].x+30,
    points[i].y+30,80,10) then

change that if your having problems. i havent tested that but it should work.:p

Thanks, seems to be working better now.

/ Xcan's Smelter/CannonballMaker \
| V2.19 |
|————————————|
|Ran For: 21 Minutes and 30 Seconds
|Finished: 14 load(s). |
\____________________________________/

Might have gone longer, but this was just enough enough to watch a South Park episode :spot:

well i'll fix that and see if it works better :)

Works great, one thing though… after it does a load, it sometimes has trouble finding the bank again =\ It walks by the Al-Kharid warriors…

any ideas how to fix?

yea i think hes working on it cuz ya it does get lost but it wont matter just stop by and check on it every 15-30 mins and stop it and restart it. Thats what i do i just finished smelting 5k steels =D

yea I've been doing that also…

would using the colors from the furnace and bank symbols in the mini map work? or even a DTM of the icons?

(I'm trying to learn how to script myself, that way for things like this I can fix myself and help Xcan out) =\

EDIT: Oh - I guess it does use the symbols… ehh, I guess I'll jus wait for Xcan's fix…

I made a lil tweak or two myself, works pretty smooth now, like it doesn't miss the bank or run to the tanner anymore…
heres my best proggy… (logged out because it ran behind the furnace room)

____________________________________
/ Xcan's Smelter/CannonballMaker \
| V2.19 |
|————————————|
|Ran For: 33 Minutes and 47 Seconds
|Finished: 20 load(s). |
\____________________________________/

That's just my best one… I've made ove 500 steel bars so far =)

From: nose_smasher
Works great, one thing though… after it does a load, it sometimes has trouble finding the bank again =\ It walks by the Al-Kharid warriors…

any ideas how to fix?

?? ive never had a problem with this please send me a screeny when it happens.

what did you change?

Highest prog report is weak, I might post one soon if thats all I have to beat… :)

thats all you gotta beat. ;)

/ Xcan''s Smelter/CannonballMaker \
| V2.19 |
|————————————|
|Ran For: 1 Hours, 28 Minutes and 50 Seconds
|Finished: 41 load(s). |
\____________________________________/

=Weak



Btw, I again added

Setrun(True);


at the end after the Makecompass(w)

Is there a reason it wasn't there before, like is it detectable that everytime you log in your turn on run? Or did you just forget to put it in :) . It helps the script go a little faster, makes it do about 3 more loads per hour.



EDIT:

Whats with this trade stuff, somebody trades you and it messes you up completely, this script wants to complete the trade…

vil d25 wishes to t
vil d25

TradeScreen popped up.
vil d25 Accepted, we might if he putted up an item…checking..
vil d25 Did not put up an item.
We declined, it either took too long of he did not put up an item.
Player Declined, now telling him to stop trading.
"Solved" a trade!
0
0
0
0
The 0s go on forever, the script logged out and froze…
Thats what it says for me, and I watched it happen another time. I don't want to trade with some random person. Anyway to fix this?

Would this fix it?

12: If HandleTrade Then
Result := False;
I put false instead of true….I hope it works….

Another EDIT:

I come back after a few hours of autoing, and I see my first character logged in and the mouse clicking the same 2 spots repeatedly, and the Prog report is on 15 mins, my inventory is full of boxes and I have a dwarve following me around..and I was next to the Al-Kharid Warriors…So I was logged in for over 2 hours and my guy was just clicking 2 spots repeatedly….good way to get banned….

Sorry I'm posting so many problems…I just want to give feedback so this script can be flawless.

From: bories36
Whats with this trade stuff, somebody trades you and it messes you up completely, this script wants to complete the trade…

ill take it out. i took it from wizzups miner before and just never took it out.

From: bories36

I come back after a few hours of autoing, and I see my first character logged in and the mouse clicking the same 2 spots repeatedly, and the Prog report is on 15 mins, my inventory is full of boxes and I have a dwarve following me around..and I was next to the Al-Kharid Warriors…So I was logged in for over
2 hours and my guy was just clicking 2 spots repeatedly….good way to get banned….

:eek: ….that i will look into!

Sorry I'm posting so many problems…I just want to give feedback so this script can be flawless.

im glad you are;)

yo xcan its ok if i tell this dude thats requesting an auto smelter in script requests about your script?

Thanks Xcan for looking into that stuff :)

From: kingarabian
yo xcan its ok if i tell this dude thats requesting an auto smelter in script requests about your script?

ya go ahead…

From: bories36

Thanks Xcan for looking into that stuff

np

all right thanks

I'm having the tanner room bug again ='( (runs to tanner instead of furn) I think you should get the color from the palm tree right next to the furn instad of the door colors (cuz furn and tanner are the same)
^ EDIT: I mean colors from mini map ^

Also, I cant seem to find away to activate the client… so it cant type anything =\

any ideas or updates? =P

Tanner room bug, you just have to test it on a few different worlds, it works, its not that big of a bug. It does it for me a lot, just change world and try it….(also log in a out before you start it)

this is what it does…finds the trees below the furn the tries to find the door above it. the only problem is i mixed up the co-ords to look in.

Line 84: [Error] (12747:12) : unknown identifier

Line 84: [Error] (12747:12) : Unknown identifier 'STRING1' in script C:\ Doucument and settings\default\Mina domkument\SRl4 scripts\Xcan's Smelter2.16-pub.scar.

L USE SRL 4 AND SCAR Divi 3.11 what have l done wrong plzzz help meeee

do you have srl 4?

check a a page or so back and get the new script there.

OFFF!! omfg why is this don t work l have allll

SRL 4 SCAR Divi 3.11 plllzzzzz help

From: XcanadamanX
*cough*it the autoupdater might not work because of the old script*cough* so i may just post it here.

program XcanSmelterCannonBallMaker;
{.include SRL/SRL.Scar}
{.include SRL/SRL/Misc/Trade.Scar}
{
                                  __
              __  __             (_ \
              \ \/ /___ __ _ _ __  \/ ___
               \  // __/ _` | `_ \   / __|
               /  \ (_| (_| | | | |  \__ \
              /_/\_\___\__,_|_| |_|  |___/
               __                _ _
              / _\_ __ ___   ___| | |_ ___ _ __
              \ \| '_ ` _ \ / _ \ | __/ _ \ '__|
              _\ \ | | | | |  __/ | ||  __/ |
              \__/_| |_| |_|\___|_|\__\___|_|
                    ____    _  ___
             /\   /\___ \  / |/ _ \
             \ \ / / __) | | | (_) |
              \ V / / __/ _| |\__, |
               \_/ |_____(_)_|  /_/


           NAME        : Xcan's Smelter V2.19
           WRITER      : XcanadamanX (Xcan)
           CATEGORY    : Smelter
           AUTOCOLOR   : No need
           CONTACT     : [email]rstevenson23@gmail.com[/email]
           SRL REV.    : 4
           Scar REV.   : 3.11
==========================================================================
                Smelts And Banks All Bars In Al Kharid.

==========================================================================
                           Instructions.
==========================================================================


 1. USE Runescape with Low Detail, Very Bright.
 2. Set your Screen to 32 bit TRUE color.
 3. Set Playernames and Passwords in DeclarePlayers.
 4. Set NumberOfPlayers.
 5. Position your chars at Al Kharid bank RIGHT bankslot.
 6. Make sure your Players have ores/bars.
==========================================================================

Use anything you want in this script in your own personal scripts.
please credit me if you do this so no one thinks your stealing ;)

Valid Bars-> bronze,iron,steel,silver,gold,mith,addy,rune.
Valid Cannonball options-> or-ball smelts ores then makes cannonballs.
                        -> st-ball makes cannonballs from steel bars. }



Var
    DTM,x,y,CactusColor,OreAmount,sbar,load,loads:integer;
    rock1,rock2,mould,levels,DoorColor,TotalCballs,TotalBars:integer;
    NoMould:boolean;

Const StartPlayer   = 0; // Determines who will play first
      MSpeed        = 13; //speed of the mouse...higher number slower speed, lower number higher speed
      BMouse        = true; //BenMouse...true or false
      MySRLID       = '';   // Must be a string!
      MySRLPassword = '';   // Must be a string!
      RunDir        = 's';  // RunDirection when you find a fight.
      RunFar        = True;  //just leave this

{
====================================================================== }
                     VersionNumber = '2.19';                                          {
====================================================================== }

Procedure DeclarePlayers;
begin
  HowManyPlayers:= 2; // Set Number of Players here.
  NumberOfPlayers(HowManyPlayers); // Sets the Players Array Length;
  CurrentPlayer:= StartPlayer; // CurrentPlayer = Array Index
  HowManyBooleans := 0;

  Players[0].Name    :='';    //username
  Players[0].Pass    :='';    //password
  Players[0].Nick    :='';       //3-4 consecutive letters of your user name(NOT First letter)
  Players[0].Loc     :='Bank';   //keep at bank
  Players[0].Strings[0] :='';       //type of bar bronze,iron,steel,mith,addy,rune,gold,silver,or-ball(ore ot cball),st-ball(steel to cball)
  Players[0].Pin     :=;           //Pin number(not a string!!)
  Players[0].integers[0]:=10;           //how many loads
  Players[0].integers[1]:=0;         //LEAVE THESE
  Players[0].integers[2]:=0;         //LEAVE THESE
  Players[0].Active  :=True;         //are you going to use this player

{  Players[1].Name    :='';    //username
  Players[1].Pass    :='';    //password
  Players[1].Nick    :='';       //3-4 consecutive letters of your user name(NOT First letter)
  Players[1].Loc     :='Bank';   //keep at bank
  Players[1].String1 :='';       //type of bar bronze,iron,steel,mith,addy,rune,gold,silver,or-ball(ore ot cball),st-ball(steel to cball)
  Players[1].Skill   :='smithing';   //skill to choose when you get a genie
  Players[1].Pin     :=0;           //Pin number(not a string!!)
  Players[1].integer1:=0;           //how many loads
  Players[1].Active  :=True;}
  LoadPlayerArray;
end;

Procedure LoadDtms;
Begin
  DTM := DTMFromString('78DA63EC67626008624001EDEDD10C2250F67' +
       'F2060EC06AAF14655F3E70F13580D2394CFD80E54E345404D3F61' +
       '7300DB730F15');
  case Lowercase(Players[CurrentPlayer].Strings[0]) of
  'bronze':
  begin
  rock1 := DTMFromString('78DA639CC0C0C0C0C3C8800C7A9B9B1944803' +
       '448F43F10304E063118D000231209A4E700090E46FC6ABA808424' +
       '01357540828F809AA9404204BF1A0097F90A64');
  rock2 := DTMFromString('78DA634C64606038C080021E345A328800694' +
       '620FE0F048CB940C60E0634C0884402E954207182809A68207196' +
       '801A7F207118BF1A00ACC90B66');
  OreAmount:=28;
  end;
  'iron':
  begin
  rock1 := DTMFromString('78DA63DCCFC0C0E0CB80027CF59519B880342' +
       '310FF0702C60D404618031A60442281F40E20114D40CD3120114A' +
       '40CD6920E1855F0D00E4FC0A09');
  rock2:=0
  OreAmount:=28;
  end;
  'steel','or-ball':
  begin
  rock1 := DTMFromString('78DA63DCCFC0C0E0CB80027CF59519B880342' +
       '310FF0702C60D404618031A60442281F40E20114D40CD3120114A' +
       '40CD6920E1855F0D00E4FC0A09');
  rock2 := DTMFromString('78DA63EC676060F06140012626CA0C5C409A1' +
       '188FF0301E374202394010D30229140BA11488411503307487811' +
       '50D30D24A2F1AB0100797E090A');
  sbar := DTMFromString('78DA63946660601062400113DBDB19B880342' +
       '310FF0702460520839B010D302291401A648E0C01353C40429880' +
       '1A652021825F0D00B24D0699');
  mould := DTMFromString('78DA63E4656060E066400139A9A90C5C409A1' +
       '188FF0301A3389021C58006189148202D0B24D809A8E144E2E052' +
       '036288E057030053D005D7');
  OreAmount:=27;
  end;
  'st-ball':
  begin
  sbar := DTMFromString('78DA63946660601062400113DBDB19B880342' +
       '310FF0702460520839B010D302291401A648E0C01353C40429880' +
       '1A652021825F0D00B24D0699');
  rock1 := DTMFromString('78DA63946660601062400113DBDB19B880342' +
       '310FF0702460520839B010D302291401A648E0C01353C40429880' +
       '1A652021825F0D00B24D0699');
  rock2 := 0
  mould := DTMFromString('78DA63E4656060E066400139A9A90C5C409A1' +
       '188FF0301A3389021C58006189148202D0B24D809A8E144E2E052' +
       '036288E057030053D005D7');
  end;
  'silver':
  begin
  rock1 := DTMFromString('78DA6314636060106140011B36EC62E002D28' +
       'C40FC1F0818F9810C050634C0884402690E202145408D0C116A14' +
       '8184007E3500FB290711');
  rock2:=0
  OreAmount:=28;
  end;
  'gold':
  begin
  rock1 := DTMFromString('78DA631463606010614001F7B749317001694' +
       '620FE0F048CFC408602031A604422813407909022A04686083520' +
       '7B84F0AB0100B99E06A7');
  rock2:=0
  OreAmount:=28;
  end;
  'mith':
  begin
  rock1 := DTMFromString('78DA631462606010644001BEFEC50C5C409A1' +
       '188FF0301A33C90C1CD8006189148202D0924C408A8E103123204' +
       'D4B0030951FC6A004D1805E6');
  rock2 := DTMFromString('78DA63EC676060F06140012626CA0C5C409A1' +
       '188FF0301E374202394010D30229140BA11488411503307487811' +
       '50D30D24A2F1AB0100797E090A');
  OreAmount:=25;
  end;
  'addy':
  begin
  rock1 := DTMFromString('78DA634C646060F06340013E09BE0C22409A1' +
       '188FF0301632E90E1CE8006189148201D0324A209A8F1C7B40B43' +
       '4D3A9008C5AF06005E91088B');
  rock2 := DTMFromString('78DA63EC676060F06140012626CA0C5C409A1' +
       '188FF0301E374202394010D30229140BA11488411503307487811' +
       '50D30D24A2F1AB0100797E090A');
  OreAmount:=28;
  end;
  'rune':
  begin
  rock1 := DTMFromString('78DA631463606010624001FE19250C5C409A1' +
       '188FF0301A32090A1C08006189148200DD22049408D0C909022A0' +
       '46114808E057030066CC0623');
  rock2 := DTMFromString('78DA63EC676060F06140012626CA0C5C409A1' +
       '188FF0301E374202394010D30229140BA11488411503307487811' +
       '50D30D24A2F1AB0100797E090A');
  OreAmount:=27;
  end;
  end;
end;

Procedure CheckVersion;
var version,version1,script:string;
    Afile:integer;
begin
  Writeln('Checking Version...')
  Version1:=GetPage('http://www.xcanadamanx.phpnet.us/Version.txt')
  Version:=Left(version1,4)
  if not(VersionNumber=Version) then
  begin
    Writeln('You Do Not Have the Latest Version...Updating')
    Script:=GetPage('http://www.xcanadamanx.phpnet.us/Smelter'+version+'.txt')
    AFile:=RewriteFile(AppPath+'\Scripts\Xcan''s Smelter'+version+'-Pub.scar',false)
    if WriteFileString(AFile,Script) then
    begin
      Writeln('V'+version+' is Saved in Scar''s Scripts Folder')
      Writeln('Terminating Script')
      TerminateScript;
    end else
    writeln('Couldn''t save script...Go to WWW.SRL-Forums.com')
  end else
  writeln('You Have The Latest Version')
end;

function FindCactusColor: Integer;
var
  GenericColor, a, b, TestColor, Red, Green, Blue : integer;
begin
  GenericColor := 3698770;
  Flag;
  a := MMX1;
  b := MMY1;
  repeat
    b := b + 1;
    repeat;
      a := a + 1;
      if FindColorTolerance(x, y, GenericColor, a, b, MMX2, MMY2, 50) then
      begin
        if a = MMX1 + 1 then b := y;
        a := x;
        TestColor := GetColor(x, y);
        red := (TestColor mod 256);
        green := ((TestColor / 256) mod 256);
        blue := ((TestColor / 256) / 256);
        if Green - Red >= 24 then if Green - Red <= 60 then
        if Red - Blue >= 1 then if Red - Blue <= 33 then
        if Green - Blue >= 40 then if Green - Blue <= 78 then
        begin
          Result := TestColor;
          CactusColor := TestColor;
          WriteLn('Cactus Color = ' +
          IntToStr(TestColor));
          Exit;
        end;
      end else a := MMX2;
    until a >= MMX2;
    a := MMX1;
  until b >= MMY2;
  WriteLn('Could not find Cactus Color!');
  Result := 0;
end;

Function InPin2(pin:integer):Boolean;
var pinstr:string;
    star,i,x,y:integer;
    tpt1,tpt2:array[0..3] of tpoint;
begin
  if (PinScreen) then
  begin
    star := BitmapFromString2(False, 'a81C2B78DA4D8B3912C0200C0' +
       '3BF247C01A5C984FF3F29166970B1A359C90090A3007F0A61493A' +
       '8DDBCBACF4328CE66C7C07BDF0A9A7928B6DF4C63C4FA15E684B6' +
       'C1AD47EEE3AE036373F9CC');
    tpt1[0].x:=428; tpt1[0].y:=31;
    tpt2[0].x:=442; tpt2[0].y:=48;
    tpt1[1].x:=444; tpt1[1].y:=31;
    tpt2[1].x:=458; tpt2[1].y:=48;
    tpt1[2].x:=460; tpt1[2].y:=31;
    tpt2[2].x:=474; tpt2[2].y:=48;
    tpt1[3].x:=476; tpt1[3].y:=31;
    tpt2[3].x:=490; tpt2[3].y:=48;
    PinStr:=(inttostr(pin))
    mmouse(322,203,20,20);
    for i:=1 to 4 do
    begin
      wait(100+random(100));
      ClickText(pinstr[i], upchars, 1, 1, 512, 336, True);
      wait(100+random(100))
      mmouse(322,203,20,20);
      repeat
        wait(20)
        if i=4 then
        begin
          repeat
            wait(20)
          until bankscreen
        break;
        end;
      until FindBitmaptoleranceIn(star,x,y,tpt1[i-1].x,tpt1[i-1].y,tpt2[i-1].x,tpt2[i-1].y,20)
    end;
  end;
  if (bankscreen) then result:=true;
  freebitmap(star)
end;

function XRadialWalk(TheColor: Integer; StartRadial, EndRadial: Integer; Radius:
  Integer; Xmod, Ymod, Xoff, Yoff: Integer): Boolean;
var
  mx, my: Integer;
begin
  if (StartRadial = EndRadial) then
  begin
    WriteLn('WARNING: Using LinearRalk, StarRadial, and EndRadial are the same');
    if LinearRoadWalk(TheColor, StartRadial, Radius, XMod, YMod) then
      Result := True;
  end else
  if (radialwalkex(mx, my, 648, 83, thecolor, 0, startradial, endradial, radius))
  then
  begin
    MouseFindFlag(MX+Xoff, MY+Yoff, Xmod, Ymod);
    Result := True;
  end;
end;

function XRadialFindObj(var Wx,Wy:integer; TheColor: Integer; StartRadial, EndRadial: Integer; Radius:
  Integer; Xoff, Yoff: Integer): Boolean;
var
  mx, my: Integer;
begin
  if (radialwalkex(mx, my, 648, 83, thecolor, 0, startradial, endradial, radius))
  then
  begin
    WX:= (Mx + Xoff)
    WY:= (My + Yoff)
    Result := True;
  end;
end;

Function Level:boolean;
begin
  Result:=(GetColor(213, 386)=8388608)
  if (result) then
  begin
    clicktocontinue;
    wait(2000)
    clicktocontinue;
    WriteLn('******** LEVEL UP ********');
    WriteFileString(TheFile, '******** LEVEL UP ********' + Chr(13))
    levels:=levels+1;
    ReportVars[4]:=ReportVars[4]+1;
  end;
end;

Procedure FindMould;
Begin
  if FindDtm(Mould,x,y,MIX1,MIY1,MIX2,MIY2) then
  NoMould:=False
end;

Function FindT:boolean;
Begin
  repeat
    if not Loggedin then Exit;
    wait(100+random(200));
  Until (FindText(x, y, 'Enter amount:', UpChars, MCX1, MCY1, MCX2, MCY2));
  result:=true
End;

Procedure Logout2;
var i:integer;
text:string;
Begin
  GameTab(10)
  i:=random(4)
  case i of
  0:text:='lick'
  1:text:='ere'
  2:text:='to'
  3:text:='ogo'
  end;
  ClickText(text,upchars,MiX1,MIY1,MIX2,MIY2,true)
  repeat
    wait(500)
  until not(Loggedin)
end;

Procedure WithdrawOres(option1,option2:string;amount1,amount2,rock1,rock2:integer);
Begin
 if (not(Loggedin)) then exit;
 if rock2=0 then
 begin
   if FindDTM(rock1,x,y,MSX1,MSY1,MSX2,MSY2) then
   begin
     Mouse(x,y,3,3,false)
     repeat
       wait(10)
     Until(ChooseOption('All'))
   end else
   Begin
     Writeln('Didnt Find Ores...Logging Out')
     closebank;
     closebank;
     Logout2;
     exit;
   end;
 end else
 begin
   if FindDTM(rock1,x,y,MSX1,MSY1,MSX2,MSY2) then
   Begin
     repeat
       Mouse(x,y,3,3,false)
       wait(10)
     Until(ChooseOption(option1))
     if option1='X' then
     begin
       if FindT then
       TypeSend(inttostr(amount1))
     end;
     If FindDTM(Rock2,x,y,MSX1,MSY1,MSX2,MSY2) then
     Begin
       repeat
         Mouse(x,y,3,3,false)
         wait(10)
       Until(ChooseOption(option2))
       if option2='X' then
       begin
         if FindT then
         TypeSend(inttostr(amount2))
       end;
     end else
     Begin
       Writeln('Didnt Find Ores...Logging Out')
       closebank;
       closebank;
       Logout2;
       NextPlayer(false)
       exit;
     end;
   end else
   Begin
     Writeln('Didnt Find Ores...Logging Out')
     closebank;
     closebank;
     Logout2;
     NextPlayer(false)
     exit;
   end;
   if (NoMould) and ((Players[CurrentPlayer].strings[0]='or-ball') or
   (Players[CurrentPlayer].strings[0]='st-ball')) then
   if FindDtm(mould,x,y,MSX1,MSY1,MSX2,MSY2) then
   begin
     Mouse(x,y,4,4,true)
     NoMould:=False;
   end else
   begin
     Writeln('Didnt Find Mould...Logging Out')
     closebank;
     closebank;
     Logout2;
     NextPlayer(false)
     exit;
   end;
 end;
end;


Procedure InBank;
Begin
  if (not(Loggedin)) then exit;
  if (not(bankscreen)) then exit;
  Case lowercase(Players[CurrentPlayer].Strings[0]) of
  'bronze':WithdrawOres('X','All',14,14,rock1,rock2)
  'iron','silver','gold':WithdrawOres('All','',0,0,rock1,rock2)
  'steel','or-ball':WithdrawOres('X','X',9,18,rock1,rock2)
  'st-ball':WithdrawOres('All','',0,0,rock1,rock2)
  'mith':WithdrawOres('X','X',5,20,rock1,rock2)
  'addy':WithdrawOres('X','All',4,0,rock1,rock2)
  'rune':WithdrawOres('X','X',3,24,rock1,rock2)
  End;
End;

Function Amount1:boolean;
begin
  if (FindText(x,y,'Enter amount:',UpChars,MCX1,MCY1,MCX2,MCY2)=true) then
  result:=true
end;

function CountItemDtm(dtm: Integer): Integer;
var
  i, x, y: Integer;
  TB: Tbox;
begin
  GameTab(4);
  for i := 1 to 28 do
  begin
    TB := InvBox(i);
    if ExistsItem(i) then
      if FindDtm(DTM, x, y, TB.x1, TB.y1, TB.x2, TB.y2) then
        Inc(Result);
  end;
end;

Function OreCount:integer;
Begin
   result:=CountItemDtm(rock1)
end;

Function BarCount:integer;
Begin
   result:=CountItemDtm(Dtm)
end;


{Function Door(var x,y:integer):boolean;
begin
  if (FindObjMultiDistTime(x,y,'se D','e Doo','Clo',1659242,1261909,538442,20,45,2))then
  Result := True;
end;}

Function Door(colors:array of integer):boolean;
var i:integer;
Begin
  For i:=0 to (length(colors)-1) do
  begin
    if FindColoredAreaTolerance(x,y,colors[i], 175, 43, 379, 252, 20, 10) then
    begin
      MMouse(x,y,0,0)
      wait(10)
      If IsUpTextMulti('Door','oor','Doo') then
      begin
        result:=True
        break;
      end;
    end;
  end;
end;


procedure OpenDoor;
var mark:integer;
begin
  if (not(Loggedin)) then exit;
  Status('finding door...');
  writeln('finding door');
  fflag(0)
  wait(100)
  MarkTime(mark);
  Mousespeed:=25+random(10)
  if (Door([1659242,1261909,538442])) then
  begin
    wait(100)
    If IsUpTextMulti('C','los','ose') then
    writeln('door is open')
    else
    begin
      if IsUpTextMulti('O','pen','Open') then
      begin
        getmousepos(x,y)
        Mouse(x,y,0,0,true)
      end;
    end;
    Mousespeed:=MSpeed;
  end else
  writeln('couldn''t find door')
end;

Procedure FindBank2;

var
  bx, by: Integer;
  WhichAngle: Extended;

Begin
  wait(250)
  if FindDtmRotated(DTM, bx, by, MMX1, MMY1, MMX2, MMY2, -2.0, 2.0, 0.5,
  WhichAngle) then
  Begin
    Mouse(bx, by, 0, 0, True);
    WriteLn('Found DTM');
    Flag;
  end else
  begin
    WriteLn('Didnt Find DTM...looking for symbol');
    FindSymbol(x, y, 'bank');
    Mouse(x, y, 2, 2, true);
    Flag;
    wait(500);
    FindDtmRotated(DTM, x, y, MMX1, MMY1, MMX2, MMY2, -1.0, 2.0, 0.1,
    WhichAngle)
    Mouse(x, y, 0, 0, true);
    Flag;
  end;
end;

Function FindBankBooth(Colors:array of integer):boolean;
var i:integer;
Begin
  For i:=0 to (length(colors)-1) do
  begin
    if FindColoredAreaTolerance(x,y,colors[i], 240, 76, 340, 221, 40, 10) then
    begin
      MMouse(x,y,0,0)
      wait(10)
      If IsUpTextMulti('ank','booth','ooth') then
      begin
        result:=True
        break;
      end;
    end;
  end;
end;

procedure MyOpenBank;
begin
  If (not(Loggedin)) then exit;
  Status('Opening bank...');
  Flag;
  wait(500)
  if not (BankScreen) then
    //Lowestangle;
    repeat
     // if (FindObjMultiDist(x,y,'ank','Bank','Ban',5988448,3618620,2114903,15,60)) then
      if FindBankBooth([605778,5988448,604492,12097,7763321]) then
      begin
        getmousepos(x,y)
        Wait(250);
        Mouse(x,y,0,0,false);
        if (ChooseOption('quickly')) then
        begin
          Flag;
          repeat
            Wait(1000);
            InPin2(Players[CurrentPlayer].Pin);
          until (BankScreen);
        end;
      end;
    until (BankScreen)
end;

Function BarScreen:boolean;
begin
  result:=(GetColor(37, 373)=10264383)
end;

Procedure SortTPAFrom(Var a: Array Of TPoint; From: TPoint); //creds to Wizzup?
  { Sort's all points in a TPointArray.
    First Value will be closest to From, Last Value most far away.}
Var
   I, C: Integer;

Begin
  For I := 0 To Length(a) - 2 Do
  Begin
    If Distance(a[i].x, a[i].y, from.x, from.y) > Distance(a[i + 1].x, a[i + 1].y, from.x, from.y) Then
    Begin
      C := I;
      Repeat
        {WriteLn(IntToStr(c) + ' (' + IntToStr(a[c].x) + ', ' + IntToStr(a[c].y) + ') <-> ' +
        ' (' + IntToStr(a[c + 1].x) + ', ' + IntToStr(a[c + 1].y) + ')');}
        tSwap(a[c], a[c + 1]);
        if c < 1 then
          break;
        c := c - 1;
      Until Distance(a[c].x, a[c].y, from.x, from.y) < Distance(a[c + 1].x, a[c + 1].y, from.x, from.y)
      //writeln('next');
    End;
  End
End;

Function FindFurnace2:boolean;
var i,x,y,tempmousespeed:integer;
    points:array of tpoint;
    point:tpoint;
Begin
  wait(250);
  point.x:=MSCX;
  point.y:=MSCY
  colortolerancespeed(2)
  FindColorsTolerance(Points,1913771,MSx1,MSy1,MSx2,MSY2,10)
  writeln(inttostr(length(points)))
  SortTPAFrom(points,point)
  Mousespeed:=25+random(10)
  wait(250)
  For i:=0 to (length(Points)-1) do
  begin
    wait(2)
    If FindColoredAreaTolerance(x,y,1913771,points[i].x-30,points[1].y-30,points[i].x+30,
    points[1].y+30,80,10) then
    begin
      MMouse(x,y,4,4)
      wait(100+random(100))
      If IsUpTextMulti('melt','urn','ace') then
      Begin
        GetMousePos(x,y)
        Mouse(x,y,0,0,true)
        writeln('found furn')
        result:=True
        break;
      end;
    end;
  end;
  Mousespeed:=MSpeed;
  colortolerancespeed(1)
end;

Function FindFurnace(colors:array of integer):boolean;
var i:integer;
Begin
  wait(250);
  for i:=0 to (length(colors)-1) do
  begin
  if FindColoredAreaTolerance(x,y,colors[i], 136, 0, MMX2, MMY2, 2000, 20) then
  begin
    MMouse(x,y,0,0)
    wait(250)
    If IsUpTextMulti('melt','urn','ace') then
    begin
      mouse(x,y,0,0,true)
      writeln('found furn')
      result:=True
      break;
    end;
  end;
 end;
end;


Procedure PickBar(spot,amount:integer);
var a,b,mymark:integer;
Begin
  if (not(Loggedin)) then exit;
  fflag(0)
  marktime(mymark)
  Repeat
    if (not(Loggedin)) then Break;
    wait(10)
  until (FindFurnace2)
  repeat
    if (not(Loggedin)) then Break;
    wait(10)
  until (BarScreen)
  if (not(Loggedin)) then exit;
  if barscreen then writeln('found bar screen')
  a:=((spot*50)+5)
  b:=405
  MMouse(a,b,4,4)
  wait(100)
  getmousepos(x,y)
  Mouse(x,y,0,0,false)
  if (amount = 5) then
  begin
    ChooseOption('5')
    exit;
  end;
  if (amount = 10) then
  begin
    ChooseOption('10')
    exit;
  end;
  ChooseOption('X')
  FindT;
  SendText(inttostr(amount)+Chr(13))
end;

Function FindFastRandoms: Boolean;    // By WT-Fakawi.

Var
  i: Integer;

Begin
  For I := 1 To 14 Do
  Begin
    Case I Of
       1:  If FindDead Then
             Result := True;

       2:  If FindMod Then
             Result := True;

       3:  If FindMime Then
             Result := True;

       4:  If FindMaze Then
             Result := True;

       5:  If FindQuiz Then
             Result := True;

       6:  If FindDemon Then
             Result := True;

       7: Begin
             If NoGameTab Then
             Begin
               Result := True;
               Players[CurrentPlayer].loc := 'No GameTab';
               Logout;
               Exit;
             End;
           End;

       8: Begin
              If InBlack Then
              Begin
                Result := True;
                Players[CurrentPlayer].loc := 'InBlack';
                Logout;
                Exit;
              End;
            End;

       9 : If RC Then
             Result := True;

       10 : If FindFight Then
              Begin
                Result := True;
                RunTo(RunDir, RunFar);
              End;

       11: If FindTalk Then
             Result := True;

       12: If HandleTrade Then
             Result := True;

       13: If Level then
             Result := True;


       //14: SaveToLog;  next version probably if i get it working
       //                will save proggys and chat text

       14: If FindDemon Then
             Begin
               result:=True;
               SolveDemon;
             End;

    End;
    Wait(1);
  End;
End;

Function FindAll(num:integer):boolean;
var i:integer;
Begin
  if (not(Loggedin)) then exit;
  writeln('waiting to be done')
  While (OreCount > num) do
  begin
    case i+1 of
      1: begin
           If FindFastRandoms then
           begin
             Result:=True;
             break;
           end;
         end;
      2: Begin
           If FindNormalRandoms then
           begin
             Result:= True;
             break;
           end;
         end;
    end;
    wait(1)
    //SaveToLog;
    i:=i+1;
    if i>2 then i:=0
  end;
end;

Function FindAll2(num:integer):boolean;
var i:integer;
Begin
  if (not(Loggedin)) then exit;
  writeln('waiting to be done')
  While (BarCount > num) do
  begin
    case i+1 of
      1: begin
           If FindFastRandoms then
           begin
             Result:=True;
             break;
           end;
         end;
      2: Begin
           If FindNormalRandoms then
           begin
             Result:= True;
             break;
           end;
         end;
    end;
    if (not(loggedin)) then exit;
    wait(1)
    //SaveToLog;
    i:=i+1;
    if i>2 then i:=0
  end;
end;

Function FindAll3:boolean;
var i,mymark:integer;
Begin
  if (not(Loggedin)) then exit;
  writeln('waiting for flag to disappear')
  MarkTime(mymark)
  While (FlagDistance>8) do
  begin
    case i+1 of
      1: begin
           If FindFastRandoms then
           begin
             Result:=True;
             exit;
           end;
         end;
      2: Begin
           If FindNormalRandoms then
           begin
             Result:= True;
             exit;
           end;
         end;
      3: If TimeFromMark(MyMark)>=8000 then exit;
    end;
    if (not(loggedin)) then exit;
    wait(5)
    //SaveToLog;
    i:=i+1;
    if i>3 then i:=0
  end;
end;

Procedure InFurnace;
Begin
  if (not(loggedin)) then exit;
  Case Lowercase(Players[currentplayer].strings[0]) of
  'bronze':PickBar(1,14);
  'iron':PickBar(3,28);
  'silver':PickBar(4,28)
  'gold':PickBar(6,28)
  'steel':PickBar(5,10)
  'mith':PickBar(7,5);
  'addy':PickBar(8,5);
  'rune':PickBar(9,5);
  End;
  if (FindAll(0)) then
  begin
    Infurnace;
  end;
    wait(250)
    Players[currentplayer].integers[1]:=Players[currentplayer].integers[1]+BarCount
    ReportVars[1]:=ReportVars[1]+Barcount;
    TotalBars:=TotalBars+Barcount;
    Case lowercase(Players[currentplayer].strings[0]) of
      'bronze':ReportVars[10]:=ReportVars[10]+14;
      'iron':ReportVars[11]:=ReportVars[11]+BarCount;
      'silver':ReportVars[12]:=ReportVars[12]+28;
      'steel':ReportVars[13]:=ReportVars[13]+9;
      'gold':ReportVars[14]:=ReportVars[14]+28;
      'mith':ReportVars[15]:=ReportVars[15]+5;
      'addy':ReportVars[16]:=ReportVars[16]+4;
      'rune':ReportVars[17]:=ReportVars[17]+3;
    end;
end;

Procedure InFurnaceCannon;
Begin
  if (not(loggedin)) then exit;
  Case Lowercase(Players[currentplayer].strings[0]) of
  'or-ball':Pickbar(5,9)
  End;
  if (FindAll(0)) then
  begin
    InFurnaceCannon;
  end;
  ReportVars[1]:=ReportVars[1]+Barcount;
  TotalBars:=TotalBars+Barcount;
  Players[currentplayer].integers[1]:=Players[currentplayer].integers[1]+BarCount
  ReportVars[13]:=ReportVars[13]+Barcount;
end;

Procedure MakeCannonBalls;
Begin
  if (not(loggedin)) then exit;
  if FindDtm(mould,x,y,MIX1,MIY1,MIX2,MIY2) then
  begin
    if FindDtm(sbar,x,y,MIX1,MIY1,MIX2,MIY2) then
    begin
      flag;
      Mouse(x,y,4,4,true)
      repeat
        FindFurnace2;
        repeat
          wait(10)
        until (barscreen)
      until (barscreen)
      repeat
        Mouse(254,395,4,4,false)
        wait(100)
      until ChooseOption('All')
      if (FindAll2(1)) then
      begin
        MakeCannonBalls;
      end;
    end else
    begin
      Writeln('Didnt Find Steel Bars...Logging Out')
      logout2
      nextplayer(false)
    end;
  end else
  begin
    Writeln('Didnt Find Mould...Logging Out')
    NoMould:=True;
    exit;
  end;
end;

function FindDoorColor:integer; //creds to boreas!
var Color,tmpx,tmpy,MinOfRange:integer;
Length206,Length217,Length233,Length241:integer;
Array206,Array217,Array233,Array241:array of tpoint;
RangeOfOthers206,RangeOfOthers217,RangeOfOthers233,RangeOfOthers241:integer;
tmpbool:boolean;
begin
  for Color:=200 to 254 do
  begin
    if not(((Color=206)or(Color=217)or(Color=233)or(Color=241))) then
    begin
      if FindColor(tmpx,tmpy,Color,mmx1,mmy1,mmx2,mmy2) then
      begin
        result:=Color;
        tmpbool:=true;
      end;
    end;
    if tmpbool then break;
  end;
  if not(tmpbool) then
  begin
    //writeln('its a drop dot color');
    FindColorsTolerance(Array206,206,mmx1,mmy1,mmx2,mmy2,0);
    Length206:=getarraylength(Array206);
    FindColorsTolerance(Array217,217,mmx1,mmy1,mmx2,mmy2,0);
    Length217:=getarraylength(Array217);
    FindColorsTolerance(Array233,233,mmx1,mmy1,mmx2,mmy2,0);
    Length233:=getarraylength(Array233);
    FindColorsTolerance(Array241,241,mmx1,mmy1,mmx2,mmy2,0);
    Length241:=getarraylength(Array241);
    RangeOfOthers206:=max(Length233,max(Length217,Length241))-min(Length233,min(Length217,Length241));
    RangeOfOthers217:=max(Length233,max(Length206,Length241))-min(Length233,min(Length206,Length241));
    RangeOfOthers233:=max(Length206,max(Length217,Length241))-min(Length206,min(Length217,Length241));
    RangeOfOthers241:=max(Length233,max(Length217,Length206))-min(Length233,min(Length217,Length206));
    MinOfRange:=min(RangeOfOthers206,min(RangeOfOthers217,min(RangeOfOthers233,RangeOfOthers241)));
    case MinOfRange of
      RangeOfOthers206: result:=206;
      RangeOfOthers217: result:=217;
      RangeOfOthers233: result:=233;
      RangeOfOthers241: result:=241;
    end;
  end;
end;


Function FindMMFurnaceDoor:Boolean;
var mymark,doorcolor,x1,y1:integer;
    found:boolean;
begin
 DoorColor:=FindDoorColor;
 writeln(inttostr(doorcolor))
 writeln('Doing New Proc')
 if doorcolor=0 then
 begin
   result:=false
 end;
 if XRadialFindObj(x,y,CactusColor,60,210,75,2,-20) then
 begin
   writeln('found cactus')
   marktime(mymark)
   X1:=X;
   Y1:=Y;
   repeat
   Y1:=Y1-1;
   wait(5)
   if FindColor(x,y,doorcolor,X1,Y1,MMX2-20,y) then
   begin
     found:=true;
     break;
   end;
   until (timefrommark(mymark)>3000)
   if found then
   begin
     mouse(x-2,y+2,1,1,true)
     result:=true
   end else
   result:=false;
 end;
end;


Procedure ToFurn;
begin
  if (not(loggedin)) then exit;
  wait(500)
  if (invcount < oreamount) then
  begin
    writeln('not enough ores...logging out')
    logout2;
    nextplayer(false);
    exit;
  end;
  if XRadialWalk(CactusColor,90,180,60,1,-2,6,-2) then writeln('walking to cactus')
  wait(10)
  FFlag(0);
  FindFastRandoms;
  wait(500)
  if (not(FindMMFurnaceDoor)) then
  begin
    writeln('couldn''t find with Xcan''s Proc')
    if (XRadialWalk(CactusColor,60,210,75,1,-1,2,-20)) then
    begin
    end
    else
    begin
      writeln('couldn''t find with RW')
      if FindColor(x,y,cactuscolor,MMCX, MMCY, 722, 127) then
      mouse(x,y,2,2,true)
      else
      begin
        writeln('couldn''t find with FindColor...blind clicking')
        mouse(698, 99,4,4,true)
      end;
    end;
  end;
  FindAll3;
  fflag(0)
  OpenDoor;
  Mouse(648, 83-20, 2, 2, true)
  Players[currentplayer].Loc:='Furnace'
end;

Procedure ToBank;
begin
  if (not(loggedin)) then exit;
  DoorColor:=FindDoorColor;
  if RadialWalk(Doorcolor,200,170,40,0,0) then
  begin
    findall3;
    fflag(0)
    opendoor;
  end;
  if not(XRadialWalk(CactusColor,255,290,75,1,-1,4,0)) then
  begin
    writeln('couldn''t find with RW')
    if FindColor(x,y,cactuscolor,572, 60,616, 137) then
    mouse(x,y,4,4,true)
    else
    begin
      writeln('couldn''t find with FindColor...blind clicking')
      mouse(597, 87,4,4,true)
    end;
  end;
  FindAll3;
  FFlag(0);
  wait(200);
  FindBank2;
  Players[currentplayer].Loc:='Bank'
end;

Procedure Bank;
Begin
  if (not(loggedin)) then exit;
  if (InvCount = OreAmount) then exit;
  if (lowercase(players[currentplayer].strings[0])='st-ball') or
  (lowercase(players[currentplayer].strings[0])='or-ball') then
  begin
    Players[currentplayer].integers[2]:=Players[currentplayer].integers[2]+Amount('inv',1)
    ReportVars[18]:=ReportVars[18]+Amount('inv',1)
    TotalCballs:=TotalCballs+amount('inv',1)
  end;
  DwarfItem;
  MyopenBank;
  fixbank;
  if (lowercase(players[currentplayer].strings[0])='st-ball') or
  (lowercase(players[currentplayer].strings[0])='or-ball') then
  Deposit(1,27,2) else
  depositall;
  Banks:=Banks+1
end;

function AdvProg(num : integer; maxlength : integer) : string;
begin
  result := Replicate(' ',maxlength-length(inttostr(num)));
end;

function AdvProgEx(num : extended; maxlength : integer) : string;
begin
  result := Replicate(' ',maxlength-length(floattostr(num)));
end;

Function xp:extended;
Begin
  Case lowercase(Players[currentplayer].strings[0]) of
    'bronze':Result:=TotalBars*6.2
    'iron':Result:=TotalBars*12.5
    'silver':Result:=TotalBars*13.7
    'steel':Result:= TotalBars*17.5
    'gold':Result:=TotalBars*22.5
    'mith':Result:=TotalBars*30
    'addy':Result:=TotalBars*37.5
    'rune':Result:=TotalBars*50
    'st-ball':Result:=TotalCBalls*25.5
    'or-ball':Result:=((TotalBars*17.5)+(TotalCBalls*(25.5 div 4)))
  end;
end;

Procedure Report;
Begin
  ChangeReportWidth(280);
  ClearReport;
  writeln(' ____________________________________ ');
  writeln('/   Xcan''s Smelter/CannonballMaker   \');
  writeln('|                V2.19               |')
  writeln('|------------------------------------|');
  writeln('|Ran For: '+TimeRunning);
  writeln('|Finished: '+inttostr(load)+' load(s).'+AdvProg(load,17)+'|');
  If totalbars > 0 then
  writeln('|Made: '+inttostr(totalbars)+' bars.'+
  advprog(totalbars,23)+'|')
  If TotalCballs > 0 then
  writeln('|Made: '+inttostr(TotalCballs)+' cannonballs.'+
  advprog(TotalCballs,16)+'|')
  If Xp > 0 then
  writeln('|Gained: '+FloatToStr(xp)+' exp.'+AdvProgEx(xp,22)+'|')
  If Levels > 0 then
  writeln('|Gained: '+inttostr(levels)+' level(s).'+ AdvProg(levels,18)+'|')
  writeln('\____________________________________/');
  SRLRandomsReport;
end;

Procedure Intro;
begin
  ChangeReportWidth(280);
  ClearReport;
  AddToReport('                    __ ');
  AddToReport(' __  __            (_ \');
  AddToReport(' \ \/ /___ __ _ _ __ \/  ___  ');
  AddToReport('  \  // __/ _` | `_ \   / __| ');
  AddToReport('  /  \ (_| (_| | | | |  \__ \');
  AddToReport(' /_/\_\___\__,_|_| |_|  |___/');
  wait(1000)
  ClearReport;
  AddToReport('  __           _       _  ');
  AddToReport(' / _\ ___ _ __(_)_ __ | |_ ___ ');
  AddToReport(' \ \ / __| ''__| | ''_ \| __/ __|');
  AddToReport(' _\ \ (__| |  | | |_) | |_\__ \ ');
  AddToReport(' \__/\___|_|  |_| .__/ \__|___/');
  AddToReport('                |_|         ');
  wait(1000);
  ClearReport;
  AddToReport('          Brings You:');
  Wait(1000);
  ClearReport;
  AddToReport(' Xcan''s Smelter/CannonballMaker');
  AddToReport('             V'+Versionnumber)
  Wait(1000);
  AddToReport('');
  AddToReport('');
  AddToReport('');
  AddToReport('Please POST All Progress Reports');
end;

Procedure Chats;
Begin
  SetChat('on',1)
  SetChat('friends',2)
  SetChat('on',3)
  SetChat('on',1) //double just to make sure
  SetChat('friends',2)
  SetChat('on',3)
end;

Procedure Main;
Begin
  repeat
    repeat
    if Players[currentplayer].Loc='Bank' then
    begin
      Bank;
      InBank;
      Report;
      ToFurn;
    end;
    if Players[currentplayer].Loc='Furnace' then
    begin
      Case lowercase(Players[CurrentPlayer].Strings[0]) of
      'bronze','iron','silver','gold','steel','mith','addy','rune':
        begin
          InFurnace;
        end;
      'st-ball':
        Begin
          MakeCannonBalls;
        end;
      'or-ball':
        Begin
          InFurnaceCannon;
          MakeCannonBalls;
        end;
      end;
      ToBank;
      Load:=Load+1
      Loads:=Loads+1
      ReportVars[0]:=ReportVars[0]+1
    end;
    if (not(loggedin)) then
    begin
      writeln('not logged in')
      nextplayer(False)
    end;
    until (Loads=Players[currentplayer].integers[0])
    Logout2;
    FreeDtm(rock1)
    Loads:=0;
    if Rock2 > 0 then FreeDtm(rock2)
    LoadDtms;
    if howmanyplayers=1 then wait(300000)
    Nextplayer(true);
    MakeCompass('w');
    FindMould;
    MakeCompass('w');
    Chats;
    MakeCompass('w');
  until(false)
end;

begin
  Intro;
  CheckVersion;
  SetupSrl;
  Mousespeed:=Mspeed;
  SRLID:=MySRLID;
  SRLPassword:=MYSRLPASSWORD;
  ScriptID:='30'
  ReportVars[2]:=ReportVars[2]+1
  DeclarePlayers;
  LoadDtms;
  SetupDemon;
  LoginPlayer;
  MakeCompass('w')
  FindCactusColor;
  MakeCompass('w')
  FindMould;
  Chats;
  Main;
end.

there just in case the updater doesnt work. anyway im off to work. leave bugs and such.

Also you should of read what Xcan posted right above your outburst child…

thanks kave;)

ommmmmmfg it don't work still why not it always says line 84

Death, how bout you try figuring it out yourself, SCAR isnt rocket science you know. I could fix most my simple errors just by poking around and I dont know shit about scripting. You need to stop leeching all the smithing posts. If you have a problem or concern, state it clearly, don't just burst out and say something like:

"ommmmmmfg it don't work still why not"

or

"omfg why is this don t work l have allll"

ok here is a fix to the tanner door bug:

Function FindMMFurnaceDoor:Boolean;
var mymark,doorcolor,x1,y1:integer;
    found:boolean;
begin
 wait(800)
 DoorColor:=FindDoorColor;
 writeln(inttostr(doorcolor))
 writeln('Doing New Proc')
 if doorcolor=0 then
 begin
   result:=false
 end;
 if XRadialFindObj(x,y,CactusColor,60,210,75,2,-20) then
 begin
   writeln('found cactus')
   marktime(mymark)
   X1:=X;
   Y1:=Y;
   repeat
   Y1:=Y1-1;
   wait(5)
   if FindColor(x,y,doorcolor,X1,Y1,X+10,y) then
   begin
     found:=true;
     break;
   end;
   until (timefrommark(mymark)>1500)
   if found then
   begin
     mouse(x-2,y+2,1,1,true)
     result:=true
   end else
   result:=false;
 end;
end;

edit: i still cant find where it will go to the ak warriors. is it right beside the water symbol?

Any chance you could post the full updated version on the first page (not for me). I already have the full script with all your changes, but if someone new came in, they wouldn't know what script to use or anything. You have the new script posted on one page and two fixes on two other pages. Also I'm not really sure how to take the Trade Function out of the script, I tried doing it and it just messed it up.

-Thanks

Function FindFastRandoms: Boolean;    // By WT-Fakawi.

Var
  i: Integer;

Begin
  For I := 1 To 13 Do
  Begin
    Case I Of
       1:  If FindDead Then
             Result := True;

       2:  If FindMod Then
             Result := True;

       3:  If FindMime Then
             Result := True;

       4:  If FindMaze Then
             Result := True;

       5:  If FindQuiz Then
             Result := True;

       6:  If FindDemon Then
             Result := True;

       7: Begin
             If NoGameTab Then
             Begin
               Result := True;
               Players[CurrentPlayer].loc := 'No GameTab';
               Logout;
               Exit;
             End;
           End;

       8: Begin
              If InBlack Then
              Begin
                Result := True;
                Players[CurrentPlayer].loc := 'InBlack';
                Logout;
                Exit;
              End;
            End;

       9 : If RC Then
             Result := True;

       10 : If FindFight Then
              Begin
                Result := True;
                RunTo(RunDir, RunFar);
              End;

       11: If FindTalk Then
             Result := True;

       12: If Level then
             Result := True;


       //14: SaveToLog;  next version probably if i get it working
       //                will save proggys and chat text

       13: If FindDemon Then
             Begin
               result:=True;
               SolveDemon;
             End;

    End;
    Wait(1);
  End;
End;

ya ill do that later. good suggestion.

Thanks for trade update

works pretty good now. I think that from before it goes to the tanner then gets lost so it clicks near the alkharid warriors….maybe not sure though.

what i think it is…is when it goes from the furnace to the cactus and then looks for the bank it will look for a dtm and if it doesnt find it it will try to find the bank symbol but if it doesnt find the bank symbol sometimes it clicks other ones instead like the water symbol which is near the ak warriors

ya. What you have to do, is find a world where the bank symbol is clear, like in the middle of the bank where no one can stand on it. I got to less empty worlds, and make sure the symbol is clear.

ill try to make a different procedure.

Sweet, that would be great

oh yea and also i find that it works good on Elite switch and Swift switch and RS client but not that good on regular runescape.com

hmm thats weird someone posted before that it didnt work on other clients only on runescape.com. ill find the post

kk

It was me who said it only worked good on Runescape.com. That was the old version, know it works good on any client, doesnt make a different.

bories does it work good on runescape.com?? cause mines it wont do anything at all..

hey Xcan.. dude. if you give me some time.. maybe 1 month will do it.. ill have atleast 10k steelies to smelt with ur script…. maybe as cballs too, keep up the good work. just started playin rs again and hopefully i wont post my username and PW on the forums and get hacked of 20k coal and 10k iron this time (posted it inside a fix of sumilions al-kharid smelter a long while ago, i remember you too :D)

have fun, Czepa

wow man…..be careful next time…

in one month hopefully you'll be able to smelt it in one go..lol

lol

hey i was jus reading through some of your fixes… sorry i haven't been around lately, but im gonna try it out again, i'll get a proggy for you tomorrow :)

great!

When i run it, it goes to the furnace and then smelts the bars. But before it is finished it clicks on the cactus to go to the bank. It says "Waiting to be Done"..But it doesn't wait.

ahh not that again.

edit: just tested…works fine for me with addy. give me more details. type of bar making,did it do that on the first try, did you let it go for more than one load, if so did it do it for all the loads?

i was using bronze and it was on the first try and yes i let it go for more than one and it did it on them all..

can you give me a screeny of the bronze bar please.

Here is a screeny of the bronze bar in the inv…

ok i fixed one thing but im still looking for other errors. im quite busy with my school atm.

when i run your smelter with the ores it does it just fine but when I try using silver ores it logs in opens the bank and logs out without withdrawing and ore. the silver ore is in the first bank slot.

umm…probably just a bad dtm…jagex changed most of the bar colors slightly so if people don't complain i don't know about it. it will be fixed along with a few other things in the next version.

i working find but it have some problem with the fast random

Line 85: [Error] (12748:22): Syntax error in script whats this one?

From: bomh
i working find but it have some problem with the fast random

the fast random? what is the fast random?

did you put 0 as your pin if you dont have a pin?

I'd like to thank you for the script it is amazing!! It made 432 steel bars last night unfortunately some1 closed my SCAR so i didn't get to see the proggy i actually only set it for 10 loads but it made 48 and didnt stop til i got frogs but i have no complaints thank you very much!!

I also have to say i used Mozzila Firefox if this effects anything

I have now just used a smelter that actually works! woot!

Smelted 170 bars. I'm proud of you Xcan.

thanks.:p

@highroller: ya the loads is like how many loads it will do per log in. so if you do ten it will do 10 loads then log out (if you only have 1 person it waits 5 mins) then logs back in to do another 10 loads until that player screws up or that player has no ores left.

umh does this solve memb randoms cuz it can make cballs

only the ones in srl, i donno if they have mem ones or not.

I also have to say the procedure for making c balls is messed up i when ever it tries to make c balls, it starts making them but walks away instantly but it still is very good for smelting steel.

Current money made from this script: 1.2M soon to be 1.8M, thank you!

ill look into it. no one has used c-balls so i never know if anything is wrong.

/ Xcan's Smelter/CannonballMaker \
| V2.19 |
|————————————|
|Ran For: 1 Hours, 1 Minutes and 1 Seconds
|Finished: 32 load(s). |
|Made: 2 bars. |
|Gained: 35 exp. |
|Gained: 1 level(s). |
\____________________________________/
^^just a little off^^ I was making steel bars

what were you making? 2 bars? lol.

edit: V2.2 is out. no new features really just better.

dude pls post a compiling scrip f0r th4 l33ch3rs y4 kn0w

:p
dude you forgot somthing in your v 2.22 pls give the proggy a look;)

program XcanSmelterCannonBallMaker;
{.include SRL/SRL.Scar}
{
                                  __
              __  __             (_ \
              \ \/ /___ __ _ _ __  \/ ___
               \  // __/ _` | `_ \   / __|
               /  \ (_| (_| | | | |  \__ \
              /_/\_\___\__,_|_| |_|  |___/
               __                _ _
              / _\_ __ ___   ___| | |_ ___ _ __
              \ \| '_ ` _ \ / _ \ | __/ _ \ '__|
              _\ \ | | | | |  __/ | ||  __/ |
              \__/_| |_| |_|\___|_|\__\___|_|
                     ____    ____
              /\   /\___ \  |___ \
              \ \ / / __) |   __) |
               \ V / / __/ _ / __/
                \_/ |_____(_)_____|


           NAME        : Xcan's Smelter V2.2
           WRITER      : XcanadamanX (Xcan)
           CATEGORY    : Smelter
           AUTOCOLOR   : No need
           CONTACT     : [email]rstevenson23@gmail.com[/email]
           SRL REV.    : 4
           Scar REV.   : 3.11
==========================================================================
                Smelts And Banks All Bars In Al Kharid.

==========================================================================
                           Instructions.
==========================================================================


 1. USE Runescape with Low Detail, Very Bright.
 2. Set your Screen to 32 bit TRUE color.
 3. Set Playernames and Passwords in DeclarePlayers.
 4. Set NumberOfPlayers.
 5. Position your chars at Al Kharid bank RIGHT bankslot.
 6. Make sure your Players have ores/bars.
==========================================================================

Use anything you want in this script in your own personal scripts.
please credit me if you do this so no one thinks your stealing ;)

Valid Bars-> bronze,iron,steel,silver,gold,mith,addy,rune.
Valid Cannonball options-> or-ball smelts ores then makes cannonballs.
                        -> st-ball makes cannonballs from steel bars. }



Var
    DTM,x,y,CactusColor,OreAmount,sbar,load,loads:integer;
    rock1,rock2,mould,levels,DoorColor,TotalCballs,TotalBars:integer;
    NoMould:boolean;

Const StartPlayer   = 0; // Determines who will play first
      MSpeed        = 13; //speed of the mouse...higher number slower speed, lower number higher speed
      MySRLID       = '';   // Must be a string!
      MySRLPassword = '';   // Must be a string!
      RunDir        = 's';  // RunDirection when you find a fight.
      RunFar        = True;  //just leave this

{
====================================================================== }
                     VersionNumber = '2.2';                                          {
====================================================================== }

Procedure DeclarePlayers;
begin
  HowManyPlayers:= 1; // Set Number of Players here.
  NumberOfPlayers(HowManyPlayers); // Sets the Players Array Length;
  CurrentPlayer:= StartPlayer; // CurrentPlayer = Array Index
  HowManyBooleans := 0;

  Players[0].Name    :='';    //username
  Players[0].Pass    :='';    //password
  Players[0].Nick    :='';       //3-4 consecutive letters of your user name(NOT First letter)
  Players[0].Loc     :='Bank';   //keep at bank
  Players[0].Strings[0] :='';       //type of bar bronze,iron,steel,mith,addy,rune,gold,silver,or-ball(ore ot cball),st-ball(steel to cball)
  Players[0].Pin     :=0;           //Pin number(not a string!!)
  Players[0].integers[0]:=10;           //how many loads per log in
  Players[0].integers[1]:=0;         //LEAVE THESE
  Players[0].integers[2]:=0;         //LEAVE THESE
  Players[0].Active  :=True;         //are you going to use this player

{  Players[1].Name    :='';    //username
  Players[1].Pass    :='';    //password
  Players[1].Nick    :='';       //3-4 consecutive letters of your user name(NOT First letter)
  Players[1].Loc     :='Bank';   //keep at bank
  Players[1].String1 :='';       //type of bar bronze,iron,steel,mith,addy,rune,gold,silver,or-ball(ore ot cball),st-ball(steel to cball)
  Players[1].Skill   :='smithing';   //skill to choose when you get a genie
  Players[1].Pin     :=0;           //Pin number(not a string!!)
  Players[1].integer1:=0;           //how many loads
  Players[1].Active  :=True;}
  LoadPlayerArray;
end;

Procedure LoadDtms;
Begin
  DTM := DTMFromString('78DA637466626078C28002FC92FD18FE03694' +
       '620FE0F048CEE40356F19D000231209A403806A1E1350630A54F3' +
       '8A801A6BA09A87F8D50000EA6D0BDC');
  case Lowercase(Players[CurrentPlayer].Strings[0]) of
  'bronze':
  begin
  rock1 := DTMFromString('78DA639CC0C0C0C0C3C8800C7A9B9B1944803' +
       '448F43F10304E063118D000231209A4E700090E46FC6ABA808424' +
       '01357540828F809AA9404204BF1A0097F90A64');
  rock2 := DTMFromString('78DA634C64606038C080021E345A328800694' +
       '620FE0F048CB940C60E0634C0884402E954207182809A68207196' +
       '801A7F207118BF1A00ACC90B66');
  OreAmount:=28;
  end;
  'iron':
  begin
  rock1 := DTMFromString('78DA63DCCFC0C0E0CB80027CF59519B880342' +
       '310FF0702C60D404618031A60442281F40E20114D40CD3120114A' +
       '40CD6920E1855F0D00E4FC0A09');
  rock2:=0
  OreAmount:=28;
  end;
  'steel','or-ball':
  begin
  rock1 := DTMFromString('78DA63DCCFC0C0E0CB80027CF59519B880342' +
       '310FF0702C60D404618031A60442281F40E20114D40CD3120114A' +
       '40CD6920E1855F0D00E4FC0A09');
  rock2 := DTMFromString('78DA63EC676060F06140012626CA0C5C409A1' +
       '188FF0301E374202394010D30229140BA11488411503307487811' +
       '50D30D24A2F1AB0100797E090A');
  sbar := DTMFromString('78DA63946660601062400113DBDB19B880342' +
       '310FF0702460520839B010D302291401A648E0C01353C40429880' +
       '1A652021825F0D00B24D0699');
  mould := DTMFromString('78DA63E4656060E066400139A9A90C5C409A1' +
       '188FF0301A3389021C58006189148202D0B24D809A8E144E2E052' +
       '036288E057030053D005D7');
  OreAmount:=27;
  end;
  'st-ball':
  begin
  sbar := DTMFromString('78DA63946660601062400113DBDB19B880342' +
       '310FF0702460520839B010D302291401A648E0C01353C40429880' +
       '1A652021825F0D00B24D0699');
  rock1 := DTMFromString('78DA63946660601062400113DBDB19B880342' +
       '310FF0702460520839B010D302291401A648E0C01353C40429880' +
       '1A652021825F0D00B24D0699');
  rock2 := 0
  mould := DTMFromString('78DA63E4656060E066400139A9A90C5C409A1' +
       '188FF0301A3389021C58006189148202D0B24D809A8E144E2E052' +
       '036288E057030053D005D7');
  end;
  'silver':
  begin
  rock1 := DTMFromString('78DA6314636060106140011B36EC62E002D28' +
       'C40FC1F0818F9810C050634C0884402690E202145408D0C116A14' +
       '8184007E3500FB290711');
  rock2:=0
  OreAmount:=28;
  end;
  'gold':
  begin
  rock1 := DTMFromString('78DA631463606010614001F7B749317001694' +
       '620FE0F048CFC408602031A604422813407909022A04686083520' +
       '7B84F0AB0100B99E06A7');
  rock2:=0
  OreAmount:=28;
  end;
  'mith':
  begin
  rock1 := DTMFromString('78DA631462606010644001BEFEC50C5C409A1' +
       '188FF0301A33C90C1CD8006189148202D0924C408A8E103123204' +
       'D4B0030951FC6A004D1805E6');
  rock2 := DTMFromString('78DA63EC676060F06140012626CA0C5C409A1' +
       '188FF0301E374202394010D30229140BA11488411503307487811' +
       '50D30D24A2F1AB0100797E090A');
  OreAmount:=25;
  end;
  'addy':
  begin
  rock1 := DTMFromString('78DA634C646060F06340013E09BE0C22409A1' +
       '188FF0301632E90E1CE8006189148201D0324A209A8F1C7B40B43' +
       '4D3A9008C5AF06005E91088B');
  rock2 := DTMFromString('78DA63EC676060F06140012626CA0C5C409A1' +
       '188FF0301E374202394010D30229140BA11488411503307487811' +
       '50D30D24A2F1AB0100797E090A');
  OreAmount:=28;
  end;
  'rune':
  begin
  rock1 := DTMFromString('78DA631463606010624001FE19250C5C409A1' +
       '188FF0301A32090A1C08006189148200DD22049408D0C909022A0' +
       '46114808E057030066CC0623');
  rock2 := DTMFromString('78DA63EC676060F06140012626CA0C5C409A1' +
       '188FF0301E374202394010D30229140BA11488411503307487811' +
       '50D30D24A2F1AB0100797E090A');
  OreAmount:=27;
  end;
  end;
end;

Procedure CheckVersion;
var version,version1,script:string;
    Afile:integer;
begin
  Writeln('Checking Version...')
  Version1:=GetPage('http://www.xcanadamanx.phpnet.us/Version.txt')
  Version:=Left(version1,4)
  if not(VersionNumber=Version) then
  begin
    Writeln('You Do Not Have the Latest Version...Updating')
    Script:=GetPage('http://www.xcanadamanx.phpnet.us/Smelter'+version+'.txt')
    AFile:=RewriteFile(AppPath+'\Scripts\Xcan''s Smelter'+version+'-Pub.scar',false)
    if WriteFileString(AFile,Script) then
    begin
      Writeln('V'+version+' is Saved in Scar''s Scripts Folder')
      Writeln('Terminating Script')
      TerminateScript;
    end else
    writeln('Couldn''t save script...Go to WWW.SRL-Forums.com')
  end else
  writeln('You Have The Latest Version')
end;

function FindCactusColor: Integer;
var
  GenericColor, a, b, TestColor, Red, Green, Blue : integer;
begin
  GenericColor := 3698770;
  Flag;
  a := MMX1;
  b := MMY1;
  repeat
    b := b + 1;
    repeat;
      a := a + 1;
      if FindColorTolerance(x, y, GenericColor, a, b, MMX2, MMY2, 100) then
      begin
        if a = MMX1 + 1 then b := y;
        a := x;
        TestColor := GetColor(x, y);
        red := (TestColor mod 256);
        green := ((TestColor / 256) mod 256);
        blue := ((TestColor / 256) / 256);
        if red <= 87 then if Green - Red >= 24 then if Green - Red <= 65 then
        if Red - Blue >= 1 then if Red - Blue <= 33 then
        if Green - Blue >= 40 then if Green - Blue <= 78 then
        begin
          Result := TestColor;
          CactusColor := TestColor;
          WriteLn('Cactus Color = ' +
          IntToStr(TestColor));
          Exit;
        end;
      end else a := MMX2;
    until a >= MMX2;
    a := MMX1;
  until b >= MMY2;
  WriteLn('Could not find Cactus Color!');
  Result := 0;
end;

Function InPin2(pin:integer):Boolean;
var pinstr:string;
    star,i,x,y:integer;
    tpt1,tpt2:array[0..3] of tpoint;
begin
  if (PinScreen) then
  begin
    star := BitmapFromString2(False, 'a81C2B78DA4D8B3912C0200C0' +
       '3BF247C01A5C984FF3F29166970B1A359C90090A3007F0A61493A' +
       '8DDBCBACF4328CE66C7C07BDF0A9A7928B6DF4C63C4FA15E684B6' +
       'C1AD47EEE3AE036373F9CC');
    tpt1[0].x:=428; tpt1[0].y:=31;
    tpt2[0].x:=442; tpt2[0].y:=48;
    tpt1[1].x:=444; tpt1[1].y:=31;
    tpt2[1].x:=458; tpt2[1].y:=48;
    tpt1[2].x:=460; tpt1[2].y:=31;
    tpt2[2].x:=474; tpt2[2].y:=48;
    tpt1[3].x:=476; tpt1[3].y:=31;
    tpt2[3].x:=490; tpt2[3].y:=48;
    PinStr:=(inttostr(pin))
    mmouse(322,203,20,20);
    for i:=1 to 4 do
    begin
      wait(100+random(100));
      ClickText(pinstr[i], upchars, 1, 1, 512, 336, True);
      wait(100+random(100))
      mmouse(322,203,20,20);
      repeat
        wait(20)
        if i=4 then
        begin
          repeat
            wait(20)
          until bankscreen
        break;
        end;
      until FindBitmaptoleranceIn(star,x,y,tpt1[i-1].x,tpt1[i-1].y,tpt2[i-1].x,tpt2[i-1].y,20)
    end;
  end;
  if (bankscreen) then result:=true;
  freebitmap(star)
end;

function XRadialWalk(TheColor: Integer; StartRadial, EndRadial: Integer; Radius:
  Integer; Xmod, Ymod, Xoff, Yoff: Integer): Boolean;
var
  mx, my: Integer;
begin
  if (StartRadial = EndRadial) then
  begin
    WriteLn('WARNING: Using LinearRalk, StarRadial, and EndRadial are the same');
    if LinearRoadWalk(TheColor, StartRadial, Radius, XMod, YMod) then
      Result := True;
  end else
  if (radialwalkex(mx, my, 648, 83, thecolor, 0, startradial, endradial, radius))
  then
  begin
    MouseFindFlag(MX+Xoff, MY+Yoff, Xmod, Ymod);
    Result := True;
  end;
end;

function XRadialFindObj(var Wx,Wy:integer; TheColor: Integer; StartRadial, EndRadial: Integer; Radius:
  Integer; Xoff, Yoff: Integer): Boolean;
var
  mx, my: Integer;
begin
  if (radialwalkex(mx, my, 648, 83, thecolor, 0, startradial, endradial, radius))
  then
  begin
    WX:= (Mx + Xoff)
    WY:= (My + Yoff)
    Result := True;
  end;
end;

Function Level:boolean;
begin
  Result:=(GetColor(213, 386)=8388608)
  if (result) then
  begin
    clicktocontinue;
    wait(2000)
    clicktocontinue;
    WriteLn('******** LEVEL UP ********');
    WriteFileString(TheFile, '******** LEVEL UP ********' + Chr(13))
    levels:=levels+1;
    ReportVars[4]:=ReportVars[4]+1;
  end;
end;

Procedure FindMould;
Begin
  if FindDtm(Mould,x,y,MIX1,MIY1,MIX2,MIY2) then
  NoMould:=False
end;

Function FindT:boolean;
Begin
  repeat
    if not Loggedin then Exit;
    wait(100+random(200));
  Until (FindText(x, y, 'Enter amount:', UpChars, MCX1, MCY1, MCX2, MCY2));
  result:=true
End;

Procedure Logout2;
var i:integer;
text:string;
Begin
  GameTab(10)
  i:=random(4)
  case i of
  0:text:='lick'
  1:text:='ere'
  2:text:='to'
  3:text:='ogo'
  end;
  ClickText(text,upchars,MiX1,MIY1,MIX2,MIY2,true)
  repeat
    wait(500)
  until not(Loggedin)
end;

Procedure WithdrawOres(option1,option2:string;amount1,amount2,rock1,rock2:integer);
Begin
 if (not(Loggedin)) then exit;
 if rock2=0 then
 begin
   if FindDTM(rock1,x,y,MSX1,MSY1,MSX2,MSY2) then
   begin
     Mouse(x,y,3,3,false)
     repeat
       wait(10)
     Until(ChooseOption('All'))
   end else
   Begin
     Writeln('Didnt Find Ores...Logging Out')
     closebank;
     closebank;
     Logout2;
     exit;
   end;
 end else
 begin
   if FindDTM(rock1,x,y,MSX1,MSY1,MSX2,MSY2) then
   Begin
     repeat
       Mouse(x,y,3,3,false)
       wait(10)
     Until(ChooseOption(option1))
     if option1='X' then
     begin
       if FindT then
       TypeSend(inttostr(amount1))
     end;
     If FindDTM(Rock2,x,y,MSX1,MSY1,MSX2,MSY2) then
     Begin
       repeat
         Mouse(x,y,3,3,false)
         wait(10)
       Until(ChooseOption(option2))
       if option2='X' then
       begin
         if FindT then
         TypeSend(inttostr(amount2))
       end;
     end else
     Begin
       Writeln('Didnt Find Ores...Logging Out')
       closebank;
       closebank;
       Logout2;
       NextPlayer(false)
       exit;
     end;
   end else
   Begin
     Writeln('Didnt Find Ores...Logging Out')
     closebank;
     closebank;
     Logout2;
     NextPlayer(false)
     exit;
   end;
   if (NoMould) and ((Players[CurrentPlayer].strings[0]='or-ball') or
   (Players[CurrentPlayer].strings[0]='st-ball')) then
   if FindDtm(mould,x,y,MSX1,MSY1,MSX2,MSY2) then
   begin
     Mouse(x,y,4,4,true)
     NoMould:=False;
   end else
   begin
     Writeln('Didnt Find Mould...Logging Out')
     closebank;
     closebank;
     Logout2;
     NextPlayer(false)
     exit;
   end;
 end;
end;


Procedure InBank;
Begin
  if (not(Loggedin)) then exit;
  if (not(bankscreen)) then exit;
  Case lowercase(Players[CurrentPlayer].Strings[0]) of
  'bronze':WithdrawOres('X','All',14,14,rock1,rock2)
  'iron','silver','gold':WithdrawOres('All','',0,0,rock1,rock2)
  'steel','or-ball':WithdrawOres('X','X',9,18,rock1,rock2)
  'st-ball':WithdrawOres('All','',0,0,rock1,rock2)
  'mith':WithdrawOres('X','X',5,20,rock1,rock2)
  'addy':WithdrawOres('X','All',4,0,rock1,rock2)
  'rune':WithdrawOres('X','X',3,24,rock1,rock2)
  End;
End;

Function Amount1:boolean;
begin
  if (FindText(x,y,'Enter amount:',UpChars,MCX1,MCY1,MCX2,MCY2)=true) then
  result:=true
end;

function CountItemDtm(dtm: Integer): Integer;
var
  i, x, y: Integer;
  TB: Tbox;
begin
  GameTab(4);
  for i := 1 to 28 do
  begin
    TB := InvBox(i);
    if ExistsItem(i) then
      if FindDtm(DTM, x, y, TB.x1, TB.y1, TB.x2, TB.y2) then
        Inc(Result);
  end;
end;

Function OreCount:integer;
Begin
   result:=CountItemDtm(rock1)
end;

Function BarCount:integer;
Begin
   result:=CountItemDtm(Dtm)
end;


{Function Door(var x,y:integer):boolean;
begin
  if (FindObjMultiDistTime(x,y,'se D','e Doo','Clo',1659242,1261909,538442,20,45,2))then
  Result := True;
end;}

Function Door(colors:array of integer):boolean;
var i:integer;
Begin
  For i:=0 to (length(colors)-1) do
  begin
    if FindColoredAreaTolerance(x,y,colors[i], 175, 43, 379, 252, 20, 10) then
    begin
      MMouse(x,y,0,0)
      wait(10)
      If IsUpTextMulti('Door','oor','Doo') then
      begin
        result:=True
        break;
      end;
    end;
  end;
end;


procedure OpenDoor;
var mark:integer;
begin
  if (not(Loggedin)) then exit;
  Status('finding door...');
  writeln('finding door');
  fflag(0)
  wait(100)
  MarkTime(mark);
  Mousespeed:=25+random(10)
  if (Door([1659242,1261909,538442])) then
  begin
    wait(100)
    If IsUpTextMulti('C','los','ose') then
    writeln('door is open')
    else
    begin
      if IsUpTextMulti('O','pen','Open') then
      begin
        getmousepos(x,y)
        Mouse(x,y,0,0,true)
      end;
    end;
    Mousespeed:=MSpeed;
  end else
  writeln('couldn''t find door')
end;

Procedure FindBank2;

var
  bx, by, Bank: Integer;
  WhichAngle: Extended;

Begin
  wait(250)
  Bank := DTMFromString('78DA636C626260F0614001935B9319FE03694' +
       '620FE0F048C954035CEA86AFEFC61621081AA0101C65A22D43411' +
       '560300362B0FC0');
  if FindDtmRotated(Bank, bx, by, MMX1, MMY1, MMX2, MMY2, -2.0, 2.0, 0.05,
  WhichAngle) then
  Begin
    Mouse(bx, by, 0, 0, True);
    WriteLn('Found DTM');
    Flag;
  end else
  begin
    WriteLn('Didnt Find DTM...looking for symbol');
    if FindSymbol(x, y, 'bank') then
    Mouse(x, y, 2, 2, true);
    Flag;
    wait(500);
    FindDtmRotated(DTM, x, y, MMX1, MMY1, MMX2, MMY2, -1.0, 2.0, 0.1,
    WhichAngle)
    Mouse(x, y, 0, 0, true);
    Flag;
    FreeDtm(bank)
  end;
end;

Function FindBankBooth(Colors:array of integer):boolean;
var i:integer;
Begin
  For i:=0 to (length(colors)-1) do
  begin
    if FindColoredAreaTolerance(x,y,colors[i], 240, 76, 340, 221, 40, 10) then
    begin
      MMouse(x,y,0,0)
      wait(10)
      If IsUpTextMulti('ank','booth','ooth') then
      begin
        result:=True
        break;
      end;
    end;
  end;
end;

procedure MyOpenBank;
begin
  If (not(Loggedin)) then exit;
  Status('Opening bank...');
  Flag;
  wait(500)
  if not (BankScreen) then
    //Lowestangle;
    repeat
     // if (FindObjMultiDist(x,y,'ank','Bank','Ban',5988448,3618620,2114903,15,60)) then
      if FindBankBooth([605778,5988448,604492,12097,7763321]) then
      begin
        getmousepos(x,y)
        Wait(250);
        Mouse(x,y,0,0,false);
        if (ChooseOption('quickly')) then
        begin
          Flag;
          repeat
            Wait(1000);
            InPin2(Players[CurrentPlayer].Pin);
          until (BankScreen);
        end;
      end;
    until (BankScreen)
end;

Function BarScreen:boolean;
begin
  result:=(GetColor(37, 373)=10264383)
end;

Procedure SortTPAFrom(Var a: Array Of TPoint; From: TPoint); //creds to Wizzup?
  { Sort's all points in a TPointArray.
    First Value will be closest to From, Last Value most far away.}
Var
   I, C: Integer;

Begin
  For I := 0 To Length(a) - 2 Do
  Begin
    If Distance(a[i].x, a[i].y, from.x, from.y) > Distance(a[i + 1].x, a[i + 1].y, from.x, from.y) Then
    Begin
      C := I;
      Repeat
        {WriteLn(IntToStr(c) + ' (' + IntToStr(a[c].x) + ', ' + IntToStr(a[c].y) + ') <-> ' +
        ' (' + IntToStr(a[c + 1].x) + ', ' + IntToStr(a[c + 1].y) + ')');}
        tSwap(a[c], a[c + 1]);
        if c < 1 then
          break;
        c := c - 1;
      Until Distance(a[c].x, a[c].y, from.x, from.y) < Distance(a[c + 1].x, a[c + 1].y, from.x, from.y)
      //writeln('next');
    End;
  End
End;

Function FindFurnace2:boolean;
var i,x,y,tempmousespeed:integer;
    points:array of tpoint;
    point:tpoint;
Begin
  wait(250);
  point.x:=MSCX;
  point.y:=MSCY
  colortolerancespeed(2)
  FindColorsTolerance(Points,1913771,MSx1,MSy1,MSx2,MSY2,10)
  writeln(inttostr(length(points)))
  SortTPAFrom(points,point)
  Mousespeed:=25+random(10)
  wait(250)
  For i:=0 to (length(Points)-1) do
  begin
    wait(2)
    if length(points) > 0 then
    begin
      If FindColoredAreaTolerance(x,y,1913771,points[i].x-30,points[1].y-30,points[i].x+30,
      points[i].y+30,80,10) then
      begin
        MMouse(x,y,4,4)
        wait(100+random(100))
        If IsUpTextMulti('melt','urn','ace') then
        Begin
          GetMousePos(x,y)
          Mouse(x,y,0,0,true)
          writeln('found furn')
          result:=True
          break;
        end;
      end;
    end;
  end;
  Mousespeed:=MSpeed;
  colortolerancespeed(1)
end;

Function FindFurnace(colors:array of integer):boolean;
var i:integer;
Begin
  wait(250);
  for i:=0 to (length(colors)-1) do
  begin
  if FindColoredAreaTolerance(x,y,colors[i], 136, 0, MMX2, MMY2, 2000, 20) then
  begin
    MMouse(x,y,0,0)
    wait(250)
    If IsUpTextMulti('melt','urn','ace') then
    begin
      mouse(x,y,0,0,true)
      writeln('found furn')
      result:=True
      break;
    end;
  end;
 end;
end;


Procedure PickBar(spot,amount:integer);
var a,b,mymark:integer;
Begin
  if (not(Loggedin)) then exit;
  fflag(0)
  marktime(mymark)
  Repeat
    if (not(Loggedin)) then Break;
    wait(10)
  until (FindFurnace2)
  repeat
    if (not(Loggedin)) then Break;
    wait(10)
  until (BarScreen)
  if (not(Loggedin)) then exit;
  if barscreen then writeln('found bar screen')
  a:=((spot*50)+5)
  b:=405
  MMouse(a,b,4,4)
  wait(100)
  getmousepos(x,y)
  Mouse(x,y,0,0,false)
  if (amount = 5) then
  begin
    ChooseOption('5')
    exit;
  end;
  if (amount = 10) then
  begin
    ChooseOption('10')
    exit;
  end;
  ChooseOption('X')
  FindT;
  SendText(inttostr(amount)+Chr(13))
end;

Function FindFastRandoms: Boolean;    // By WT-Fakawi.

Var
  i: Integer;

Begin
  For I := 1 To 13 Do
  Begin
    Case I Of
       1:  If FindDead Then
             Result := True;

       2:  If FindMod Then
             Result := True;

       3:  If FindMime Then
             Result := True;

       4:  If FindMaze Then
             Result := True;

       5:  If FindQuiz Then
             Result := True;

       6:  If FindDemon Then
             Result := True;

       7: Begin
             If NoGameTab Then
             Begin
               Result := True;
               Players[CurrentPlayer].loc := 'No GameTab';
               Logout;
               Exit;
             End;
           End;

       8: Begin
              If InBlack Then
              Begin
                Result := True;
                Players[CurrentPlayer].loc := 'InBlack';
                Logout;
                Exit;
              End;
            End;

       9 : If RC Then
             Result := True;

       10 : If FindFight Then
              Begin
                Result := True;
                RunTo(RunDir, RunFar);
              End;

       11: If FindTalk Then
             Result := True;

       12: If Level then
             Result := True;


       //14: SaveToLog;  next version probably if i get it working
       //                will save proggys

       13: If FindDemon Then
             Begin
               result:=True;
               SolveDemon;
             End;

    End;
    Wait(1);
  End;
End;

Function FindAll(num:integer):boolean;
var i:integer;
Begin
  if (not(Loggedin)) then exit;
  writeln('waiting to be done')
  While (OreCount > num) do
  begin
    case i+1 of
      1: begin
           If FindFastRandoms then
           begin
             Result:=True;
             break;
           end;
         end;
      2: Begin
           If FindNormalRandoms then
           begin
             Result:= True;
             break;
           end;
         end;
    end;
    wait(1)
    //SaveToLog;
    i:=i+1;
    if i>2 then i:=0
  end;
end;

Function FindAll2(num:integer):boolean;
var i:integer;
Begin
  if (not(Loggedin)) then exit;
  writeln('waiting to be done')
  While (BarCount > num) do
  begin
    case i+1 of
      1: begin
           If FindFastRandoms then
           begin
             Result:=True;
             break;
           end;
         end;
      2: Begin
           If FindNormalRandoms then
           begin
             Result:= True;
             break;
           end;
         end;
    end;
    if (not(loggedin)) then exit;
    wait(1)
    //SaveToLog;
    i:=i+1;
    if i>2 then i:=0
  end;
end;

Function FindAll3:boolean;
var i,mymark:integer;
Begin
  if (not(Loggedin)) then exit;
  writeln('waiting for flag to disappear')
  MarkTime(mymark)
  While (FlagDistance>8) do
  begin
    case i+1 of
      1: begin
           If FindFastRandoms then
           begin
             Result:=True;
             exit;
           end;
         end;
      2: Begin
           If FindNormalRandoms then
           begin
             Result:= True;
             exit;
           end;
         end;
      3: If TimeFromMark(MyMark)>=8000 then exit;
    end;
    if (not(loggedin)) then exit;
    wait(5)
    //SaveToLog;
    i:=i+1;
    if i>3 then i:=0
  end;
end;

Procedure InFurnace;
Begin
  if (not(loggedin)) then exit;
  Case Lowercase(Players[currentplayer].strings[0]) of
  'bronze':PickBar(1,14);
  'iron':PickBar(3,28);
  'silver':PickBar(4,28)
  'gold':PickBar(6,28)
  'steel':PickBar(5,10)
  'mith':PickBar(7,5);
  'addy':PickBar(8,5);
  'rune':PickBar(9,5);
  End;
  if (FindAll(0)) then
  begin
    Infurnace;
  end;
    wait(250)
    Players[currentplayer].integers[1]:=Players[currentplayer].integers[1]+BarCount
    ReportVars[1]:=ReportVars[1]+Barcount;
    TotalBars:=TotalBars+Barcount;
    Case lowercase(Players[currentplayer].strings[0]) of
      'bronze':ReportVars[10]:=ReportVars[10]+14;
      'iron':ReportVars[11]:=ReportVars[11]+BarCount;
      'silver':ReportVars[12]:=ReportVars[12]+28;
      'steel':ReportVars[13]:=ReportVars[13]+9;
      'gold':ReportVars[14]:=ReportVars[14]+28;
      'mith':ReportVars[15]:=ReportVars[15]+5;
      'addy':ReportVars[16]:=ReportVars[16]+4;
      'rune':ReportVars[17]:=ReportVars[17]+3;
    end;
end;

Procedure InFurnaceCannon;
Begin
  if (not(loggedin)) then exit;
  Case Lowercase(Players[currentplayer].strings[0]) of
  'or-ball':Pickbar(5,9)
  End;
  if (FindAll(0)) then
  begin
    InFurnaceCannon;
  end;
  ReportVars[1]:=ReportVars[1]+Barcount;
  TotalBars:=TotalBars+Barcount;
  Players[currentplayer].integers[1]:=Players[currentplayer].integers[1]+BarCount
  ReportVars[13]:=ReportVars[13]+Barcount;
end;

Procedure MakeCannonBalls;
Begin
  if (not(loggedin)) then exit;
  if FindDtm(mould,x,y,MIX1,MIY1,MIX2,MIY2) then
  begin
    if FindDtm(sbar,x,y,MIX1,MIY1,MIX2,MIY2) then
    begin
      flag;
      Mouse(x,y,4,4,true)
      repeat
        FindFurnace2;
        repeat
          wait(10)
        until (barscreen)
      until (barscreen)
      repeat
        Mouse(254,395,4,4,false)
        wait(100)
      until ChooseOption('All')
      if (FindAll2(1)) then
      begin
        MakeCannonBalls;
      end;
    end else
    begin
      Writeln('Didnt Find Steel Bars...Logging Out')
      logout2
      nextplayer(false)
    end;
  end else
  begin
    Writeln('Didnt Find Mould...Logging Out')
    NoMould:=True;
    exit;
  end;
end;

function FindDoorColor:integer; //creds to boreas!
var Color,tmpx,tmpy,MinOfRange:integer;
Length206,Length217,Length233,Length241:integer;
Array206,Array217,Array233,Array241:array of tpoint;
RangeOfOthers206,RangeOfOthers217,RangeOfOthers233,RangeOfOthers241:integer;
tmpbool:boolean;
begin
  for Color:=200 to 254 do
  begin
    if not(((Color=206)or(Color=217)or(Color=233)or(Color=241))) then
    begin
      if FindColor(tmpx,tmpy,Color,mmx1,mmy1,mmx2,mmy2) then
      begin
        result:=Color;
        tmpbool:=true;
      end;
    end;
    if tmpbool then break;
  end;
  if not(tmpbool) then
  begin
    //writeln('its a drop dot color');
    FindColorsTolerance(Array206,206,mmx1,mmy1,mmx2,mmy2,0);
    Length206:=getarraylength(Array206);
    FindColorsTolerance(Array217,217,mmx1,mmy1,mmx2,mmy2,0);
    Length217:=getarraylength(Array217);
    FindColorsTolerance(Array233,233,mmx1,mmy1,mmx2,mmy2,0);
    Length233:=getarraylength(Array233);
    FindColorsTolerance(Array241,241,mmx1,mmy1,mmx2,mmy2,0);
    Length241:=getarraylength(Array241);
    RangeOfOthers206:=max(Length233,max(Length217,Length241))-min(Length233,min(Length217,Length241));
    RangeOfOthers217:=max(Length233,max(Length206,Length241))-min(Length233,min(Length206,Length241));
    RangeOfOthers233:=max(Length206,max(Length217,Length241))-min(Length206,min(Length217,Length241));
    RangeOfOthers241:=max(Length233,max(Length217,Length206))-min(Length233,min(Length217,Length206));
    MinOfRange:=min(RangeOfOthers206,min(RangeOfOthers217,min(RangeOfOthers233,RangeOfOthers241)));
    case MinOfRange of
      RangeOfOthers206: result:=206;
      RangeOfOthers217: result:=217;
      RangeOfOthers233: result:=233;
      RangeOfOthers241: result:=241;
    end;
  end;
end;


Function FindMMFurnaceDoor:Boolean;
var mymark,doorcolor,x1,y1:integer;
    found:boolean;
begin
 wait(800)
 DoorColor:=FindDoorColor;
 writeln(inttostr(doorcolor))
 writeln('Doing New Proc')
 if doorcolor=0 then
 begin
   result:=false
 end;
 if XRadialFindObj(x,y,CactusColor,60,210,75,2,-20) then
 begin
   writeln('found cactus')
   marktime(mymark)
   X1:=X;
   Y1:=Y;
   repeat
   Y1:=Y1-1;
   wait(5)
   if FindColor(x,y,doorcolor,X1,Y1,X+10,y) then
   begin
     found:=true;
     break;
   end;
   until (timefrommark(mymark)>3000)
   if found then
   begin
     mouse(x-2,y+2,1,1,true)
     result:=true
   end else
   result:=false;
 end;
end;


Procedure ToFurn;
begin
  if (not(loggedin)) then exit;
  if XRadialWalk(CactusColor,120,200,60,1,-2,6,-2) then writeln('walking to cactus')
  wait(250)
  if (invcount < oreamount) then
  begin
    writeln('not enough ores...logging out')
    logout2;
    nextplayer(false);
    exit;
  end;
  FFlag(0);
  FindFastRandoms;
  wait(500)
  if (not(FindMMFurnaceDoor)) then
  begin
    writeln('couldn''t find with Xcan''s Proc')
    if (XRadialWalk(CactusColor,60,210,75,1,-1,2,-20)) then
    begin
    end
    else
    begin
      writeln('couldn''t find with RW')
      if FindColor(x,y,cactuscolor,MMCX, MMCY, 722, 127) then
      mouse(x,y,2,2,true)
      else
      begin
        writeln('couldn''t find with FindColor...blind clicking')
        mouse(698, 99,4,4,true)
      end;
    end;
  end;
  FindAll3;
  fflag(0)
  OpenDoor;
  Mouse(648, 83-20, 2, 2, true)
  Players[currentplayer].Loc:='Furnace'
end;

Procedure ToBank;
begin
  if (not(loggedin)) then exit;
  DoorColor:=FindDoorColor;
  if RadialWalk(Doorcolor,200,170,40,0,0) then
  begin
    findall3;
    fflag(0)
    opendoor;
  end;
  if not(XRadialWalk(CactusColor,255,290,75,1,-1,4,0)) then
  begin
    writeln('couldn''t find with RW')
    if FindColor(x,y,cactuscolor,572, 60,616, 137) then
    mouse(x,y,4,4,true)
    else
    begin
      writeln('couldn''t find with FindColor...blind clicking')
      mouse(597, 87,4,4,true)
    end;
  end;
  FindAll3;
  FFlag(0);
  wait(200);
  FindBank2;
  Players[currentplayer].Loc:='Bank'
end;

Procedure Bank;
Begin
  if (not(loggedin)) then exit;
  if (InvCount = OreAmount) then exit;
  if (lowercase(players[currentplayer].strings[0])='st-ball') or
  (lowercase(players[currentplayer].strings[0])='or-ball') then
  begin
    Players[currentplayer].integers[2]:=Players[currentplayer].integers[2]+Amount('inv',1)
    ReportVars[18]:=ReportVars[18]+Amount('inv',1)
    TotalCballs:=TotalCballs+amount('inv',1)
  end;
  DwarfItem;
  MyopenBank;
  fixbank;
  if (lowercase(players[currentplayer].strings[0])='st-ball') or
  (lowercase(players[currentplayer].strings[0])='or-ball') then
  Deposit(1,27,2) else
  depositall;
  Banks:=Banks+1
end;

function AdvProg(num : integer; maxlength : integer) : string;
begin
  result := Replicate(' ',maxlength-length(inttostr(num)));
end;

function AdvProgEx(num : extended; maxlength : integer) : string;
begin
  result := Replicate(' ',maxlength-length(floattostr(num)));
end;

Function xp:extended;
Begin
  Case lowercase(Players[currentplayer].strings[0]) of
    'bronze':Result:=TotalBars*6.2
    'iron':Result:=TotalBars*12.5
    'silver':Result:=TotalBars*13.7
    'steel':Result:= TotalBars*17.5
    'gold':Result:=TotalBars*22.5
    'mith':Result:=TotalBars*30
    'addy':Result:=TotalBars*37.5
    'rune':Result:=TotalBars*50
    'st-ball':Result:=TotalCBalls*25.5
    'or-ball':Result:=((TotalBars*17.5)+(TotalCBalls*(25.5 div 4)))
  end;
end;

Procedure Report;
Begin
  ChangeReportWidth(280);
  ClearReport;
  writeln(' ____________________________________ ');
  writeln('/   Xcan''s Smelter/CannonballMaker   \');
  writeln('|                V2.19               |')
  writeln('|------------------------------------|');
  writeln('|Ran For: '+(TimeRunning)+'.');
  writeln('|Finished: '+inttostr(load)+' load(s).'+AdvProg(load,17)+'|');
  If totalbars > 0 then
  writeln('|Made: '+inttostr(totalbars)+' bars.'+
  advprog(totalbars,23)+'|')
  If TotalCballs > 0 then
  writeln('|Made: '+inttostr(TotalCballs)+' cannonballs.'+
  advprog(TotalCballs,16)+'|')
  If Xp > 0 then
  writeln('|Gained: '+FloatToStr(xp)+' exp.'+AdvProgEx(xp,22)+'|')
  If Levels > 0 then
  writeln('|Gained: '+inttostr(levels)+' level(s).'+ AdvProg(levels,18)+'|')
  writeln('\____________________________________/');
  SRLRandomsReport;
end;

Procedure Intro;
begin
  ChangeReportWidth(280);
  ClearReport;
  AddToReport('                    __ ');
  AddToReport(' __  __            (_ \');
  AddToReport(' \ \/ /___ __ _ _ __ \/  ___  ');
  AddToReport('  \  // __/ _` | `_ \   / __| ');
  AddToReport('  /  \ (_| (_| | | | |  \__ \');
  AddToReport(' /_/\_\___\__,_|_| |_|  |___/');
  wait(1000)
  ClearReport;
  AddToReport('  __           _       _  ');
  AddToReport(' / _\ ___ _ __(_)_ __ | |_ ___ ');
  AddToReport(' \ \ / __| ''__| | ''_ \| __/ __|');
  AddToReport(' _\ \ (__| |  | | |_) | |_\__ \ ');
  AddToReport(' \__/\___|_|  |_| .__/ \__|___/');
  AddToReport('                |_|         ');
  wait(1000);
  ClearReport;
  AddToReport('          Brings You:');
  Wait(1000);
  ClearReport;
  AddToReport(' Xcan''s Smelter/CannonballMaker');
  AddToReport('             V'+Versionnumber)
  Wait(1000);
  AddToReport('');
  AddToReport('');
  AddToReport('');
  AddToReport('Please POST All Progress Reports');
end;

Procedure Chats;
Begin
  SetChat('on',1)
  SetChat('friends',2)
  SetChat('off',3)
  SetChat('on',1) //double just to make sure
  SetChat('friends',2)
  SetChat('off',3)
  HighestAngle;
end;

Procedure Main;
Begin
  repeat
    repeat
    if Players[currentplayer].Loc='Bank' then
    begin
      Bank;
      InBank;
      Report;
      ToFurn;
    end;
    if Players[currentplayer].Loc='Furnace' then
    begin
      Case lowercase(Players[CurrentPlayer].Strings[0]) of
      'bronze','iron','silver','gold','steel','mith','addy','rune':
        begin
          InFurnace;
        end;
      'st-ball':
        Begin
          MakeCannonBalls;
        end;
      'or-ball':
        Begin
          InFurnaceCannon;
          MakeCannonBalls;
        end;
      end;
      ToBank;
      Load:=Load+1
      Loads:=Loads+1
      ReportVars[0]:=ReportVars[0]+1
    end;
    if (not(loggedin)) then
    begin
      writeln('not logged in')
      nextplayer(False)
    end;
    until (Loads=Players[currentplayer].integers[0])
    Logout2;
    FreeDtm(rock1)
    Loads:=0;
    if Rock2 > 0 then FreeDtm(rock2)
    LoadDtms;
    if howmanyplayers=1 then wait(300000)
    Nextplayer(true);
    MakeCompass('w');
    FindMould;
    MakeCompass('w');
    Chats;
    MakeCompass('w');
  until(false)
end;

begin
  Intro;
  CheckVersion;
  SetupSrl;
  Mousespeed:=Mspeed;
  SRLID:=MySRLID;
  SRLPassword:=MYSRLPASSWORD;
  ScriptID:='30'
  ReportVars[2]:=ReportVars[2]+1
  DeclarePlayers;
  LoadDtms;
  SetupDemon;
  LoginPlayer;
  MakeCompass('w')
  FindCactusColor;
  MakeCompass('w')
  FindMould;
  Chats;
  Main;
end.

fixed

hermpie:D