SRL Archive - Archive

How Long have You Played Runescape?
3 Year(s)


Are you affilated in anyway with Jagex LTD?
No

Were you Referred to SRL?
Google


What is your general programming knowledge?
I know HTML(lol), php(mysql), vb6 and vb.net - and Scar :)


Are you a member of any other communities?
I've been a member of Gamecheetah.com, mpcforums.com.
Else, a danish phones, computers and stuff forum called mobildebat.dk.
I own Arcadeskillz.com.


Tell us about yourself…

From: xabdullahx
Hello

My name is Abdullah, i am 17 And go in high school (2nd year).

I love computers, Parkour, phones and gadgets.

I've been in love in computers since they came out (i was erhm about 5 i think), my uncle bought my dad a computer and i used it since then ! (Was DOS in the start).
Later on, 12 years old, i started Visual basic 6, it was cool to do stuff in it, when i turned 16 i was good at vb6, so i decided to switch to Vb.Net.

Btw. I live in denmark

Please show us one (or multiple) of your scripts.

I kept a few stuff thats not working, i thought its best to keep them rather than deleting them - just to show u i can.

Stuff like Flag; and radialwalk wasnt working when i made script.

Enjoy

program LumbyCooker;
{.Include SRL\SRL\Misc\SMART.SCAR}
{.Include SRL/SRL.scar}
//**************************************************************************\\
//**                                                                      **\\
//**                 .:Instructions:.                                     **\\
//**          1- Start at lumbridge bank, no items in inv                 **\\
//**          2- Change the constants, as u desire                        **\\
//**          3- Enter your army’s users and passes (could be single also)**\\
//**          4- Target RS with the crosshair, Hit Play                   **\\
//**                                                                      **\\
//**     NB! Must have Cooks assistent done                               **\\
//**************************************************************************\\
//**                                                                      **\\
//**        Created By:                                                   **\\
//**                     XabdullahX  @ Villavu.com                        **\\
//**            Author:                                                   **\\
//**                                                                      **\\
//**************************************************************************\\
//**                                                                      **\\
//**            .:Features:.                                              **\\
//**              • AutoColor                                             **\\
//**              • Updated - lol                                         **\\
//**              • Cooks any Raw food                                    **\\
//**                                                                      **\\
//**************************************************************************\\

//Start at Lumby bank, fix lines 48, 50 (opt), 52 and up to 91:
//Remove the { } if u want to use more players

const
//Smart Settings
UseSmart = True;
Member = False;
World = 120;

var
  x, y, angel, farve,                    //Farve means color in my language :)
  XpGained, FishCooked, Food ,Tries,
  DDTMTol, theDDTM, CookedYet, lvlups, breakstaken  : integer;
  angeel : Extended;

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

  Players[0].Name       := ''; //Character Name
  Players[0].Pass       := ''; //Character Pass
  Players[0].Nick       := ''; //Nickname 3 - 4 Letter's of char name
  Players[0].Active     := true; //Use player in script?
  Players[0].Pin        := ''; //Pin for bank, leave blank is none
  Players[0].Strings[0] := 'Shrimps'; //Type in the food you want to cook
  Players[0].Integers[0] := 100; //How many u want to cook
  Players[0].Integers[1] := 1; //After cooking HowMany, it will take a break, then login and cook HowMany again (in minutes)
  Players[0].Integers[2] := 250; //How Many fish to cook before going to next character

{
  Players[1].Name       := ''; //Character Name
  Players[1].Pass       := ''; //Character Pass
  Players[1].Nick       := ''; //Nickname 3 - 4 Letter's of char name
  Players[1].Active     := true; //Use player in script?
  Players[1].Pin        := ''; //Pin for bank, leave blank is none
  Players[1].strings[0] := ''; //Type in the food you want to cook
  Players[1].Integers[0] := 10; //How many u want to cook
  Players[1].Integers[1] := 1; //After cooking HowMany, it will take a break, then login and cook HowMany again (in minutes)
  Players[1].Integers[2] := 30; //How Many fish to cook before going to next character

  Players[2].Name       := ''; //Character Name
  Players[2].Pass       := ''; //Character Pass
  Players[2].Nick       := ''; //Nickname 3 - 4 Letter's of char name
  Players[2].Active     := true; //Use player in script?
  Players[2].Pin        := ''; //Pin for bank, leave blank is none
  Players[2].strings[0] := ''; //Type in the food you want to cook
  Players[2].Integers[0] := 10; //How many u want to cook
  Players[2].Integers[1] := 1; //After cooking HowMany, it will take a break, then login and cook HowMany again (in minutes)
  Players[2].Integers[2] := 30; //How Many fish to cook before going to next character

  Players[3].Name       := ''; //Character Name
  Players[3].Pass       := ''; //Character Pass
  Players[3].Nick       := ''; //Nickname 3 - 4 Letter's of char name
  Players[3].Active     := true; //Use player in script?
  Players[3].Pin        := ''; //Pin for bank, leave blank is none
  Players[3].strings[0] := ''; //Type in the food you want to cook
  Players[3].Integers[0] := 10; //How many u want to cook
  Players[3].Integers[1] := 1; //After cooking HowMany, it will take a break, then login and cook HowMany again (in minutes)
  Players[3].Integers[2] := 30; //How Many fish to cook before going to next character
   }

  CheckUserNicks;
end;

//--------------------FindRange Procedure------------------\\
// _______________________________________________________ \\
//{            Should be in srl :)                        }\\
// ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ \\
//--------------------FindRange Procedure------------------\\

function RangeDDTM: Integer;
var
  dtmMainPoint: TDTMPointDef;
  dtmSubPoints: Array [0..3] of TDTMPointDef;
  TempTDTM: TDTM;
begin
  dtmMainPoint.x := 430;
  dtmMainPoint.y := 335;
  dtmMainPoint.AreaSize := 0;
  dtmMainPoint.AreaShape := 0;
  dtmMainPoint.Color := 1319837;
  dtmMainPoint.Tolerance := DDTMTol;

  dtmSubPoints[0].x := 430;
  dtmSubPoints[0].y := 335;
  dtmSubPoints[0].AreaSize := 0;
  dtmSubPoints[0].AreaShape := 0;
  dtmSubPoints[0].Color := 1319837;
  dtmSubPoints[0].Tolerance := DDTMTol;

  dtmSubPoints[1].x := 428;
  dtmSubPoints[1].y := 337;
  dtmSubPoints[1].AreaSize := 0;
  dtmSubPoints[1].AreaShape := 0;
  dtmSubPoints[1].Color := 1319837;
  dtmSubPoints[1].Tolerance := DDTMTol;

  dtmSubPoints[2].x := 429;
  dtmSubPoints[2].y := 337;
  dtmSubPoints[2].AreaSize := 0;
  dtmSubPoints[2].AreaShape := 0;
  dtmSubPoints[2].Color := 1319837;
  dtmSubPoints[2].Tolerance := DDTMTol;

  dtmSubPoints[3].x := 426;
  dtmSubPoints[3].y := 335;
  dtmSubPoints[3].AreaSize := 0;
  dtmSubPoints[3].AreaShape := 0;
  dtmSubPoints[3].Color := 1319837;
  dtmSubPoints[3].Tolerance := DDTMTol;

  TempTDTM.MainPoint := dtmMainPoint;
  TempTDTM.SubPoints := dtmSubPoints;
  Result := AddDTM(TempTDTM);
end;

Function FindRangez: Boolean;

begin
if not LoggedIn then Exit;
  DDTMTol := 5;
  theddtm := RangeDDTM;
  repeat
    if not DtmRotated(theddtm, X, Y, MSX1, MSY1, MSX2, MSY2) then
    begin
      IncEx(DDTMTol, 5)
      FreeDTM(theddtm);
      theddtm := RangeDDTM;
    end else
    begin
      Result := True;
      Break;
    end;
  until (DDTMTol >= 100);
  DDTMTol := 5;
  FreeDtm(theddtm);
end;

//---------------------End of FindRange Procedure-----------------------\\

function LoadingPlzWait: Boolean;
begin
  while (GetColor(230, 235) = 1118604) do
    Wait(100);
  Result := not GetColor(230, 235) = 1118604;
end;

Procedure SAndWItem(Item: String; Amount: Integer; TerminateIfLessThan : Integer); //Search and Withdraw item from bank
var xitems : Boolean;
ite: Integer;
OneLetterOff: String;
begin
  if not LoggedIn then Exit;
  FindNormalRandoms;
  if (BankScreen) then
   begin
    Mouse(85,307,1,1,True);
    Wait(700+Random(500));
    TypeSend(item);
    Wait(800+Random(800));
    If (GetAmount(53,108) < TerminateIfLessThan) then
    begin
    Writeln('Less Amount than requested..');
    WriteLn('Changing Player..');
    Nextplayer(False);
    end;
    MMouse(51,110,5,5);
    Wait(500+Random(200));
    ite := Length(Item);
    OneLetterOff := Right(Item, ite - 1);
    If IsUpText(Lowercase(OneLetterOff)) then
        begin
        MMouse(50,110,2,2);
        GetMousePos(x,y);
        Mouse(x,y,2,2,False);
         Wait(300+Random(300));
        Case Amount of
            1, 5, 10 : ChooseOption('Withdraw-'+IntToStr(Amount));
            else
            begin
              Chooseoption('Withdraw-X');
              xitems := true;
            end;
        end;
    end;

    if (xitems) then
      begin
          Wait(600+Random(200));
          TypeSend(Inttostr(amount));
      end;
  end else
    Writeln('Its not open?');
end;

Function CheckLevelUp : Boolean;
Var lvlup:Integer;
begin
  if not LoggedIn then Exit;
  FindNormalRandoms;
  lvlup := DTMFromString('78DA63D46764602863624006337BF5C034239' +
         '4CF680164E5A3AAA98E4353A3016415A2AAD9B43016558D1E9055' +
         '40C02E9039E5A86AD6CF764751030095450A2C');
  if (FindDTM(lvlup,x,y, MCX1,MCY1,MCX2,MCY2)) then
  begin
    result := True;
    Writeln('Gratz! Lvl up');
    Wait(2000+Random(500));
    ClickToContinue;
    lvlups := lvlups + 1
  end else
    begin
     result := False;
    end;
end;

