Results 1 to 3 of 3

Thread: FindObj not working

  1. #1
    Join Date
    Feb 2012
    Posts
    390
    Mentioned
    2 Post(s)
    Quoted
    14 Post(s)

    Default FindObj not working

    Ok, so I just reinstalled windows toget windows 8 so I deleted all my simba stuff. I got it back and now im writing just a power chopper.

    I know im using FindObj its just for starting then il change to FindObjTPA nad AutoColorAid ok?

    Thanks
    http://paste.villavu.com/show/7evk8DRuFLygtiqkbyZG/

    or
    Code:
    program PowerOak;
    {$i srl/srl.simba}
    Procedure DeclarePlayers;
    begin
    HowManyPlayers := 1;
    NumberOfPlayers(HowManyPlayers);
    CurrentPlayer := 0;
    Players[0].Name :='';
    Players[0].Pass :='';
    Players[0].Nick :='';
    Players[0].Active:=True;
    end;
    procedure ChopTree;
    var x,y:integer;
    begin
    ExitSquealOfFortune;
      if FindObjCustom(x,y,'chop',1978423,15) then
      begin
      Mouse(x,y,2,2,true);
    
      //repeat
      //Wait(1200+random(250));
      //until not IsUpText('oak') or (InvFull);
      end;
    
    end;
    begin
    SetupSRL;
    ActivateClient;
    DeclarePlayers;
    LoginPlayer;
    ExitSquealOfFortune;
    ChopTree;
    end.
    Last edited by IsoMorphic; 12-13-2012 at 02:59 AM.

  2. #2
    Join Date
    Mar 2012
    Location
    127.0.0.1
    Posts
    3,383
    Mentioned
    95 Post(s)
    Quoted
    717 Post(s)

    Default

    Left password in script

  3. #3
    Join Date
    Feb 2012
    Posts
    390
    Mentioned
    2 Post(s)
    Quoted
    14 Post(s)

    Default

    OMFG THANKS!!!!!

    Ok I fixed it I changed it to
    if FindObjCustom(x,y,['chop', 'down','oak'],[1978423,2242367,2703691],15) then

    please don't hack me ;(

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
  •