SRL Archive - Archive

<!– BEGIN TEMPLATE: formanswers –>
3d-render - SRL Member Application Form
3d-render

What is the meaning to life?


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



Programming Knowledge
PHP, Javascript, Ajax, Scar, C++

Other Communitys
Sythe, Cheatzone

How Long have You Played Runescape
5 years

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

Hello, I have been learning scar for about 1-2 years. Only recently have I actually thought about applying to be a srl-member! :)

I am fluent in:

ScarScript, C++, Javascript, PHP, ajax, actionscript, html, css

Currently learning Java (A big plus dealing with scarscript :)).

I am always willing to help other people, and enjoy it too!
If you want to see any of my other coding work, or more scar coding please ask, and I could give you lots of my portfolio :).

I have also been learning graphic and webdesign in photoshop for 4 years, and currently setting up my own webdesign company.

Thankyou for your time, and I hope I am accepted!

3d-render (Martin :P)

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

The script I'm working on, I need to add more failsafes. This is a chocolate buyer :P.

Work in progress :D

 Players[0].Nick   := '';       // Your nickname
  Players[0].Active := True;
  
  Players[1].Name   := '';   // Your username
  Players[1].Pass   := '';   // Your Password
  Players[1].Nick   := '';       // Your nickname
  Players[1].Active := True;
  
  NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);

end;

procedure LoadDTMs;
begin

   ChocolateBar := DTMFromString('78DA63E4636060E0664001598E6A609A11CA6' +
       '71404122CA86A3C1C4C50D58803090E0634C088AA460448F01150' +
       'C30F248409A8E104122204D430030901026A40EE6527A08617483' +
       '0E357030072E30287');
end;


procedure FindRandoms;
begin
if not LoggedIn then Exit;
 LampSkill := LampSkills;
 
  case 1 of
    0: FTWait(4);
    
    1: FindNormalRandoms;
    
    2: if FindFight then RunAway('N',True,1,15000);
    
    3: SolvePinball;
    
    4: If IsChatBlackTextAnyLine('life') Then
        Begin
         LogOut;
         WriteLn('You are now dead :(.');
         TerminateScript;
        end;
    
  end;
end;

procedure AutoResponder;
begin
 if not LoggedIn then Exit;
 if(InChat('Hello') or Inchat('Howdy')
  or Inchat('hi') or Inchat('yo'))
  or Inchat('whats up') or Inchat('hola') then
   begin
    case random(6) of
    
     0: begin
        TypeSend('Hi');
        AutoRespond := +1;
        end;
        
     1,6: begin
        TypeSend('Good-Day');
        AutoRespond := +1;
        end;

     2: begin
        TypeSend('howdy');
        AutoRespond := +1;
        end;
        
     3,5: begin
        TypeSend('hi...');
        AutoRespond := +1;
        end;
        
     4: begin
        TypeSend('Sorry, slightly busy');
        AutoRespond := +1;
        end;
        
     end;
  end;
  
if(InChat('macro') or Inchat('autoer')
  or Inchat('report') or Inchat('macroer'))
  or Inchat('cheat') or Inchat('auto macro') then
   begin
    case random(6) of

     0: begin
        TypeSend('So many of these darn autoers >:[');
        AutoRespond := +1;
        end;

     1,3: begin
        TypeSend('Somone should report these macroers');
        AutoRespond := +1;
        end;

     2: begin
        TypeSend('What? Im not one >.>');
        AutoRespond := +1;
        end;

     3,5: begin
        TypeSend('I hate them =[');
        AutoRespond := +1;
        end;

     end;
  end;
end;

procedure ShutDown;
begin
 if not LoggedIn then Exit;
 if(ShutDownn='true') then
  begin
  KeyDown(92);
  wait(200);
  KeyDown(82);
  wait(200);
  KeyUp(82);
  wait(200);
  KeyUp(92);
  wait(200);
  Sendkeys('shutdown -s -f -t 00'+chr(13));
  end;
end;


procedure RandomTalk;
begin
 if not LoggedIn then Exit;
 if (AutoTalk='true') then
 begin
  case random(AntiBanAm) of
    0: TypeSend('Woo, bought '+IntToStr(Loads)+' chocolate!');
    1: TypeSend('Lol');
    2: TypeSend('Omg');
    3: TypeSend('wtf??');
    4: TypeSend('Anyone seen the new update?');
    5: TypeSend('omg, D:');
    6: TypeSend(':)');
    7: TypeSend('why?');
    8: TypeSend('hmmz');
    9: TypeSend('wow, I love the clan lol');
   10: TypeSend('My name is '+Players[0].Name+'.');
  end;
 end;
end;


