CgTalk Maxscript Challenge 010: "BACK TO BASICS: Random Concept Creator"

[erilaz]

Here is my version... haven't rigourously tested it.
Recognition must go to MV (m@) and hydropix who originally made the lists and to hydropix and vog from CA.org for the original 3CH program. Don't want to steal their hard work by saying I thought all of this up myself!

TO INSTALL: Just unzip to your scripts folder and run the script.

Here's the code:


sentenceStructure = #() -- will be used to define the layout of the sentence
wordLists = #() -- the vrious word files
themeNames = #() -- theme names
themeDirs = #()
fileNum = 0

fn loadTextFile file =
(
list = openFile(file)
lineNum = 0
fileArray = #()
while (eof list) == false do
(
lineNum += 1
fileArray[lineNum] = readLine(list)
)
close list
return fileArray
)



rollout conceptCreator "Concept Creator - Inspired by 3CH" width:640 height:480
(
dropdownList themeDrop "Concept Theme:" pos:[21,9] width:248 height:40
button loadThemeBtn "..." pos:[276,27] width:36 height:21
edittext sentenceBox "" pos:[16,73] width:596 height:23
button generateBtn "Generate!" pos:[376,17] width:190 height:36
label conceptListLbl "" pos:[19,118] width:592 height:334

--open the dialog and set up Defaults and dropdowns
on conceptCreator open do
(
--load the first theme in the list
--
themeFolder = scriptsPath + "ConceptCreator\\Themes\\"
themeDirs = getDirectories (themeFolder+"*")
themeNum = themeDirs.count

for i = 1 to themeNum do
(
themeNames[i] = substring themeDirs[i] (themeFolder.count +1 ) (themeDirs[i].count)

)

--insert the theme names into the dropdown list
themeDrop.items = themeNames
sentenceStructure = loadTextFile (themeFolder + "Default\\" + "structure.txt")
fileNum = sentenceStructure.count

for i = 1 to fileNum do
(
wordLists[i] = loadTextFile (themeFolder + "Default\\" + sentenceStructure[i] +".txt")
)

)

on themeDrop selected sel do
(
index = themeDrop.selection

sentenceStructure = loadTextFile (themeDirs[index] + "structure.txt")
fileNum = sentenceStructure.count

for i = 1 to fileNum do
(
wordLists[i] = loadTextFile (themeDirs[index] + sentenceStructure[i] +".txt")
)

)

on loadThemeBtn pressed do
(
--do all that funky work
--do more
)
on generateBtn pressed do
(
sentence = ""
for wordPart = 1 to fileNum do
(
sentence = append sentence wordLists[wordPart][(random 1 wordLists[wordPart].count)]
)
sentence = append sentence "."
sentenceBox.text = sentence
conceptListLbl.text = sentence+ "\n" + conceptListLbl.text

)
)

createDialog conceptCreator

[urgaffel]

Haha awesome idea Martin :D Installing it in a bit to test it :)

[urgaffel]

Yep, it be working fine :thumbsup: Thanks Martin!

[erilaz]

Just realised there's some redundant code in there... but it still works! :D

Thanks for testing Urg!

[Light]

Hey Martin,

Nice concept.




Light

[erilaz]

Thanks guys.

Anyone else going to step up to the plate, or will these just be exercises for my own personal amusement? :)

[erilaz]

Looks like there's my answer.:shrug:

I'll post up a new one soon guys. If I don't get much participation next time I may have to consider stopping this.

[davestewart]

I won't be posting... but a really inspirational tool!!! Nice one.

[Mr-BlueSummers]

This does sound like a really cool idea. If I had Max while I'm at work, you know I'd participate (I'm bored enough). Sorry!

[CGTalk Moderation]

This thread has been automatically closed as it remained inactive for 12 months. If you wish to continue the discussion, please create a new thread in the appropriate forum.