SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
Know some Java

Other Communitys


How Long have You Played Runescape
4 years

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

I have always been interested in programming. worked on just about anything i can ive modified games on my computer when possible then i started workin on scar and learning java. i always try to make what ive got better than it is and like it when people give some constructive critisism

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

Program StuntsFlaxSpinner;
{.include SRL/SRL/Misc/Smart.scar}
{.include SRL/SRL.scar}


Const


SmartWorld         = 'world160';
TotalRunningTimeWanted=2400;  //in minutes
TimePerPlayer      = 60;    //in minutes
Flax               = 13420640;
Bowstring          = 5929348;
Door               = 4939374;
Saph               = 9579048;
Ruby               = 2437265;
Emer               = 2924585;
StrangeFruit       = 12348051;
Gold               = 1413040;
NumOfPlayers       = 2;
YourSRLID          = '';
YourSRLPass        = '';
Version            = '2.07';

Var
x, y, GoToBankTries, PlayerBanks, SpinTimes, TotalFlax, PlayerFlax, I, a,
 CastleColor, MyDTMPlant, StairDTM, PlayerTime, TotalTimeWanted, BankDTM,
 GoldPiles, Saphires, Rubies, Emeralds, StrangeFruitPicked, FlaxPicked: integer;

Label MYLABEL1;

Procedure DeclarePlayers;
Begin
  NumberOfPlayers(NumOfPlayers);
  CurrentPlayer := 0;
  
  Players[0].Name         := '';      // Username
  Players[0].Pass         := '';      // Password
  Players[0].Nick         := '';      // 3-4 letters from your username
  Players[0].Active       := True;    // Will we use
  Players[0].Booleans[0]  := False;    // True=Fill Inventory False=25flax and collect items
  Players[0].Strings[0]   := '0000';      // Your BankPin
  Players[0].Strings[1]   := 'magic'; // Choice To Use On Lamp
  Players[0].Integers[0]   := 10000    // How much Flax Player Will Spin if not make it to time Limit

  Players[1].Name         := '';      // Your UserName
  Players[1].Pass         := '';      // Your PassWord
  Players[1].Nick         := '';      // Your Nick (3-4 letters from your username)
  Players[1].Active       := False;    // Use this player ??
  Players[1].Booleans[0]  := True;    // True=Fill Inventory False=25flax and collect items
  Players[1].Strings[0]   := '0000';      // Your BankPin
  Players[1].Strings[1]   := 'magic'; // Choice To Use On Lamp
  Players[1].Integers[0]   := 50000    // How much Flax Player Will Spin if not make it to time Limit
{
  Players[2].Name         := '';      // Your UserName
  Players[2].Pass         := '';      // Your PassWord
  Players[2].Nick         := '';      // Your Nick (3-4 letters from your username)
  Players[2].Active       := True;    // Use this player ??
  Players[2].Booleans[0]  := True;    // True=Fill Inventory False=25flax and collect items
  Players[2].Strings[0]   := '';      // Your BankPin
  Players[2].Strings[1]   := 'magic'; // Choice To Use On Lamp
  Players[2].Integers[0]   := 1000    // How much Flax Player Will Spin if not make it to time Limit

  Players[3].Name         := '';      // Your UserName
  Players[3].Pass         := '';      // Your PassWord
  Players[3].Nick         := '';      // Your Nick (3-4 letters from your username)
  Players[3].Active       := True;    // Use this player ??
  Players[3].Booleans[0]  := True;    // True=Fill Inventory False=25flax and collect items
  Players[3].Strings[0]   := '';      // Your BankPin
  Players[3].Strings[1]   := 'magic'; // Choice To Use On Lamp
  Players[3].Integers[0]   := 1000    // How much Flax Player Will Spin if not make it to time Limit
 }
End;


Procedure ProgressReport;
Begin
  WriteLn('');
  WriteLn('~~~~~~~~~~~~~~~~~~~~~~~ Progress Report ~~~~~~~~~~~~~~~~~~~~~~~');
  WriteLn('');
  WriteLn('~ Player        : ' + Players[CurrentPlayer].Name);
  WriteLn('~ Total Time    : ' + Timerunning);
  WriteLn('~ Player Time   : ' + IntToStr(TimeFromMark(PlayerTime) / 60000) + ' minutes');
  WriteLn('~ Flax spun     : ' + IntToStr(PlayerFlax));
  WriteLn('~ Total Flax    : ' + IntToStr(ToTalFlax));
  WriteLn('~ Saphires      : ' + IntToStr(Saphires));
  WriteLn('~ Rubies        : ' + IntToStr(Rubies));
  WriteLn('~ Emeralds      : ' + IntToStr(Emeralds));
  WriteLn('~ GoldPiles     : ' + IntToStr(GoldPiles));
  WriteLn('~ Flax Found    : ' + IntToStr(FlaxPicked));
  WriteLn('~ Strange Fruit : ' + IntToStr(StrangeFruitPicked));
  WriteLn('');
  WriteLn('~~');
