Results 1 to 12 of 12

Thread: W16 AirCrafter

  1. #1
    Join Date
    Jun 2007
    Posts
    1,312
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default W16 AirCrafter

    SCAR Code:
    program World16AirCrafter;   //By JackLKrawl  MAJOR CREDITS go to
    {.include srl/srl.scar}
                            //Mat_de_b - Fixed MAJOR errors and standards
                           
    const
      Chat = 8388736;      //Change this to the trade color to be safe
      E = 4671309;         //The Essence Color, you may need to change it
      Crafts = 0;          //This is how many times you want the script to craft airs.
      A = 580;             //Ignore these
      B = -14524745;
      C = 324;
      D = 290;
      Name = 'blagh';//Switch this to your own username
      Password = 'blagh';
      Nickname = 'lag';
    var                     //Other Directions....
      x,y: integer;         //keep GOLD in the first slot
      I: integer;           //keep ESSENCE in the second slot
      Spammed: integer;     //
      Essence: integer;     //
      Tradedz: integer;     //
      altar: integer;

    procedure DeclarePlayers;
    begin
      NumberOfPlayers(1);
      HowManyBooleans := 2;
      Players[0].Name := (Name);
      Players[0].Pass := (Password);
      Players[0].Nick := (Nickname);
      Players[0].Integers[0] := 20;
      Players[0].Booleans[0] := True;
      Players[0].Booleans[1] := False;
      Players[0].Extendeds[0] := 3.141592654;

      Writeln('Using '+IntToStr(HowManyPlayers)+' Players');
      LoadPlayerArray;
    end;
    procedure Login;
      begin
      If(not(loggedin)) then
        begin
          login;
        end;
      end;
    function FindFastRandoms: Boolean; //by WT-Fawaki
    var
      i: Integer;
    begin
      for i := 1 to 9 do
      begin
        case I of
          1: if FindDead then
              Result := True;
          2: if FindMod then
              Result := True;
          3: if FindMime then
              Result := True;
          4: if FindMaze then
              Result := True;
          5: if FindQuiz then
              Result := True;
          6: if FindDemon then
              Result := True;
          7: begin
              if NoGameTab then
              begin
                Result := True;
                Players[CurrentPlayer].loc := 'No GameTab';
                Logout;
                Exit;
              end;
            end;
          8: begin
              if InBlack then
              begin
                Result := True;
                Players[CurrentPlayer].loc := 'InBlack';
                Logout;
                Exit;
              end;
            end;
          9: RC;
        end;
        Wait(1);
      end;
    end;

    procedure Spaminate;
    begin
      FindNormalRandoms;
      FindFastRandoms;
      Spammed:=Spammed+1;
      wait(500+random(600));
      Random(5);
        case random(20) of         //Note: These spelling mistakes are not
          0:  TypeSend('Open 2k '+ name);   //real mistakes
          1:  TypeSend('Open 2k '+ name);
          2:  TypeSend('Open 2k + Ess! -'+ name);
          3:  TypeSend('Open 2k + Ess Back!');
          4:  TypeSend('Open 2000 + Essence Back! ' + name);
          5:  TypeSend('wave2:Open 2k');
          6:  TypeSend('Open 2k');
          7:  TypeSend('Oepn 2k ' + name);
          8:  TypeSend('red:wave2:Open 2k '+ name);
          9:  TypeSend('Open 2000 + Essence Bavk! ---'+ name);
          10: TypeSend('glow2:Open 2k ' + name);
          11: TypeSend('Open 2K!');
          12: TypeSend('Open 2000 '+ name);
          13: TypeSend('white:Open 2k');
          14: TypeSend('Open 2k+Ess');
          15: TypeSend('Open');
          16: TypeSend('Open 2000..');
          17: TypeSend('Open 2k + ess Back!!');
          18: TypeSend('Open 2k');
          19: TypeSend('Open 2k+Ess Bck --- '+name );
        end;
    end;
    procedure FindChat;
    begin
      FindNormalRandoms;
      wait(200);
      FindFastRandoms;
      Wait(600+random(30));
      if (GetColor(12,451)=Chat) Then
        begin
          Mouse(12+random(100)-random(100),451+random(5)-random(5),1,1,true);
          wait(500+random(200));
        end;
      if (not(GetColor(12,451)=Chat)) Then
        begin
          Spaminate;
          wait(100+random(200));
          FindChat;
        end;
    end;
    procedure EnterGold;
      begin
        Mouse(577+random(10),238+random(10),1,1,false);
        wait(500+random(200));
        Mouse(577+random(10),318+random(10),1,1,true);
        wait(500+random(200));
        TypeSend('2000'+chr(13));
        wait(334+random(500));
        Tradedz:=Tradedz+1
      end;
    procedure EnterEssence;
      begin
        Mouse(619+random(10),226+random(10),1,1,false);
        Wait(500+random(120));
        Mouse(619+random(12),318+random(12),1,1,true);
        wait(400+random(340));
        Typesend('25');
        Essence:=(Essence+1)*25;
      end;
    procedure AcceptorDecline;
      begin
        begin
          if GetColor(331, 92) and GetColor(324, 290) = E then
            Mouse(263+random(9), 186+random(9), 1, 1, true);
            Wait(200 + random(200));
            Mouse(222+random(19), 311+random(10), 1, 1, true);
            Wait(200 + random(200));
        end;

          if not (GetColor(A, B)= E) or not (Getcolor(C, D)= E) then
            begin
              Mouse(260-random(10), 264-random(5), 1, 1, true);
              wait(500);
              Spaminate;
              FindChat;
              EnterGold;
              EnterEssence;
        end;

      end;
    procedure CraftZehRunes;
      begin
          FindFastRandoms;
          FindNormalRandoms;
          perfectnorth;
          Altar := DTMFromString('78DA637CC1C0C010CC80025262C2C0342394C' +
           'FF80E4844A2AA898E084555F31348D8A2AAB1B3304155F3154868' +
           'A1AA3137D24155F31F4804A0AA09F476435573154864A0AA49881' +
           '74455730748F8A0AAC94C884255F30A48C4A19913E18FA2060019' +
           'F9111D');
          if(FindDTM(Altar,x,y,0,0,100,100)) then
            begin
              Mouse(x-random(5),y-random(5),1,1,true);
              wait(200+random(200));
              Mouse(x-random(100),y-random(100),1,1,true);
            end;
          if(not(FindDTM(altar,x,y,0,0,100,100))) then
            begin
              Wait(100000000000);
              terminatescript;
              end;
        I:=I+1;
      end;
    procedure Proggy;
      begin
        Writeln('----JACKLKRAWLS---WORLD16---Air---Crafter----')
        Writeln('You have spammed '+ inttostr(spammed)+' Innocent People');
        Writeln('You have traded '+ inttostr(tradedz)+' Air Runners');
        Writeln('You have made '+ inttostr(essence)+' Rune Essence into Airs!!')
      end;
    begin
        repeat
          SetupSRL;
          DeclarePlayers;
          Login;
          Spaminate;
          FindNormalRandoms;
          FindFastRandoms;
          FindChat;
          EnterGold;
          EnterEssence;
          AcceptOrDecline;
          CraftZehRunes;
          FindNormalRandoms;
          FindFastRandoms;
          Proggy;
        until(I=Crafts);
    end.
    Blagh! It keeps giving me
    [Runtime Error] : Exception: Access violation at address 0053BCEE in module 'scar.exe'. Write of address 020D4EA8 in line 91 in script C:\Program Files\SCAR 3.11\includes\SRL/SRL/Core/Players.scar

    Just for laughs, how much of this have I screwed up on?
    Active only during the Summer...

  2. #2
    Join Date
    Jun 2007
    Location
    Minnesota
    Posts
    773
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Successfully compiled for me. Maybe you have Vista? I hear people are having troubles with that. Otherwise was SRL installed correctly? EDIT: Put spaces between your procedures

  3. #3
    Join Date
    Aug 2007
    Location
    England
    Posts
    734
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    for me line 91 is the word begin? check you dona cciedntaly have the wrong srl is all i can advise...
    The truth finally came out...


  4. #4
    Join Date
    Jun 2007
    Posts
    1,312
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    This is scar 3.11 w/ SRL 4

    I know that I messed up somewhere along lines 38-45, but I'm stumped.
    Active only during the Summer...

  5. #5
    Join Date
    Jun 2007
    Location
    La Mirada, CA
    Posts
    2,484
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    the error in your first post jack, you just need to restart scar, and besides that it compiles for me

    "Failure is the opportunity to begin again more intelligently" (Henry Ford)


  6. #6
    Join Date
    Jun 2007
    Posts
    1,312
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ok, thank you!
    o_O This is one weird way to get a script fixed.
    Active only during the Summer...

  7. #7
    Join Date
    Jul 2007
    Posts
    44
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Well, this scripts runned quite good. Maybe it wil works if u use the newest scar and srl?

  8. #8
    Join Date
    Dec 2006
    Location
    Copy pastin to my C#
    Posts
    3,788
    Mentioned
    8 Post(s)
    Quoted
    29 Post(s)

    Default

    Nooo people!!

    If it compiles it does not mean it wouldnt give the error when its running!

    Thats why its called [Runtime Error] -.-

  9. #9
    Join Date
    Aug 2007
    Posts
    1,404
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Well... All I can see is a mistake on lines 39-45.
    I'll tell you what's wrong (I fixed standards so it's easier to read):
    SCAR Code:
    procedure Login;
    begin
      If(not(loggedin))then
      begin
        login;
      end;
    end;
    The procedures name is 'login'.
    If your char is not logged in you have it run the procedure 'login'.
    So. If your character isn't logged in, it runs login. And login would find out that your char is NOT logged in. And then it would run Login again.

    So: If your char is not logged in, your script does an infinite loop.

    -Knives

  10. #10
    Join Date
    Jun 2007
    Posts
    1,312
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    What?
    Active only during the Summer...

  11. #11
    Join Date
    Mar 2007
    Posts
    3,042
    Mentioned
    1 Post(s)
    Quoted
    14 Post(s)

    Default

    Your procedure's name is Login, which checks to see if the player's logged in or not, then does Login again, because Login isn't an SRL function and is declared in your script. Therefore, since it keeps checking if you're logged in while nothing happens if that is false, your script would hang and nothing would ever happen. You're looking for LoginPlayer;, which will log in any characters.
    :-)

  12. #12
    Join Date
    Sep 2007
    Posts
    33
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I Bet Some1 Auto Law Makes/trades 1 Day Rofl...

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. AirCrafter Blog
    By TViYH in forum Blogs and Writing
    Replies: 10
    Last Post: 10-10-2008, 09:15 PM
  2. AirCrafter
    By TViYH in forum OSR Help
    Replies: 6
    Last Post: 10-02-2008, 09:17 PM
  3. [RS2][SRL]AirCrafter v0.1[SRL][RS2]
    By magnetical in forum RS3 Outdated / Broken Scripts
    Replies: 18
    Last Post: 02-19-2007, 06:03 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
  •