SRL Archive - Archive

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

What is the meaning to life?
To live…

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


Programming Knowledge
XHTML

Other Communitys
Proboards

How Long have You Played Runescape
Bout 2 years

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

My name is max, and I first heard about cheating in runescape from a friend. After about a year of digging (:P) I found SRL and I immedietly joined thinking of all the GeePeez I could make. Well, I couldn't get any of the scripts to work, and I posted one of those leecher HELP ME PLOX threads. I forgot who, but someone was very nice and showed me how to fix my problem, and after that, I was hooked :P. I have had a lot of fun, and I want to contribute to the community in anyway I can.

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

Make sure you have the have the new DoorProfiles,

{======================================================================|
|======================================================================|
|===============================BOURDOU'S==============================|
|=================================FLAX=================================|
|===============================STRINGER===============================|
|==============================VERSION 0.4=============================|
|======================================================================|
|=================================SETUP================================|
|=================================LINES================================|
|=============================30 THROUGH 39============================|
|======================================================================|
|===============================THANKS TO:=============================|
|=DVDCRAYOLA, BOREAS, KIKWIT, HYPERSECRET, HOBBIT, JASONE2GS, PWNAZ0R==|                                                                       |
|===========================AND TUT MAKERS!============================}

program BStringer;
{.include SRL/SRL.scar}
{.include SRL/SRL/Core/DoorProfiles.scar}

var x, y, FlaxSpun, Banked, F: integer;
var SpinForm: TForm;
var Start: TButton;
var Background: TImage;
var Pass, User, YesRNo, Pass1, User1, Pass2, User2: TLabel;
var PassTxt, UserTxt, PassTxt1, UserTxt1, PassTxt2, UserTxt2: TEdit;
var Active, Active1, Active2: TCheckBox;
var Username, Password, Username1, Password1, Username2, Password2: string;

//!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!SETUP!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

const
  MySRLID = '';// SRL STATS ID
  MySRLPassword = '';// SRL STATS PASS
  HowManyFlaxPerPlayer = 100;// HOW MANY FLAX PER PLAYER?
  StairColor = 604242;//COLOR OF THE STAIR RAIL

//!!!!!!!!!!!!!!!!!!!!!END SETUP!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

procedure DragForm(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var sx,sy,tx,ty:integer;
begin
  getmousepos(tx,ty);
  repeat
    getmousepos(sx,sy);
    SpinForm.Top := SpinForm.Top - (ty-sy);
    SpinForm.Left := SpinForm.Left - (tx-sx);
    sleep(1);
    tx := sx;
    ty := sy;
  until (not IsMouseButtonDown(True));
end;

procedure MakeForm;
begin
  SpinForm := CreateForm;
    with SpinForm do
      begin
        Caption := 'Main';
        Position := poScreenCenter;
        Width := 250;
        Height := 500;
        Color := clBlack;
        Font.Color := clWhite;
        Font.Height := -11;
        Font.Name := 'MS Sans Serif';
        Font.Style := [];
        BorderStyle := bsNone;
        OnMouseDown := @DragForm;
      end;
  Start := TButton.Create(SpinForm);
    with Start do
      begin
        Parent := SpinForm;
        Top := 450;
        Left := 100;
        Width := 50;
        Height := 25;
        Caption := 'Start!';
        ModalResult:= mrOk;
      end;
  Background := TImage.Create(SpinForm)
    with Background do
      begin
        Parent := SpinForm;
        Top := 0;
        Left := 0;
        Height := 500;
        Width := 250;
        OnMouseDown := @DragForm;
      end;
  F := BitmapFromString2(False, 'a47D1378DAC5964B92A3301005AF' +
       'A42A7D5982C1F73FD250A9B22C1A3BA2A337D38B8C8CA732F613B' +
       '6E81082B46738FFA49E887B3A59448DF171323F8B2D9A86B890A4' +
       'C35856E30ED7F7BCBFB6D8AB4AB0ABE5DA4E6AC3F3FB9AC506435' +
       'A0B97CE21D445DA11B7B8E541FDE2DFA8BFC8EFAE5FE6F5D757F8' +
       'F65AFDD3E71CABAB0409EDC2605CEC8E19656208CBE46D399CF29' +
       '1FBC965F2C6BD35CA0F6E135F89DDAC95F99E775FF1E5429B9C93' +
       'C6647337D68985D5EA7C2705CF5F9826C69315BEDD3E83E24A2EE' +
       'E01E78BE76EABB6C395DF446BEC275EF1DA0E6798DCB83B2D7FE0' +
       'EC5563573D61DF1A3BD6D8B1B692AF23A96D99D82EB499EE85571' +
       '5BC4E49C65F7C2709671F6069EC4CE397DAD899C63E3476A685C1' +
       '626F184AA57B7DBA1B0FA74C7E5EA1B20FF5414EEBBAE19BBB4DD' +
       '2DAB9B0FA6218DE58AD4ECB2B7927E7472D78C6E95B39BD6A244F' +
       '7C1E853DD10B6D928E33CBD3696718ED2EDCC939E72EDEB9396D7' +
       '2858BBB9D97E6D9938637F28AD7716AE6422FF78CD3B17082C252' +
       '685422493F7195EB0889B0DABDF70A9CBED6EE454E71E7EE3C27F' +
       'B09EDA451DE98A7C5A0250BDE2EB4BC3AC370BA3833B416292777' +
       'F124E7882BAB4A42AF2C2482F72E3C3D3AD3F3FD5C4AD622A59DB' +
       'CD3BE87393DDC6D669BB832BFB2BA4C6C4E195E2716F28267BC93' +
       '5ECE38516F9489E1CD6877C7783E14E331989C34E2491B07C5931' +
       '437A79C39BD225D2E6C83315626EBE405CF4E71266724A79DBBDE' +
       '28378637D5DA19CD0FA7253BDEF998123AEA76E3CA8CFD9A54AD9' +
       '72A8DF0E8CEFF1D4A3B679998075569EA9EC8D370D538185527CA' +
       'C430A8B30B7D85BE729074D2EEC2C7A08AED80BA6F135766E8FB8' +
       '16D62BD7967B931F35E9DF4953479BC51275A77813D797967E03A' +
       'EC43787A32DC797CA4841DBFF3C1EA36A81F7C1D54F7E507D59DF' +
       'D81E2AC833AF9792E9294E173A22193DC996E8C1F123BD5745A65' +
       '6F3DE9945F33FC1FFE03773');
  SafeCopyCanvas(GetBitmapCanvas(F),Background.Canvas,0,0,1,500,0,0,250,500);
  F := BitmapFromString(1, 1, 'FFFFFF');
  SafeCopyCanvas(GetBitmapCanvas(F),Background.Canvas,0,0,1,1,0,0,2,500);
  SafeCopyCanvas(GetBitmapCanvas(F),Background.Canvas,0,0,1,1,248,0,250,500);
  SafeCopyCanvas(GetBitmapCanvas(F),Background.Canvas,0,0,1,1,0,0,250,2);
  SafeCopyCanvas(GetBitmapCanvas(F),Background.Canvas,0,0,1,1,0,498,250,500);
  User := Tlabel.Create(SpinForm);
    with User do
      begin
        Parent := SpinForm;
        Top := 100;
        Left := 50;
        Width := 49;
        Height := 13;
        Caption := 'Username:';
      end;
  Pass := Tlabel.Create(SpinForm);
    with Pass do
      begin
        Parent := SpinForm;
        Top := 130;
        Left := 50;
        Width := 49;
        Height := 13;
        Caption := 'Password:';
      end;
  UserTxt := TEdit.Create(SpinForm);
    with UserTxt do
      begin
        Parent := SpinForm;
        Top := 91;
        Left := 110;
        Width := 70;
        Height := 21;
        Font.Color := clBlack;
        Hint := 'Type your username here';
        ShowHint := True;
      end;
  PassTxt := TEdit.Create(SpinForm);
    with PassTxt do
      begin
        Parent := SpinForm;
        Top := 122;
        Left := 110;
        Width := 70;
        Height := 21;
        Font.Color := clBlack;
        Hint := 'Type your password here';
        ShowHint := True;
      end;
  Active := TCheckBox.Create(SpinForm);
    with Active do
      begin
        Parent := SpinForm;
        Top := 120;
        Left := 20;
        Width := 15;
        Height := 15;
        Caption := '';
        Hint := 'Active?';
        ShowHint := True;
      end;
  User1 := TLabel.Create(SpinForm);
    with User1 do
      begin
        Parent := SpinForm;
        Top := 180;
        Left := 50;
        Width := 49;
        Height := 13;
        Caption := 'Username:';
      end;
  Pass1 := Tlabel.Create(SpinForm);
    with Pass1 do
      begin
        Parent := SpinForm;
        Top := 210;
        Left := 50;
        Width := 49;
        Height := 13;
        Caption := 'Password:';
      end;
  UserTxt1 := TEdit.Create(SpinForm);
    with UserTxt1 do
      begin
        Parent := SpinForm;
        Top := 171;
        Left := 110;
        Width := 70;
        Height := 21;
        Font.Color := clBlack;
        Hint := 'Type your username here';
        ShowHint := True;
      end;
  PassTxt1 := TEdit.Create(SpinForm);
    with PassTxt1 do
      begin
        Parent := SpinForm;
        Top := 202;
        Left := 110;
        Width := 70;
        Height := 21;
        Font.Color := clBlack;
        Hint := 'Type your password here';
        ShowHint := True;
      end;
  Active1 := TCheckBox.Create(SpinForm);
    with Active1 do
      begin
        Parent := SpinForm;
        Top := 200;
        Left := 20;
        Width := 15;
        Height := 15;
        Caption := '';
        Hint := 'Active?';
        ShowHint := True;
      end;
  User2 := TLabel.Create(SpinForm);
    with User2 do
      begin
        Parent := SpinForm;
        Top := 260;
        Left := 50;
        Width := 49;
        Height := 13;
        Caption := 'Username:';
      end;
  Pass2 := Tlabel.Create(SpinForm);
    with Pass2 do
      begin
        Parent := SpinForm;
        Top := 290;
        Left := 50;
        Width := 49;
        Height := 13;
        Caption := 'Password:';
      end;
  UserTxt2 := TEdit.Create(SpinForm);
    with UserTxt2 do
      begin
        Parent := SpinForm;
        Top := 251;
        Left := 110;
        Width := 70;
        Height := 21;
        Font.Color := clBlack;
        Hint := 'Type your username here';
        ShowHint := True;
      end;
  PassTxt2 := TEdit.Create(SpinForm);
    with PassTxt2 do
      begin
        Parent := SpinForm;
        Top := 282;
        Left := 110;
        Width := 70;
        Height := 21;
        Font.Color := clBlack;
        Hint := 'Type your password here';
        ShowHint := True;
      end;
  Active2 := TCheckBox.Create(SpinForm);
    with Active2 do
      begin
        Parent := SpinForm;
        Top := 280;
        Left := 20;
        Width := 15;
        Height := 15;
        Caption := '';
        Hint := 'Active?';
        ShowHint := True;
      end;
  YesRNo := TLabel.Create(SpinForm);
    with YesRNo do
      begin
        Parent := SpinForm;
        Top := 80;
        Left := 10;
        Width := 49;
        Height := 13;
        Caption := 'Active?'
      end;
end;

procedure SafeShowSF;
var tva: TVariantArray;
begin
  SetArrayLength(TVa, 0);
  ThreadSafeCall('MakeForm', TVa);
end;

procedure ShowFormModal;
begin
  SpinForm.ShowModal;
end;

procedure SafeShowFormModal;
var TVa: TVariantArray;
begin
  SetArrayLength(TVa, 0);
  ThreadSafeCall('ShowFormModal', TVa);
end;

procedure Form;
begin
  SafeShowSF;
  SafeShowFormModal;
  Username := UserTxt.Text;
  Password := PassTxt.Text;
  Username1 := UserTxt1.Text;
  Password1 := PassTxt1.Text;
  Username2 := UserTxt2.Text;
  Password2 := PassTxt2.Text;
end;

procedure ProgressReport;
  begin
    begin
      WriteLn(' ');
      WriteLn('-----==============BStringer V0.4==============-----');
      WriteLn('-----====                                  ====-----');
      WriteLn('-----====Worked For '+ TimeRunning+    '====-----');
      WriteLn('-----====  Banked '+IntToStr(Banked)+' Times                  ====-----');
      WriteLn('-----====  Flax Spun '+IntToStr(FlaxSpun)+'                    ====-----');
      WriteLn('-----====            Thank You             ====-----');
      WriteLn('-----====                                  ====-----');
      WriteLn('-----==========================================-----');
    end;
end;

procedure DeclarePlayers;
begin
  HowManyPlayers  := 3;//HOW MANY PLAYERZZZZ
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  SRLID         := MySRLID;
  SRLPassword   := MySRLPassword;

  Players[0].Name := Username;//USERNAME
  Players[0].Pass := Password;//PASSWORD
  Players[0].Nick := 'Nick';//NICKNAME
  Players[0].Active := Active.Checked = True;//ACTIVE
  Players[0].Integers[0] := HowManyFlaxPerPlayer;//HOW MANY FLAX DO YOU WANT TO SPIN?

  Players[1].Name := Username1;//USERNAME
  Players[1].Pass := Password1;//PASSWORD
  Players[1].Nick := 'Nick';//NICKNAME
  Players[1].Active := Active1.Checked = True;//ACTIVE
  Players[1].Integers[0] := HowManyFlaxPerPlayer;//HOW MANY FLAX DO YOU WANT TO SPIN?

  Players[2].Name := Username2;//USERNAME
  Players[2].Pass := Password2;//PASSWORD
  Players[2].Nick := 'Nick';//NICKNAME
  Players[2].Active := Active2.Checked = True;//ACTIVE
  Players[2].Integers[0] := HowManyFlaxPerPlayer;//HOW MANY FLAX DO YOU WANT TO SPIN?

  LoadPlayerArray;
end;



procedure DoorOpener; //Made By Jason2gs tweaked by me
 var
 Tries : Integer;
 DoorColor: Integer;
  begin
    DoorColor:= 2575472;
    repeat
      Wait(500 + Random(100));
        if(FindColorSpiralTolerance(x, y, DoorColor, MSX1, MSY1, MSX2, MSY2, 100))then
          MMouse(x, y, 1, 1);
          Tries := Tries + 1;
    if(Tries >= 5)then
     begin
      KeyDown(37);
      Wait(1000 + Random(1000));
      KeyUp(37);
      Tries := 0;
     end;
   until(IsUpText('Door') or IsUpText('Gate'));
    if(IsUpText('Open'))then
     begin
      Writeln('Found a door.');
      Mouse(x, y, 0, 0, False);
      ChooseOption('Open');
      Writeln('Opened door.');
     end;
    if(IsUpText('Close'))then
     begin
      Writeln('Door was already open.');
      Exit;
     end;
end;

procedure Bank;
begin
  Wait(1000+random(500));
  OpenBankFast('lumbridge');
  DepositAll;
  Withdraw(1, 1, 28);
  CloseBank;
  Banked := Banked + 1;
  ReportVars[0] :=FlaxSpun;
  ReportVars[1] :=Banked;
  SRLRandomsReport;
end;

procedure DontBan;
begin
  case Random(15) of
    9: BoredHuman;
    10: AlmostLogout;
    11: HoverSkill('crafting', false);
    12: RandomMovement;
    13: SayCurrentLevels('crafting');
    14: PickUpMouse
  end;
end;

function AutoFLCol: Integer;
var
  H, S, L: Extended;
  Points: TPointArray;
  Colors, UniqueColors: TIntegerArray;
  i, a: Integer;
  NewColor: Boolean;
begin
  if not LoggedIn then Exit;
  ColorToleranceSpeed(2);
  FindColorsSpiralTolerance(MMCX, MMCY, Points, 6513771, MMX1, MMY1, MMX2, MMY2, 19);
  if Length(Points) < 1 then
  begin
    ColorToleranceSpeed(1)
    Exit;
  end;
  Colors := GetColors(Points);

  for i := 0 to Length(Colors) -1 do
  begin
    NewColor := True;
    for a := 0 to GetArrayLength(UniqueColors) - 1 do
    begin
      if(UniqueColors[a] = Colors[i])then
      begin
        NewColor := False;
        Break;
      end;
    end;
    if(NewColor)then
    begin
      SetArrayLength(UniqueColors, GetArrayLength(UniqueColors) + 1);
      UniqueColors[GetArrayLength(UniqueColors) - 1] := Colors[i];
    end;
  end;
  for i := 0 to Length(UniqueColors) -1 do
  if UniqueColors[i] <> 0 then
  begin
    ColorToHSL(UniqueColors[i], H, S, L);
    if (H < 7) and (H > -2) then
      if (S < 7) and (S > 1) then
        if (L < 43) and (L > 28) then
          if CountColor(UniqueColors[i], MMX1, MMY1, MMX2, MMY2) > 50 then
          begin
            WriteLn('AutColor: '+IntTostr(UniqueColors[i]))
            Result := UniqueColors[i];
            Break;
          end;
  end;

  ColorToleranceSpeed(1);
end;

function AutoColorFloor: Integer;
var
 H, S, L: Extended;
 Points: TPointArray;
 Colors, UniqueColors: TIntegerArray;
 i, a: Integer;
 NewColor: Boolean;
begin
 if not LoggedIn then NextPlayer(False);
 ColorToleranceSpeed(2);
 FindColorsSpiralTolerance(MMCX, MMCY, Points, 7236982, MMX1, MMY1, MMX2, MMY2, 14);
 if Length(Points) < 1 then
 begin
   ColorToleranceSpeed(1)
   Exit;
 end;
 Colors := GetColors(Points);

 for i := 0 to Length(Colors) -1 do
 begin
   NewColor := True;
   for a := 0 to GetArrayLength(UniqueColors) - 1 do
   begin
     if(UniqueColors[a] = Colors[i])then
     begin
       NewColor := False;
       Break;
     end;
   end;
   if(NewColor)then
   begin
     SetArrayLength(UniqueColors, GetArrayLength(UniqueColors) + 1);
     UniqueColors[GetArrayLength(UniqueColors) - 1] := Colors[i];
   end;
 end;
 for i := 0 to Length(UniqueColors) -1 do
 if UniqueColors[i] <> 0 then
 begin
   ColorToHSL(UniqueColors[i], H, S, L);
   if (H < 100) and (H > 96) then
     if (S < 100) and (S > 2) then
       if (L < 48) and (L > 34) then
         if CountColor(UniqueColors[i], MMX1, MMY1, MMX2, MMY2) > 50 then
         begin
           WriteLn('Dloor Color: '+IntTostr(UniqueColors[i]))
           Result := UniqueColors[i];
           Break;
         end;
 end;

 ColorToleranceSpeed(1);
end;

procedure GoToSpinningWheelDoor; //By Boreas
var
MyDoors: array of DoorProfile;
MyTPA: array of tpoint;
i:integer;
begin
  MyDoors:= GetDoors;
  setarraylength(MyTPA,getarraylength(MyDoors));
  for i:=0 to getarraylength(MyDoors)-1 do
     MyTPA[i]:=MyDoors[i].midpoint;
  MyTPA:= RearrangeTPA(MyTPA,0,1,false,false);
  Mouse(MyTPA[1].x,MyTPA[1].y,1,1,true);
  Flag;
end;

procedure DownStairs;
var Fl1Col: integer;
var StCol: integer;
var xpos: integer;
var ypos: integer;
begin
    if not LoggedIn then Players[CurrentPlayer].Active := False;
  HighestAngle;
  MakeCompass('N');
  SetRun(True);
  GameTab(4);
  Fl1Col:= AutoColorFloor;
  RadialWalk(Fl1Col , 204, 195, 51, 0, 0);
    if RadialWalk(Fl1Col , 204, 195, 51, 0, 0) then
      begin
        Writeln('Walked to stairs');
      end;
    if(not RadialWalk(Fl1Col , 204, 195, 51, 0, 0)) then
      begin
       WriteLn('Could Not Find Stairs');
       NextPlayer(False);
      end
  Wait(3000+Random(750));
  StCol := StairColor;
  FindColorSpiral(x, y, StCol, 109, 111, 317, 284);
  MMouse(x+10, y+10, 1, 1);
    if (IsUpText('own')) then
       begin
         GetMousePos(xpos, ypos);
         Mouse(xpos, ypos, 1, 1, True);
         wait(5000+Random(1000));
       end;
end;

procedure SpinningWheel;
begin
  if not LoggedIn then Players[CurrentPlayer].Active := False;
  if(FindObj(x, y, 'pinning', 607590, 20)) then
    begin
      Writeln('Found Spinning Wheel');
      Mouse(x, y, 3, 3, true);
    end;
end;

procedure Spin;
begin
    if not LoggedIn then Players[CurrentPlayer].Active := False;
  wait(4000+Random(1000));
  Mouse(262, 113, 3, 3, false);
  ChooseOption('X');
  wait(3000+random(500));
  KeyDown(GetKeyCode('2'));
  KeyUp(GetKeyCode('2'));
  Wait(100 + Random(200));
  KeyDown(GetKeyCode('8'));
  KeyUp(GetKeyCode('8'));
  SendKeysVB('{ENTER}', false);
  Wait(1000+random(500));
  MakeCompass('N');
end;

procedure UpStairs;
begin
    if not LoggedIn then Players[CurrentPlayer].Active := False;
  RadialWalk(AutoFLCol , 232, 218, 27, 0, 0);
    if(FindObj(x, y, 'taircase', 537162, 20)) then
      begin
        wait(2000+random(1000));
        Mouse(x, y, 2, 2, true);
        Wait(1000+random(500));
        Mouse(267, 403, 2, 2, true);
        wait(3000+random(500));
      end;
end;

procedure ToBank;
var Fl1Col: integer;
begin
  if not LoggedIn then Players[CurrentPlayer].Active := False;
    if(FindSymbol(x, y, 'bank')) then
      begin
        Mouse(x, y, 2, 2, true);
        wait(2000+random(500));
      end;
  if(not(FindSymbol(x, y, 'bank'))) then
    begin
      if(FindSymbol(x, y, 'guide')) then
        begin
          Mouse(x, y, 2, 2, true);
          wait(2000+random(500));
        end;
    end;
  if(not(FindSymbol(x, y, 'guide'))) then
    begin
      Fl1Col:= AutoColorFloor;
      RadialWalk(Fl1Col, 1, 14, 40, 0, 0);
    end;
end;

procedure Setup;
begin
  SetupSRL;
  ScriptID := '267';
  ClearDebug;
  GetSelf.Visible := False;
  Form;
  GetSelf.Visible := True;
  DeclarePlayers;
  ActivateClient;
end;

procedure DoIt;
begin
  repeat
    DownStairs;
    GoToSpinningWheelDoor;
    DoorOpener;
    SpinningWheel;
    Spin;
    flaxspun := flaxspun + 28;
    Wait(Random(50));
    FindNormalRandoms;
    FindFight;
    if(FindNormalRandoms) then
      begin
        SpinningWheel;
        Spin;
      end;
    if(FindFight) then
      begin
        DoorOpener;
        UpStairs;
        ToBank;
        Bank;
        DownStairs;
        GoToSpinningWheelDoor;
        DoorOpener;
        SpinningWheel;
        Spin;
      end;
    repeat
      Wait(random(5000));
      DontBan;
      wait(random(3000));
      MMouseItem(28);
    until(IsUpText('tring'));
    MakeCompass('N');
    UpStairs;
    wait(3000+random(500));
    ToBank;
    Bank;
    ProgressReport;
  until(flaxspun = Players[CurrentPlayer].Integers[0])
end;

begin
  Setup;
  LogInPlayer;
  flaxspun := 0;
    repeat
      DoIt;
        if (flaxspun = Players[CurrentPlayer].Integers[0]) then
          begin
            Wait(5000 + random(1000));
            NextPlayer(Players[CurrentPlayer].Active);
          end;
    until(false)
end.

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

I am going to say yes. He is a community member and he knows how to script.

• he knows how to use form.
• Good use of antirandoms and antiban.
• Nice loops.
• He knows how to autocolor(or understands the concept).
• Has a nice, clean progress report and has nice script overall.

Good Job

meh its mostly the form and doesn't seem to compile…

No sorry

Line 381: [Error] (12631:11): Unknown identifier 'RearrangeTPA' in script C:\Program Files\SCAR 3.11\includes\SRL/SRL/Core/DoorProfiles.scar

From: hugolord
meh its mostly the form and doesn't seem to compile…

No sorry

Line 381: [Error] (12631:11): Unknown identifier 'RearrangeTPA' in script C:\Program Files\SCAR 3.11\includes\SRL/SRL/Core/DoorProfiles.scar

Samething happens for me.

Im saying no sorry, i can see you no alot of things that pwnaz0r said but but your declaring player thing seems wrong to me.

Sorry.

Meh, nobody seriously tests the scripts the applying people post, or I've never seen anyone actually test one. Also, IMO the scripting is more important than if it compiles or not (as long as there isn't any horrible and stupid mistakes). And in my opinion he shows enough knowledge with his script, and he's also quite active around the forums etc. so I'll go with a yes.