End;

Function IntoSpinRoom : Integer;
var
  dtmMainPoint: TDTMPointDef;
  dtmSubPoints: Array [0..2] of TDTMPointDef;
  TempTDTM: TDTM;
begin
  dtmMainPoint.x := 646;
  dtmMainPoint.y := 97;
  dtmMainPoint.AreaSize := 1;
  dtmMainPoint.AreaShape := 0;
  dtmMainPoint.Color := 16711422;
  dtmMainPoint.Tolerance := 100;

  dtmSubPoints[0].x := 663;
  dtmSubPoints[0].y := 46;
  dtmSubPoints[0].AreaSize := 2;
  dtmSubPoints[0].AreaShape := 0;
  dtmSubPoints[0].Color := CastleColor;
  dtmSubPoints[0].Tolerance := 3;

  dtmSubPoints[1].x := 620;
  dtmSubPoints[1].y := 86;
  dtmSubPoints[1].AreaSize := 2;
  dtmSubPoints[1].AreaShape := 0;
  dtmSubPoints[1].Color := CastleColor;
  dtmSubPoints[1].Tolerance := 3;

  dtmSubPoints[2].x := 663;
  dtmSubPoints[2].y := 110;
  dtmSubPoints[2].AreaSize := 2;
  dtmSubPoints[2].AreaShape := 0;
  dtmSubPoints[2].Color := 2105598;
  dtmSubPoints[2].Tolerance := 15;

  TempTDTM.MainPoint := dtmMainPoint;
  TempTDTM.SubPoints := dtmSubPoints;

  Result := AddDTM(TempTDTM);
end;

Function IntoBankRoom : Integer;
var
  dtmMainPoint: TDTMPointDef;
  dtmSubPoints: Array [0..2] of TDTMPointDef;
  TempTDTM: TDTM;
begin
  dtmMainPoint.x := 674;
  dtmMainPoint.y := 89;
  dtmMainPoint.AreaSize := 1;
  dtmMainPoint.AreaShape := 0;
  dtmMainPoint.Color := 16711422;
  dtmMainPoint.Tolerance := 100;

  dtmSubPoints[0].x := 665;
  dtmSubPoints[0].y := 48;
  dtmSubPoints[0].AreaSize := 2;
  dtmSubPoints[0].AreaShape := 0;
  dtmSubPoints[0].Color := CastleColor;
  dtmSubPoints[0].Tolerance := 3;

  dtmSubPoints[1].x := 622;
  dtmSubPoints[1].y := 85;
  dtmSubPoints[1].AreaSize := 2;
  dtmSubPoints[1].AreaShape := 0;
  dtmSubPoints[1].Color := CastleColor;
  dtmSubPoints[1].Tolerance := 3;

  dtmSubPoints[2].x := 689;
  dtmSubPoints[2].y := 84;
  dtmSubPoints[2].AreaSize := 2;
  dtmSubPoints[2].AreaShape := 0;
  dtmSubPoints[2].Color := CastleColor;
  dtmSubPoints[2].Tolerance := 15;

  TempTDTM.MainPoint := dtmMainPoint;
  TempTDTM.SubPoints := dtmSubPoints;

  Result := AddDTM(TempTDTM);
end;

