Results 1 to 10 of 10

Thread: In dyer need of some help.

  1. #1
    Join Date
    Jan 2012
    Posts
    121
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default In dyer need of some help.

    I had another thread for this but it was getting very long and messy.



    This is what I have so far. If someone can try getting this to just start smart it would be great.

    Right now I have to things I need to get done:

    I need help implementing pin usage

    and I need to get it to open.

    Any help appreciated.


    Code:
    //Script by rol Prodigy
    //Version 1.0
    program AirBattlestaffMaker;
    
    {$DEFINE SMART}
    {$i SRL/SRL.simba}
    
    
    const
    //  ----------------SETUP-----------------------------
    //For now you gotta be in swbank
    loadcount= 1000  ;  //how many cycles you need (14 to a cycle)
    colb=  2                 ;  //Battlestaff col
    rowb=  1                 ;  //Battlestaff Row
    cola=  3                 ;  //AirOrb col
    rowa=  1                 ;  //AirOrb row
    
    
    bankty= 2                ;
    //0 for any npc bank, 1 for specific bank, 2 for soul wars chest
    specific='fwb'           ; //some valed inputs are: 'veb', 'vwb' 'feb'
    
    
    var
      x, y: integer;
    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;
      with Players[0] do
      begin
        Name := '';  //set username
        Pass := '';       //set password
        Pin  := '';          //set pin
        Active := True;
        LampSkill := 'Crafting'; // If you set the script to choose an experience lamp from a random event box, it will use the exp on the Crafting skill
    //  ---------------END SETUP----------------------------------------
      end;
    end;
    
    
    procedure AntiRandoms;
    begin
      ClickToContinue;
      FindNormalRandoms; // Whenever this is called, the script will check to see if your character is in a random event
      LevelUp; // This is an Antiban procedure, but I find it more useful when called here because AntiRandoms is usually called more often than Antiban
    end;
    
    procedure Antiban;
    begin
      case Random(60) of // Random(60) generates a random integer from 0 to 59
        10: RandomRClick;
        20: HoverSkill('Fletching', False);
        30: PickUpMouse;
        40: RandomMovement;
        50: BoredHuman;
        59: ExamineInv;
      end;
    end;
    
    Procedure banksw;
    
    var
      X, Y: Integer;
      begin
      FindNormalRandoms;
      if (FindObjCustom(X, Y, ['Bank','nk ch','k che','chest'], [2963780,10724266,10000542,5592409], 3)) then
        Mouse(X, Y, 0, 0, True);
        Wait(1500 + Random(300));
    end;
    
    Procedure MakeStaff;
    begin
      WriteLn('opening sw bank');
      mousespeed:=(7+random(3));
      wait(200);
      if bankty=2 then
        banksw;
      wait(500+random(600))
      depositall;
      wait(800+random(300));
      WithdrawEx(colb,rowb,14,[]);
      wait(500+random(500));
      withdraw(cola,rowa,0);
      wait(500+random(1000));
      closebank;
      wait(1800+random(500));
      invmouse((random(13)+1),1);
      wait(700+random(300));
      Invmouse((15+random(14)),1)
      wait(1000+random(1000));
      mmouse(359,408,200,200);
      mmouse(259,408,30,30);
      wait(100+random(200));
      getmousepos(x,y);
         begin
          if ( WaitUpTextMulti(['Mak', 'tions'], 200) ) then
          Mouse(x,y,1,1,true)else
          exit;
          end;
      repeat
        wait(1000);
        Antirandoms;
      until invcount=14
      Antiban;
      wait(random(5000));
      if random(2)=1 then
        begin
          writeln('taking mini break');
          wait(random(20000));
          Antiban;
          AntiRandoms;
        end;
      writeln('14 more  staffs made');
    end;
    
    Procedure mainloop;
    var
      counter:integer;
    begin
      counter:=0;
      repeat
        counter:=1+counter;
        findnormalrandoms;
          MakeStaff;
        writeln(loadcount-counter);
        writeln('loads to go');
      until counter=loadcount
      writeln('Another set, problem free');
    end;
    
    begin
    mainloop;
    end.

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

    Default

    InPin('0000')

    Check the SRL Includes =]

  3. #3
    Join Date
    Jan 2012
    Posts
    121
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    Yo I need you to talk to me like I'm a little slow tbh very fucking confused at this point.

  4. #4
    Join Date
    Jan 2010
    Posts
    1,414
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Simba Code:
    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer  := 0;

      with Players[0] do
      begin
        Name := '';
        Pass := '';
        Pin  := '1234';

        Active := True;
      end;
    end;

    procedure Example;
    var
      Pin: string;
    begin
      if (not(LoggedIn)) then
        Exit;
      FindNonInventoryRandoms;

      Pin := Players[CurrentPlayer].Pin;

      if (PinScreen) then
        InPin(Pin);
    end;

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

    Default

    Language. There is a Function in the includes, which you already included in your script ( {$i SRL/SRL.simba} ). This Function InPin('0000') inputs your pin, for example if your pin was 0001 then you would put InPin('0001') if it was 2583 Then you would put in InPin('2583'), just call this after you've opened your bank,

    If PinScreen Then InPin('0000');

  6. #6
    Join Date
    Feb 2011
    Location
    Earth
    Posts
    1,784
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    So what color are you dying things here? Blue, red, green, purple? I'm a professional dyer, it makes quite the pretty coin.

    Currently: Working on Defending&Attacking in my Castle-Wars Script
    Project Rebuild: 90M/170M

  7. #7
    Join Date
    Jan 2012
    Posts
    121
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    K I think I got that part but it keeps opening another tab called smart everytime I click run now

    and in this tab there are errors such as

    Error:Error: Exception: Access violation at line 101

    Line 101:end;
    Last edited by rol prodigy; 01-26-2012 at 01:04 AM.

  8. #8
    Join Date
    Jan 2012
    Posts
    121
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    any ideas guys?

  9. #9
    Join Date
    Jan 2012
    Posts
    121
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    anyone?

  10. #10
    Join Date
    Dec 2009
    Location
    R_GetPlayerLoc;
    Posts
    2,235
    Mentioned
    0 Post(s)
    Quoted
    14 Post(s)

    Default

    Quote Originally Posted by rol prodigy View Post
    anyone?
    Use the edit button.

    What exactly do you need help with?
    "Logic never changes, just the syntax" - Kyle Undefined?

    Remember, The Edit Button Is There For A Reason!!!

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
  •