• Log in or sign up for an account here: https://www.sythe.org/login

Need help!

I 1337 I

I 1337 I

Guru
Joined
Aug 18, 2007
Sythe Gold
0
Messages
1,158
Location
Finland
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:

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;
Line 163: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;
Click to expand...
 
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:

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' );
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(4) of
0: TypeSend('Hiya');
1: TypeSend('Hi');
2: TypeSend('Heyz');
3: TypeSend('wattup :p');
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.
Click to expand...
 
there must be an error in line 163 which makes the whole script fail when compiling
 
You must log in or register to reply here.

Similar threads

R
 
need help with this scirpt
Replies
2
Views
423
Jethr0x
Jethr0x
Jethr0x
 
[RS2][SRL#14] Jethr0x Alcher v1!
3 4 5
Replies
84
Views
10K
bulletq
B
T
Lightbulb
need help with scar script!
Replies
2
Views
467
Chippy
Chippy
B
 
can you tell me what is wrong with this script?
Replies
1
Views
386
bevis695
B
W
 
=========--------------> Need Alot Of Help With Script Problems<-------------========
Replies
2
Views
469
un3 3
U
Runescape Gamblingrunescape gambling
Back
Top