Results 1 to 12 of 12

Thread: Gona Need Some Major Help

  1. #1
    Join Date
    Apr 2007
    Posts
    49
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Gona Need Some Major Help

    SCAR Code:
    {.Script Info:
    # ScriptName  = = 3RD Degree Burnz
    # Author      = Exedos
    # Description = Takes logs from bank and lights em for your firemakeing needs
    # Version     = 1.0
    # Date        = -
    # Comments    = Start in front of one of the bank booths at Varrock east bank,
    Hit the play button setup char pass nick then Close :D and watch thouse dreaded
    logs be burnt.

    Program new;
    {.include SRL\SRL.scar}

    {.include SRL\SRL\Skill\Firemaking.scar}

    const
    DaMouseSpeed = 5;  //Mouse speed higher = fast lower = slower
    LoadAmnt = 100; //Number of loads per player.
    MaxTimeperload = 3; //Maximum number of minutes per load

    var
      LogColor, FailSafe, Loadz, FailSafe2: Integer;

    procedure Setup;
    begin
      Signature;
      SetupSRL;
      StartPlayers(True, '');
      NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
      MouseSpeed := DaMouseSpeed;
      ActivateClient;
      Wait(3000);
      LoginPlayer;
      PerfectNorth;
      ChatsOff;
    end;

    procedure AntiBanz;
    var
      Ban: Integer;
    begin
      if (not (LoggedIn)) then Exit;
      Ban := Random(500);
      case Ban of
        1: HoverSkill('FireMaking', True);
        2: HoverSkill('Random', False);
        3: PickUpMouse;
        4: LeaveScreenEvery(3 + Random(7));
        5: RandomChatEvery(8 + Random(6));
        6: HoverEvery(3 + Random(5), 'Firemaking');
        7: AlmostLogout;
        8: ExamineObj('logs', LogColor, 10);
      end;
    end;

    procedure AntiRandoms;
    begin
      Status('AntiRandoms;');
      FindNormalRandoms;
      DwarfItem;
      FindLamp('Firemakeing');
      OpenBox;
      SolveBox;
      if(DetectFrogCave)then SolveFrogSwamp;
      if(InBlack)then Logout;
      if(FindFight)then RunAway;
      if(TalkToRand)then
        begin
          repeat
          ClickToContinue;
          until(not(TalkToRand));
        end;
      if(WeAreDead)then
        begin
          Logout;
          Players[CurrentPlayer].Active:= False;
          NextPlayer(True);
        end;
    end;

    Procedure MyBankFinding;
    begin
      if (not (LoggedIn)) then Exit;
      if(not(OpenBankGlass('veb', True, True))) then
      begin
        if(not(OpenBankQuiet('veb'))) then
        begin
          if(not(FindObjMultiText(x, y, 'ooth', 'ank booth', 'oth', 11579828, 10))) then
          begin
            if(not(FindObjMultiText(x, y, 'ooth', 'ank booth', 'oth', 2908279, 10))) then
            begin
              OpenBank3;
            end;
          end;
        end;
      end;
    end;


    procedure WithdrawIt;
    begin
      if (not (LoggedIn)) then Exit;
      MyBankFinding;
      FixBank;
      MMouse(94, 78, 10, 10);
      Wait(1000);
      if(not(IsUpTextMulti('ogs', 'gs', 'log'))) then
      begin
            CloseBank;
        NextPlayer(False);
      end;
      Withdraw(1, 1, 27);
      CloseBank;
      MarkTime(FailSafe);
      repeat
        Wait(500);
        if(TimeFromMark(FailSafe) > 20000) then
          WithdrawIt;
      until(ExistsItem(28));
      LogColor := GetColor(711, 445);
    end;

    procedure LightALog;
    var
      i: Integer;
    begin
      if (not (LoggedIn)) then Exit;
      if(FindColor(x, y, LogColor, MIX1, MIY1, MIX2, MIY2)) then
      begin
        Mouse(x, y, 5, 5, True);
        Wait(250 + Random(250));
        Mouse(586, 228, 5, 5, True);
        AntiRandoms;
      end else
      begin
        for i := 2 to 28 do
        begin
          if(ExistsItem(i)) then
          begin
            MouseItem(i, True);
            Mouse(586, 228, 5, 5, True);
            AntiRandoms;
          end;
        end;
      end;
    end;

    procedure WalkNLight;
    var
      Time: Integer;
    begin
      if (not (LoggedIn)) then Exit;
      Time := MaxTimeperload * 60000
      if(not(RadialRoadWalk(FindRoadColor, 0, 90, 60, 3, 3))) then
      begin
        Mouse(MMCX + 40, MMCY - 20, 10, 10, True);
        FFlag(10);
      end;
      MarkTime(FailSafe2);
      repeat
        AntiRandoms;
        LightALog;
        MarkTime(FailSafe);
        repeat
          AntiRandoms;
          Wait(500);
          if(CantLightCheck) then
          begin
            if(FindColor(x, y, FindRoadColor, MSX1, MSY1, MSX2, MSY2)) then
            begin
              Mouse(x, y, 10, 10, True);
              Flag;
            end else
            begin
              Mouse(MSCX, MSCY - 40, 10, 10, True);
              Flag;
            end;
          end;
          if(ClickToContinue) then
          begin
            repeat
              ClickToContinue;
              Wait(2000 + Random(500));
            until(not(ClickToContinue));
          end;
          if(TimeFromMark(FailSafe) > 20000) then
          begin
            LightALog;
            MarkTime(FailSafe);
          end;
        until(InChatMulti('catc', 'nd', 're'));
      until(CountItemColor(LogColor) < 1) or (TimeFromMark(FailSafe2) > Time);
    end;

    procedure WalkBack;
    begin
      if (not (LoggedIn)) then Exit;
      if(not(FindSymbol(x, y, 'bank'))) then
      begin
        if(not(RadialRoadWalk(FindRoadColor, 88, 92, 50, 3, 3))) then
        begin
          Mouse(MMCX + 50, MMCY, 10, 10, True);
          FFlag(10);
          AntiRandoms;
        end;
        if(not(FindSymbol(x, y, 'bank'))) then
        begin
          if(not(FindColorTolerance(x, y, 3982554, MMX1, MMY1, MMX2, MMY2, 30))) then
          begin
            Writeln('Cant find bank... Changing player...');
            NextPlayer(False);
          end;
        end;
      end;
      Mouse(x, y, 5, 5, True);
      Flag;
    end;

    procedure ProggyReport;
    var
      Logs: Integer;
    begin
      Logs := Loadz * 27;
      Writeln('~~~~~~~~~~Exedos 3RD Degree Brunz~~~~~~~~~~');
      Writeln('Worked for ' + TimeRunning);
      Writeln('Burnt ' + IntToStr(Logs) + ' logs');
      SRLRandomsReport;
    end;


    begin
      Setup;
      repeat
        WithdrawIt;
        WalkNLight;
        WalkBack;
        Loadz := Loadz + 1;
        ProggyReport;
        if (not (LoggedIn)) then Exit;
      until(Loadz >= LoadAmnt);
      if(Loadz >= LoadAmnt) then NextPlayer(True);
      if(Loadz <= LoadAmnt) then NextPlayer(False);
      Loadz := 0;
    end.


    I Am allmost but why the fuck is it giveing me this error? Line 29: [Error] (17813:1): Unknown identifier 'Signature' in script C:\Program Files\SCAR 2.03\Scripts\Test 1!.scar
    http://img254.imageshack.us/img254/6536/xcloud1di7.png

    98% of teens
    surround their minds with rap. If your part of the 2% that stayed with Metal/Death Metal/Black Metal and Rock, put this on your sig


    Join This Site Today:
    http://www.nitro-trades.info/index.php

    For all your Rs Trade needs

    Freindly and welcomeing people on here Scamers are a thing of the past

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

    Default

    Eah.. {.include SRL/SRL/Skill/Mining.scar} .. isn't this a Woodcutting script?


    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
    Dec 2006
    Location
    Sweden
    Posts
    10,812
    Mentioned
    3 Post(s)
    Quoted
    16 Post(s)

    Default

    You also can't light coal ores on fire..
    "writeln('Burnt : ' + inttostr(players[currentplayer].integer2) + ' coal ores')"

    What is wrong with your brain??


    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!

  4. #4
    Join Date
    Apr 2007
    Posts
    49
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    whats worng with my brain im a stoner bud that explain it :P ty and its a fire makeing script
    http://img254.imageshack.us/img254/6536/xcloud1di7.png

    98% of teens
    surround their minds with rap. If your part of the 2% that stayed with Metal/Death Metal/Black Metal and Rock, put this on your sig


    Join This Site Today:
    http://www.nitro-trades.info/index.php

    For all your Rs Trade needs

    Freindly and welcomeing people on here Scamers are a thing of the past

  5. #5
    Join Date
    Oct 2006
    Posts
    585
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    lol... shouldnt try to script when your stoned

    Quote Originally Posted by YoHoJo View Post
    I like hentai.

  6. #6
    Join Date
    Apr 2007
    Posts
    49
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    hehe yeh it doesnt help but any1 wana help me out or is it looking all ok? so far ofc
    http://img254.imageshack.us/img254/6536/xcloud1di7.png

    98% of teens
    surround their minds with rap. If your part of the 2% that stayed with Metal/Death Metal/Black Metal and Rock, put this on your sig


    Join This Site Today:
    http://www.nitro-trades.info/index.php

    For all your Rs Trade needs

    Freindly and welcomeing people on here Scamers are a thing of the past

  7. #7
    Join Date
    Nov 2006
    Location
    NSW, Australia
    Posts
    3,487
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Well you've got:
    SCAR Code:
    willowlogs,oaklogs,yewlogs,maplelogs,bankbooth1

    Declared as variables.

    You didn't declare what type of variable. Put this instead:
    SCAR Code:
    willowlogs,oaklogs,yewlogs,maplelogs,bankbooth1 : Integer;

    Also:

    SCAR Code:
    {.include SRL/SRL/Skill/FireMaking.scar}

    It should be:
    SCAR Code:
    {.include SRL/SRL/Skill/FireMakeing.scar}

    I haven't checked if the script compiles though...
    [CENTER][img]http://signatures.mylivesignature.com/54486/113/4539C8FAAF3EAB109A3CC1811EF0941B.png[/img][/CENTER]
    [CENTER][BANANA]TSN ~ Vacation! ~ says :I Love Santy[/BANANA][/CENTER]

    [CENTER][BANANA]Raymond - Oh rilie? says :Your smart[/BANANA][/CENTER]

  8. #8
    Join Date
    Apr 2007
    Posts
    49
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Ty i will update now first time scripting im picking it up slowly but surely
    http://img254.imageshack.us/img254/6536/xcloud1di7.png

    98% of teens
    surround their minds with rap. If your part of the 2% that stayed with Metal/Death Metal/Black Metal and Rock, put this on your sig


    Join This Site Today:
    http://www.nitro-trades.info/index.php

    For all your Rs Trade needs

    Freindly and welcomeing people on here Scamers are a thing of the past

  9. #9
    Join Date
    Nov 2006
    Location
    NSW, Australia
    Posts
    3,487
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    We all start like that...good luck in your scripting endeavours.
    [CENTER][img]http://signatures.mylivesignature.com/54486/113/4539C8FAAF3EAB109A3CC1811EF0941B.png[/img][/CENTER]
    [CENTER][BANANA]TSN ~ Vacation! ~ says :I Love Santy[/BANANA][/CENTER]

    [CENTER][BANANA]Raymond - Oh rilie? says :Your smart[/BANANA][/CENTER]

  10. #10
    Join Date
    Apr 2007
    Posts
    49
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by SantaClause View Post
    We all start like that...good luck in your scripting endeavours.
    Ty santa i hope i get this up n running Asap as there are no good firemakers about
    http://img254.imageshack.us/img254/6536/xcloud1di7.png

    98% of teens
    surround their minds with rap. If your part of the 2% that stayed with Metal/Death Metal/Black Metal and Rock, put this on your sig


    Join This Site Today:
    http://www.nitro-trades.info/index.php

    For all your Rs Trade needs

    Freindly and welcomeing people on here Scamers are a thing of the past

  11. #11
    Join Date
    Nov 2006
    Location
    NSW, Australia
    Posts
    3,487
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Agreed.
    [CENTER][img]http://signatures.mylivesignature.com/54486/113/4539C8FAAF3EAB109A3CC1811EF0941B.png[/img][/CENTER]
    [CENTER][BANANA]TSN ~ Vacation! ~ says :I Love Santy[/BANANA][/CENTER]

    [CENTER][BANANA]Raymond - Oh rilie? says :Your smart[/BANANA][/CENTER]

  12. #12
    Join Date
    Apr 2007
    Posts
    49
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ty for help ill fix this up and hope have it running in a couple of weeks (dont want no shitty script for first script) lol needs to be good so it works well nice anti randoms and fail safes
    http://img254.imageshack.us/img254/6536/xcloud1di7.png

    98% of teens
    surround their minds with rap. If your part of the 2% that stayed with Metal/Death Metal/Black Metal and Rock, put this on your sig


    Join This Site Today:
    http://www.nitro-trades.info/index.php

    For all your Rs Trade needs

    Freindly and welcomeing people on here Scamers are a thing of the past

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Major Need For Help!
    By faster789 in forum OSR Help
    Replies: 20
    Last Post: 04-12-2008, 08:36 PM
  2. Tomorow Summoning is gona be released?
    By yanix in forum RuneScape News and General
    Replies: 18
    Last Post: 01-14-2008, 10:16 PM
  3. need major help plz!!!
    By king tut in forum OSR Help
    Replies: 9
    Last Post: 09-09-2007, 04:39 AM
  4. Need Major Help!
    By Da Der Der in forum OSR Help
    Replies: 5
    Last Post: 12-14-2006, 07:48 PM
  5. Need major help
    By Wyn in forum OSR Help
    Replies: 2
    Last Post: 11-24-2006, 04:47 PM

Posting Permissions

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