Results 1 to 3 of 3

Thread: proggy help

  1. #1
    Join Date
    Jul 2008
    Location
    Lithuania/Norway
    Posts
    90
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default proggy help

    is is something wrong with my proggy. it show logs chopped always 0
    can someone fix it?

    PHP Code:
    Program WillowChopper;
    {.include 
    SRL/SRL/Misc/Smart.scar}
    {.include 
    SRL/SRL.scar}
    {.include 
    srl/srl/skill/woodcutting.scar}




    const
    SmartWorld 152;//World to load.
    Members False;//Members?
    SignedClient True;//Used signed client?
    HighDetail False;//Use high detail?
    willowcolor14683362;
    willowcolor22444868;
    logcolor11325891;
    logcolor21391941;


    var
    xyilogsdroppedPlayerStartabtinteger;

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

      
    Players[0].Name    := ''//username
      
    Players[0].Pass    := ''//password
      
    Players[0].Nick    := ''//3-4 letters of your username, no caps or first letter
      
    Players[0].Active  := true//Active or not
    end;


    procedure cuttwillow;
    begin
      
    if(FindObjCustom(xy, ['hop''dow'], [willowcolor1willowcolor2], 7))then
      begin
      
    case (Random(2)) of
        0
    begin
          Mouse
    (xy44,false);
          
    wait(300+random(200));  //- it can take some time for rs to show the option menu
          
    ChooseOption('hop');
          
    wait(5000+random(800));
        
    end;
        
    1begin
          Mouse
    (xy44True);
          
    wait(5000+random(800));
           
    end;
        
    end;
      
    end;
    end;

    Procedure AntiRandoms;
    var
      
    Integer;
    Begin
    if (not(loggedin)) then exit;
     for 
    := 0 to 3 do
       
    FindNormalRandoms;
       
    FindNonInventoryRandoms;
     
    wait(1)
    end;

    procedure proggy;
    begin
      addtoreport
    ('********m4r1us willow power chopper********');
      
    addtoreport('*******************************************');
      
    addtoreport('Time Ran: '+timerunning+'');
      
    addtoreport('Logs Chopped: ' IntToStr(LogsDropped) + '');
      
    addtoreport('*******************************************');
      
    addtoreport('*****THANKS FOR USING MY FIRST SCRIPT******');
    end;

    Procedure Droplogs;
    begin
    if (invfullthen
    for := 2 to 28 do
    dropItem(i);
    end;

    procedure antiban;
    var
    nobanInteger;
    Begin
      
    If Not (LoggedInThen Exit;
      
    noban := Random(25);
      Case 
    noban Of
        0
    91723PickUpMouse;
        
    11316RandomRclick;
        
    210182224randomMovement;
        
    //4, 12, 19: Almostlogout;
        
    5118:  ChooseOption('cancel');
        
    61521MMouse(Random(MSX2), Random(MSY2), 00);
        
    7143HoverSkill('woodcutting'false);
      
    end;
      
    abt:=0;
    end;

    begin
      Smart_Server 
    := SmartWorld;
      
    Smart_Members := Members;
      
    Smart_Signed := SignedClient;
      
    Smart_SuperDetail := HighDetail;
      
    SetupSRL;
      
    declareplayers;
      
    cleardebug;
      
    activateclient;
      if(
    not(loggedin))then
         Loginplayer
    ;
         
    wait(2500+random(800));
         
    makecompass('n');
         
    setangle(true);
         
    MarkTime(PlayerStart);
      
    repeat
        repeat
          cuttwillow
    ;
          
    AntiRandoms;
          
    antiban;
        
    until(InvFull)
        
    Droplogs;
        
    proggy;
      
    until (False)
    end

  2. #2
    Join Date
    Jan 2008
    Location
    Ontario, Canada
    Posts
    7,805
    Mentioned
    5 Post(s)
    Quoted
    3 Post(s)

    Default

    You never increment the variable "LogsDropped".
    Writing an SRL Member Application | [Updated] Pascal Scripting Statements
    My GitHub

    Progress Report:
    13:46 <@BenLand100> <SourceCode> @BenLand100: what you have just said shows you 
                        have serious physchological problems
    13:46 <@BenLand100> HE GETS IT!
    13:46 <@BenLand100> HE FINALLY GETS IT!!!!1

  3. #3
    Join Date
    Jul 2008
    Location
    Lithuania/Norway
    Posts
    90
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    fixed my script. mods can lock this thread
    Last edited by m4r1us; 10-30-2009 at 05:57 PM.

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
  •