Procedure AlternativeDown1;
begin
  if not LoggedIn then Exit;
  FindNormalRandoms;
  Tries := 0
  MakeCompass('S');
  Setangle(False);
  Wait(500+Random(200));
  MMouse(369,142,5,6);
  if (IsUpText('case')) then
  Begin
    GetMousePos(x,y);
    Mouse(x,y,1,1,True);
  End else
    MMouse(365,137,1,1);
  repeat
   begin
    MMouse(x-10,y-3,1,1);
    Inc(Tries);
   end;
  Until ((Tries = 20) Or (IsUpText('case')));
end;


Procedure BankAndWithdraw;
begin
  if not LoggedIn then Exit;
  FindNormalRandoms;
  OpenBankFast('lb');
  Wait(700+Random(100));
  Mouse(395,306,2,2,True); //Deposit all items, DepostAll; Seemed slow
  if (MakeCompass('S')) then
    begin
      SAndWItem('raw '+LowerCase(Players[CurrentPlayer].Strings[0]), 99, 27);
    end else
    begin
      SAndWItem('raw '+LowerCase(Players[CurrentPlayer].Strings[0]), 99, 27);
      CloseBank;
      MakeCompass('S');
    end;
end;

Function Down: Boolean;
Begin
  if not LoggedIn then Exit;
  FindNormalRandoms;

  Result := False

  if (FindObjCustom(x,y,['case'], [4606796,7897218],10)) then
    begin
      Mouse(x,y,3,3,True);
      Wait(2000+Random(300));
      if (FindObjCustom(x,y,['case'], [3685437,6054499],10)) then
        begin
          Mouse(x,y,3,3,False);
          Wait(300);
          ChooseOption('down');
        end;
    end;
End;




Procedure Setup;
begin
  SetupSRL;
  Wait(1000);
  DeclarePlayers;
if not LoggedIn then LoginPlayer;
end;


Procedure GetDown;
Begin;
  if not LoggedIn then Exit;
  FindNormalRandoms;
  MakeCompass('S');
  SetAngle(False);
  Mouse(640,18,6,6,True); //RadialWalking aint working either
  Case random(5) of
  1: SetRun(True);
  end;
  Wait(5000);   //Flag Doesnt seem to work
  Down;
end;


Procedure GotoSymbol;
Begin
  if not LoggedIn then Exit;
  FindNormalRandoms;
  Wait(2000);
  if (FindSymbol(x,y, 'cook')) then
    begin
      Mouse(x,y,2,2,true);
      Flag;
    end else
    begin
      MakeCompass('N');
      Wait(500+Random(300));
      SetAngle(True);
      Wait(200+Random(300));
      Mouse(648,57,2,2,True);
    End;
  Mouse(701,447,1,1,true);
  MakeCompass('N');
  SetAngle(True);
  Wait(1000+Random(200));
  if not (Isuptext('Use')) then
    begin
      Mouse(617,376,2,2,True);
      Flag;
    end;
End;

Procedure ClickRawAndCook;
var trys : Integer;
Begin
  if not LoggedIn then Exit;
  FindNormalRandoms;
  MMouse(255,415,1,1);
  farve := GetColor(147,356)
  if not (farve=128) then
    repeat
      Wait(1000);
      farve := GetColor(147,356);
      Inc(Trys);
    until ((farve=128) or (trys = 20));
  Mouse(254,413,1,1,false);
  Wait(300);
  ChooseOption('ll');
End;

Procedure WaitTillFinished;
var uncooked : Integer;
begin
  if not LoggedIn then Exit;
  FindNormalRandoms;
  Uncooked := GetColor(705,445);
  repeat
    Wait(1000);
    Wait(300);
    Case Random(20) of
    1: MMouse(1,1,300,450); //Antiban
    3: Begin GameTab(2); Wait(1000+Random(1000)); GameTab(4); end;
    11: MMouse(1,1,700,750);
    end;
    if (Checklevelup) then
    begin
      Wait(1000+Random(200));
      FindRangez;
      Wait(700+Random(600));
      Mouse(705,445,2,2,True);
      Mouse(x,y,2,2,True);
      Wait(700);
      //Cook All again
      Mouse(254,413,1,1,false)
      Wait(300);
      ChooseOption('ll');
    end;
  until not ((GetColor(705,445) = Uncooked) Or not (LoggedIn));
  writeln('All Cooked! ..Returning..');
  Food := Food + 28
  FishCooked := FishCooked + 28
end;

Procedure Return_GoToLadder;
var DTM1, DTM2, DTM3, DTM4, DTM5, Bank : Integer;
begin
if not LoggedIn then Exit;
FindNormalRandoms;

//Wow - This aint working, but kept it to show u i can
{var trys, CurrentDTM : Integer;
thisdtm : Array [0..4] of integer;
Thing:Boolean;
begin

  DTM1 := DTMFromString('78DA632C616260F06640011F3FBF01D38C503' +
       'E6315504D38013539403541F8D5000051DF0ACB');


  DTM2 := DTMFromString('78DA630C6262602862400171C6DC609A11CA6' +
       '70C03AA2920A006644E3E7E3500FF96042C');

  DTM3 := DTMFromString('78DA63BCC6C4C0A0C0C8800C2A4AF219B8803' +
       '448F43F10309E07AA51465593EEC405A661A28C578854A34640CD' +
       '39C26A00F0F00D14');

  DTM4 := DTMFromString('78DA630C636260C8614001DE92109A11CA670' +
       'C01AAC922A02602A8269B809A70A09A745435EFDEBD435103009B' +
       'A10708');

  DTM5 := DTMFromString('78DA630C65626028664001DE92109A11CA678' +
       'C24424D30116A42806A8AF0AB0100828704C1');

ThisDtm[0] := DTM1;
ThisDtm[1] := DTM2;
ThisDtm[2] := DTM3;
ThisDtm[3] := DTM4;
ThisDtm[4] := DTM5;

if not (FindDTMRotated(ThisDTM[CurrentDTM],x,y, MMX1,MMY1,MMX2,MMY2, 0,0,10,angeel)) then
begin
    repeat
        begin
          case trys of
            5: CurrentDTM := 1;
            10: CurrentDTM := 2;
             15: CurrentDTM := 3;
              20: CurrentDTM := 4;
          end;
            trys := trys + 1
            if (FindDTMRotated(ThisDTM[CurrentDTM],x,y, MMX1,MMY1,MMX2,MMY2, 0,0,10,angeel)) then
            begin
            Thing := True
            end;
        end;
    until ((FindDTMRotated(ThisDTM[CurrentDTM],x,y, MMX1,MMY1,MMX2,MMY2, 0,0,10,angeel) or (trys = 25)));

    FreeDTM(DTM1);
    FreeDTM(DTM2);
    FreeDTM(DTM3);
    FreeDTM(DTM4);
    FreeDTM(DTM5);

end;

    if (thing = True) then
    begin
    Mouse(x,y,1,1,True);
    Wait(5000); //Flag aint working :(
    end;
}

    Wait(2000+Random(200));
    Mouse(116,328,2,2,True);
    Wait(900+Random(200));
    MakeCompass('S');
    Wait(500+Random(200));
    FindObjCustom(x,y, ['rune'], [1804255, 542021], 10);
    Mouse(x,y,2,2,False);
    ChooseOption('ake');
    Wait(1000+Random(100));

end;

Procedure Return_GetUp;
begin
  if not LoggedIn then Exit;
  FindNormalRandoms;
  if not (FindObjCustom(x,y, ['case'],[8555148, 6515051],13)) then
    begin
      Wait(500+random(200));
      FindObjCustom(x,y, ['case'],[8555148, 6515051],13);
    end;
  Mouse(x,y,1,1,False);
  ChooseOption('case');
  Wait(500+Random(600));
  LoadingPlzWait;
  Wait(300);
  if not (FindObjCustom(x,y, ['case'],[8555148, 6515051],13)) then
    FindObjCustom(x,y, ['case'],[8555148, 6515051],13);
  Wait(1000+Random(1000));
  Mouse(x,y,2,2,False);
  Wait(100);
  ChooseOption('up');
  Wait(200);
end;

Function FindBankSymbol : Boolean;
var bank : Integer;
begin
  if not LoggedIn then Exit;
  FindNormalRandoms;
  bank := BitmapFromString(7, 13, 'beNpjYICAbXNsIYiBAUXk67f5c' +
         'Cm4CBwlBLFARIAMCAlBcMEP5xWBJNxACBdCQsQhZgJFIAhTHL8hcF' +
         'ehCcINhJsJFIQwkG2BALizQRwADpBrPA==');

  If (FindBitmapRotated(Bank, x,y, angel, MMX1,MMY1,MMX2,MMY2)) then
    begin
      Result := True;
    end else
      Result := False;
FreeDTM(bank);
end;


Procedure Return_GoToBank;
Begin
  if not LoggedIn then Exit;
  FindNormalRandoms;
  Wait(600);
  MakeCompass('N');
  Wait(200);
  MakeCompass('N'); //In case the first failed
  If (FindBankSymbol) Then //Why cant i do FindSymbol('Bank') lol
  begin
    Mouse(x,y,2,2,True);
  End else
    begin
      Writeln('Failed Clicking symbol eh ?');
      Writeln('Lets try this..');
      Mouse(639,44,2,2,True);
  end;
  Wait(4000+Random(300));
end;

Procedure ClickRange;
var trys : Integer;
Begin
  if not LoggedIn then Exit;
  FindNormalRandoms;
  FindRangez;
  Mouse(x,y,1,1,False);  //GoTo Range
  Wait(300);
  if not (ChooseOption('ange')) then
   begin
    repeat
      Wait(500+Random(100));
      FindRangez;
      Mouse(x,y,2,2,False);
      inc(trys);
    until ((ChooseOption('ange')) or (trys = 50));
  end;
End;

Procedure Progz;
Begin
if not LoggedIn then Exit;
WriteLn('------------------------------------------');
Writeln('|    This applys for all characters       |');
WriteLn('------------------------------------------');
Writeln('|                                         |');
Writeln('|    Thx For using my Cookzorx Script     |');
if (lvlups > 1) then
  begin
    Writeln('| Gratz on this: '+ InttoStr(lvlups)+' Cooking lvls!        |');
    Writeln('|                                         |');
    WriteLn('------------------------------------------');
  end else
  begin
    Writeln('| Remember to post Proggiez               |');
    Writeln('|                                         |');
    WriteLn('------------------------------------------');
  end;
Writeln('|                                         |');
Writeln('| Script Ran for: '+ TimeRunning+ '|');
Writeln('| Totally cooked fish: '+ IntToStr(FishCooked)+'                |');
Writeln('| Breaks Taken: '+IntToStr(BreaksTaken)+' Aka '+IntToStr(Players[0].Integers[1])+' Minutes ea.      |');
Writeln('|                                         |');
WriteLn('------------------------------------------');
Writeln(' ');
end;

