Results 1 to 5 of 5

Thread: Bigfish's Random Scar Disguise

  1. #1
    Join Date
    Aug 2006
    Posts
    53
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Bigfish's Random Scar Disguise

    Simple but effective

    Code:
    {.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.

  2. #2
    Join Date
    Feb 2006
    Location
    Tracy/Davis, California
    Posts
    12,631
    Mentioned
    135 Post(s)
    Quoted
    418 Post(s)

    Default

    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

  3. #3
    Join Date
    Aug 2006
    Posts
    53
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Gah, i know that lozl, just i got bored so to take 5 mins off my hands i did this totally random thing lol thanks for the feedback

  4. #4
    Join Date
    Feb 2006
    Location
    Tracy/Davis, California
    Posts
    12,631
    Mentioned
    135 Post(s)
    Quoted
    418 Post(s)

    Default

    mhmm
    i like how you inlcude 0 as a case.
    many peopel dont know scar counts from 0 =)

  5. #5
    Join Date
    Feb 2006
    Location
    Under a rock.
    Posts
    1,351
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    Good job. but take a look into xText.scar

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

    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;
    SRL Developer
    ◘◘◘◘◘◘◘◘◘◘◘◘◘◘◘◘◘◘◘◘

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. Change SCAR Disguise
    By Championship in forum OSR Help
    Replies: 7
    Last Post: 03-09-2009, 10:42 PM
  2. disguise scripts
    By del_signo in forum OSR Help
    Replies: 9
    Last Post: 04-13-2007, 04:18 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •