SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
php, javascript, C++, delphi .and more

Other Communitys


How Long have You Played Runescape
2 years

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

Please vote YES :)
Program written completly by me :p I thing useful, nice filesafes, anti ban, autoresponder, multipleyer, radial walking, DTM's, Smart :)
EDIT:
I forgot about a month, sorry.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted

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


//~~~~~~~~~~~~
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
// Set up lines 14-21 and 35-46
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
//~~~~~~~~~~~~


Const
  WorldNumber        = 61;
  
  TimePerPlayer      = 60; // In minutes
  
  UseMusic           = 'No'; // Yes or No

  YourSRLID          = '';
  YourSRLPass        = '';

  Version            = '1.01';
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
//
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Var
  Tin, Copper, Iron, Silver, Coal, Gold, BarMask, FirstOreDTM, SecondOreDTM,
  Mithril, Adamant, Rune, MyMusicColor, MyTemporaryColor, OreMask, TempPWrite,
  xTempOre, yTempOre, NextLVL, LVL, PlayerTime, HousesColor: Integer;
  xOreName, yOreName, VSmelting, Smelted: String;
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
//
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Procedure DeclarePlayers;

Begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name         := '';      // Your UserName
  Players[0].Pass         := '';      // Your PassWord
  Players[0].Nick         := '';      // Your Nick (3-4 letters from your username)
  Players[0].Active       := True;    // Use this player ??
  Players[0].Strings[0]   := '';      // Your BankPin
  Players[0].Strings[1]   := 'Steel';      // What kind of bars you want to smelt ( Bronze, Iron, Silver, Steel, Gold, Mithril, Adamant, Rune )
  Players[0].Loc          := 'Bank';  // Starts at Al-Khaird bank
{
  Players[1].Name         := '';      // Your UserName
  Players[1].Pass         := '';      // Your PassWord
  Players[1].Nick         := '';      // Your Nick (3-4 letters from your username)
  Players[1].Active       := True;    // Use this player ??
  Players[1].Strings[0]   := '';      // Your BankPin
  Players[1].Strings[1]   := 'Steel';      // What kind of bars you want to smelt ( Bronze, Iron, Silver, Steel, Gold, Mithril, Adamant, Rune )
  Players[1].Loc          := 'Bank';  // Starts at Al-Khaird bank

  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].Strings[0]   := '';      // Your BankPin
  Players[2].Strings[1]   := 'Steel';      // What kind of bars you want to smelt ( Bronze, Iron, Silver, Steel, Gold, Mithril, Adamant, Rune )
  Players[2].Loc          := 'Bank';  // Starts at Al-Khaird bank
    
  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].Strings[0]   := '';      // Your BankPin
  Players[3].Strings[1]   := 'Steel';      // What kind of bars you want to smelt ( Bronze, Iron, Silver, Steel, Gold, Mithril, Adamant, Rune )
  Players[3].Loc          := 'Bank';  // Starts at Al-Khaird bank
}
End;
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
//
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Procedure Signature;

