Items for Gold! (High Alcher)

[70s_dollar]

Items for Gold

by 70s_dollar

STATUS = ONLINE

Hello, I'm 70s_dollar and I made this script for fun, and just to add an alternative to some of the more complex High alching scripts out there. This is one is quite simple, an Alching procedure, and a Proggie.

What does it do?

High Alchs any noted item in the 13th slot of your Inv/Low Alchs any noted item in the 8th slot of your Inv.

How do I set it up?

//Place the alching item in the 13th inv slot for high alc, 8th for low alch//
//Setup Lines 42-43, and 48-70//
//Ensure you have enough runes or a staff and enough runes//
//Press Start//
//Post Proggie!//

Best Proggies

Best goes to awkwardsaw, way to go!



|_\Items for Gold/_| by 70s Dollar
Thanks for using
-----------------------
Alched 500 out of 500 times!
0 Alchs to do
32500 Magic Exp gained


So, this is Items for Gold

////////////////////////////////////////////////////////
// //
// //////// //////// //////// /// /// //////// //
// // // // // // // // //
// // // ///// // // //////// //
// // // // // // // //
// //////// // //////// // // //////// //
// //
// //////// //////// ////// //
// // // // // // //
// ///// // // ////// //
// // // // // // //
// // //////// // // //
// //
// ///////// ////////// // ///////// //
// // // // // // // //
// // // // // // // //
// // ////// // // // // // //
// // // // // // // // //
// //////// ////////// ////////// ////////// //
// //
////////////////////////////////////////////////////////

//Items for Gold by 70s_dollar, steal it and I kill you!//
//Place the alching item in the 13th inv slot for high alc, 8th for low alch//
//Start on the magic tab//
//Setup Lines 42-43, and 48-70//
//Ensure you have enough runes or a staff and enough runes//
//Press Start//
//Post Proggie!//

program Alcher;
{.include SRL/SRL/Misc/Smart.scar}
{.Include SRL\SRL.SCAR}

var
alched: integer;

//SETUP//

const
AlchNumber = 3; //How many much of the item do you want to alch?
Alchtype = 'high'; //High for high alc, low for low alc

procedure DeclarePlayers;

begin
HowManyPlayers := 1; {How many players?}
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0; {What player do whish to use?}

Players[0].Name := ''; //username
Players[0].Pass := ''; //password
Players[0].Nick := ''; //3-4 letters of name
Players[0].Active := True;

{Players[1].Name := ''; //username
Players[1].Pass := ''; //password
Players[1].Nick := ''; //3-4 letters of name
Players[1].Active := False;

Players[2].Name := ''; //username
Players[2].Pass := ''; //password
Players[2].Nick := ''; //3-4 letters of name
Players[2].Active := False;

Players[3].Name := ''; //username
Players[3].Pass := ''; //password
Players[3].Nick := ''; //3-4 letters of name
Players[3].Active := False; }

end;

procedure Alch(High: string);

var
sx, sy, ix, iy, s2x, s2y, i2x, i2y: integer;

begin
sx := 574;
sy := 354;
ix := 579;
iy := 338;
if (AlchType = Lowercase('low'))then
begin
s2x := 717;
s2y := 252;
i2x := 705;
i2y := 265;
if(not(GameTab(7))) then
GameTab(7);
Wait(500+Random(100));
Mouse(s2x, s2y, 5, 5, True);
Wait(600+Random(500));
Mouse(i2x, i2y, 4, 5, True);
Inc(Alched);
end else
if(not(GameTab(7))) then
GameTab(7);
Wait(500+Random(100));
Mouse(sx, sy, 5, 5, True);
Wait(1300+Random(500));
Mouse(ix, iy, 4, 5, True);
Inc(Alched);
end;

procedure Proggy;

begin

ClearDebug;
Writeln('|_\Items for Gold/_| by 70s Dollar');
Writeln('Thanks for using ;)');
Writeln('-----------------------');
Writeln('Alched '+IntToStr(Alched)+' out of '+IntToStr(AlchNumber)+' times using'+AlchType+' alchemy');
Writeln(IntToStr(AlchNumber-Alched)+ ' Alchs to do :)');
Writeln(IntToStr(Alched*65)+ ' Magic Exp gained');
Disguise('YouTube - Randy Pausch Last Lecture: Achieving Your Childhood Dreams - Mozilla Firefox'); //Longest thing I know of
end;

Procedure SetupSmart;

Begin
Writeln('Loading SMART');
SmartSetupEx(23, false, true, false);
wait(3000);
SetTargetDC(SmartGetDC);
repeat
wait(100);
until(SmartGetColor(253, 233)<>1118604);
Cleardebug;
Writeln('SMART loaded');

end;

