Results 1 to 7 of 7

Thread: Is anyone nice enough to...

  1. #1
    Join Date
    Jun 2007
    Location
    Greenville, SC
    Posts
    1,149
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Is anyone nice enough to...

    let me use their bank pin function or whatever or teach me how to make/use 1 in my script?

  2. #2
    Join Date
    Sep 2006
    Posts
    916
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    InPin('BankPin Here');

  3. #3
    Join Date
    Jan 2007
    Location
    USA
    Posts
    1,782
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by hey321 View Post
    InPin('BankPin Here');
    doesnt work( at least in SRL 4 )

    Join the fastest growing merchanting clan on the the net!

  4. #4
    Join Date
    Jul 2007
    Location
    UK
    Posts
    307
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    Print screen save in paint and take DTMs of the numbers...

  5. #5
    Join Date
    Nov 2006
    Location
    Location, Location
    Posts
    1,126
    Mentioned
    6 Post(s)
    Quoted
    41 Post(s)

    Default

    InPin works just fine. Just make sure its getting a string not an integer. If you use the Players[0].Pin, use IntToStr(). I modified OpenBank so that I could use it to take a pin, but I believe that in xBank.scar there is an OpenBank3 that already accepts a pin. Here is my modified code, its pretty much exactly the OpenBank in Bank.scar, i just added the InPin.

    SCAR Code:
    //SRL team i suppose, i just added InPin to it :P
    function OpenMyBank: Boolean;
    var
      x, y, f: Integer;
    begin
      Status('Openning Bank...');
      if not(LoggedIn) then exit;
      Flag;
      Wait(350 + random(150));
      if not BankScreen then
        repeat
          if FindObjCustom(x, y, ['ank', 'ooth', 'booth'], [864829,4086384], 5) then
            Mouse(x, y, 4, 4, False);
          Wait(250);
          if (ChooseOption('Use-quickly')) then
            begin
              FFlag(0);
              wait(1000);
              if(PinScreen) then
                repeat
                  Wait(500);
                  InPin(IntToStr(Players[CurrentPlayer].Pin));
                  Inc(f);
                until (BankScreen) or (f > 5);
            end;
          until (BankScreen);
      Result := BankScreen;
    end;

  6. #6
    Join Date
    Jun 2007
    Posts
    88
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Kave posted what I think will work by looking at it except for one issue. Unless I am wrong

    SCAR Code:
    InPin(IntToStr(Players[CurrentPlayer].Pin));

    will no longer work. The ".pin" is no longer an option in SRL4. If you are doing a script like your fletcher for only one player you could simply define it as a constant and do something like:

    SCAR Code:
    if(PinScreen)then InPin(***);  // making *** whatever constant you assigned

    Or if its a multiplayer script in DeclarePayers add:

    SCAR Code:
    Players[0].Strings[0] := '0000';   // Bank PIN, If needed

    and put something like:

    SCAR Code:
    if(PinScreen)then InPin(Players[CurrentPlayer].Strings[0]);

    I don't have my script I'm working on in front of me but if I remember right it was something close to that.

  7. #7
    Join Date
    Oct 2006
    Location
    Ontario,Canada
    Posts
    1,718
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    heres mine:
    SCAR Code:
    Function InPin2(pin:integer):Boolean;
    var pinstr:string;
        star,i,x,y:integer;
        tpt1,tpt2:array[0..3] of tpoint;
    begin
      if (PinScreen) then
      begin
        star := BitmapFromString2(False, 'a81C2B78DA4D8B3912C0200C0' +
           '3BF247C01A5C984FF3F29166970B1A359C90090A3007F0A61493A' +
           '8DDBCBACF4328CE66C7C07BDF0A9A7928B6DF4C63C4FA15E684B6' +
           'C1AD47EEE3AE036373F9CC');
        tpt1[0].x:=428; tpt1[0].y:=31;
        tpt2[0].x:=442; tpt2[0].y:=48;
        tpt1[1].x:=444; tpt1[1].y:=31;
        tpt2[1].x:=458; tpt2[1].y:=48;
        tpt1[2].x:=460; tpt1[2].y:=31;
        tpt2[2].x:=474; tpt2[2].y:=48;
        tpt1[3].x:=476; tpt1[3].y:=31;
        tpt2[3].x:=490; tpt2[3].y:=48;
        PinStr:=(inttostr(pin))
        mmouse(322,203,20,20);
        for i:=1 to 4 do
        begin
          wait(100+random(100));
          ClickText(pinstr[i], upchars, 1, 1, 512, 336, True);
          wait(100+random(100))
          mmouse(322,203,20,20);
          repeat
            wait(20)
            if i=4 then
            begin
              repeat
                wait(20)
              until bankscreen
            break;
            end;
          until FindBitmaptoleranceIn(star,x,y,tpt1[i-1].x,tpt1[i-1].y,tpt2[i-1].x,tpt2[i-1].y,20)
        end;
      end;
      if (bankscreen) then result:=true;
      freebitmap(star)
    end;

    use like inpin2(1234) <---its an integer but if you want it a string you have to change one thing.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. nice little PowerMiner
    By srl person in forum First Scripts
    Replies: 4
    Last Post: 02-09-2008, 06:14 PM
  2. Nice script -.-
    By BladeTrix in forum OSR Help
    Replies: 7
    Last Post: 12-05-2007, 08:07 PM
  3. Help would be nice
    By Killmar in forum OSR Help
    Replies: 8
    Last Post: 12-01-2007, 03:52 PM
  4. it iz nice!!
    By Mafi@ in forum Who Are You ? Who ? Who ?
    Replies: 0
    Last Post: 11-05-2006, 08:32 AM
  5. Nice pictures..
    By Lorax in forum The Bashing Club / BBQ Pit
    Replies: 15
    Last Post: 09-09-2006, 03:07 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
  •