SRL Archive - Archive

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

What is the meaning to life?
To explore what you havent yet achieved and to have the best time of your years on earth

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


Programming Knowledge


Other Communitys
Why visit any other when you got srl-forums :D

How Long have You Played Runescape
6 years

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

Well i started scripting because i thought it was intresting learning this, and ive always loved to use bots and find ways to make runescape mor e intresting (Cheating :D). I love to script and love finding more stuff to learn about srl, and the community is awesome and i always like helping another person become a better scripter. I do have problems with some functions but im always reading tutorials, to become a better scripter.
Ill help the community as much as i can. I know all the basics and some advanced functions of scar.

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

{ //-------------------------------------------------------------\\
  ||                         INSTRUCTIONS                        ||
  ||-------------------------------------------------------------||
  ||        BY:  Kooldude                                        ||
  ||                                                             ||
  ||  1.Raw Shit In 1st Bank Slot                                ||
  ||  2.Start In Edgeville Bank                                  ||
  ||  3.Setup Lines Are 30-38......                                   ||
  ||  4.Drag Crosshair into RS window.                           ||
  ||  5.Hit play and fill out forms.                             ||
  ||                                                             ||
  ||-------------------------------------------------------------||
  ||                          Credits                            ||
  ||                   YoHoJo - Helped Me Alot                   ||
  ||                         Jad - Tuts                          ||
  ||                        Srl Community                        ||
  ||                                                             ||
  \\-------------------------------------------------------------//
                                                                   }
program EdgeVilleCooker;
{.include srl/srl.scar}

var
  TreeDTM: Integer;
  Tries: Integer;
  Fishy: Integer;
  TotalLoads: Integer;
  StartXp, EndXp, TotalXp: Integer;
  Stove, NewDoor: Integer;
  xn,yn: Integer;