the error is not his fault, its srl's:)

From: iloveit8
the error is not his fault, its srl's:)

Yes! someone who saw it… it's something with Doorprofiles it's not his fault.
We all have to wait until SRL 4 is out to make everything 100% working guys.
Trye adding something from the extented folder, it'll end up in an error.
Even if you make a backup of it and try modify some things it'll still not work, or i am not that good in tweaking :p

Well about Bourdou, i saw him active around the forums and he is also helpfull so i'll give him a yes too

EDIT: that doorfinder looks like one i made, oh well :)

hmmm this is tough.

I would say that you should never ever turn in a script that doesnt work. I mean, this is the real world, if you want to skow you can script, than it should at least compile.

But I also looked through his code… he knows what he is doing.

And he has 400+ posts.
I don't think he is a leecher.

Yes from me.

I posted that you have to use the new doorprofiles posted by Boreas. I will find the link.
EDIT here it is, just replace this with your current one, and some variables are never used in doorprofiles, Boreas said you can just delete them. After that it compiles perfectly ;)
EDIT AGAIN Hobbit found that door opener thing and I gave credit to he said made it. Is it yours? I can adjust credits.
Here us the doorprofiles fix http://www.villavu.com/forum/showthread.php?t=16002?t=17580

you got my yes.

gl

