SRL Archive - Archive

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

What is the meaning to life?
EDIT: Heck, I dunno =S


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


Programming Knowledge
HTML, SCAR, Learning Javascript

Other Communitys
None

How Long have You Played Runescape
3 years

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

I've been designing webpages since I was 9/10, and I loved HTML, I soon worked my way up to gettin a freewebs site and am hoping to get a .com domain soon =D

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

My Just Re-Written Smelter! Completely Works!
(This shows that I know cases, can use anti-ban, and use anti-randoms, and Radial Walk!)

program SweetKharidSmelterREMAKE;
{.include SRL/SRL.scar}

Const
  Loads = 5;     //Loads you want to do per player

var
   SandyColor, What : integer;
   DudesLoads : integer;

Procedure DeclarePlayers;
 begin
  HowManyPlayers :=4;              //Number of Players your using
  NumberOfPlayers(HowManyPlayers); //Just Leave Alone
  CurrentPlayer:= 0;     //Your Start Player which you set above

  Players[0].Name   :='Username';
  Players[0].Pass   :='Password';
  Players[0].Nick   :='NickName';
  Players[0].Skill  :='Smithing';
  Players[0].Loc    :=''
  Players[0].Active :=True;
  Players[0].String1:='1111';      //Your bank pin IF YOU HAVE ONE!
  Players[0].String2:='Steel';      //Type of bars to make, MUST BE CAPATALIZED!

  Players[1].Name   :='Username';
  Players[1].Pass   :='Password';
  Players[1].Nick   :='Nickname';
  Players[1].Skill  :='Smithing';
  Players[1].Loc    :=''
  Players[1].Active :=False;
  Players[1].String1:='1111';      //Your bank pin IF YOU HAVE ONE!
  Players[1].String2:='Iron';       //Type of bars to make, MUST BE CAPATALIZED!

  Players[2].Name   :='Username';
  Players[2].Pass   :='Password';
  Players[2].Nick   :='Nickname';
  Players[2].Skill  :='Smithing';
  Players[2].Loc    :=''
  Players[2].Active :=False;
  Players[2].String1:='1111';      //Your bank pin IF YOU HAVE ONE!
  Players[2].String2:='Bronze';     //Type of bars to make, MUST BE CAPATALIZED!

  Players[3].Name   :='Username';
  Players[3].Pass   :='Password';
  Players[3].Nick   :='Nickname';
  Players[3].Skill  :='Smithing';
  Players[3].Loc    :=''
  Players[3].Active :=False;
  Players[3].String1:='1111';      //Your bank pin IF YOU HAVE ONE!
  Players[3].String2:='Mithril';    //Type of bars to make, MUST BE CAPATALIZED!
end;


Procedure DeclareBMPsAndDTMs;
begin
  SandyColor:= BitmapFromString(3, 3, 'z78DA7332B474333572229104004EC8' +
       '0C22');
       
  What := BitmapFromString(40, 18, 'z78DAED96CB0DC030084357E2E8FD' +
       '27EB048DDC021649EC430E1148797CAC4458D6F9C2CBC9644569A' +
       '4869479DBBF7B8CEC6C862B93358DFD4E5E344C4B7777FA3ACBF0' +
       'F24EB88E44C25D6B79F32E07E18E4CE0E5BD1D925D808417420F4' +
       '443B5F3F3DCED815F1DA3AA8658DEEFF29FB12CAB4A0F60342CFE' +
       '');
end;


Function FindFastRandoms: Boolean;
var
  i: Integer;
begin
  for i:=1 to 12 do
  begin
    case I of
       1:  If FindDead then
             Result := True;
       2:  If FindMod then
             Result := True;
       3:  If FindMime then
             Result := True;
       4:  If FindMaze then
             Result := True;
       5:  If FindQuiz then
             Result := True;
       6:  If FindDemon then
             Result := True;
       7: begin
             if NoGameTab then
             begin
               Result := True;
               Players[CurrentPlayer].loc := 'No GameTab';
               Logout;
               Exit;
             end;
           end;
       8: begin
             If InBlack then
             begin
               Result := True;
               Players[CurrentPlayer].loc := 'InBlack';
               Logout;
               Exit;
             end;
           end;
       9 : If RC Then Result := True;

       10 :   If FindFight Then
             Begin
               Result := True;
               MakeCompass('N');
               RunTo('E', True);
               MakeCompass('N');
               Wait(200+Random(100));
               RunBack;
             End;

       11: If FindTalk Then Result := True;

    End;
    Wait(1);
  end;
