Results 1 to 6 of 6

Thread: [Copper Mashed] Need Script Fixing Help!

  1. #1
    Join Date
    May 2007
    Posts
    32
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default [Copper Mashed] Need Script Fixing Help!

    For a while I have made a script that will power mine & drop copper from my own personal uses. I have used it to quickly raise my army of level 3's and 4's to level 20+ Mining. But now I have made a brand new public version and I need some script fixing help. I keep getting this error:
    Line 40: [Error] (15317:10): Assignment expected in script [MyScriptDirect].
    I can't fix it? Here is the almost until error fixed full script of Copper Mashed:
    SCAR Code:
    {.Script Info:
    # ScriptName  = Copper Mashed
    # Author      = MacroHawk
    # Description = Power Mine's Copper Ore
    # Version     = 1.0 Beta
    # Date        = May 16, 2007
    # Comments    = Setup lines 14-17
    /Script Info}

    program CopperMash;
    {.include SRL/SRL.scar}
    {.include SRL/SRL/Skill/Mining.scar}

    const
      PlayerName  ='';
      PassWord    ='';
      NickName    ='ebra';
      RunDirc    ='';

    var
      Ores, GasFoundC: Integer;

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

      Players[0].Name :=(PlayerName);
      Players[0].Pass :=(PassWord);
      Players[0].Nick :=(NickName);
      Players[0].Active:=True;

      NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
    end;

    procedure NoRands;
    begin
      FindPick;
      EquipPick;
      FindTalk;
      FindNormalRandoms;
      FindLamp('Mining');
    if(FindGas(x,y)) then
    begin
      SetRun(true);
      RunAwayDirection(RunDirc);
      Wait(10000 + random(2000));
      RunBack;
      SetRun(False);
      GasFoundC := GasFoundC + 1;
    end;
    if(FindFight) then
    begin
      SetRun(true);
      RunAwayDirection(RunDirc);
      Wait(10000 + random(2000));
      RunBack;
      SetRun(False);
    end;
    end;

    procedure NoBan;
    begin
      RandomChatEvery(2 + Random(2));
      BoredEvery(4 + random(7));
      Wait(5 + random(2));
      HoverSkill('Mining',false);
    If(InChat('Mining levels') or
      InChat('Mining levels?') or
      InChat('Mining lvl') or
      InChat('Mining lvls') or
      InChat('Mine levels') or
      InChat('Mine levels?') or
      InChat('Mine lvl') or
      InChat('Mine lvls') or
      InChat('Mine lvls?') or
      InChat('Mining lvls?')) then
    begin
        TypeSend(IntToStr(GetSkillLevel('Mining')));
    end;
    end;

    procedure Login;
    begin
      LoginPlayer;
      HighestAngle;
      MakeCompass(RunDirc);
    end;

    procedure ProgressReport;
    begin
      ClearDebug;
      Wait(10000)
      Writeln('[x]---------->Copper Mashed<----------[x]')
      Writeln('Mined '+IntToStr(Ores)+' Iron Ores')
      Writeln('Gained '+IntToStr(Ores*35)+' Mining Experiance')
      Writeln('Avoided '+IntToStr(GasFoundC)+' Random Gases')
      Writeln('Worked For: ' + TimeRunning)
      Writeln('[x]---------->Proggy Report<----------[x]')
    end;

    procedure MiningR;
    begin
    repeat
    if(FindColor(x,y,4351888,0,0,800,800)) or
    if(FindColor(x,y,3627131,0,0,800,800)) or
    if(FindColor(x,y,3165547,0,0,800,800)) or then
    begin
    MMouse(x, y, 2, 2);
    Wait(200+random(50));
    if GetUpText = 'ine' then
    Mouse(x,y,2,2,true);
    Ores := Ores + 1;
    Wait(2000+random(500));
    NoRands;
    NoBan;
    end;
    until(InvFull);
    end;

    procedure DropOre;
    begin
    if InventoryFull = true then
    begin
    GameTab(4);
    DropAll;
    end;
    end;

    begin
      SetupSRL;
      SetupSRLMining
      DeclarePlayers;
      NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
      ActivateClient;
      Login;
      FindPickHeadColor;
    repeat
      MiningR;
      DropOre;
      ProgressReport;
      NoRands;
      NoBan;
    until(false)
    end.
    Can some one look over the script and tell me what to fix please. Or if you could, can you just edit it and repost it here for me. I would be very greatful if you could and I will add you into the Script Credits. Please help (i'm so newbie).

  2. #2
    Join Date
    Feb 2006
    Location
    Tracy/Davis, California
    Posts
    12,631
    Mentioned
    135 Post(s)
    Quoted
    418 Post(s)

    Default

    Crazy fool!
    You left your user/pass in the script!
    Lucky i got here first and im nice!
    Iv changed your password and sent you a PM with your new one.
    BE MORE CAREFUL WHEN POSTING SCRIPTS

    Here
    I got rid of equippick, because not all people can equip the pics they use anyways.
    I also fixed some other errors that occored later in the script.
    It compiles now:
    SCAR Code:
    {.Script Info:
    # ScriptName  = Copper Mashed
    # Author      = MacroHawk
    # Description = Power Mine's Copper Ore
    # Version     = 1.0 Beta
    # Date        = May 16, 2007
    # Comments    = Setup lines 14-17
    /Script Info}

    program CopperMash;
    {.include SRL/SRL.scar}
    {.include SRL/SRL/Skill/Mining.scar}

    const
      PlayerName  ='';
      PassWord    ='';
      NickName    ='ebra';
      RunDirc    ='';

    var
      Ores, GasFoundC: Integer;

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

      Players[0].Name :=(PlayerName);
      Players[0].Pass :=(PassWord);
      Players[0].Nick :=(NickName);
      Players[0].Active:=True;

      NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
    end;

    procedure NoRands;
    begin
      FindPick;
      FindTalk;
      FindNormalRandoms;
      FindLamp('Mining');
    if(FindGas(x,y)) then
    begin
      SetRun(true);
      RunAwayDirection(RunDirc);
      Wait(10000 + random(2000));
      RunBack;
      SetRun(False);
      GasFoundC := GasFoundC + 1;
    end;
    if(FindFight) then
    begin
      SetRun(true);
      RunAwayDirection(RunDirc);
      Wait(10000 + random(2000));
      RunBack;
      SetRun(False);
    end;
    end;

    procedure NoBan;
    begin
      RandomChatEvery(2 + Random(2));
      BoredEvery(4 + random(7));
      Wait(5 + random(2));
      HoverSkill('Mining',false);
    If(InChat('Mining levels') or
      InChat('Mining levels?') or
      InChat('Mining lvl') or
      InChat('Mining lvls') or
      InChat('Mine levels') or
      InChat('Mine levels?') or
      InChat('Mine lvl') or
      InChat('Mine lvls') or
      InChat('Mine lvls?') or
      InChat('Mining lvls?')) then
    begin
        TypeSend(IntToStr(GetSkillLevel('Mining')));
    end;
    end;

    procedure Login;
    begin
      LoginPlayer;
      HighestAngle;
      MakeCompass(RunDirc);
    end;

    procedure ProgressReport;
    begin
      ClearDebug;
      Wait(10000)
      Writeln('[x]---------->Copper Mashed<----------[x]')
      Writeln('Mined '+IntToStr(Ores)+' Iron Ores')
      Writeln('Gained '+IntToStr(Ores*35)+' Mining Experiance')
      Writeln('Avoided '+IntToStr(GasFoundC)+' Random Gases')
      Writeln('Worked For: ' + TimeRunning)
      Writeln('[x]---------->Proggy Report<----------[x]')
    end;

    procedure MiningR;
    begin
    repeat
    if(FindColor(x,y,4351888,0,0,800,800)) or
    (FindColor(x,y,3627131,0,0,800,800)) or
    (FindColor(x,y,3165547,0,0,800,800))  then
    begin
    MMouse(x, y, 2, 2);
    Wait(200+random(50));
    if GetUpText = 'ine' then
    Mouse(x,y,2,2,true);
    Ores := Ores + 1;
    Wait(2000+random(500));
    NoRands;
    NoBan;
    end;
    until(InvFull);
    end;

    procedure DropOre;
    begin
    if InventoryFull = true then
    begin
    GameTab(4);
    DropAll;
    end;
    end;

    begin
      SetupSRL;
      SetupSRLMining
      DeclarePlayers;
      NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
      ActivateClient;
      Login;
      FindPickHeadColor;
    repeat
      MiningR;
      DropOre;
      ProgressReport;
      NoRands;
      NoBan;
    until(false)
    end.

    Also,
    DropAll isnt a very good dropping procedure in this case.
    What if the user cant equip pic? Has extra pics? Has gems/coins/random even clothing he wants?
    Wouldnt be very nice to drop it .
    Here ill link you to my DTM tutorial, and you can make an ore DTM dropping procedure.
    http://www.srl-forums.com/forum/show...ghlight=yohojo

  3. #3
    Join Date
    May 2007
    Posts
    32
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by YoHoJo View Post
    Crazy fool!
    You left your user/pass in the script!
    Lucky i got here first and im nice!
    Iv changed your password and sent you a PM with your new one.
    BE MORE CAREFUL WHEN POSTING SCRIPTS

    Here
    I got rid of equippick, because not all people can equip the pics they use anyways.
    I also fixed some other errors that occored later in the script.
    It compiles now:
    SCAR Code:
    {.Script Info:
    # ScriptName  = Copper Mashed
    # Author      = MacroHawk
    # Description = Power Mine's Copper Ore
    # Version     = 1.0 Beta
    # Date        = May 16, 2007
    # Comments    = Setup lines 14-17
    /Script Info}

    program CopperMash;
    {.include SRL/SRL.scar}
    {.include SRL/SRL/Skill/Mining.scar}

    const
      PlayerName  ='';
      PassWord    ='';
      NickName    ='ebra';
      RunDirc    ='';

    var
      Ores, GasFoundC: Integer;

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

      Players[0].Name :=(PlayerName);
      Players[0].Pass :=(PassWord);
      Players[0].Nick :=(NickName);
      Players[0].Active:=True;

      NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
    end;

    procedure NoRands;
    begin
      FindPick;
      FindTalk;
      FindNormalRandoms;
      FindLamp('Mining');
    if(FindGas(x,y)) then
    begin
      SetRun(true);
      RunAwayDirection(RunDirc);
      Wait(10000 + random(2000));
      RunBack;
      SetRun(False);
      GasFoundC := GasFoundC + 1;
    end;
    if(FindFight) then
    begin
      SetRun(true);
      RunAwayDirection(RunDirc);
      Wait(10000 + random(2000));
      RunBack;
      SetRun(False);
    end;
    end;

    procedure NoBan;
    begin
      RandomChatEvery(2 + Random(2));
      BoredEvery(4 + random(7));
      Wait(5 + random(2));
      HoverSkill('Mining',false);
    If(InChat('Mining levels') or
      InChat('Mining levels?') or
      InChat('Mining lvl') or
      InChat('Mining lvls') or
      InChat('Mine levels') or
      InChat('Mine levels?') or
      InChat('Mine lvl') or
      InChat('Mine lvls') or
      InChat('Mine lvls?') or
      InChat('Mining lvls?')) then
    begin
        TypeSend(IntToStr(GetSkillLevel('Mining')));
    end;
    end;

    procedure Login;
    begin
      LoginPlayer;
      HighestAngle;
      MakeCompass(RunDirc);
    end;

    procedure ProgressReport;
    begin
      ClearDebug;
      Wait(10000)
      Writeln('[x]---------->Copper Mashed<----------[x]')
      Writeln('Mined '+IntToStr(Ores)+' Iron Ores')
      Writeln('Gained '+IntToStr(Ores*35)+' Mining Experiance')
      Writeln('Avoided '+IntToStr(GasFoundC)+' Random Gases')
      Writeln('Worked For: ' + TimeRunning)
      Writeln('[x]---------->Proggy Report<----------[x]')
    end;

    procedure MiningR;
    begin
    repeat
    if(FindColor(x,y,4351888,0,0,800,800)) or
    (FindColor(x,y,3627131,0,0,800,800)) or
    (FindColor(x,y,3165547,0,0,800,800))  then
    begin
    MMouse(x, y, 2, 2);
    Wait(200+random(50));
    if GetUpText = 'ine' then
    Mouse(x,y,2,2,true);
    Ores := Ores + 1;
    Wait(2000+random(500));
    NoRands;
    NoBan;
    end;
    until(InvFull);
    end;

    procedure DropOre;
    begin
    if InventoryFull = true then
    begin
    GameTab(4);
    DropAll;
    end;
    end;

    begin
      SetupSRL;
      SetupSRLMining
      DeclarePlayers;
      NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
      ActivateClient;
      Login;
      FindPickHeadColor;
    repeat
      MiningR;
      DropOre;
      ProgressReport;
      NoRands;
      NoBan;
    until(false)
    end.
    Thanx for changing pass! Forgot I left it in! I seen you wanted to see what I got in bank and yes im poor And thanx for fixing the script!!! Rep+ for you. 1 for saving my pass and 2 for fixing ths script.

  4. #4
    Join Date
    Feb 2006
    Location
    Tracy/Davis, California
    Posts
    12,631
    Mentioned
    135 Post(s)
    Quoted
    418 Post(s)

    Default

    =).
    Iv saved over 10 accs, the worst i do is just take a peak in the bank =).
    No problem, and if you get more errors, please post them here instead of making a new thread =).

  5. #5
    Join Date
    Mar 2007
    Location
    Under a rock
    Posts
    813
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    The script is pretty basic atm, it's just a simple findcolor and click. You should make it more advanced. If you look around, you will find that soem great scripters will be ablt to turn a simple script into soemthing 1000+ lines, your script does make sense and works, so good job.

  6. #6
    Join Date
    May 2007
    Posts
    32
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Rune Hacker View Post
    The script is pretty basic atm, it's just a simple findcolor and click. You should make it more advanced. If you look around, you will find that soem great scripters will be ablt to turn a simple script into soemthing 1000+ lines, your script does make sense and works, so good job.
    Ya I know it basic. But I am still working on it and I need more help with the script
    It will login then it won't do anything?

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. need help fixing this script
    By wtfwtfwtf in forum OSR Help
    Replies: 11
    Last Post: 10-21-2008, 03:52 PM
  2. help fixing a script
    By Raskolnikov in forum OSR Help
    Replies: 1
    Last Post: 01-15-2008, 12:16 AM
  3. Tin & Copper
    By awesom in forum RS3 Outdated / Broken Scripts
    Replies: 0
    Last Post: 11-06-2007, 06:15 AM
  4. Script Fixing Help? Fix my Auto Miner?
    By MacroHawk in forum OSR Help
    Replies: 8
    Last Post: 07-06-2007, 06:46 PM
  5. Help Fixing Things with my first script
    By japman in forum OSR Help
    Replies: 12
    Last Post: 01-04-2007, 05:39 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
  •