Results 1 to 9 of 9

Thread: Help would be nice

  1. #1
    Join Date
    Aug 2007
    Posts
    19
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Help would be nice

    Why do I always get this message:

    [Runtime Error] : Out Of Range in line 58 in script

    This happen EVERY time I try to use a script, I am using:
    Draynor Willow Trees SRL 4#5v00.03(rel)

    Could someone plz explain why this is happening.

  2. #2
    Join Date
    Dec 2006
    Location
    Sweden
    Posts
    10,812
    Mentioned
    3 Post(s)
    Quoted
    16 Post(s)

    Default

    What script are you using? Post up the code please so we can help you.


    Send SMS messages using Simba
    Please do not send me a PM asking for help; I will not be able to help you! Post in a relevant thread or make your own! And always remember to search first!

  3. #3
    Join Date
    Aug 2007
    Posts
    19
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Here is the code:
    (this is NOT mine)
    this is the code I am having problems with.
    I have filled all the setup spaces, I only have 1 account I want to use, does that matter?


    {================================================= ========================]
    [ ~Paul23's Draynor Willow Banker~ ]
    [ ~Version: 0.03 ]
    [================================================== =======================]
    |~Description: |
    | A macro that chops a full load of willows in Draynor, |
    | then banks it. |
    |~Instructions: |
    | 1. Set the Runescape brightness to V-bright, and your computer's |
    | resolution to 32bit resolution. |
    | 2. Developed and tested using SCAR Divi 3.12 |
    | 3. Developed and tested using SRL 4 #5 |
    | 5. Setup Lines 33-37, and 52-99 |
    | 6. Start script in Draynor Bank. |
    | 7. Start with a axe in your first inventory slot or wielded. |
    | 8. Recomended to have extra axes near top of bank. |
    |~Features: |
    | AntiBan |
    | Randoms (UpToDate With SRL) |
    | AutoColor |
    | Multiple Players |
    | Ented Axe Finding |
    [================================================== =======================]

    program DraynorWillowTrees;

    {.include SRL/SRL.scar}
    {.Include SRL/SRL/Skill/Woodcutting.Scar}

    Const
    DebugMode = False; // Will determine whether or not to write Debug Messages to Debug window
    StartPlayer = 2; // Player number to start chopping
    Loads = 3; // Number of loads.
    NumOfPlayers = 7; // Number of users.
    YourSRLID = ''; // Must be a string!
    YourSRLPASS = ''; // Must be a string!
    RemoteControlMasterNickName = ''; // Part of the Remote Control Masters' Name.

    Var
    BankDTM, WillowDTM, LogMask, AxeMask, BrokenAxeHeadMask: Integer;
    NormalRandomsTime, FastRandomsTime, FindTalkTime, CallBTime: LongInt;
    NoAxe :Boolean;
    MyMark, tx, ty, iWillowLogs, iAxesBroke: Integer;

    Procedure DeclarePlayers;

    Begin
    HowManyPlayers := NumOfPlayers;
    NumberOfPlayers( HowManyPlayers );
    CurrentPlayer := StartPlayer;

    Players[0].Name :='';
    Players[0].Pass :='';
    Players[0].Nick :='';
    Players[0].Active:=True;
    Players[0].Loc := 'Bank';

    Players[1].Name :='';
    Players[1].Pass :='';
    Players[1].Nick :='';
    Players[1].Active:=True;
    Players[1].Loc := 'Bank';

    Players[2].Name :='';
    Players[2].Pass :='';
    Players[2].Nick :='enny';
    Players[2].Active:=True;
    Players[2].Loc := 'Bank';

    Players[3].Name :='';
    Players[3].Pass :='';
    Players[3].Nick :='';
    Players[3].Active:=True;
    Players[3].Loc := 'Bank';

    Players[4].Name :='';
    Players[4].Pass :='';
    Players[4].Nick :='';
    Players[4].Active:=True;
    Players[4].Loc := 'Bank';

    Players[5].Name :='';
    Players[5].Pass :='';
    Players[5].Nick :='';
    Players[5].Active:=True;
    Players[5].Loc := 'Bank';

    Players[6].Name :='';
    Players[6].Pass :='';
    Players[6].Nick :='';
    Players[6].Active:=True;
    Players[6].Loc := 'Bank';

    Writeln( IntToStr ( HowManyPlayers ) + ' Player[s]' );
    End;

    Procedure Paul23Debug(TheText: String);
    Begin
    if (DebugMode) then
    Begin
    Writeln(TheText);
    End;
    End;

    {--------------------------------------------------------

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

    FindFastRandoms is a quicker version of FindNormalRandoms.
    It does not include ALL the Anti-Randoms though.

    --------------------------------------------------------}

    Function FindFastRandoms: Boolean; // By WT-Fakawi.
    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].rand := 'No GameTab';
    Logout;
    Exit;
    end;
    end;
    8: begin
    If InBlack then
    begin
    Result := True;
    Players[CurrentPlayer].rand := 'InBlack';
    Logout;
    Exit;
    end;
    end;
    9 : If RC Then Result := True;

    10: If FindTalk Then Result := True;
    End;
    Wait(1);
    end;
    end;

    Function FindNormalRandomsTimeEx: Boolean;

    Var
    TempTime, Time1, Time2: LongInt;

    Begin
    TempTime := GetSystemTime;
    If TempTime - NormalRandomsTime > 6000 Then
    Begin
    NormalRandomsTime := GetSystemTime;
    Time1 := GetSystemTime;
    Result := FindNormalRandoms;
    Time2 := GetSystemTime;
    Status('Calling FNRandoms; Took '+IntToStr(Time2-Time1)+'.');
    Exit;
    End;

    If TempTime - FastRandomsTime > 2000 Then
    Begin
    FastRandomsTime := GetSystemTime;
    Time1 := GetSystemTime;
    Result := FindFastRandoms;
    Time2 := GetSystemTime;
    Status('Calling FFRandoms; Took '+IntToStr(Time2-Time1)+'.');
    Exit;
    End;

    If TempTime - FindTalkTime > 500 Then
    Begin
    FindTalkTime := GetSystemTime;
    Time1 := GetSystemTime;
    Result := FindTalk;
    Time2 := GetSystemTime;
    Status('Calling FT; Took '+IntToStr(Time2-Time1)+'.');
    Exit;
    End;
    End;


    Function FindDraynorBank(Var x, y: Integer): Boolean;

    Var
    BankA: Extended;

    Begin
    Paul23Debug('Start of FindDraynorBank');
    Result:= FindDTMRotated(BankDTM, x, y, MMX1, MMY1, MMX2, MMY2, -Pi, Pi, 0.05, BankA);
    Paul23Debug('End of FindDraynorBank');
    End;

    Function FishSymbolCallibrate: Boolean;

    Var
    x, y: Integer;
    Begin
    Paul23Debug('FishSymbolCallibrate - Start Of');

    If Not LoggedIn Then Exit;

    If GetSystemTime - CallBTime < 25000 Then Exit;
    CallBTime := GetSystemTime;
    Result := FindSymbol(x, y, 'fishing spot');
    If Result Then
    Begin
    Mouse(x, y, 8, 8, True);
    Wait(100);
    FFlag(0);
    Wait(1000);
    End;

    Paul23Debug('FishSymbolCallibrate - End Of');
    End;

    Function GetAxeFromBank: Boolean;

    Var
    x, y: Integer;

    Begin
    Paul23Debug('GetAxeFromBank - Start of');

    If Not LoggedIn Then Exit;

    FixBank;
    Wait(Random(250)+300);

    If(FindBitmapMaskTolerance(AxeMask, x, y, MSX1, MSY1, MSX2, MSY2, 20, 10))then
    Begin
    Mouse(x, y, 1, 1, True);
    Paul23Debug('GetAxeFromBank - Spare Axe retrieved from bank');
    NoAxe := False;
    EquipAxe := False;
    Result := True;
    End
    else
    Begin
    Paul23Debug('GetAxeFromBank - Spare Axe Not Found');
    Players[CurrentPlayer].Loc:= 'No Axes';
    Result := False;
    End

    Paul23Debug('GetAxeFromBank - End of');
    End;


    Function DepositLoad: Boolean;

    Var
    x, y, Tries: Integer;

    begin
    Paul23Debug('Deposit Load - Start');

    If Not LoggedIn Then Exit;

    Result := False;
    // Get better position on bank
    If FindDraynorBank(x, y) Then
    Begin
    Mouse(x, y, 0, 0, True);
    Wait(100);
    FFlag(0);
    Wait(500);
    End;

    // Update current players location.
    Players[CurrentPlayer].Loc := 'Bank';

    // Open the bank screen
    Repeat
    OpenBankFast('db');
    Tries := Tries + 1;
    Until ((BankScreen) Or (Tries > 4));

    // Deposit load - if we don't have an axe try and get one from bank
    If BankScreen Then
    Begin
    if EquipAxe = true Then
    Begin
    DepositAll;
    End
    Else
    Deposit(2, 28, 2);
    Begin
    End
    Result := True;
    End;

    // Close bank
    CloseBank;

    Paul23Debug('End of Deposit Load');
    End;

    procedure WalkToBankWillows;
    begin
    Paul23Debug('WalkToBankNorm - Start');

    If Not LoggedIn Then Exit;

    FindNormalRandomsTimeEx;
    Mouse(650, 30, 5, 5, True);
    Wait(4000);
    FFlag(0);
    Wait(500);
    FindNormalRandomsTimeEx;
    MakeCompass('N');
    Wait(500);

    Paul23Debug('WalkToBankNorm - End');
    end;


    Function WalkToWillows: Boolean;
    Begin
    Paul23Debug('WalkToWillows - Start');

    If Not LoggedIn Then Exit;

    FindNormalRandomsTimeEx;
    Result := False;

    // Calibrate on Fish Symbol then move to bank
    FishSymbolCallibrate;
    Mouse(623, 134, 5, 5, True);
    Wait(6000);
    FFlag(0);
    Wait(1500);
    FindNormalRandomsTimeEx;
    Result :=True;
    Players[CurrentPlayer].Loc := 'Chopping';

    Paul23Debug('WalkToWillows - End of');
    end;


    Procedure HandleFight;

    Begin
    Paul23Debug('HandleFight - Start of');

    MakeCompass('N');
    WalkToBankWillows;
    Wait(4000);
    WalkToWillows;
    MakeCompass('N');

    Paul23Debug('HandleFight - End of');
    End;

    Procedure RandomChopClick;
    Begin
    Paul23Debug('RandomChopClick - Start of');

    If Not LoggedIn Then Exit;

    Case Random(5) of
    0: Begin
    Mouse(tx, ty, 0, 0, False);
    ChooseOption('hop');
    If Not(IsUpText('hop')) Then
    begin
    wait(200+Random(1000));
    MMouse(tx, ty, 10, 10);
    end
    else
    exit;
    end;
    1,2,3,4: Begin
    Mouse(tx, ty, 0, 0, True);
    wait(200+Random(1000));
    end;
    end;

    Paul23Debug('RandomChopClick - End of');
    end;


    function RandomWillowColor: integer;
    Begin
    Paul23Debug('Random Willow Color - Start Of');

    If Not LoggedIn Then Exit;

    Case Random(5) of
    0: Result := 3693410;
    1: Result := 2655089;
    2: Result := 2315338;
    3: Result := 2579794;
    4: Result := 2967888;
    end;

    Paul23Debug('Random Willow Color - End Of');
    end;


    Function CheckEnt(ex, ey: Integer): Boolean;

    Var
    Xe, Ye: Integer;

    Begin
    Paul23Debug('CheckEnt - Start Of');

    If Not LoggedIn Then Exit;

    Result := False;
    If(FindColorSpiralTolerance(Xe, Ye, 5535856, ex - 20, ey - 20, ex + 20, ey + 20, 12))then
    Begin
    Paul23Debug('CheckEnt - Branch 1');
    MMouse(Xe, Ye, 5, 5);
    Wait(100+Random(50));
    End

    If(IsUpTextMulti('hop down Will', 'down Willow', 'own Wil')) or (IsUpTextMulti('illow', 'low', 'Will'))then
    Begin
    If(FindColorSpiralTolerance(Xe, Ye, 383705, 1, 1, 180, 39, 20))or
    (FindColorSpiralTolerance(Xe, Ye, 65535, 1, 1, 200, 40, 20))or
    (FindColorTolerance(Xe, Ye, 55769, 85, 15, 115, 15, 20))then
    Begin
    Paul23Debug('Check Ent - Found Ent 2');
    Mouse(MMCX, MMCY, 5, 5, True);
    FindTalk;
    Wait(10000+Random(5000));
    FindNormalRandomsTimeEx;
    EntsAvoided:= EntsAvoided + 1;
    Result := True;
    End;
    End;

    Paul23Debug('CheckEnt - End Of');
    End;

    Function DetectNoAxe: Boolean;
    Var
    XH, YH, x, y: Integer;
    bAxeNeeded: Boolean;
    Begin
    Paul23Debug('DetectNoAxe - Start Of');

    If Not LoggedIn Then Exit;

    Result := False;

    // If we are not holding the axe look for it in the inventory
    // If not found set bAxeNeeded flag
    If(EquipAxe= False)then
    Begin
    Paul23Debug('DetectNoAxe - Looking for axe in inventory');
    GameTab(4);
    Wait(50+Random(50));
    If(not(FindBitmapMaskTolerance(AxeMask, x, y, MIX1, MIY1, MIX2, MIY2, 20, 10)))then bAxeNeeded:= True;
    End

    // If we are holding the axe look for it in the equipped page
    // If not found set bAxeNeeded flag
    If(EquipAxe= True)then
    Begin
    Paul23Debug('DetectNoAxe - Looking for axe in equipped');
    GameTab(5);
    Wait(50+Random(50));
    If(not(FindBitmapMaskTolerance(AxeMask, x, y, MIX1, MIY1, MIX2, MIY2, 20, 10)))then bAxeNeeded:= True;
    End

    // If we don't have an axe
    If(bAxeNeeded = True)then
    Begin
    Result := True;
    NoAxe := True;
    Paul23Debug('DetectNoAxe - We don''t have an Axe, Investigating..');

    // If we detect a broken axe - put in inventory
    If(FindBitmapMaskTolerance(BrokenAxeHeadMask, XH, YH, MIX1, MIY1, MIX2, MIY2, 20, 25))then
    Begin
    Mouse(x, y, 1, 1, True);
    iAxesBroke:= iAxesBroke + 1;
    Paul23Debug('DetectNoAxe - Broken Axe Found!');
    Players[CurrentPlayer].Loc:= 'Broken Axe';
    Result:= True;
    NoAxe := True;
    Exit;
    End
    End

    Paul23Debug('DetectNoAxe - End Of');
    End;

    procedure ChopWillows;

    Var iBefore_x, iBefore_y, iCurrent_x, iCurrent_y, iTTimes : Integer;
    begin
    Paul23Debug('Chop Willows - Start of');

    If Not LoggedIn Then Exit;

    SetRun(True);
    iTTimes := 0;

    Repeat
    // Check for fight
    If FindFight Then HandleFight;

    // Check for randoms
    FindNormalRandomsTimeEx;

    // Save current mouse position
    GetMousePos(iBefore_x, iBefore_y);

    Paul23Debug('ChopWillows - Before mouse position x:' + IntToStr(iBefore_x) + 'y: ' + IntToStr(iBefore_y));

    // Look for Willows
    If(FindColorSpiralTolerance(tx, ty, RandomWillowColor, 1, 1, 514, 336, 4)) Then
    Begin

    // Have found something that matches the color. Check more closely.
    wait(150+Random(500));
    MMouse(tx, ty, 10, 10);
    iTTimes := iTTimes + 1;

    // Check for randoms
    FindNormalRandomsTimeEx;
    Paul23Debug('ChopWillows - Trying to Find Willow Try #: ' + IntToStr(iTTimes));

    // If we are struggling a little to find Willows a little we could attempt to
    // resync on the fish symbol.
    If(iTTimes mod 10 = 0) Then
    Begin
    FishSymbolCallibrate;
    end;

    // Check that we are not looping round endlessly
    // If it seems like we are then code will exit this routine and head
    // back to bank to try and resync.
    If(iTTimes > 50) Then
    Begin
    Paul23Debug('ChopWillows - Didn''t Find Tree after 50 tries.');
    iTTimes := 0;
    Exit;
    end;

    // Check that we have a willow
    If(IsUpText('illow')) Then
    Begin
    Paul23Debug('ChopWillows - Have found a willow');
    // Check for randoms
    FindNormalRandomsTimeEx;

    // Check for Ent, then chop the willow.
    if not CheckEnt(tx, ty) then
    Begin
    Paul23Debug('ChopWillows - There is no Ent');
    if (DetectNoAxe) then exit;
    RandomChopClick;
    wait(100);

    // Check for randoms
    FindNormalRandomsTimeEx;
    End;

    // Reset mouse parameters onto tree we are chopping
    iCurrent_x := iBefore_x + (tx - iBefore_x);
    iCurrent_y := iBefore_y + (ty - iBefore_y);

    // Check for Randoms and Reset Counter
    FindNormalRandomsTimeEx;
    iTTimes := 0;

    // Loop - we have starting chopping a willow.
    // Keep checking the willow and chopping it if it is still there.
    // or Inventory is full.
    Repeat
    Paul23Debug('ChopWillows - Waiting for tree to be gone');
    // Check for fight and let the character chop for a little while
    If FindFight Then HandleFight;

    wait(1000+Random(2000));

    // Check for randoms
    FindNormalRandomsTimeEx;

    wait(1000+Random(2000));

    // Reset mouse to the position of the original click
    MMouse(iCurrent_x, iCurrent_y, 10, 10);

    // If the Willow is still there - chop it again
    If (IsUpText('illow')) then
    Begin
    tx := iCurrent_x;
    ty := iCurrent_y;
    if not CheckEnt(tx, ty) then
    Begin
    if (DetectNoAxe) then exit;
    RandomChopClick;
    End;
    End;

    // Check for randoms
    FindNormalRandomsTimeEx;

    // Reset mouse to the position of the original click
    MMouse(iCurrent_x, iCurrent_y, 10, 10);
    Until(not(IsUpText('illow')) or InvFull)
    end;
    end;

    iTTimes := iTTimes + 1;
    If(iTTimes > 50) Then
    Begin
    Paul23Debug('ChopWillows - Didn''t Find Approxiamate Color of Tree after 50 tries.');
    iTTimes := 0;
    Exit;
    end;
    Until(InvFull or Not LoggedIn)

    SetRun(False);

    Paul23Debug('ChopWillows - At end of routine');
    end;

    Function CheckAxe: Boolean;
    Var
    AX, AY, Tries: Integer;
    Begin
    Paul23Debug('CheckAxe - Start of');

    If Not LoggedIn Then Exit;

    GameTab(4);

    // Look for axe in inventory
    If(FindBitmapMaskTolerance(AxeMask, AX, AY, MIX1, MIY1, MIX2, MIY2, 10, 5))then
    Begin
    Paul23Debug('CheckAxe - Axe Found in Inventory');
    EquipAxe:= False;
    Result:= True;
    End
    else
    Begin

    GameTab(5);
    Wait(100+Random(75));

    // Look for axe equipped
    If(FindBitmapMaskTolerance(AxeMask, AX, AY, MIX1, MIY1, MIX2, MIY2, 10, 5))then
    Begin
    Paul23Debug('CheckAxe - Axe Found in Equipped Page!');
    EquipAxe:= True;
    Result:= True;
    End
    GameTab(4);
    End

    // Try to get Axe From Bank
    if (Result = False) then
    Begin
    // Open the bankscreen
    Repeat
    OpenBankFast('db');
    Tries := Tries + 1;
    Until ((BankScreen) Or (Tries > 4));

    // Retrieve an axe
    If BankScreen Then
    Begin
    Result := GetAxeFromBank;
    Closebank;
    End
    End

    // If axe has been found
    If(Result= True)then
    Begin
    // Set flags accordingly
    NoAxe:= False;
    Paul23Debug('CheckAxe - Axe has been found');
    End
    else
    Begin
    // No axe logout
    Paul23Debug('CheckAxe - Could NOT Find Axe Colors!, Logging Out!');
    Players[CurrentPlayer].Loc:= 'No Axe';
    Logout;
    End

    Paul23Debug('CheckAxe - End of');
    End;


    Procedure Bitmaps;

    Begin
    BankDTM := DTMFromString('78DA63EC60626008614001FFFFFF6760600 42' +
    '310FB3F6303508D37448E09AAE6ED5B08CD08E583D50413A1 269C' +
    '809A0AC26A00E665129F');
    WillowDTM := DTMFromString('78DA63CC62626078CA80026CCD4419FE036 94' +
    '620FE0F048C20357718D000231209A413816A1E1350930A54 F381' +
    '809A12A09AB704D49401D53CC2AF0600C8560D88');
    LogMask := BitmapFromString(13, 10, 'z78DA33301805E40037BC8' +
    '0BAB6D0C2E5F451494998D02E5471010034299979');
    AxeMask := BitmapFromString(10, 10, 'z78DA7373230D18500028316' +
    '130E825353470A921DE3DE499409EDB480D25FCE10000B72C 7CE1' +
    '');
    BrokenAxeHeadMask := BitmapFromString(9, 10, 'z78DA7373230D1890' +
    '05C8D34BAA2EE2D5E3F21131FEC56FCBE091A53C34007F307 225');
    End;


    Procedure SetupScript;

    Begin
    ScriptID := '';
    SRLID := YourSRLID;
    SRLPassword := YourSRLPASS;
    RCLoc := 'Bank';
    RCMaster := RemoteControlMasterNickName;
    DeclarePlayers;
    Bitmaps;
    LoginPlayer;
    wait(2000+Random(4000));
    CheckAxe;
    NormalRandomsTime := GetSystemTime;
    FastRandomsTime := GetSystemTime;
    FindTalkTime := GetSystemTime;
    CallBTime := GetSystemTime;
    End;

    Procedure PlayerReport;

    Var
    Active: string;
    I: Integer;

    Begin
    For I := 0 To HowManyPlayers - 1 Do
    Begin
    If Players[i].Active = True Then
    Begin
    Active := 'T';
    End
    Else
    Begin
    Active := 'F';
    End;

    WriteLn((IntToStr(I)) + ' : ' + Players[I].nick + ' = ' +
    Active + '; Loc: ' + Players[I].Loc+ '; B: '+
    IntToStr(Players[i].Banked)+ ' F lvl: ' +
    IntToStr(Players[I].Level[20])+ '; T: ' +
    IntToStr(Players[i].Worked));
    End;
    End;


    Procedure ProgressReport;

    Begin
    WriteLn('----------------------------');
    WriteLn('');
    WriteLn('Paul23 - Draynor Willow Trees.');
    WriteLn('');
    Writeln('Worked for '+ TimeRunning);
    If Banks > 0 Then WriteLn('Banked '+IntToStr(Banks)+' times.');
    If iAxesBroke > 0 Then WriteLn('Axes Broken '+IntToStr(iAxesBroke)+' times.');
    WriteLn('');
    WriteLn('----------------------------');
    PlayerReport;
    WriteLn('');
    WriteLn('----------------------------');
    SendSRLReport;
    End;

    begin
    ClearDebug;
    Paul23Debug('After ClearDebug');
    SetupSRL;
    SetupScript;
    Wait(1000);
    Repeat

    Paul23Debug('MainLoop - Top of main loop');
    // This code is for when the player is at the bank
    If Players[CurrentPlayer].Loc = 'Bank' Then
    Begin
    Paul23Debug('MainLoop - In bank state');
    MakeCompass('N');
    If LoggedIn Then
    Begin
    // Try to find Normal Trees - if unsuccesfull use next player.
    If Not WalkToWillows then
    Begin
    Paul23Debug('MainLoop - Lost');
    Players[CurrentPlayer].Loc := 'Lost';
    NextPlayer(False);
    CheckAxe;
    continue;
    End;
    End;
    End;

    //This code is for when the player has made it to the trees
    If Players[CurrentPlayer].Loc = 'Chopping' Then
    Begin
    Paul23Debug('MainLoop - In chopping state');
    ChopWillows;
    WalkToBankWillows;
    // Try to bank - if not able then get NextPlayer
    if Not DepositLoad Then
    Begin
    Paul23Debug('MainLoop - Bank Failed');
    Players[CurrentPlayer].Loc := 'Bank Failed';
    NextPlayer(False);
    GetAllLevels;
    CheckAxe;
    continue;
    End
    Else
    Begin
    Players[CurrentPlayer].Banked := Players[CurrentPlayer].Banked + 1;
    Banks := Banks + 1;
    CheckAxe;
    End;
    End;

    Paul23Debug('MainLoop - Player Banked ' +
    IntToStr(Players[CurrentPlayer].Banked) + ' times');
    //This code is when chopping is finished and we return to the bank
    If LoggedIn And (Players[CurrentPlayer].Banked Mod Loads = 0) Then
    Begin
    Paul23Debug('MainLoop - Loads Banked Mod 0');
    MarkTime(MyMark);
    SetChat('off',1);
    Repeat
    FindNormalRandomsTimeEx;
    Wait(10);
    If TimeFromMark(MyMark) > 240000 Then Begin Logout; Break; End;
    Until Not LoggedIn;
    NextPlayer(True);
    CheckAxe;
    GetAllLevels;
    End;

    // This code is for when a player gets logged out. The script will log
    // them back in.
    If Not LoggedIn Then
    Begin
    Paul23Debug('MainLoop - Not LoggedIn Calling NextPlayer');
    NextPlayer(False);
    CheckAxe;
    GetAllLevels;
    End;

    ProgressReport;
    Until False;
    Paul23Debug('At very end of script');
    end.

  4. #4
    Join Date
    Dec 2006
    Location
    Sweden
    Posts
    10,812
    Mentioned
    3 Post(s)
    Quoted
    16 Post(s)

    Default

    http://www.villavu.com/forum/showthread.php?t=5410
    Read this beautiful tut by Wizzup?


    Send SMS messages using Simba
    Please do not send me a PM asking for help; I will not be able to help you! Post in a relevant thread or make your own! And always remember to search first!

  5. #5
    Join Date
    Nov 2007
    Posts
    326
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Just by looking at the player array, I see your problem (I think ). Try adding { before the phrase "Players[1].Name :='';" and add a } after this phrase "Players[6].Loc := 'Bank';". This should turn the text green (making it into a comment), then you should change "StartPlayer = 2;" to 0 instead of 2. Lastly, change "NumOfPlayers = 7;" to 1 instead of 7. Hope that works for you.

    Check out my Edgeville Smelter!

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

    Default

    TY for the help guys, if it still dosen't work, I'll post again

  7. #7
    Join Date
    Aug 2007
    Posts
    19
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    it's sorta workin, but I get this:

    SRL Compiled in 1594 msec
    1 Player[s]
    Found Compass

    then it stops, should I wait?


    BTW how do I get on to srl stats?

  8. #8
    Join Date
    Nov 2007
    Posts
    326
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Killmar View Post
    it's sorta workin, but I get this:

    SRL Compiled in 1594 msec
    1 Player[s]
    Found Compass

    then it stops, should I wait?


    BTW how do I get on to srl stats?
    Try staying logged out before you start, or if that doesn't work, login to your character before you start, and remember to put the crosshairs onto the RS client before you run the script. To connect to SRL Stats, put your user and pass(stats specific account) into the these consts: "YourSRLID = ''; and YourSRLPASS = '';".

    Check out my Edgeville Smelter!

  9. #9
    Join Date
    Aug 2007
    Posts
    19
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    It's workin guys, Thx.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. nice little PowerMiner
    By srl person in forum First Scripts
    Replies: 4
    Last Post: 02-09-2008, 06:14 PM
  2. Nice script -.-
    By BladeTrix in forum OSR Help
    Replies: 7
    Last Post: 12-05-2007, 08:07 PM
  3. Is anyone nice enough to...
    By Runescape Pro in forum OSR Help
    Replies: 6
    Last Post: 09-13-2007, 12:02 PM
  4. it iz nice!!
    By Mafi@ in forum Who Are You ? Who ? Who ?
    Replies: 0
    Last Post: 11-05-2006, 08:32 AM
  5. Nice pictures..
    By Lorax in forum The Bashing Club / BBQ Pit
    Replies: 15
    Last Post: 09-09-2006, 03:07 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
  •