Procedure DetectItems;
Begin
  X := MSCX
  Y := MSCY
  If FindColorSpiralTolerance(X, Y, Ruby, MSX1, MSY1, MSX2, MSY2, 15)Then
  Begin
    MMouse(x, y, 0, 0);
    If IsUpText('uby') Then
    Begin
      Mouse(x, y, 0, 0, True);
      Rubies := Rubies + 1;
    End;
  End;
  X := MSCX
  Y := MSCY
  If FindColorSpiralTolerance(X, Y, Emer, MSX1, MSY1, MSX2, MSY2, 15)Then
  Begin
    MMouse(x, y, 0, 0);
    If IsUpText('merald') Then
    Begin
      Mouse(x, y, 0, 0, True);
      Emeralds := Emeralds + 1;
    End;
  End;
  X := MSCX
  Y := MSCY
  If FindColorSpiralTolerance(X, Y, Saph, MSX1, MSY1, MSX2, MSY2, 15)Then
  Begin
    MMouse(x, y, 0, 0);
    If IsUpText('aphire') Then
    Begin
      Mouse(x, y, 0, 0, True);
      Saphires := Saphires + 1;
    End;
  End;
  X := MSCX
  Y := MSCY
  If FindColorSpiralTolerance(X, Y, Gold, MSX1, MSY1, MSX2, MSY2, 15)Then
  Begin
    MMouse(x, y, 0, 0);
    If IsUpText('oin') Then
    Begin
      Mouse(x, y, 0, 0, True);
      GoldPiles := GoldPiles + 1;
    End;
  End;
  X := MSCX
  Y := MSCY
  If FindColorSpiralTolerance(X, Y, StrangeFruit, MSX1, MSY1, MSX2, MSY2, 15)Then
  Begin
    MMouse(x, y, 0, 0);
    If IsUpText('Take') Then
    Begin
      Mouse(x, y, 0, 0, True);
      StrangeFruitPicked := StrangeFruitPicked + 1;
    End;
  End;
  X := MSCX
  Y := MSCY
  If FindColorSpiralTolerance(X, Y, Flax, MSX1, MSY1, MSX2, MSY2, 15)Then
  Begin
    MMouse(x, y, 0, 0);
    If IsUpText('lax') Then
    Begin
      Mouse(x, y, 0, 0, True);
      FlaxPicked := FlaxPicked + 1;
    End;
  End;
End;

Function GetLadderColor: Integer;

var
  GC, a, l, TestColor, Red, Green, Blue : integer;
var
  P:array of Tpoint;


Begin
  GC := 339554;
  Flag;
  FindColorsSpiralTolerance(MMCX, MMCY, P, GC, MMX1, MMY1, MMX2, MMY2, 50);
  l:=GetArrayLength(P);
  for a:= 0 to l-1 do
  begin
    if rs_OnMinimap(P[a].x,P[a].y) then
    begin
      TestColor := GetColor(P[a].x,P[a].y);
      if SimilarColors(TestColor,GC,50) then
      begin
        red := (TestColor mod 256);
        green := ((TestColor / 256) mod 256);
        blue := ((TestColor / 256) / 256);
        if Red - Green <= 81 then if Red - Green >= 16 then
          if Red - Blue >= 58 then if Red - Blue <= 113 then
            if Blue - Green >= -68 then if Blue - Green <= -11 then
              if GetColor(P[a].x + 1, P[a].y + 1) = TestColor then
                if GetColor(P[a].x, P[a].y + 1) = TestColor then
                  if GetColor(P[a].x + 2, P[a].y + 1) = TestColor then
                    if GetColor(P[a].x, P[a].y - 1) = TestColor then
                      if GetColor(P[a].x + 1, P[a].y - 1) = TestColor then
                        if GetColor(P[a].x + 2, P[a].y - 1) = TestColor then
                          begin
                            Result := TestColor;
                            WriteLn('LadderColor = ' + IntToStr(TestColor));
                            Exit;
                          end;
      end;
    end;
  end;
  WriteLn('Could not find LadderColor!');
  Result := 0;
end;

Function IfFlax(q: Integer): Boolean;
Begin
  Case q of
    1 : If FindColortolerance(x, y, Flax, 560, 217, 593, 247, 15) Then Result := True Else Result := False;
    2 : If FindColortolerance(x, y, Flax, 605, 217, 638, 247, 15) Then Result := True Else Result := False;
    3 : If FindColortolerance(x, y, Flax, 644, 217, 686, 247, 15) Then Result := True Else Result := False;
    4 : If FindColortolerance(x, y, Flax, 686, 217, 728, 247, 15) Then Result := True Else Result := False;
    5 : If FindColortolerance(x, y, Flax, 560, 247, 593, 282, 15) Then Result := True Else Result := False;
    6 : If FindColortolerance(x, y, Flax, 605, 247, 638, 282, 15) Then Result := True Else Result := False;
    7 : If FindColortolerance(x, y, Flax, 644, 247, 686, 282, 15) Then Result := True Else Result := False;
    8 : If FindColortolerance(x, y, Flax, 686, 247, 728, 282, 15) Then Result := True Else Result := False;
    9 : If FindColortolerance(x, y, Flax, 560, 282, 593, 320, 15) Then Result := True Else Result := False;
    10 : If FindColortolerance(x, y, Flax, 605, 282, 638, 320, 15) Then Result := True Else Result := False;
    11 : If FindColortolerance(x, y, Flax, 644, 282, 686, 320, 15) Then Result := True Else Result := False;
    12 : If FindColortolerance(x, y, Flax, 686, 282, 728, 320, 15) Then Result := True Else Result := False;
    13 : If FindColortolerance(x, y, Flax, 560, 320, 593, 353, 15) Then Result := True Else Result := False;
    14 : If FindColortolerance(x, y, Flax, 605, 320, 638, 353, 15) Then Result := True Else Result := False;
    15 : If FindColortolerance(x, y, Flax, 644, 320, 686, 353, 15) Then Result := True Else Result := False;
    16 : If FindColortolerance(x, y, Flax, 686, 320, 728, 353, 15) Then Result := True Else Result := False;
    17 : If FindColortolerance(x, y, Flax, 560, 353, 593, 390, 15) Then Result := True Else Result := False;
    18 : If FindColortolerance(x, y, Flax, 605, 353, 638, 390, 15) Then Result := True Else Result := False;
    19 : If FindColortolerance(x, y, Flax, 644, 353, 686, 390, 15) Then Result := True Else Result := False;
    20 : If FindColortolerance(x, y, Flax, 686, 353, 728, 390, 15) Then Result := True Else Result := False;
    21 : If FindColortolerance(x, y, Flax, 560, 390, 593, 429, 15) Then Result := True Else Result := False;
    22 : If FindColortolerance(x, y, Flax, 605, 390, 638, 429, 15) Then Result := True Else Result := False;
    23 : If FindColortolerance(x, y, Flax, 644, 390, 686, 429, 15) Then Result := True Else Result := False;
    24 : If FindColortolerance(x, y, Flax, 686, 390, 728, 429, 15) Then Result := True Else Result := False;
    25 : If FindColortolerance(x, y, Flax, 560, 429, 593, 462, 15) Then Result := True Else Result := False;
    26 : If FindColortolerance(x, y, Flax, 605, 429, 638, 462, 15) Then Result := True Else Result := False;
    27 : If FindColortolerance(x, y, Flax, 644, 429, 686, 462, 15) Then Result := True Else Result := False;
    28 : If FindColortolerance(x, y, Flax, 686, 429, 728, 462, 15) Then Result := True Else Result := False;
  End;
End;

Function IfBS(q: Integer): Boolean;
Begin
  Case q of
    1 : If FindColortolerance(x, y, BowString, 560, 217, 593, 247, 15) Then Result := True Else Result := False;
    2 : If FindColortolerance(x, y, BowString, 605, 217, 638, 247, 15) Then Result := True Else Result := False;
    3 : If FindColortolerance(x, y, BowString, 644, 217, 686, 247, 15) Then Result := True Else Result := False;
    4 : If FindColortolerance(x, y, BowString, 686, 217, 728, 247, 15) Then Result := True Else Result := False;
    5 : If FindColortolerance(x, y, BowString, 560, 247, 593, 282, 15) Then Result := True Else Result := False;
    6 : If FindColortolerance(x, y, BowString, 605, 247, 638, 282, 15) Then Result := True Else Result := False;
    7 : If FindColortolerance(x, y, BowString, 644, 247, 686, 282, 15) Then Result := True Else Result := False;
    8 : If FindColortolerance(x, y, BowString, 686, 247, 728, 282, 15) Then Result := True Else Result := False;
    9 : If FindColortolerance(x, y, BowString, 560, 282, 593, 320, 15) Then Result := True Else Result := False;
    10 : If FindColortolerance(x, y, BowString, 605, 282, 638, 320, 15) Then Result := True Else Result := False;
    11 : If FindColortolerance(x, y, BowString, 644, 282, 686, 320, 15) Then Result := True Else Result := False;
    12 : If FindColortolerance(x, y, BowString, 686, 282, 728, 320, 15) Then Result := True Else Result := False;
    13 : If FindColortolerance(x, y, BowString, 560, 320, 593, 353, 15) Then Result := True Else Result := False;
    14 : If FindColortolerance(x, y, BowString, 605, 320, 638, 353, 15) Then Result := True Else Result := False;
    15 : If FindColortolerance(x, y, BowString, 644, 320, 686, 353, 15) Then Result := True Else Result := False;
    16 : If FindColortolerance(x, y, BowString, 686, 320, 728, 353, 15) Then Result := True Else Result := False;
    17 : If FindColortolerance(x, y, BowString, 560, 353, 593, 390, 15) Then Result := True Else Result := False;
    18 : If FindColortolerance(x, y, BowString, 605, 353, 638, 390, 15) Then Result := True Else Result := False;
    19 : If FindColortolerance(x, y, BowString, 644, 353, 686, 390, 15) Then Result := True Else Result := False;
    20 : If FindColortolerance(x, y, BowString, 686, 353, 728, 390, 15) Then Result := True Else Result := False;
    21 : If FindColortolerance(x, y, BowString, 560, 390, 593, 429, 15) Then Result := True Else Result := False;
    22 : If FindColortolerance(x, y, BowString, 605, 390, 638, 429, 15) Then Result := True Else Result := False;
    23 : If FindColortolerance(x, y, BowString, 644, 390, 686, 429, 15) Then Result := True Else Result := False;
    24 : If FindColortolerance(x, y, BowString, 686, 390, 728, 429, 15) Then Result := True Else Result := False;
    25 : If FindColortolerance(x, y, BowString, 560, 429, 593, 462, 15) Then Result := True Else Result := False;
    26 : If FindColortolerance(x, y, BowString, 605, 429, 638, 462, 15) Then Result := True Else Result := False;
    27 : If FindColortolerance(x, y, BowString, 644, 429, 686, 462, 15) Then Result := True Else Result := False;
    28 : If FindColortolerance(x, y, BowString, 686, 429, 728, 462, 15) Then Result := True Else Result := False;
  End;
