Simba Code:
program G_Alcher;
{$DEFINE SMART}
{$I SRL-6/SRL.simba}
(* Setup you information below!*)
const
(* player info *)
playerNames = [''];
playerFile = 'default';
desiredWorld = 100; //World to login to
itemSlot = 2; //The backpack slot the item you're alching is located.
(* END SETUP, DO NOT CHANGE BELOW UNLESS YOU KNOW WHAT YOU'RE DOING*)
var
i, timesAlched, timesTried:integer;
procedure initScript; //adapted from bonsai's init procedure
var i:integer;
begin
addOnTerminate('scriptTerminate');
clearDebug();
smartEnableDrawing := true;
setupSrl();
smartForceNewClient := true; //thanks olly
players.setup(playerNames, playerFile);
currentPlayer := 0;
for i := 0 to high(players) do
begin
players[i].world := desiredWorld;
players[i].isActive := true;
end;
while (players.getActive() > 0) do
begin
if (not isLoggedIn()) then
begin
if (not players[currentPlayer].login()) then break;
exitTreasure();
exit;
end;
end;
end;
procedure alch();
begin
if (actionBar.isSlotActive(1)) then
begin
wait(10 + randomRange(+100,200));
tabBackpack.mouseSlot(itemSlot, MOUSE_LEFT);
inc(timesAlched);
wait(2000 + randomRange(-500, 900));
end else typeSend('1', false)
end;
begin
clearDebug;
writeLn('********************************************');
writeLn('* G_alch V_1.3 (Thank you KeepBotting! *');
writeLn('********************************************');
writeLn('We have alched ' + intToStr(timesAlched) + ' times. ');
begin
writeLn('We have gained ' + intToStr(timesAlched*65) + ' xp.');
end
writeLn('We have been working for ' + timeRunning + '');
writeLn('********************************************');
end;
// main loop
begin
initScript;
repeat
alch;
until not tabBackpack.isItemInSlot(itemSlot) or chatbox.findText(['unes to cast this spe']);
end.