Results 1 to 7 of 7

Thread: Need Help With script

  1. #1
    Join Date
    Feb 2008
    Posts
    50
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Need Help With script

    I made this script a while back (former member of sythe.org) and updated it to the best of my knowledge. Its been awhile and all these new procedures are overwhelming confusing. I just need help getting the banking and walking procedures to function for a different location. If your willing to help ill pm you the script and give you a majority of the credit =]
    "Our youth are not failing the system; the system is failing our youth. Ironically, the very youth who are being treated the worst are the young people who are going to lead us out of this nightmare." - Rachel Jackson

  2. #2
    Join Date
    Dec 2006
    Location
    Sweden
    Posts
    10,812
    Mentioned
    3 Post(s)
    Quoted
    16 Post(s)

    Default

    I made this script a while back and updated it to the best of my knowledge. Its been awhile and all these new procedures are overwhelming confusing. I just need help getting the banking and walking procedures to function for a different location. If your willing to help ill pm you the script and give you a majority of the credit =]
    Post the script please?


    Send SMS messages using Simba
    Please do not send me a PM asking for help; I will not be able to help you! Post in a relevant thread or make your own! And always remember to search first!

  3. #3
    Join Date
    Feb 2008
    Posts
    50
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    My script =]. I worked on it for 2 weeks before its first release over a year ago lol the people from sythe teach scripting much different and i just want to get my script up and running again. I just need someone to get the script to run in fally east. Like i said i will gladly give you mega props =]. I will add more log options for higher lvl fire makers as well.








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

    const
    YourSRLId = '';
    YourSRLPassword ='';


    procedure DeclarePlayers;
    begin
    HowManyPlayers := 1; //Fix accordingly\\
    NumberOfPlayers(HowManyPlayers);
    CurrentPlayer := 0;

    Players[0].Name := 'Ocarina'; //<==Example
    Players[0].Pass := '896142'; //<==Example
    Players[0].Nick := 'cari'; //3 or 4 letters from your username\\
    Players[0].Active := True; //If you want player to be ran in script\\
    Players[0].Strings[1] := 'willow'; //Do Not Touch\\
    SRLId:= '9865'; //Must Fill Out\\
    SRLPassword:= 'doggy1';

    Players[1].Name := 'Default'; //<==Example
    Players[1].Pass := '000000'; //<==Example
    Players[1].Nick := 'faul'; //3 or 4 letters from your username\\
    Players[1].Active := True; //If you want player to be ran in script\\
    Players[1].Strings[1] := 'willow'; //Do Not Touch\\
    SRLId:= ''; //Must Fill Out\\
    SRLPassword:= '';

    Players[2].Name := 'Default'; //<==Example
    Players[2].Pass := '000000'; //<==Example
    Players[2].Nick := 'faul'; //3 or 4 letters from your username\\
    Players[2].Active := True; //If you want player to be ran in script\\
    Players[2].Strings[1] := 'willow'; //Do Not Touch\\
    SRLId:= ''; //Must Fill Out\\
    SRLPassword:= '';


    end;


    //////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

    procedure proggie; forward;
    Procedure beginlightwillow; Forward;

    procedure WaitForLight;
    begin
    wait(900);
    if InChat('light') then
    repeat
    Wait(200);
    FindTalk;
    Wait(250);
    Wait(800);
    ClickToContinue;
    until InChat('fire');
    end;


    var
    x, y, willow, tinderbox, Burns: Integer;

    procedure DeclareDtms;
    begin

    willow := DTMFromString('78DA635462606090664001D1414A0C72409 A1' +
    '188FF0301A3289021CF800618914820CD0F242409A8110012 B204' +
    'D4C8000945026AD480841C01353A98FEC250A305244408A8D 1051' +
    '2E2F8D5000008D10714');

    Tinderbox := DTMFromString('78DA639461606010654001F18EDC0C72409 A1' +
    '188FF0301232F9021CB800618914820CD8D690E861A2520C1 4E40' +
    '8D3A901023A0469108F748030925026A40F670E3570300BBF F065' +
    'A');

    end;

    procedure WalkRandom;
    begin
    begin
    case random(3) of
    0: RadialRoadWalk(FindVarrockRoadColor, 41, 53, 56, 5, 5);
    1: RadialRoadWalk(FindVarrockRoadColor, 32, 40, 56, 5, 5);
    2: RadialRoadWalk(FindVarrockRoadColor, 28, 38, 48, 5, 5);
    3: RadialRoadWalk(FindVarrockRoadColor, 16, 26, 36, 5, 5);
    end;
    end;
    end;

    procedure WalkBank; forward;

    procedure Beginlightwillow;
    begin
    repeat
    if FindDTM(Tinderbox, x, y, MIX1, MIY1, MIX2, MIY2) then
    Mouse(x, y, 5, 5, True);
    Wait(300);
    if FindDTM(willow, x, y, MiX1, MiY1, MiX2, MiY2) then
    Mouse(x, y, 5, 5, true);
    Wait(900 + Random(487));
    WaitForLight;
    until (not (FindDtm(willow, x, y, mix1, miy1, mix2, miy2)))
    if (not (FindDTM(willow, x, y, MIX1, MIY1, MIX2, MIY2))) then
    Burns := Burns + 27;
    ReportVars[1]:= ReportVars[1] + 27;
    ReportVars[4]:= ReportVars[4] + 2430;
    SendSrlReport;
    WalkBank;
    end;


    procedure BeginWillow;
    begin
    if FindDTM(Willow, x, y, MSX1, MSY1, MSX2, MSY2) then
    Mouse(x, y, 5, 5, False);
    Wait(250);
    ChooseOption('All');
    CloseBank;
    WalkRandom;
    BeginLightWillow;
    end;

    procedure WithdrawWillows;
    begin
    FindNormalRandoms;
    MakeCompass('N');
    wait(275 + random(23));
    OpenBankQuiet('veb');
    Wait(1750);
    fixbank;
    FindNormalRandoms;
    case lowercase(Players[CurrentPlayer].Strings[1]) of
    'willow': Beginwillow;
    end;
    end;


    procedure BeginBank;
    begin
    SymbolAccuracy := 0.1;
    Wait(103);
    MakeCompass('N');
    Wait(300);
    if FindSymbol(x, y, 'Bank') then
    Mouse(x, y, 5, 5, true);
    Flag;
    FindNormalRandoms;
    ReportVars[3]:= ReportVars[0] + 1;
    SendSrlReport;
    WithdrawWillows;
    end;

    procedure WalkBank;
    begin
    RadialRoadWalk(FindVarrockRoadColor, 26, 97, 1, 8, 76);
    Flag;
    FindNormalRandoms;
    BeginBank;
    end;

    procedure Proggie;
    begin
    ClearDebug;
    Writeln('[[[[[[[Willow Torcher V 1.1]]]]]]]');
    Writeln(' Ran For: ' + (TimeRunning) + '');
    Writeln(' Logs Burned :' + IntToStr(burns) + '');
    Writeln('Thank you for choosing Willow Torcher');
    SrlRandomsReport;
    end;

    begin
    repeat
    SetupSrl;
    ScriptId:= '214';
    SRLId := YourSRLId;
    SRLPassword:= YourSRLPassword;
    if SRLId = '' then
    begin
    SRLId:= '5926';
    SRLPassword:= 'doggy1';
    DeclarePlayers;
    DeclareDtms;
    MouseSpeed := 14;
    WithdrawWillows;
    Proggie;
    end;
    until (false);
    Proggie;
    end.
    "Our youth are not failing the system; the system is failing our youth. Ironically, the very youth who are being treated the worst are the young people who are going to lead us out of this nightmare." - Rachel Jackson

  4. #4
    Join Date
    Feb 2008
    Posts
    50
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Hy i sent you a pm
    "Our youth are not failing the system; the system is failing our youth. Ironically, the very youth who are being treated the worst are the young people who are going to lead us out of this nightmare." - Rachel Jackson

  5. #5
    Join Date
    Oct 2006
    Posts
    1,190
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    just post then everyone can help u fix it



  6. #6
    Join Date
    Feb 2008
    Posts
    50
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Bonfield View Post
    just post then everyone can help u fix it
    Posted =]
    "Our youth are not failing the system; the system is failing our youth. Ironically, the very youth who are being treated the worst are the young people who are going to lead us out of this nightmare." - Rachel Jackson

  7. #7
    Join Date
    Oct 2006
    Posts
    1,190
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    it compiles whats wrong?



Thread Information

Users Browsing this Thread

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

Posting Permissions

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