End;

Procedure AntiBan;
Var
  B: Integer;

Begin
  If Not LoggedIn Then Exit;
  B := Random(180);
  Case B Of
    0: HoverSkill('random', False);
    1: HoverSkill('random', False);
    2: HoverSkill('Crafting', False);
    3: PickUpMouse;
    4: MMouse(Random(MSX2), Random(MSY2), 0, 0);
    5: Begin
         TypeSend('Crafting lvl??');
         Mouse(85, 465, 5, 5, True);
         Wait(250);
         KeyDown(GetKeyCode('x'));
         Wait(50);
         KeyUp(GetKeyCode('x'));
         Wait(300);
         KeyDown(GetKeyCode('2'));
         Wait(50);
         KeyUp(GetKeyCode('2'));
       End;
    6: TypeSend('.                                                                                     Help');
  End;
  GameTab(4);
End;

Procedure DetectPlant;
begin
  MyDTMPlant:=DTMFromString('78DA635CC9C8C0E002C44820DEB58A410448C' +
       '34419370059EE109E08542C24971755CD5220CB1A558D6F0A0F8A' +
       '1A006E1305DE');
  if FindDTM(MYDTMPlant, x, y, 0, 0, 515, 335)Then
  Begin
    If FindBlackChatMessage('unable') Then Exit;
    Mouse(x, y, 0, 0, False);
    ChooseOption('Pick');
    If FindColorTolerance(x, y, 11822733, 550, 205, 725, 460, 15)Then
    Plants:= Plants + 1;
  End;
end;

Function NumPlayAct: Integer;
Begin
  Result := 0
  For I :=0 To NumOfPlayers - 1 Do
  If Players[I].Active Then Result := Result + 1;
  If Result = 0 Then
  Begin
    WriteLn('No Active Players');
    TerminateScript;
  End;
End;