Procedure CheckBreak;
var minu, seco: Integer;
begin
  if not LoggedIn then Exit;
  FindNormalRandoms;
  If (Food > Players[CurrentPlayer].Integers[0]) then
    begin
      minu := Players[CurrentPlayer].Integers[1];
    //  Logout; Not Working either :S:S:S:S
    //Logout Player
      Mouse(753,12,2,2,True);
      Wait(600+Random(200));
      Mouse(646,376,2,2,True);
      Wait(1000);
    //Logout Done
      Disguise('Taking Break');
      Wait(1000);
        Repeat
          Disguise('Left: '+ IntToStr(minu) + ' Minutes');
          Wait(500);
          Disguise('Left: '+IntToStr(seco) + ' Seconds');
          Wait(500);

          if (seco = 0) then
            begin
              minu := minu - 1;
              seco := 60
            end;
          seco := seco - 1;

        Until ((minu = 0) and (seco = 0));
    Disguise('Waiting random 20 seconds');
    Wait(20000);
    Disguise('.:LumbyCooker:.');
    BreaksTaken := BreaksTaken + 1
    Food := 0
    end;
end;

Procedure MainLoop;
begin
  Repeat
    Begin
      If not (LoggedIn) then
        LoginPlayer;
      BankAndWithdraw;
      GetDown;
      GoToSymbol;
      ClickRange;
      ClickRawAndCook;
      WaitTillFinished;
      Return_GoToLadder;
      Return_GetUp;
      Return_GoToBank;
      Progz;
      CheckBreak;
    End;
  Until (Players[CurrentPlayer].Integers[2] < FishCooked);
end;

Procedure SetupSmart;
begin
SMARTSetUpEX(World, Member, True, False);
SetTargetDC(SMARTGetDC);
end;

//-------------------------------Main Loop----------------------------------\\

begin
Disguise('.:LumbyCooker:.');
Cleardebug;
Setup;

If (UseSmart) then SetupSmart;
Repeat
  Repeat
    Begin
      MainLoop;
    End;
  Until (Players[CurrentPlayer].Integers[2] < FishCooked);
  NextPlayer(True);
Until (AllPlayersInactive);
end.

Put the script in post next time

You don't have to attach it, you just copy/paste the code in the post ;)
Looking at it now..

From: MylesMadness
Put the script in post next time

It said i dont have permission to use the attach feature :(

From: Laur€ns
You don't have to attach it, you just copy/paste the code in the post ;)
Looking at it now..

Ah, that clear it up :)

Thx for taking time looking at it :D

Click edit and replace the stuff inside [*code] (without the *) with your script.

From: Zasz
Click edit and replace the stuff inside [*code] (without the *) with your script.

There u go

btw. I dont suggest using smart

Salam, Yes from me.

Though i dislike the Coord clicking must been a way to get it past that though you covered DDTM/BITMAP/DTM's/Finding Object. You should have added TPA's/RRW.

Though you'll get those 2 later on :p gj

Yes from me too, seems like a script SRL Members worthy.
Are you a traceur??? I love parkour too, I just learned how to roll without hurting my shoulder and neck on concrete :)

I say yes…. (which is what i voted.)

<(`-_0`)^ <- Doctor love says maybe.

From: ~~Joker~~
Salam, Yes from me.

Salam, Thx for yes :D Appreciate it :)

Parkour vid if u know arabic: :rolleyes:
http://www.youtube.com/watch?v=hlD1LUY7y2k :p

From: Zyt3x
Yes from me too, seems like a script SRL Members worthy.
Are you a traceur??? I love parkour too, I just learned how to roll without hurting my shoulder and neck on concrete :)

Thx for yes :D Appreciate it too :)

Yes i am a traceur And a Freerunner

Aww - Roll you say. I would love to be able to do that, i still cant - Been training for 2 years now, no roll for me (YET!). Gonna learn it soon i hope :)

Me: http://www.youtube.com/watch?v=mzYf37tLMXY :rolleyes: - dont like

From: Zasz
I say yes…. (which is what i voted.)

<(`-_0`)^ <- Doctor love says maybe.

Again, Thx for yes :D Really Appreciate it too :)
Who is Dr. Love -.-'

May i ask who voted no so i could learn a bit more/what i should improve :) ?

From: xabdullahx
Salam, Thx for yes :D Appreciate it :)

Parkour vid if u know arabic: :rolleyes:
http://www.youtube.com/watch?v=hlD1LUY7y2k :p

DANNG that is sick! dude was awsome added that to my facebook lmao and going to show my parents hahah was cool dude(mashallah).

you got mad skillz dude.
Prolly will own at Break Dancing or something too lol

The script is short, you should put stuff more into the players array.
It's just very short I like your attitude and the stuff you do in the spare time.
But if I actually see what made it's a bit short on code, sorry, no.
No use of srl when srl even p0wnz his procedure/function.

Mate that stuff is Sick!!! :D
I wanna do that!
Now down to business…
your a nice guy
good attitude
good script

Yes from me :)

T~M

From: ~~Joker~~
DANNG that is sick! dude was awsome added that to my facebook lmao and going to show my parents hahah was cool dude(mashallah).