Thank you

If you fix your multiplayer, you got a yes from me :)

Good enough for me.

I will fix mulitplayer right away 0.o
How is that?

The doorprofiles error is due to some versions of SRL floating around having RearrangeTPA in DoorProfiles.scar, and some in a plugin or in SCAR. Obviously he has it in DoorProfiles.scar and you don't, so its your fault :p.

From: Boreas
The doorprofiles error is due to some versions of SRL floating around having RearrangeTPA in DoorProfiles.scar, and some in a plugin or in SCAR. Obviously he has it in DoorProfiles.scar and you don't, so its your fault :p.

I posted the link to the fixed one :) Thanks

From: Boreas
The doorprofiles error is due to some versions of SRL floating around having RearrangeTPA in DoorProfiles.scar, and some in a plugin or in SCAR. Obviously he has it in DoorProfiles.scar and you don't, so its your fault :p.

Ok i get it, i'm stupid:p
I press link at your sig and replace it in SRL:)
EDIT: i don't have permittion to acces the link about DoorProfiles in your sig =/

I posted a link to it

nice work. so thats a yes ;).

keep on learing :)

TYVM And I will. Lovin' the tuts.

Something was weird with General Site Discussions permissions, making it so that SRL members couldn't see it but non members could. I think I fixed it.

