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
Scar

Other Communitys
BFD, Sp0rk-eh

How Long have You Played Runescape
3 Years

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

I am 13, and have about 3 or so months ago, started to really like scripting. I am currently trying to make a Ape Atoll Monkey Killer(AAMK) and am trying to get the PS Willower to run 100%. I write scripts, and ideas during school, and am now a fan of scripting (as well as understanding).

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

[=================================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';
 MSpeed = 15;//Mouse Speed.


Var
 willowbmp, WillowLog, 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] := 1000; //Number of loads
Players[0].Active := True; //Active

Players[1].Name := 'Username'; //UserName
Players[1].Pass := 'Password'; //Password
Players[1].Nick := 'ser'; //Nickname
Players[1].Integers[1] := 1000;//Number of loads
Players[1].Active := True; //Active

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

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

  willowbmp := BitmapFromString(8, 8, 'beNqz4feygSJRF04Igovw6' +
       'bEBEVBENYgfiJQduOCCQATkQsQhiKC4ngYDBEEUAEUgtuhIMAAR3E' +
       'a47cjiyAhFHACOzRxW');
       
end;

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

procedure Chats;
begin
 LoggingIn;
 SetChat('on', 1);
 SetChat('off', 2);
 SetChat('off', 3);
 SetChat('off', 4);
end;

procedure Starter;
begin
 writeln('  ______         _      __           __      _       __________ ');
 writeln(' /_  __/      __(_)____/ /____  ____/ /   __(_)___  / ____/ __ \ ');
 writeln('  / / | | /| / / / ___/ __/ _ \/ __  / | / / / __ \/___ \/ / / / ');
 writeln(' / /  | |/ |/ / (__  ) /_/  __/ /_/ /| |/ / / /_/ /___/ / /_/ /  ');
 writeln('/_/   |__/|__/_/____/\__/\___/\__,_/ |___/_/ .___/_____/\____/   ');
 writeln('                                          /_/                    ');
 Wait(1500);
 writeln('    ____                 __           __                         ');
 writeln('   / __ \_________  ____/ /_  _______/ /______                   ');
 writeln('  / /_/ / ___/ __ \/ __  / / / / ___/ __/ ___/                   ');
 writeln(' / ____/ /  / /_/ / /_/ / /_/ / /__/ /_(__  )                    ');
 writeln('/_/   /_/   \____/\__,_/\__,_/\___/\__/____/                     ');
 Wait(1000 +random(3500));
end;

Procedure Randoms;
begin
 If (Not(Loggedin)) then
 Exit;
 Status('Finding Randoms...');
 FTWait(6);
 FindNormalRandoms;
 FindLamp('Woodcutting');
 FindTalk;
 if (FindFight) then
 begin
  MakeCompass('N');
  RunTo('N', True);
  Wait(7000 +Random(3000));
  RunBack;
 end;
end;

procedure AntiBan;
begin
 if (not(LoggedIn)) then
 Exit;
 Randoms;
 case Random(5) of
 0: RandomMovement;
 1: HoverSkill('Woodcutting', False);
 2: RandomRClick;
 3: SayCurrentLevels('woodcutting');
 4: PickUpMouse;
 5: begin
     SendKeys('Wc lvls?');
     SendKeysVB('{ENTER}', False);
    end;
 6: begin
     GameTab(1 +Random(12));
     wait(2000 +Random(1000));
     GameTab(4);
    end;
end;

function RandomRotate:Boolean; //Author: IP-Drowne
begin
  case random(4) of
      0: begin
           MakeCompass('N');
           Result:=True;
         end;
      1: begin
           MakeCompass('S');
           Result:=True;
         end;
      2: begin
           MakeCompass('E');
           Result:=True;
         end;
      3: begin
           MakeCompass('W');
           Result:=True;
         end;
  end;
end;

procedure EntFinder;
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');
    MakeCompass('N');
    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 FindAndChop;
var
 CuttingTime : integer;
begin
 MarkTime(CuttingTime);
  repeat
 if (not(LoggedIn)) then
 Exit;
 RandomRotate;
 Randoms;
 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));
   Randoms;
  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;
