Results 1 to 6 of 6

Thread: Just wont work

  1. #1
    Join Date
    Dec 2006
    Posts
    19
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Just wont work

    My script compiles fine but does nothing... i can't find my error

    note-I am a pretty experienced scripter

    SCAR Code:
    program fisher;
    {.include SRL\SRL.scar}
    {.include SRL/SRL/skill/Fishing.scar}

    var
     fish, hx, hy, I : Integer;
     Fishsp: array[1..2] of Integer;




    //*****************Setup******************\\

    const
    waitTime=6000; // wait between swapping fishing places
    bank=3983834; //bank symbol
    fishsym=15558401; // fish symbol on mini get fish color (don't have to)
    rock=4673609;// rock next to bank leave

    procedure colors;
    begin
      Fishsp[1]:= 14536920;// fish spot color
    end;

    //***************End of Setup***************\\

    Procedure fishy;
    Begin
      X:=MSCX;
      Y:=MSCY;
      I:=10
      Repeat
        If FindColorSpiral(x,y,Fishsp[1],MSCX+I,MSCY-I,MSCX+I,MSCY-I) Then
        MMouse(x,y,4,4);
         HandleWhirlPool;
        I:=I+10
        if istextat2(9,9,'Net',20)then
         mouse(x,y,2,2,true)
     wait(waitTime+random(300))
     findnormalrandoms;
     until(invfull)
     if (invfull = true) then
      fish := fish +1;
    End;


    procedure checkRandoms;
    begin
    findnormalrandoms;
    end;

    procedure attacked;
    begin
    If ( FindFight ) then
     findcolorspiral(x,y,bank,3,3,515,336)
     mmouse(x,y,3,3)
      wait(500)
     mouse(x,y,2,2,true)
      wait(2600)
     findcolorspiral(x,y,fishsym,3,3,515,336)
      mmouse(x,y,3,3)
      wait(500+(25))
     mouse(x,y,2,2,true)
    end;

    procedure ProgressReport;
    begin
      WriteLn('  ')
      WriteLn('Progress Report for a Fisher, Banker');
      WriteLn(' ');
      SRLRandomsReport;
      WriteLn('Fished and banked ' + inttostr(fish) + ' loads.');
      writeln('Worked for '+ TimeRunning + ' this session');
      WriteLn(' ');
      WriteLn('*^^Made by Reece^^*')
    end;

    Procedure DropAllTHings;
    var
      i,e : integer;
    begin
      while (I < 6) do
      begin
        if not loggedin then break;
        if (I = 5) and (E < 8) then
        begin
          I := 0;
          E := E + 1;
        end;
        if  FindColor(x,y,65536,(570 + 39 * I), (214 + 35 * E), (609 + 39 * I), (249 + 35 * E)) then
        begin
          Mouse(x, y, 10, 10, False);
          ChooseOption(x,y,'Drop');
        end;
        if (I = 4) and (E = 7) then break;
        I := I + 1;
      end;
    end;

    procedure AntiBanMe;
    begin
      Case random(10) of
      1: PickUpMouse;
      3: begin
           HoverSkill('fishing', false);
           GameTab(4);
         end;
      4: RandomRClick;
      5: begin
           GameTab(random(7+1));
           wait(4000+random(3000));
           GameTab(4);
         end;
      6: MMouse(x+random(500), y+random(500), 10, 10);
      7: MMouse(x+random(500), y+random(500), 10, 10);
      8: MMouse(x+random(500), y+random(500), 10, 10);
      9: MMouse(x+random(500), y+random(500), 10, 10);
      10: MMouse(x+random(500), y+random(500), 10, 10);
      end;
    end;


    begin
    SetupSRL;
    SetupSRLFishing;
    repeat
    checkRandoms;
    attacked;
    fishy;
    attacked;
    AntiBanMe;
    checkRandoms;
    DropAllTHings;
    attacked;
    AntiBanMe;
    checkRandoms;
    ProgressReport;
    until(false)
    end.

  2. #2
    Join Date
    Apr 2007
    Location
    Finland
    Posts
    938
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

  3. #3
    Join Date
    Dec 2006
    Location
    Australia
    Posts
    698
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    how about adding some multiplayers in?

    You had the colour setup wrong. Try now, Post if it doesnt

    Edit Pwnzornoob if your not going to contribute dont post.

    SCAR Code:
    program fisher;
    {.include SRL\SRL.scar}
    {.include SRL/SRL/skill/Fishing.scar}

    var
     fish, I : Integer;
     Fishsp: array[1..2] of Integer;




    //*****************Setup******************\\

    const
    waitTime=6000; // wait between swapping fishing places
    bank=3983834; //bank symbol
    fishsym=15558401; // fish symbol on mini get fish color (don't have to)
    rock=4673609;// rock next to bank leave
    fishsp=14536920;


    //***************End of Setup***************\\

    Procedure fishy;
    Begin
      X:=MSCX;
      Y:=MSCY;
      I:=10
      Repeat
        If FindColorSpiral(x,y,Fishsp,MSCX+I,MSCY-I,MSCX+I,MSCY-I) Then
        MMouse(x,y,4,4);
         HandleWhirlPool;
        I:=I+10
        if istextat2(9,9,'Net',20)then
         mouse(x,y,2,2,true)
     wait(waitTime+random(300))
     findnormalrandoms;
     until(invfull)
     if (invfull = true) then
      fish := fish +1;
    End;


    procedure checkRandoms;
    begin
    findnormalrandoms;
    end;

    procedure attacked;
    begin
    If ( FindFight ) then
     findcolorspiral(x,y,bank,3,3,515,336)
     mmouse(x,y,3,3)
      wait(500)
     mouse(x,y,2,2,true)
      wait(2600)
     findcolorspiral(x,y,fishsym,3,3,515,336)
      mmouse(x,y,3,3)
      wait(500+(25))
     mouse(x,y,2,2,true)
    end;

    procedure ProgressReport;
    begin
      WriteLn('  ')
      WriteLn('Progress Report for a Fisher, Banker');
      WriteLn(' ');
      SRLRandomsReport;
      WriteLn('Fished and banked ' + inttostr(fish) + ' loads.');
      writeln('Worked for '+ TimeRunning + ' this session');
      WriteLn(' ');
      WriteLn('*^^Made by Reece^^*')
    end;

    Procedure DropAllTHings;
    var
      i,e : integer;
    begin
      while (I < 6) do
      begin
        if not loggedin then break;
        if (I = 5) and (E < 8) then
        begin
          I := 0;
          E := E + 1;
        end;
        if  FindColor(x,y,65536,(570 + 39 * I), (214 + 35 * E), (609 + 39 * I), (249 + 35 * E)) then
        begin
          Mouse(x, y, 10, 10, False);
          ChooseOption(x,y,'Drop');
        end;
        if (I = 4) and (E = 7) then break;
        I := I + 1;
      end;
    end;

    procedure AntiBanMe;
    begin
      Case random(10) of
      1: PickUpMouse;
      3: begin
           HoverSkill('fishing', false);
           GameTab(4);
         end;
      4: RandomRClick;
      5: begin
           GameTab(random(7+1));
           wait(4000+random(3000));
           GameTab(4);
         end;
      6: MMouse(x+random(500), y+random(500), 10, 10);
      7: MMouse(x+random(500), y+random(500), 10, 10);
      8: MMouse(x+random(500), y+random(500), 10, 10);
      9: MMouse(x+random(500), y+random(500), 10, 10);
      10: MMouse(x+random(500), y+random(500), 10, 10);
      end;
    end;


    begin
      SetupSRL;
      SetupSRLFishing;
      repeat
        checkRandoms;
        attacked;
        fishy;
        attacked;
        AntiBanMe;
        checkRandoms;
        DropAllTHings;
        attacked;
        AntiBanMe;
        checkRandoms;
        ProgressReport;
      until(false)
    end.

  4. #4
    Join Date
    Feb 2007
    Location
    Australia
    Posts
    358
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Alright, so you have a procedure called colors right?

    procedure colors;
    begin
    Fishsp[1]:= 14536920;// fish spot color
    end;


    Which declares Fishsp[1] as 14536920. Thats all good so far.
    But you never run the procedure, so the script never knows what Fishsp[1] is equal to.

    Better yet, dont put Fishsp[1] in its own procedure.
    Chuck it in with the const

  5. #5
    Join Date
    Feb 2007
    Posts
    19
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    noob

  6. #6
    Join Date
    Nov 2006
    Location
    Wisconsin
    Posts
    1,629
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    Quote Originally Posted by ridooz View Post
    noob
    Dude, you just declared yourself a dumbass and proabably wont be here much longer.




    Hope you get it working as neG found the problem i think.


    Quote Originally Posted by Rubix View Post
    Quote Originally Posted by Dan Cardin View Post
    you ought to listen to Mr. Klean...he's magical!
    this.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. why wont this work?
    By rogue poser in forum OSR Help
    Replies: 11
    Last Post: 01-01-2008, 08:28 PM
  2. Why wont this work
    By philowns in forum OSR Help
    Replies: 3
    Last Post: 07-29-2007, 01:36 AM
  3. Why wont this work
    By philowns in forum OSR Help
    Replies: 8
    Last Post: 07-28-2007, 07:12 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
  •