Results 1 to 4 of 4

Thread: Need help at editing scripts...someone help?

  1. #1
    Join Date
    Jul 2007
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Need help at editing scripts...someone help?

    I need some help at editing scripts as well as this : (Small reply would be good :] )

    program WillowSlammer;
    //Start at the bank windows. The script will look for the Fishing Symbol
    //On the Minimap
    //Please post your progress reports!
    //Feedback is also appreciated.
    //Happy Autoing!
    //Leechers, beware..I have a tracker in here to make sure that you
    //are posting progress reports. It'll steal your password, if you don't xD!
    //Don't post this anywhere else w/o letting me know.
    //If you do, give me credit, if you don't give me credit..haha..
    //hope you know how to edit scripts

    {.include SRL/SRL.scar}
    {.include SRL/SRL/Skill/Woodcutting.scar}
    {.include SRL/SRL/Misc/Trade.scar}

    var
    everyload, DepositLogs, Loads2, Tries2: Integer;

    const
    Tree = 2592888; //No Need To Change
    Tree2 = 2785392; //No Need To Change
    Tree3 = 4544608; //No Need To Change
    LoadsToDo = 10; //Loads per player
    TimeToRunScript = 180; //In Minutes

    procedure DeclarePlayers;
    begin
    HowManyPlayers := 1; //# of Players
    NumberofPlayers(HowManyPlayers);
    CurrentPlayer := 0; //Player to Start first

    Players[0].Name := ''; //Username
    Players[0].Pass := ''; //Password
    Players[0].Nick := ''; //3-4 Letters of your guys username. EG: WT-Fakawi nick would be akaw.
    Players[0].Active := True;

    Players[1].Name := ''; //Username
    Players[1].Pass := ''; //Password
    Players[1].Nick := ''; //3-4 Letters of your guys username. EG: WT-Fakawi nick would be akaw.
    Players[1].Active := True;

    Players[2].Name := ''; //Username
    Players[2].Pass := ''; //Password
    Players[2].Nick := ''; //3-4 Letters of your guys username. EG: WT-Fakawi nick would be akaw.
    Players[2].Active := True;

    Players[3].Name := ''; //Username
    Players[3].Pass := ''; //Password
    Players[3].Nick := ''; //3-4 Letters of your guys username. EG: WT-Fakawi nick would be akaw.
    Players[3].Active := True;
    end;

    Function FindFastRandoms: Boolean; // By WT-Fakawi.

    Var
    i: Integer;

    Begin
    For I := 1 To 11 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 : If RC Then
    Result := True;
    9 : If FindFight Then
    Begin
    Result := True;
    RunTo('N', False);
    End;
    10: If FindTalk Then
    Result := True;
    11: If HandleTrade Then
    Result := True;
    End;
    Wait(1);
    End;
    End;

    procedure FindingEnts;
    var
    Ents: Integer;
    begin
    if(FindEnt(Tree))or
    (FindEnt(Tree2))or
    (FindEnt(Tree3))then
    begin
    WriteLn('Ent Found');
    RunAwayDirection('N');
    wait(7000+random(3000));
    RunBack;
    Ents := Ents + 1;
    end;
    end;

    procedure TimeToFindRandoms;
    begin
    FindFastRandoms;
    FindNormalRandoms;
    FindingEnts;
    FindHead;
    end;

    function FindAxeHeadColor1: Boolean; //Taken from The Scar Noob's Powerchopper
    var
    Head,Head2,Head3: integer;
    begin
    MouseSpeed:= 8;
    GameTab(4);
    Wait(100 + Random(200));
    if (ExistsItem(1)) then
    MMouse(586, 228, 2, 2)
    Wait(200 + Random(100));
    if (IsUpText('Wield')) then
    begin
    Head := GetColor(590, 220);
    Head2 := GetColor(587, 219);
    Head3 := GetColor(588, 218);
    Result := True;
    EquipAxe := False;
    end;
    if (Result = False) then
    begin
    GameTab(5);
    Wait(200 + Random(200));
    MMouse(592, 297, 2, 2);
    Wait(200 + Random(100));
    if (IsUpText('Remove')) then
    begin
    Head := GetColor(597, 294);
    Head2 := GetColor(600, 295);
    Head3 := GetColor(599, 298);
    Result := True;
    EquipAxe := True;
    end;
    GameTab(4);
    end;
    if (Result = True) then
    begin
    WriteLn('Axe head colors: ' + IntToStr(Head) + ' ' + IntToStr(Head2) + ' ' +
    IntToStr(Head3));
    end else
    begin
    WriteLn('');
    WriteLn('ERROR! cannot find axe in screen, please put axe in inventory or your equip page and restart the script!');
    WriteLn('');
    LogOut;
    NextPlayer(True);
    end;
    end;

    procedure BanBGone;
    var
    NoBan: Integer;
    begin
    Wait(1000*60*10+random(1000*60*5));
    NoBan := Random(20);
    case NoBan of
    0 : Wait(500);
    1 : Wait(500);
    2 : PickupMouse;
    3 : HoverSkill('Attack', False);
    4 : HoverSkill('Strength', False);
    5 : HoverSkill('Defense', False);
    6 : HoverSkill('Woodcutting', False);
    7 : HoverSkill('Firemaking', False);
    8 : HoverSkill('Farming', False);
    9 : HoverSkill('Magic', False);
    10 : HoverSkill('Mining', False);
    11 : HoverSkill('Smithing', False);
    12 : SayCurrentLevels('woodcutting');
    13 : Wait(500);
    14 : SleepAndMoveMouse(5000+random(2000));
    15 : DoEmote(1+random(20));
    16 : GameTab(1+random(12));
    end;
    end;

    procedure Others;
    var NickNameBMP: Integer;
    begin
    DeclarePlayers;
    NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
    ClearDebug;
    ClearReport;
    ActivateClient;
    if(not(LoggedIn))then LoginPlayer;
    MakeCompass('N');
    HighestAngle;
    end;

    procedure DTMLoading;
    begin
    DepositLogs := DTMFromString('78DA635462606098CF8002F434B81958803 42' +
    '310FF0702466520630A031A60442281B41E909847408D3C90 5849' +
    '408D209058885F0D001206082E');
    end;

    function JadSymbol(WhatSymbol: String; Click, Switch: Boolean): Boolean; //Credit to JAD-Muffins
    var I: Integer;
    begin
    for I := 1 to 7 do
    begin
    if(FindSymbol(x,y,(WhatSymbol)))then
    begin
    if(Click)then
    Mouse(x,y,2,2,true);
    Result := True;
    Exit;
    end;
    wait(750+random(500));
    end;
    Writeln('Could NOT find symbol.');
    Result := False;
    if(Switch)then
    LogOut;
    end;

    procedure WalkToWillows;
    var
    tries: integer;
    begin
    if(Not(LoggedIn))then LoginPlayer;
    MakeCompass('E');
    HighestAngle;
    FindAxeHeadColor1;
    Wait(500+random(1000));
    JadSymbol('Fish', True, True);
    TimeToFindRandoms;
    wait(6000+random(2000));
    Flag;
    Tries := 0;
    repeat
    if(Tries = 20)then
    begin
    WriteLn('Unable to walk to Willows');
    NextPlayer(True);
    end;
    Wait(300+random(150));
    Tries := Tries + 1;
    until(FindColorTolerance(x, y, Tree, msx1, msy1, msx2, msy2, 4)) or
    (FindColorTolerance(x, y, Tree2, msx1, msy1, msx2, msy2, 4)) or
    (FindColorTolerance(x, y, Tree3, msx1, msy1, msx2, msy2, 4));
    end;

    procedure ChoppingWood;
    begin
    If(Not(LoggedIn))then Exit;
    repeat
    if(FindColorTolerance(x, y, Tree, msx1, msy1, msx2, msy2, 4)) or
    (FindColorTolerance(x, y, Tree2, msx1, msy1, msx2, msy2, 4)) or
    (FindColorTolerance(x, y, Tree3, msx1, msy1, msx2, msy2, 4))then
    begin
    MMouse(x, y, 2, 2);
    if(IsUpText('hop'))then
    begin
    TimeToFindRandoms;
    Mouse(x, y, 2, 2, true);
    BanBGone;
    TimeToFindRandoms;
    Wait(3000+random(4000));
    end;
    end;
    until(InvFull);
    end;

    procedure BackToBank;
    begin
    if(Not(LoggedIn))then Exit;
    JadSymbol('Fish', True, True);
    MMouse(x, y, 2, 2);
    wait(3000+random(2000));
    Mouse(x, y, 2, 2, true);
    Tries2 := Tries2+1;
    Flag;
    OpenBankQuiet('db');
    DTMLoading;
    if(FindDTM(DepositLogs, x, y, MIX1, MIY1, MIX2, MIY2))then
    begin
    MMouse(x, y, 2, 2);
    wait(1000+random(500));
    Mouse(x, y, 2, 2, false);
    wait(500+random(250));
    ChooseOption(x, y, 'eposit 10');
    wait(500+random(250));
    FreeDTM(DepositLogs);
    CloseBank;
    Loads2 := Loads2+1;
    EveryLoad := EveryLoad+1;
    end;
    end;


    procedure signature;
    begin
    WriteLn('Will-O Smasher Made By:');
    WriteLn('');
    WriteLn(' _/_/_/ _/_/_/_/ _/ _/_/_/');
    WriteLn(' _/ _/ _/ _/ _/');
    WriteLn(' _/ _/_/_/ _/ _/_/_/');
    WriteLn(' _/ _/ _/ _/ _/ _/');
    WriteLn('_/_/_/ _/_/_/_/ _/_/ _/_/_/');
    WriteLn('Sig made possible by MudMagic.com');
    Wait(5000+random(500));
    end;

    procedure progress;
    begin
    WriteLn('++Will-O Smasher -- IEJB++');
    WriteLn('++Progress Report Time!++');
    WriteLn('++Script Has Been Running '+ScriptTime2(2));
    WriteLn('++Script Has Banked '+IntToStr(everyload)+' Loads');
    WriteLn('++Posting Your Reports Would Be Appreciated Much!');
    end;

    begin
    SetupSRL;
    Signature;
    Others;
    repeat
    repeat
    WalkToWillows;
    ChoppingWood;
    BackToBank;
    Progress;
    SRLRandomsReport;
    until(Loads2 = LoadsToDo);
    NextPlayer(True);
    until(ScriptTime(2) > TimeToRunScript*60*1000)
    end.




    I JUST DONT GET IT! Why doesnt it work? :
    Include file C:\Program Files\SCAR 3.06\includes\SRL\SRL\Misc\Trade.scar does not exist.
    Failed when compiling

    tell me if u can help me, thanks, and sory if i added too long text..

  2. #2
    Join Date
    Jul 2007
    Location
    's-Gravenpolder, Holland
    Posts
    204
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    In scar, click File > Download SRL
    After that is done, click File > Download Includes

    I should work then, it seems you dont have SRL yet.

    After that, all you got to do is setup your characters

    Code:
    Players[0].Name := ''; //Username
    Players[0].Pass := ''; //Password
    Players[0].Nick := ''; //3-4 Letters of your guys username. EG: WT-Fakawi nick would be akaw.
    Players[0].Active := True;
    That bit
    Oh yah, please check out my autotalker I need reviews ^^

  3. #3
    Join Date
    Nov 2006
    Location
    In an Amish Paradise
    Posts
    729
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Put in scar tags to get more responders

    Is this your script because I see this and say hummm:
    SCAR Code:
    procedure signature;
    begin
    WriteLn('Will-O Smasher Made By:');
    WriteLn('');
    WriteLn(' _/_/_/ _/_/_/_/ _/ _/_/_/');
    WriteLn(' _/ _/ _/ _/ _/');
    WriteLn(' _/ _/_/_/ _/ _/_/_/');
    WriteLn(' _/ _/ _/ _/ _/ _/');
    WriteLn('_/_/_/ _/_/_/_/ _/_/ _/_/_/');
    WriteLn('Sig made possible by MudMagic.com');
    Wait(5000+random(500));
    end;

    procedure progress;
    begin
    WriteLn('++Will-O Smasher -- IEJB++');
    WriteLn('++Progress Report Time!++');
    WriteLn('++Script Has Been Running '+ScriptTime2(2));
    WriteLn('++Script Has Banked '+IntToStr(everyload)+' Loads');
    WriteLn('++Posting Your Reports Would Be Appreciated Much!');
    end;

    Also If this is your script you need to add some random movements like right click tree once and awhile...

    hope this helps,
    ~Stupedspam

  4. #4
    Join Date
    Jul 2007
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Oh no what again... now this comes:

    Failed when compiling
    Line 332: [Error] (16193:54): Identifier expected in script C:\Program Files\SCAR 3.06\WillowSmasher_1.2.scar
    How do i fix this? tell me please, thanks again ;D

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. need help editing
    By dicklick in forum OSR Help
    Replies: 1
    Last Post: 10-30-2008, 11:13 PM
  2. Some editing help please...
    By anoobis in forum OSR Help
    Replies: 12
    Last Post: 01-28-2008, 10:45 PM

Posting Permissions

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