Results 1 to 7 of 7

Thread: HELP- Adding scripts - Error

  1. #1
    Join Date
    Dec 2011
    Posts
    10
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default HELP- Adding scripts - Error

    error-

    [Hint] C:\Simba\Includes\SRL/SRL/core/gametab.scar(1607:3): Variable 'PREVIOUS' never used at line 1606
    [Error] (25:17): Identifier expected at line 24
    Compiling failed.

    code-
    program Gilded_Altar;
    {$DEFINE SMART}
    {$DEFINE CRASHSMART}
    {$i SRL\SRL.scar}
    {$i SPS\SPS.simba}

    const
    S_World = 65;
    S_Signed = True;
    S_Member = True;
    Version = '1.00';
    UseFailSafe = False; //READ THIS@@@@@@@@@
    //For fail-safes to be effectively used, the user must be on the Ancients Spellbook.
    //If you are on Ancients, leave this True. Otherwise, change it to False.
    // (it's HIGHLY suggested you are on Ancients!)

    var
    N, HouseTab, EdgeHome, Marrentil, DragonBones: Integer;

    procedure DeclarePlayer;
    begin
    with Players[0] do
    begin
    Name := ''; '******' //USERNAME
    Pass := ''; '***********' //PASSWORD
    Pin := ''; '****' //PIN (if any)
    Active := True;
    Strings[0] := 'eb';
    BoxRewards := ['Xp'];
    LampSkill := 'prayer'; // or change to whatever skill exp you want
    end;
    end;



    Function FindNPCChatText_F(Option: String; Action: fnct_ActionOptions): Boolean;
    var
    X,Y: Integer;
    begin
    Result := False;

    if Option = '' then
    begin
    srl_Warn('FindNPCChatText', 'txt is empty', warn_AllVersions);
    Exit;
    end;

    if FindText(X, Y, Option, UpChars, MCX1, MCY1, MCX2, MCY2) then
    begin
    Result := True;
    case Action of
    Move: MMouse(X, Y + 2, Random(Length(Option) * 5), 4);
    ClickLeft: Mouse(X, Y + 2, Random(Length(Option) * 5), 4, True);
    ClickRight: Mouse(X, Y + 2, Random(Length(Option) * 5), 4, False);
    end;
    end;
    end;

    procedure RightClickBurner;
    var
    MyTPA : TPointArray;
    MyPoint : TPoint;
    x, y, i : Integer;
    begin
    x := MSCx;
    y := MSCy;
    FindColorsSpiralTolerance(x, y, MyTPA, 2409460, MSx1, MSy1, MSx2, MSy2, 10);
    if Length(MyTPA) = 0 then
    FindColorsSpiralTolerance(x, y, MyTPA, 2078161, MSX1, MSY1, MSX2, MSY2, 10);
    for i := 0 to High(MyTPA) do
    begin
    MyPoint := MyTPA[i]
    MMouse (MyPoint.x, MyPoint.y, 5, 12);
    if WaitUpTextMulti(['Inc','se bu','ner'], 1000) then
    begin
    GetMousePos(x, y);
    Mouse(x, y, 0, 0, False);
    end;
    Exit;
    end;
    end;

    procedure AntiRandoms;
    begin
    FindNormalRandoms;
    LevelUp;
    end;

    procedure ProgressReport;
    begin
    ClearDebug;
    WriteLn('Running for: ' + TimeRunning);
    end;

    procedure FailSafe;
    var
    X, Y: Integer;
    begin
    if UseFailSafe=False then
    begin
    Logout;
    TerminateScript;
    end;
    AntiRandoms;
    N:=0;
    EdgeHome := DTMFromString('mbQAAAHicY2VgYOBggABeIBYAYmYgZgdibi DmA2IWqPy+I58Y2ubcQMFuDJiAEQsGAwBv+wr5');
    Writeln('Error, using failsafe!');
    begin
    repeat
    if GameTab(tab_Magic) then
    if FindDTM(EdgeHome, X, Y, MIX1, MIY1, MIX2, MIY2) then
    Mouse(x, y, 5, 5, false);
    until ChooseOption('Cast');
    end;
    Wait(14500 + Random(1000));
    begin
    SPS_Setup(RUNESCAPE_SURFACE, ['10_6']);
    SPS_Continue := true;
    SPS_WalkPath([Point(4214, 2686)]);
    FFlag(0);
    AntiRandoms;
    FreeDTM(EdgeHome);
    //FreeDTM(Marrentil);
    //FreeDTM(DragonBones);
    Wait(2200 + Random(400));
    end;
    end;


    procedure AntiBan;
    begin
    If(not LoggedIn)then Exit;
    MouseSpeed := 12 + Random(5);
    Case Random(20) of
    0: MMouse(Random(MIX2), Random(MIY2), 10, 10);
    1: HoverSkill(SKILL_prayer, False);
    2: PickUpMouse;
    3: GameTab(RandomRange(tab_Combat, tab_Notes));
    4: SleepAndMoveMouse(400+Random(Random(4000)));
    5: IdleTime(100+random(700), 100+Random(100), 0.2+RandomE/2);
    6, 8, 9: MakeCompass(IntToStr(Random(360)));
    10:
    begin
    SetAngle(False);
    SetAngle(True);
    end;
    11, 12, 13, 15, 16: Wait(100 + Random(600));
    17, 18, 19, 20: Exit;
    end;
    end;

    {************************************************* ******************************
    function OpenBankNPC/UseBankNPC(Modified): Boolean;
    By: Home
    Description: Modifed to correctly bank at Edge NPC.
    ************************************************** *****************************}
    function UseBankNPC: Boolean;
    var
    bx, by, Speed, ColFace, ColGrey, ColBlue, ColHair, t: Integer;
    begin
    Result := (LoggedIn) and (BankScreen or PinScreen);
    if (Result) then exit;
    Speed := GetColorToleranceSpeed;
    ColorToleranceSpeed(2);
    ColFace := 4468276;
    ColGrey := 4995649;
    ColBlue := 4468276;
    ColHair := 5125177;
    if (FindObjThroughMM(bx, by, 'npc', [ColFace, ColBlue, ColGrey, ColHair], [5, 5, 5, 5],
    ['ounter', 'se Co', 'anke', 'to B', 'Banker', 'nker'], 2, 2)) then
    begin
    Mouse(bx, by, 0, 0, False);
    if (WaitOptionMulti(['kly Co', 'se-qu', 'ank B', 'Bank Banker', 'ank', 'nker'], 750)) then
    begin
    t := (GetSystemTime + 5000);
    repeat
    if (BankScreen) or (PinScreen) then
    begin
    Result := true;
    Break;
    end;
    Wait(50);
    until(GetSystemTime > t);
    if (Length(Players) > 0) then
    if ((PinScreen) and (Players[CurrentPlayer].Pin <> '')) then
    InPin(Players[CurrentPlayer].Pin);
    Result := (BankScreen) or (PinScreen);
    end;
    end;
    ColorToleranceSpeed(Speed);
    end;
    {************************************************* *****************************}

    procedure TeleToBank;
    var
    x, y: Integer;
    begin
    if (N > 3) then
    begin
    Failsafe;
    Exit;
    end;
    N:=0;
    ClickNorth(True);
    AntiRandoms;
    begin
    repeat
    Inc(N);
    //if FindObjTPA(x, y, 6982558, 10, 2, 25, 20, w, ['mulet']) then
    if FindObjCustom(X, Y, ['mulet','et Gl','lory'], [7114144,6982558], 3) then
    GetMousePos(X, Y);
    Mouse(x, y, 0, 0, false);
    AntiRandoms;
    until ChooseOption('Rub') or (N > 5);
    end;
    if (N > 5) then
    begin
    FailSafe;
    Exit;
    end;
    Antiban;
    FFlag(0);
    N:=0;
    repeat
    Inc(N);
    Wait(500);
    until FindNpcChatText_F('dgev', ClickLeft) or (N > 10);
    //Wait(4912 + Random(957));
    begin
    SPS_Setup(RUNESCAPE_SURFACE, ['10_6']);
    SPS_Continue := true;
    SPS_WalkPath([Point(4214, 2686)]);
    Antiban;
    FFlag(0);
    Wait(2500 + Random(200));
    AntiRandoms;
    N:=0;
    end;
    end;

    procedure StartAltar;
    var
    x, y, T: Integer;
    //TPA:TPointArray;
    //ATPA: T2DPointArray;
    begin
    if (N > 3) then
    Exit;
    N:=0;
    ClickNorth(False);
    Wait(5500 + Random(200));
    begin
    repeat
    Inc(N);
    if FindObjCustom(X, Y, ['oor','Doo'], [4740445,3883076,5400700], 3) then
    GetMousePos(X, Y);
    Mouse(x, y, 10, 10, false);
    AntiRandoms;
    until ChooseOption('Open') or (N > 3);
    end;
    if (N > 3) then
    Exit;
    SetAngle(True);
    FFlag(2);
    Wait(900 + Random(100));
    Mouse(185, 37, 130, 50, true);
    FFlag(2);
    Wait(1000 + Random(300));
    N:=0;
    begin
    repeat
    Inc(N);
    //RightClickBurner;
    if FindObjCustom(X, Y, ['Inc','se bu','ner'], [2476026], 6) then
    GetMousePos(X, Y);
    Mouse(x, y, 3, 5, false);
    AntiRandoms;
    until WaitOption('Light', 2000) or (N > 3);
    end;
    if (N > 3) then
    Exit;
    FFlag(2);
    Wait(2000 + Random(300));
    N:=0;
    begin
    repeat
    Inc(N);
    //RightClickBurner;
    if FindObjCustom(X, Y, ['Inc','se bu','ner'], [2476026], 6) then
    GetMousePos(X, Y);
    Mouse(x, y, 3, 5, false);
    AntiRandoms;
    until WaitOption('Light', 2000) or (N > 3);
    end;
    if (N > 3) then
    Exit;
    InvMouse(5, 2);
    ChooseOption('Use');
    ProgressReport;
    FFlag(0);
    Wait(600 + Random(250));
    if FindObjCustom(X, Y, ['Alt', 'tar'], [11840684], 3) then
    Mouse(x, y, 0, 0, true);
    MouseBox(227, 405, 284, 435, 3);
    T := GetSystemTime + 44000;
    while (GetSystemTime < T) and not(FindColor(x, y, 2070783, 251, 434, 286, 446)) do
    Wait(100 + Random(100));
    if not(FindColor(x, y, 2070783, 251, 434, 286, 446)) then
    Exit;
    GetMousePos(x, y);
    if not(PointInBox(Point(x, y), IntToBox(227, 405, 284, 435))) then
    MouseBox(227, 405, 284, 435, 1)
    else
    ClickMouse2(True);
    while (GetSystemTime < T) do
    begin
    if LevelUp then
    Wait(800 + Random(100));
    AntiBan;
    AntiRandoms;
    end;
    end;

    procedure BankandTele;
    begin
    N:=0;
    //Marrentil := DTMFromString('mggAAAHicY2NgYJjOyMCwGIjnAfEEIG4H4o lAnA2USwXiQiAuAOIsIM4AYp5gPiDJhIFFGLADRhwYAgCsawah ');
    //DragonBones := DTMFromString('mggAAAHicY2NgYOBlgAAQLQPEbEAsBcRMQM wB5XMBMSNU3fIFC6CyqJifATtgxIEhAADMUAJ+');
    AntiRandoms;
    begin
    repeat
    Inc(N);
    UseBankNPC;
    until BankScreen or (N > 3);
    end;
    if (N > 3) then
    Exit;
    begin
    //if WithdrawItem(Marrentil, 'dtm', 1, 'lean', []) then
    //if WithdrawItem(Marrentil, 'dtm', 1, 'lean', []) then
    //WithdrawItem(DragonBones, 'dtm', 25, 'ragon', []) then
    if Withdraw(8, 0, 1) then
    if Withdraw(8, 0, 1) then
    if Withdraw(9, 0, 25) then
    if BankScreen then
    CloseBank;
    Wait(1000 + Random(350))
    AntiRandoms;
    KeyDown(VK_F1);
    Wait(300 + Random(100))
    KeyUp(VK_F1);
    InvMouse(1, 1);
    //FreeDTM(Marrentil);
    //FreeDTM(DragonBones);
    end;
    end;

    procedure Main;
    begin
    repeat
    ProgressReport;
    BankandTele;
    StartAltar;
    TeleToBank;
    until not(LoggedIn);
    end;

    begin
    NumberOfPlayers(1);
    CurrentPlayer := 0;
    Players[0].Active:= True;
    Smart_Server := S_World;
    Smart_Signed := S_Signed;
    Smart_Members := S_Member;
    Smart_SuperDetail := False;
    SetupSRL;
    HowManyPlayers := 1;
    NumberOfPlayers(HowManyPlayers);
    DeclarePlayer;
    if not(LoggedIn) then
    begin
    LogInPlayer;
    Wait(3000 + Random(2000));
    AntiRandoms;
    end;
    SetRun(True);
    Main;
    end.

    PLEASE HELP IM A NOOBIE TO SIMBA,
    k thnx

    -Mr Slitherss

  2. #2
    Join Date
    Oct 2008
    Location
    C:\Simba\Includes\
    Posts
    7,566
    Mentioned
    19 Post(s)
    Quoted
    180 Post(s)

    Default

    Holy mother of pearl, please use [simba ] tags when posting code.

    You need to put your information in the '' for Username and the like, not after them.
    Away for awhile, life is keeping me busy. | Want to get my attention in a thread? @Kyle Undefined; me.
    { MSI Phoenix || SRL Stats Sigs || Paste || Scripts || Quotes || Graphics }

    When posting a bug, please post debug! Help us, help you!

    I would love to change the world, but they won't give me the source code. || To be the best, you've got to beat the rest. || Logic never changes, just the syntax.
    If you PM me with a stupid question or one listed in FAQ, or about a script that is not mine, I will NOT respond.


    SRL is a Library of routines made by the SRL community written for the Program Simba. We produce Scripts for the game Runescape.


  3. #3
    Join Date
    Feb 2011
    Location
    Earth
    Posts
    1,784
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Bro...use tags.

    Currently: Working on Defending&Attacking in my Castle-Wars Script
    Project Rebuild: 90M/170M

  4. #4
    Join Date
    Dec 2011
    Location
    Ontario, Canada
    Posts
    1,735
    Mentioned
    5 Post(s)
    Quoted
    89 Post(s)

    Default

    Whats the line? Also put simba quotes around script.
    FEEL FREE TO PM ME ABOUT ANYTHING! Will help over Teamviewer...just ask!! "WITH A NEW QUESTION COMES A NEW CHALLENGE"
    Silentcore's AIO Service team !!! Pm me if you want questing done or service done or post on thread ofc

  5. #5
    Join Date
    Dec 2011
    Posts
    10
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    im sorry guys o.O as in noob to simba i mean i signed up less then an hour ago and have no clue what "simba tags" are soo yeah..... and its line 24, also i do put my info in the '' thats what the *'s are

    line 24 as in the line for my username.

    EDIT: ohhh wow im retarded my bad figured out my problem..... thnx kyle...
    Last edited by Mr Slitherss; 12-28-2011 at 05:49 AM.

  6. #6
    Join Date
    Oct 2008
    Location
    C:\Simba\Includes\
    Posts
    7,566
    Mentioned
    19 Post(s)
    Quoted
    180 Post(s)

    Default

    You're doing it after the ";". Put it in the '' before the ";".
    Away for awhile, life is keeping me busy. | Want to get my attention in a thread? @Kyle Undefined; me.
    { MSI Phoenix || SRL Stats Sigs || Paste || Scripts || Quotes || Graphics }

    When posting a bug, please post debug! Help us, help you!

    I would love to change the world, but they won't give me the source code. || To be the best, you've got to beat the rest. || Logic never changes, just the syntax.
    If you PM me with a stupid question or one listed in FAQ, or about a script that is not mine, I will NOT respond.


    SRL is a Library of routines made by the SRL community written for the Program Simba. We produce Scripts for the game Runescape.


  7. #7
    Join Date
    Dec 2011
    Location
    P2P :)
    Posts
    561
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    Simba Code:
    Program L2SimbaTag;
    {$i Human/Parts/Brain.Head}

    procedure ReadThisOne;
    begin
       Simba tags organize and present simba scripts in a clean fashion;
       They also make everyone happy;
     
       if you do not learn how to use [*simba][/*simba] then
          Writeln('remove the stars before using. It is like the CENTER BB code.');
          Wait(200);
          Writeln('Notice how begin end if then are bold');
          No one will like you;
    end;

    begin
      SetupBreathing;
      ActivateVessel;
      repeat
         ReadThisOne;
      until(used);
    end.
    I wear my scars like the rings on a pimp
    I live life like the captain of a sinking ship
    Always sell your product for ATLEAST mid to ensure that the market doesn't drop.

Thread Information

Users Browsing this Thread

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

Tags for this Thread

Posting Permissions

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