Results 1 to 10 of 10

Thread: Story Generator by Dan's The Man

  1. #1
    Join Date
    Dec 2006
    Location
    Sydney, New South Wales, Australia
    Posts
    4,603
    Mentioned
    15 Post(s)
    Quoted
    42 Post(s)

    Default Story Generator by Dan's The Man

    Here's my story generator! Nobody has done it before in SCAR/Simba (or only a few would really do this =\).

    So yeah, this is guaranteed to not make sense like 25% (rough estimation) of the time

    At the moment, I have only written two templates for it, but feel free to add more. It's pretty easy once you get the hang of it. And I'll add the best templates to it daily.

    So, show us the stories this has made for you

    Enjoy!

    Here are some of mine:
    • Sandra was cutting in Baker Street to kill boredom. She noticed a crab behind her, and started to dance. She was dancing away from the crab as delightfully as she could. She failed, then the crab simply cut her. She was so scared, and was hanging onto her $50 for her life. Eventually, Sandra got away. However, she could not face her sheep, so she ran away from Baker Street forever.
    • Josephine was swimming in Uluru to kill boredom. She noticed a rat behind her, and started to sing. She was singing away from the rat as simply as she could. She failed, then the rat completely smashed her. She was so scared, and was hanging onto her packet of gum for her life. Eventually, Josephine got away. However, she could not face her hampster, so she ran away from Uluru forever.
    • Jennifer was dancing in King Road to kill boredom. She noticed a bird behind her, and started to hump. She was humping away from the bird as extremely as she could. She failed, then the bird mildly hopped her. She was so scared, and was hanging onto her toothbrush for her life. Eventually, Jennifer got away. However, she could not face her tortoise, so she ran away from King Road forever.
    • Jennifer was raping in Uluru to kill boredom. She noticed a sheep behind her, and started to hop. She was hopping away from the sheep as slowly as she could. She failed, then the sheep disgustingly swam her. She was so scared, and was hanging onto her jumper for her life. Eventually, Jennifer got away. However, she could not face her bee, so she ran away from Uluru forever.
    • Once upon a time, a man named Kyle Peterson was dancing for his blanket, when he was absolutely smashed by a fly in Park Avenue. Poor old Kyle was horrifically injured due to being absolutely smashed. Kyle then said "If I ever see that fly again, I will cut it with my sandals, and I will get Ashleigh from 2nd Avenue to help me".
    Here's the script. Just place it into SCAR/Simba, and press Run!
    scar Code:
    program StoryGenerator;

    const
      HowMany = 5;  //How many stories to make up in a single session?

    var
      NamesMale, NamesFemale, LastNames, InanimateObjects, VerbCommands, VerbsPast,
      VerbsPresent, Adverbs, Adjectives, BeforeAdverbs, Places, Titles,
      AnimateObjects: array of String;
     
    { Mufasa/Simba support }
    {$ifDef Mufasa}
    function Replace(Text, FindStr, ReplaceStr: String): String;
    var
      i: Integer;
    begin
      Result := Text;
      repeat
        i := Pos(FindStr, Result);

        if(i <> 0) then
        begin
          Delete(Result, i, Length(FindStr));
          Insert(ReplaceStr, Result, i);
        end;
      Until(i = 0);
    end;
    {$endIf}
     
    function FormatString(Str: String; IdentChar: Char; Arg: array of Variant): String;
    var
      i, bI: Integer;
    begin
      Result := Str;
      bI := High(Arg)
     
      for i := bI downto 0 do
        Result := Replace(Result, IdentChar + IntToStr(i + 1), Arg[i]);
    end;

    var
      D, A: Integer;

    function KeepVar(Arr: array of String): String;
    begin
      if(A = 0) then
      begin
        A := Random(Length(Arr));
        Result := Arr[A];
      end else
      begin
        Result := Arr[A];
        A := 0;
      end;
    end;

    begin
      NamesMale := ['Daniel', 'Stephen', 'Scott', 'Leo', 'John', 'Steven', 'Paul',
        'Mike', 'Michael', 'Nathan', 'Josh', 'Joshua', 'Andrew', 'Alan', 'Eric',
        'Simon', 'Pat', 'Patrick', 'Samuel', 'Samual', 'Sam', 'Greg', 'Gregory',
        'James', 'Jim', 'Danny', 'Mitchell', 'Tim', 'Timothy', 'Ben', 'Benjamin',
        'Chris', 'Christopher', 'Harry', 'Harrison', 'Luke', 'Lucas', 'Evan', 'Martin',
        'Kevin', 'Jack', 'Jackson', 'Kyle', 'Mark', 'Marcus', 'Markus', 'Tyler',
        'Phillip', 'Phill', 'Phil', 'Tom', 'Aaron', 'Arthur', 'Nick', 'Brett', 'William',
        'Richard', 'Oscar'];
      NamesFemale := ['Jessica', 'Lily', 'Lucy', 'Kassandra', 'Megan', 'Louise',
        'Elizabeth', 'Emma', 'Sue', 'Ashleigh', 'Ashley', 'Joan', 'Joanne', 'Anne',
        'Danielle', 'Daniella', 'Patricia', 'Kerry', 'Ruby', 'Grace', 'Ricki',
        'Jasmine', 'Terri', 'Mary', 'Linda', 'Maria', 'Barbara', 'Melissa', 'Rebecca',
        'Sandra', 'Margaret', 'Susan', 'Jennifer', 'Janet', 'Amy', 'Brenda',
        'Christine', 'Catherine', 'Diane', 'Alice', 'Gloria', 'Amanda', 'Judy', 'Kathy',
        'Cathy', 'Irene', 'Nicole', 'Jane', 'Sarah', 'Emily', 'Julia', 'Robin', 'Crystal',
        'Kim', 'Kimberly', 'Annie', 'Wendy', 'Cindy', 'Josephine', 'Sharon', 'Melanie'];
      LastNames := ['Smith', 'Jones', 'Williams', 'Brown', 'Wilson', 'Taylor', 'Johnson',
        'White', 'Martin', 'Anderson', 'Thompson', 'Thomas', 'Walker', 'Harris', 'Lee',
        'Ryan', 'Robinson', 'Kelly', 'King', 'Miller', 'Tapping', 'Davis', 'Moore',
        'Jackson', 'Harris', 'Clark', 'Walker', 'Wright', 'Baker', 'Adams', 'Green',
        'Phillips', 'Evans', 'Turner', 'Parker', 'Potter', 'Collins', 'Edwards',
        'Murphy', 'Cook', 'Rogers', 'Cooper', 'Bailey', 'Peterson', 'Ward', 'Howard',
        'Wood', 'Watson', 'Brooks', 'Gray', 'Fischer', 'Russell', 'Myers', 'Prince',
        'Long', 'Foster', 'Butler', 'Sanders', 'Fox'];
      InanimateObjects := ['soccer ball', 'football', 'footy', 'baseball bat',
        'cricket ball', 'cricket bat', 'shirt', 'skyvvi', 'jumper', 'jacket', 'thongs',
        'trousers', 'jeans', 'cd', 'laptop', 'netbook', 'trumpet', 'guitar', 'drum set',
        'computer', 'book', 'toothbrush', 'pencil', 'pen', 'spoon', 'fork', 'knife',
        'knife set', 'swiss army knife', 'plate', 'bowl', 'television', 'mobile phone',
        'phone', 'blanket', 'camera', 'chair', 'dvd', 'GameBoy', 'Nintendo DS', 'Nintendo Wii',
        'Xbox', 'Xbox 360', 'Playstation 2', 'Playstation 3', 'photos', 'joggers',
        'sandals', 'underwear', 'pillow', 'lamp', 'torch', 'mp3 player', 'mp4 player',
        'iPod Nano', 'iPod Touch', 'tape measure', 'telescope', 'swimming costume',
        'wallet', 'socks', 'watch', 'Blackberry', 'iPhone', '$100 note', '$50 note',
        '$20 note', 'USB stick', 'thumb drive', 'flash drive', 'car keys', '$100',
        '$50', '$20', 'packet of gum', 'rock collection', 'bricks'];
      AnimateObjects := ['cat', 'dog', 'guinnea pig', 'crab', 'lobster', 'hampster',
        'redback', 'funnel-web', 'spider', 'horse', 'donkey', 'wolf', 'fox', 'leapord',
        'panther', 'dinosaur', 'T-Rex', 'bee', 'wasp', 'fly', 'tiger',
        'lion', 'elephant', 'tortoise', 'butterfly', 'moth', 'mouse', 'rat', 'bird',
        'cow', 'sheep', 'llama', 'pig', 'goat', 'paedophile'];
      VerbCommands := ['run', 'duck', 'jump', 'kill', 'breathe', 'swim', 'cut',
        'smash', 'dump', 'bump', 'hump', 'hop', 'sing', 'dance', 'murder', 'chop',
        'swing', 'rape', 'pound'];
      VerbsPast := ['ran', 'ducked', 'jumped', 'killed', 'breathed', 'swam', 'cut',
        'smashed', 'dumped', 'bumped', 'humped', 'hopped', 'sang', 'danced', 'murdered',
        'chopped', 'swung', 'raped', 'pounded'];
      VerbsPresent := ['running', 'ducking', 'jumping', 'killing', 'breathing', 'swimming',
        'cutting', 'smashing', 'dumping', 'bumping', 'humping', 'hopping', 'singing', 'dancing',
        'murdering', 'chopping', 'swinging', 'raping', 'pounding'];
      Adverbs := ['delightfully', 'disgustingly', 'very', 'quickly', 'amazingly', 'well',
        'extremely', 'often', 'wonderfully', 'beautifully', 'skillfully', 'lately',
        'slowly', 'absolutely', 'heartily', 'literally', 'simply', 'kindly', 'mildly',
        'completely', 'daringly'];
      BeforeAdverbs := ['more', 'least', 'less', 'most'];
      Places := ['Australia', 'Uluru', 'England', 'the UK', 'France', 'Netherlands',
        'Sydney', 'Brisbane', 'Melbourne', 'the United States', 'Belgium', '1st Street',
        '2nd Avenue', '3rd Road', 'Liverpool', 'Adelaide', 'London', 'Rome', 'Perth',
        '2nd Street', '1st Avenue', '69th Street', 'Princess Highway', '5th Street',
        'Princes'#39's Highway', 'Baker Street', 'Arthur Street', 'Australia Street',
        'Australia Avenue', 'Park Avenue', 'King Street', 'Queen Street', 'King Road',
        'Queen Road', 'Prince Street', 'Daniel Road'];
      Titles := ['Sir', 'Madame', 'Miss', 'Master', 'Ms', 'King', 'Queen', 'Prince',
        'Princess', 'Duke', 'Duchess'];
      Adjectives := ['horrifically', 'horribly'];
     
      for D := 1 to HowMany do
      begin
        case (Random(2)) of
          0: Writeln(FormatString('Once upon a time, a man named %1 %2 was %3 for ' +
            'his %4, when he was %5 %6 by a %7 in %8. Poor old %1 was %9 injured due ' +
            'to being %5 %6. %1 then said "If I ever see that %7 again, I will %10 it with my ' +
            '%11, and I will get %12 from %13 to help me".', '%', [NamesMale[Random(Length(NamesMale))],
              LastNames[Random(Length(LastNames))], VerbsPresent[Random(Length(VerbsPresent))],
              InanimateObjects[Random(Length(InanimateObjects))], Adverbs[Random(Length(Adverbs))],
              VerbsPast[Random(Length(VerbsPast))], AnimateObjects[Random(Length(AnimateObjects))],
              Places[Random(Length(Places))], Adjectives[Random(Length(Adjectives))],
              VerbCommands[Random(Length(VerbCommands))], InanimateObjects[Random(Length(InanimateObjects))],
              NamesFemale[Random(Length(NamesFemale))], Places[Random(Length(Places))]]));
          1: Writeln(FormatString('%1 was %2 in %3 to kill boredom. She noticed a %4 ' +
            'behind her, and started to %5. She was %6 away from the %4 as %7 as she ' +
            'could. She failed, then the %4 %8 %9 her. She was so scared, and was ' +
            'hanging onto her %10 for her life. Eventually, %1 got away. However, she ' +
            'could not face her %11, so she ran away from %3 forever.', '%',
            [NamesFemale[Random(Length(NamesFemale))], VerbsPresent[Random(Length(VerbsPresent))],
            Places[Random(Length(Places))], AnimateObjects[Random(Length(AnimateObjects))],
            KeepVar(VerbCommands), KeepVar(VerbsPresent), Adverbs[Random(Length(Adverbs))],
            Adverbs[Random(Length(Adverbs))], VerbsPast[Random(Length(VerbsPast))],
            InanimateObjects[Random(Length(InanimateObjects))], AnimateObjects[Random(Length(AnimateObjects))]]));
          end;
      end;
    end.
    Last edited by Daniel; 01-01-2010 at 01:46 PM.
    You may contact me with any concerns you have.
    Are you a victim of harassment? Please notify me or any other staff member.

    | SRL Community Rules | SRL Live Help & Chat | Setting up Simba | F.A.Q's |

  2. #2
    Join Date
    Feb 2007
    Location
    Access Violation at 0x00000000
    Posts
    2,865
    Mentioned
    3 Post(s)
    Quoted
    18 Post(s)

    Default

    I wish I could get SCAR to work on this laptop but it just seems to hate it, I can only use Luna but that lacks some functionality. Anyway, looks awesome.
    Ce ne sont que des gueux


  3. #3
    Join Date
    Jan 2007
    Posts
    8,876
    Mentioned
    123 Post(s)
    Quoted
    327 Post(s)

    Default

    It's been made before, check moparisthebest forum
    It's cool nevertheless

  4. #4
    Join Date
    Dec 2006
    Location
    Sydney, New South Wales, Australia
    Posts
    4,603
    Mentioned
    15 Post(s)
    Quoted
    42 Post(s)

    Default

    Quote Originally Posted by Floor66 View Post
    I wish I could get SCAR to work on this laptop but it just seems to hate it, I can only use Luna but that lacks some functionality. Anyway, looks awesome.
    Why doesn't it work? Is there no error displayed, or anything similar?

    @Zyt3x:
    Bullshit! Where? I can't find it..
    You may contact me with any concerns you have.
    Are you a victim of harassment? Please notify me or any other staff member.

    | SRL Community Rules | SRL Live Help & Chat | Setting up Simba | F.A.Q's |

  5. #5
    Join Date
    Feb 2007
    Location
    Access Violation at 0x00000000
    Posts
    2,865
    Mentioned
    3 Post(s)
    Quoted
    18 Post(s)

    Default

    Oh scar.exe just won't install/download from scarprerelease SVN. I've disabled firewalls and shit but I just can't get it on again. (it's been on here before)
    Ce ne sont que des gueux


  6. #6
    Join Date
    Dec 2006
    Location
    Sydney, New South Wales, Australia
    Posts
    4,603
    Mentioned
    15 Post(s)
    Quoted
    42 Post(s)

    Default

    Quote Originally Posted by Floor66 View Post
    Oh scar.exe just won't install/download from scarprerelease SVN. I've disabled firewalls and shit but I just can't get it on again. (it's been on here before)
    Then maybe not use a pre-release version..?
    You may contact me with any concerns you have.
    Are you a victim of harassment? Please notify me or any other staff member.

    | SRL Community Rules | SRL Live Help & Chat | Setting up Simba | F.A.Q's |

  7. #7
    Join Date
    Feb 2007
    Location
    Access Violation at 0x00000000
    Posts
    2,865
    Mentioned
    3 Post(s)
    Quoted
    18 Post(s)

    Default

    Look at my thread in general help. I included a pic
    Ce ne sont que des gueux


  8. #8
    Join Date
    Jan 2007
    Posts
    8,876
    Mentioned
    123 Post(s)
    Quoted
    327 Post(s)

  9. #9
    Join Date
    Dec 2006
    Location
    Sydney, New South Wales, Australia
    Posts
    4,603
    Mentioned
    15 Post(s)
    Quoted
    42 Post(s)

    Default

    I thought I was the first

    And hey, Cruel did it almost the same as me He copied me!
    You may contact me with any concerns you have.
    Are you a victim of harassment? Please notify me or any other staff member.

    | SRL Community Rules | SRL Live Help & Chat | Setting up Simba | F.A.Q's |

  10. #10
    Join Date
    Jan 2007
    Posts
    8,876
    Mentioned
    123 Post(s)
    Quoted
    327 Post(s)

    Default

    Quote Originally Posted by Dan's The Man View Post
    I thought I was the first

    And hey, Cruel did it almost the same as me He copied me!
    lol xD

    Yeah, only difference is that there was no FormatStrings() in the scar he used to make his..

Thread Information

Users Browsing this Thread

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

Posting Permissions

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