Procedure GetFlax;
Label Getflaxlabel;
Begin
  BankDTM := DTMFromString('78DA633460646058C380020A127C19F881342' +
       '394CF5809246641D85C50B10B174EA1AAA903120DA86A52E3E250' +
       'D53402890DA86A0C747550D508035925A86A66CDEA4755C3C4C4C' +
       '020C588A2C63A713EAA1A53202B00D59CC5B39A50D4000075F40F' +
       'EE');
  If Not LoggedIn Then Exit;
  a:=0
  Repeat
  If Not LoggedIn Then Exit;
  If GoToBankTries >= 3 Then SymbolAccuracy := 0.5;
  FindNormalRandoms;
  MakeCompass('W');
  If DTMRotated(IntoBankRoom, x, y, MMX1, MMY1, MMX2, MMY2)Then
  Begin
    Mouse(X, Y, 3, 3, True);
    FFlag(0);
    FindNormalRandoms;
    Wait(1000);
  End Else
  If FindSymbol(x, y, 'Bank')Then
  Begin
    Mouse(x+15, y, 0, 0, True);
    FFlag(0);
    FindNormalRandoms;
    Wait(1000);
  End;
  GameTab(4);
  If DTMRotated(BankDTM, X, Y, MSX1, MSY1, MSX2, MSY2)Then
  Begin
    Mouse(x, y, 4, 4, False);
    ChooseOption('uickly');
    FindNormalRandoms;
    GetFlaxLabel:
    Wait(1500);
    If InPin(Players[CurrentPlayer].Strings[0]) Then
    Wait(1500);
    DepositAll;
    Begin
      If FindObjTPA(x, y, Flax, 10, -1, 2, 2, 1, ['Flax', 'lax'])Then
      Begin;
        Mouse(x,y,0,0,false);
        Wait(400);
        If Players[CurrentPlayer].Booleans[0] Then ChooseOption('All') Else
        Begin
          If PlayerFlax = 0 Then
          Begin
            ChooseOption('X');
            Wait(RandomRange(500, 750));
            TypeSend('25');
          End Else
          Begin
            ChooseOption('25');
          End;
        End;
      Wait(RandomRange(1000, 1500));
      End;
      If a>4 Then
      Begin
        WriteLn('Couldn''t Find Flax');
        NextPlayer(False);
        ProgressReport;
      End;
    End;
    CloseBank;
  End Else
  Begin
    OpenBankFast('lb');
    GoTo Getflaxlabel;
  End;
  MakeCompass('W');
  FindNormalRandoms;
  Wait(RandomRange(1000,1500));
  a:=a+1
  Until(FindColorTolerance(x,y,Flax,550,200,725,460,15))
  If Not LoggedIn Then Exit;
  FindNormalRandoms;
  Banks := Banks + 1
  PlayerBanks := PlayerBanks + 1
  SymbolAccuracy := 0.6;
End;

Procedure GoToSpin;
Begin
  StairDTM := DTMFromString('78DA633CC9C0C0D0C780027CBCDD184480342' +
       '310FF0702C697404627AA9A187F3B062EA81A1060BC032416A3AA' +
       '696BA94155B311482C4455931DED81AA662DA65D79715EA86ACE0' +
       '289165435F9B9E9A86A3E01891254354921CE286A00842B158E');
  If Not LoggedIn Then Exit;
  FindNormalRandoms;
  Repeat
  If Not LoggedIn Then Exit;
  If FindColorTolerance(x, y, CastleColor, 560, 50, 600, 115, 5) Then
  Begin
    Mouse(x,y,0,0,True);
    FFlag(0);
    FindNormalRandoms;
    Wait(1000);
  End;
  X := 200;
  Y := 150;
  If FindObjTPA(x, y, 4280671, 10, -1, 5, 5, 10, ['air', 'case'])Then
  Begin
    Mouse(x, y, 0, 0, True);
    FTWait(20);
  End;
  Until(FindSymbol(x,y,'Spin') or FindSymbol(x, y, 'quest'));
  X := 470;
  Y := 250;
  If FindObjEx(x, y, ['Door', 'Open', 'oor', 'pen'], [Door], 15, 2, 460, 170, 500, 322) Then
  Begin
    MMouse(x, y, 0, 0);
    If IsUpText('pen')then
    Begin
      Mouse(x,y,0,0,False);
      If ChooseOption('pen')Then Wait(2000 + Random(500));
    End;
  End;
End;

Procedure SpinFlax;

Label GoToSpinner, BackAtSpinner;