Enough off topic, bottom line is don't mark down cuz you have different SRL versions.

The great one has posted yes, so I must post yes.

:p

The Multiplayer is just fine. He has it going from the form into the player array (in declare players). its below the form

Lol, thank you.

From: Bourdou

if not LoggedIn then NextPlayer(False);

if not LoggedIn then Players[CurrentPlayer].Active := False;

I ment these little things, if not LoggedIn then Players[CurrentPlayer].Active := False; will not break out of the function..

It's not a biggie, so I'll give you a yes :)

Ahh I see.

Oh! To do that can you just ad break?

From: r0b0t1
The great one has posted yes, so I must post yes.

:p

everyone can have his own opinion :p

There's a few additions that you could have with your script like multiplayer and such, but you're very active around the forums (yeah, I know we shouldn't talk about post count, but 400+ is pretty good… hehe) and I think you'll fit in nicely.

You also included me in your Thanks To: part of the script :p

You helped me ;)

Yes from me :)

tyvm

I cant believe I havent viewed this yet, yes from me!

:) thanks.

sry man but i voted no, i would vote yes but whenever someone gives you advice on how to fix a little something you always answer back with a question on how to do it…ex:

From: Bourdou
Oh! To do that can you just ad break?

i just dont know how much of this actually you understand and actually made, i know when i helped you on it last week it was a mess, and theres a lot of ppl who looked like have helped you from that point, so i dont know how much of it actually you made w/o others making it work when you couldn't sry :(