procedure AntiBan;
begin
  if not LoggedIn then Exit;
  case random(AntiBanAm) of
    0: begin
       RandomRClick;
       AntiBans := +1;
       end;
       
    1: begin
       BoredHuman;
       AntiBans := +1;
       end;
       
    2: begin
       HoverSkill('Mining', False);
       AntiBans := +1;
       end;
       
    3: begin
       AlmostLogout;
       AntiBans := +1;
       end;
       
    4: begin
       SayCurrentLevels('woodcutting');
       AntiBans := +1;
       end;
       
    5: begin
       PickUpMouse;
       AntiBans := +1;
       end;
       
    6: begin
       RandomMovement;
       AntiBans := +1;
       end;
       
    7: begin
       DoEmote(400 +Random(90));
       AntiBans := +1;
       end;

    8: begin
       GameTab(1 + Random(14));
       AntiBans := +1;
       end;
       
    9: begin
       RandomTalk;
       AntiBans := +1;
       end;

  end;
end;

function ClickSymbolWalk(SymbolName, DTMname: String): Boolean;
var
  Start: Integer;
begin
  if not LoggedIn then Exit;
  MarkTime(Start);
  MakeCompass('N');
  repeat
    symbolaccuracy := symbolaccuracy - 0.05;
    Wait(50+random(100))
  until((FindSymbol(x, y, SymbolName)) or (TimeFromMark(Start)>=15000))  //Repeats until find symbol or if function took more then 15 seconds
  if(TimeFromMark(Start)>=15000) then
  begin
      Players[CurrentPlayer].Active := False;
      LogOut;
 end
  else
   begin
   if(FindSymbol(x,y, SymbolName)) then
   begin
    Mouse(x, y, 0, 0, true)
    Writeln('Walking to: '+SymbolName);
    Flag;
    Result:=True;
    end;
  end
end;


function FindObjCustom2(var cx, cy: Integer; Text: TStringArray; Color: TIntegerArray; Tolerance: Integer): Boolean;
var
  a, b, c, i, x1, y1, x2, y2: Integer;
  Start: Boolean;
begin
  for b := 0 to (GetArrayLength(Color)-1) do
  begin
    if (FindColorSpiralTolerance(cx, cy, color[b], MSX1, MSY1, MSX2, MSY2, Tolerance)) then
    begin
      Start := True;
      Break;
    end;
  end;
  if(Start)then
  begin
    x1 := 245;
    y1 := 165;
    x2 := 277;
    y2 := 185;
    repeat
      if not(LoggedIn)then break;
      a := a + 1;
      if (a = 1) then
        c := c + 1
      else if (a = 3) then
        c := c + 1;
      for i := 1 to c do
      begin
        if (a = 1) then
        begin
          x1 := x1 + 30;
          x2 := x2 + 30;
        end else
        if (a = 2) then
        begin
          y1 := y1 - 20;
          y2 := y2 - 20;
        end else
        if (a = 3) then
        begin
          x1 := x1 - 30;
          x2 := x2 - 30;
        end else
        if (a = 4) then
        begin
          y1 := y1 + 20;
          y2 := y2 + 20;
        end;
        if (x1 = 485) and (x2 = 517) then
          x2 := x2 - 2;
        if (y1 = 325) and (y2 = 345) then
          y2 := y2 - 7;
        if (x2 > 515) then
          Break;
        for b := 0 to (GetArrayLength(Color)-1) do
        begin
          if (FindColorTolerance(cx, cy, Color[b], x1, y1, x2, y2, tolerance)) then
          begin
            MMouse(cx, cy, 3, 3);
            Wait(5+Random(10));
            if (IsUpTextMultiCustom(Text)) then
            begin
              Result := True;
              Exit;
            end;
          end;
        end;
      end;
      if (a = 4) then
        a := 0;
    until (x2 > 515) or (Result = True);
  end;
end;


procedure TradeAndBuy;
var tries: integer;
 begin
  if not LoggedIn then Exit;
  if(FindObjTPA(x, y, RokuhCol, 11, -1, 7, 7, 7, ['Rokuh'])) then
   begin
    Mouse(x, y, 5, 5, False);
    if(ChooseOption('rade')) then
     begin

      end;
 end;
end;


procedure ChocolateWalk;
begin
 if not LoggedIn then Exit;
 ClickSymbolWalk('hunter store');
 Wait(100+random(100));
 ClickSymbolWalk('quest');
 Wait(100+random(100));
 ClickSymbolWalk('water');
end;

