SCAR Code:
{*******************************************************************************
function PickString(Choices: Array of String): String;
By: XxKanexX
Description: Picks a random choice out of the given choices.
*******************************************************************************}
function PickString(Choices: Array of String): String;
begin
result:= Choices[random(getarraylength(choices))];
end;
{*******************************************************************************
function RandomTitle: String;
By: XxKanexX
Description: Results in a random Title.
*******************************************************************************}
function RandomTitle: String;
begin
case random(6)+1 of
1:
result:= PickString(['Msn Messenger', 'Windows Messenger', 'Yahoo']);
2:
result:= PickString(['Winamp', 'RealPlayer', 'Windows Media Player', 'Volume Control',
'Guitar Guru', 'Midi Maker', 'AV VCS 3.0', 'Video Match 3.4.0',
'Quicktime', 'iTunes', 'DivX']);
3:
result:= PickString(['tre', 'george', 'funnyi', 'examine', 'closeup', 'conv',
'dogs', 'cats', 'rabits', 'animalx', 'photobuck', 'i22', '33ffg',
'small', 'large', 'med', 'img', 'from', 'to', 'post', 'msn', 'edit',
'psi', 'starthelp', 'error', 'fix', 'love']) + PickString([inttostr(random(1000)), '']) +
PickString(['.jpg', '.gif', '.png', '.jpeg']) + ' (Image, '+inttostr(random(600)+1)+'x'+inttostr(random(600)/2)+
' pixels) - ' + PickString(['Mozilla Firefox', 'Microsoft Internet Explorer']);
4:
result:= 'Google - ' + PickString(['Mozilla Firefox', 'Microsoft Internet Explorer']);
5:
result:= PickString(['Microsoft ' + PickString(['Frontpage', 'Word', 'Outlook', 'Powerpoint']), 'Winzip', 'Microsoft Visual Studio 6.0',
'SmartST 2.0 Map Installer', 'Adobe Photoshop CS', 'Koolmoves Demo', 'Acrobat Reader 5.0',
'Limewire', 'Artmoney', 'Hex Editor', 'HP Software Update', 'Notepad', 'Paint', 'Wordpad',
'Calculator', 'Imagemixer With VCD Ver 1.1', 'Sothink SWF Quicker', 'Easy CD Ripper',
'Drums Room v1.1', 'Macromedia Flash 8', 'Mixcraft', 'Beatcraft', 'Ad-Aware SE Personal',
'Taskmanager', 'vid.exe', 'prosecor.exe', 'Sound Creator', 'Love Machine', 'Adrame']);
6:
result:= PickString(['My Computer', 'My Documents', 'Downloads', 'WINDOWS', 'System 32', 'System',
'My Recordings', 'My Music', 'My Webs', 'My Scans', 'My Videos', 'My Pictures',
'My Recieved Files', 'My Albums', 'KODAK', 'Local Disk (C:)', 'Multimedia Files',
'unzipped', 'My Shared Folder', 'My Documents', 'LOGITEMP', 'Program Files',
'Documents and Settings']);
end;
end;
{*******************************************************************************
procedure DisguiseScar2(disguise: String);
By: XxKanexX
Description: Disguises scar with a specified name.
*******************************************************************************}
procedure DisguiseScar2(disguise: String);
begin
GetApplication.Title := disguise;
GetSelf.Caption := disguise;
end;
{*******************************************************************************
procedure RandomDisguise;
By: XxKanexX
Description: Disguises scar with a random name.
*******************************************************************************}
procedure RandomDisguise;
begin
DisguiseScar2(RandomTitle);
end;