end;


Function SmeltScreen: Boolean;
begin
  Result := FindBitMapTol(x,y,What,150,360,195,378);
end;


Procedure MyWayOfBanking;
begin
  repeat
  if (FindObj3(x,y,'Use Bank',4481658,10)) then
    begin
      Mouse(x,y,2,2,false);
      Wait(300+Random(300));
    end else
  if (FindObj3(x,y,'Use Bank',2842230,10)) then
    begin
      Mouse(x,y,2,2,false);
      Wait(300+Random(300));
    end else
  if (FindObj3(x,y,'Use Bank',12611,10)) then
    begin
      Mouse(x,y,2,2,false);
      Wait(300+Random(300));
    end;
  ChooseOption(x,y,'quickly');
  Flag;
  until(BankScreen) or (PinScreen);
  Wait(1500+Random(150));
  InPin(Players[CurrentPlayer].String1);
  Wait(350+Random(150));
  FixBank;
  Wait(250+Random(250));
  DepositAll;
  Wait(250+Random(250));
end;


Procedure WithdrawBank;
begin
  if(Players[CurrentPlayer].String2='Bronze') then
    begin
      Withdraw(1,1,14);
      Wait(200+Random(150));
      Withdraw(2,1,14);
      Wait(200+Random(150));
      CloseBank
    end;

  if (Players[CurrentPlayer].String2='Iron') then
    Begin
      Withdraw(1,1,28);
      Wait(100+Random(50));
      CloseBank;
    end;
    
  if (Players[CurrentPlayer].String2='Steel') then
    Begin
      Withdraw(1,1,9);
      Wait(200+Random(150));
      Withdraw(2,1,18);
      Wait(200+Random(150));
      CloseBank;
    end;
    
  if (Players[CurrentPlayer].String2='Mithril') then
    Begin
      Withdraw(1,1,5);
      Wait(200+Random(150));
      Withdraw(2,1,20);
      Wait(200+Random(150));
      CloseBank;
    end;
    
  if (Players[CurrentPlayer].String2='Adamant') then
    Begin
      Withdraw(1,1,4);
      Wait(200+Random(150));
      Withdraw(2,1,24);
      Wait(200+Random(150));
      CloseBank;
    end;
    
  if (Players[CurrentPlayer].String2='Rune') then
    Begin
      Withdraw(1,1,3);
      Wait(200+Random(150));
      Withdraw(2,1,24);
      Wait(200+Random(150));
      CloseBank;
    end;
end;


Procedure WalkToFurny;
var
   AutoSandyColor : integer;
begin
  AutoSandyColor :=AutoColorThis(SandyColor,100,663,40,683,88);
  RadialWalk( AutoSandyColor , 45, 46, 50, 0, 0);
  FindFastRandoms;
  FindNormalRandoms;
  Flag;
  Wait(150+Random(150));
  if (FindSymbol(x,y,'Furnace')) or
     (FindMMColorTol(x,y,2056444,15)) or
     (FindMMColorTol(x,y,1798900,15)) then
  Mouse(x,y,2,2,true);
  FindNormalRandoms;
  FindFastRandoms;
  Flag;
end;