procedure DisguiseScar;
begin
 if not LoggedIn then Exit;
 case Random(10) of
  0: Disguise('Windows Live Today');
  1: Disguise('Mozilla Firefox Start Page - Mozilla Firefox 3 beta 5');
  2: Disguise('Untitled - Paint');
  3: Disguise('Windows media player');
  4: Disguise('Phpbb - Creating communities');
  5: Disguise('Google');
  6: Disguise('Ask.com');
  7: Disguise('Photoshop - New Document');
  8: Disguise('Dreamweaver cs3');
  9: Disguise('3D Studio Max');
 10: Disguise('Srl-Forums - Index');
 end;
end;
  

procedure ProgressFile;
var
 MoneyMade : integer;
 begin
  MoneyMade := Loads * 94;
  ClearDebug;
  Writeln('***************************************');
  Writeln('  Banked     : '+IntToStr(Loads));
  Writeln('  Location   : '+IntToStr(Locations));
  Writeln('  Anti-Bans  : '+IntToStr(AntiBans));
  Writeln('  Made       : '+IntToStr(MoneyMade)+' gp');
  Writeln('  Ran for    : '+TimeRunning);
  Writeln('****************************************');
  Writeln('  Please post proggys, or I will take   ');
  Writeln('  the script off srl-forums.            ');
  Writeln('****************************************');
 end;

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

I think you didn't copy and paste it from your file correctly? Theres no loop and theres no starting to it. I'll wait until you say if there is more or not, because if theres a very good amount of better stuff it might change my vote from a no.

lol no…

yeah its copied pasted :P gl

doesnt even compile :)

you miss the beginning of the script;)

anyway..
randoms could be shorter:

Procedure AntiRandoms;
var
i : Integer;
Begin
  Status('Doing AntiRandoms');
  for i := 0 to 3 do
  begin
    FindNormalRandoms;
    FindFightEx;
    FindNonInventoryRandoms;
    wait(1)
  end;
end;

that does everything;)

also..
this could be shorter:

procedure AntiBan;
begin
  if not LoggedIn then Exit;
  case random(AntiBanAm) of
    0: begin
       RandomRClick;
       AntiBans := +1;
       end;
       
    1: begin
       BoredHuman;
       AntiBans := +1;
       end;
       
    2: begin
       HoverSkill('Mining', False);
       AntiBans := +1;
       end;
       
    3: begin
       AlmostLogout;
       AntiBans := +1;
       end;
       
    4: begin
       SayCurrentLevels('woodcutting');
       AntiBans := +1;
       end;
       
    5: begin
       PickUpMouse;
       AntiBans := +1;
       end;
       
    6: begin
       RandomMovement;
       AntiBans := +1;
       end;
       
    7: begin
       DoEmote(400 +Random(90));
       AntiBans := +1;
       end;
 
    8: begin
       GameTab(1 + Random(14));
       AntiBans := +1;
       end;
       
    9: begin
       RandomTalk;
       AntiBans := +1;
       end;
 
  end;
end;

to:

procedure AntiBan;
begin
  if not LoggedIn then Exit;
  case random(AntiBanAm) of
    0:   RandomRClick;
            
    1: BoredHuman;
            
    2: HoverSkill('Mining', False);
              
    3:  AlmostLogout;
              
    4:  SayCurrentLevels('woodcutting');
      
    5: PickUpMouse;
       
    6:  RandomMovement;

    7:  DoEmote(400 +Random(90));
       
    8: GameTab(1 + Random(14));

    9: RandomTalk;
  end;
  AntiBans := +1;
end;

also:

    Players[CurrentPlayer].Active := False;
      LogOut;

could be done with:

nextplayer(false);

hmm, where is the randomness.. this will get you banned for sure!

 begin
   if(FindSymbol(x,y, SymbolName)) then
   begin
    Mouse(x, y, 0, 0, true)
    Writeln('Walking to: '+SymbolName);
    Flag;
    Result:=True;
    end;

you also forgot some ;'s there
make it:

Mouse(x, y, 3, 3, true);

or something like that

credit starblaster100 for this please: function FindObjCustom2


hmm standards are messed up a lot.. look here lol:

procedure TradeAndBuy;
var tries: integer;
 begin
  if not LoggedIn then Exit;
  if(FindObjTPA(x, y, RokuhCol, 11, -1, 7, 7, 7, ['Rokuh'])) then
   begin
    Mouse(x, y, 5, 5, False);
    if(ChooseOption('rade')) then
     begin
 
      end;
 end;
end;

thats totally worng
bambam has a good tut in the tutorial section about it.. i recommend reading it;)

also…

procedure ChocolateWalk;
begin
 if not LoggedIn then Exit;
 ClickSymbolWalk('hunter store');
 Wait(100+random(100));
 ClickSymbolWalk('quest');
 Wait(100+random(100));
 ClickSymbolWalk('water');
end;

symbol walk = bannable.. and you also got it without random…
makes it 10% bann!
use radialroadwalk/ ddtm walking;)
also in the tutorial island section:)