Begin
  If Not LoggedIn Then Exit;
  SpinTimes := 0;
  Repeat;
  If Not LoggedIn Then Exit;
  If GetColor(227, 304)<>0 Then Goto GoToSpinner;
  If SpinTimes = 0 Then
  Begin
    If FindSymbol(x, y, 'Spin')Then
    Begin
      x:=430;
      y:=300;
    End;
    Wait(200);
  End Else
  Begin
    X:= 215;
    Y:= 175;
  End;
  BackAtSpinner:
  FindNormalRandoms;
  If FindObjTPA(x, y, 4346721, 10, -1, 5, 5, 10, ['pin', 'heel'])Then
  Begin
    Mouse(x,y,0,0,false);
    ChooseOption('Spin');
    FTWait(5);
    While FFlag(0) Do
      Begin
        X := 243;
        Y := 183;
        FindNormalRandoms;
        If FindObjEx(x, y, ['Door', 'Open', 'oor', 'pen'], [Door], 15, 2, 221, 158, 266, 207) Then
        Begin
          MMouse(x, y, 0, 0);
          If IsUpText('pen')then
          Begin
            Mouse(x,y,0,0,False);
            If ChooseOption('pen')Then Wait(2000 + Random(500));
          End;
        End;
      End;
    If FindColorTolerance(x,y,BowString,225,90,310,165,15)Then
    Begin;
      Mouse(x,y,0,0,false);
      FTWait(5);
      ChooseOption('All');
      FTWait(3);
    End;
    FindNormalRandoms;
    AntiBan;
    For I:=1 To 28 Do
    Begin
      GameTab(4);
      FindNormalRandoms;
      DetectItems;
      If IfFlax(I) Then
      Begin
        FTWait(8);
        DetectItems;
        FindNormalRandoms;
        If FindFight Then
        Begin;
          RunTo('E', True);
          SetRun(True);
          GameTab(4);
        End;
        DetectPlant;
        If Not IfBS(I) Then
        Begin
          SpinTimes := SpinTimes + 1;
          Break;
        End;
      End;
    End;
  End Else
  Begin
    GoToSpinner:
    If DTMRotated(IntoSpinRoom, x, y, MMX1,MMY1, MMX2, MMY2) Then
    Begin
      Mouse(x, y, 2, 2, True);
      FFlag(0);
      X := 200;
      Y := 173;
    End Else
    If FindSymbol(x, y, 'Spin')Then
    Begin
      Mouse(x+5,y+5,0,0,true);
      FTWait(25);
      FindColoredAreaTolerance(x, y, 14145500, 0, 0, 400, 340, 50, 20);
      Mouse(x,y,0,0,true);
      While FFlag(0) Do
      Begin
        X := 243;
        Y := 183;
        If FindObjEx(x, y, ['Door', 'Open', 'oor', 'pen'], [Door], 15, 2, 221, 158, 266, 207) Then
        Begin
          MMouse(x, y, 0, 0);
          If IsUpText('pen')then
          Begin
            Mouse(x,y,0,0,False);
            If ChooseOption('pen')Then Wait(2000 + Random(500));
          End;
        End;
      End;
      X:=220;
      y:=70;
    End;
    Wait(200);
    GoTo BackAtSpinner;
  End;
  GameTab(4);
  MakeCompass('W');
  SRLRandomsReport;
  If Not LoggedIn Then Exit;
  Until(Not(FindColorTolerance(x,y,Flax,550,204,720,460,5)));
  ReportVars[0] := ReportVars[0] + 25
  SendSRLReport;
End;


Procedure GoToBank;
Begin
  If Not LoggedIn Then Exit;
  X := 280;
  Y := 135;
  If FindObjEx(x, y, ['Door', 'Open', 'oor', 'pen'], [Door], 15, 2, 275, 45, 341, 151) Then
  Begin
    MMouse(x, y, 0, 0);
    If IsUpText('pen')then
    Begin
      Mouse(x,y,0,0,False);
      If ChooseOption('pen')Then Wait(2000 + Random(500));
    End;
  End;
  GotoBankTries := 0;
  Repeat;
  If Not LoggedIn Then Exit;
  x := 70
  y := 19
  If FindObjTPA(x, y, 4280671, 10, -1, 5, 5, 10, ['air', 'case'])Then
  Begin
    Mouse(x,y,0,0,False);
    ChooseOption('up');
    FTWait(5);
    While FFlag(0) Do
    Begin
      X := 248;
      Y := 146;
      FindNormalRandoms;
      If FindColorSpiralTolerance(x, y, Door, 200, 108, 296, 184, 15) Then
      Begin
        MMouse(x, y, 0, 0);
        If IsUpText('pen')then
        Begin
          Mouse(x,y,0,0,False);
          If ChooseOption('pen')Then Wait(2000 + Random(500));
        End;
      End;
    End;
    FindNormalRandoms;
    Wait(1000);
  End;
  If GoToBankTries >= 3 Then SymbolAccuracy := 0.5;
  GoToBankTries := GoToBankTries + 1;
  Until Not(FindSymbol(x, y, 'Spin'));
End;

