PDA

View Full Version : Bigfish's Random Scar Disguise



Bigfish58
10-20-2006, 07:58 PM
Simple but effective :D


{.include SRL\SRL.scar}
Procedure RandomDisguise;
begin case random(10) of
0:DisguiseScar('iTunes')
1:DisguiseScar('WinAmp')
2:DisguiseScar('Windows Media Player')
3:DisguiseScar('Msn Messenger')
4:DisguiseScar('Internet Explorer')
5:DisguiseScar('Mozilla Firefox')
6:DisguiseScar('Adobe Photoshop')
7:DisguiseScar('Notepad')
8:DisguiseScar('Windows Movie Maker')
9:DisguiseScar('AOL 9.0')
10:DisguiseScar('My Documents')
end;
end;

begin
setupSRL;
RandomDisguise;
end.

YoHoJo
10-20-2006, 08:04 PM
pretty cool scipt but its useless
Jagex can not see what we are dong/running on our computer when we play runescape that is completeley illigal so there is not reason to disguise scar or anything.
Cool script though

Bigfish58
10-20-2006, 08:06 PM
Gah, i know that lozl, just i got bored so to take 5 mins off my hands i did this totally random thing :p lol thanks for the feedback

YoHoJo
10-20-2006, 08:09 PM
mhmm
i like how you inlcude 0 as a case.
many peopel dont know scar counts from 0 =)

Cheesehunk
10-20-2006, 09:00 PM
Good job. :) but take a look into xText.scar

Kane already made something like this, just a little more advanced.

{************************************************* ******************************
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;