SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
No

Other Communitys
No

How Long have You Played Runescape
About 2 and a half years.

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

I have started the "hacking career" about a year ago, first with autos, then found SCAR, I told my friend about it and then we started hacking. I never would have thought about making my own script, and then I looked and found after reading tutorials that it became easier after awhile, then I started fooling around, and soon enough, I asked for [-jesus-]'s help and found that it was possible to make a script. I had some help with [-Jesus-] and Rune Killer. I am in 7th grade, and am 13 years old. :)

Tbh, I don't care if you decline me, because if you do, then I'll just try to work harder on my scripting, and gain more of scripting knowledge. :)
I was just trying it out :P

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

{========================This is my first script============================   ]
[                        Twistedvip50 & [-Jesus-]                              ]
[                                                                              ]
[                         Port Sarim Willower                                  ]
[ What does it do?:                                                            ]
[ It starts at DRAYNOR BANK and goes from there to port sarim to cut           ]
[ williows. Why not below Draynor? Maybe because there is the stupid wizard    ]
[ there and it could possibly kill you . We don't want that happening now      ]
[ now do we?                                                                   ]
[                                                                              ]
[ POST PROGRESS REPORTS OR I WILL DELETE THE SCRIPT!!!                         ]
[                           CREDITS GO TO:                                     ]
[                  Me, and [-Jesus-] for making the script.                    ]
[                    Rune Killer, some of his procedures.                      ]
[=================================SETUP======================================  ]
[ 1. USE RuneScape with Low Detail, VERY Bright.                               ]
[ 2. Set your Screen to 32 bit TRUE color.                                     ]
[ 3. Set Playernames and Passwords.                                            ]
[ 4. Drag CROSSHAIR on RuneScape client.                                       ]
[ 5. Make sure to start with a axe in your first inventory slot.               ]
[============================================================================  }

Program PORTSARIMWILLOWER;
{.include SRL/SRL.Scar}
{.include SRL/SRL/Skill/Woodcutting.Scar}

Const
Version = '1.00';
YourSRLId = 'SRLid';
YourSRLPassword = 'SRLpassword';


Var
WillowLog, Willow, TotalWillows, Banked, x, y: Integer;

Procedure DeclarePlayers;
begin
HowManyPlayers:= 2;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:= 0;

Players[0].Name := 'Username'; //UserName
Players[0].Pass := 'Password'; //Password
Players[0].Nick := 'ser'; //2-4 letters of username
Players[0].Integers[1] := 100; //Number of loads before switching
Players[0].Active := True; //Active

Players[1].Name := 'Username'; //UserName
Players[1].Pass := 'Password'; //Password
Players[1].Nick := 'ser'; //2-4 letters of username
Players[1].Integers[1] := 100; //Number of loads before switching
Players[1].Active := True; //Active

Writeln('Using '+IntToStr(HowManyPlayers)+' Players');
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;

Procedure LoadDTMS;
begin
WillowLog := DTMFromString('78DA6314666060E067400121DEB2609A11CA6' +
       '704715919D00023AA1A0E20C149841A3E026A5880842801353C40' +
       '429A801A31202149408D3C901027A0469108F728010901026A406' +
       '1C843408D20906027A006E41636026A0488081F2E2021815F0D00' +
       'F1CB030A');

end;

function CountItemDTM(DTM: Integer): Integer;
var
i, x, y: Integer;
TB: Tbox;
begin
if not LoggedIn then
Exit;
GameTab(4);
for i := 1 to 28 do
begin
TB := InvBox(i);
if ExistsItem(i) then
if (FindDTM(DTM, x, y, TB.x1, TB.y1, TB.x2, TB.y2)) then
begin
Inc(Result);
end;
end;
end;


Procedure LoggingIn;
begin
if (not(LoggedIn)) then
LoginPlayer;
end;

procedure Chats;
begin
if (not(LoggedIn)) then
Exit;
SetChat('on', 1);
SetChat('off', 2);
SetChat('off', 3);
SetChat('off', 4);
end;

procedure Starter;
begin
writeln('Thanks for using Port Sarim''s Willower!');
writeln('If you find any bugs/errors FROM THE SCRIPT, report to me');
Wait(100 +random(50));
Writeln('This script was made by: Twistedvip50, and [-Jesus-].');
Writeln('Also credits go to Rune Killer for some of the procedures.');
Writeln('HOPE YOU ENJOY!');
end;


function FindFastRandoms: Boolean;
var
i: Integer;
begin
for i:=1 to 11 do
begin
case I of
1: If FindDead then
Result := True;
2: If FindMod then
Result := True;
3: If FindMime then
Result := True;
4: If FindMaze then
Result := True;
5: If FindQuiz then
Result := True;
6: If FindDemon then
Result := True;
7: begin
if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
end;
8: begin
if InBlack then
begin
Result := True;
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
end;
end;
9: RC;
10: Respond;
11: ClickToContinue;
end;
wait(1);
end;
end;

procedure FindRandoms;
begin
FindTalk;
FindFastRandoms;
FindNormalRandoms;
FindLamp('Woodcutting');
SolvePinball;
FindEnt(x, y, true);
if (FindFight) then
begin
MakeCompass('N');
RunTo('N', True);
Wait(7000 +Random(3000));
RunBack;
end;
end;

procedure AntiBan;
begin
if (not(LoggedIn)) then
Exit;
case Random(5) of

0: RandomMovement;
1: HoverSkill('Woodcutting', False);
1: RandomRClick;
2: BoredHuman;
3: PickUpMouse;
4: AlmostLogout;
5: begin
GameTab(1 +Random(12));
wait(2000 +Random(1000));
GameTab(4);
end;
end;
end;

procedure EntFinder; // Thanks to YoHoJo. Modded by Bobbohobbo
var
EX, EY: integer;
FX, FY: integer;
SafeEntWait: LongInt;
begin
if (not (LoggedIn)) then
Exit;
begin
Status('Checking For Ent')
if
(FindObjCustom(EX, EY, ['Willow'], [4690821], 5)) then
begin
MMouse(EX, EY, 0, 0)
if FindColorTolerance(FX, FY, 55769, 85, 15, 115, 15, 20) then
begin
Writeln('Ent Found');
MouseFindFlag(645, 83, 2, 2);
MarkTime(SafeEntWait)
repeat
FTWait(5)
FindNormalRandoms;
if not (LoggedIn) then
NextPlayer(False);
until TimeFromMark(SafeEntWait) > 29000 + Random(10000)
EntsAvoided := EntsAvoided +1;
ReportVars[1]:= ReportVars[1] +1;
end;
end;
end;
end;


procedure Counting;
begin
if not LoggedIn then
Exit;
Willow:= CountItemDTM(WillowLog);
Writeln('Count: ' +IntToStr(Willow));
end;

procedure FindAndChop;
var CuttingTime : integer;
begin
MarkTime(CuttingTime);
repeat
if (not(LoggedIn)) then
Exit;
MakeCompass('N');
HighestAngle;
if (FindObj(x, y, 'illow', 1593157, 8)) then;
begin
MMouse(x, y, 4, 4);
EntFinder;
FindEnt(x, y, True);
if (IsUpText('illow')) then
begin
GetMousePos(x, y);
Mouse(x, y, 1, 1, true);
Wait(4000 +Random(3000));
FindRandoms;
end;
end;
until (InvFull) or (TimeFromMark(CuttingTime) > 600000+random(60000));
TotalWillows := TotalWillows +27;
ReportVars[0]:= ReportVars[0] +27;
Writeln('Chopped a full load of willows, now heading for the bank');
end;


procedure WillowsWalk;//Thanks [-JESUS-]!
begin
if (Not(LoggedIn)) then Exit;
Makecompass('N');
HighestAngle;
RoadColor := FindRoadColor;
RadialRoadWalk(RoadColor, 289, 260, 49, 2, 2);
FFlag(0);
SymbolAccuracy := 0.4;
If (FindSymbol(x, y,'Quest')) then;
begin;
Mouse(x, y, 5, 5, true);
FFlag(1);
Mouse(577, 92, 10, 4, true);
Wait(25000 +random(100));
FFlag(1);
end;
end;


procedure BankWalk;
begin
if (Not(LoggedIn)) then Exit;
Makecompass('W');
RadialRoadWalk(RoadColor, 180, 198, 70, 1, 1); or RadialWalkEx( 1666665, 80, 187, 215, 52, 2, 2);
Wait(25000 +random(1500));
FFlag(1);
Makecompass('N');
SymbolAccuracy := 0.4;
If (FindSymbol(x, y,'Quest')) then;
begin;
Mouse(x, y, 5, 5, true);
FFlag(0);
RadialRoadWalk(RoadColor, 125, 155, 48, 2, 2);
FFlag(0);
SymbolAccuracy := 0.8;
If (FindSymbol(x, y, 'bank')) then;
Mouse(x,y, 3, 3, true);
FFlag(0);
end;
end;

function BankIt: Boolean;
begin
if (InvFull) then
begin
MakeCompass('E');
OpenBankFast('db');
Flag;
wait(500 + random(500));
FixBank;
Deposit(2,28,2);
end;
CloseBank;
MakeCompass('N');
begin
Banked := Banked +1;
end;
end;


procedure Proggie;
begin
Writeln('=======================================') ;
Writeln(' PS Willower ');
Writeln(' Version: '+Version);
Writeln('=======================================') ;
Wait(500);
Writeln('Worked For : '+ (TimeRunning));
Writeln('Chopped: ' + IntToStr(TotalWillows) + ' Logs');
Writeln('Bank Trips: ' + IntToStr(Banked) + ' Trips Made');
Writeln('Advoided: ' + IntToStr(EntsAvoided) + ' Number Of Ents');
Writeln('---------------------------------------');
end;

begin
SetUpSRL;
SetupWoodcutting;
ScriptID := '316';
SRLId := YourSRLID;
SRLPassword := YourSRLPassword;
Starter;
Wait(2500 +random(500));
ActivateClient;
DeclarePlayers;
LoadDTMS;
if Loggedin then Logout;
LoggingIn;
HighestAngle;
Chats;
repeat
WillowsWalk;
repeat
FindAndChop;
until (InvFull);
AntiBan;
BankWalk;
BankIt;
SRLRandomsReport;
Proggie;
until Players[CurrentPlayer].Integers[1] = Banked
repeat NextPlayer(True);
until (false);

end.

Please note that [-jesus-] did help me with some things, and I got some of Rune Killer's procedures..

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

1. use standaards plox
2. you made this gegeter with [-jezus-]

so for that 2 points it's a no. sorry.

gl scripting/botting

Quite a number of error found and what if the cutting process not full or something will it bank?

Walking not 100% accurate using symbol what if you can't find the symbol or the symbol have been fully covered?

Script beautifulness still count as a point as mention by MasterKill

No, sorry.

Script beautifulness still count as a point as mention by MasterKill

You mean standards..

Advance is beauty.

However, standards or no I can see that it is not enough for SRL Membership in my opinion.

Requirements__________________

• DTMs / DDTMs
• Decent complex working script.
• FailSafes
• MultiPlayer
• Break out of potential endless loops
• Standards! Required to get people read your script.
• RadialWalk / DDTM Walking

until Players[CurrentPlayer].Integers[1] = Banked
repeat NextPlayer(True);
until (false);

Why the last repeat?

yea i'd say failsafes are your biggest downfall…

i think this is a good attempt though and you have alot of potential, so hit up tut island some more and apply with a kickass script in one month

good luck ;)

Oops sorry i'm trying to explain beauty = standard. Will keep in mind next time thanks n3ss3s

sorry its a no from me 2. but the basic looks good. keep on working :)

Sorry, same, I also have to vote no, keep on learning and you'll get their;)

-Tsn.

i know you can do it! dont give up!;)
but i have to vote, no

Nice copying there too.

procedure Counting;
begin
  if not LoggedIn then Exit;
  aoaklogs:=CountItemDTMA(oaklogdtm);
  writeln('Count: ' +IntToStr(aoaklogs));
end;

Maybe you should learn from someone else this time around?. Could have at least changed the name of it lol.

And after that, you still dont use the procedure?

TotalWillows := TotalWillows +27;
ReportVars[0]:= ReportVars[0] +27;

No from me, looks like you have snipped bits from alot of places and stuck them in without understanding the proper usage of them.

@lalaji: because the script is multiplayer.

0 Yes
11 No
Youv gotten enough feedback.
This was a good try, just read all of the responses you got and try again later after making all the changes necessary.
Good Luck, Hope To See You Try Again!