Please help me fix this script

Discussion in 'Scar/Simba Help' started by Neo Aegis, Aug 17, 2007.

Please help me fix this script
  1. Unread #1 - Aug 17, 2007 at 9:47 PM
  2. Neo Aegis
    Referrals:
    0

    Neo Aegis Guest

    Please help me fix this script

    Ok here is a script and it comes out with this error when i run it.

    Successfully compiled
    SRL Compiled in 47msec.
    [Runtime Error] : Exception: data error in line 55 in script C:\Documents and Settings\HP_Administrator\Desktop\Fours Log Lighter.scar

    This is line 55
    Tinderbox := DTMFromString('78DA63F466626078CE8002121C3819FE03694' +

    if someone can give me instructions on fixing it and getting it to work it will be immensely appreciated.

    ///////////////////////////////////////////////////////////////////////
    //My Semi Legit Log Burner, Inspired by Yohojo8's "Semi Legit Script"//
    ///////////////////////////////////////////////////////////////////////
    program LogLighter;
    {.include SRL\SRL.SCAR}
    {.include SRL\SRL\Extended\xInventory.scar}

    {

    DONT FORGET TO DRAG CROSSHAIR INTO THE RS WINDOW


    //////////////////////////////////////////////////////////
    // INSTRUCTIONS //
    // 1.Declare your players. Lines 39-47. (HIT PLAY) //
    // 2.To start the lighting procedure hit the //
    // F6 key at the top of your keyboard. //
    // 3.If you run out of logs to burn, or it //
    // says "You can't light a log here" or w/e it //
    // will pause until you hit F6 again. //
    //////////////////////////////////////////////////////////

    { ADVANCED NOTE : This script will NOT get logs from bank for you.
    The script will light the logs for you. Find a long stretch of
    area to light logs, hit F6 and then maybe go do something. All
    this script does is light the logs. Then, when you have no more logs,
    it waits. Also, if the script is not lighting for you, make sure that
    the botom line in the chat box is NOT 'You can not light logs here'

    }


    Var
    Tinderbox, Logg, TX, TY, LX, LY : Integer;


    Procedure DeclarePlayers;
    begin

    HowManyPlayers := 2;
    NumberOfPlayers( HowManyPlayers );
    CurrentPlayer := 0;

    Players[0].Name := 'Username';
    Players[0].Pass := 'Password';
    Players[0].Nick := 'Nickname'; // 2-4 letters of username
    Players[0].Active := True;
    end;

    Procedure LoadUp;
    Begin
    SetupSrl;
    DeclarePlayers;

    Tinderbox := DTMFromString('78DA63F466626078CE8002121C3819FE03694' +
    '620FE0F048C4E40357719D000231209A443806A6E12501308 54F3' +
    '86801A17A09A0F04D45803D5BCC0AF060083750CD4');

    logg := DTMFromString('78DA632C666260E0646440067921460CFF8 13' +
    '448F43F103066314179C880118904D2354035FF19F0AB2905 AA11' +
    '22604E23500D0F0135C94035DCF8D50000507909F5');

    LogInPlayer;
    SetChat('Hide',1)
    end;


    //------------ANTIRANDOMS-----------//


    Procedure MyAntiRandoms;
    Begin
    Status( 'AntiRandom Check')
    wait(10)
    FindNormalRandoms;
    wait( 10 )
    FindTalk;
    wait( 10 )
    FindMaze;
    wait( 10 )
    Solvepinball;
    Wait( 10 )
    if ( FindFight ) then
    begin
    RunAwayDirection( 'E' );
    Wait( 8500 + random( 3500 ) );
    RunBack;
    end;
    Wait( 10 );
    FindTalk;
    end;

    //------------START-----------//
    var
    CT: integer;

    Procedure START;
    Begin
    If ( CountItemDtm( Logg ) = 0 ) or
    ( IsChatMessage( 'can''t light a' ) ) then
    repeat
    Status('Out of logs, or you cant light a fire')
    wait( 1000+random ( 1000 ) )
    until isfkeydown(6) = true
    Status( 'Lighting Fire' )
    wait( 10 )
    If ( FindDTM( Tinderbox, TX, TY, MIX1, MIY1, MIX2, MIY2 ) ) then
    Begin
    Mouse( TX, TY, 8, 8, true )
    wait( 400+random( 100 ) )
    If ( FindDTM( Logg, LX, LY, MIX1, MIY1, MIX2, MIY2 ) ) then
    Begin
    Mouse( LX, LY, 8, 8, true )
    Wait(100 + Random (100))
    MMouse( TX, TY, 8, 8)
    end;
    MyAntiRandoms;
    CT := 0
    If ( Not ( Loggedin ) ) then TerminateScript;
    end;
    Begin
    MyAntiRandoms;
    wait ( 1000 + random ( 1000 ) )
    Status( 'Waiting for fire to catch' )
    Repeat
    wait( 900 + random ( 100 ) )
    CT := CT + 1
    If ( IsChatMessage( 'can''t light a' ) ) then
    begin
    MyAntiRandoms;
    If ( Not ( Loggedin ) ) then TerminateScript;
    break;
    end;
    Until ( IsChatMessage( 'logs begin to' ) ) or ( CT > 8 )
    end;
    end;

    //------------MAIN THING-----------//

    Procedure MAINTHING;
    Begin
    wait( 10 )
    If ( isfkeydown( 6 ) = true ) then
    Begin
    Repeat
    Start;
    Until False;
    end;
    end;

    //------------MAIN LOOP-----------//

    begin
    LoadUp;
    Repeat
    Mainthing;
    until false;
    end.
     
< how to | Why doesnt the ultimate fisher script bank? >

Users viewing this thread
1 guest


 
 
Adblock breaks this site