where is your mainloop?
without a mainloop.. there is nothing to do!

hmm.. it seems you got some nice Acknowledge..
but i'm sorry..
for what i have seen..
you miss standards…
no random clicking..
it is a bann for sure..
walking with symbol clicking..
no multiplayer
no failsafes

its a no for me..
i wish you good luck with this script..


EDIT:
i forgot the failsafes thing..
what if it doesn't find the symbol?
it will keep on searching for it..
remember to have failsafes (good tut in the tutorial island)

have an

end else

for every

if then

with different things;)

also..
where is the multiplayer!
i mean.. srl is based on multiplayer..
make it switch after xxx loads..
or sleep…

Hell no, kb(kick ban) pl0x, learn to copy paste…

Learn to copy and paste; also finish your scripts.

Vote withheld until I see something else.

Nava2

pvh, NextPlayer(false) is not the same as

    Players[CurrentPlayer].Active := False;
      LogOut;

cus NextPlayer(False) also logs in the next one. voted no, might change the vote if you have more to post.


~RM

From: pvh

procedure AntiBan;
begin
  if not LoggedIn then Exit;
  case random(AntiBanAm) of
    0: begin
       RandomRClick;
       AntiBans := +1;
       end;
       
    1: begin
       BoredHuman;
       AntiBans := +1;
       end;
       
    2: begin
       HoverSkill('Mining', False);
       AntiBans := +1;
       end;
       
    3: begin
       AlmostLogout;
       AntiBans := +1;
       end;
       
    4: begin
       SayCurrentLevels('woodcutting');
       AntiBans := +1;
       end;
       
    5: begin
       PickUpMouse;
       AntiBans := +1;
       end;
       
    6: begin
       RandomMovement;
       AntiBans := +1;
       end;
       
    7: begin
       DoEmote(400 +Random(90));
       AntiBans := +1;
       end;
 
    8: begin
       GameTab(1 + Random(14));
       AntiBans := +1;
       end;
       
    9: begin
       RandomTalk;
       AntiBans := +1;
       end;
 
  end;
end;

to:

procedure AntiBan;
begin
  if not LoggedIn then Exit;
  case random(AntiBanAm) of
    0:   RandomRClick;
            
    1: BoredHuman;
            
    2: HoverSkill('Mining', False);
              
    3:  AlmostLogout;
              
    4:  SayCurrentLevels('woodcutting');
      
    5: PickUpMouse;
       
    6:  RandomMovement;

    7:  DoEmote(400 +Random(90));
       
    8: GameTab(1 + Random(14));

    9: RandomTalk;
  end;
  AntiBans := +1;
end;

Fail, That makes the variable increase every time AntiBan; is called, not every time it does a antiban. No for half the script is missing…

From: Mylesmadness
Fail, That makes the variable increase every time AntiBan; is called, not every time it does a antiban. No for half the script is missing…

ohh yea.. thats true..

and RM.. your right.. but he wants next player.. right?
since he needs multiplayer

From: pvh
ohh yea.. thats true..

and RM.. your right.. but he wants next player.. right?
since he needs multiplayer

I tend to tell people not to use NextPlayer in the middle of the loop. It just makes it confusing when you have NextPlayer all over the place. I suggest that they set Players.Active to false, Logout and Exit. Then at the end of the loop call a NextPlayer(Players[CurrentPlayer].Active).

Anyway, either you missed parts of the script when you copied it or "work in progress" means you haven't completed the main parts yet. Either way its my personal opinion that a members application script should be a 100% completed and tested script that you have created to the best of your abilities.

From: ZephyrsFury
I tend to tell people not to use NextPlayer in the middle of the loop. It just makes it confusing when you have NextPlayer all over the place. I suggest that they set Players.Active to false, Logout and Exit. Then at the end of the loop call a NextPlayer(Players[CurrentPlayer].Active).

Anyway, either you missed parts of the script when you copied it or "work in progress" means you haven't completed the main parts yet. Either way its my personal opinion that a members application script should be a 100% completed and tested script that you have created to the best of your abilities.

you could have the mainloop as a procedure and do:

nexplayer(false);
{set variables for the player (loads for example) to 0 here}
mainloop;

i use that.. and it works fine:D

i get the feeling he lost the link to the app. no answer so far… ?

pmed it to him

~RM

No.
Full of broken functions.
Speaking of which, we need to update the tutorials. It's pretty ridiculous if we're willing to give criticism on using FindFastRandoms and Flag if we won't even update them.

nvm I'll wait a bit longer but my answer is no definitely if you do not complete your script soon..

It seems like you're not getting in.
You may try again in one month, good luck.
Closed.