Procedure SmeltFurny;
begin
  repeat
  if (FindObj3(x,y,'Furnace',4144963,15)) then
    begin
    Mouse(x,y,2,2,false);
    Wait(150+Random(150));
    ChooseOption(x,y,'Smelt');
    Flag;
    end
  else
  if (FindObj3(x,y,'Furnace',3684413,15)) then
    begin
    Mouse(x,y,2,2,false);
    Wait(150+Random(150));
    ChooseOption(x,y,'Smelt');
    end;
  until(SmeltScreen);
  if (Players[CurrentPlayer].String2='Iron') then
    begin
      MouseBox(137,393,163,415,2);
      ChooseOption(x,y,'Smelt X');
      Wait(500+Random(250));
      TypeSend('28');
    end;
  if (Players[CurrentPlayer].String2='Bronze') then
    begin
      MouseBox(33,393,59,415,2);
      ChooseOption(x,y,'Smelt X');
      Wait(500+Random(250));
      TypeSend('14');
    end;
  if (Players[CurrentPlayer].String2='Steel') then
    begin
      MouseBox(240,393,270,415,2);
      ChooseOption(x,y,'Smelt X');
      Wait(500+Random(250));
      TypeSend('14');
    end;
  if (Players[CurrentPlayer].String2='Mithril') then
    begin
      MouseBox(343,393,372,415,2);
      ChooseOption(x,y,'Smelt X');
      Wait(500+Random(250));
      TypeSend('14');
    end;
  if (Players[CurrentPlayer].String2='Adamant') then
    begin
      MouseBox(395,393,426,415,2);
      ChooseOption(x,y,'Smelt X');
      Wait(500+Random(250));
      TypeSend('14');
    end;
  if (Players[CurrentPlayer].String2='Rune') then
    begin
      MouseBox(448,393,479,415,2);
      ChooseOption(x,y,'Smelt X');
      Wait(500+Random(250));
      TypeSend('14');
    end;
  if (Players[CurrentPlayer].String2='Bronze') then
    begin
    repeat
    case Random(3) of
      1 : BoredHuman;
      2 : RandomRClick;
      3 : PickUpMouse;
      4 : MouseBox(MSX1,MSY1,MSX2,MSY2,3);
      5 : GameTab(1+Random(7));
      6 : HoverSkill('smiting', false);
    end;
    GameTab(4);
    Wait(150+Random(150));
    until(CountItemColorTol(2770523,50)=14);
    end;
  if (Players[CurrentPlayer].String2='Iron') then
    begin
    repeat
    case Random(3) of
      1 : BoredHuman;
      2 : RandomRClick;
      3 : PickUpMouse;
      4 : MouseBox(MSX1,MSY1,MSX2,MSY2,3);
      5 : GameTab(1+Random(7));
      6 : HoverSkill('smiting', false);
    end;
    GameTab(4);
    Wait(150+Random(150));
    until(CountItemColorTol(5271948,10)=0);
    end;
  if (Players[CurrentPlayer].String2='Steel') then
    begin
    repeat
    case Random(3) of
      1 : BoredHuman;
      2 : RandomRClick;
      3 : PickUpMouse;
      4 : MouseBox(MSX1,MSY1,MSX2,MSY2,3);
      5 : GameTab(1+Random(7));
      6 : HoverSkill('smiting', false);
    end;
    GameTab(4);
    Wait(150+Random(150));
    until(CountItemColorTol(8947858,10)=9);
    end;
  if (Players[CurrentPlayer].String2='Mithril') then
    begin
    repeat
    case Random(3) of
      1 : BoredHuman;
      2 : RandomRClick;
      3 : PickUpMouse;
      4 : MouseBox(MSX1,MSY1,MSX2,MSY2,3);
      5 : GameTab(1+Random(7));
      6 : HoverSkill('smiting', false);
    end;
    GameTab(4);
    Wait(150+Random(150));
    until(CountItemColorTol(7359564,50)=5);
    end;
  if (Players[CurrentPlayer].String2='Adamant') then
    begin
    repeat
    case Random(3) of
      1 : BoredHuman;
      2 : RandomRClick;
      3 : PickUpMouse;
      4 : MouseBox(MSX1,MSY1,MSX2,MSY2,3);
      5 : GameTab(1+Random(7));
      6 : HoverSkill('smiting', false);
    end;
    GameTab(4);
    Wait(150+Random(150));
    until(CountItemColorTol(5268560,50)=4);
    end;
  if (Players[CurrentPlayer].String2='Rune') then
    begin
    repeat
    case Random(3) of
      1 : BoredHuman;
      2 : RandomRClick;
      3 : PickUpMouse;
      4 : MouseBox(MSX1,MSY1,MSX2,MSY2,3);
      5 : GameTab(1+Random(7));
      6 : HoverSkill('smiting', false);
    end;
    GameTab(4);
    Wait(150+Random(150));
    until(CountItemColorTol(7892305,50)=3);
    end;
    HighestAngle;
    Wait(150+Random(150));
    PerfectNorth;
    Wait(150+Random(150));
end;


Procedure WalkToBank;
var
   AutoSandyColor : integer;