Begin
  ClearDebug;
  WriteLn(' __           __                                     __');
  Wait(100);
  WriteLn('|  |__ __ __ |  | __ __      ____ ____ __ ____ _____|  |_ ___ ');
  Wait(100);
  WriteLn('|  |  | / _ \|  |/  |__|    / ___|  __\  | /__|  _  \   / ___|');
  Wait(100);
  WriteLn('|  |   / |_| |     <   |   _\__  \ <__|   /|  | |_| |  |___  \');
  Wait(100);
  WriteLn('|__|__|\____/|__|\__|__|  |______/____/__| |__|  __ /__|_____/');
  Wait(100);
  WriteLn('                                              |__|');
  Wait(1000);
  WriteLn('                          Presents...');
  Wait(2000);
  ClearDebug;
  WriteLn('                  ~~~~~~~~~~~~~~~~~~~~~~~~~~~');
  WriteLn('                 ~~   Iroki Smelter v' + (Version) + '   ~~');
  WriteLn('                  ~~~~~~~~~~~~~~~~~~~~~~~~~~~');
  Wait(2000);
End;
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
//
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Procedure ProgressReport;

Begin
  WriteLn('');
  WriteLn('~~~~~~~~~~~~~~~~~~~~~~~ Progress Report ~~~~~~~~~~~~~~~~~~~~~~~');
  WriteLn('');
  WriteLn('~ Player       : ' + Players[CurrentPlayer].Name);
  WriteLn('~ Smithing LVL : ' + IntToStr(LVL));
  WriteLn('~ Worked for   : ' + IntToStr(TimeFromMark(PlayerTime) / 60000) + ' minutes');
  WriteLn('~ Bars smelted : ' + Smelted);
  WriteLn('~ Kind of bars : ' + Players[CurrentPlayer].Strings[1]);
  WriteLn('~ Location     : ' + Players[CurrentPlayer].Loc);
  WriteLn('');
  WriteLn('~~');
End;
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
//
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Procedure DeclareDTMs;

Begin
  Tin       := DTMFromString('78DA635462606030654001DD8D0D0C22409A1' +
       '188FF0301A3209061C68006189148202D0F249C08A831001206F8' +
       'D50000F6720707');
  Copper    := DTMFromString('78DA635462606010614001D7ABCDC0428C40F' +
       'C1F081805810C090634C0884402697920A144408D019010C0AF06' +
       '00CADF0684');
  Iron      := DTMFromString('78DA635466606028634001FE862A0C22409A1' +
       '188FF0301A3209051CA800618914820AD0F24F209A85100124DF8' +
       'D50000DC42071F');
  Silver    := DTMFromString('78DA635462606098CA800256ADDACA2002A41' +
       '981F83F10300A0219D319D000231209A46581C422026A0C80C404' +
       'FC6A00B1D30903');
  Coal      := DTMFromString('78DA6354666060D8C680026C6C34183480342' +
       '310FF0702464120633B031A60442281B41C903844408D0190D880' +
       '5F0D0039C00831');
  Gold      := DTMFromString('78DA63546060601065400157D74A318800694' +
       '620FE0F048C7C408618031A60442281B414905024A0461748F0E3' +
       '570300CFC50688');
  Mithril   := DTMFromString('78DA635460606028614001DE3E050C22409A1' +
       '188FF0301231F9051CA8006189148202D0B241A09A8D10512F9F8' +
       'D5000006C00774');
  Adamant   := DTMFromString('78DA635460606098C280027C13FD184480342' +
       '310FF0702463E206332031A60442281B42C905848408D2E90E8C7' +
       'AF06002B4D07E7');
  Rune      := DTMFromString('78DA6394676060D8C2800202732A184480342' +
       '310FF0702463E20631B031A60442281B42C903848408D2E90588F' +
       '5F0D0071B008A2');
  BarMask   := DTMFromString('78DA637467626078CB8006189148206D0354F' +
       '380801A3FA09AFB04D49802D5BC24A0C602A8E6090135BE4035CF' +
       '09A8B105AA7947408D1750CD3D026A40E17387801A47A09ADB04D' +
       '43810614E0050CD23026ACC806A9EE1570300BD2D0F29');
  OreMask   := DTMFromString('78DA63CC64626058C6C8800A189148200D52D' +
       '34D404D3550CD24026A0A816A161050130B543383083584CC4926' +
       'C23DF940355309A849226C17006EDC0945');
  NextLVL   := DTMFromString('78DA6374606060D8C2C8800CFC3C3DC0344C9' +
       '4D10248CC455513E2E78BAA461F484C435513191C84AA460648F4' +
       'A2AAF176734355A3062456A3AAD9BDBA07554D3A90A8475563696' +
       'A82AAC61B48D4A1AA51555242556304241A0998630B241A50D518' +
       'EAE9A1AA0905121B50D538D9D9A2AA0906120B0898E3032466A3A' +
       'A7175744055A30E245A51D5D85858A0A80100FCD21565');
End;
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
//
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Procedure TakingValues;

Var
  ForOneBar: Integer;
  temp_Bar: String;

Begin
  temp_Bar := Players[CurrentPlayer].Strings[1]
  If (temp_Bar = '') Then
  Begin
    WriteLn('~~');
    WriteLn('Please enter name of bars at DeclarePlayer procedure.');
    TerminateScript;
  End;
  Case temp_Bar Of
  'Bronze':
    Begin
      xTempOre  := 14;
      yTempOre  := 14;
      xOreName  := 'Tin';
      yOreName  := 'Copper';
      ForOneBar := 14;
    End;
  'Iron':
    Begin
      xTempOre  := 28;
      yTempOre  := 0;
      xOreName  := 'Iron';
      yOreName  := '';
      ForOneBar := 28;
    End;
  'Silver':
    Begin
      xTempOre  := 28;
      yTempOre  := 0;
      xOreName  := 'Silver';
      yOreName  := '';
      ForOneBar := 28;
    End;
  'Steel':
    Begin
      xTempOre  := 18;
      yTempOre  := 9;
      xOreName  := 'Coal';
      yOreName  := 'Iron';
      ForOneBar := 9;
    End;
  'Gold':
    Begin
      xTempOre  := 28;
      yTempOre  := 0;
      xOreName  := 'Gold';
      yOreName  := '';
      ForOneBar := 28;
    End;
  'Mithril':
    Begin
      xTempOre  := 20;
      yTempOre  := 5;
      xOreName  := 'Coal';
      yOreName  := 'Mithril';
      ForOneBar := 5;
    End;
  'Adamant':
    Begin
      xTempOre  := 24;
      yTempOre  := 4;
      xOreName  := 'Coal';
      yOreName  := 'Adamant';
      ForOneBar := 4;
    End;
  'Rune':
    Begin
      xTempOre  := 24;
      yTempOre  := 3;
      xOreName  := 'Coal';
      yOreName  := 'Rune';
      ForOneBar := 3;
    End;
  End;
  If (TempPWrite = 0) Then
  Begin
    WriteLn('~~');
    WriteLn('We are smelting ' + (temp_Bar) + ' bars.');
    WriteLn('~~');
  End;
  TempPWrite := 1;
  VSmelting := IntToStr(ForOneBar);
End;
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
//
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Procedure LoadDTMs;

Begin
  TakingValues;
  DeclareDTMs;
  Case xOreName Of
  'Tin'      :
    Begin
      FirstOreDTM := Tin;
    End;
  'Iron'     :
    Begin
      FirstOreDTM := Iron;
    End;
  'Silver'   :
    Begin
      FirstOreDTM := Silver;
    End;
  'Coal'     :
    Begin
      FirstOreDTM := Coal;
    End;
  'Gold'     :
    Begin
      FirstOreDTM := Gold;
    End;
  End;
  If (yOreName <> '') Then
  Case yOreName Of
  'Copper'   :
    Begin
      SecondOreDTM := Copper;
    End;
  'Iron'     :
    Begin
      SecondOreDTM := Iron;
    End;
  'Mithril'  :
    Begin
      SecondOreDTM := Mithril;
    End;
  'Adamant'  :
    Begin
      SecondOreDTM := Adamant;
    End;
  'Rune'     :
    Begin
      SecondOreDTM := Rune;
    End;
  End;
End;
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
//
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Procedure AntiBan;

Var
  B: Integer;
  
Begin
  If Not LoggedIn Then Exit;
  B := Random(120);
  Case B Of
    0: HoverSkill('random', False);
    1: HoverSkill('random', False);
    2: HoverSkill('Smithing', False);
    3: PickUpMouse;
    4: BoredHuman;
    5: RandomMovement;
    6: MMouse(Random(MSX2), Random(MSY2), 0, 0);
    7: TypeSend('nie chce');
    8: TypeSend('odwal sie odemnie glombie');
  End;
End;
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
//
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Procedure AutoResponder;

Begin
  If Not LoggedIn Then Exit;
  If InChat(Players[CurrentPlayer].Nick) Then
  Begin
    Wait(RandomRange(1100, 1500));
    Case Random(4) Of
      0: TypeSend('hi');
      1: TypeSend('????');
      2: TypeSend('what??');
      3: TypeSend('I swith off my public chat. :@ ...');
    End;
    Exit;
  End;
  If InChat('smith') Or InChat('hing lvl') Or InChat('elti') Or InChat('melt') Or InChat('ting lvl') And
     Not (InChat('Congra')) Then
  Begin
    Wait(RandomRange(1100, 1500));
    TypeSend(IntToStr(LVL));
    Exit;
  End;
End;
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
//
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Procedure CheckOres;

Var
  I: Integer;

Begin
  If Not LoggedIn Then Exit;
  TakingValues;
  I := xTempOre + yTempOre;
  If Not ExistsItem(I) Then
  Begin
    WriteLn('~~');
    WriteLn('No ores... Logging Out.');
    Players[CurrentPlayer].Active := False;
    Players[CurrentPlayer].Loc := 'No ores';
    ProgressReport;
    LogOut;
    Exit;
  End;
End;
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
//
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Procedure TakeOres;

Var
  x, y, I: Integer;

Begin
  If Not LoggedIn Then Exit;
  LoadDTMs;
  Repeat
      MyTemporaryColor := GetColor(490, 76);
  Until (MyTemporaryColor = 3358280);
  If PinScreen Then
  If Not InPin(Players[CurrentPlayer].Strings[0]) Then
  Begin
    WriteLn('~~');
    Writeln('Wrong pin. Logging Out.');
    Wait(900 + Random(500));
    CloseBank;
    Players[CurrentPlayer].Active := False;
    Players[CurrentPlayer].Loc := 'Wrong PIN';
    ProgressReport;
    LogOut;
    Exit;
  End;
  For I := 1 To 28 Do
  Begin
    If ExistsItem(I) Then
    Begin
      MouseItem(I, False);
      Wait(RandomRange(400, 500));
      ChooseOption('All');
      Wait(1200 + Random(500));
    End;
  End;
  MyTemporaryColor := GetColor(475, 80);
  If (MyTemporaryColor = 1777699) Then Mouse(475, 65, 3, 5, True);
  FindDTM(FirstOreDTM, x, y, 70, 40, 490, 300);
  Mouse(x, y, 5, 5, False);
  Wait(900 + Random(500));
  If (xTempOre = 28) Then
  Begin
    ChooseOption('Withdraw All');
    Wait(1200 + Random(500));
  End Else
  Begin
    ChooseOption('Withdraw X');
    Wait(1200 + RandomRange(400, 600));
    TypeSend((IntToStr(xTempOre)));
    Wait(1200 + Random(500));
  End;
  If Not (yOreName = '') Then
  Begin
    FindDTM(SecondOreDTM, x, y, 70, 40, 490, 300);
    Mouse(x, y, 5, 5, False);
    Wait(1200 + Random(500));
    ChooseOption('Withdraw X');
    Wait(1200 + RandomRange(400, 600));
    TypeSend((IntToStr(yTempOre)));
    Wait(1200 + Random(500));
  End;
  CloseBank;
  CheckOres;
End;
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
//
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Function FindFurnace: Boolean;

Var
  x, y, MyTimes: Integer;

Begin
  If Not LoggedIn Then Exit;
  Repeat
    If FindObj(x, y, 'Smelt', 3355447, 15) Then
    Begin
      Wait(RandomRange(50, 120));
      Mouse(x, y, 0, 0, True);
      Result := True;
    End Else MyTimes := MyTimes + 1;
  Until Result or ( MyTimes >= 3 );
  If ( MyTimes = 3 ) Then
  Begin
    WriteLn('~~');
    Writeln('Couldn''t find furnace. Logging out.');
    Wait(900 + Random(500));
    Players[CurrentPlayer].Active := False;
    Players[CurrentPlayer].Loc := 'No furnace';
    ProgressReport;
    LogOut;
    Exit;
  End;
  FindNormalRandoms;
  Repeat
    Wait(200);
    MyTemporaryColor := GetColor(483, 372);
  Until (MyTemporaryColor = 7238703);
End;
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
//
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Procedure ToFurnace;

Var
  x, y, VSmelting: Integer;

Begin
  VSmelting := 0;
  SymbolAccuracy := 0.6;
  If (VSmelting = 0) Then
  Begin
    If FindSymbol(x, y, 'Furnace') Then
    Begin
      FindNormalRandoms;
      Mouse(x + 2, y, 2, 2, True);
      FindNormalRandoms;
      Wait(5500);
      FFlag(1);
      VSmelting := 1;
    End Else
      VSmelting := 0;
  End;
  If (VSmelting = 0) Then
  Begin
    RadialWalk(HousesColor, 25, 0, 74, 0, 0);
    FindNormalRandoms;
    FFlag(0);
  End;
End;
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
//
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Procedure Smelt; Forward;
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
//
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Function CheckLVL: Boolean;

Var
  x, y: Integer;

Begin
  If Not LoggedIn Then Exit;
  DeclareDTMs;
  If ( FindDTM(NextLVL, x, y, MCX1, MCY1, MCX2, MCY2) ) Then
  Begin
    LVL := LVL + 1;
    Result := True;
    ClickToContinue;
    WriteLn('~~');
    WriteLn('Level Up. Now your level is: ' + IntToStr(LVL) + '.');
    FindFurnace;
    Smelt;
  End;
End;
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
//
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Procedure Smelt;

Var
  x, y, MySmeltingTime: Integer;

Begin
  If Not LoggedIn Then Exit;
  DeclareDTMs;
  If FindText(x, y, Players[CurrentPlayer].Strings[1], StatChars, 28, 428, 488, 443) Then
  Begin
    Wait(100 + RandomRange(200, 250));
    Mouse(x + 5, y - 7, 4, 4, False);
    Wait(900 + Random(500));
    ChooseOption('Smelt X');
    Wait(1200 + Random(500));
    TypeSend(VSmelting);
    Wait(500 + Random(500));
    MarkTime(MySmeltingTime);
    Repeat
      Wait(2500);
      AntiBan;
      AutoResponder;
      FindNormalRandoms;
      SRLRandomsReport;
      CheckLVL;
    Until ( Not ( FindDTM(OreMask, x, y, MIX1, MIY1, MIX2, MIY2) ) ) Or ( TimeFromMark(MySmeltingTime) >= 60000 );
    Smelted := Smelted + VSmelting;
    SendSRLReport;
  End Else
  Begin
    WriteLn('~~');
    Writeln('Something wrong. Logging out.');
    Wait(900 + Random(500));
    Players[CurrentPlayer].Active := False;
    Players[CurrentPlayer].Loc := 'Something wrong';
    ProgressReport;
    LogOut;
    Exit;
  End;
End;
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
//
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Function FindBankBooth: Boolean;

Var
  x, y, MyTimes: Integer;

Begin
  If Not LoggedIn Then Exit;
  Repeat
    FindNormalRandoms;
    If (FindObj(x, y, 'Use Bank', 670285, 15)) Then
    Begin
      Mouse(x, y, 4, 0, False);
      Wait(500 + Random(700));
      ChooseOption('Use-quickly');
      Result := True;
    End Else MyTimes := MyTimes + 1;
  Until Result or ( MyTimes >= 3 );
  If ( MyTimes = 3 ) Then
  Begin
    WriteLn('~~');
    Writeln('Couldn''t find bank booth. Logging out.');
    Wait(900 + Random(500));
    Players[CurrentPlayer].Active := False;
    Players[CurrentPlayer].Loc := 'No bank booth';
    ProgressReport;
    LogOut;
    Exit;
  End;
End;
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
//
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Procedure ToBank;

Var
  x, y, VBanking: Integer;

Begin
  VBanking := 0
  If (VBanking = 0) Then
  If FindSymbol(x, y, 'Bank') Then
  Begin
    FindNormalRandoms;
    Mouse(x, y, 2, 2, True);
    AntiBan;
    AutoResponder;
    FindNormalRandoms;
    FFlag(0);
    VBanking := 1;
  End;
  If (VBanking = 0) Then
  Begin
    FindNormalRandoms;
    If RadialWalk(HousesColor, 180, 250, 74, 0, 0) Then
    Begin
      FFlag(0);
      FindNormalRandoms;
      AntiBan;
      AutoResponder;
      VBanking := 1;
    End;
  End;
  If (VBanking = 0) Then
    Begin
    WriteLn('~~');
    Writeln('Player lost');
    Wait(900 + Random(500));
    Players[CurrentPlayer].Active := False;
    Players[CurrentPlayer].Loc := 'Lost';
    ProgressReport;
    LogOut;
    Exit;
  End;
End;
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
//
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Function GetHousesColor: Integer;

Var
   x, y: Integer;
   
Begin
  If Not LoggedIn Then Exit;
  If FindColoredAreaTolerance(x, y, 5341056, 601, 63, 647, 100, 7, 55) Then
    Result := GetColor(x, y)
  Else
  Begin
    WriteLn('~~');
    Writeln('Couldn''t find houses color.');
    Wait(900 + Random(500));
    Players[CurrentPlayer].Active := False;
    Players[CurrentPlayer].Loc := 'Serching colors';
    LogOut;
    Exit;
  End;
End;
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
//
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Procedure SetUpPlayer;

Begin
  If Not LoggedIn Then Exit;
  SetAngle(True);
  Wait(RandomRange(300, 450));
  MakeCompass('N');
  Wait(RandomRange(300, 450));
  LVL := GetSkillInfo('Smithing', False);
  Wait(RandomRange(300, 450));
  SetBar('Brightness', 4);
  Wait(RandomRange(300, 450));
  SetBar('Volume', 0);
  Wait(RandomRange(300, 450));
  SetBar('Effect', 0);
  Wait(RandomRange(300, 450));
  SetBar('Area', 0);
  Wait(RandomRange(300, 450));
  SetChat('On', 1);
  Wait(RandomRange(300, 450));
  SetChat('Friends', 2);
  Wait(RandomRange(300, 450));
  SetChat('Friends', 3);
  Wait(RandomRange(300, 450));
  SetChat('Friends', 4);
  Wait(RandomRange(300, 450));
  SetChat('Off', 5);
  Wait(RandomRange(300, 450));
  GameTab(4);
  HousesColor := GetHousesColor;
  WriteLn('~~');
  WriteLn('Houses color: ' + IntToStr(HousesColor));
End;
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
//
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Begin
  If (YourSRLID = '') Or (YourSRLPass = '') Then
  Begin
    WriteLn('~~');
    WriteLn('Please enter your SRLID and SRLPass in lines 20 and 21.');
    TerminateScript;
  End;
  SmartSetupEx(WorldNumber, False, True);
  SetTargetDC(SmartGetDC);
  SetUpSRL;
  ScriptID := '718';
  SRLID := YourSRLID;
  SRLPassword := YourSRLPass;
  ActivateClient;
  DeclarePlayers;
  Signature;
  If (Not(LoggedIn)) Then
  If (UseMusic = 'No') Then
  Begin
    Repeat
      MyTemporaryColor := GetColor(745, 480);
    Until (MyTemporaryColor = 8156790) Or (MyTemporaryColor = 1315974);
    MyMusicColor := GetColor(745, 480);
    If (MyMusicColor = 8156790) Then
    Begin
      Mouse(745, 480, 10, 10, True);
      Wait(500 + Random(500));
    End;
  End;
  Repeat
    TempPWrite := 0;
    TakingValues;
    MarkTime(PlayerTime);
    LogInPlayer;
    SetUpPlayer;
  //  OpenBankFast('Akb');
    FindBankBooth;
    Repeat
      TakeOres;
      SRLRandomsReport;
      SendSRLReport;
      ToFurnace;
      FindFurnace;
      Smelt;
      ToBank;
    //  OpenBankFast('Akb');
      FindBankBooth;
    Until ( Not ( LoggedIn ) ) Or ( TimeFromMark(PlayerTime) >= 60000 * TimePerPlayer );
    If BankScreen then CloseBank;
    LogOut;
    ProgressReport;
    NextPlayer(Players[CurrentPlayer].Active);
  Until False;
end.

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

i'm not sure yes or no… :( So give me some + and - points :)

I thing that it is very good script. Myltiplayer and all what is needed. So please YES.

    Repeat
      MyTemporaryColor := GetColor(745, 480);
    Until (MyTemporaryColor = 8156790) Or (MyTemporaryColor = 1315974);

You still have that, you have to know what is an endless loop, which the loop above is. You need to use some failsafe incase the thing you have in Until does not happen, to break out of the loop.

I have that because this color is always the same. It's working. It's swithing music off.
plz vote YES

It's more of the principle than runtime.

Also, don't ask people to vote, especially to vote yes, they decide wether they vote and what to vote.

From: iroki
I thing that it is very good script. Myltiplayer and all what is needed. So please YES.

From: iroki
plz vote YES

SRL member needs to tolerate criticism. If it's not enough good, we(?!) will simply vote no.

As n3ss3s said, you can't ask for peoples for yes.

It's no from me without looking your script.

I say, i don't say it is TRUE but he sounds like he leeched of the script and begging to get in

I agree with Negaal actually. I think you dont have the right attitude for a start.

And you cant accept constructive critisism. It doesnt matter if it works or not, what if it doesnt? I mean, you cant GUARENTEE it will work every time.

No.

From: iroki
I thing that it is very good script. Myltiplayer and all what is needed. So please YES.

NO!! dude you just want to leech ^^^ you want us to vote yes..(your demanding us)

The scripts +
and your attitude is - - soo. Its a - sorry.
NO

I'm stupid:duh: :duh: :duh: sory for yes.:duh: :duh: :duh: I never do this again.

Leecher reacts when he sees that he can't leech scripts :P

Edit:
Vote: NO

which yes? I only see 6 no's

Haha. Hermpie, you voted yet?

I edited my post, NO

Yes.

just because he got excited and asked for a yes vote doesnt mean you shouldnt look at his script

I'm new to SRL members so I'm not going to vote, but didn't you apply less than a week ago?

Yeah, I forgot about the mounth limit. Sorry for this.

From: oliver1205
just because he got excited and asked for a yes vote doesnt mean you shouldnt look at his script

that shows how desperatly he wants to leech member scripts lmao…

i think he was referring to the other guys that were just voting off of attitude.

well thats there opinion aint it?

I'll hold my vote for now, but only for a few reasons.

1. Doesn't "Wow" me… Although it's a decent script there is nothing special about it.
2. Some basic scripting problems that should have been ironed out before applying.
3. Coding, yea it's not a big deal that his case statements make me cringe but it would be nice to see those fixed.
4. Doesn't show a large knowledge of SRL, it does show some knowledge but there's not a lot to the script.
5. You didn't wait a month… *Tsk, Tsk, Tsk*

Your attitude is fine, you're helpful around the forum and you seem dedicated to learning to script, although you shouldn't go around asking people for a "yes". ;)