procedure MainLoop;
begin
If(not(loggedin)) then loginplayer;
repeat
Alch(AlchType);
Proggy;
until(Alched >= AlchNumber) or (AllPlayersInactive) or (not(loggedin));
if (AllPlayersInactive) then
begin
Logout;
Cleardebug;
Writeln('All players are inactive');
wait(500+random(500));
Writeln('Thank you for using Transporter');
TerminateScript;
end else
begin
Nextplayer(False);
If(not(loggedin)) then
Begin
Writeln('No players are logged in');
TerminateScript;
end;
end;
end;

Procedure SetupScript;
Begin
Cleardebug;
SetupSRL;
Cleardebug;
SetupSmart;
DeclarePlayers;
If (not(loggedin)) then loginplayer;
makecompass('n');
SetAngle(True);
Setrun(true);
end;

begin
Setupscript;
Repeat
Mainloop;
Until(AllPlayersInactive);
end.

end

Just on an end note, I want to give a big hand out to 99_, who helped me through the proggy, helped to fix up my mouse movements and clicks, and helped out through the Low alch and High alch swtiching, thanks. and also, post proggies and bugs please!

Version 2.0
Multiplayer
Optional Smart
Soon to come with SRL Stats and Form!

70s_dollar

[ian.]

;) don't put Experience in the const..

make a local var in your proggy procedure (or global if you want :p) then do Experience := 65;

just like you did for x and y ;)

procedure Proggy;
var
Experience := 65;
begin
//stuff;
end;

;)

and get on MSN >.<

[70s_dollar]

;) don't put Experience in the const..

make a local var in your proggy procedure (or global if you want :p) then do Experience := 65;

just like you did for x and y ;)

procedure Proggy;
var
Experience := 65;
begin
//stuff;
end;

;)

and get on MSN >.<

Okay fault me on like the one thing thats not really good? I'm gonna clean it up, add Multiplayer, and a few other features for 2.0.

[Z3r0Grav]

ok im not too great when it coems to the co-ordiante's so what would it take to turn it to low acl ?

[70s_dollar]

ok im not too great when it coems to the co-ordiante's so what would it take to turn it to low acl ?

Not much, I'm currently working on it as we speak, might even get it out today. ;)

Edit: Finished it, am uploading now, and it's uploaded.

[Z3r0Grav]

hm, it doesnt seem to work for me well, unless i put items in my inventory then it does about 7-8, but it doesnt go to bank and flicks on the low alc and jsut moves about a bit

[WhoCares357]

hm, it doesnt seem to work for me well, unless i put items in my inventory then it does about 7-8, but it doesnt go to bank and flicks on the low alc and jsut moves about a bit

The script doesn't bank.

PS @ 70s_dollar: Use the [ scar ] tag instead of the php one.

[70s_dollar]

The script doesn't bank.

PS @ 70s_dollar: Use the [ scar ] tag instead of the php one.

Okay I just recently discovered v1.4 Does not work with high alcing, however 1.2 does, so I'll to go in this weekend and see what's wrong, sorry about the confusion, again use VERSION 1.2 FOR HIGH ALCHING AT THIS MOMENT!

Thank you :)

[Awkwardsaw]

just because you havent had a proggy yet,

|_\Items for Gold/_| by 70s Dollar
Thanks for using ;)
-----------------------
Alched 500 out of 500 times!
0 Alchs to do :)
32500 Magic Exp gained

[krazyk56]

Could someone tell me what a good item is to alch without losing to much money. Sorry if I am a bit lazy, but maybe this will help someone else also. :-\

[70s_dollar]

Could someone tell me what a good item is to alch without losing to much money. Sorry if I am a bit lazy, but maybe this will help someone else also. :-\

There's honestly no item you can buy in mass quantities and alch without a loss of profit, so, fletching ftw!

[70s_dollar]

There will be a rather large update for this happening within the next few hours, will include, SMART, Multiplayer, and more!

[Sinking Poop]

Could someone tell me what a good item is to alch without losing to much money. Sorry if I am a bit lazy, but maybe this will help someone else also. :-\
Fletch yews longs and put string on, then alch works and makes you a decent profit

[70s_dollar]

Fletch yews longs and put string on, then alch works and makes you a decent profit

He meant buying something, adding the cost of nats and seeing if there is a profit, none that you can buy in mass quantities.

Edit: Updated OP, 2.0 now out, can I get a proggy or two?

[Starbridge]

Well, you use coordinates? Wow, that is really bannable, plus, it messes up a lot. Look in the magic include, it will help a lot. And, just... don't use coordinates for anything unless its for a dtm or bitmap, or some other object search.

[ian.]

D:<

he uses randomness = not bannable..

:/

[Smarter Child]

Alch yew longs, don't use this script though.

[Awkwardsaw]

oh, thats real nice smarter child =o

tbh, theres nothing wrong with his script.. just as good as any other auto alcher

[Sirhiro]

This script is nice but it isn't to accurate with the counting of alchs. If you turn the script on then disable smart while its running the alch count will continue to rise even without your character doing anything =P