begin
  AutoSandyColor :=AutoColorThis(SandyColor,100,663,44,685,80);
  RadialWalk( AutoSandyColor , 175, 176, 50, 0, 0);
  Flag;
  Wait(150+Random(150));
  if (FindSymbol(x,y,'Bank')) or
     (FindMMColorTol(x,y,5095656,15)) or
     (FindMMColorTol(x,y,4838112,15)) then
  Mouse(x,y,2,2,true);
  Flag;
  DudesLoads:=DudesLoads+1
end;


Procedure DudesSignature;
begin
  ClearDebug;
  Writeln('_______             _');
  Writeln('\   _  |           | |');
  Writeln(' | | | | _   _  ___| |  _____');
  Writeln(' | | | || | | ||  _  | /  __ \');
  Writeln(' | | | || | | || | | ||  ____/_');
  Writeln(' | |_| || |_| || |_| ||  \__/ /|');
  Writeln('/______||_____||_____| \_____/ |');
  Writeln(' ___________________________/  |');
  Writeln('|______________________________/');
end;
  
  
Procedure DudeProggy;
begin
  ClearDebug;
  Writeln('|--------------------------------|');
  Writeln('|       Made by Dudesareus       |');
  Writeln('|  Sweet Kharid Smelter REMAKE!  |');
  Writeln('|--------------------------------|');
  Writeln('|Current Player: '+Players[CurrentPlayer].Name);
  Writeln('|Time Running: '+TimeRunning);
  Writeln('|Loads Done: '+inttostr(DudesLoads));
  Writeln('|Currently Smelting: '+Players[CurrentPlayer].String2);
  Writeln('|--------------------------------|');
end;
 
begin
SetupSRL;
DeclarePlayers;
DeclareBMPsAndDTMs;
DisguiseScar('Vegas 7.0');
DudesSignature;
Wait(2000);
ActivateClient;
Wait(300);
HighestAngle;
Wait(150+Random(150));
PerfectNorth;
repeat;
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
SetChat('off', 1);
SetChat('off', 2);
SetChat('off', 3);
PerfectNorth;
repeat;
DudeProggy;
MyWayOfBanking;
WithdrawBank;
WalkToFurny;
SmeltFurny;
WalkToBank;
until(DudesLoads = Loads);
Logout;
NextPlayer(True);
DudesLoads :=0;
until(False);
end.

And my Karamja Fisher / Seller
(This shows again that I know Radial Walk, and anti-randoms!)

program KarmjaFisherSeller;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Fishing.Scar}
Var
   Lobby   : integer;
   ScreenX : integer;
   Loads : integer;
Const
   Loadz=100; //Amount of loads you want to do
//------------------------------------------------------------------------------

Procedure DeclarePlayers;
begin
    HowManyPlayers:= 1;
    NumberOfPlayers(HowManyPlayers);
    CurrentPlayer := 0;

    Players[0].Name :='';
    Players[0].Pass :='';
    Players[0].Nick :='';
    Players[0].Active :=True;
end;
//------------------------------------------------------------------------------

Function FindFastRandoms: Boolean;
var
  i: Integer;
begin
  for i:=1 to 12 do
  begin
    case I of
       1:  If FindDead then
             Result := True;
       2:  If FindMod then
             Result := True;
       3:  If FindMime then
             Result := True;
       4:  If FindMaze then
             Result := True;
       5:  If FindQuiz then
             Result := True;
       6:  If FindDemon then
             Result := True;
       7: begin
             if NoGameTab then
             begin
               Result := True;
               Players[CurrentPlayer].loc := 'No GameTab';
               Logout;
               Exit;
             end;
           end;
       8: begin
             If InBlack then
             begin
               Result := True;
               Players[CurrentPlayer].loc := 'InBlack';
               Logout;
               Exit;
             end;
           end;
       9 : If RC Then Result := True;

       10 :   If FindFight Then
             Begin
               Result := True;
               MakeCompass('N');
               RunTo('S', True);
               MakeCompass('N');
               RunBack;
             End;

       11: If FindTalk Then Result := True;

    End;
    Wait(1);
  end;
end;
//------------------------------------------------------------------------------

Procedure LoadDTMs;
begin
   Lobby := DTMFromString('78DA63F466626060666440066242420C3A402' +
         '190E87F206004A9E146550391859140DA0DA88693809A004CBB30' +
         'D4F803D57061BA07590D00407F0659');
end;
//-----------------------------------------------------------------------------

