Need help!

I was trying to add more autotalk features to Jethr0xAlcher. When i added them, i tried to run it and get this:

Line 163: [Error] (12742:4): period ('.') expected in script C:\Documents and Settings\***\Jethr0xAlcher(2).scar

I get lot of errors, so how to get rid of them?

Here is the script:

THIS SCRIPT IS JETHR0X'S! IT IS NOT MINE, ALL RESPECT TO HIM!!!!!

Code:

program Jethr0xAlcher;
{.include SRL\SRL.scar}
var
alchs: integer;

////////////////////////////////////////////////////////////////////////////////
//                            SETUP HERE!!!                                   //
////////////////////////////////////////////////////////////////////////////////

const
NumOfPlayers = 1;                //How Many Autoers?
StartPlayer  = 0;                //What Player to start with?
Alchstodo    = 1000;             //How Many Alchs Before Logout.
MageLvl      = '55';             //Enter your magic level
Iname        = 'Yew Longbow';    //Enter name of the item you will alch.


Procedure DeclarePlayers;

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

  Players[0].Name :='';           //Username,
  Players[0].Pass :='';           //Password,
  Players[0].Nick :='';           //Nickname 3-4 letters or ur name (NO CAPS!)
  Players[0].Active:=True;        //Use this Character?
  Players[0].Loc := '';           //DO NOT TOUCH!!!!!

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



Function InChatLine(myString: string): Boolean;//Credits to r4z0rlike
  Begin
    Result := ( pos(myString, TheLine) <> 0 );
  End;

procedure AntiBan;
begin
Case Random(12) of
        0: begin
            TypeSend('Magic lvls?');
             Case Random(2) of
              0: Typesend('Myne is ' + magelvl + ' btw');
              1: Typesend('Im ' + magelvl);
              2: Typesend(magelvl);
              3: begin
                 typesend('uuuuhm')
                 wait(1000)
                 typesend('I r ' + magelvl + ' mage X[)');
                end;
             end;
           end;
        1: begin
            Case Random(3) of
             0: TypeSend('Lol she did?');
             1: TypeSend('Yeah i knw lol');
             2: Typesend('I think i remember');
            end;
            Wait(1000)
            Typesend('wrong chat =/');
           end;
        2: Case Random(2) of
            0: TypeSend('*Yawn*');
            1: Typesend('I dont like alching :(');
           end;
        3: RandomMovement;
        4: begin
            Gametab(2);
            Wait(1000 + random(500));
            Gametab(7);
           end;
        5: begin
            Case Random(5) of
             0: begin
                 Gametab(5);
                 Wait(1000 + random(500));
                 Gametab(7);
                end;
             1: begin
                 Gametab(2);
                 Wait(1000 + random(500));
                 Gametab(7);
                end;
             2: begin
                 Gametab(9);
                 Wait(1000 + random(500));
                 Gametab(7);
                end;
             3: begin
                 Gametab(11);
                 Wait(1000 + random(500));
                 Gametab(7);
                end;
             4: begin
                 Gametab(13);
                 Wait(1000 + random(500));
                 Gametab(7);
                end;
            end;
           end;
        6: Typesend('Only ' +IntToStr(alchstodo-alchs) + ' alchs to do.');
        7: Wait(1000);
        8: Typesend('...');
        9: TypeSend('Lol');
        10: Wait(1000 + Random(500));
        11: Wait(1000 + Random(500));
      end;
end;



procedure Report;
begin
 Writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
 Writeln('| Jethr0x''s Alcher Progress Report. PLZ POST!');
 Writeln('| Alched '+ IntToStr(Alchs) + ' ' + iname + 's.');
 Writeln('| Worked for ' + TImeRunning);
 Writeln('| Exp gained '+ IntToStr(alchs*65));
 Writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
 Writeln('Made By JETHR0X! I WILL RAPE ANY LEECHERS');
end;

procedure Finished;
begin
 if (alchs = alchstodo) then
  begin
   TypeSend('All done! BYE <3');
   Logout;
   report;
  end;
end;

Procedure AutoRespond;
begin
 if InChatLine('hi ') or InChatLine('hey') or InChatLine('sup') or InChatLine('yo') then
  Begin
    Wait(1000 + Random(500));
     case Random(5) of
      0: TypeSend('Hiya');
      1: TypeSend('Hi');
      2: TypeSend('Heyz');
      3: TypeSend('wazzup :p');
	4: TypeSend('Wazaa ');
     End;
  end;
end;

