Torrent of Flame
2008-02-29 13:37:45
<!– BEGIN TEMPLATE: formanswers –>
Torrent of Flame - SRL Member Application Form
Torrent of Flame
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
Programming Knowledge
Little bit of Java
Other Communitys
DutchDesignz.com (Now shut down), DeviantArt.
How Long have You Played Runescape
About 3 Years.
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Im learning alot about Scar Scripting now, I learnt how to use and make DTM's and how to use RadialWalk properly.
I wouldnt say Im hugely experienced because I still have to refer to tutorials a few times, but mostly I use my own knowledge of previous not working scripts, I wrote a few that compiled but didnt run, and now I have a running WoodCutter (For example I made another WoodCutter, but It didnt run as it couldnt "Draw on the canvas" and I fixed that, and put it into my new script. Im now working on a Chicken Killer, and also started a Goblin Killer and an AutoMiner.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
——————————————————
<!– END TEMPLATE: formanswers –>
Torrent of Flame - SRL Member Application Form
Torrent of Flame
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
Programming Knowledge
Little bit of Java
Other Communitys
DutchDesignz.com (Now shut down), DeviantArt.
How Long have You Played Runescape
About 3 Years.
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Im learning alot about Scar Scripting now, I learnt how to use and make DTM's and how to use RadialWalk properly.
I wouldnt say Im hugely experienced because I still have to refer to tutorials a few times, but mostly I use my own knowledge of previous not working scripts, I wrote a few that compiled but didnt run, and now I have a running WoodCutter (For example I made another WoodCutter, but It didnt run as it couldnt "Draw on the canvas" and I fixed that, and put it into my new script. Im now working on a Chicken Killer, and also started a Goblin Killer and an AutoMiner.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
{//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//
| Draynor Willow Crusher & Banker |
| By Torrent of Flame |
| Scar 3.14 SRL 4.0 Rev 14 |
| Version 1.5 |
| Chops Willows at Draynor and Banks them |
| Start from Draynor Bank |
| Start Logged Out |
| |
//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\
| 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 |
| Fixed Banking |
//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\
|Version 1.4 Includes |
| SRL Stats |
| Multi-Player |
//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\}
Program WillowCrusher;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/WoodCutting.scar}
const
//-->Loads<--\\
Loads = 5; //How many loads per player before switching
//--->Willows Colour<---\\
WillowLogColour = 0; //Colour pick from the Willow Log
//--->SRL ID<---\\
YourSRLId = '';
YourSRLPassword ='';
//--->Pin - Make same for ALL chars. If no Pin, leave blank<---\\
YourPin = '1993';
{-------------------------------------------------------
Player Setup
--------------------------------------------------------}
procedure DeclarePlayers;
begin
HowManyPlayers := 2; //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 := True;
{ 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: 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; //By Yohojo.
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 (PinScreen) then
InPin(YourPin);
if(FindColorSpiral(x, y, WillowLogColour, 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;
ReportVars[1] := ReportVars[1] + 1;
SendSRLReport;
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
SRLId := YourSRLId;
SRLPassword:= YourSRLPassword;
if (Loggedin) then Logout;
SetupSRL;
ScriptID:= '687';
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.
——————————————————
<!– END TEMPLATE: formanswers –>