you got mad skillz dude.
Prolly will own at Break Dancing or something too lol

Elhamdullelah, good vid :p

heh, break, i thought of that, never been able to windmill so i stopped -.- :p

From: Hermen
The script is short, you should put stuff more into the players array.
It's just very short I like your attitude and the stuff you do in the sparet ime.
But if I actually see what made it's a bit short on code, sorry, no.
No use of srl when srl even p0wnz his procedure/function.

Thx for reply
So i should use more Srl procedures in my script?
Also i remember i read that the averange length of an apply script is 450 words, i may be wrong, but cant find the tutorial again :(

I will improve that in next versions

If it is a no, can i just improve everything you and others say, maybe also add a form (:stirthepot:), then apply again ?

Nah, it's just you use only one thing, and have lots of commented out stuff.
Only use SRL if it's better than yours.

From: xabdullahx
Yes i am a traceur And a Freerunner

Aww - Roll you say. I would love to be able to do that, i still cant - Been training for 2 years now, no roll for me (YET!). Gonna learn it soon i hope :)

Me: http://www.youtube.com/watch?v=mzYf37tLMXY :rolleyes: - dont like

Ah, nice vid, alot of good vaults and fast cat leaps :) You did one roll in that vid :)
I've been doing parkour for 4 weeks now and will soon try to learn more and more vaults, tomorrow I'll try the speed vault - looks like the easiest one.

From: Hermen
Nah, it's just you use only one thing, and have lots of commented out stuff.
Only use SRL if it's better than yours.

K i will next time :)

From: Zyt3x
Ah, nice vid, alot of good vaults and fast cat leaps :) You did one roll in that vid :)
I've been doing parkour for 4 weeks now and will soon try to learn more and more vaults, tomorrow I'll try the speed vault - looks like the easiest one.

Nice, :), well, my rolls aint perfect (cant do them on cement), if u want help with anything just add me on msn.

The first vault i ever did was the monkey vault

>.> this application should be on topic :p.

You should use the player Strings[] to store what food to cook rather than have a const for it - having a single const makes it less multiplayer. The same goes for the other const's - what if they want one player to cook sharks and the other trouts, for example?

LoadingPlzWait - Pretty sure you don't need a 'if not loggedin then exit' when you haven't even gotten to the place to login

SAndWItem - You shouldn't terminate. It's a multiplayer script, so if there are too few items, set current player to inactive and go onto the next - NextPlayer(false). Moreover, 'MoveMouse(51,110);' - You should be shot for that. MMouse, not MoveMouse. Not only that, but again - 'MoveMouse(50,110);' shortly after. Looking at that, I went back up a bit and saw you using Mouse with 1,1 for randomness. I honestly don't think you know the point of using randomness now nor do you know about MMouse, which is very worrying. You then use 'Mouse(x,y,2,2,False);' after the second MoveMouse, which is even more worrying as what you're now saying is after moving, move a little more before clicking. There is also no point in having the xitem boolean variable - you can just type in the amount you want to withdraw at that point.

CheckLevelUp/ more specifically 'Mouse(238,465,2,2,True);' in it, use the SRL Click to continue function instead - returns true if it did have to click else false, so you can use that to see if you leveled up. It's either ClickToContinue or something similar to it. Also, you use a begin and end when you only have one line to run - Result := False;, so you don't need them. You can have them, but then at least indent it properly.

AlternativeDown1 - There's MoveMouse and MoveMouseSpline. Use MMouse. Also, your repeat loop at the end could be infinite as you don't increment i in it - i := i +1 or Inc(i) in the loop and it's fine. I guess you at least attempted to stop it. You may also want a wait in there. (Use Tries instead of i though - mine was just example code).

GotoSymbol - Glad to see a failsafe, but you don't make sure you're actually there after that. You just continue on and hope, which isn't a good idea.

ClickRawAndCook - MoveMouseSpline again. Infinite loop if the colour gotten is never 128. Also very stupid as RS colours change a lot, so this seems like it's extremely unreliable.

WaitTillFinish - MoveMouse again. I guess it's not really a problem though, because 'case 5 of' will always do option number 5 of the case, which doesn't exist. I think you wanted 'case Random(5) of'.

FindBankSymbol - You create but don't free the bitmap.

Somewhat gave up towards the end…


I personally request that all the above members are shot though. Several members and not a single mention of the MoveMouse's. 6 yes's and 2 no's (before I vote). Please try more next time.


xabdullahx - No from me. Change all the MoveMouse and MoveMouseSpline's to MMouse and maybe I would vote yes, but definitely a no now.

No from me. Read carefully what mixter said, plus:

    repeat
      Wait(500+Random(100));
      FindRangez;
      Mouse(x,y,2,2,False);
    until (ChooseOption('ange'))

possible endless loop

i think this is like 40/100. avoid using global variables and try using parameters in functions, like
function RangeDDTM(tolerance: integer): integer;

From: marpis
No from me. Read carefully what mixter said, plus:

    repeat
      Wait(500+Random(100));
      FindRangez;
      Mouse(x,y,2,2,False);
    until (ChooseOption('ange'))

possible endless loop

i think this is like 40/100. avoid using global variables and try using parameters in functions, like
function RangeDDTM(tolerance: integer): integer;

Fixed also.

