SRL Archive - Archive

realrocker00 - SRL Member Application Form


realrocker00

2008-11-01 21:09:26

<!– BEGIN TEMPLATE: formanswers –>
realrocker00 - SRL Member Application Form
realrocker00

What is the meaning to life?


Where you Referred to SRL? If yes, by whom?
no


Programming Knowledge
scar… took forever!

Other Communitys
scrunerape

How Long have You Played Runescape
almost 6 years..

Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.

Well, i have been leaching for a long time and in the past month have decided to give back, i have had my neighbor help me on this script so please don't give me all the credit, he has thought me a lot and has been reading all of the tuts on scar. please accept me into members and I will bring more!

——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted

program OMGPWNWILLOWS;
{.include SRL/SRL/misc/Smart.scar}
{.include SRL/SRL.scar}
{.include SRL/SRL/skill/Woodcutting.scar}

const

{=====================================================}
{ OMG WILLOW PWNER }
{=====================================================}
{ Script By Realrocker00. }
{ }
{ 1. Put Players In Draynor Bank. }
{ 2. Setup Lines Below. }
{ 3. Click Run. }
{ }
{ }
{=====================================================}
{ Setup Here }
{=====================================================}
RunDirection= 'N'; //Run Direction If Attacked.
RSWorld= 16; //Runescape World You Want NOTE. Because Of Update It Might Not Work.
FreeWorld= True; //Runescape Free World? True If Yes.
YourSRLId= ''; //Your SRL Stats ID.
YourSRLPassword= ''; //Your SRL Stats Password.
{=====================================================}
{ Declare Your Accounts. }
{=====================================================}

procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;

Players[0].Name := 'omg i own'; //Username.
Players[0].Pass := 'pwnd'; //Password.
Players[0].Nick := 'omg'; //3-4 Letters From Your Username. Can't Be The First Letter.
Players[0].Strings[0] := ''; //Bank Pin Number Keep '' If You Dont Have One.
Players[0].Booleans[0] := True; //Is Axe Wielded? True If Yes. If False Then It Must Be In The First Slot Of Inventory.
Players[0].Integers[0] := 25; //Loads To Do Each Player.
Players[0].Active := True;

end;

{=====================================================}
{ Edit If You Have Problems. }
{=====================================================}

function StoneDDTM: Integer;
var
dtmMainPoint: TDTMPointDef;
dtmSubPoints: Array [0..5] of TDTMPointDef;
TempTDTM: TDTM;
begin
dtmMainPoint.x := 965;
dtmMainPoint.y := 370;
dtmMainPoint.AreaSize := 0;
dtmMainPoint.AreaShape := 0;
dtmMainPoint.Color := 4671579;
dtmMainPoint.Tolerance := 110; //Edit Tolerance Or Area If It Does Not Find Stone.

dtmSubPoints[0].x := 965;
dtmSubPoints[0].y := 370;
dtmSubPoints[0].AreaSize := 0;
dtmSubPoints[0].AreaShape := 0;
dtmSubPoints[0].Color := 4671579;
dtmSubPoints[0].Tolerance := 110; //Edit Tolerance Or Area If It Does Not Find Stone.

dtmSubPoints[1].x := 947;
dtmSubPoints[1].y := 332;
dtmSubPoints[1].AreaSize := 0;
dtmSubPoints[1].AreaShape := 0;
dtmSubPoints[1].Color := 195836;
dtmSubPoints[1].Tolerance := 110; //Edit Tolerance Or Area If It Does Not Find Stone.

dtmSubPoints[2].x := 955;
dtmSubPoints[2].y := 328;
dtmSubPoints[2].AreaSize := 0;
dtmSubPoints[2].AreaShape := 0;
dtmSubPoints[2].Color := 195836;
dtmSubPoints[2].Tolerance := 110; //Edit Tolerance Or Area If It Does Not Find Stone.

dtmSubPoints[3].x := 956;
dtmSubPoints[3].y := 319;
dtmSubPoints[3].AreaSize := 0;
dtmSubPoints[3].AreaShape := 0;
dtmSubPoints[3].Color := 195836;
dtmSubPoints[3].Tolerance := 110; //Edit Tolerance Or Area If It Does Not Find Stone.

