Error wen i run script

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

Sign in to Post
Thread Tools

Thread Tools

Error wen i run script
  1. Unread #1 - Aug 17, 2007 at 11:47 AM
  2. Neo Aegis
    Referrals:
    0

    Neo Aegis Guest

    Error wen i run script
    well im new to scar and all so maybe im doing something wrong but here is the firemake script i use. The script gives me this error when i try to run it:

    Line 98: [Error] (14547:6): Unknown identifier 'CountItemDtm' in script C:\Documents and Settings\HP_Administrator\Desktop\Fours Log Lighter 2.scar

    and also im not sure whether what i should enter for the player number so please help me out :confused: i highlighted the line 98

    Code:
      ///////////////////////////////////////////////////////////////////////
 //My Semi Legit Log Burner, Inspired by Yohojo8's "Semi Legit Script"//
///////////////////////////////////////////////////////////////////////
program LogLighter;
{.include SRL\SRL.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' +
       '620FE0F048C4E40357719D000231209A443806A6E1250130854F3' +
       '86801A17A09A0F04D45803D5BCC0AF060083750CD4');

logg := DTMFromString('78DA632C666260E0646440067921460CFF813' +
       '448F43F103066314179C880118904D2354035FF19F0AB2905AA11' +
       '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
 [COLOR="Yellow"] If ( CountItemDtm( Logg ) = 0 ) or[/COLOR]
  ( 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.
     
    Share
  3. Unread #2 - Aug 17, 2007 at 12:19 PM
  4. Neo Aegis
    Referrals:
    0

    Neo Aegis Guest

    Error wen i run script
    bump :(
     
    Share
  5. Unread #3 - Aug 21, 2007 at 1:10 PM
  6. MaxFelix
    Referrals:
    0

    MaxFelix Guest

    Error wen i run script
    Free bump :D
     
    Share
  7. Unread #4 - Aug 21, 2007 at 3:28 PM
  8. Town
    Joined:
    Jan 21, 2007
    Posts:
    3,776
    Referrals:
    3
    Sythe Gold:
    5

    Town Grand Master
    Scar Programmers

    Error wen i run script
    Code:
      ///////////////////////////////////////////////////////////////////////
 //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' +
       '620FE0F048C4E40357719D000231209A443806A6E1250130854F3' +
       '86801A17A09A0F04D45803D5BCC0AF060083750CD4');

logg := DTMFromString('78DA632C666260E0646440067921460CFF813' +
       '448F43F103066314179C880118904D2354035FF19F0AB2905AA11' +
       '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.
     
    Share
< Need Help | Srl... >

Users viewing this thread
1 guest


 
 
Adblock breaks this site