Ok. Just so you know though, most people just gave me suggestions on things I could add, but I understand why you made your decision.

From: HyperSecret
sry man but i voted no, i would vote yes but whenever someone gives you advice on how to fix a little something you always answer back with a question on how to do it…ex:



i just dont know how much of this actually you understand and actually made, i know when i helped you on it last week it was a mess, and theres a lot of ppl who looked like have helped you from that point, so i dont know how much of it actually you made w/o others making it work when you couldn't sry :(

ouch, if this is really through i think i've voted wrong?

Hi, just wanted to take a minute and spam up your thread, I see you don't need my vote, but I'll still take a minute to nod in your direction :)…

Good Luck,

~RAM

It's a yes from me… good luck.

From: HyperSecret
sry man but i voted no, i would vote yes but whenever someone gives you advice on how to fix a little something you always answer back with a question on how to do it…ex:



i just dont know how much of this actually you understand and actually made, i know when i helped you on it last week it was a mess, and theres a lot of ppl who looked like have helped you from that point, so i dont know how much of it actually you made w/o others making it work when you couldn't sry :(

I happen to have personally walked him through much of it. I don't know how much you helped him with but I know I refered him to certain tutorials and showed him a few secrets. You may remember that I was the one that helped you also? I believe this responce was a little harsh considering he is applying to SRL members just as we all did. Why should he ask advice on how to fix something on the forums when he already asked me ;). Anyways plz know the whole story be4 making assumptions.