I won't vote yes or no now, but if you don't make it this time I expect to see another application in a month that I can vote yes on.

P.S. - Do something in your script that noones though of before, something that will "Wow" us SRL Members!

EDIT: There also is a decent improvement from the first application, so that at least means he's trying.

From: Special Ed
you shouldn't go around asking people for a "yes". ;)

You are right. I shouldn't

First of all, he doesn't seems to handle constructive criticism, but that could be due to the stress (we'll keep an eye on you).

Second, you are some kind of new over here, how can it be that you've learned all those things that fast? Ok, the Delphi knowledge could've helped you, but understanding the functionality of DTM's etc..

Third, I've got to agree with Ed about the basic things that could've been improved & fixed. It's a nice looking script you've got there, but it hasn't got that Wow-effect Ed is talking about (it's way better then all those power-scripts we receive:p)

Fourth, there is a "1 month before re-applying"- rule.

Last but not least, I can't believe that nowone noticed (at least didn't said it over here) that he loads his DTM's multiple times (3 time I think, counted them 15 mins ago, aint it N3s?:p) in his loop inside his mainloop..

I want to see the opinion of you gus, about the things stated above (not only my post), and imo, if he applied like 10 days ago, this should be automaticly closed.

-Tsn.

EDIT:

From: Wizzup?
Yes.

Here comes the vote-changing:p

People's votes chage when you vote, it's funny to see that:p

Lead us, Wiz! We need your knowledge and kindness to inspire us!:p

From: the scar noob
Fhow can it be that you've learned all those things that fast? Ok, the Delphi knowledge could've helped you, but understanding the functionality of DTM's etc..

For me is easy to learn function like DTM's or RadialWalking.
I love programming and it comes my easy.

btw i think you should add more antiban feutures

I'm not going to vote on this one because I'm stuck in the middle of voting yes and no.

I may change my mind and vote, but I don't know.

yes, looks like a good script, but behave yourself.

I vote yes, and not just because of Wizzup and MasterKill. The reasons i voted yes is because it requires all that is needed into applying for members. You can't make a script that is absolutely perfect, there has to be a few errors. Like my Powerminer when i first joined.

I've decided that I'll vote…….. yes

btw i think you should add more antiban feutures

I'll add and i'll fix it to the newews revision but i my parents blocked my computer :(

From: P1NKY
NO!! dude you just want to leech ^^^ you want us to vote yes..(your demanding us)

What the fuck?! Naum (I think) asked for what he though. If someone asked you on your members app wheter the person should vote yes or no, you would've asked that person to vote yes, wouldn't you?!

From: P1NKY
that shows how desperatly he wants to leech member scripts lmao…

Again, who the fuck are you to judge this?! 90% of the forums scripts, and some of the best scripts, are in the junior members section. There is 1 or maybe even 2 good scripts in the member sectiuon! WOW! The fucking fact that he made such a good script shows that he tries to contribute.

You know what - I'm voting yes just to prove you wrong. Gah.

Lets not turn this into a flame war people, there are those who make mistakes often and there are those who do not… just leave it alone.

As for those of you who voted yes, please try to do yourselves and the forum a favor and explain why you voted yes in a bit more detail than, he's got stuff.

I'm not saying you're wrong or right in your decision but I am saying you "should" at least say why.

*You don't have to, I just would like to know…*

I vote no :D just because.

edit: im evil that way















whirr (i didnt actually vote but i bet i gave him a heartattack) I WOULD vote no… but im nice that way

Oh dear, 7 - 7 is not enough to get into SRL Members.
Give it another go in two weeks and show us that you are really worth the rank of SRL-Members. :)