tofurocks
03-30-2011, 07:11 PM
Competent alcher with semi-tested static alching option.
program qAlcher;
{$i srl/srl/misc/smart.scar}
{$i srl/srl.scar}
var i, ptx, pty: integer;
const
Alchs = 1749;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := ''; // Username
Players[0].Pass := ''; // Password
Players[0].Nick := ''; // 3-4 lowercase letters from username; used for random event detection
Players[0].Active := True; // Set to true if you want to use Player 0
Players[0].Pin := ''; // Leave blank if the player doesn't have a bank pin
Smart_Server := 152;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
end;
procedure BoxAlch;
begin
for i := 0 to Alchs do
begin
FindNonInventoryRandoms;
MouseBox(563, 380, 582, 364, 1);
Wait(RandomRange(600, 1500));
end;
end;
procedure StaticAlch;
begin
ptx := Random(20)+560;
pty := Random(20)+360;
for i := 0 to Alchs do
begin
FindNonInventoryRandoms;
Mouse(ptx, pty, 0, 0, True);
Wait(RandomRange(600, 1500));
end;
end;
begin
ClearDebug;
SetupSRL;
DeclarePlayers;
LoginPlayer;
Wait(RandomRange(1000,2000));
SetAngle(true);
FindNormalRandoms;
Wait(RandomRange(100,500));
GameTab(28);
BoxAlch;
end.
Magic book setup:
http://img706.imageshack.us/img706/9531/highalch.png
program qAlcher;
{$i srl/srl/misc/smart.scar}
{$i srl/srl.scar}
var i, ptx, pty: integer;
const
Alchs = 1749;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := ''; // Username
Players[0].Pass := ''; // Password
Players[0].Nick := ''; // 3-4 lowercase letters from username; used for random event detection
Players[0].Active := True; // Set to true if you want to use Player 0
Players[0].Pin := ''; // Leave blank if the player doesn't have a bank pin
Smart_Server := 152;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
end;
procedure BoxAlch;
begin
for i := 0 to Alchs do
begin
FindNonInventoryRandoms;
MouseBox(563, 380, 582, 364, 1);
Wait(RandomRange(600, 1500));
end;
end;
procedure StaticAlch;
begin
ptx := Random(20)+560;
pty := Random(20)+360;
for i := 0 to Alchs do
begin
FindNonInventoryRandoms;
Mouse(ptx, pty, 0, 0, True);
Wait(RandomRange(600, 1500));
end;
end;
begin
ClearDebug;
SetupSRL;
DeclarePlayers;
LoginPlayer;
Wait(RandomRange(1000,2000));
SetAngle(true);
FindNormalRandoms;
Wait(RandomRange(100,500));
GameTab(28);
BoxAlch;
end.
Magic book setup:
http://img706.imageshack.us/img706/9531/highalch.png