Results 1 to 2 of 2

Thread: im trying to make more scripts for app

  1. #1
    Join Date
    Jun 2006
    Posts
    25
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default im trying to make more scripts for app

    i keep getting stuck in this script not finish i wonder if some one could help with getting the alkarid smelting functions and the bar ores table for me

    PHP Code:
    program autosmelter;
    {.include 
    SRL/SRL.scar}
    {.include 
    SRL/SRLskill/Smithing.scar}

    var  
    IronOreCoalOreMithOreGoldOreAdamantOreTinOreCopperOre,
    SilverOreRuniteOre:Integer;

    const

    numberofusers   =  1;  // If not set right, might give an out of range error.
    Startplayer     =  1;  // player you wish to start with
    Loads           =  10  // loads per user set higher if ya want more loads done
    TheOreTol       =  4;  //  4 When using AutoColor, 9 or 14 without AutoColor.
    Largereport     True;//   report per player ?
    AutoColor       True;// want to get acurate colour
     
    UseCamera        True;
     
    UseMovement      True;
     
    UseGameTabs      True;
     
    UseGetSkill      True;
     
    WhatSkill        'Smithing'// Skill to check, for Antiban.
     
    UseIdleTiming    True;
     
    UseDraggingItem  True;
     
    UseDoBoredHuman  True;
     
    HowOftenAntiBan  500;
     
    UseRandomSpeech  False;   // True for random Speech.
     
    NumberOfLines    5;      // For Random Speech, so you can add some speeches yourself.

     // antiban//
    const
    CopperColor       5476070;
     
    TinColor          9277080;
     
    ClayColor         4553880;
     
    IronColor         2898528;
     
    SilverColor       12434885;
     
    CoalColor         2834753;
     
    GoldColor         1881051;
     
    MithrilColor      7359564;
     
    AdamantColor      6322272;
     
    RuniteColor       0//i cant get the ore color please find that out yourself
     
     
    Var,ores,Secondstowait;
    // hard to code this script//===============//

    Procedure DeclarePlayers;

      
    Begin
         HowManyPlayers  
    := NumberOfUsers;
         
    NumberOfPlayersHowManyPlayers );
         
    CurrentPlayer := StartPlayer;

         
    Players[0].Name := '';
         
    Players[0].Pass := '';
         
    Players[0].Nick := '';
         
    Players[0].Active:=True;
         
    Players[0].String1  := 'Iron';      // Primairy Ore Color
         
    Players[0].String2  := 'Iron';      // Secondairy Ore Color wont be smithed as much as 1.
         
    Players[0].String3  := 'Iron';      // Third Ore Color, won't be smithed as much as 1 and 2.


         
    Players[1].Name := '';
         
    Players[1].Pass := '';
         
    Players[1].Nick := '';
         
    Players[1].Active:=True;
         
    Players[1].String1  := 'Iron';      // Primairy Ore Color
         
    Players[1].String2  := 'Iron';      // Secondairy Ore Color wont be smithed as much as 1.
         
    Players[1].String3  := 'Iron';      // Third Ore Color, won't be smithed as much as 1 and 2.


         
    Players[2].Name := '';
         
    Players[2].Pass := '';
         
    Players[2].Nick := '';
         
    Players[2].Active:=True;
         
    Players[2].String1  := 'Iron';      // Primairy Ore Color
         
    Players[2].String2  := 'Iron';      // Secondairy Ore Color wont be smithed as much as 1.
         
    Players[2].String3  := 'Iron';      // Third Ore Color, won't be smithed as much as 1 and 2.


         
    WritelnIntToStr HowManyPlayers ) + ' Players' );
      
    End;


    Procedure SetOreColor;

    Begin
     
    Case LowerCase(Players[CurrentPlayer].String1Of

       
    'copper'  :  OreColor1:=CopperColor;
       
    'tin'     :  OreColor1:=TinColor;
       
    'iron'    :  OreColor1:=IronColor;
       
    'silver'  :  OreColor1:=SilverColor;
       
    'coal'    :  OreColor1:=CoalColor;
       
    'gold'    :  OreColor1:=GoldColor;
       
    'mithril' :  OreColor1:=MithrilColor;
       
    'adamant' :  OreColor1:=AdamantColor;
       
    'runite'  :  OreColor1:=RuniteColor;

     
    End;
        Case 
    Lowercase(Players[CurrentPlayer].String2Of

       
    'copper'  :  OreColor2:=CopperColor;
       
    'tin'     :  OreColor2:=TinColor;
       
    'iron'    :  OreColor2:=IronColor;
       
    'silver'  :  OreColor2:=SilverColor;
       
    'coal'    :  OreColor2:=CoalColor;
       
    'gold'    :  OreColor2:=GoldColor;
       
    'mithril' :  OreColor2:=MithrilColor;
       
    'adamant' :  OreColor2:=AdamantColor;
       
    'runite'  :  OreColor2:=RuniteColor;

      
    End;
      
    WriteLn('Old OreColor1 = '+IntToStr(OreColor1)+'; and Old OreColor2 = '+
    IntToStr(OreColor2)+'; and Old OreColor3 = '+IntToStr(OreColor3)+';');

    End;

    // so far so good here comes hard bit=( or maybe =) // 

  2. #2
    Join Date
    Jun 2006
    Location
    The Netherlands
    Posts
    2,984
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    Hey, im busy with the same thing , already got the walk from the bank to the furnace in my first day as a scripter .

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. What Type of Scripts do you make?
    By P1nky in forum NOTA
    Replies: 19
    Last Post: 12-16-2008, 10:35 PM
  2. Update this scripts and make this one :D
    By you won in forum RS3 Outdated / Broken Scripts
    Replies: 3
    Last Post: 06-06-2008, 10:21 PM
  3. I'm new to SRL and I don't know what to do to make scripts
    By sk8r in forum RS3 Outdated / Broken Scripts
    Replies: 10
    Last Post: 08-15-2007, 07:24 PM
  4. Replies: 20
    Last Post: 05-12-2007, 01:47 AM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •