Results 1 to 10 of 10

Thread: Help Please

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

    Default Help Please

    I have the script, and i rune it, it identifies the rs window, but when i press the green (run script) arrow it doesnt do anything. At the bottom it just says , Sucessfully executed and Sucessfully complied. How do i get it to move my mouse on my computer and actually work. I do have Silent Mouse unchecked. Please help

  2. #2
    Join Date
    Nov 2007
    Posts
    157
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    What script are you using? You should paste it in here.
    edit:
    Does your SCAR window look like this?-

    program New;
    begin
    end.

    If so, then you do not have a script, you only have the program that runs scripts. Scripts are computer code that the program SCAR runs.

    When you open SCAR, the above code is always displayed, it is basically a blank program. So if you try to run this blank program, it will compile and run it without a problem, because it doesn't have to do anything.

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

    Default

    I do have a script up, i wrote in everything i needed, i think, it says User identified, then it says Sucessfully complied, suCEssfully executed. bUT the scar does not minimize, and it does absolutely nothing, my mouse doesnt move, my rs doesnt move, nothing. HOW do i make it work?? pLEASE reply

  4. #4
    Join Date
    May 2007
    Posts
    25
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    First question: -.- Are you typing with capslock and shift at the same time?
    Second question: What does the script's mainloop look like?

    Try adding ActiveClient; on the line after SetupSRL; it may just be an issue with targeting a wrong window.

  5. #5
    Join Date
    Feb 2007
    Location
    Australia
    Posts
    358
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Paste the script here and ill have a look over it.

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

    Default

    It happens with every script i try to use, i specify the rs window, and i press run, it says successfully executed and successfully complied, but then it does absolutely nothing, my mouse does not move, and nothing in runescape changes, well this is the script: O ya and i need the shaking tree random please : Help!

    program autowc;
    {.include SRL/SRL.Scar}
    {.include SRL/SRL/Skill/Woodcutting.Scar}

    Var x, y, H, M, S, WillowLog, Willow, TotalWillows, Banked,
    EntsAvioded : Integer;

    Const
    willowtree=2658424;

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

    Players[0].Name := 'dairyman33'; //UserName
    Players[0].Pass := 'mysockisbook'; //Password
    Players[0].Nick := 'air'; //2-4 letters of username
    Players[0].Integers[1] := 3; //Number of loads before switching
    Players[0].Booleans[1] := True; //Is the axe wielded?
    Players[0].Active := True; //Active

    Writeln('Using '+IntToStr(HowManyPlayers)+' Players');
    NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
    end;

    procedure sig;
    begin
    writeln('The following is a... ');
    wait(500);
    writeln('ZaszMedia Production');
    wait(500);
    writeln('Its time to Zasz Up your Media!');
    wait(500);
    end;

    procedure Login;
    begin
    if (not(LoggedIn)) then
    LoginPlayer;
    end;

    function FindFastRandoms: Boolean;
    var
    i: Integer;
    begin
    for i:=1 to 10 do
    begin
    case I of
    1: If FindDead then
    Result := True;
    2: If FindMod then
    Result := True;
    3: If FindMime then
    Result := True;
    4: If FindMaze then
    Result := True;
    5: If FindQuiz then
    Result := True;
    6: If FindDemon then
    Result := True;
    7: begin
    if NoGameTab then
    begin
    Result := True;
    Players[CurrentPlayer].loc := 'No GameTab';
    Logout;
    Exit;
    end;
    end;
    8: begin
    if InBlack then
    begin
    Result := True;
    Players[CurrentPlayer].loc := 'InBlack';
    Logout;
    Exit;
    end;
    end;
    9: RC;
    10: Respond;
    end;
    wait(1);
    end;
    end;

    procedure FindRandoms;
    begin
    FindTalk;
    FindFastRandoms;
    FindNormalRandoms;
    FindLamp('Woodcutting');
    SolvePinball;
    if (FindFight) then
    begin
    MakeCompass('N');
    RunTo('N', True);
    Wait(7000 +Random(3000));
    end;
    end;

    function AutoResponce:Boolean;
    var Responce, Lvl: String;
    Reply: Integer;
    begin
    if FindBlackChatMessage(Players[CurrentPlayer].Name) then Exit;
    if (InChat(Players[CurrentPlayer].Name)) then
    begin
    Reply := Random(10);
    case Reply of
    0: Responce := ('yea');
    1: Responce := ('wat');
    2: Responce := ('what');
    3: Responce := ('yeah');
    4: Responce := ('ya');
    5: Responce := ('??');
    6: Responce := ('yep that''s me');
    7: Responce := ('yes');
    8: Responce := ('hhmmm?');
    9: Responce := ('yep');
    end;
    TypeSend(Responce);
    Result := True;
    end;

    if (InChatMulti('lol', 'lawl', 'haha')) or
    (InChatMulti('haha', 'rofl', 'lmfao')) or
    (InChatMulti('lmoa', 'funny', 'hehe')) then
    begin
    Reply := Random(10);
    case Reply of
    0: Responce := ('lol');
    1: Responce := ('rofl');
    2: Responce := ('lawl');
    3: Responce := ('lmao');
    4: Responce := ('lmfao');
    5: Responce := ('haha');
    6: Responce := ('haha');
    7: Responce := ('hehe');
    8: Responce := ('geez lol');
    9: Responce := ('roflmfao');
    end;
    TypeSend(Responce);
    Result := True;
    end;

    if (InChatMulti('str', 'strength', 'str')) then
    begin
    Lvl := IntToStr(GetSkillLevel('strength'));
    Reply:= Random(5);
    case Reply of
    0, 2, 4: Responce := (Lvl);
    1: Responce := ('My str lvl is '+ Lvl);
    3: Responce := (Lvl +' is my str lvl');
    end;
    TypeSend(Responce);
    Result := True;
    end;

    if (InChatMulti('wc', 'woodcuting', 'woodcut')) then
    begin
    Lvl := IntToStr(GetSkillLevel('woodcutting'));
    Reply:= Random(5);
    case Reply of
    0, 2, 4: Responce := (Lvl);
    1: Responce := ('My Woodcutting lvl is 42 '+ Lvl);
    3: Responce := (Lvl +' 42 is my Wc lvl');
    end;
    TypeSend(Responce);
    Result := True;
    end;
    Result := False;
    end;

    procedure AntiBan;
    begin
    if (not(LoggedIn)) then
    Exit;
    case Random(8) of

    0: RandomRClick;
    1: HoverSkill('Woodcutting', False);
    2: RandomMovement;
    3: BoredHuman;
    4: PickUpMouse;
    5: AlmostLogout;
    6: DoEmote(1 +Random(20));
    7: begin
    GameTab(1 +Random(12));
    wait(2000 +Random(1000));
    GameTab(4);
    end;
    end;
    end;

    procedure EntFinder; // Thanks to YoHoJo. Modded by Bobbohobbo
    var
    EX, EY: integer;
    FX, FY: integer;
    SafeEntWait: LongInt;
    begin
    if (not (LoggedIn)) then
    Exit;
    begin
    Status('Checking For Ent')
    if
    (FindObjCustom(EX, EY, ['Willow'], [4690821], 5)) then
    begin
    MMouse(EX, EY, 0, 0)
    if FindColorTolerance(FX, FY, 55769, 85, 15, 115, 15, 20) then
    begin
    Status('Ent Found');
    MouseFindFlag(645, 83, 2, 2);
    MarkTime(SafeEntWait)
    repeat
    FTWait(5)
    FindNormalRandoms;
    if not (LoggedIn) then
    NextPlayer(False);
    until TimeFromMark(SafeEntWait) > 29000 + Random(10000)
    end;
    end;
    end;
    end;

    Procedure Chop;
    var CuttingTime : integer;
    begin
    MarkTime(CuttingTime);
    repeat
    if (not(LoggedIn)) then
    Exit;
    if(FindColorSpiralTolerance(x,y,willowtree,MSX1,MS Y1,MSX2,MSY2,5)) then
    begin
    AutoResponce;
    EntFinder;
    MMouse(x,y,0,0);
    GetMousePos(x, y);
    Mouse(x,y,0,0,true);
    Wait(9000 +Random(3000));
    AutoResponce;
    EntFinder;
    //randomtalk; //this is optional if you want to add some random talk!
    end;
    until (InvFull) or (TimeFromMark(CuttingTime) > 600000+random(60000));
    Writeln('We have reached full capacity, heading for the bank.');
    end;

    procedure gotowillows;
    begin
    if (not(LoggedIn)) then
    Exit;
    SymbolAccuracy:= 0.4;
    Makecompass('N');
    HighestAngle;
    if (not(FindSymbol(x, y, 'fishing spot'))) then
    begin
    NextPlayer(False);
    end;
    begin
    if (FindSymbol(x, y, 'fishing spot')) then
    begin
    Mouse(x, y, 2, 2, true);
    Flag;
    Writeln('We made it to the willows. Trying to cut.');
    Chop;
    end;
    end;
    end;

    procedure BankWalk;
    begin
    if (not(LoggedIn)) then
    Exit;
    SymbolAccuracy:= 0.4;
    Makecompass('N');
    HighestAngle;
    if (not(FindSymbol(x, y, 'bank'))) then
    begin
    NextPlayer(False);
    end;
    begin
    if (FindSymbol(x, y, 'bank')) then
    begin
    Mouse(x, y, 2, 2, true);
    Flag;
    Writeln('We made it to the bank. Trying to bank.');
    end;
    end;
    end;

    procedure BankIt;
    var Tries : Integer;
    begin
    if (not(LoggedIn)) then
    Exit;
    repeat
    HighestAngle;
    OpenBankQuiet('db');
    Flag;
    Wait(500 + random(500));
    FixBank;
    Tries := Tries + 1;
    if (Tries = 25) then
    begin
    NextPlayer(False);
    Exit;
    end;
    until (BankScreen)
    begin
    if (BankScreen) then
    begin
    if (Players[CurrentPlayer].Booleans[1] = True) then
    begin
    deposit(2,28,2);
    CloseBank;
    RunTo('S', True);
    end;
    begin
    if (Players[CurrentPlayer].Booleans[1] = False) then
    begin
    Deposit(2, 28, 2);
    CloseBank;
    MakeCompass('N');
    end;
    end;
    begin
    TotalWillows:= TotalWillows + Willow;
    Banked := Banked + 1
    Writeln('Deposited a full load of willows, now going to chop more');
    end;
    end;
    end;
    end;



    begin
    SetupSRL;
    Disguise('iTunes');
    sig;
    SetupWoodcutting;
    ActivateClient;
    DeclarePlayers;
    if (not(LoggedIn)) then Login;
    repeat
    gotowillows;
    repeat
    FindRandoms;
    Chop;
    until (InvFull) or (not LoggedIn)
    AntiBan;
    BankWalk;
    BankIt;
    TotalWillows:= 0;
    until Players[CurrentPlayer].Integers[1] = Banked
    NextPlayer(True);
    end.

  7. #7
    Join Date
    Feb 2006
    Location
    gmail messnger--evilkukka@gmail.com
    Posts
    272
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Shaking tree random? you mean the ent? which is included in that script already.

    Be sure tyo update scar to the latest version+SRL to the latest version and make sure the script is not outdated.
    <SmarterC> mixster: The only reason so many people are homosexuals

  8. #8
    Join Date
    Apr 2007
    Location
    UK
    Posts
    2,295
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    BDMOWNSU,

    New account details sent in PM. Beware when posting your script, remove username and passwords.

    Rogeruk's Al-Kharid Tanner V1.1 [Released]
    Rogeruk's Barbarian Crafter [Coming Soon]
    Rogeruk's Guild Fisher [Coming Soon]
    !! - Taking Requests - !!

  9. #9
    Join Date
    Oct 2007
    Posts
    6
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ty , rogeruk, good thing i didnt use my main in this script... o ya and can u guys figure out y the script does not do anything to my computer? y nothing changes?

  10. #10
    Join Date
    Oct 2007
    Posts
    6
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    can i close this forum lol? i figured out how to make it work, so, i dont need help anymore . Ty to people who wanted to help

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
  •