Results 1 to 3 of 3

Thread: Help!!!!!!!!!!!!

  1. #1
    Join Date
    Oct 2007
    Posts
    742
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Help!!!!!!!!!!!!

    Hey thanks for visiting the thread, i need some help with the script iam about to release.

    Here is the script.
    SCAR Code:
    Program ULTRAMager;
    {.Include SRL/SRL.Scar}
    //This is version 0.1.
    //Next version is probally going to be a pay-script.
    ////////////////////////////////////////////////////
    // WRITER:                              U L T R A \\
    // CATEGORY:                                Magic \\
    // DESCRIPTION: Curses Tz-Kek's in the fight cave \\
    // ANTI-BAN:                                 True \\
    // ANTI-RANDOMS:                            False \\
    ////////////////////////////////////////////////////
    //Instructions
    {
    1.Get to a wave when a Tz-Kek comes.
    2.Stand behind a Sulphur vent.
    3.Stand so Tz-Kek cant attack you, have your body runes ready.
    4.Start logged in.
    5.Wear armour/dragon hide, anything to lower your magic bonus, wear mud staff.
    6.Set up const.
    7.Drag the crosshair onto the runescape window.
    8.Click run and enjoy.
    }

    //Instructions

    Var
    Cursed, Bans, Magic, x, y: Integer;

    Const
    ToCurse = 1000;//How many times you want to curse Tz-Kek?
    DoAntiBan = True;//True if you want to use Anti-Ban. Very recommended.
    TzKek = 11;//The color of Tz-Kek, pick it only if doesn't find Tz-Kek!

    { DO NOT TOUCH BELOW THIS POINT IF YOU ARE NOT AN ADVANCED SCRIPTER }

    Procedure DeclareDTM;
    Begin
            Magic := DTMFromString('78DA6364676060E066800346205EC9F696811' +
           '5CAFE0F048C7C400627030A1015E784AB07D32035FCA86A40E660' +
           'A8614355131EBE1E530D0F7E35007C030AA8');
    End;

    Procedure AntiBan;
    Begin
     If(DoAntiBan = True)Then
    Begin
     Case Random(12)Of
     
     0:Begin
       MouseSpeed:=10;
       MMouse(0, 0, 350, 350);
       Wait(500+random(600));
       Bans:=Bans+1;
       End;
       
     1:Begin
       Wait(1000+random(1000));
       MouseSpeed:=15;
       GameTab(1+random(13));
       Wait(1000+random(1000));
       GameTab(7);
       Bans:=Bans+1;
       End;

     2:Begin
       MouseSpeed:=8;
       MMouse(100, 100, 250, 300);
       Wait(500+random(500));
       Bans:=Bans+1;
       End;
       
     3:Begin
       GameTab(1+random(13));
       Wait(1000+random(1000));
       GameTab(7);
       Bans:=Bans+1;
       End;
       
     4:Begin
       MouseSpeed:=20;
       MMouse(200, 200, 300, 310);
       Wait(500+random(1000));
       Bans:=Bans+1;
       End;
       
     5:Begin
       Wait(200+random(800));
       GameTab(2);
       HoverSkill('random', False);
       Wait(500+random(2000));
       GameTab(7);
       Bans:=Bans+1;
       End;
       
     6:Begin
       GameTab(1);
       Wait(200+random(300));
       GameTab(2);
       Wait(300+random(200));
       GameTab(3+random(2));
       Wait(500+random(650));
       GameTab(7);
       Bans:=Bans+1;
       End;
       
     7:Begin
       MouseSpeed:=10;
       GameTab(5+random(5));
       Wait(1000+random(755));
       GameTab(7);
       Bans:=Bans+1;
       End;
       
     8:Begin
       MouseSpeed:=25;
       MMouse(70, 130, 200, 320);
       Wait(200+random(900));
       Bans:=Bans+1;
       End;
       
     9:Begin
       MouseSpeed:=16;
       Wait(100+random(100));
       GameTab(6+random(2));
       Wait(100+random(1000));
       GameTab(7);
       Bans:=Bans+1;
       End;
       
     10:Begin
        Wait(500+random(5000));
        MMouse(100, 100, 211, 211);
        Wait(1000+random(1000));
        Bans:=Bans+1;
        End;
       
     11:Begin;
        Wait(2000+random(2000))
        End;
    End;

    Procedure Curse;
    Begin
     GameTab(7);
      Wait(500+random(1000));
       If(FindDTM(Magic, x, y, MSX1, MSY1, MSX2, MSY2))Then
        Mouse(x, y, 2, 2, True);
        Wait(500+random(500));
       Begin
      If(FindColor(Tolerance(x, y, TzKek, MSX1, MSY1, MSX2, MSY2, 10))Then
     Mouse(x, y, 3, 3, True);
    Wait(2000+random(2000));
    Cursed:=Cursed+1;
    End;
     End;
     
    Procedure Report;
    Begin
     ClearDebug;
    Begin
     WriteLn('ULTRAMager Version 0.1.');
      WriteLn('--------------------------------------------------------------------');
      WriteLn('Cursed ' + IntToStr(Cursed) + ' Times.');
      WriteLn('Did ' + IntToStr(Bans) + ' Anti-Bans.');
     WriteLn('--------------------------------------------------------------------');
    End;
    End;

    Begin
    SetUpSRL;
    ActivateClient;
    DeclareDTM;
    Begin
    Repeat
    MouseSpeed:=15;
    Curse;
    AntiBan;
    Report;
    Until(Cursed = ToCurse);
    If(Cursed = ToCurse)Then
    Exit;
    TerminateScript;
    End;
    End.

    Whenever i try to run it it sais this:
    SCAR Code:
    Failed when compiling
    Line 141: [Error] (14820:1): Identifier expected in script C:\Program Files\SCAR 3.13\Scripts\ULTRAMager.scar

    Please help me, because i want to release this script pretty badly.
    Woot woot.

  2. #2
    Join Date
    Dec 2006
    Location
    Sweden
    Posts
    10,812
    Mentioned
    3 Post(s)
    Quoted
    16 Post(s)

    Default

    You forgot 2 ends
    SCAR Code:
    Program ULTRAMager;
    {.Include SRL/SRL.Scar}
    //This is version 0.1.
    //Next version is probally going to be a pay-script.
    ////////////////////////////////////////////////////
    // WRITER:                              U L T R A \\
    // CATEGORY:                                Magic \\
    // DESCRIPTION: Curses Tz-Kek's in the fight cave \\
    // ANTI-BAN:                                 True \\
    // ANTI-RANDOMS:                            False \\
    ////////////////////////////////////////////////////
    //Instructions
    {
    1.Get to a wave when a Tz-Kek comes.
    2.Stand behind a Sulphur vent.
    3.Stand so Tz-Kek cant attack you, have your body runes ready.
    4.Start logged in.
    5.Wear armour/dragon hide, anything to lower your magic bonus, wear mud staff.
    6.Set up const.
    7.Drag the crosshair onto the runescape window.
    8.Click run and enjoy.
    }

    //Instructions

    Var
    Cursed, Bans, Magic, x, y: Integer;

    Const
    ToCurse = 1000;//How many times you want to curse Tz-Kek?
    DoAntiBan = True;//True if you want to use Anti-Ban. Very recommended.
    TzKek = 11;//The color of Tz-Kek, pick it only if doesn't find Tz-Kek!

    { DO NOT TOUCH BELOW THIS POINT IF YOU ARE NOT AN ADVANCED SCRIPTER }

    Procedure DeclareDTM;
    Begin
            Magic := DTMFromString('78DA6364676060E066800346205EC9F696811' +
           '5CAFE0F048C7C400627030A1015E784AB07D32035FCA86A40E660' +
           'A8614355131EBE1E530D0F7E35007C030AA8');
    End;

    Procedure AntiBan;
    Begin
     If(DoAntiBan = True)Then
    Begin
     Case Random(12)Of

     0:Begin
       MouseSpeed:=10;
       MMouse(0, 0, 350, 350);
       Wait(500+random(600));
       Bans:=Bans+1;
       End;

     1:Begin
       Wait(1000+random(1000));
       MouseSpeed:=15;
       GameTab(1+random(13));
       Wait(1000+random(1000));
       GameTab(7);
       Bans:=Bans+1;
       End;

     2:Begin
       MouseSpeed:=8;
       MMouse(100, 100, 250, 300);
       Wait(500+random(500));
       Bans:=Bans+1;
       End;

     3:Begin
       GameTab(1+random(13));
       Wait(1000+random(1000));
       GameTab(7);
       Bans:=Bans+1;
       End;

     4:Begin
       MouseSpeed:=20;
       MMouse(200, 200, 300, 310);
       Wait(500+random(1000));
       Bans:=Bans+1;
       End;

     5:Begin
       Wait(200+random(800));
       GameTab(2);
       HoverSkill('random', False);
       Wait(500+random(2000));
       GameTab(7);
       Bans:=Bans+1;
       End;

     6:Begin
       GameTab(1);
       Wait(200+random(300));
       GameTab(2);
       Wait(300+random(200));
       GameTab(3+random(2));
       Wait(500+random(650));
       GameTab(7);
       Bans:=Bans+1;
       End;

     7:Begin
       MouseSpeed:=10;
       GameTab(5+random(5));
       Wait(1000+random(755));
       GameTab(7);
       Bans:=Bans+1;
       End;

     8:Begin
       MouseSpeed:=25;
       MMouse(70, 130, 200, 320);
       Wait(200+random(900));
       Bans:=Bans+1;
       End;

     9:Begin
       MouseSpeed:=16;
       Wait(100+random(100));
       GameTab(6+random(2));
       Wait(100+random(1000));
       GameTab(7);
       Bans:=Bans+1;
       End;

     10:Begin
        Wait(500+random(5000));
        MMouse(100, 100, 211, 211);
        Wait(1000+random(1000));
        Bans:=Bans+1;
        End;

     11:Begin;
        Wait(2000+random(2000))
        End;
    End;
    end;
    end;

    Procedure Curse;
    Begin
     GameTab(7);
      Wait(500+random(1000));
       If(FindDTM(Magic, x, y, MSX1, MSY1, MSX2, MSY2))Then
        Mouse(x, y, 2, 2, True);
        Wait(500+random(500));
       Begin
      If(FindColor(Tolerance(x, y, TzKek, MSX1, MSY1, MSX2, MSY2, 10))Then
     Mouse(x, y, 3, 3, True);
    Wait(2000+random(2000));
    Cursed:=Cursed+1;
    End;
     End;

    Procedure Report;
    Begin
     ClearDebug;
    Begin
     WriteLn('ULTRAMager Version 0.1.');
      WriteLn('--------------------------------------------------------------------');
      WriteLn('Cursed ' + IntToStr(Cursed) + ' Times.');
      WriteLn('Did ' + IntToStr(Bans) + ' Anti-Bans.');
     WriteLn('--------------------------------------------------------------------');
    End;
    End;

    Begin
    SetUpSRL;
    ActivateClient;
    DeclareDTM;
    Begin
    Repeat
    MouseSpeed:=15;
    Curse;
    AntiBan;
    Report;
    Until(Cursed = ToCurse);
    If(Cursed = ToCurse)Then
    Exit;
    TerminateScript;
    End;
    End.

    There, but now you get Failed when compiling
    Line 151: [Error] (15240:14): Unknown identifier 'Tolerance' in script
    lol, now fix that


    Send SMS messages using Simba
    Please do not send me a PM asking for help; I will not be able to help you! Post in a relevant thread or make your own! And always remember to search first!

  3. #3
    Join Date
    Oct 2007
    Posts
    742
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Lol ok thanks dude, you really helped me.
    Woot woot.

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
  •