dtmSubPoints[4].x := 961;
dtmSubPoints[4].y := 286;
dtmSubPoints[4].AreaSize := 0;
dtmSubPoints[4].AreaShape := 0;
dtmSubPoints[4].Color := 794717;
dtmSubPoints[4].Tolerance := 110; //Edit Tolerance Or Area If It Does Not Find Stone.

dtmSubPoints[5].x := 955;
dtmSubPoints[5].y := 327;
dtmSubPoints[5].AreaSize := 0;
dtmSubPoints[5].AreaShape := 0;
dtmSubPoints[5].Color := 195836;
dtmSubPoints[5].Tolerance := 110; //Edit Tolerance Or Area If It Does Not Find Stone.

TempTDTM.MainPoint := dtmMainPoint;
TempTDTM.SubPoints := dtmSubPoints;
Result := AddDTM(TempTDTM);
end;

{=======================================================}
{ Script Start. }
{=======================================================}

var
BrokenDTM, NormalDTM, WillowDTM, BankDTM: Integer;

procedure SetupDTMS;
begin
BrokenDTM := DTMFromString('78DA63E4626060E06740019D19420C92409A1' +
'188FF0301232F90C1CC800618E16AC03C5620214E400D0FA65D30' +
'59B81A905DDC04CC110512BC04D488010916FC6A000035065E');

NormalDTM := DTMFromString('78DA639CC0CCC070939101193427093048026' +
'990E87F20609C07547301550D4816A606CC03A9B94C40CD1CA09A' +
'1B04D44C07AAB94240CD64A09AEB04D4F403D53C24A0A60BA8E61' +
'90135BD40357708A8994084DFA700D59CC3AF060021F015F0');

WillowDTM := DTMFromString('78DA63D467616088666440069E4E520C92401' +
'A24FA1F08184D816A0250D58064616AC03C1BA09A78026A2C806A' +
'9209A8D100AAC920A04619A82684801A39A09A04026A74816A82F' +
'1AB0100EBF509F3');

BankDTM := DTMFromString('78DA636C67626008644001FFFFFD63F80FA41' +
'9416C2060AC01AAF182C8B140D5FCF9C304A619A17CB09A204C35' +
'22E86AC2F09B0300F8811153');
end;

procedure Logo;
begin
ClearDebug;
WriteLn('POWN THE WILLOWS!');
end;

procedure SetupSmart;
begin
Status('Loading SMART...');
WriteLn('Loading SMART...');
Wait(1000);
LoadSMART(RSWorld, True, FreeWorld);
Wait(100);
SetTargetDC(SmartGetDC);
end;

{------------------------------------------------------------------------------]
function IsUpTextColor(Text: string, Color: Integer): Boolean;
by: ZephyrsFury Edited By: Quickmarch
Description: Checks whether the 'Text' is a color at the top-left corner.
{------------------------------------------------------------------------------}

function IsUpTextColor(s: string; Color: Integer): Boolean;
var
CTS: Integer;
begin
Result := False;
CTS := GetColorToleranceSpeed;
ColorToleranceSpeed(1);
if (IsUpText(s)) then
begin
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.03, 0.75);
Result := (CountColorTolerance(Color, 9, 10, 124, 23, 4) > 10);
SetColorSpeed2Modifiers(0.2, 0.2);
end;
ColorToleranceSpeed(CTS);
end;

var
RanAway, Ents: Integer;

procedure AntiRandoms;
begin
FindNormalRandoms;
FindLamp('woodcutting');
if IsUpTextColor('illow', 118478) then
begin
Ents := Ents + 1;
ReportVars[0] := ReportVars[0] + 1;
WriteLn('Found Ent.');
Status('Avoiding Ent...');
Mouse(MMCX - 5, MMCY, 0, 0, True);
if not(FlagPresent) then
begin
Mouse(MMCX + 5, MMCY, 0, 0, True);
end;
SleepAndMoveMouse(30000+random(5000));
Exit;
end;
if (FindFight) then
begin
Status('Running Away...');
WriteLn('Found A Fight.');
RunAway(RunDirection,True,1,20000);
RanAway := RanAway + 1;
ReportVars[1] := ReportVars[1] + 1;
end;
end;

var
x, y, rx, ry, xp: Integer;

procedure SetupScript;
begin
if (not(LoggedIn)) then Exit;
Status('Setting Up Script...');
WriteLn('Setting Up Script...');
MakeCompass('N');
SetAngle(True);
FindAxe;
xp := GetXp('woodcutting');
if (InvFull) then
begin
Status('Banking Stuff.');
WriteLn('Banking Stuff.');
MakeCompass('N');
OpenBank('db', False, False);
Wait(500);
FixBank;
if (Players[CurrentPlayer].Booleans[0] = True) then
Deposit(1, 28, True);
if (Players[CurrentPlayer].Booleans[0] = False) then
Deposit(2, 28, True);
CloseBank;
end;
SetRun(True);
ChatsOff;
AntiRandoms;
end;

procedure AntiBan;
begin
case random(20) of
0:begin
HoverSkill('random', False);
AntiRandoms;
Exit;
end;
1:begin
Retaliate(False);
AntiRandoms;
Exit;
end;
10:begin
Retaliate(True);
AntiRandoms;
Exit;
end;
13:begin
GameTab(random(12)+1);
AntiRandoms;
Exit;
end;
8:begin
RandomRClick;
AntiRandoms;
Exit;
end;
10:begin
PickUpMouse;
AntiRandoms;
Exit;
end;
17:begin
HoverSkill('woodcutting', False);
AntiRandoms;
Exit;
end;
end;
end;

procedure WalkToBank;
begin
if (not(LoggedIn)) then Exit;
Status('Searching For Bank...');
MakeCompass('N');
SetAngle(True);
if DTMRotated(StoneDDTM, rx, ry, MMX1, MMY1, MMX2, MMY2) then
begin
Mouse(rx, ry, 4, 4, True);
AntiRandoms;
FFlag(0);
if DTMRotated(BankDTM, rx, ry, MMX1, MMY1, MMX2, MMY2) then
begin
Status('Found Bank.');
WriteLn('Found Bank.');
Mouse(rx, ry, 5, 5, True);
AntiRandoms;
Wait(1000+random(1000));
FFlag(0);
Exit;
end else
begin
Status('Searching For Bank...');
MakeCompass('N');
SetAngle(True);
if FindSymbol(rx, ry, 'bank') then
begin
Status('Found Bank.');
WriteLn('Found Bank.');
Mouse(rx, ry, 5, 5, True);
AntiRandoms;
FFlag(0);
Exit;
end else
begin
Status('Searching For Bank...');
MakeCompass('N');
SetAngle(True);
if FindColorTolerance(rx, ry, 11908545, MMX1, MMY1, MMX2, MMY2, 3) then
begin
Status('Found Bank.');
WriteLn('Found Bank.');
Mouse(rx, ry, 5, 5, True);
AntiRandoms;
FFlag(0);
Exit;
end;
WriteLn('Failed To Find The Bank.');
Status('Error...');
Logout;
TerminateScript;
end;
end;
end;
end;

procedure WalkToWillows;
begin
if (not(LoggedIn)) then Exit;
MakeCompass('N');
SetAngle(True);
Status('Finding Stone...');
if DTMRotated(StoneDDTM, x, y, MMX1, MMY1, MMX2, MMY2) then
begin
Status('Found Stone.');
WriteLn('Found Stone.');
Mouse(x, y, 2, 2, True);
AntiRandoms;
FFlag(0);
SetRun(True);
Exit;
end else
Status('Did Not Find Stone.');
WriteLn('Did Not Find Stone.');
begin
Status('Finding Fishing Symbol.');
MakeCompass('N');
SetAngle(True);
SymbolAccuracy := 0.5;
if FindSymbol(x, y,'fish') then
begin
Status('Found Fishing Symbol.');
WriteLn('Found Fishing Symbol.');
Mouse(x, y, 2, 2, True);
AntiRandoms;
FFlag(0);
SetRun(True);
Exit;
end else
WriteLn('Did Not Find Fishing Symbol.');
Status('Did Not Find Fishing Symbol.');
begin
WriteLn('Using RadialWalk...');
Status('Using RadialWalk...');
RadialWalk(FindWaterColor, 230, 220, 65, 0, 0);
AntiRandoms;
FFlag(0);
Exit;
end;
Status('Error...');
WriteLn('Did Not Find Willows Area.');
Logout;
TerminateScript;
end;
end;

var
Axe, i, Tries: Integer;

function FixAxe(Wield: Boolean): Boolean;
begin
if (FindDTM(BrokenDTM, rx, ry, MIX1, MIY1, MIX2, MIY2)) or (FindDTM(NormalDTM, rx, ry, MIX1, MIY1, MIX2, MIY2) = False) then
begin
case Random(10) of
0: TypeSend('omg i hate this ax!');
1: TypeSend('omfg!@');
2: TypeSend('im going to cut myself');
3: TypeSend('my ax always brakes!');
4: TypeSend('glow1:my life stinks!');
end;
WriteLn('Found Broken Axe.');
WalkToBank;
AntiRandoms;
FFlag(0);
OpenBank('db', False, False);
Deposit(1, 28, True);
if (FindDTM(NormalDTM, rx, ry, MSX1, MSY1, MSX2, MSY2)) then
begin
Result := True;
Mouse(rx, ry, 3, 3, True);
CloseBank;
AntiRandoms;
if (Wield) then
begin
if (FindDTM(NormalDTM, rx, ry, MIX1, MIY1, MIX2, MIY2)) then
begin
Status('Wielding Axe...');
WriteLn('Wielding Axe...');
Mouse(rx, ry, 4, 4, True);
if (FindBlackChatMessage('attack')) then
begin
WriteLn('You Do Not Have The Right Level To Wield That Axe.');
Tries := Tries + 1;
FixAxe(True);
ReportVars[2] := ReportVars[2] + 1;
if (Tries >= 3) then
begin
WriteLn('Could Not Find An Axe.');
Logout;
TerminateScript;
end;
end;
if not(Wield) then
Axe := Axe + 1;
ReportVars[2] := ReportVars[2] + 1;
Exit;
end else
WriteLn('Couldnt Find The Axe DTM.');
MouseItem(1, True);
end;
WalkToWillows;
end;
end;
end;

function FindWillows: Boolean;
var
x, y, rx, ry: Integer;
TPA: TPointArray;
Time: Integer;
ATPA: T2DPointArray;

begin
if (not(LoggedIn)) then Exit;
Status('Finding Willows...');
AntiRandoms;
MarkTime(Time);
x := MSCX;
y := MSCY;
FindColorsSpiralTolerance(x, y, TPA, 8693935, MSX1, MSY1, MSX2, MSY2, 3);
if Length(TPA) = 0 then FindColorsSpiralTolerance(x, y, TPA, 3231044, MSX1, MSY1, MSX2, MSY2, 3);
ATPA := TPAtoATPAEx(TPA, 50, 50);
for i := 0 to High(ATPA)do
begin
AntiRandoms;
if MiddleTPAEx(ATPA[i], rx, ry) then
MMouse(rx, ry, 4, 4);
if (IsUpTextColor('illow', 13948162)) then
Wait(100+random(100));
AntiRandoms;
begin
GetMousePos(rx, ry);
Mouse(rx, ry, 0, 0, False);
AntiRandoms;
Wait(100+random(200));
Result := ChooseOption('hop');
AntiRandoms;
if Result then
begin
repeat
Status('Chopping Willows...');
AntiRandoms;
Wait(5000+random(3000));
AntiRandoms;
AntiBan;
until(IsUpTextColor('illow', 13948162) = False) or FindBlackChatMessage('an axe');
if (FindBlackChatMessage('an axe')) then
begin
if (Players[CurrentPlayer].Booleans[0] = True) then
begin
GameTab(4);
if (FindDTM(WillowDTM, rx, ry, MIX1, MIY1, MIX2, MIY2)) then
begin
Status('Fixing Axe...');
Mouse(rx, ry, 5, 5, False);
Wait(100);
ChooseOption('rop');
end;
GameTab(5);
TakeOff(5);
GameTab(4);
AntiRandoms;
FixAxe(True);
AntiRandoms;
if (FindBlackChatMessage('attack')) then
begin
WriteLn('You Do Not Have The Right Level To Wield That Axe.');
Tries := Tries + 1;
FixAxe(True);
ReportVars[2] := ReportVars[2] + 1;
if Tries= 3 then
begin
WriteLn('Could Not Find a Good Axe.');
Logout;
TerminateScript;
end;
end;
end;
if (Players[CurrentPlayer].Booleans[0] = False) then
begin
GameTab(4);
if (FindDTM(WillowDTM, rx, ry, MIX1, MIY1, MIX2, MIY2)) then
begin
Mouse(rx, ry, 5, 5, False);
Wait(100);
ChooseOption('rop');
end;
FixAxe(False);
AntiRandoms;
Exit;
end;
if (TimeFromMark(Time) > 30000) then Exit;
Exit;
end;
if (TimeFromMark(Time) > 30000) then Exit;
Exit;
end;
Wait(350+random(350));
if (TimeFromMark(Time) > 30000) then Exit;
Exit;
end;
end;
end;