From: mixster
You should use the player Strings[] to store what food to cook rather than have a const for it - having a single const makes it less multiplayer. The same goes for the other const's - what if they want one player to cook sharks and the other trouts, for example?

LoadingPlzWait - Pretty sure you don't need a 'if not loggedin then exit' when you haven't even gotten to the place to login

SAndWItem - You shouldn't terminate. It's a multiplayer script, so if there are too few items, set current player to inactive and go onto the next - NextPlayer(false). Moreover, 'MoveMouse(51,110);' - You should be shot for that. MMouse, not MoveMouse. Not only that, but again - 'MoveMouse(50,110);' shortly after. Looking at that, I went back up a bit and saw you using Mouse with 1,1 for randomness. I honestly don't think you know the point of using randomness now nor do you know about MMouse, which is very worrying. You then use 'Mouse(x,y,2,2,False);' after the second MoveMouse, which is even more worrying as what you're now saying is after moving, move a little more before clicking. There is also no point in having the xitem boolean variable - you can just type in the amount you want to withdraw at that point.

CheckLevelUp/ more specifically 'Mouse(238,465,2,2,True);' in it, use the SRL Click to continue function instead - returns true if it did have to click else false, so you can use that to see if you leveled up. It's either ClickToContinue or something similar to it. Also, you use a begin and end when you only have one line to run - Result := False;, so you don't need them. You can have them, but then at least indent it properly.

AlternativeDown1 - There's MoveMouse and MoveMouseSpline. Use MMouse. Also, your repeat loop at the end could be infinite as you don't increment i in it - i := i +1 or Inc(i) in the loop and it's fine. I guess you at least attempted to stop it. You may also want a wait in there. (Use Tries instead of i though - mine was just example code).

GotoSymbol - Glad to see a failsafe, but you don't make sure you're actually there after that. You just continue on and hope, which isn't a good idea.

ClickRawAndCook - MoveMouseSpline again. Infinite loop if the colour gotten is never 128. Also very stupid as RS colours change a lot, so this seems like it's extremely unreliable.

WaitTillFinish - MoveMouse again. I guess it's not really a problem though, because 'case 5 of' will always do option number 5 of the case, which doesn't exist. I think you wanted 'case Random(5) of'.

FindBankSymbol - You create but don't free the bitmap.

Somewhat gave up towards the end…


I personally request that all the above members are shot though. Several members and not a single mention of the MoveMouse's. 6 yes's and 2 no's (before I vote). Please try more next time.


xabdullahx - No from me. Change all the MoveMouse and MoveMouseSpline's to MMouse and maybe I would vote yes, but definitely a no now.

Ahhh. good post, made me realize all (Props have more) my mistakes.

Anyway, i fixed everything u said, Except the GotoSymbol thing, i didnt quite understand, could you explain a bit more please? i cant do "if (Mouse(2,2,2,2,True)) then" right?

[Fixed script in 1st post]

Yes from me :).

Fixed what he was told to fix, nice attitude, open for critiscism, good script :).

Traceur !!! :).

85/100.

From: The Man
Mate that stuff is Sick!!! :D
I wanna do that!
Now down to business…
your a nice guy
good attitude
good script

Yes from me :)

T~M

Forgot to thank you there :)
Thx :D

From: Dr D. Dervish
Yes from me :).

Fixed what he was told to fix, nice attitude, open for critiscism, good script :).

Traceur !!! :).

85/100.

Thank you also :D

Actually, the script works better now :p

Mixster: What's wrong with MoveMouseSpline?

[QUOTE=Dan's The Man;581656]Mixster: What's wrong with MoveMouseSpline?

The only reason I can think of is that it's not in SRL, when you can show people your knowledge of SRL why not use MMouse instead? There the same anyways, no?

I wouldnt choose MoveMouseSpline if it didnt look human, i just tried it, then thought it was perfect

As a Rule - ALWAYS use a function in SRL it has been tested extensively, and it is 99.9% good at not getting you banned.

From: NaumanAkhlaQ
As a Rule - ALWAYS use a function in SRL it has been tested extensively, and it is 99.9% good at not getting you banned.

Yes sir :norris:

Btw. how do i find this thread :O

Takes me ages to find everytime if i am on someone elses computer, i cant search for it either :(

btw. NaumanAkhlaQ, what is your voice :) ?

try to remember the last numbers in the thread :)

heres a remember-rule:

4 first number.
6 secound number.
2, secound number - first number.
2, same as last time,
5, the one inbetween the first and the secound number.
http://www.villavu.com/forum/showthread.php?t=46225

Or you can always bookmark it (h).

Woops, another computer nevermind hold on..

Edit: Here you go. http://tinyurl.com/xabdullahx. I'm sure that you can remember that :).

From: Zyt3x
try to remember the last numbers in the thread :)

heres a remember-rule:

4 first number.
6 secound number.
2, secound number - first number.
2, same as last time,
5, the one inbetween the first and the secound number.
http://www.villavu.com/forum/showthread.php?t=46225

hahahaha :p you want me to remember topic id :rolleyes: :D
i am not used to that :p
thx for attempt anyway :)

From: Da 0wner
Or you can always bookmark it (h).

Woops, another computer nevermind hold on..

Edit: Here you go. http://tinyurl.com/xabdullahx. I'm sure that you can remember that :).

Hehe, thx for that :cool:

Salam young one :P

