Results 1 to 3 of 3

Thread: Help please

  1. #1
    Join Date
    Aug 2007
    Location
    Vancouver
    Posts
    394
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default Help please

    SCAR Code:
    program VEBBurner;
    {.include SRL/SRL.scar}

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

      Players[0].Name := 'jjhgj';
      Players[0].Pass := 'byy';
      Players[0].Nick := 'inf'; //3 or 4 letter from your username
      Players[0].Active := True;
      Players[0].Strings[0] := 'Maple'; //Oak,Willow,Yew,Magik,or Log.

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

    procedure Signature;
    begin
      Writeln('111111111111  1111111111   111111111111');
      Writeln('  111     11  1111         111111111111');
      Writeln('  111     11  1111             1111    ');
      Writeln('  111     11  1111   1111      1111    ');
      Writeln('  111     11  1111   1111      1111    ');
      Writeln('111111111111  11111111111      1111    ');
      Writeln('          VEBURNER Version 0.1         ');
    end;

    var
      willows, nlog, oak, tinderbox, Magik, Yew, Maple, x, y, bankers: Integer;

    procedure DeclareDtms;
    begin
      Willows := DTMFromString('78DA63146164606001622410E6ABC02007A44' +
        '1A2FF8180911FC8E2455503918591405A0CC8E222A04616C8E224' +
        'A04601D33D186A6480ACFF0CF8D5B013E11E2EC2FE0200F11F06E' +
        '5');
      Nlog := DTMFromString('78DA636C63646058CE80028A22CD18E480345' +
        '086E13F1030D602591B18D00023032B540D983715C85A4D404D27' +
        '11E65402594BF1AB010077B50B34');

      Oak := DTMFromString('78DA639CC7C8C0C008C448A026C18A410E488' +
        '344FF030123480D0FAA1A882C8C04D2FD4016070135AB812C4E22' +
        'D4301250B316C86225A0662190C54D40CD14208B0BBF1A0093B80' +
        'A94');
      Tinderbox := DTMFromString('78DA633CC8C4C0B09F9101192439F330C8016' +
        '990E87F2060DC08547318550D44164602E9B34035BB08A801D975' +
        '92809AE340358708A8390954B38E809A9D40359BF1AB0100FFC30' +
        'F66');
      Magik := DTMFromString('78DA632C666460F8C780027E7F5FC92007A48' +
        '1320CFF8180310DC8E2664455C4C0884402E93A208B9D809A7220' +
        '8B8B809A42208B87809A4C208B0FBF1A002A5E0AAE');
      Maple := DTMFromString('78DA63FCC9C0C0B09C010544DA7233C801694' +
        '620FE0F048C1F808C0D0C6880118904D2BF80C446026AD881AC35' +
        '04D48058EBF1AB0100BE2D0B19');
      Yew := DTMFromString('78DA63DCC9C8C0B094010584D87333C80169A' +
        '00CC37F20605C07646D6240038C4824903E0264AD26A0660790B5' +
        '81809AE540D632026A9601596B09A8D90F642D22A0E60090B500B' +
        'F1A00A3760FCE');
      Bankers := DTMFromString('78DA630C666260A8614001F535650CFF81342' +
        '310FF0702C630A09A2654356FDF426846289F31900835BE44A8F1' +
        '24424D24504D23AA9A3F7F9850D5C4629A83AE06006CEC17B2');

    end;

    procedure SpecialWalKRandom; forward;
    procedure BeginLightNormal; forward;
    procedure BeginLightMaple; forward;
    procedure BeginLightYew; forward;
    procedure BeginLightMagik; forward;
    procedure BeginLightOak; forward;
    procedure BeginLightWillow; forward;

    procedure DoLog;
    begin
      FixBank;
      if FindDTM(nLog, x, y, MSX1, MSY1, MSX2, MSY2) then
        Mouse(x, y, 5, 5, False);
      Wait(300);
      ChooseOption('All');
      CloseBank;
      SpecialWalkRandom;
      BeginLightNormal;
    end;

    procedure DoOak;
    begin
      FixBank;
      if FindDTM(Oak, x, y, MSX1, MSY1, MSX2, MSY2) then
        Mouse(x, y, 5, 5, False);
      Wait(300);
      ChooseOption('All');
      CloseBank;
      SpecialWalkRandom;
      BeginLightOak;
    end;

    procedure DoWillow;
    begin
      FixBank;
      if FindDTM(Willows, x, y, MSX1, MSY1, MSX2, MSY2) then
        Mouse(x, y, 5, 5, False);
      Wait(300);
      ChooseOption('All');
      CloseBank;
      SpecialWalkRandom;
      BeginLightWillow;
    end;

    procedure DoMagik;
    begin
      FixBank;
      if FindDTM(Magik, x, y, MSX1, MSY1, MSX2, MSY2) then
        Mouse(x, y, 5, 5, False);
      Wait(300);
      ChooseOption('All');
      CloseBank;
      SpecialWalkRandom;
      BeginLightMagik;
    end;

    procedure DoMaple;
    begin
      if FindDTM(Maple, x, y, MSX1, MSY1, MSX2, MSY2) then
      begin
        Mouse(x, y, 5, 5, False);
        Wait(300);
        ChooseOption('All');
        CloseBank;
        SpecialWalkRandom;
        BeginlightMaple;
      end;
    end;

    procedure DoYew;
    begin
      FixBank;
      if FindDTM(Yew, x, y, MSX1, MSY1, MSX2, MSY2) then
        writeln('woot');
      Mouse(x, y, 5, 5, False);
      Wait(300);
      ChooseOption('All');
      CloseBank;
      SpecialWalkRandom;
      BeginLightYew;
    end;



    procedure WithdrawThemLogs;
    begin
      MakeCompass('N');
      wait(300 + random(23));
      OpenBankQuiet('veb');
      Wait(2000);
      fixbank;
      case lowercase(Players[CurrentPlayer].Strings[0]) of
        'Log': DoLog;
        'Willow': Dowillow;
        'Oak': Dooak;
        'Magik': DoMagik;
        'Maple': DoMaple;
        'Yew': DoYew;
      end;
    end;

    procedure SpecialWalkRandom;
    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 WalkOutside;
    begin
      SpecialWalkRandom;
    end;

    procedure WaitForLight; forward;

    procedure BeginlightNormal;
    begin
      repeat
        if FindDTM(Tinderbox, x, y, MIX1, MIY1, MIX2, MIY2) then
          Mouse(x, y, 5, 5, True);
        Wait(300);
        if FindDTM(nLog, x, y, MiX1, MiY1, MiX2, MiY2) then
          Mouse(x, y, 5, 5, true);
        WaitForLight;
      until not FindDtm(nlog, x, y, mix1, miy1, mix2, miy2)
    end;

    procedure BeginlightMagik;
    begin
      repeat
        if FindDTM(Tinderbox, x, y, MIX1, MIY1, MIX2, MIY2) then
          Mouse(x, y, 5, 5, True);
        Wait(300);
        if FindDTM(Magik, x, y, MiX1, MiY1, MiX2, MiY2) then
          Mouse(x, y, 5, 5, true);
        WaitForLight;
      until not FindDtm(Magik, x, y, mix1, miy1, mix2, miy2)
    end;

    procedure BeginlightYew;
    begin
      repeat
        if FindDTM(Tinderbox, x, y, MIX1, MIY1, MIX2, MIY2) then
          Mouse(x, y, 5, 5, True);
        Wait(300);
        if FindDTM(Yew, x, y, MiX1, MiY1, MiX2, MiY2) then
          Mouse(x, y, 5, 5, true);
        WaitForLight;
      until not FindDtm(Yew, x, y, mix1, miy1, mix2, miy2)
    end;

    procedure BeginlightMaple;
    begin
      repeat
        if FindDTM(Tinderbox, x, y, MIX1, MIY1, MIX2, MIY2) then
          Mouse(x, y, 5, 5, True);
        Wait(300);
        if FindDTM(Maple, x, y, MiX1, MiY1, MiX2, MiY2) then
          Mouse(x, y, 5, 5, true);
        WaitForLight;
      until not FindDtm(Maple, x, y, mix1, miy1, mix2, miy2)
    end;

    procedure Beginlightoak;
    begin
      repeat
        if FindDTM(Tinderbox, x, y, MIX1, MIY1, MIX2, MIY2) then
          Mouse(x, y, 5, 5, True);
        Wait(300);
        if FindDTM(oak, x, y, MiX1, MiY1, MiX2, MiY2) then
          Mouse(x, y, 5, 5, true);
        WaitForLight;
      until not FindDtm(oak, x, y, mix1, miy1, mix2, miy2)
    end;

    procedure Beginlightwillow;
    begin
      repeat
        if FindDTM(Tinderbox, x, y, MIX1, MIY1, MIX2, MIY2) then
          Mouse(x, y, 5, 5, True);
        Wait(300);
        if FindDTM(willows, x, y, MiX1, MiY1, MiX2, MiY2) then
          Mouse(x, y, 5, 5, true);
        WaitForLight;
      until not FindDtm(willows, x, y, mix1, miy1, mix2, miy2)
    end;

    procedure WaitForLight;
    begin
      if InChat('att') then
        repeat
          Wait(300);
          FindTalk;
          Wait(200);
          FindNormalRandoms;
          Wait(300);
        until InChat('catch');
    end;

    begin
      SetupSrl;
      DeclarePlayers;
      DeclareDtms;
      Signature;
      WithdrawThemLogs;
    end.

    when it gets to part like DoLog;
    where it needs to find the dtm is fails.
    But the dtm does work, ive tested them...what going on xD?
    ps. Tol is set to 30 for each dtm as it should be for logs since their all diff colours.

  2. #2
    Join Date
    Jun 2007
    Posts
    785
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    you are sure you linked it with the right DTM?

    [22:20] <[-jesus-]> freddy, go uninstall yourself

  3. #3
    Join Date
    Jun 2007
    Location
    Wednesday
    Posts
    2,446
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    Check to make sure your DTM's are correct for the bank and also, you need to add Begin's and End's after you 'If() Then's so it runs the procedures properly. It might be because of one of those that's stopping it, but I don't think so. As far as I can see it *should* run, but if it still doesn't after fixing the begin's, then double check your DTM's.

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
  •