SRL Archive - Archive

juessx - SRL Member Application Form
juessx

What is the meaning to life?


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


Programming Knowledge
Delphi, little java

Other Communitys
none.

How Long have You Played Runescape
I think I made an account in my mom's company when I was bored and quit in less than an hour?

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

Odd question ._.

Well, I know a thing or two about Pascal. So I decided to use what I know on Scar, I thought of Scar kind of like my compiler. ;D

and I haven`t really been into this all that much, and I pretty much want to join just so I`m not a junior member.. ;P

I enjoy making scripts because I LOVE reports, it`s beautiful when what you made works flawlessly! I have yet to ever really be able to use that word to describe anything I make but, still learning!

P.S
ROFL, what`s with this question : "Are you affilated in anyway with Jagex LTD?" If they were they`d just say "NO"? :P

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

{
 ================================================================
 ==              Lighter/Cooker by juessx                      ==
 == > Description                                              ==
 == > Lights logs in lummy bank can cook also                  ==
 == > Computer & Program Req.                                  ==
 == > Runescape to V-Bright, and computer at 32 bit resolution ==
 == > Scar 2.03 & SRL 3.5                                      ==
 == > Instructions                                             ==
 == > Put players in lummy bank                                ==
 == > Leave inventory empty it withdraws tinderbox or          ==
 == > if you want put tinderbox is first inventory slot        ==
 == > If cooking put food in first bank slot                   ==
 == > Set up and Set up characters                             ==
 == > Remember to set nick properly                            ==
 == > Thank you - 11/20/06                                     ==
 ================================================================
}

program Lighter;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/FireMaking.Scar}

var
  Tin, tx, ty : Integer;
  lx, ly : Integer;
  iTime  : Integer;
  mLog, fBurn, ReportMark : Integer;
  mFire, firx, firy, FoodColor1, i : Integer;

const
  StartPlayer = 0;  //Which Player plays first?
  Time3       = 10;  //Time per player to play. + randtime. (In minutes)**********
  kFoodColor  = 9674681;  //Leave at 0 for autocolor (food like shrimp please pick. )

procedure DeclarePlayers;
begin

  HowManyPlayers:= 2;
  NumberOfPlayers(HowManyPlayers);
  
  Players[0].Name     :=''; //Username
  Players[0].Pass     :='';   //Password
  Players[0].Nick     :='';      //Nickname 3 or 4 letters from username
  Players[0].String1  :='cook';    //cook or light
  Players[0].Active   := True;
  
  Players[1].Name     :=''; //Username
  Players[1].Pass     :='';   //Password
  Players[1].Nick     :='';      //Nickname 3 or 4 letters from username
  Players[1].String1  :='cook';    // [Not yet]
  Players[1].Active   := True;
  
end;

procedure LoadMemb;
begin
  Tin := DTMFromString('78DA637CC5C0C03093010CD82014C3EAF9F31' +
       '93E00694620FE0F048C5F818C1E0634C0884402E94740622A0135' +
       'EF80C472026AEE028939F8D500002DD10E73');
  mLog := BitmapFromString(3, 3, '735835735835765A377A5D387A5D387' +
       'A5D387F613A7F613A7F613A');
  mFire := BitmapFromString(3, 3, 'E7B63CF4B058E7B847E7B741F4BB35F' +
       '3C451F4BD3FE7B948F8C956');
end;

procedure Loading;
begin
  ClearDebug;
  ActivateClient;
  SetUpSRL;
  LoadFireMakingBitmaps;
  DeclarePlayers;
  LoadMemb;
  CurrentPlayer := StartPlayer;
  if(not(LoggedIn))then
    LoginPlayer;
  NickNameBmp := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;

procedure NoChats(what, what2, what3 : String); //why doesn't srl just have something like this?
begin
  SetChat(what, 1);
  SetChat(what2, 2);
  SetChat(what3, 3);
end;

procedure FindRandoms;
begin
  if(not(LoggedIn))then Exit;
  FindNormalRandoms;
  if(FindFight)then
  begin
    Writeln('*********************');
    Writeln('     Fight found');
    Writeln('*********************');
    RunAwayDirection('S');
    Wait(10000 + random(5000));
    RunBack;
  end;
end;

function BankCheck : Boolean;
begin
  repeat
  
    Result := FindSymbol(x, y, 'Bank');
    if(Result)then Break;
    SymbolAccuracy:= SymbolAccuracy- 0.1;
    FindRandoms;
    
  until(Result = True) or (SymbolAccuracy <= 0.4)
  Writeln('Symbol acc used : '+FloatToStr(SymbolAccuracy));
end;

function TinderBox2(var x, y : Integer; x1, x2, x3, x4 : Integer) : Boolean;
begin
  Result:= FindDTM(Tin, tx, ty, x1, x2, x3, x4);
  x:= tx;
  y:= ty;
end;

procedure WithdrawT;
begin
  if(TinderBox2(tx, ty, 21, 58, 467, 290))then
  begin
    Writeln('Found tinderbox.');
    Mouse(tx - 10, ty - 10, 2, 2, true);
    Wait(500 + random(500));
    CloseBank;
  end
  else
  begin
    Writeln('Tinderbox not found');
    LogOut;
  end;
end;

function ToLogs : Boolean;
begin

  if(not(LoggedIn))then Exit;
  
    repeat
    
      Result := FindSymbol(x, y, 'guide');
      if(Result)then Break;
      SymbolAccuracy:= SymbolAccuracy- 0.1;
      FindRandoms;
      
    until(Result = True) or (SymbolAccuracy <= 0.1)
    
    Writeln('Symbol acc used : '+FloatToStr(SymbolAccuracy));
    
    if(Result)then
      MouseFlag(x - 5, y - 10, 1, 1);
      Flag;
end;

procedure LightWait2;
var
  FireMark : Integer;
begin

  MarkTime(FireMark);
  
  if InChatMulti('att','emp','lig') then
  repeat
  
    Wait(100 + Random(100));
    FindRandoms;
    if(not(LoggedIn))then
      Exit;
    ClickToContinue;
    
  until InChatMulti('cat','and','ire') or (TimeFromMark(FireMark)> 30000)
end;

procedure LightLogs;
begin
  Flag;
  FindRandoms;
  if(FindBitmapToleranceIn(mLog, lx, ly, Msx1, Msy1, Msx2, Msy2, 10))then
  begin
    if(TinderBox2(x, y, Mix1, Miy1, Mix2, Miy2))then
    begin
      Mouse(lx + 4, ly - 4, 2, 2, false);
      if(ChooseOption(x, y, 'ight'))then
        Flag;
      LightWait2;
      Players[CurrentPlayer].Killed:= Players[CurrentPlayer].Killed + 1;
      fBurn:= fBurn + 1;
    end
    else
    begin
      Writeln('Tinderbox not found.');
      FindRandoms;
      LogOut;
    end;
  end
  else
    begin
      Writeln('Logs not found');
      FindRandoms;
      Wait(3000 + random(2000));
    end;
    
end;

procedure BankMMouse(i: Integer); //by RsN
var
  row, col, x, y : Integer;
begin
  row := i div 8;
  col := i - (row * 8) - 1;
  if (col < 0) then
  begin
    col := 7;
    row := row - 1;
  end;
  x := 87 + (47 * col) + Random(7);
  y := 72 + (38 * row) + Random(7);
  MMouse(x, y, 3, 3);
end;

function IsThereFood : Boolean;
begin
  if(not(BankScreen))then
    OpenBankColor(7835549);
  BankMMouse(1);
  if(IsUpText('Raw'))then
  begin
    if(kFoodColor = 0)then
      FoodColor1:= GetColor(x, y)
    else
      FoodColor1:= kFoodColor;
    Writeln('Food Color is '+IntToStr(FoodColor1));
    Withdraw(1, 1, 28);
    Result:= True;
  end;
  if(Result = False)then
  begin
    Writeln('No more food - LogOut');
    CloseBank;
    LogOut;
  end;
  CloseBank;
end;

procedure ClickFood;
begin
  if(FindColorTolerance(x, y, FoodColor1, Mix1, Miy1, Mix2, Miy2, 3))then
    Mouse(x, y, 2, 2, true)
  else
    Writeln('Food not found');
end;

procedure Cook;
begin
  Mouse(firx, firy, 2, 2, false);
  if(ChooseOption(x, y, 'Fire'))then
    Writeln('Cooking... ');
end;

procedure UntilNo;
begin
  Writeln('Waiting....');
  repeat
    FindRandoms;
    Wait(50);
    FindTalk;
    Wait(50);
    ClickToContinue;
    Wait(50);
  until(not(FindColorTolerance(x, y, FoodColor1, Mix1, Miy1, Mix2, Miy2, 3)))
end;

procedure RtClick;
begin
  if(FindColorTolerance(x, y, FoodColor1, Mcx1, Mcy1, Mcx2, Mcy2, 5))then
  begin
    Mouse(x, y, 3, 3, false);
    ChooseOption(x, y, 'all');
  end;
end;

function ToBank : Boolean;
begin

  if(not(LoggedIn))then Exit;

    repeat

      Result := FindSymbol(x, y, 'bank');
      if(Result)then Break;
      SymbolAccuracy:= SymbolAccuracy- 0.1;
      FindRandoms;

    until(Result = True) or (SymbolAccuracy <= 0.4)

    Writeln('Symbol acc used : '+FloatToStr(SymbolAccuracy));

    if(Result)then
      MouseFlag(x, y, 1, 1);
      Flag;
end;

procedure BankAll;
begin
  OpenBankColor(7835549);
  Deposit(2, 28, 2);
end;
  
procedure PlayerStats;
var
  Active : String;
  i : Integer;
begin
  if(Players[CurrentPlayer].Active = True)then
    Active:='True'
   else
    Active:='False';
  WriteLn ('============================================');
  Writeln ('== > Name         : '+ Players[CurrentPlayer].Name);
  Writeln ('== > Number       : '+inttostr(CurrentPlayer));
  Writeln ('== > Active       : '+ Active);
  Writeln ('== > Worked       : '+ inttostr(Players[CurrentPlayer].Worked));
  WriteLn ('============================================');

  for I := 0 to HowManyPlayers - 1 do
  begin
    if Players[i].Active=True then Active:='T' else Active:='F';
    WriteLn ( '== > ' + Inttostr ( I) + ' : ' + Players[i].Name + ' = ' + Active
    +'W : '+IntToStr(Players[i].Worked)+' min. '
    +'B : '+ IntToStr(Players[i].Killed)+' logs ');
  end
  WriteLn ('============================================');
end;

procedure Report;
begin
   Writeln('============================================');
   Writeln('==        juessx''s Lighter        ');
   Writeln('== > Work Time '+ScriptTime2(2));
   Writeln('== > Made '+IntToStr(fBurn) + ' fires');
   PlayerStats;
end;

procedure DeReporter;
begin
  if(TimeFromMark(ReportMark) > 10000)then
  begin
    MarkTime(ReportMark);
    Report;
  end;
end;

begin
  Loading;
  MarkTime(ReportMark);
  
  repeat
  
    DeReporter;
    iTime:= Time3 + random(5);
    Writeln('This Player will play '+IntToStr(iTime));
    NoChats('off', 'off', 'on');
    HighestAngle;
    MarkTime(Mark);
    if(BankCheck)then
      Writeln('Player is in bank')
    else
      begin
        Writeln('wtfak not in bank..');
        LogOut;
      end;
      if(not(TinderBox2(x, y, mix1, miy1, mix2, miy2)))then
      begin
        Writeln('Tinderbox not inside inventory - withdrawing one.');
        OpenBankColor(7835549);
        WithDrawT;
      end else
        Writeln('You have tinderbox.');

      if(Players[CurrentPlayer].String1 = 'light')then
      begin
        Writeln('We are in light loop');
        ToLogs;
        repeat
      
          DeReporter;
          LightLogs;
        
        until(TimeFromMark(Mark) > iTime * 60000) or (not(LoggedIn))
      end;
      
      if(Players[CurrentPlayer].String1 = 'cook')then
      begin
        Writeln('We are in cook loop');
        repeat
        
          IsThereFood;
          if(not(LoggedIn))then Break;
          ToLogs;
          if(not(ThereIsFire(firx, firy)))then
            repeat
            
              i:= i + 1;
              LightLogs;
              
            until(i >= 5) or (ThereIsFire(firx, firy))
            
            if(not(ThereIsFire(firx, firy)))then
              Logout
            else
            begin
              ClickFood;
              Cook;
              RtClick;
              UntilNo;
              ToBank;
              BankAll;
              DeReporter
            end;
            
        until(TimeFromMark(Mark) > iTime * 60000) or (not(LoggedIn))
      end;

        if(not(LoggedIn))then
        begin
          Writeln('unlogged : active - false');
          NextPlayer(False);
        end
        else
        begin
          writeln('time up : still active');
          NextPlayer(True);
        end;

      
  until(False)
end.

Taught/Help from WhiteShadow. Damn the scar tags made my code all fugly, I used standards…

——————————————————

No other communities
2 pots here
and you ARE affilated with jagex? lol (oh nvm its a joke i get it)

hmm idk how you learned so much with 2 pots
ill ask whiteshadow about this. me and him are good friends.

EDIT:
well this looks prety legit.
cant find any more like so im guessing you actually did made it! =)
Ill vote tomorow =)

This looks pretty nice, good job :)
If it were up to me ur in :)

let him in :p

i love the sccipt also
just though its susipicous that its so good after 2 post
but doesnt look like he stole it. so he gets a yes from me

seems smart enough :-P. I'm not sure if this plays too big of a role here for SRL Members, but his loyalty doesn't look the best YET. He could easily stay here for ages, but I just don't see much of anything showing he's going to. But overall I'd vote yes.

haha dude, everyone thinks you a guy. :P

anyways I know juessx from real life, my cousin's friend. :P
I'm your best friend though right? :D

V0t3 Y3S!

Accepted.