Originally Posted by
rslueshi
How do I get that version? I downloaded the copy he has in this topic?
Also heres a proggy...
O.O that's strange. Thanks for the proggy though! Your code should look like this...
Simba Code:
program TaricCosher;
{$Define SMART}
{$I SRL-6/SRL.simba}
//********FILL OUT THESE VARIABLES********
const
coshTime = 180; //How many minutes do you want this to run?
//Max time is 6 hours ~ 360 minutes.
browserAgent =''; //Goto http://whatsmyuseragent.com/
//Copy the portion of stuff that matches
//what browser you use.
//EX: Chrome/42.4.2424.242
//What is the purpose of this? It makes your
//SMART client look more like your browser.
//********STOP FILLING OUT THE VARIABLES********
var
XP, XPH, startingExperience: extended;
coshBox, lootBox: Tbox;
timer: TTimeMarker;
//Solidone40's MiniBreaker procedures
Procedure MiniBreaker;
Begin
Case Random (160) Of
1: begin Wait(40000 + random(7400)); writeLn('Starting AntiBan'); end
2: begin Wait(25500 + random(8550)); writeLn('Starting AntiBan'); end
3: begin Wait(60040 + random(6759)); writeLn('Starting AntiBan'); end
4: begin Wait(20400 + random(2549)); writeLn('Starting AntiBan'); end
end;
end;
//Solidone40's Antiban procedures
Procedure Antiban;
Begin
Case Random(60) Of
2: begin randomGameTab(False); writeLn('Starting AntiBan'); end
4: begin Wait(2500 + random(4500)); writeLn('Starting AntiBan'); end
6: begin PickUpMouse; writeLn('Starting AntiBan'); end
7: begin mouseMovingObject; writeLn('Starting AntiBan'); end
8: begin hoverSkill(SKILL_THIEVING); writeLn('Starting AntiBan'); end
9: begin MiniBreaker(); writeLn('Starting AntiBan'); end
end;
end;
//Ashaman's progressReport procedure.
procedure progressReport();
begin
ClearDebug;
XP := (ChatBox.getXPBar - Round(StartingExperience));
XPH := Round(XP * (3600.0 / (GetTimeRunning / 1000.0)));
writeln('|=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=|');
writeln('| Taric''s Outrageous Cosher! |');
writeln('|=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=|');
writeln(PadR('| Exp Earned: ' + GroupDigits(XP,','), 40) + padR('Exp/Hour: ' + GroupDigits(XPH,','), 20) + '|');
writeln(PadR('| Running for: ' + timeRunning, 60) + '|');
writeln('|___________________________________________________________|');
writeln('|___________________________________________________________|');
end;
procedure lureDummy();
var
count: integer;
begin
count = 0;
repeat
mouseBox(coshBox, MOUSE_RIGHT);
chooseOption.select(['ure']);
inc(count);
if(count > 6) then
TerminateScript();
until conversationBox.isOpen(2000);
repeat
conversationBox.continue(true, true)
until not conversationBox.isOpen();
end
procedure lootDummy();
var
counter: Integer;
begin
counter := 0;
mouseSpeed := randomRange(28,32);
repeat
mouseBox(lootBox, MOUSE_RIGHT);
chooseOption.select(['oot']);
mouseSpeed := mouseSpeed - randomRange(1,3);
inc(counter);
until counter >= randomRange(3,5);
mouseSpeed := 20;
end
procedure knockDummy();
begin
mouseBox(coshBox, MOUSE_RIGHT);
chooseOption.select(['nock']);
end
begin
clearDebug();
disableSRLDebug := true;
smartUserAgent := browserAgent;
smartShowConsole := false; //Because no one likes that black box :p
SmartEnableDrawing := True;
setupSRL();
SmartImage.clear();
lootBox := intToBox(265, 110, 317, 153); //Change these values if the boxes aren't working.
coshBox := intToBox(265, 81, 310, 120); //Same.
SmartImage.drawBox(coshBox);
SmartImage.drawBox(lootBox);
startingExperience := chatBox.getXPBar;
timer.start()
repeat
lureDummy();
wait(randomRange(401,602));
knockDummy();
wait(randomRange(401,602));
lootDummy();
wait(randomRange(401,602));
progressReport();
Antiban();
MiniBreaker();
until timer.getTime() > ((coshTime + randomRange(1,10)) * 60000);
end.