Results 1 to 6 of 6

Thread: Need help with thsi script

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

    Question Need help with thsi script

    This script isn't mine it's called the limocosher a theiving exp based script

    program new;
    {$DEFINE SRL5}
    {$i srl/srl/misc/smart.simba}
    {$i srl/srl.simba}
    {$i SRL/SRL/misc/paintsmart.simba}
    var
    x, y, DTMTrainer, DTMFall, TimeBegan, StartingXP, fails, BMPLogo: Integer;
    step: string;
    aFound: Extended;

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

    Players[0].Name := '';
    Players[0].Pass := '';
    Players[0].Nick := '';
    Players[0].Active := True;
    Players[0].BoxRewards := ['lamp', 'cook', 'emote', 'costume', 'saphire', 'essence'];
    PlayersSkill := 'lamp';
    end;

    procedure SetDTM; //DTM Defining procedure.
    begin
    DTMFall := DTMFromPlayer('mQwAAAHicY2ZgYOBkZGBgB2I2IO4F8juAuA +Ib+wtZ4jPrmVIzK1nEAHyYZgRCQMBAPmnBp8=');
    DTMTrainer := DTMFromPlayer('mQwAAAHicY2YAAkYGBmYg/gtkHgXiI0B8GIirVd0Y6tU8wFgEyIdhRiQMBAAIJwZR');
    end;

    procedure FreeThings;
    begin
    FreeDTM(DTMTrainer);
    FreeDTM(DTMFall);
    end;

    procedure SafeExit;
    begin;
    FreeThings;
    TerminateScript;
    end;

    procedure AntiBan;
    begin
    if not(LoggedIn)then
    SafeExit;
    Case Random(100) Of
    begin
    writeln('Antiban activated: Hovering Thieving.');
    HoverSkill('thieving', False);
    end;
    begin
    writeln('Antiban activated: Hovering random skill.');
    HoverSkill('random', False);
    end;
    begin
    writeln('Antiban activated: Bored Human.');
    Boredhuman;
    end;
    begin
    writeln('Antiban activated: MiniWait');
    Wait(2500 + random(4500));
    end;
    begin
    writeln('Antiban activated: Bored Human');
    BoredHuman;
    end;
    begin
    writeln('Antiban activated: PickUpMouse');
    PickUpMouse;
    end;
    begin
    writeln('Antiban activated: Random Movement');
    RandomMovement;
    end;
    begin
    writeln('Antiban activated: RandomRClick');
    RandomRClick;
    end;
    end;
    end;

    Procedure MiniBreaker;
    Begin
    Case Random (160) Of
    1: begin
    writeln('MiniBreaker activated: 40-47s');
    Wait(40000 + random(7400));
    end;
    2: begin
    writeln('MiniBreaker activated: 25-34s');
    Wait(25500 + random(8550));
    end;
    3: begin
    writeln('MiniBreaker activated: 60-67s');
    Wait(60040 + random(6759))
    end;
    4: begin
    writeln('MiniBreaker activated: 20-23s');
    Wait(20400 + random(2549));
    end;
    end;
    end;

    function ClickOn(PX:Integer; Click: Boolean) : Boolean;
    begin
    if FindDTMRotated(PX, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound) then
    begin
    Mouse(x, y, 1, 1, Click);
    Result = True;
    end else Result = False;
    end;

    procedure Report;
    var
    Exp, ExpHr, TimeRan: integer;
    begin;
    TimeRan := (1+((GetSystemTime - TimeBegan) / 1000));
    Exp := (GetXPBarTotal - StartingXP);
    ExpHr := Round((Exp * 3600) / (TimeRan));
    writeln(' ');
    writeln('-=]=-=[=LimoCosher=]=-=[=-');
    writeln('| Runtime: ' + TimeRunning);
    writeln('| XP: ' + IntToStr(Exp));
    writeln('| XP/h: ' + IntToStr(ExpHr));
    writeln('-=]=-=[=LimoCosher=]=-=[=-');
    writeln(' ');
    end;

    Procedure Alert; // In case of randoms/other players
    begin;
    if FindNormalRandoms then
    begin;
    PlaySound(ScriptPath+ 'slap.wav');
    Writeln('Random event detected.');
    end;
    if FindColorTolerance(x, y,16711680, 6, 344, 492, 456, 30) then
    begin;
    PlaySound(ScriptPath+ 'slap.wav');
    Wait(RandomRange(2000,6000));
    Logout;
    SafeExit;
    Writeln('Players tried talking to us! LOGGING OUT IMMEDIATELY!');
    end;
    end;

    Procedure MainL33ch;
    begin;
    if (not(LoggedIn)) then SafeExit;
    MouseSpeed := RandomRange(15,19);
    if step = 'LureRC' then
    begin;
    if (fails > 5) then
    begin;
    writeln('Weird. I just cannot find the damned trainer...');
    writeln('Sorry, but it is better to log out just to be safe.');
    Logout;
    SafeExit;
    end;
    if (not(ClickOn(DTMTrainer, False))) then
    begin;
    fails := fails + 1;
    writeln('Cannot find trainer. Trying to wait... Failures: ' +
    inttostr(fails) + '/5');
    Wait(RandomRange(2000,3000));
    end else step := 'LureRC2';
    end;

    if step = 'LureRC2' then
    begin;
    Wait(RandomRange(70,90));
    ChooseOption('lure');
    step := 'LureLC';
    WriteLn('Attempting to lure the trainer');
    Wait(RandomRange(950,1050));
    GetMousePos(x, y);
    MMouse(x - 3,y - 65, x + 3, y - 75);
    end;

    if step = 'LureLC' then
    begin;
    if AreTalking then
    begin;
    WriteLn('Dialog opened. Continuing to part 2.');
    ClickContinue(True,False);
    Wait(RandomRange(950,1050));
    ClickContinue(True,False);
    ClickOn(DTMTrainer,False);
    step :='Knock';
    fails :=0;
    Wait(RandomRange(100,400));
    end else
    begin;
    if fails < 3 then
    begin;
    fails := fails + 1;
    Writeln('Failed ' + inttostr(fails) + '/3 times.');
    Wait(RandomRange(100,125));
    end else
    begin;
    fails := 0;
    Writeln('Failed 3 times. Restarting.');
    step:= 'LureRC';
    end;
    end;
    end;

    if step = 'Knock' then
    begin;
    ChooseOption('nock');
    Wait(RandomRange(15,25));
    step := 'LOOT';
    fails := 0;
    WriteLn('Knocked the fat-head out. Attempting to loot...');
    ClickOn(DTMTrainer, False);
    Wait(RandomRange(20,25));
    end;

    if step='LOOT' then
    begin;
    ChooseOption('loot');
    Wait(RandomRange(15,25)); // 2nd loot
    ClickOn(DTMFall, False);
    Wait(RandomRange(20,25));
    ChooseOption('oot');
    wait(randomrange(15,25));
    ClickOn(DTMFall, False);
    Wait(RandomRange(20,25));
    ChooseOption('loot'); // 3rd loot
    fails := 0;
    step := 'LureRC';
    GetMousePos(x, y);
    MMouse(x + randomrange(-2, 2),y - randomrange(45, 55),0,0);
    end;

    begin
    Smart_Server := 84;
    Smart_Members := True;
    Smart_Signed := True;

    Smart_SuperDetail := False;
    ClearPlayerScreen;
    SetupPlayer;
    Declare Players;
    Login Player;
    SetDTM; //Set DTM's before code.
    step := 'LureRC';
    fails := 0;

    SetBMP;
    SMART_DrawBitmap(true, BMPLogo,Point(5,5));
    SetChat('All',0);
    SetChat('Off',2);
    SetChat('Off',3);
    SetChat('Off',4);
    SetChat('Off',5);
    ToggleXPBar(True);
    StartingXP := (GetXPBarTotal);
    TimeBegan := GetSystemTime;
    repeat
    if (not(FindNormalRandoms)) then
    begin;
    if not(TwoTimesTwo = 4) then TerminateScript;
    MakeCompass('E');
    SetAngle(SRL_ANGLE);
    Alert;
    MainLoop;
    Antiban;
    MiniBreaker;
    Report;
    end;
    until AllPlayersInactive;
    FreeThings;
    end.

    can someone tell me why im getting this error

    [Hint] C:\Simba\Includes\SRL/SRL/core/mapwalk.simba(1353:3): Variable 'BOX' never used at line 1352
    [Hint] C:\Simba\Includes\SRL/SRL/core/mapwalk.simba(1349:13): Variable 'Result' never used at line 1348
    [Error] (23:3): Unknown identifier 'PlayersSkill' at line 22
    Compiling failed.

  2. #2
    Join Date
    Feb 2012
    Location
    Somewhere, over the rainbow...
    Posts
    2,272
    Mentioned
    3 Post(s)
    Quoted
    45 Post(s)

    Default

    Just change PlayersSkill at line 22 to:
    Simba Code:
    LampSkill   := SKILL_THIEVING;

  3. #3
    Join Date
    Dec 2011
    Location
    East Coast, USA
    Posts
    4,231
    Mentioned
    112 Post(s)
    Quoted
    1869 Post(s)

    Default

    Agggg, use code tags next time!
    GitLab projects | Simba 1.4 | Find me on IRC or Discord | ScapeRune scripts | Come play bot ScapeRune!

    <BenLand100> we're just in the transitional phase where society reclassifies guns as Badâ„¢ before everyone gets laser pistols

  4. #4
    Join Date
    Nov 2011
    Posts
    93
    Mentioned
    0 Post(s)
    Quoted
    10 Post(s)

    Default

    still doesnt work i get

    [Hint] C:\Simba\Includes\SRL/SRL/core/mapwalk.simba(1353:3): Variable 'BOX' never used at line 1352
    [Hint] C:\Simba\Includes\SRL/SRL/core/mapwalk.simba(1349:13): Variable 'Result' never used at line 1348
    [Error] (23:32): Type mismatch at line 22
    Last edited by b12hitman; 03-25-2012 at 01:37 PM.

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

    Default

    post on the damn script thread! And if the thread has been inactive for a few weeks, expect the script to not work.
    Nearly maxed, woowweee.

  6. #6
    Join Date
    Nov 2011
    Posts
    93
    Mentioned
    0 Post(s)
    Quoted
    10 Post(s)

    Default

    its a working thread but the autor put a anti leech on it so it took my time to get at this far but its not working yet ima kinda newbie

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
  •