const
  PinNumber = '0000';  //Your Pin Number
  Loadz    =2; //Less loadz, Means less randoms :P
  MyName   ='f ski ller f';  //Change To Your Character name
{// DONT TOUCH THIS \\}
{||} Version = '.10';{||}
{\\ DONT TOUCH THIS //}

{------------------------------}
{    Players                   }
{------------------------------}
procedure DeclarePlayers;
begin
  HowManyPlayers := 1; //Number of PLAYERS. active or not.
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0; //Player to start on.


    Players[0].Name :='f ski ller f';
    Players[0].Pass :='******';
    Players[0].Nick :='ler'; //3-4 *Lower Case* Letters Of Username!
    Players[0].Active :=True;

      NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;

{------------------------------}
{    DTMs/BitMaps              }
{------------------------------}
Procedure DtmBitMap;
begin

  TreeDTM := DTMFromString('78DA6364616060606640019E05A6609A11CA6' +
       '76402124C0C58015C0D1B906021600E2BA63958ED22E01E003486' +
       '03E4')
  Fishy := DTMFromString('78DA631461606010624001675DC519FE03694' +
       '620FE0F048C3240061B031A60442281B414901024A04614484811' +
       '50C30E244409A801B99713BF1A00EEA4070F');

  Stove := BitmapFromString(14, 11, 'z78DACD924B0AC0200C44AF9' +
       '48846BA37DEFF48153FEDA0E82A85BA1810E263322391FD61D290' +
       'AEA6B64C7229A6C0E546FEFFCC4156D9E7C0ACB164B5E8C127934' +
       '79D26E5E5B02B3355D1CF8E79D8489EC94603E798DE474CB166F6' +
       '0798493E75B4B639B4B730FF9C5C7DA26E3DCF6DE28E372D47B81' +
       '9');
  NewDoor := BitmapFromString(4, 4, 'z78DA3373313535743675313' +
       '135B0B4703473343286906638C4CD8D4C2D4811070002361519');

end;

{------------------------------}
{    Walking To Stove          }
{------------------------------}

Procedure WalkingToStove;
begin
  if (not(LoggedIn)) then
  LoginPlayer
  SetRun(true)
  MakeCompass('N')
  HighestAngle
  If FindSymbol(x,y,'water source')then
  Mouse(x,y,1,1,True)
  WriteLn('Walked To Water Symbol!')
  Wait(4523 + Random(264))
  repeat
    wait(572+random(104))
    Tries := Tries + 1
    if (Tries = 10)then
    begin
      Writeln('Could not find Cooking Symbol...')
      Exit;
    end;
  until (FindSymbol(x, y,'cookery'))
  begin
    Mouse(x,y,1,1,True)
    WriteLn('Walking To Stove')
    Wait(4532 + Random(421))
    MakeCompass('S')
    LowestAngle
    begin
    if FindBitMapToleranceIn(NewDoor, xn, yn, MSCX - 100, MSCY - 30, MSCX + 100, MSCY + 30, 20) then
    begin
      ReportVars[11] := ReportVars[11] + 1
      Mouse(xn, yn, 0, 0, True)
      HighestAngle
      MakeCompass('N')
      end;
    end;
  end;
end;

{------------------------------}
{       Cooking                }
{------------------------------}
Procedure Cooking;
begin
    If FindDTM(Fishy,x,y,MIX1,MIY1,MIX2,MIY2) then
    Mouse(x,y,1,1,False)
    ChooseOption(x,y,'se')
  end;
  begin
    if FindColortolerance(x,y,924026,MSX1,MSY1,MSX2,MSY2,2)then
    if FindBitmap(Stove,x,y)then
    begin
      Mouse(x,y,1,1,True)
      ChooseOption(x,y,'x')
      Wait(244 +random(56))
      TypeSend('28')
      Writeln('Cooking Food')
      FindNormalRandoms
    end;
  end;
end;

{------------------------------}
{       WalkingToBank          }
{------------------------------}
procedure BankWalking;
begin
  begin
    if(not(LoggedIn))then
    LoginPlayer
    RadialWalk(2442323,40,79,71,1,1)
    Wait(1345 - Random(35))
    if FindSymbol(x,y,'bank')then
    Mouse(x,y,1,1,True)
    Wait(5234+random(543))
  end;
end;
{------------------------------}
{       WithDrawFood           }
{------------------------------}
Procedure Withdrawfood;
  begin
   if Findcolortolerance(x,y,537670,MSX1,MSY1,MSX2,MSY2,2)or
    FindColorTolerance(x,y,5593184,MSX1,MSY1,MSX2,MSY2,1)or
    FindColorTolerance(x,y,542022,MSX1,MSY1,MSX2,MSY2,1)then
    Mouse(x,y,1,1,False)
    ClickOption('se uikly',1)
    Wait(3421+random(423))
    if (Pinscreen) then
    begin
      Status('Entering Pin Number...')
      wait(278+random(124))
      InPin(PinNumber)
  end;
    If FindDTM(Fishy,x,y,MIX1,MIY1,MIX2,MIY2)then
    Mouse(x,y,1,1,False)
    ChooseOption(x,y,'x')
    TypeSend('28')
    TotalLoads:= TotalLoads + 1
    Mouse(93,77,0,1,False)
    ChooseOption(x,y,'ll')
    CloseBank
  end;

{------------------------------}
{       Getting Xp             }
{------------------------------}
Procedure Progress;
begin
  TotalLoads := 0;
      StartXP := GetXp('Cooking')
      EndXP := GetXp('Cooking')
      TotalXP := (EndXP - StartXP) + (TotalXP)
end;

{------------------------------}
{       Progress Report        }
{------------------------------}
Procedure Report;
Begin
  SRLRandomsReport;
  ClearDebug;
       Writeln('                       ___________                       ')
       Writeln('     _________________/Rayz Report\____________________  ')
       Writeln('    |==================================================| ')
       Writeln('    | Script Time: ' + (ScriptTime2(2)) +             '| ')
       Writeln('    | Loads Banked: ' + IntToStr (Totalloads) +       '| ')
       Writeln('    | XP Gained: ' + IntToStr (TotalXp) +             '| ')
       Writeln('    ==================================================== ')
end;

{------------------------------}
{    Rayz Special AntiBan      }
{------------------------------}
Procedure RayBan;
begin
  MakeCompass('E')
  Wait(3421 +Random(324))
  MakeCompass('N')
  If FindColortolerance(x,y,65657,MSX1,MSY1,MSX2,MSY2,80)or
  FindColortolerance(x,y,123423,MSX1,MSY1,MSX2,MSY2,80)or
  FindColortolerance(x,y,81732,MSX1,MSY1,MSX2,MSY2,80)or
  FindColortolerance(x,y,665231,MSX1,MSY1,MSX2,MSY2,80)then
  Mouse(x,y,1,1,False)
  Chooseoption(x,y,'ancle')
end;


{------------------------------}
{       Responder              }
{------------------------------}
Procedure Respond;
var
lol, Name: Integer;

begin
  If FindChatText('lol')or
  FindChatText('LOL!')or
  FindChatText('ROFL')or
  FindChatText('LMAO') then
  Lol := Random (5)
    Case Lol of
      0 : TypeSend('ROLF')
      1 : TypeSend('lol')
      2 : TypeSend('Funny')
      3: TypeSend('LMAO')
      4 : TypeSend('Ur Funny :)')
    end;
    If FindChatText(' '+IntToStr(Name))then
    Name := Random (3)
    case Name of
      0 : TypeSend('What?')
      1 : TypeSend('??..')
      2 : TypeSend('?')
    end;
end;
{------------------------------}
{       Siggy                  }
{------------------------------}
procedure Siggy;
begin
  ClearDebug;
  writeln(' Kooldudes EdgeVille Cooker!  ');
  writeln('   __   __                    ');
  writeln('  |  | /  /         _____     ');
  writeln('  |  |/  /         |   __|    ');
  writeln('  |     /          |  |__     ');
  writeln('  |     \          |   __|    ');
  writeln('  |  |\  \         |  |__     ');
  writeln('  |__| \__\ OOL DUD|_____|    ');
  wait(3000 + random(750));
end;


{------------------------------}
{       AntiBanage             }
{------------------------------}

procedure MouseAntiBan;
begin
  if not(LoggedIn)then Exit;
  case Random(6) of
    0 : PickupMouse;
    1 : IdleTime(9567 + Random(359),1000,1.0);
    2 : SleepAndMoveMouse(1343 + Random(2500));
    3 : RandomRClick;
    4 : AlmostLogout;
    5 : HoverSkill('Mining', false);
  end;
end;

{------------------------------}
{       MainLoop               }
{------------------------------}

begin
  SetupSrl;
  Siggy;
  ActivateClient;
  repeat
    if Players[CurrentPlayer].Loc := 'Bank'then
    begin
      if Players[CurrentPlayer].Banked <> 0 then
       begin
        WithdrawFood;//only withdraw food if started
      end;
      WalkingToStove;
    end;

    if Players[CurrentPlayer].Loc := 'Stove' then
    begin
      Cooking;
      BankWalking;
      WithDrawFood; //bank cooked food, withdraw new food. also do Players[CurrentPlayer].Banked := Players[CurrentPlayer].Banked + 1;
      Progress;
    end;

    if Players[CurrentPlayer].Banked mod BanksPerPlayer = 0 then
      NextPlayer(True);

    if Not Loggedin then
      NextPlayer(False);
  until(false);
  Report;
end.

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

you need to add semicolons";" in end of the line….
and need to add failsafes for banking

sorry no from me too simple

It's a no from me. It's too simple and short. Not enough failsafes. And it doesn't even compile. :o

You don't need this any more:

NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);

You can just use OpenBankFast('eb'); for opening the bank instead of your huge procedure.

hmm im guessing this script is really old and probally not yours?

since skilld post that and now you cant even use a script with no semicolons…

hope to see you not get busted :S

it is his script: http://www.villavu.com/forum/showthread.php?t=11607?t=12929&highlight=Edgeville+Cookerhttp://www.villavu.com/forum/showthread.php?t=11607?t=12929&highlight=Edgeville+Cooker
but i don't think that he has worked on it that recently.

Sorry, no from me. It's too simple imo and I think that you shouldn't have continuous loops. Don't use until(false), use something like until a certain ammount of loads.

And I don't think that your activity is too promising.

This is a bit old, HighestAngle, NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);, etc…

no.

Those labels for the procedures.
{——-}
{ }
{——-}

They look like what i use =/

From: Cazax
This is a bit old, HighestAngle, NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);, etc…

no.

More that it is copyed mhm?

He still would need to test it. yeah. if Drunkenoldmqa or someone could make something similar to notepad++, so you can search something from a bunch of files at same time, then copybusters are same as done. But yeah.

No

Ah. Looks like you will not get in next time…
Try again in 2 weeks, or later if you do not feel ready.
We hope the next script wil be scripted in the Chuck Norris style. ;)