Results 1 to 8 of 8

Thread: Put a proggres '';'' into another procedure

  1. #1
    Join Date
    May 2008
    Posts
    210
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Put a proggres '';'' into another procedure

    >.< im so irritaded!! Ive done like 75% of my new script '' Transporter'' and btw thx p1nky for the idea, ive given u credits but when I try 2 put the proggy; into another procedure it wont work.. heres the script

    SCAR Code:
    program Transporter;
    {.include srl/srl.scar}
    {.include srl/srl/Skill/Magic.scar}
    {.include srl/srl/misc/users.scar}

    {-_-_-_-_-_-_--_-_-_-_-_-_--_-_-_-_-_-_--_-_-_-_-_-_--_-_-_-_-_-_--_-_-_-_-_-_-
    ====---> I have used P1nky's Teleporter so some credits to him.
    ====---> Teleport locations: Lumbridge,Varrock,Falador,Camelot and Ardounge.
    ====---> Members should use Camelot transport due to low cost of runes.
    ====---> This script has Abbys solver.
    ====---> This script will go far with help with SRL's help :)

    *******************************************************************************
    Special thanks to Bonfield - ty for making the script correct.
    Special thanks to p1nky - I got this script idea from your script.
    *******************************************************************************
    -_-_-_-_-_-_--_-_-_-_-_-_--_-_-_-_-_-_--_-_-_-_-_-_--_-_-_-_-_-_--_-_-_-_-_-_-}


    Var
    SpellToCast, Casted: Integer;

    Const
    TransportTime = 3000; {--> Time between Transports; 4000-8000 advised}
    Transports = 20; {--> How many times to Transport?}
    TransportLocation = 'Lumbridge'; {-->Lumbridge,Varrock,Falador,Camelot and Ardounge.}

    {-_-_-_-_-_-_-_-_-_-_-_-_-_-_Danger: Do not touch below!-_-_-_-_-_-_-_-_-_-_-_-_}

    Procedure Transport;
    Begin
     Case TransportLocation of
      'Lumbridge' : SpellToCast :=19;
      'Varrock'   : SpellToCast :=16;
      'Falador'   : SpellToCast :=22;
      'Camelot'   : SpellToCast :=27;
      'Ardounge'  : SpellToCast :=33;
     end;
    end;

    Procedure SpellCast;
    begin
      if (not(loggedin)) then exit;
      Casted := 0;
      Transport;
      repeat
       GameTab(7);
       CastSpell(SpellToCast);
       Casted := Casted + 1;
       Wait(TransportTime + random(2000));
       until (Casted=Transports);
    end;

    Procedure Proggy;
    Begin
    ClearDebug;
    Writeln ('====================================================================');
    Writeln ('=========================Transporter V1.0===========================');
    Writeln ('--Made by Nexhou,Corrected by bonfield and ideas from p1nkys script--');
    Writeln ('------------------> We have done '+ IntToStr(Casted)+ ' Transports');
    end;

    Procedure Signature;
    Begin
    Writeln  ('-------------------------------------------------------------------');
    Writeln ('  _        _______                    _______         ');
    Writeln(' ( (    /|(  ____ \|\     /||\     /|(  ___  )|\     /|');
    Writeln(' |  \  ( || (    \/( \   / )| )   ( || (   ) || )   ( |');
    Writeln(' |   \ | || (__     \ (_) / | (___) || |   | || |   | |');
    Writeln(' | (\ \) ||  __)     ) _ (  |  ___  || |   | || |   | |');
    Writeln(' | | \   || (       / ( ) \ | (   ) || |   | || |   | |');
    Writeln(' | )  \  || (____/\( /   \ )| )   ( || (___) || (___) |');
    Writeln(' |/    )_)(_______/|/     \||/     \|(_______)(_______)');
    Writeln ('-------------------------------------------------------------------');
    end;

    begin
    SetupSRL;
    ActivateClient;
    Signature;
    SpellCast;




    end.

    I try to put Proggy; into Spellcast; and then i get this error
    SCAR Code:
    Line 49: [Error] (15396:1): Unknown identifier 'Proggy' in script
    and this is how it looks like when ive put it in
    SCAR Code:
    Procedure SpellCast;
    begin
      if (not(loggedin)) then exit;
      Casted := 0;
      Transport;
      repeat
       GameTab(7);
       CastSpell(SpellToCast);
       Casted := Casted + 1;
       Proggy;
       Wait(TransportTime + random(2000));
       until (Casted=Transports);
    end;
    any help is wanted and needed

  2. #2
    Join Date
    Apr 2007
    Location
    The Netherlands
    Posts
    5,553
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    If you want to use something you need it at a higher place so place proggy and signature at the top
    ~Hermen

  3. #3
    Join Date
    May 2008
    Posts
    210
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ah kk, ty man

  4. #4
    Join Date
    Dec 2006
    Location
    Program TEXAS home of AUTOERS
    Posts
    7,934
    Mentioned
    26 Post(s)
    Quoted
    237 Post(s)

    Default

    guess herm has answerd your question :P

    btw thanks for the credits didnt even know someone was up to make a script like mine .

    keep it up just try not to copy it exactly

  5. #5
    Join Date
    Apr 2008
    Location
    Northwest england
    Posts
    1,179
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    or you can put

    procedure proggy;forward;

    however try not to use that unless 100% necesary as it will make your script lag
    Blank!

  6. #6
    Join Date
    May 2008
    Posts
    210
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Waddo, 2 questions, 1: why arent u a memb? you rly should apply - u will pass and 2: wana help me with scripts via msn?

    Edit: p1nky - ur script was rly good and all i needed was a kick in my butt so i can start make something bigger someday, and this was starting point for me so thx i guess and ive just taken ur ideas and a few stuff and i wonder if ur abbys solver work? and if it does - can i have it on my own script?

  7. #7
    Join Date
    Mar 2007
    Posts
    3,116
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    Quote Originally Posted by Nexhou View Post
    Waddo, 2 questions, 1: why arent u a memb? you rly should apply - u will pass
    He did try, and failed, super close though...

  8. #8
    Join Date
    Dec 2006
    Location
    Program TEXAS home of AUTOERS
    Posts
    7,934
    Mentioned
    26 Post(s)
    Quoted
    237 Post(s)

    Default

    he tried twice right?

    and i think was really close second time he just needed more effort in it

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Procedure Help...
    By impiwimpi in forum OSR Help
    Replies: 16
    Last Post: 01-08-2009, 06:20 PM
  2. Procedure TypeSendRandom & Procedure AutoResponder!
    By Ultra in forum Research & Development Lounge
    Replies: 12
    Last Post: 01-08-2008, 07:04 PM
  3. Replies: 8
    Last Post: 05-24-2007, 11:57 PM
  4. Procedure that calls random procedure?
    By Secet in forum OSR Help
    Replies: 2
    Last Post: 03-03-2007, 03:56 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
  •