SRL Archive - General

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 i highlighted the line 98

///////////////////////////////////////////////////////////////////////
//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('78DA63F466626078CE8002121C3819FE036 94' +
'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.

double posted by accident sorry

dont double post pls
maybe you forgot
to add the include
{.include srl/srl/misc or extended or skill/includename.scar

///////////////////////////////////////////////////////////////////////
//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('78DA63F466626078CE8002121C3819FE036 94' +
'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.

it chris i tried out your script but it gave me this error. Im using Scar Divi 3.11 does that have something to do with it?

[Runtime Error] : Exception: data error in line 55 in script C:\Documents and Settings\HP_Administrator\Desktop\Fours Log Lighter 2.scar

line 55 is
Tinderbox := DTMFromString('78DA63F466626078CE8002121C3819FE036 94' +

also im not sure whats includes or even how i get it hermie can you explain please? sorry im being such a dimwit :S im really clueless about this stuff