No no no, I own you all at failing I mean check this script out and im still no better :P
program Helloworld;
begin
sendenglishwords; HELOO//
end.
~Tom~
Had a failsafe in one of my miners which would occasionally result in the character clicking in the one place on the minimap constantly for hours until it got a random and died. Didn't realise it though lol, a character would die roughly 1 out of 3/4 nights I ran the script. Ran it for 2 months before any bans came, and ended up losing ~5 of my best autoers, a medium level (50+ in all skills) autoer-main and my best mate's level 90 main (which he appealed last week and got unbanned lol). This was back a year and a half ago or so.
Never released / maked a working script >.<
SCAR Code:{//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//
| Draynor Willow Crusher & Banker |
| By Torrent of Flame |
| Scar 3.14 SRL 4.0 Rev 14 |
| Version 1.2 |
| Chops Willows at Draynor and Banks them |
| Start from Draynor Bank or Willow Trees |
| Enter your Pin before you start! |
| Start Logged Out if you start in bank, or in if you start at Willows |
| HAS TO BE SAID: ---> Works (alot) better without a pin <--- |
//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\
| How Many Loads at line 25 |
| Setup Player at lines 39-42 |
//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\
|Version 1.1 Includes |
| Anti-Ban |
| Anti-Random |
| Working Walking (Lol :D) |
| Complete Revision of Script - Sorted Unnecissary codes and BMP's |
//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\
|Version 1.2 Includes |
| Essential Repairs for Banking - Willow DTM was invalid, WillowBMP added |
| Banking Works! |
| Main Loop Fixed - Repeats after banking |
| |
//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\
|Version 1.3 Includes |
| Multi-Player |
| Fully working Repeat |
| Fully working Tree Cutting |
| Chatting |
//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\}
Program WillowCrusher;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/WoodCutting.scar}
const
//-->Loads<--\\
Loads = 5; //How many loads per player before switching
{-------------------------------------------------------
Player Setup
--------------------------------------------------------}
procedure DeclarePlayers;
begin
HowManyPlayers := 1; //How many Players
NumberOfPlayers(HowManyPlayers);
CurrentPlayer :=0; //Starting Player
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Active := True;
end;
{----------------------------Do Not Edit Below This----------------------------}
var x, y: integer;
LoadsNum: integer;
LoadsNum2: integer;
//Signature\\
procedure Signature;
begin
ClearDebug;
wait(250 + random(30));
writeln(' Torrents Willow Crusher&Banker ');
wait(250 + random(30));
writeln(' _____ _ ');
wait(250 + random(30));
writeln('(_ _) ( )_ ');
wait(250 + random(30));
writeln(' | | _ _ __ _ __ __ ___ | ,_)');
wait(250 + random(30));
writeln(' | | / _`\ ( "__)( "__)/"__`\/" _ `\| | ');
wait(250 + random(30));
writeln(' | |( (_) )| | | | ( ___/| ( ) || |_ ');
wait(250 + random(30));
writeln(' (_)`\___/ (_) (_) `\____)(_) (_) \__)');
wait(500 + random(30));
end;
//Torrent Proggy\\
procedure ToFProggy;
begin
ClearDebug;
Writeln(',,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,');
Writeln('/\Please Post Progress Reports & Any problems /\ ');
Writeln('/\ From Wherever you got the script /\ ');
Writeln('//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\ ');
Writeln('//\\Worked For: ' + TimeRunning + ' //\\');
Writeln('//\\Did: ' + IntToStr(LoadsNum)+ ' Loads //\\');
Writeln('//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\ ');
Writeln('//\\ Thanks for Using my Script :D //\\ ');
Writeln('```````````````````````````````````````````````');
end;
//Logging in...\\
procedure Login;
begin
if (not(LoggedIn)) then
LoginPlayer;
end;
//--------------------------------Anti-Ban!!------------------------------------\\
procedure AntiBan;
begin
if (not(LoggedIn)) then
Exit;
case Random(8) of
0: RandomRClick;
1: HoverSkill('Woodcutting', False);
2: RandomMovement;
3: BoredHuman;
4: PickUpMouse;
5: AlmostLogout;
6: DoEmote(100 +Random(90));
7: begin
GameTab(1 +Random(12));
wait(2000 +Random(1000));
GameTab(4);
end;
end;
end;
//------------------------------Anti-Randoms!!------------------------------\\
procedure FindRandoms;
begin
FindTalk;
FindNormalRandoms;
FindLamp('Woodcutting');
SolvePinball;
FindEnt(x, y, true);
end;
//EntFinder\\
procedure EntFinder;
var
EX, EY: integer;
FX, FY: integer;
SafeEntWait: LongInt;
begin
if (not (LoggedIn)) then
Exit;
begin
Status('Ent Checking')
if
(FindObjCustom(EX, EY, ['Willow'], [4690821], 7)) then
begin
MMouse(EX, EY, 0, 0)
if FindColorTolerance(FX, FY, 55769, 85, 15, 115, 15, 20) then
begin
Status('Found Ent');
MarkTime(SafeEntWait)
repeat
FTWait(5)
FindNormalRandoms;
if not (LoggedIn) then
NextPlayer(False);
until TimeFromMark(SafeEntWait) > 20000 + Random(5000);
end;
end;
end;
end;
//---------------------------------ChopTree-----------------------------------\\
Procedure ChopTree;
begin
if not LoggedIn then
Exit;
MakeCompass('S');
EntFinder;
FindEnt(x, y, True);
repeat
if FindObjCustom(x, y, ['Wil', 'low'], [1989969, 3760987, 2844763], 7) then
begin
Mouse(x,y,0,0,false);
repeat
Wait(100 + (random(150)));
ChooseOption('hop')
AntiBan;
until(InvFull)
end;
until(InvFull)
end;
//----------------------Walking from Willows to Bank--------------------------\\
procedure WalkToBank;
begin
if (not(LoggedIn)) then
Exit;
SymbolAccuracy:= 0.2;
Makecompass('N');
if (not(FindSymbol(x, y, 'bank'))) then
begin
NextPlayer(False);
end;
begin
if (FindSymbol(x, y, 'bank')) then
begin
Mouse(x, y, 2, 2, true);
Flag;
Writeln('Got to bank');
end;
end;
end;
//-----------------------------Banking the Willows----------------------------\\
function Banking: Boolean;
begin
if (InvFull) then
begin
MakeCompass('N')
Wait (300 + random(160));
OpenBankQuiet('db');
if(FindColorSpiral(x, y, 1852748, 547, 206, 734, 464))then
begin
Mouse(x, y, 4, 3, false);
ChooseOption('All');
Result := True;
if Result = True then
begin
LoadsNum := LoadsNum + 1;
LoadsNum2 := LoadsNum2 + 1;
end;
end;
CloseBank;
Wait(150 + random (278));
MakeCompass('S');
end;
end;
//-----------------------Walking from Bank to Willows-------------------------\\
procedure WalkToWillow;
var WaterColor : integer;
begin
if (not(LoggedIn)) then
Exit;
MakeCompass('S');
WaterColor := FindWaterColor;
RadialWalk(WaterColor, 225, 351, 64, 2, 2);
Flag;
Writeln('At Willows Now');
end;
//--------------------------->>>Main Loop<<<----------------------------------\\
procedure SetupScript;
begin
if (Loggedin) then Logout;
SetupSRL;
Signature;
DeclarePlayers
if (not (Loggedin)) then Login;
end;
begin
SetupScript;
repeat
WalkToWillow;
repeat
ChopTree;
until (InvFull) or (not LoggedIn)
AntiBan;
WalkToBank;
Banking;
if (LoadsNum2=Loads) then
begin
NextPlayer(True);
LoadsNum2 := 0;
MakeCompass('S')
Writeln('Players Switched successfully')
end;
TofProggy;
SRLRandomsReport;
until (false)
end
First members application, 8 no's and the standards are scarreeeh!
Also, could never get this to work which was mega shit, might work on this and get it to work as there never has been one successful....
SCAR Code:{//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//
| Varrock West Bank Potion 3 to 4 Mixer |
| By Torrent of Flame |
| Scar 3.14 SRL 4.0 Rev 14 |
| Version 1.1 |
| Mixes Attack Potions in Varrock West from 3 to 4 |
| Start in Varrock West Bank |
| Start Logged Out |
| Put Potions in FIRST or SECOND Row |
| First of a Kind Script as far as I know! |
//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\
| Setup Player at lines 45 to 77 |
//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\
| Mega thanks to Dude Richard for helping me out! |
//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\
| NOTE: Will ONLY do ATTACK potions (Normal, Not Super!) |
//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\
|Version 1.1 Includes |
| Anti - Ban |
| Anti - Randoms |
| FailSafes |
| Pin Compatible |
//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\
|Version 1.2 Includes |
| It Works! |
//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\}
Program PotionMixer;
{.include SRL/SRL.scar}
const
//---->Loads<-----\\
Loads = 100; //Approximate Amount.
//--->SRL ID<---\\
YourSRLId = '';
YourSRLPassword ='';
//--->Pin - Make same for ALL chars. If no Pin, leave blank<---\\
YourPin = '';
{-------------------------------------------------------
Player Setup
--------------------------------------------------------}
procedure DeclarePlayers;
begin
HowManyPlayers := 1; //How many Players
NumberOfPlayers(HowManyPlayers);
CurrentPlayer :=0; //Starting Player
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Active := True;
{ Players[1].Name := '';
Players[1].Pass := '';
Players[1].Nick := '';
Players[1].Active := False;
Players[2].Name := '';
Players[2].Pass := '';
Players[2].Nick := '';
Players[2].Active := True;
Players[3].Name := '';
Players[3].Pass := '';
Players[3].Nick := '';
Players[3].Active := True;
Players[4].Name := '';
Players[4].Pass := '';
Players[4].Nick := '';
Players[4].Active := True;
Players[5].Name := '';
Players[5].Pass := '';
Players[5].Nick := '';
Players[5].Active := True; }
end;
{----------------------------Do Not Edit Below This----------------------------}
var x, y, LoadsMixed, LoadsMixed2, PotionsMixed, PotionsMixed2, EmptyVial, AttackPotion: integer;
//Signature\\
procedure Signature;
begin
ClearDebug;
wait(250 + random(30));
writeln(' Torrents Potion 3 to 4 Mixer ');
wait(250 + random(30));
writeln(' _____ _ ');
wait(250 + random(30));
writeln('(_ _) ( )_ ');
wait(250 + random(30));
writeln(' | | _ _ __ _ __ __ ___ | ,_)');
wait(250 + random(30));
writeln(' | | / _`\ ( "__)( "__)/"__`\/" _ `\| | ');
wait(250 + random(30));
writeln(' | |( (_) )| | | | ( ___/| ( ) || |_ ');
wait(250 + random(30));
writeln(' (_)`\___/ (_) (_) `\____)(_) (_) \__)');
wait(500 + random(30));
end;
//Torrent Proggy\\
procedure ToFProggy;
begin
ClearDebug;
Writeln(',,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,');
Writeln('/\Please Post Progress Reports & Any problems /\ ');
Writeln('/\ From Wherever you got the script /\ ');
Writeln('//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\ ');
Writeln('//\\Worked For: ' + TimeRunning + ' //\\');
Writeln('//\\Mixed: ' + IntToStr(PotionsMixed)+ ' Potions //\\');
Writeln('//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\ ');
Writeln('//\\ Thanks for Using my Script :D //\\ ');
Writeln('```````````````````````````````````````````````');
end;
//------------------------------Anti-Randoms!!------------------------------\\
procedure FindRandoms;
begin
FindTalk;
FindNormalRandoms;
FindLamp('Herblore');
end;
//------------------Attack Potion DTM & Empty Vial DTM-----------------------\\
procedure LoadDTMs;
begin
AttackPotion := DTMFromString('78DA63146660609064400156672F816946289' +
'F510C4870A3AA29AB68C0542385AAC6ECEC455435207B6451D5A8' +
'CF9C83AA06E41E795435FEE72FA3AAE1C534C7E71C163568FE724' +
'757C30324C418D00023AA1A3E20C14B408D00906023A006648F02' +
'AA0ABD0DDB50D5F0030945FCE600007A400FDC');
EmptyVial := DTMFromString('78DA63E4666060106540011919D9609A11CA6' +
'704A9614255131FAA83AA861F4888A0AA7171F1C454238DAA2638' +
'2412D32E3435393979A86AD831D5949494A1AA6101126204D480C' +
'C11445553515189AA861348F0A2AAA9ACAC4255C301245819D000' +
'23AA1A901902A82ABCBD0351D580DC2289AAC6CDDD1B530D9ABFE' +
'CED5D50D580DC2285DFEF0078731064');
end;
//-----------------------------Banking the Potions----------------------------\\
function Banking: Boolean;
begin
Wait (300 + random(160));
OpenBankQuiet('db');
if (PinScreen) then
InPin(YourPin);
if (FindDTM(AttackPotion, x, y, 71, 59, 455, 249))then
begin
Mouse(x, y, 4, 3, false)
ChooseOption('All');
end else
if (not(FindDTM(AttackPotion, x, y, 71, 59, 455, 249))) then
begin
Writeln('Potions NOT found. Make sure they are in the first 3 slots!');
Exit;
end;
CloseBank;
Wait(150 + random (278));
end;
//-----------------------------Mixing the Potions-----------------------------\\
procedure MixingPotions;
begin
if (FindColorTolerance(x, y, 13815094, 564, 209, 728, 464, 10 )) then
begin
if IsUpText('Attack Potion(3)') then
Mouse(x, y, 5, 5, False);
ChooseOption('Use');
if (FindColorTolerance(x, y, 13815094, 564, 209, 728, 464, 10 )) then
begin
Mouse (x, y , 5, 5, true);
begin
PotionsMixed := PotionsMixed + 27;
PotionsMixed2 := PotionsMixed2 + 27;
ReportVars[0] := ReportVars[0] + 27;
LoadsMixed:=LoadsMixed + 1;
LoadsMixed2 := LoadsMixed2 +1;
ReportVars[1] := ReportVars[1] + 1;
SendSRLReport;
end;
end;
end;
end;
//-------------------------------->BankThisShit<------------------------------\\
procedure BankThisShit;
begin
Mouse(692, 364, 724, 397, false);
if IsUpText('(4)') then
OpenBankQuiet('db');
if (FindColorTolerance(x, y, 13815094, 564, 209, 728, 464, 10 )) then
begin
Mouse (x, y , 5, 5, false);
ChooseOption('All')
end;
if (FindColorTolerance(x, y, 6512479, 564, 209, 728, 464, 10)) then
begin
Mouse(x, y, 4, 3, false)
ChooseOption('All');
end;
CloseBank;
Banking;
end;
//----------------------------->>>Main Loop<<<--------------------------------\\
procedure SetupScript;
begin
SRLId := YourSRLId;
SRLPassword:= YourSRLPassword;
if (Loggedin) then Logout;
SetupSRL;
ScriptID:= '700';
Signature;
DeclarePlayers;
LoadDTMs;
LoginPlayer;
end;
begin
SetupScript;
repeat
Banking;
MixingPotions;
BankThisShit;
if (PotionsMixed=Loads) then
begin
NextPlayer(True);
PotionsMixed2 := 0;
Writeln('Players Switched successfully')
end;
until (false)
TofProggy;
SRLRandomsReport;
end.
Jus' Lurkin'
Instead of the mixer, try making a decanter. It's faster and easier. Easily 1.8m + an hour legit to.
Also, to keep this thread going, I'll post one of my more recent ones:
I was working on my duel script, and couldn't figure out why one of the features wasn't working properly. Turns out I forgot a "Not". -.-.
What is a Decanter?
Jus' Lurkin'
It decants potions at the ge herby dude. Basically he turns the 3's into 4's, and it's much faster.
Hmm. Sounds like a good idea, and pretty easy at that too.
Might give it a go![]()
Jus' Lurkin'
There are currently 1 users browsing this thread. (0 members and 1 guests)