begin
 if InChatLine('magic lvl ') or InChatLine('mage lvls') or InChatLine('mage lvl?') or InChatLine('magic lvl?') then
  Begin
    Wait(1000 + Random(500));
     case Random(4) of
      0: Typesend('Im ' + magelvl + ' mage atm :) ');
      1: TypeSend('I am + magelvl + mage  ');
      2: TypeSend('Im only + magelvl + magic, but it will be higher ');
      3: TypeSend('Only + magelvl + yet. But i got + alchstodo + alches left! ');
     End;
  end;
end;

begin
 if InChatLine('What ya alching ') or InChatLine('what r u alching') or InChatLine('what are you alching') then
  Begin
    Wait(1000 + Random(500));
     case Random(3) of
      0: Typesend('Im alching + Iname + s now ');
      1: TypeSend('I am alching + Iname  ');
      2: TypeSend(' Rofl, + Iname + s ');
     End;
  end;
end;

begin
 if InChatLine('hows going ') or InChatLine(' how it is going ') or InChatLine (' how are you ') or InChatLine (' Wazzup ')
or InChatLine (' how its going ') then
  Begin
    Wait(1000 + Random(500));
     case Random(8) of
      0: Typesend('Fine.. ');
      1: TypeSend('very bad  ');
      2: TypeSend(' better than ever ');
      3: TypeSend(' never been so bad ');
	4: TypeSend(' bad, maybe its better tomorrow ');
	5: TypeSend(' Lol, fine ');
	6: TypeSend(' its okay, how r u? ');
	7: TypeSend(' I dont even want to talk about it, dont even ask again ');
	End;
  end;
end;

begin
 if InChatLine('omg ') or InChatLine(' omfg ') or InChatLine (' rofl ') or InChatLine ('aww ')
or InChatLine (' lol ') then
  Begin
    Wait(1000 + Random(500));
     case Random(3) of
      0: Typesend('? ');
      1: TypeSend('??  ');
      2: TypeSend('what? ');

	End;
  end;
end;

begin
 if InChatLine('Cya') or InChatLine('G2g now') or InChatLine('Bye') or InChatLine('imm off') then
  Begin
    Wait(1000 + Random(500));
     case Random(5) of
      0: Typesend('Cya<3');
      1: TypeSend('Cya ');
      2: TypeSend('Bye ');
 	3: TypeSend('Byebye m8');
	4: TypeSend('Im off after + alchstodo + alches ');
	End;
  end;
end;


begin
 if InChatLine('What ya doing') or InChatLine('What r u doing') or InChatLine('what are you doing')
or InChatLine('what r you doing') then
  Begin
    Wait(1000 + Random(500));
     case Random(10) of
      0: Typesend('Reading updates, u?');
      1: TypeSend('Reading forums, u? ');
      2: TypeSend('Watching tv at the same time.. lol, u? ');
 	3: TypeSend('nothing, im so bored, u?');
	4: TypeSend('just alching, u? ');
 5: Typesend('Reading updates, you?');
      6: TypeSend('Reading forums, you? ');
      7: TypeSend('Watching tv at the same time.. lol, you? ');
 	8: TypeSend('nothing, im so bored, you?');
	9: TypeSend('just alching, you? ');

	End;
  end;
end;

 
procedure Alch;
begin
 Mouse(741,186,0,0,true);
  repeat
   Mouse(571,362,0,0,true);
   Wait(500);
   Mouse(571,362,0,0,true);
   Wait(2000);
   Alchs:=Alchs + 1;
    Case Random(7) of
       0:Wait(0);
       1:AntiBan;
       2:Wait(0);
       3:AutoRespond;
       4:Wait(0);
       5:Wait(0);
       6:Wait(0);
    end;
   Finished;
  until alchs=alchstodo;
end;


    
Procedure Setup;
begin
 SetupSRL;
  wait(1000)
  ActivateClient;
  wait(1000)
end;



///////////////////////////
begin
Setup;
wait(3000)
Alch;
end.

 

Go the the line where the error is. Line 163:

There should possibly be a "." there. Sorry I can't help you much more since I don't have scar installed currently, and Cant Find out where that line is.

If you Post the line, and any other errors, I will be happy to correct them.

 

I think all errors are in these:

 

its saying that it wants you to put end. But that would mean the end of the script.

Are you sure you have the right version of scar and SRL etc?

 

Umm i got the right Scar and SRL. The script works fine without my add-ons..

This is the regular script which i have edited:

 

there must be an error in line 163 which makes the whole script fail when compiling