New user trying to create madlibs game

[mwforum@xxxxxxxxxxxxxxxxxx (Daniel Ajoy)]

On 4 Aug 2003 at 23:33, Wendy Petti wrote:

> Does one of these games already exist or should I
> > start from scratch?

This might help you:

 to startup
 make "marker "#
 make "phrase [In a #SEASON of the year a #PROFESSION set off with #NAME , his 
trusty 
sidekick #PET]
 
 make "new_phrase []
 build_phrase
 
 cc
 show sentence "TEMPLATE: :phrase
 show sentence "INSTANCE: :new_phrase
 end
 
 to build_phrase
 dolist [wrd :phrase] [
  ifelse :marker = first :wrd [
   question sentence [I need a:] butfirst :wrd
   make "new_phrase lput answer :new_phrase
  ] [
   make "new_phrase lput :wrd :new_phrase
  ]
 ]
 end
 

Try: ------------------------------

startup

I need a: SEASON
summer

I need a: PROFESSION
programmer

I need a: NAME
Rand

I need a: PET
Shadowfax

TEMPLATE: In a #SEASON of the year a #PROFESSION set off with #NAME , his trusty sidekick #PET
INSTANCE: In a summer of the year a programmer set off with Rand , his trusty sidekick Shadowfax


Daniel
OpenWorld Learning