Procedure SetUpPlayer;
Begin
  If Not LoggedIn Then Exit;
  SetAngle(True);
  Wait(RandomRange(300, 450));
  MakeCompass('N');
  Wait(RandomRange(300, 450));
  CastleColor := GetLadderColor;
  A := 0;
  Repeat
  If (CastleColor = 0)Then
  Begin
    If Not LoggedIn Then Exit;
    CastleColor := GetLadderColor;
    A := A + 1;
    If A >= 10 Then TerminateScript;
  End;
  Until(Not( CastleColor = 0));
  WriteLn('~~');
  WriteLn('CastleColor: ' + IntToStr(CastleColor));
  SetRun(True);
  MakeCompass('W');
  Wait(RandomRange(300, 450));
  GameTab(4);
End;

Procedure MainLoop;
Begin
  SymbolAccuracy := 0.6;
  NumPlayAct;
  If Not LoggedIn Then NextPlayer(False);
  GetFlax;
  SRLRandomsReport;
  SendSRLReport;
  Wait(500);
  GoToSpin;
  SpinFlax;
  GoToBank;
  NumPlayAct;
  SymbolAccuracy := 0.8;
End;

procedure SetupSmart;
begin
  SmartSetup(SmartWorld, True, True, false);
  ClearDebug;
  WriteLn('Setting up Smart... Please Hold...');
  Wait(10000 + random(5000));
  SetTargetDC(SmartGetDC);
  While not(SmartActive) do Wait(100);
end;

Begin
If (YourSRLID = '') Or (YourSRLPass = '') Then
  Begin
    WriteLn('~~');
    WriteLn('Please enter your SRLID and SRLPass in lines 21 and 22.');
    TerminateScript;
  End;
SetUpSRL;
SetUpSmart;
ScriptID := '799';
SRLID := YourSRLID;
SRLPassword := YourSRLPass;
ActivateClient;
DeclarePlayers;
MarkTime(TotalTimeWanted);
TotalFlax:=0
Repeat
  MarkTime(PlayerTime);
  PlayerBanks :=0;
  LoginPlayer;
  SetUpPlayer;
  PlayerFlax:=0
  LampSkill := Players[CurrentPlayer].Strings[1];
  Repeat
    MYLABEL1:
    MainLoop;
    If Not FindColorTolerance(x, y, BowString, 550, 204, 720, 460, 15) Then Goto MYLABEL1;
    If Players[CurrentPlayer].Booleans[0] Then PlayerFlax:= PlayerFlax+28 Else PlayerFlax := PlayerFlax+25;
    If Players[CurrentPlayer].Booleans[0] Then TotalFlax:= TotalFlax+28 Else TotalFlax := TotalFlax+25;
    ProgressReport;
  Until(PlayerFlax >= Players[CurrentPlayer].Integers[0]) or (Not( LoggedIn)) Or (TimeFromMark(PlayerTime) >= 60000 * TimePerPlayer)
  LogOut;
  NextPlayer(True);
Until(TimeFromMark(TotalTimeWanted) >= 60000 * TotalRunningTimeWanted) or (Not(LoggedIn))
End.

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

Yes, very nice, if i were you i would use dtms for saphs and things in inventory, but its your choice, it looks really good, you use TPA's have DDTM's, DTMs… Seems you are worthy of SRL membership

thank you ive been arguing with myself about applying for a while and i figued id give it a go i mean the worst that could happen is that they say no

From: stunts7058
thank you ive been arguing with myself about applying for a while and i figued id give it a go i mean the worst that could happen is that they say no

Even if it ends up that you dont make it, you will get LOADS of comments, and if you take it well or if its close, they will let you re-apply sooner than usual :D

yea i figured i could get a lot of tips and help on what problems i have so thats y i finally decided to apply

100% yes from me

better that ya last script ya applied with alot lot better im gunna use this so dont make it public just yet till i have had a good run at it..;) well theres not very much i cant complain on(well what i can see) just had a
good glimpse over it seems very finely tuned to me i'll have a better look a bit later….

yes this is SRL member worthy

GL :)

No becouse of the standaards phail in the main loop!

ok ok… yes… bleh! :p

From: MasterKill
No becouse of the standaards phail in the main loop!

ok ok… yes… bleh! :p

Wow, they really are… but standards are nice but dont have a whole lot of worth to me (although i script with good standards)

I want to say no eithen tho you are good i think you need to use arrays and for loops far more and get more comfortable with them eg for co-ords of item spaces

but im just not going to vote

also its best to have the user set up as little stuff as possible

No, its bannable.

Randomness, and also, you should use loops in some of your crazy long procedures.

Might i question how its bannable i run it just almost constantly and i aint been banned?

Welcome, sir.