I like you but not your script. It seems, umm a bit fuzzy to me… Not all standards are carried out through out the script which kinda bother me when trying to read whats going on.

There are much better ways to use some of your procs and funcs such as:

Function LoadingPlzWait : Boolean; //Cause i am using a slow computer: Waits till "Loading - Please Wait" Message disappear
Var Loading: Integer;
begin
  FindNormalRandoms;
  Loading := DTMFromString('78DA63DCCAC0C0B09F012B6084D340D62954B' +
         '9FFFFFF63AAD946404D3D03716A08D9B59508359B88B4EB0011FE' +
         '3A885F0D0053352257');

  if (FindDTM(Loading,x,y,0,0,140,31)) then
  begin
    Writeln('Loading - Please Wait');
    Result := True;
      Repeat
        Wait(600+Random(500));
      Until not (FindDTM(Loading,x,y,0,0,140,31));
  end;
  Result := False;
  FreeDTM(Loading);
  Wait(500+Random(400));
end;

(btw, there is no point of Result := True; if right after that if statement you have a Result := False;. In the end it'll just return false no matter what in that case)

Could be something as simple as:

function LoadingPlzWait: Boolean; // Don't know why you want to return boolean..?
begin
  while (GetColor(230, 235) = 1118604) do
    Wait(100);
  Result := not GetColor(230, 235) = 1118604; // Will return true if its not loading. remove 'not' to return false
end;

This will just get the static color at the left corner, which is like the first and last color to appear/disappear once logged in.

And many functions you've recreated are in SRL Library. To become a SRL Member it is a requirement to basically abuse all of SRL functions in the best and most efficient way possible :) So abuse them!

But nevertheless, love your attitude towards others and towards learning to adapt new ideas and apply them. I get a good sense that you are capable to carry out a good knowledge of SCAR scripting and may make a good assert to the community. YES from me! - Hope to see you as another member soon :)



~NS

Thank you Nadeem, i've already learned alot of things, by applying this script, hopefully my next script would be amazing compared to this :)

Btw. Thx for trusting me :)

The loadingPlzWait procedure is actually not needed, its just because i didnt had my computer (Send it so they could repair it) so i was forced to use an old computer, it was really slow and lagged in runescape, therefore, the loading - please wait thing were really long waits, so i thought i will make a procedure that waits till the loading is over, then continue.
But now i got my laptop back, its not really needed anymore.

Can i copy your procedure in my script :) ?

From: Nadeem

And many functions you've recreated are in SRL Library. To become a SRL Member it is a requirement to basically abuse all of SRL functions in the best and most efficient way possible :) So abuse them!

Actually, never thought i would get that one, (Sorry if other already mentioned it, but here is my reply).
I thought when applying, i had to use my logical/programming skill :O

i see, if i used the functions in the SRL library my script would be alot shorter, but now i now SRL library functions is the key to succed in this forum :p

EDIT: When does the voting end?

From: xabdullahx
Btw. Thx for trusting me :)

From: xabdullahx
Can i copy your procedure in my script :) ?

No problem! And go ahead!

From: xabdullahx
EDIT: When does the voting end?

Your not really supposed to know I think :P But to hint you in, before this month ends.



~NS

From: Nadeem

Your not really supposed to know I think :P But to hint you in, before this month ends.

~NS

This poll will close on 06-21-2009 at 04:39 AM

errr…:p

~RM

From: Rasta Magician
This poll will close on 06-21-2009 at 04:39 AM

errr…:p

~RM

lol guess it dun matter :P for me though it says This poll will close on 06-20-2009 at 10:39 PM - lol?



~NS

Heh, thx for info :p

Bump :P

From: ~~Joker~~
Bump :P

Ty :p

So, is it tomorrow or tomorrow again :)?

It's still the 19th according to the server :]

Good luck :D

Its the 20th for me :p

This poll will close on 06-20-2009 at 10:39 PM



~NS

The server is still the 19th >.< lol it's GMT..

Wtf, now i have 3 different dates ?

99_ says its 19th (Properly aint :p)

Nadeem says its 20th

RM says its 21th

The current date for the server is now the 20th. I'm talking about the server (GMT! -.- lol) which means it's like.. 1:43 in the morning where the server is.. so it'll close in like.. 18 hours.. :p

It's June 19th 5:50 PM.

-.- I hate you so much, Kyle.

haha I just said like 3 times that I'm stating the server time, not the users time. >.<

The server time can easily be seen by the posts :D. The time above them is the SERVER time they were posted. Unless maybe you edited your settings. Not sure, haven't edited mine.

This poll is now closed. I am sure you got in :D.

Poll Closed.

Yay. i won :) - I guess? :D
(Hope this isnt too early posted) :p

I would like to thank these people helping me approaching this goal :):

• cycrosism
• WT-Fakawi
• ZephyrsFury
• MujaheD
• Hobbit
• n3ss3s
• Da 0wner (For wasting my time with gifbin.com while i am scripting -.-')
• The Man
• Nose_Smasher
• Dusk412
• Rasta Magician
• 99_
• Mixster
• And of Course those who voted yes :)
• And those who voted no and gave feedback on what i could do better :)

(Tell me if i forgot ya :))

You forgot me.

>.> add "99_, for spamming my app with random nonsense about the server time."

(It's almost midnight at the server! :o)

Added you :D:rolleyes::spongebob:

In.