Results 1 to 5 of 5

Thread: Bot not typing in Pin number

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

    Default Bot not typing in Pin number

    Players[0].Pin :='';

    Is my current line but when it gets to the part where it needs to type in the pin it does nothing.

    Thanks for any help

    PS my main is

    begin
    Activateclient;
    MouseSpeed:=RandomRange(10,15);
    SetupPlayers;
    SetUpSRL;
    LoginPlayer;
    SetupSps;
    wait(1000);
    Main;
    end.

  2. #2
    Join Date
    Feb 2006
    Location
    Tracy/Davis, California
    Posts
    12,631
    Mentioned
    135 Post(s)
    Quoted
    418 Post(s)

    Default

    Post entire script and put the code in Simba tags.

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

    Default

    Simba Code:
    program Oak Planks;
    {$DEFINE SMART}
    {$i srl/srl.simba}
    {$i sps/sps.simba}

    const
      BnkTab = 2;

    var
    PlanksMade,BSlotc,BSlotr,x,y:integer;
    GotSlot,Location:string;
    Walking: TPointArray;

    procedure SetupPlayers;
    begin
       HowManyPlayers := 1;
       NumberOfPlayers(HowManyPlayers);
       CurrentPlayer:= 0;
       Location:='Bank';
       Players[0].Name :='';
       Players[0].Pass :='';
       Players[0].Pin :='';
       Players[0].Active:=True;
       Players[0].loc := Location;
    end;

    procedure SetupSps;

    begin
      SPS_Setup(RUNESCAPE_SURFACE, ['12_7', '12_6']);
      SPS_Continue := false;
    end;

    procedure DoWalking;
    begin
      if Location = 'Bank'then
      begin
                Walking := [Point(4835,2954),Point(4844,2823)
                      ,Point(4886,2923), Point(4943,2919)
                      ,Point(4955,2880),Point(4962,2833)
                      ,Point(4978,2791),Point(5004,2752)
                      ,Point(5021,2713),Point(5028,2688)
                      ,Point(5027,2671)];
        Writeln('walkin there');
        Mouse(630,54,5,5,true);
      if SPS_WalkPath(Walking) then
      begin
        WriteLn('We made it');
        Location:='SawMill';
        Wait(RandomRange(500,600));
      end else
        Writeln('we got lost... Please post where you got lost');
      end else
      if Location = 'SawMill'then
      begin
        InvertTPA(Walking);
        Writeln('walkin back');
      if SPS_WalkPath(Walking) then
      begin
        WriteLn('We made it');
        Location:='Bank';
        Wait(RandomRange(500,600));
      end else
        Writeln('we got lost... Please post where you got lost');
      end;
    end;

    procedure GetPlanks;
    var
    T,a,b,c,d: Integer;
    begin
      if not(LoggedIn)then exit;
        T:=RandomRange(2,6);
        d:= 0;
        b:= 0;
      if Location ='SawMill'then
      begin
      repeat
        FindObjCustom(x,y,['awm',' oper'],[13616847,14340570,12564415],25);
        MMouse(x,y,T,T);
        Inc(c)
        Wait(RandomRange(250,500));
      until (IsUpText('awmill')) or (c>=5);
      if (IsUpText('awmill')) then
      begin
       repeat
         Mouse(x, y, T, T, false);
         Inc(b)
         Wait(RandomRange(500,700));
       until ChooseOption('y-p')or (b>=5);
        repeat
         if not IsUpText('ak') then
         begin
           FindColorSpiralTolerance(x,y,16764672,MSCX,MSCY,MSX2,MSY2,20);
           MMouse(x,y,T,T);
           Inc(a)
         end;
           Wait(RandomRange(500,700));
       until(IsUpText('Oak'))or(a>=5);
       if IsUpText('ak') then
       begin
           Mouse(x,y,T,T,false);
        while not(ChooseOption('l O'))and(d>=5)do
         begin
           Wait(RandomRange(500,700));
           Mouse(x,y,T,T,false);
           Inc(d);
         end;
       end;
      end;
     end;
    end;

    procedure rest;
    begin
    end;

    procedure CheckInv;
    begin
      //Check banking worked
      //Check planking Worked



    end;

    procedure DoWithdraw(uptext:string;Amount:integer);
    var
    i,Col,Row:integer;
    begin
        i:=0;
        BankTab(BnkTab);
      repeat
       if WithdrawEx(Col,Row,Amount,[uptext])then
      begin
        i:=1;
        BSlotc:=Col;
        BSlotr:=Row;
        GotSlot:='yes';
      end else
        Inc(Col);
      Until ((Col=10) or (i=1));
    end;

    procedure DoDeposit;
    var
      I: Integer;
    begin
        GameTab(tab_inv);
      for I := 2 to 28 do
       if (ExistsItem(I)) then
       begin
        Wait(500+RandomRange(100,200));
        Findobj(x,y,'ak',3690596,35);
        Mouse(x,y,0,0,false);
        Wait(500+RandomRange(100,200));
        ChooseOption('t-A');
      end;
    end;

    procedure Bnk;
    var
    tri:integer;
    begin
       if FindObj(x, y, 'ank', 1324353, 35) then
      begin
        Mouse(x,y,30,30,false);
        ChooseOption('ank');
        Wait(RandomRange(500,600));
       // OpenBank('veb',false,false);
       // wait(RandomRange(500,700));
      if BankScreen then
      begin
        wait(400+RandomRange(30,70));
        DoDeposit;
        MouseSpeed:= RandomRange(30,45);
        DoWithdraw('ak ',27);
        tri:=7;
        CloseBank;
        //BreakTiming;
      end else
        Inc(tri);
      if tri <= 5 then
      begin
        Bnk;
       if tri >= 5 then
        Writeln('Failed Banking');
        exit;
      end else
      if tri >= 6 then
      begin
        Writeln('Banking Dne');
        tri:=0;
      end;
     end;
    end;



    procedure CheckLoc;
    begin
    //Case Location of
    // 'Bank': WalkMil;
    // 'SawMill': WalkBnk;
     //end;
    end;

    procedure proggy;
    begin
      cleardebug;
      writeln('||----------------------------------------||');
      writeln('||-----------  Cru1z1ns Plank O Matic  ----------||');
      writeln('       Ran for '+TimeRunning+'');
      writeln('||-----'+'Planks made : '+IntToStr(PlanksMade)+'-----------------||');
      writeln('||----------------------------------------||');
    end;

    Procedure  main;
    var ii:integer;
    begin
        Bnk;
      repeat
        inc(ii);
        DoWalking;
        GetPlanks;
        PlanksMade:=PlanksMade+27;
        proggy;
        DoWalking;
        Bnk;
      until(ii = 2)
        proggy;
        writeln('Thanks for using Plank O Matic please post your proggy');
    end;

    begin
      Activateclient;
      MouseSpeed:=RandomRange(10,15);
      SetupPlayers;
      SetUpSRL;
      LoginPlayer;
      SetupSps;
      wait(1000);
      Main;
    end.

    I know there is alot of problems it was reflection when i got it although this shouldn't stop anyone from telling me exactly what those problems are

  4. #4
    Join Date
    Feb 2006
    Location
    Tracy/Davis, California
    Posts
    12,631
    Mentioned
    135 Post(s)
    Quoted
    418 Post(s)

    Default

    That's still not the entire script. Need to see ALL of it.
    Also what do you mean. Are you trying to revive a reflection script?
    Reflection for Simba has been broken/dead for a long time and it would be easier to start from scratch rather than trying to revive it.

  5. #5
    Join Date
    Jan 2012
    Posts
    32
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I had the same problem so i just made the pin a const.

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
  •