Procedure LoadBMPs;
begin
   ScreenX := BitmapFromString(10, 11, 'z78DA3330000243033069E664EA62' +
       '628C9F3440528F4912AF0BBF38015913537313430889DF3D505D4' +
       '8EA3149F274E13201971A533753236367641297BD982A89D185DF' +
       '04FC6A70C96211B7347131B6C42409B807872E5C260000D95685F' +
       '1');
end;
//------------------------------------------------------------------------------

Procedure FindRandoms;
begin
   FindNormalRandoms;
   FindFastRandoms;
end;
//------------------------------------------------------------------------------
Procedure Starting;
begin
   MakeCompass('n');
   Wait(100);
   HighestAngle;
end;
//------------------------------------------------------------------------------

Procedure FishLobsters;
Begin
   Repeat
         if (FindObj3(x,y,'Cage',15780016,150)) then
               Mouse(x,y,2,2,true);
               FFlag(0);
               HoverSkill('Fishing',False);
               MouseBox(MSX1,MSY1,MSX2,MSY2,3);
               FindRandoms;
               FindFastRandoms;
               Wait(500+Random(1000));
               Status('Fishing Lobsters');
   until(InvFull);
end;
//------------------------------------------------------------------------------

Procedure ToStore;
Begin
   RadialWalk(4226894, 192, 180, 70, 1, 1);
   Flag;
   FindRandoms;
   RadialWalk(FindDirtRoadColor, 240, 195, 62, 1, 1);
   Flag;
   FindRandoms;
   if (FindColor(x,y,FindBridgeColor,MMX1,MMY1,MMX2,MMY2)) then
      begin
         Mouse(x,y,2,2,true);
         Flag;
         FindRandoms;
      end;
end;
//------------------------------------------------------------------------------

Procedure SellThemFishies;
Begin
   repeat
      if (FindColor(x,y,5794434,MSX1,MSY1,MSX2,MSY2)) then
         MMouse(x,y,2,2);
   until(IsUpText('Talk'));
      if (IsUpText('Talk')) then
         Mouse(x,y,2,2,False);
         Wait(200);
         ChooseOption(x,y,'Trade');
         Wait(200);
   repeat
      if (FindDTM(Lobby,x,y,561,209,726,464)) then
         Mouse(x,y,2,2,false);
         Wait(200);
         ChooseOption(x,y,'Sell 10');
         Wait(1000);
   until(Not (FindDTM(Lobby,x,y,561,209,726,464)));
      Wait(500);
      if (FindBitmap(ScreenX,x,y)) then
         begin
            Mouse(x,y,2,2,true);
         end;
end;
//------------------------------------------------------------------------------
Procedure WalkBack;
begin
   RadialWalk(4226894 , 35, 50, 73, 1,1);
   Flag;
   FindRandoms;
   RadialWalk(4226894 , 35, 50, 73, 1,1);
   Flag;
   FindRandoms;
   RadialWalk(2114647,7,97,57,1,1);
   Flag;
   FindRandoms;
   Loads:=Loads+1
end;
//------------------------------------------------------------------------------

Procedure Proggy;
Begin
   ClearDebug;
   Writeln('|========================|');
   Writeln('|  Karamja Lobby Fisher  |');
   Writeln('|       And Seller       |');
   Writeln('|     By Dudesareus!     |');
   Writeln('|========================|');
   Writeln('|>Loads Fished : '+inttostr(Loads));
   Writeln('|>Lobs  Fished : '+inttostr(Loads*26));
   Writeln('|>Exp   Gained : '+inttostr(Loads*26*90));
   Writeln('|>Time Running : '+ScriptTime2(2));
   Writeln('|------------------------|');
end;
//------------------------------------------------------------------------------
begin
SetupSRL;
LoadDTMs;
LoadBMPs;
ActivateClient;
Starting;
repeat
if (Not(LoggedIn)) then
begin
LoginPlayer;
end;
Proggy;
FishLobsters;
ToStore;
SellThemFishies;
WalkBack;
until(Loads=Loadz);
end.

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

I have a question about your smelter.What do you mean by remake? Is it a remake of YOUR old script or did you base it off someone else's script? Sorry if i sound rude, i don't mean it in that way but the quality of the applications these days…..

Edit: Your second script wont compile. Please fix it.

In withdrawbank things you should have used cases. If this is all your own work you get a yes from me, so I'm going to wait a on yohojos verification.