begin
 if (Not(LoggedIn)) then Exit;
 Makecompass('N');
 HighestAngle;
 Randoms;
 RoadColor := FindRoadColor;
 RadialRoadWalk(RoadColor, 285, 305, 53, 2, 2);
 FFlag(0);
 SymbolAccuracy := 0.4;
 If (FindSymbol(x, y,'Quest')) then;
 begin
  Mouse(x, y, 5, 5, true);
  FFlag(1);
  if (FindBitmap(willowbmp, x, y)) then
  begin
   Mouse(x, y, 5, 5, true);
{Mouse(581,85, 5, 3, true);}
   Wait2(25000, true);
   FFlag(1);
  end else
   Mouse(583, 103, 4, 4, true);
   Wait2(20000, true);
   FFlag(1);
 end;
end;

procedure BankWalk;//About 90% Working.
begin
 if (Not(LoggedIn)) then Exit;
 RoadColor := FindRoadColor;
 PerfectNorth;
 Randoms;
 SetRun(true);
 GameTab(4);
 Wait(500 +random(150));
{Mouse(644, 81, 1, 1, true);}
 RadialRoadWalk(RoadColor, 73, 115, 63, 2, 2);
 FFlag(1);
 Wait(10000 +random(500));
 SymbolAccuracy := 0.4;
 If (FindSymbol(x, y,'Quest')) then
 begin
  Mouse(x, y, 5, 5, true);
  FFlag(0);
  if (Not(findsymbol(x, y, 'bank'))) then
   repeat
  RadialRoadWalk(RoadColor, 138, 160, 43, 2, 2);
  until FindSymbol(x, y, 'bank');
  Mouse(x,y, 3, 3, true);
  FFlag(0);
  SetRun(false);
 end;
end;

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


procedure Proggie;
begin
 Writeln('=======================================') ;
 Writeln(' PS Willower ');
 Writeln(' Version: '+Version);
 Writeln('BY: Twistedvip50');
 Writeln('=======================================') ;
 Wait(500);
 Writeln('Worked For : '+ (TimeRunning));
 If(TotalWillows > 0)then
 Writeln('Chopped: ' + IntToStr(TotalWillows) + ' Logs');
 If(Banked > 0)then
 Writeln('Bank Trips: ' + IntToStr(Banked) + ' Trips Made');
 If(EntsAvoided > 0) then
 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;
 LoadStuff;
 LoggingIn;
 HighestAngle;
 Chats;
 MouseSpeed := MSpeed;
  repeat
 WillowsWalk;
  repeat
 FindAndChop;
  until (InvFull);
 AntiBan;
 Randoms;
 BankWalk;
 BankIt;
 Randoms;
 SRLRandomsReport;
 Proggie;
  until Players[CurrentPlayer].Integers[1] = Banked
 NextPlayer(False);
end.

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

Fix the standards maybe…


Its somewhat simple, but Im not gonna vote…

No script is too simple. Need some TimeMarks in the walking bit or it will mess up. Also you need to sort this out!

procedure AntiBan;
begin
 if (not(LoggedIn)) then
 Exit;
 Randoms;
 case Random(7) of //Should be 7 fetches numbers from 0 to 6
 0: RandomMovement;
 1: HoverSkill('Woodcutting', False);
 2: RandomRClick;
 3: SayCurrentLevels('woodcutting');
 4: PickUpMouse;
 5: begin
     SendKeys('Wc lvls?');
     SendKeysVB('{ENTER}', False);
    end;
 6: begin
     GameTab(1 +Random(12));
     wait(2000 +Random(1000));
     GameTab(4);
    end;
end;

Also Script needs better standards. Other than that not a bad attempt :) . If you dont get in apply next time with an other better script and you will secure my vote!
Keep on learning GJ!!!

->{Nauman}<-

You are on the right track read a tutorial on fail safes. When you do that and add them in.. Im sure i vote yes. Also that "Random;" procedure is not needed. FindNormalRandoms Handles all randoms. Use that instead.

ok thanks guys, and, I can't apply more than once with the same script?

after one moth you can apply again.
yes you can apply with the same script. ;) also you fix it :)

thanks, also can you apply with more then one script or only one?

you can apply with more then one script ;)

Tip: post you're best script on top.

By the way, script won't compile as far as I know…you're missing a bracket on the first line, to make all those notes green.

indeed, well you also missed a end in procedure antiban;

Well, you see I just decided to put in just the setup, and forgot to but the bracket in the beginning of the thing. Then for the antiban, I didn't think that I needed one more end for it so I deleted it. The thing I forgot to do is copy the script that I posted and see if it compiled ><. Thats the reason it wouldn't compile, sorry. If you want I can put in the whole entire part of the top?

Nah…it's cool, you made a tiny mistake and we won't really take that into account. Just make sure you try to compile it next time ;)