Results 1 to 13 of 13

Thread: 5 options, Choose 1 and make the script do that - how?

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

    Default 5 options, Choose 1 and make the script do that - how?

    Ok, Im making a script, theres a const
    SCAR Code:
    TransportLocation = 'Camelot'; {-->Lumbridge,Varrock,Falador,Camelot and Ardounge.}
    I want to make 1 procedure that will do the location that the user has chosen, how?

  2. #2
    Join Date
    Dec 2006
    Location
    Copy pastin to my C#
    Posts
    3,788
    Mentioned
    8 Post(s)
    Quoted
    29 Post(s)

    Default

    Could explain a bit? Lol

    Do what?

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

    Default

    use a case function

    for example
    SCAR Code:
    procedure casttele;
    begin
      case transportlocation of
        'camelot' : castspell('camelot');

        'lumbridge' : castspell('lumbridge');
      end;
    end;

    dont forget to include magic.scar
    Blank!

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

    Default

    Quote Originally Posted by n3ss3s View Post
    Could explain a bit? Lol

    Do what?
    Its a transport script, you choose between 5 locs to transport to, and instead of making 5 diff procedures for each loc, id like to make the script to read what the user chose and then use that to run the script like

    I choose camelot,the script sees it and then runs the ''camelot'' part and starts the transporting

    Edit: Thx waddo, Ill try

    Edit2: Waddo, why the 2 End; ?

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

    Default

    a case needs an end

    case sumit of
    stuff
    end;
    include
    {.include srl/srl/skill/magic.scar}

    you can also do

    SCAR Code:
    case....
    'camelot' :cast(27);
    end;


    spel numbers here
    1: TheSpell := 'Home Teleport';
    2: TheSpell := 'Wind Strike';
    3: TheSpell := 'Confuse';
    4: TheSpell := 'Bolt Enchantment';
    5: TheSpell := 'Water Strike';
    6: TheSpell := 'Enchant Level 1 Jewelry';
    7: TheSpell := 'Earth Strike';
    8: TheSpell := 'Weaken';
    9: TheSpell := 'Fire Strike';
    10: TheSpell := 'Bones to Bananas';
    11: TheSpell := 'Wind Bolt';
    12: TheSpell := 'Curse';
    13: TheSpell := 'Bind';
    14: TheSpell := 'Low Level Alchemy';
    15: TheSpell := 'Water Bolt';
    16: TheSpell := 'Varrock Teleport';
    17: TheSpell := 'Enchant Level 2 Jewelry';
    18: TheSpell := 'Earth Bolt';
    19: TheSpell := 'Lumbridge Teleport';
    20: TheSpell := 'Telekinetic grab';
    21: TheSpell := 'Fire Bolt';
    22: TheSpell := 'Falador Teleport';
    23: TheSpell := 'Crumble Undead';
    24: TheSpell := 'House teleport';
    25: TheSpell := 'Wind Blast';
    26: TheSpell := 'Superheat Item';
    27: TheSpell := 'Camelot Teleport';
    28: TheSpell := 'Water Blast';
    29: TheSpell := 'Enchant Level 3 Jewelry';
    30: TheSpell := 'Iban Blast';
    31: TheSpell := 'Snare';
    32: TheSpell := 'Magic Dart';
    33: TheSpell := 'Ardougne teleport';
    34: TheSpell := 'Earth Blast';
    35: TheSpell := 'High Level Alchemy';
    36: TheSpell := 'Charge Water Orb';
    37: TheSpell := 'Enchant Level 4 Jewelry';
    38: TheSpell := 'Watchtower Teleport';
    39: TheSpell := 'Fire Blast';
    40: TheSpell := 'Charge Earth Orb';
    41: TheSpell := 'Bones to Peaches';
    42: TheSpell := 'Saradomin Strike';
    43: TheSpell := 'Claws of Guthix';
    44: TheSpell := 'Flames of Zamorak';
    45: TheSpell := 'Trollheim Teleport';
    46: TheSpell := 'Wind Wave';
    47: TheSpell := 'Charge Fire Orb';
    48: TheSpell := 'Ape Atoll teleport';
    49: TheSpell := 'Water Wave';
    50: TheSpell := 'Charge Air Orb';
    51: TheSpell := 'Vulnerability';
    52: TheSpell := 'Enchant Level 5 Jewelry';
    53: TheSpell := 'Earth Wave';
    54: TheSpell := 'Enfeeble';
    55: TheSpell := 'Teleother Lumbridge';
    56: TheSpell := 'Fire Wave';
    57: TheSpell := 'Entangle';
    58: TheSpell := 'Stun';
    59: TheSpell := 'Charge';
    60: TheSpell := 'Teleother Falador';
    61: TheSpell := 'Tele Block';
    62: TheSpell := 'Enchant Level 6 Jewelry ';
    63: TheSpell := 'Teleother Camelot';
    Blank!

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

    Default

    ah, kk ty, This is how far ive come
    SCAR Code:
    program New;
    {.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.
    -_-_-_-_-_-_--_-_-_-_-_-_--_-_-_-_-_-_--_-_-_-_-_-_--_-_-_-_-_-_--_-_-_-_-_-_-}




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

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

    Var
    TransportTime,Transports: Integer;

    Procedure Transport;
    Begin
    Case TransportLocation of
    'Camelot' : Castspell('Camelot');
    Wait(TransportTime + random(1500));

    end;
    end;







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



    begin
    SetupSRL;
    Signature;
    Transport;

    end.

    But I get this error..
    Line 23: [Error] (15370:1): Duplicate identifier 'TransportTime' in script

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

    Default

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

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

    Var
    TransportTime,Transports: Integer;

    cant have a var and const with same name, delete the variables



    a constant doent need a data type as it is auto set

    but add another variable telportscast:integer;

    also dont forget to use

    repeat
    case and wait
    inc(teleportscast);
    until teleportscast>=transports;

    or for teleportscast:= 0 to transports do
    Transport;
    Blank!

  8. #8
    Join Date
    Oct 2006
    Posts
    1,190
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    thats because you have it as a variable and a constant, just change one of the names

    EDIT: waddo beat me to it =]



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

    Default

    Ok, now its looking like this
    SCAR Code:
    program New;
    {.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.
    -_-_-_-_-_-_--_-_-_-_-_-_--_-_-_-_-_-_--_-_-_-_-_-_--_-_-_-_-_-_--_-_-_-_-_-_-}




    Const
    TransportTimez = 3000; {--> Time between Transports; 3000-6000 advised}
    Transportz = 100; {--> How many times to Transport?}
    TransportLocation = 'Camelot'; {-->Lumbridge,Varrock,Falador,Camelot and Ardounge.}

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

    Var
    TransportTime,Transports: Integer;

    Procedure Transport;
    Begin
    Case TransportLocation of
    'Camelot' : Castspell('Camelot');
    Wait(TransportTime + random(1500));

    end;
    end;







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



    begin
    SetupSRL;
    Signature;
    Transport;

    end.

    and I also get this error
    Line 28: [Error] (15375:33): Type mismatch in script
    it might be cuz of the 'Camelot' thing but if i put in Castspell (27) ill get this error..
    Line 29: [Error] (15376:35): colon (':') expected in script
    I think its working with the (27); but theres something wrong with
    Wait(TransportTimez + random(1500));
    , gota go now but ill be back

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

    Default

    becauseyou its not camelot
    spel numbers here
    1: TheSpell := 'Home Teleport';
    2: TheSpell := 'Wind Strike';
    3: TheSpell := 'Confuse';
    4: TheSpell := 'Bolt Enchantment';
    5: TheSpell := 'Water Strike';
    6: TheSpell := 'Enchant Level 1 Jewelry';
    7: TheSpell := 'Earth Strike';
    8: TheSpell := 'Weaken';
    9: TheSpell := 'Fire Strike';
    10: TheSpell := 'Bones to Bananas';
    11: TheSpell := 'Wind Bolt';
    12: TheSpell := 'Curse';
    13: TheSpell := 'Bind';
    14: TheSpell := 'Low Level Alchemy';
    15: TheSpell := 'Water Bolt';
    16: TheSpell := 'Varrock Teleport';
    17: TheSpell := 'Enchant Level 2 Jewelry';
    18: TheSpell := 'Earth Bolt';
    19: TheSpell := 'Lumbridge Teleport';
    20: TheSpell := 'Telekinetic grab';
    21: TheSpell := 'Fire Bolt';
    22: TheSpell := 'Falador Teleport';
    23: TheSpell := 'Crumble Undead';
    24: TheSpell := 'House teleport';
    25: TheSpell := 'Wind Blast';
    26: TheSpell := 'Superheat Item';
    27: TheSpell := 'Camelot Teleport';
    28: TheSpell := 'Water Blast';
    29: TheSpell := 'Enchant Level 3 Jewelry';
    30: TheSpell := 'Iban Blast';
    31: TheSpell := 'Snare';
    32: TheSpell := 'Magic Dart';
    33: TheSpell := 'Ardougne teleport';
    34: TheSpell := 'Earth Blast';
    35: TheSpell := 'High Level Alchemy';
    36: TheSpell := 'Charge Water Orb';
    37: TheSpell := 'Enchant Level 4 Jewelry';
    38: TheSpell := 'Watchtower Teleport';
    39: TheSpell := 'Fire Blast';
    40: TheSpell := 'Charge Earth Orb';
    41: TheSpell := 'Bones to Peaches';
    42: TheSpell := 'Saradomin Strike';
    43: TheSpell := 'Claws of Guthix';
    44: TheSpell := 'Flames of Zamorak';
    45: TheSpell := 'Trollheim Teleport';
    46: TheSpell := 'Wind Wave';
    47: TheSpell := 'Charge Fire Orb';
    48: TheSpell := 'Ape Atoll teleport';
    49: TheSpell := 'Water Wave';
    50: TheSpell := 'Charge Air Orb';
    51: TheSpell := 'Vulnerability';
    52: TheSpell := 'Enchant Level 5 Jewelry';
    53: TheSpell := 'Earth Wave';
    54: TheSpell := 'Enfeeble';
    55: TheSpell := 'Teleother Lumbridge';
    56: TheSpell := 'Fire Wave';
    57: TheSpell := 'Entangle';
    58: TheSpell := 'Stun';
    59: TheSpell := 'Charge';
    60: TheSpell := 'Teleother Falador';
    61: TheSpell := 'Tele Block';
    62: TheSpell := 'Enchant Level 6 Jewelry ';
    63: TheSpell := 'Teleother Camelot';


    its camlot teleport

    and to do with number

    it is cast(27);
    not castspell

    also

    SCAR Code:
    case
      stuff
    end;
    wait

    else it wont wokr

    Edit: delete Var
    TransportTime,Transports: Integer;

    there not needed
    Blank!

  11. #11
    Join Date
    Oct 2006
    Posts
    1,190
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    i fixed it for u, you will need to add antiban cos there is nothing in it, also failsafes and randomness will needed to be added but here it is

    SCAR Code:
    program New;
    {.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.
    -_-_-_-_-_-_--_-_-_-_-_-_--_-_-_-_-_-_--_-_-_-_-_-_--_-_-_-_-_-_--_-_-_-_-_-_-}




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

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

    Var
    SpellToCast, Casted: Integer; // removed vars that were not needed
     Procedure DeclarePlayers; // added declare players so u can actually use  the script
    begin
      HowManyPlayers := 1;//Change this accordinly
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;

      Players[0].name := name;
      Players[0].pass := pass;
      Players[0].nick := 'nick'; //gonna give you up
      Players[0].active := true;
    end;

    Procedure Transport;
    Begin
     Case TransportLocation of       //addded spells and numbers
      '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;  // makes sure you are logged in
      Casted := 0;
      Transport;
      repeat
       GameTab(7);  // changes to magic tab
       CastSpell(SpellToCast); // casts spell
       casted := casted + 1;
       Wait(TransportTime + random(1500));
      until (casted=Transports);
      NextPlayer(False);  // This will switch players and will switch the current player to not active
    end;

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



    begin
    SetupSRL;
    Signature;
    DeclarePlayers;
    SpellCast;
    // Add everything else u are going to make

    end.

    if u dont understand what i have done just ask me



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

    Default

    Ah man! thx! gona edit my script, ive done this far -.-
    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 :)
    -_-_-_-_-_-_--_-_-_-_-_-_--_-_-_-_-_-_--_-_-_-_-_-_--_-_-_-_-_-_--_-_-_-_-_-_-}




    Const
    TransportTimez = 3000; {--> Time between Transports; 3000-6000 advised}
    Transportz = 3; {--> How many times to Transport?}
    TransportLocation = 'Lumbridge'; {-->Lumbridge,Varrock,Falador,Camelot and Ardounge.}

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

    Var
    TransportTime,Transports: Integer;






    Procedure Lumbridge;
    Begin
    Cleardebug;
    Writeln ('You have chosen Lumbridge as location to transport to.');
    Writeln ('Runes needed for Lumbridge Transport : 1 Earth,3 Air,1 Law Runes.');
    Wait(TransportTimez + random(1500));
    Cast ('Lumbridge');
    end;

    Procedure Varrock;
    Begin
    Cleardebug;
    Writeln ('You have chosen Varrock as location to transport to.');
    Writeln ('Runes needed for Varrock Transport : 1 Fire,3 Air,1 Law Runes.');
    Wait(TransportTimez + random(1500));
    Cast ('Varrock');
    end;

    Procedure Falador;
    Begin
    Cleardebug;
    Writeln ('You have chosen Falador as location to transport to.');
    Writeln ('Runes needed for Falador Transport : 1 Water,3 Air,1 Law Runes.');
    Wait(TransportTimez + random(1500));
    Cast ('Falador');
    end;

    Procedure Camelot;
    Begin
    Cleardebug;
    Writeln ('You have chosen Camelot as location to transport to.');
    Writeln ('Runes needed for Camelot Transport : 5 Air,1 Law Runes.');
    Writeln ('It is advised to use a Staff of Air to save money and runes.');
    Wait(TransportTimez + random(1500));
    Cast ('Camelot');
    end;

    Procedure Ardounge;
    Begin
    Cleardebug;
    Writeln ('You have chosen Ardounge as location to transport to.');
    Writeln ('Runes needed for Ardounge Transport : 2 Water,2 Law Runes.');
    Wait(TransportTimez + random(1500));
    Cast ('Ardounge');
    end;


    Function TransportLocatiion: Integer; {Idea from: P1nky's Everywhere teler}
    Begin
         Case Uppercase(TransportLocation) Of
              'Lumbridge': Lumbridge;
              'Varrock': Varrock;
              'Falador': Falador;
              'Camelot': Camelot;
              'Ardounge': Ardounge;
         End;
    End;


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



    begin
    SetupSRL;
    Signature;
    TransportLocatiion;

    end.

    also when i script i do the script itself first and then the findrandoms; and log in player and stuff thats the easy stuff, hard stuff first

  13. #13
    Join Date
    Oct 2006
    Posts
    1,190
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    try this

    SCAR Code:
    program New;
    {.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.
    -_-_-_-_-_-_--_-_-_-_-_-_--_-_-_-_-_-_--_-_-_-_-_-_--_-_-_-_-_-_--_-_-_-_-_-_-}




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

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

    Var
    SpellToCast, Casted: Integer; // removed vars that were not needed
    Write : string;

     Procedure DeclarePlayers; // added declare players so u can actually use  the script
    begin
      HowManyPlayers := 1;//Change this accordinly
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;

      Players[0].name := 'name';
      Players[0].pass := 'pass';
      Players[0].nick := 'nick';
      Players[0].active := true;
    end;

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


    procedure WriteStuff;     //instead of calling different procedures for each spell
    begin
     case TransportLocation of
      'Lumbridge' : Write := ('Runes needed for Lumbridge Transport 1 Earth,3 Air,1 Law Runes .');
      'Varrock'   : Write := ('Runes needed for Varrock Transport 1 Fire,3 Air,1 Law Runes.');
      'Falador'   : Write := ('Runes needed for Falador Transport 1 Water,3 Air,1 Law Runes.');
      'Camelot'   : Write := ('Runes needed for Camelot Transport : 5 Air,1 Law Runes.');
      'Ardounge'  : Write := ('Runes needed for Ardounge Transport 2 Water,2 Law Runes.');
     end;
    end;

    Procedure SpellCast;
    begin
      if (not(loggedin)) then exit;  // makes sure you are logged in
      Casted := 0;
      Transport;
      repeat
       GameTab(7);  // changes to magic tab
       CastSpell(SpellToCast); // casts spell
       casted := casted + 1;
       Wait(TransportTime + random(1500));
      until (casted=Transports);
      NextPlayer(False);  // This will switch players and will switch the current player to not active
    end;

    Procedure Signature;
    Begin
    Writeln  ('-------------------------------------------------------------------');
    Writeln ('  _        _______                    _______         ');
    Writeln(' ( (    /|(  ____ \|\     /||\     /|(  ___  )|\     /|');
    Writeln(' |  \  ( || (    \/( \   / )| )   ( || (   ) || )   ( |');
    Writeln(' |   \ | || (__     \ (_) / | (___) || |   | || |   | |');
    Writeln(' | (\ \) ||  __)     ) _ (  |  ___  || |   | || |   | |');
    Writeln(' | | \   || (       / ( ) \ | (   ) || |   | || |   | |');
    Writeln(' | )  \  || (____/\( /   \ )| )   ( || (___) || (___) |');
    Writeln(' |/    )_)(_______/|/     \||/     \|(_______)(_______)');
    Writeln ('-------------------------------------------------------------------');
    wait(1000); // added the wait time so the sig stays there for a while
    ClearDebug; // gets rid of the siggy
    end;



    begin
    SetupSRL;
    Signature;
    WriteStuff;   // Added to main loop so it actually gets used
    WriteLn(Write);  // Write what u have chosen in debug box or u can use status
    DeclarePlayers;
    SpellCast;
    // Add everything else u are going to make

    end.

    let me know if u like it or understand what i did,because the way you did it you would have to call a procedure for each spell, this way is just easier

    also they way u wrote the procedure for each spell would mean that the spell is only used once in the whole script, so have a look at the cast spell procedure i created and see how i used repeat and until to cast the spell

    also when i script i do the script itself first and then the findrandoms; and log in player and stuff thats the easy stuff, hard stuff first
    just remember to add failsafes to each procedure as u go that way u wont forget about it and have endless loops in your script =]

    SCAR Code:
    Procedure Magiclvl;
    var Mlvl: integer;
    begin;
     if(not loggedin)then exit;
     gametab(2);
      MLvl := GetSkillLevel('Magic');
      writeln('Your Magic Level is ' +inttostr(Mlvl));
      if (MLvl <= 25) then TransportLocation:='Varrock' else;
      if (MLvl <= 31) then TransportLocation:='Lumbridge' else;
      if (MLvl <= 37) then TransportLocation:='Falador' else;
      if (MLvl <= 45) then TransportLocation:='Camelot' else;
      if (MLvl <= 51) then TransportLocation:='Ardougne';
    end;

    you could add something like that, then you would not have to declare what spell you wanted cast the script will cast the highest transport spell that you can, although u would have to edit it a little and add a few things so that it would work for f2p ppl as well as members



Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Help me choose siggy for a script.
    By ZaSz in forum Graphics and Multimedia
    Replies: 20
    Last Post: 01-15-2009, 06:23 PM
  2. More options
    By DeSnob in forum OSR Help
    Replies: 3
    Last Post: 12-28-2008, 06:39 PM
  3. Options
    By davidwang in forum RuneScape News and General
    Replies: 6
    Last Post: 11-28-2008, 04:02 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
  •