Results 1 to 3 of 3

Thread: Partially done Firemaker Need feedback

  1. #1
    Join Date
    Sep 2006
    Posts
    8
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Partially done Firemaker Need feedback

    SCAR Code:
    /////////////////////////////////////////////////////////////////////////
    ////////// FireMaker By Pacmanpwns version 1.0 //////////////////////////
    ////////// V-Bright Setting Start in Varrock E Bank /////////////////////
    ////////// Logs in First bank slot Tinder Box in first inventory slot ///
    ////////// Start Logged OUT /////////////////////////////////////////////
    /////////////////////////////////////////////////////////////////////////

    program FireMaker;
    {.include SRL/SRL.scar}
    {.include SRL/SRL/Skill/Firemaking.scar}

    const

    //// Setup
    Username = ''; // Username of player
    Password = ''; // Password of player
    Nickname = ''; // First 3 Letters of your char name
    BurnColor = 0; // The Log Color your burning
    Loads = 2; // Number Of loads to do
    Mspeed = 17; // ..Speed of mouse
    //// DONE!


    /// Do not touch

    F1 = 236;
    F2 = 69;
    F3 = 290;
    F4 = 122;

    /// Do Not Touch

    var i : integer;

    Procedure DeclarePlayers;
    begin
         HowManyPlayers := 1;
         CurrentPlayer := 0;
         NumberOfPlayers(HowManyPlayers);
         Players[0].Name :=Username;
         Players[0].Pass :=Password;
         Players[0].Nick :=Nickname;
         Players[0].Active:= True;
    end;

    Procedure Setup;
    begin
    DeclarePlayers;
    NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
    LoadFireMakingBitmaps;
    Mousespeed:= Mspeed;
    if not(loggedin) then
    begin
    LoginPlayer;
    end
    end;

    Procedure MyFailSafe;
    var x,y,bank : Integer;
    begin
    if(FindBitmap(Bank,x,y))then
    begin
    FixBank;
    Mouse(x,y,2,1,false);
    wait(500+random(500));
    ClickOption('se-quickly',1);
    Wait(1000+random(500));
    Withdraw(1,1,0);
    Wait(1000+random(500));
    CloseBank;
    end
    end;

    Procedure TheBank;
    var x,y : integer;
    begin
    MakeCompass('W');
    LowestAngle;
    FindColorTolerance(x,y, 2050396,f1,f2,f3,f4,5);
    Wait(500+random(1000));
    Mouse(x,y,1,1,false);
    wait(500+random(500));
    ClickOption('se-quickly',1);
    Wait(1000+random(500));
    FixBank;
    Wait(500+random(200));
    Withdraw(1,1,0);
    Wait(1000+random(500));
    CloseBank;
    If(Not(FindColorTolerance(x,y, 2050396,f1,f2,f3,f4,5))) Then
    begin
    MyFailSafe;
    end
    end;

    Procedure GetToRoad;
    var x,y : integer;
    begin
    FindColorTolerance(x,y,6250343,691,53,699,61,5);
     Mouse(x,y,2,2,true);
     Flag;
    end;




    Procedure Randoms;
    begin
     FindTalk;
    Antiban;
    end;

    Procedure ScriptLoop;
    begin
    TheBank;
    Randoms;
    GetToRoad;
    end;

    var Bank : Integer;
    begin
    SetupSRL;
    Setup;
    SetRun(true);
    Repeat ScriptLoop; Until (False);
    if not(loggedin) then
    begin
    LoginPlayer;
    end
    bank := BitmapFromString(63, 9, 'z78DADD96490E83300C45AF143' +
           'CC461C994FB1FA929502995312A0A115022BD058340EF9B0F9EA8' +
           '73AD57E44852953DE125F4E42E6183E387A6E1AB9E397BB667519' +
           '847E8347D6401AF19C00B4CBE634E7B720A0390A6755FEA313C93' +
           'D5CD6BB7FB9E89A62D62C0F756CE0125AD7246ECD22A26018E389' +
           '650807B089AD60C7FF9376CF3406D131722A34BAB1ECF4AB676E2' +
           '8A56ABFC647E66EAF91E608392AA2622C004D3066B2772FBECF65' +
           'B259FDE85EB5195943E739D79CBFC51FE5D52E66CE75FC9DCBCF1' +
           '8E2C13AE799AF9FB27723029ABABADF636DBC9BA6AF69FBE29CEB' +
           '91328C8E91FA384B7F9F3318D19EDBD787E01377BCAA4');
    end.

    SO FAR I've Learned:
    -find color tolerance
    -a lot of srl commands/procedures
    -bitmaps
    -if/ then statements
    -If not then statements
    -variables
    -Progress reports
    -const
    - a lot more

    I am stuck on:
    -functions
    -some srl commands
    -randoms

    I want to learn
    -Standards
    -Forms
    -DTMs
    -Radial Walking
    - a lot more

    FEEDBACK please, after like 4 hours of scripting lmao.

    I know the roadwork needs work.

  2. #2
    Join Date
    Feb 2007
    Posts
    3,616
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    as for this: Mouse(x,y,2,2,true); if your going to walk to the road like that without radial walking, you need a LOT more then a random 2 pixels to not get banned after running this to long. try 5,5 or a little more then that even. And I may have missed something, but where does this script burn the logs? and as far as standards go, I'd start learning them randoms, FindNormalRandoms you need, not just FindTalk. and
    if(FindFight=true)then
    begin
    RunAway('N')
    Flag;
    wait(5000+random(2300));
    RunBack;
    end;
    like that. so there you have your randoms pretty much. learn standards, and if I missed the log burning procedure, please tell me Learn DTM's from yohojo's DTM tut too, great for items in inventory/bank.

  3. #3
    Join Date
    Sep 2006
    Posts
    8
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by JAD View Post
    as for this: Mouse(x,y,2,2,true); if your going to walk to the road like that without radial walking, you need a LOT more then a random 2 pixels to not get banned after running this to long. try 5,5 or a little more then that even. And I may have missed something, but where does this script burn the logs? and as far as standards go, I'd start learning them randoms, FindNormalRandoms you need, not just FindTalk. and
    if(FindFight=true)then
    begin
    RunAway('N')
    Flag;
    wait(5000+random(2300));
    RunBack;
    end;
    like that. so there you have your randoms pretty much. learn standards, and if I missed the log burning procedure, please tell me Learn DTM's from yohojo's DTM tut too, great for items in inventory/bank.


    Hey thanks for feedback. No you didn't miss my burning procedure, it hasn't been put in yet. As far as scripting its my first real rs script . Let me revise this and get back to you..

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. Removing Ads on Runescape
    By mirisido in forum General Botting Help
    Replies: 10
    Last Post: 10-24-2011, 09:38 AM
  2. Can I get some feedback on..
    By Torrent of Flame in forum News and General
    Replies: 14
    Last Post: 04-19-2008, 06:07 PM
  3. can i have some feedback on..
    By NiCbaZ in forum News and General
    Replies: 0
    Last Post: 04-10-2008, 11:46 PM
  4. New Sig (Feedback Please)
    By Scathis in forum Graphics and Multimedia
    Replies: 14
    Last Post: 01-19-2008, 03:50 PM
  5. Partially completed evil bob solver
    By Markus in forum Research & Development Lounge
    Replies: 6
    Last Post: 08-20-2007, 09:07 AM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •