Results 1 to 2 of 2

Thread: need help editing

  1. #1
    Join Date
    Oct 2008
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default need help editing

    Some one put this script on Srl and i just edited some stuff and for some reason the mouse moves very slow.... i would be very grateful if someone can help edit it and fix some stuff. TY! (This script is not mine)

    program TheKiller;
    {.include SRL\SRL.scar}
    {.include SRL\SRL\skill\Fighting.scar}
    const
    Victim =10329513; {Color of the victim}
    Victim2 =7238262; {Second color, duhhh...}
    Loot =1544882; {Color of whatever drop you want}
    BonesFloor =9671841; {Color of the bones on the floor}
    Bones =13356242; {Color of the bones in the inventory}
    {Dir ='S' ; {Direction to run if Attack fails}
    {Dist =False; {Distance to run if Attack fails, False = short, True = long}
    T =25 ; {Time to wait between fighting and collecting loot}

    var
    x, y : integer;

    procedure AntiBan;
    begin
    if not LoggedIn then Exit;
    case (Random(30)) of
    1: RandomRClick;
    5: HoverSkill('Woodcutting', False);
    5: HoverSkill('Smithing', False);
    11: RandomMovement;
    15: BoredHuman;
    24: PickUpMouse;
    27: begin
    Gametab(1 + Random(12));
    Wait(3000 + Random(2000));
    Gametab(4);
    end;
    30: SleepAndMoveMouse(3600);
    end;
    end;

    procedure AntiRandoms;
    begin
    FindTalk;
    if FindNormalRandoms then
    FindLamp('Strenght');
    if FindFight then
    begin
    RunAway('E', True, 1, 5000);
    Wait(10000+random(2000));
    end;
    end;

    procedure Attack;
    begin
    if FindColor(x, y, Victim , 0, 0, 630, 420) or
    FindColor(x, y, Victim2, 0, 0, 630, 420) then
    begin
    Mouse(x,y,20,20,False);
    if not ChooseOption('Attack') then exit;
    end;
    AntiBan;
    Wait(T*1000)
    end;

    procedure TakeLoot;
    begin
    if(FindColor(x, y, Loot, 0, 0, 516, 333))then
    begin
    Mouse(x,y,3,3,False);
    ChooseOption('Take');
    end;
    Wait(1000);
    if(FindColor(x, y, BonesFloor, 0, 0, 516, 333))then
    begin
    Mouse(x,y,3,3,False);
    ChooseOption('Take');
    end;
    end;


    {This is the program itself}
    begin
    repeat
    {repeat
    N := 0;
    N := N + 1;}
    AntiBan;
    Attack;
    if InFight then repeat
    Wait(2000);
    until not InFight;
    TakeLoot;
    {until N = 10;}
    until(False);
    end.

  2. #2
    Join Date
    Nov 2007
    Location
    Chile
    Posts
    1,901
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Put SetupSRL; at the beginning of the main loop and please post scripts in SCAR tags.


Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Video Editing
    By Macros in forum Misc. Links and Programs
    Replies: 4
    Last Post: 01-12-2009, 10:21 PM
  2. Some editing help please...
    By anoobis in forum OSR Help
    Replies: 12
    Last Post: 01-28-2008, 10:45 PM
  3. help with editing a file...
    By zenma in forum RuneScape News and General
    Replies: 0
    Last Post: 08-28-2007, 11:49 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
  •