Results 1 to 1 of 1

Thread: First Script Need Help!

  1. #1
    Join Date
    Oct 2011
    Posts
    11
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default First Script Need Help!

    This is my very first script I'm trying to make one for my self for fishing that fishes and banks at the fishing guild. After a few days of reading I've came up with this and not really sure what im missing or if i'm on the right track. Any Suggestions or Fixes would be really appeciated.

    Code:
    program GuildFishnBank;
    {$I SRL/SRL.Simba}
    {$I SRL/SRL/Misc/Debug.Simba}
    {$I P07Include.Simba}
    
    var
    x, y ,PastInvCounter: Integer;
    Text: TStringArray;
    
    
    
    Procedure Bootup;
    begin
    WriteLn('Loading Script');
    P07_MakeCompassNorth;
    P07_MakeCameraAngleHigh;
    Wait(randomRange(99, 200));
    end;
    
    Procedure AntiBan;
    Begin
    Writeln('Preforming Anti-Ban');
      case random(5) of
        1: Wait (RandomRange(250, 1200));
        2: HoverSkill('random', False);
        3: HoverSkill('fishing', False);
        4: Boredhuman;
        5: HoverSkill('cooking', False);
      end;
    end;
    
    
    Procedure Findspot;
    begin
    if(FindColorSpiralTolerance(x, y, 14728868, MSX1, MSY1, MSX2, MSY2, 5))then
      begin
      MMouse(RandomRange(X - 5, X + 5), RandomRange(y - 5, y + 5), 0, 0);
      wait (1500+random(500));
      if P07_IsUpTextMultiCustom( ['Cage','age']) then
        begin
          ClickMouse2(mouse_right);
          Writeln('We Found Some Fish');
          wait (75+random(100));
          PastInvCounter := P07_InvCount;
        End;
      End;
    End;
    
    
    
    Procedure Walkbank();
    Begin
    RadialWalkTolerance(3428977,180,259,65,5,5,10);
    P07_FFlag;
    End;
    
    Procedure Walkspot();
    Begin
    RadialWalkTolerance(1063247,0,90,65,5,5,10);
    P07_FFlag;
    End;
    
    
    
    
    Procedure Bankfish;
    Begin
    if FindColorTolerance(x, y, 7697790, 4, 4, 515, 337, 10) then
     MMouse(x, y, 2, 2);
    wait(100)
      if FindColorTolerance(x, y, 7697790, 4, 4, 515, 337, 10) then
      ClickMouse2(Mouse_Right);
            P07_ChooseOptionMulti((['Bank']));
            wait(100);
            if P07_BankScreen then P07_Deposit(2,28,True);
    End;
    
    
    
    Procedure FishingCheck;
    Begin
      Wait(10000+Random(2000));
      If PastInvCounter < P07_InvCount Then
        Begin
        Writeln('We Have Got Some Fish');
        Wait(10000+Random(1500));
        end;
      If PastInvCounter = P07_InvCount Then
        Begin
        Writeln('Looking For Another Spot');
        Findspot;
        Wait (10000+Random(1500));
        end;
    End;
    
    
    
    
    
    
    
    
    Begin
    SetupP07Include;
    BootUp;
    repeat
        repeat
        AntiBan;
        Findspot;
        FishingCheck;
        Until P07_InvFull;
    Walkbank;
    BankFish;
    WalkSpot;
    Until
    End;
    Last edited by Pkingd3vil; 03-03-2013 at 02:42 AM.

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
  •