var
Loads, Lot2, xp2, xp3, xp4, Count, Lvl: Integer;

procedure MyOpenBank;
begin
if (not(LoggedIn)) then Exit;
Loads := Loads + 1;
ReportVars[3] := ReportVars[3] + 1;
MakeCompass('N');
SetAngle(True);
Count := Count + CountItemsIn('inv', 'dtm', WillowDTM, []);
ReportVars[4] := Count;
OpenBank('db', True, True);
if (Players[CurrentPlayer].Booleans[0] = True) then
begin
if (PinScreen) then
InPin(Players[CurrentPlayer].Strings[0]);
if (FindDTM(WillowDTM, rx, ry, MIX1, MIY1, MIX2, MIY2)) then
begin
Status('Depositing Willows...');
WriteLn('Depositing Willows...');
Mouse(rx, ry, 5, 5, False);
Wait(100);
ChooseOption('ll');
Wait(1000+random(500));
Deposit(1, 28, True);
end;
end;
if (Players[CurrentPlayer].Booleans[0] = False) then
begin
if (PinScreen) then
InPin(Players[CurrentPlayer].Strings[0]);
if (FindDTM(WillowDTM, rx, ry, MIX1, MIY1, MIX2, MIY2)) then
begin
Status('Depositing Willows...');
WriteLn('Depositing Willows...');
Mouse(rx, ry, 5, 5, False);
Wait(100);
ChooseOption('ll');
Wait(1000+random(500));
Deposit(2, 28, True);
end;
end;
CloseBank;
xp2 := GetXp('woodcutting');
xp3 := xp2 - xp;
xp4 := XpTillNextLevel('woodcutting');
ReportVars[5] := xp2 - xp;
ClearDebug;
WriteLn('|=======================================================|');
WriteLn('| OMG WILLOW PWNER Report |');
WriteLn('|=======================================================|');
WriteLn(' WoodCutting Xp Gained: '+ IntToStr(xp3) +'.');
WriteLn(' Xp Until Next Lvl: '+ IntToStr(xp4) +'.');
WriteLn(' Willows Cut: '+ IntToStr(Count) +'.');
WriteLn(' Loads Done: '+ IntToStr(Loads) +'.');
WriteLn(' Time Running: '+ TimeRunning +'.');
WriteLn(' Ran Away: '+ IntToStr(RanAway) +'.');
WriteLn(' Ents Avoided: '+ IntToStr(Ents) +'.');
WriteLn(' Broken Axes: '+ IntToStr(Axe) +'.');
WriteLn('|=======================================================|');
WriteLn('| Thank You For Using realrocker00s willow pwner Script |');
WriteLn('|=======================================================|');
Lot2 := Lot2 + 1;
if Lot2=(Players[CurrentPlayer].Integers[0]) then
begin
WriteLn('Done All Loads For That Player.');
if (HowManyPlayers= 1) then
begin
WriteLn('All Players Successfully Finished.');
Logout;
TerminateScript;
end else
NextPlayer(False);
Lot2 := 0;
end;
MakeCompass('N');
SetRun(True);
SRLRandomsReport;
end;