- Pwnaz0r

From: pwnaz0r
I happen to have personally walked him through much of it. I don't know how much you helped him with but I know I refered him to certain tutorials and showed him a few secrets. You may remember that I was the one that helped you also? I believe this responce was a little harsh considering he is applying to SRL members just as we all did. Why should he ask advice on how to fix something on the forums when he already asked me ;). Anyways plz know the whole story be4 making assumptions.

- Pwnaz0r

i dont think it was harsh, it was just my opinion, and he understood why, but you showed me alittle tut…but im just sayin that i dont know how much he really "understands" of it thats all i was sayin

From: Bourdou

EDIT AGAIN Hobbit found that door opener thing and I gave credit to he said made it. Is it yours? I can adjust credits.

I never said it was mine. I told you twice on msn it was made by Jason2gs awhile ago and that I had used it in my tut runner ;)

Yes from me


edit:

From: Jason2gs
I do believe this kind of thing goes here.

Anyways, hi :)

I've put together a few simi-useful procedures here, and decided to share them with the rest of this community :p

 procedure ClickToContinueEx(Times:Integer);
 var
 Done : Integer;
  begin
   repeat
    ClickToContinue;
    Wait(500 + Random(500));
    Done := Done + 1;
   until(Times = Done);
  end;

Well, I got tired of typing in "ClickToContinue" over and over again, so I made a procedure for multiples of that command.

 procedure NPCFinder(NPCColor, Tol: Integer; Name: String);
 var
 Tries : Integer;
  begin
   repeat
   if(FindColorSpiralTolerance(x, y, NPCColor, MSX1, MSY1, MSX2, MSY2, Tol))then
    Wait(500 + Random(100));
    MMouse(x, y, 1, 1);
    Tries := Tries + 1;
    if(Tries >= 5)then
     begin
      KeyDown(37);
      Wait(1000 + Random(500));
      KeyUp(37);
      Tries := 0;
     end;
   until(IsUpText(Name));
    Mouse(x, y, 0, 0, False);
    ChooseOption(x, y, 'Talk');
  end;

This one and the next are pretty much in the same boat. They're just very simple ways of opening doors/talking to NPCs.

 procedure DoorOpener(DoorColor, Tol:Integer);
 var
 Tries : Integer;
  begin
   repeat
    Wait(500 + Random(100));
    if(FindColorSpiralTolerance(x, y, DoorColor, MSX1, MSY1, MSX2, MSY2, Tol))then
    MMouse(x, y, 1, 1);
    Tries := Tries + 1;
    if(Tries >= 5)then
     begin
      KeyDown(37);
      Wait(1000 + Random(1000));
      KeyUp(37);
      Tries := 0;
     end;
   until(IsUpText('Door') or IsUpText('Gate'));
    if(IsUpText('Open'))then
     begin
      Writeln('Found a door.');
      Mouse(x, y, 0, 0, False);
      ChooseOption(x, y, 'Open');
      Writeln('Opened door.');
     end;
    if(IsUpText('Close'))then
     begin
      Writeln('Door was already open.');
      Exit;
     end;
  end;

Enjoy! Tell me what you think them.

I'll add more later on ;)

Welcome.