Results 1 to 5 of 5

Thread: Help please!

  1. #1
    Join Date
    Apr 2007
    Posts
    32
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Help please!

    program bsmepl0x;
    {.Include srl/srl.scar}
    {.include srl/srl/extended/xmapwalk.scar}

    //start in lumby bank with flax in inventory, bank pin already entered in, and flax in first bank slot
    //thanks to scarscape4life for a couple procedures... everything else done be me, Warbeak1245
    //WARBEAK1245's SCRIPT!!!
    const

    amounttrips=400;//number of flax you have divided by 28

    var

    tripsdone:Integer;


    procedure myscript;

    begin

    Writeln('Warbeak1245''s Flax Spinner')
    Writeln('Easy Money, Good Crafting Exp, sweet script')
    Writeln('have fun...')
    end;

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

    Players[0].Nick := ' ';
    Players[0].Active := True;
    end;


    procedure setup;

    begin
    setupsrl;
    ActivateClient;
    end;


    procedure findrandoms;

    begin
    if(findmod) then begin
    logout;
    end;
    begin
    SolvePinball;
    FindNormalRandoms;
    end;
    end;




    Procedure findbank1;

    begin
    makecompass('N');
    if(FindSymbol(x,y,'bank'))then
    begin
    FindTalk;
    Flag;
    mouse(x,y,3,3,true);
    end
    findrandoms;
    end;



    procedure ToStairs;
    begin

    makecompass('N')
    RadialWalk(roadcolor,190,200,53,0,0);
    flag;
    findrandoms;
    end;

    procedure downstairs;

    begin
    repeat
    FindObj(x, y, 'Staircase', 604499, 30);
    Mouse(x, y, 5, 5, false);
    until
    PopUp('Climb-down');
    Wait(100+Random(500));
    Mouse(461, 178, 10, 10, true);
    Wait(100+Random(500));
    findrandoms;
    end;



    Procedure OpenDoor;

    begin
    makecompass('e')
    If
    FindObj(x, y ,'Door', 2515048, 2) or FindObj(x, y ,'Door', 2240608, 5) then
    begin
    if IsUpText('Close') then
    exit;
    if IsUpText('Open') then
    begin
    Mouse(x,y,0,0,True);
    Flag;
    findrandoms;
    end;
    end
    end;

    procedure upstairs;

    begin
    repeat
    FindObj(x, y, 'Staircase', 603212, 30);
    Mouse(x, y, 5, 5, false);
    until
    PopUp('Climb-up');
    Wait(1000+Random(500));
    Mouse(461, 178, 10, 10, true);
    Wait(1000+Random(500));
    findrandoms;
    end;

    procedure spin;

    begin
    wait(300+random(100));
    repeat
    FindObj(x, y, 'Spin', 1204365, 5);
    Mouse(x, y, 5, 5, false);
    until
    PopUp('Spin');
    flag;
    Mouse(261, 138, 5, 5, false);
    wait(1000 + random(300));
    PopUp('Make X');
    wait(1000 + random(300));
    TypeSend('99');
    Wait(6400+Random(500));
    findrandoms;
    Wait(6400+Random(500));
    findrandoms;
    Wait(6400+Random(500));
    findrandoms;
    Wait(6400+Random(500));
    findrandoms;
    Wait(6400+Random(500));
    findrandoms;
    Wait(6400+Random(500));
    findrandoms;
    Wait(6400+Random(500));
    If (FindFight) then begin
    opendoor;
    tostairs;
    upstairs;
    Wait(6000+Random(500));
    downstairs;
    opendoor;
    spin;
    end;
    end;


    procedure bankstuffz;

    begin

    makecompass('N')
    repeat
    OpenBank3;
    until(BankScreen)
    wait(700+random(600))
    Depositall;
    FixBank;
    Mouse(98, 81, 10, 10, false);
    wait(100+random(50))
    PopUp('All');
    CloseBank;
    tripsdone:=tripsdone+1;
    findrandoms;
    end;



    begin
    setup;
    myscript;
    repeat
    findrandoms;
    ToStairs;
    downstairs;
    OpenDoor;
    spin;
    OpenDoor;
    ToStairs;
    upstairs;
    findbank1;
    bankstuffz;
    until
    (tripsdone=amounttrips);
    logout;
    end.

    When it goes up stairs to bank, it doesnt walk to the bank and then open it , it just sits at stairs trying to find bank on the main screen. can anyone help me please, i have no idea how to code =[

  2. #2
    Join Date
    Apr 2007
    Posts
    3,152
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    ...put in scar so its easier to read please...and i dont think u have a find bank procedure..unless im mistaken
    SCAR Tutorials: The Form Tutorial | Types, Arrays, and Classes
    Programming Projects: NotePad | Tetris | Chess


  3. #3
    Join Date
    Feb 2007
    Location
    Alberta, Canada
    Posts
    4,615
    Mentioned
    50 Post(s)
    Quoted
    429 Post(s)

    Default

    SCAR Code:
    program bsmepl0x;
    {.Include srl/srl.scar}
    {.include srl/srl/extended/xmapwalk.scar}

    //start in lumby bank with flax in inventory, bank pin already entered in, and flax in first bank slot
    //thanks to scarscape4life for a couple procedures... everything else done be me, Warbeak1245
    //WARBEAK1245's SCRIPT!!!
    const

    amounttrips=400;//number of flax you have divided by 28

    var

    tripsdone:Integer;


    procedure myscript;

    begin

    Writeln('Warbeak1245''s Flax Spinner')
    Writeln('Easy Money, Good Crafting Exp, sweet script')
    Writeln('have fun...')
    end;

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

    Players[0].Nick := ' ';
    Players[0].Active := True;
    end;


    procedure setup;

    begin
    setupsrl;
    ActivateClient;
    end;


    procedure findrandoms;

    begin
    if(findmod) then begin
    logout;
    end;
    begin
    SolvePinball;
    FindNormalRandoms;
    end;
    end;




    Procedure findbank1;

    begin
    makecompass('N');
    if(FindSymbol(x,y,'bank'))then
    begin
    FindTalk;
    Flag;
    mouse(x,y,3,3,true);
    end
    findrandoms;
    end;



    procedure ToStairs;
    begin

    makecompass('N')
    RadialWalk(roadcolor,190,200,53,0,0);
    flag;
    findrandoms;
    end;

    procedure downstairs;

    begin
    repeat
    FindObj(x, y, 'Staircase', 604499, 30);
    Mouse(x, y, 5, 5, false);
    until
    PopUp('Climb-down');
    Wait(100+Random(500));
    Mouse(461, 178, 10, 10, true);
    Wait(100+Random(500));
    findrandoms;
    end;



    Procedure OpenDoor;

    begin
    makecompass('e')
    If
    FindObj(x, y ,'Door', 2515048, 2) or FindObj(x, y ,'Door', 2240608, 5) then
    begin
    if IsUpText('Close') then
    exit;
    if IsUpText('Open') then
    begin
    Mouse(x,y,0,0,True);
    Flag;
    findrandoms;
    end;
    end
    end;

    procedure upstairs;

    begin
    repeat
    FindObj(x, y, 'Staircase', 603212, 30);
    Mouse(x, y, 5, 5, false);
    until
    PopUp('Climb-up');
    Wait(1000+Random(500));
    Mouse(461, 178, 10, 10, true);
    Wait(1000+Random(500));
    findrandoms;
    end;

    procedure spin;

    begin
    wait(300+random(100));
    repeat
    FindObj(x, y, 'Spin', 1204365, 5);
    Mouse(x, y, 5, 5, false);
    until
    PopUp('Spin');
    flag;
    Mouse(261, 138, 5, 5, false);
    wait(1000 + random(300));
    PopUp('Make X');
    wait(1000 + random(300));
    TypeSend('99');
    Wait(6400+Random(500));
    findrandoms;
    Wait(6400+Random(500));
    findrandoms;
    Wait(6400+Random(500));
    findrandoms;
    Wait(6400+Random(500));
    findrandoms;
    Wait(6400+Random(500));
    findrandoms;
    Wait(6400+Random(500));
    findrandoms;
    Wait(6400+Random(500));
    If (FindFight) then begin
    opendoor;
    tostairs;
    upstairs;
    Wait(6000+Random(500));
    downstairs;
    opendoor;
    spin;
    end;
    end;


    procedure bankstuffz;

    begin

    makecompass('N')
    repeat
    OpenBank3;
    until(BankScreen)
    wait(700+random(600))
    Depositall;
    FixBank;
    Mouse(98, 81, 10, 10, false);
    wait(100+random(50))
    PopUp('All');
    CloseBank;
    tripsdone:=tripsdone+1;
    findrandoms;
    end;



    begin
    setup;
    myscript;
    repeat
    findrandoms;
    ToStairs;
    downstairs;
    OpenDoor;
    spin;
    OpenDoor;
    ToStairs;
    upstairs;
    findbank1;
    bankstuffz;
    until
    (tripsdone=amounttrips);
    logout;
    end.

    Here it is in scar tags

    Scripts: Edgeville Chop & Bank, GE Merchanting Aid
    Tutorials: How to Dominate the Grand Exchange

    Quote Originally Posted by YoHoJo View Post
    I like hentai.

  4. #4
    Join Date
    May 2007
    Location
    baltimore, md
    Posts
    836
    Mentioned
    0 Post(s)
    Quoted
    8 Post(s)

    Default

    SCAR Code:
    Wait(6000+Random(500));
    downstairs;
    opendoor;
    spin;
    end;
    end;
     
     
    procedure bankstuffz;
     
    begin
     
    makecompass('N')
    repeat
    OpenBank3;
    until(BankScreen)
    i dont see a click bank symbol procedure there you might want to add that
    and i also always find it easier to make my own bank procedures

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

    Default

    EVERYONE!
    Use scar tags if you are posting code!

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
  •