procedure ScriptTerminate;
begin
ClearDebug;
WriteLn('|=======================================================|');
WriteLn('| OMG WILLOW PWNER Report |');
WriteLn('|=======================================================|');
WriteLn(' WoodCutting Xp Gained: '+ IntToStr(xp3) +'.');
WriteLn(' Xp Until Next Lvl: ' + IntToStr(xp4) +'.');
WriteLn(' Willows Cut: '+ IntToStr(Count) +'.');
WriteLn(' Loads Done: '+ IntToStr(Loads) +'.');
WriteLn(' Time Running: '+ TimeRunning +'.');
WriteLn(' Ran Away: '+ IntToStr(RanAway) +'.');
WriteLn(' Ents Avoided: '+ IntToStr(Ents) +'.');
WriteLn(' Broken Axes: '+ IntToStr(Axe) +'.');
WriteLn('|=======================================================|');
WriteLn('| Thank You For Using realrocker00s willow pwner Script |');
WriteLn('|=======================================================|');
WriteLn(' I OWN U (hope i get membs. |');
FreeDTM(StoneDDTM);
FreeDTM(WillowDTM);
FreeDTM(NormalDTM);
FreeDTM(BrokenDTM);
FreeDTM(BankDTM);
end;


procedure MainLoop;
begin
DeclarePlayers;
Loginplayer;
SetupScript;
repeat
if not Loggedin then Break;
WalkToWillows;
repeat
if not Loggedin then Break;
FindWillows;
until(InvFull);
if (InvFull) then
WriteLn('Inventory Full.');
WalkToBank;
MyOpenBank;
until(PlayersActive = 0);
end;

begin
ScriptID := '1061'; //DO NOT TOUCH!!!
Disguise('Willow OMG PWNER - Realrocker00');
Logo;
SRLId := YourSRLId;
SRLPassword := YourSRLPassword;
SetupDTMS;
SetupSRL;
SetupSmart;
MainLoop;
end.

{END thanks and please accept me!}

——————————————————
<!– END TEMPLATE: formanswers –>

TravisV10

2008-11-01 21:15:16

"Script By Quickmarch."

He should be banned.

realrocker00

2008-11-01 21:16:49

no, this is mine… ive been influenced by him and have made a simpler version that I can handle

The_Shermanator

2008-11-01 21:19:31

As it says in the app form - 95% YOURS and if its his and you edited it I bet this is about 70% yours. So….no, sorry.

Good luck next time :D

-Shermanator

noidea

2008-11-01 21:19:59

From: Shermanator
As it says in the app form - 95% YOURS and if its his and you edited it I bet this is about 70% yours. So….no, sorry.

Good luck next time :D

-Shermanator


I think less.

realrocker00

2008-11-01 21:20:26

k, thanks guys, ill start a new one, u can close this.

TravisV10

2008-11-01 21:30:58

" Script By Quickmarch. " Saying that usually means that the script is by quickmarch -.-

Its ridiculous to not get rid of that.

P1nky

2008-11-01 21:50:13

sorry no, agree ban?

it says it clearly

script by Quickmarch.
dude cmon…
dont edit scripts make them by scratch.

realrocker00

2008-11-01 21:56:03

WTF are you talking about?! this is my freaking script!

TravisV10

2008-11-01 22:12:13

From: realrocker00
sry, you are right, i deserve to be banned because I knew it had to be mine and not an edited script… im sorry srl community, i just wanted to be memb. i understand if you must ban me :(



Trying to get us on our soft side. DON'T FALL FOR IT! XD

EDIT: Never mind. Don't ban him. Maybe a temp ban but; its not that bad. We caught him anyway.

realrocker00

2008-11-01 22:52:41

From: TravisV10
Trying to get us on our soft side. DON'T FALL FOR IT! XD

EDIT: Never mind. Don't ban him. Maybe a temp ban but; its not that bad. We caught him anyway.


what do you mean you caught me? I took an idea from someone else but made a completely different script:confused: :confused: :confused:

tarajunky

2008-11-02 00:13:23

Closed.