Results 1 to 6 of 6

Thread: i need help with my script

  1. #1
    Join Date
    Mar 2007
    Posts
    937
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    i need help with my script

    Could anyone help me with my coin picker under varrock west bank? I don't know what to add in, it wont compile properly

    Anyone have any ideas please post

    code:
    program CoinPicker;
    {.include SRL/SRL.Scar}

    procedure DeclarePlayers;
    begin
    HowManyPlayers := 1; //Number of players
    NumberOfPlayers(HowManyPlayers);
    CurrentPlayer:= 0;

    Players[0].Name :='';//Name Goes Here
    Players[0].Pass :='';//PassWord Goes Here
    Players[0].Nick :='';//3-4 LowerCase Letters Of Your Name
    Players[0].Active:=True;//True If Using, False If Not




    End;



    procedure LoggingIn;

    begin
    SetUpSRL;
    DeclarePlayers;
    LoginPlayer;


    end;


    Procedure CoinPicking;
    var Coin,x,y:integer;
    begin
    Coin := DTMFromString('78DA63FCC6C4C060CFC8800C364D1465F80 FA' +
    '441A2FF818011A4C606550D4416460269901A67026AFE00D5 3810' +
    '50F311D33DE86A00475B0C7D');
    if FindDTM(coin,x, y,1, 1, 235, 200) then
    MoveMouseSmooth(235,207);
    Wait(100+random(50));
    ClickMouse(235,207,true);
    writeln('Found Coins!');
    Repeat until(False)



    end.

  2. #2
    Join Date
    Mar 2007
    Posts
    47
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I think it's something to do with the include. It says file does not exist when I tried running it.

  3. #3
    Join Date
    Feb 2007
    Location
    Het ademt zwaar en moedeloos vannacht.
    Posts
    7,211
    Mentioned
    26 Post(s)
    Quoted
    72 Post(s)

    Default

    @farno: install SRL

    A procedure doesn't end with end. ,like you did, but with end;
    And you have to add a main loop.
    Fixed version:
    SCAR Code:
    program CoinPicker;
    {.include SRL/SRL.Scar}

    procedure DeclarePlayers;
    begin
    HowManyPlayers := 1; //Number of players
    NumberOfPlayers(HowManyPlayers);
    CurrentPlayer:= 0;

    Players[0].Name :='';//Name Goes Here
    Players[0].Pass :='';//PassWord Goes Here
    Players[0].Nick :='';//3-4 LowerCase Letters Of Your Name
    Players[0].Active:=True;//True If Using, False If Not




    End;



    procedure LoggingIn;

    begin
    SetUpSRL;
    DeclarePlayers;
    LoginPlayer;


    end;


    Procedure CoinPicking;
    var Coin,x,y:integer;
    begin
    Coin := DTMFromString('78DA63FCC6C4C060CFC8800C364D1465F80 FA' +
    '441A2FF818011A4C606550D4416460269901A67026AFE00D5 3810' +
    '50F311D33DE86A00475B0C7D');
    if FindDTM(coin,x, y,1, 1, 235, 200) then
    MoveMouseSmooth(235,207);
    Wait(100+random(50));
    ClickMouse(235,207,true);
    writeln('Found Coins!');
    end;

    begin
    LoggingIn;
    Repeat
    Coinpicking;
    until(False)
    end.

    And BTW: NEVER EVER use ClickMouse or MoveMouseSmooth in RuneScape.
    Use MMouse and Mouse for that.
    I made a new script, check it out!.

  4. #4
    Join Date
    Mar 2007
    Posts
    937
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    thanks alot macrus









  5. #5
    Join Date
    Feb 2007
    Posts
    3,616
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    To learn MMouse and Mouse, read my tutorial "things the beginner tuts don't teach you", links in sig

  6. #6
    Join Date
    Mar 2007
    Posts
    937
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanks jad and marcus big help ill give credits ;P

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
  •