Results 1 to 19 of 19

Thread: Problem

  1. #1
    Join Date
    Feb 2010
    Posts
    11
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Problem

    Someone help me please
    I made all things:
    changed this: {.Include SRL\SRL.scar}
    and: name = 'man'
    and:downloaded all includes
    but still gets error: Line 37: [Error] (21607:23): Unknown identifier 'RSSX1' in script C:\Documents and Settings\Kasutaja\Desktop\RSC_Theiver 1.5.scar

    http://img19.imageshack.us/img19/5035/errordk.png

  2. #2
    Join Date
    Feb 2010
    Location
    England
    Posts
    56
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    paste the whole code please? and wrap it in SCAR tags.

    thanks,
    void_hatred

  3. #3
    Join Date
    Feb 2010
    Posts
    11
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by void_hatred View Post
    paste the whole code please? and wrap it in SCAR tags.

    thanks,
    void_hatred


    PHP Code:
    program New;
    {.Include 
    SRL\SRL.scar}
    {.include 
    srl/srl/misc/Reports.scar}

    const
      
    hc_route 'C:\Users\akwardsaw\desktop\hc.bmp';
      
    txt_route 'C:\Users\akwardsaw\desktop\slword.txt';
      
    theive_col 65536//color of the person your pick-pocketing
      
    ground_col 143460//color of ground you are standing on
                           //on the minimap. works best in houses/ buildings
      
    name 'man'//names: man, or guard.
      
    amount 10;//how many attempts to pickpocket
    procedure DeclarePlayers;
    begin

      HowManyPlayers 
    := 1;
      
    NumberOfPlayers(HowManyPlayers);
      
    CurrentPlayer := 0;

      
    writeln('Declaring Players');

      
    with Players[0] do
      
    begin
        Name 
    := '';
        
    Pass := '';
        
    Nick := '';
        
    Active := True;
      
    end;
    end;

    procedure getimage(); //Thanks too 'gottapercha'

    var
      
    bInteger;
    begin
      b
    := Bitmapfromstring(254,39''); //Create an empty bitmap with the correct width and height
      
    CopyClientToBitmap(bRSSX1+129230RSSX1+383269); //Take a screenshot and copy it to b
      
    sleep(400);
      
    SaveBitmap(bhc_route );
      
    sleep(5000);
      
    writeln('Got Image Sent to Leosleep!');
      
    FreeBitmap(b); //Don't forget to free your bitmap after using
    end;

    procedure gettext// By Thick As Blood
    var
      
    s2 string;
      
    InFile Integer;
    begin
       InFile
    := OpenFile(txt_routeFalse);
       
    writeln('Typeing Text Now');
       
    ReadFileString(InFiles2FileSize(InFile));
       
    s2 := GetLetters(s2);
       
    CloseFile(InFile);
       if 
    s2 'unknown' then//antiban...
       
    begin
         Mouse
    (RSSX1+170298123true);
         Exit;
       
    end;
       
    Wait(Random(1500));
       
    TypeSend(s2);
       
    inc(players[currentplayer].integers[1]);
    end;

    procedure SleepIfNeeded;//by antti mies
    var
      
    IxyInteger;
      
    TooTiredInteger;
    begin
      TooTired 
    := BitmapFromString(4710'beNpjYACC////M1AA4Nr/gwF5' +
           
    'JkA0km0ChQ7A4xg036FZgVUQTQqrmcQYiytksLJxKSBSC0E1WL0zU' +
           
    'I4ZkJBBi6mBdQyelD840wxWxcTnJoKZgqTcNIgAAJCMK/E=');
      
    FindBitmapMaskTolerance(TooTiredxyRSSX1+52306RSSX1+10031700);
      
    FreeBitmap(TooTired);
      if 
    0 then Exit;
      if 
    not GameTabRSC(6then Exit;
      
    MMouse(RSSX1+477403330);
      
    Wait(2300+Random(555));
      if 
    FindColoredAreaTolerance(xy3036283RSSX1+26737RSSX1+50823750then Mouse(xy33true)
      else Exit;
      
    Wait(2500 random(500));
      
    repeat
        
    while (GetColor(RSSX1+209249) = 255) do
          
    Wait(500);
        
    Wait(600);
        
    GetImage;
        
    GetText;
        
    Wait(500 random(1000));
        
    Inc(I);
        if 
    10 then
        begin
          WriteLn
    ('LeoSleep Failed :(');
          
    TerminateScript;
        
    end;
      
    until(GetColor(RSSX1+167,41)<>65535);
      
    Wait(999);
    end;

    procedure antiban;
    begin
      
    if random(10) = 0 then SleepIfNeeded
    end
    ;

    function 
    Guptext(uptext string; var xinteger): boolean;
    var 
    dtm integer;
    begin
      
    case lowercase(uptextof
        
    'man' DTM := DTMFromString('78DA636C676460B8C08002FEFF87D08C503E6' +
           
    '32F90759A809A094498331DC83A4340CD1C22CC01B9F9247E3500' +
           
    'DFC41435');
        
    'pickpocket' DTM := DTMFromString('78DA63CC67626038C3C8800CFEFFFF0FA661A' +
           
    '28CE540351709A8A902AA3947404D0350CD69026ADA816A2E1350' +
           
    '33890837CF04AAB94440CD02A09AB3F8D50000B31F22B7');
        
    'infight' DTM := DTMFromString('78DA635CCAC8C0708F0105FCFFFF1F4C3342F' +
           
    '98CE780AC0704D4B0333130DC21A0E60B11E60802CDB945408D04' +
           
    '50CD23026A1603593709A85904643DC4AF060008CA22D0');
        
    'guard' DTM := DTMFromString('78DA636C63646038CA8002FEFF87D08C503E6' +
           
    '30F907588809A6E20EB2401353381AC2304D42C02B24E1050B314' +
           
    'C83A48841A42EE9945D8EF0088361AF0');
      
    end;
      
    result := finddtm(dtmxyrssx1rssy1rssx2rssy2);
      
    freedtm(dtm);
    end;

    procedure IFinfight;
    var
      
    txinteger;
      
    tpa tpointarray;
    begin
      
    if not Guptext('infight'xythen
        
    exit;
      
    inc(players[currentplayer].integers[2]);
      
    GameTabRSC(5);
      
    marktime(t);
      while 
    Guptext('infight'xy) do
      
    begin
        findcolorsspiraltolerance
    (RSCMXRSCMYtpaground_colRSMX1RSMY1RSMX2RSMY22);
        
    mouse(tpa[0].xtpa[0].y22true);
        
    wait(200 random(300));
        if 
    timefrommark(t) > 10000 then break;
      
    end;
      
    mmouse(rsscxrsscy2020);
    end;

    procedure PickPocket;
    var
      
    ctsaxinteger;
      
    tpa TPointArray;
    begin
      cts 
    := getcolortolerancespeed;
      
    colortolerancespeed(3);
      
    findcolorsspiraltolerance(rsscxrsscytpatheive_colrssx1rssy1rssx2rssy22);
      if 
    length(tpa) < 50 then exit;
      for 
    := 0 to 50 do
      
    begin
        mmouse
    (tpa[a].xtpa[a].y00);
        if 
    Guptext(namexythen
        begin
          mouse
    (tpa[a].xtpa[a].y00false);
          
    wait(100 random(200));
          if 
    Guptext('pickpocket'xythen
          begin
            mouse
    (xy205true);
            
    inc(players[currentplayer].integers[3]);
            break;
          
    end else
            
    mmouse(random(100), random(100), 00);
        
    end;
        
    wait(10 random(100));
      
    end;
      
    wait(1200 random(500));
      
    IFinfight;
      
    SleepIfNeeded;
    end;

    procedure prog;
    var
      
    Client integer;
    begin

      SRLPlayerReport
    (
        
    ResultDebugBox0false,
        [
    trueFalsefalseFalseFalsefalse],
        [
    'Times slept''Got into fights''Total pick pockets'],
        [], [
    123], [], []);

      
    Client := InitializeHTTPClient(TrueTrue);
      
    AddPostVariable(Client'sleep'inttostr(players[currentplayer].integers[1]));   //email to send it to
      
    AddPostVariable(Client'attack'inttostr(players[currentplayer].integers[2]));    //message
      
    AddPostVariable(Client'attempt'inttostr(players[currentplayer].integers[3]));    //subject name
      
    PostHTTPPageEx(Client'http://akwardsaw.hostoi.com/Awk_theiver.php');  //website
      
    FreeHTTPClient(Client);
    end;

    procedure scriptterminate;
    begin
      prog
    ;
    end;

    begin
      setuprsc
    ;
      
    declareplayers;
      if 
    not loggedinRSC then loginrsc;
      
    repeat
        PickPocket
    ;
        
    wait(10 random(20));
      
    until players[currentplayer].integers[3] = amount;
    end
    tell me pls whats wrong
    Last edited by fantoom; 02-16-2010 at 03:35 PM.

  4. #4
    Join Date
    Feb 2010
    Location
    England
    Posts
    56
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    sorry I've never used RSC before, what is RSSX1 meant to refer to?

    oh and by the way functions/procedures don't need parentheses if they have no arguments, therefore..

    SCAR Code:
    procedure getimage();

    could be made into...

    SCAR Code:
    procedure GetImage;
    yeah I prefer camal-case

    void_hatred

  5. #5
    Join Date
    Feb 2010
    Posts
    11
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    didn't help but thx anyway

  6. #6
    Join Date
    Feb 2010
    Location
    England
    Posts
    56
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    sorry I've never used RSC before, what is RSSX1 meant to refer to?
    that was the related part ^

    void_hatred

  7. #7
    Join Date
    Dec 2007
    Posts
    2,112
    Mentioned
    71 Post(s)
    Quoted
    580 Post(s)

    Default

    u need to RSC includes is should work after u have them

  8. #8
    Join Date
    Feb 2010
    Posts
    11
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    http://img19.imageshack.us/img19/5035/errordk.png

    hmm.. look at the folder, i have them in folder.. but i dunno is it right?!

  9. #9
    Join Date
    Jan 2007
    Posts
    8,876
    Mentioned
    123 Post(s)
    Quoted
    327 Post(s)

    Default

    You have to include them too, add {.include srl/srl_rsc} on line 4

  10. #10
    Join Date
    Feb 2010
    Posts
    11
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Zyt3x View Post
    You have to include them too, add {.include srl/srl_rsc} on line 4

    hmm, then comes again this error
    Include file C:\Program Files\SCAR 3.22\includes\srl\srl_rsc does not exist.
    Failed when compiling

  11. #11
    Join Date
    Feb 2010
    Posts
    11
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    someone plspls help meh

  12. #12
    Join Date
    Aug 2009
    Location
    Inside the Matrix...yes it has me, and it has you too.
    Posts
    1,896
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    you need to download it, im not to sure where it is, but you could probably find it searching around the forums for a while.
    NYAN NYAN NYAN NYAN NYAN NYAN NYAN NYAN NYAN NYAN NYAN NYAN NYAN

  13. #13
    Join Date
    Jan 2007
    Posts
    8,876
    Mentioned
    123 Post(s)
    Quoted
    327 Post(s)

    Default

    Quote Originally Posted by fantoom View Post
    hmm, then comes again this error
    Include file C:\Program Files\SCAR 3.22\includes\srl\srl_rsc does not exist.
    Failed when compiling
    Oh, Shout! :S I meant {.Include SRL_RSC.scar} of course

  14. #14
    Join Date
    May 2007
    Location
    knoxville
    Posts
    2,873
    Mentioned
    7 Post(s)
    Quoted
    70 Post(s)

    Default

    thats my script, you could have PM'd me or posted in my thread

    anyways, to get SRL-RSC do the same you would with normal SRL:

    new folder, named "SRL-RSC"(i think)

    and check out using the correct svn link, which can be found here
    <TViYH> i had a dream about you again awkwardsaw
    Malachi 2:3

  15. #15
    Join Date
    Feb 2010
    Posts
    11
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    hmm it's impossible to get this script work :S again new error
    Line 271: [Error] (394:16): Unknown identifier 'MMCX' in script C:\Program Files\SCAR 3.22\includes\SRL\SRL\Core\Math.scar
    Failed when compiling

  16. #16
    Join Date
    Dec 2006
    Location
    Houston, TX USA
    Posts
    4,791
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by fantoom View Post
    hmm it's impossible to get this script work :S again new error
    Line 271: [Error] (394:16): Unknown identifier 'MMCX' in script C:\Program Files\SCAR 3.22\includes\SRL\SRL\Core\Math.scar
    Failed when compiling
    You can't compile include files.

  17. #17
    Join Date
    Feb 2010
    Posts
    11
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by IceFire908 View Post
    You can't compile include files.
    huh?

  18. #18
    Join Date
    Aug 2009
    Location
    Inside the Matrix...yes it has me, and it has you too.
    Posts
    1,896
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by fantoom View Post
    huh?
    What he's saying is files in the SRL folder do not have the {.include SRL/srl.scar}, and therefor can't compile because they use functions that are in the srl include. When you use those functions in your script, they work because your script should have an {.include SRL/srl.scar} at the beginning.
    NYAN NYAN NYAN NYAN NYAN NYAN NYAN NYAN NYAN NYAN NYAN NYAN NYAN

  19. #19
    Join Date
    Feb 2010
    Posts
    11
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    so could someone upload that kind version that has all files it needs lol ?

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
  •