This is all 100% By me except for WT-Fakawis FindFastRandoms function =D No more funny stuff from me, and I am working on a new banking procedure.

EDIT: What do I gotta do to get SRL Member status? I've seen threads of people saying they got in with a simple powerminer, I'm giving you gold compared to that! WHAT DO I NEED TO DO! ANSWER ME! WHAT DO I NEED TO DOOOOOOO!

You need to be patient. The note when you apply says you might not get verified for up to 14 days, so chill.


I think you need to learn more about the player array. In the miner you only have it switch players at the end of the main loop, but what if the character gets lost before that?

Also, it doesn't seem to me like you have enough fail-safes, especially in the fisher. It's kinda just 'if this, do that' and then keep going and going. There aren't really any 'else's


I say no this time.

You could have done everything much much easier…
Like your Procedure WithdrawBank; it is:

Procedure WithdrawBank;
begin
  if(Players[CurrentPlayer].String2='Bronze') then
    begin
      Withdraw(1,1,14);
      Wait(200+Random(150));
      Withdraw(2,1,14);
      Wait(200+Random(150));
      CloseBank
    end;

  if (Players[CurrentPlayer].String2='Iron') then
    Begin
      Withdraw(1,1,28);
      Wait(100+Random(50));
      CloseBank;
    end;

  if (Players[CurrentPlayer].String2='Steel') then
    Begin
      Withdraw(1,1,9);
      Wait(200+Random(150));
      Withdraw(2,1,18);
      Wait(200+Random(150));
      CloseBank;
    end;

  if (Players[CurrentPlayer].String2='Mithril') then
    Begin
      Withdraw(1,1,5);
      Wait(200+Random(150));
      Withdraw(2,1,20);
      Wait(200+Random(150));
      CloseBank;
    end;

  if (Players[CurrentPlayer].String2='Adamant') then
    Begin
      Withdraw(1,1,4);
      Wait(200+Random(150));
      Withdraw(2,1,24);
      Wait(200+Random(150));
      CloseBank;
    end;

  if (Players[CurrentPlayer].String2='Rune') then
    Begin
      Withdraw(1,1,3);
      Wait(200+Random(150));
      Withdraw(2,1,24);
      Wait(200+Random(150));
      CloseBank;
    end;
end;

I tried to fix it a lil bit and I made it into 12 lines from your 54 lines…

And your Procedure SmeltFurny; probably would be done like 7 times smaller size.



Look into this:

program New;
var
 x,y:Integer;
const
 Lol='LOL';

begin
if(LOL='lOl')then
 begin
 writeln(Lol)
 wait(500)
 MoveMouse(400+random(20),400+random(20))
 wait(500)
 getmousepos(x,y)
 writeln('Mouse is at ('+inttostr(x)+','+inttostr(y)+')')
 x:=random(50)
 y:=Random(20)
 end;

if(LOL='LOl')then
 begin
 writeln(Lol)
 wait(500)
 MoveMouse(400+random(20),400+random(20))
 wait(500)
 getmousepos(x,y)
 writeln('Mouse is at ('+inttostr(x)+','+inttostr(y)+')')
 x:=random(50)
 y:=Random(20)
 end;

if(LOL='lOL')then
 begin
 writeln(Lol)
 wait(500)
 MoveMouse(400+random(20),400+random(20))
 wait(500)
 getmousepos(x,y)
 writeln('Mouse is at ('+inttostr(x)+','+inttostr(y)+')')
 x:=random(50)
 y:=Random(20)
 end;

if(LOL='LoL')then
 begin
 writeln(Lol)
 wait(500)
 MoveMouse(400+random(20),400+random(20))
 wait(500)
 getmousepos(x,y)
 writeln('Mouse is at ('+inttostr(x)+','+inttostr(y)+')')
 x:=random(50)
 y:=Random(20)
 end;

if(LOL='LOOL')then
 begin
 writeln(Lol)
 wait(500)
 MoveMouse(400+random(20),400+random(20))
 wait(500)
 getmousepos(x,y)
 writeln('Mouse is at ('+inttostr(x)+','+inttostr(y)+')')
 x:=random(50)
 y:=Random(20)
 end;

if(LOL='Lolz')then
 begin
 writeln(Lol)
 wait(500)
 MoveMouse(400+random(20),400+random(20))
 wait(500)
 getmousepos(x,y)
 writeln('Mouse is at ('+inttostr(x)+','+inttostr(y)+')')
 x:=random(50)
 y:=Random(20)
 end;

if(LOL='LoOl!')then
 begin
 writeln(Lol)
 wait(500)
 MoveMouse(400+random(20),400+random(20))
 wait(500)
 getmousepos(x,y)
 writeln('Mouse is at ('+inttostr(x)+','+inttostr(y)+')')
 x:=random(50)
 y:=Random(20)
 end;
end.

Would be better:

program New;
var
 x,y:Integer;
const
 Lol='LOL';

begin
 writeln(Lol)
 MoveMouse(400+random(20),400+random(20))
 getmousepos(x,y)
 writeln('Mouse is at ('+inttostr(x)+','+inttostr(y)+')')
 x:=random(50)
 y:=Random(20)
 end.
end.

I verify, and i also vote yes if he adds cases.

Ill give you on an example on how to use cases ina bit.
I gotta go eat! =)

Procedure WithdrawBank;
begin
 case Players[CurrentPlayer].String2 of
  'Bronze':begin Withdraw(1,1,14) Withdraw(2,1,14); end;
  'Iron': Withdraw(1,1,28)
  'Steel':begin Withdraw(1,1,9) Withdraw(2,1,18); end;
  'Mithril':begin Withdraw(1,1,5); Withdraw(2,1,20); end;
  'Adamant':begin Withdraw(1,1,4); Withdraw(2,1,24); end;
  'Rune':begin Withdraw(1,1,3); Withdraw(2,1,24); end;
 end;
CloseBank;
end;

ATTENTION!
I QUIT WITH SRL-FORUMS! GOOD RIDENSE!

Hmmm, I wonder what to vote?

From: Boreas
Hmmm, I wonder what to vote?

Lol! :D

I already voted, but I'd say: Hoooooorraaaaayh!!!

Look, I don't really quit, I LOVE it here! I Love to learn and get better but whenever I think I get better I think you guys are getting greedier and wanting everyone who wants this Title to be really good at scripting, I mean I'm sure we could learn and WOULD learn if you gave at least some of us a break, and Admins please delete the account I just made called Droopy Boogy, and if you could change mine to Droopy Boogy, I made a new account because I thought everyone was voting no cause I was a friend of MOB's. I know I stuck up for him but come on.

In regards to MOB, it's not the sticking up for him, it's the him posting as you on your app.

I let him use my old RS account that I don't use no more and it had the same pass as my SRL account, and since he was an SRL member he could see the posts so he thought that I was in hot water so to speak so he tried the RS pass from my old account on my SRL account. Its not all my fault.

Your script has a lot of problems, you still have a lot more to learn before becoming an SRL member.

I've fixed your main loop (kinda of I didn't have time to look through your entire script)

begin
  SetupSRL;
  LoadDTMs;
  LoadBMPs;
  ActivateClient;
  Starting;
  repeat
   if not LoggedIn then LoginPlayer;
   if not LoggedIn then Break;
   repeat
    Proggy;
    FishLobsters;
    ToStore;
    SellThemFishies;
    WalkBack;
   until(Loads=Loadz);
   if LoggedIn then NextPlayer(true)
   else
   NextPlayer(false);
  until(false)
end.

That means you need to add

if not LoggedIn then Exit;

to the top of all your procedures that would require you to be logged in and for when your players get lost add a LogOut;

There's many problems with this script that I can see,

for now my vote is no because you still need to learn a lot more but your trying and that's a good sign.

No

-Ice

Edit: Also you said people get in with a simple power minner, I highly doubt that. From all the applications I have seen people only get in if they make a script that shows that they know how to use SRL effectively.

Maybe you should Look at the SRL template.

open scar -> tools -> Explorer Folder -> Includes -> SRL- > Scripts -> SRL Template

dudesareus, I'm just wondering if you will share this account with Mage of Begu if you become SRL member(Which I think will never happen).

I've seen threads of people saying they got in with a simple powerminer

U talking of my powerminer ?!Last wishes?:D joke

From: Pentti
dudesareus, I'm just wondering if you will share this account with Mage of Begu if you become SRL member(Which I think will never happen).

I never will / did share this account with MOB, I told you, I let him use my RS account that I don't use and it had the same pass as the forums, he saw my app and someone said that it looked like his so he tried the pass on my SRL account and got in and posted. I changed my pass on SRL forums.