DESCRIPTION_RE "WOW! You are really becoming experienced. You have built a new site ",nFamilies," times already with ",nLoads," times into the program. If you would like, we can start skipping a couple of the welcome screens.\n\nWould you like to skip extra screens that provide you with the `why' kind of information so that you can go faster?"
TYPE RADIOBUTTONS
WIZPIC wizpics\wizmagic.gif
NAME skipExplanations
ARGUMENT "&Yes. Skip the explanation screens."@Yes
ARGUMENT "N&o. They may still help me."@No
SAVEVARIABLES
ARGUMENT modulepath( "WWDATA.VAR" )
ARGUMENT skipExplanations
IF skipExplanations = YY
BACKSTOP
PAGE
WIZPIC wizpics\wizmagic.gif
TYPE DESCRIPTION
DESCRIPTION \nNOW YOU'RE AN EXPERT!\n\nYou have just said YES to "expert mode", and told the wizard he can skip a few screens here and there that provide extra information.\n\nYou can change your mind about this. You can change now, by pressing the Previous button and making the change. But, you can also change your mind later.\n\nWhen you get the first wizard screen each time you start the program, there is a choice called "Wizard Settings". If you choose this, you can switch "expert mode" off an on.\n\nSo congratulations on your new status! May you have many happy hits on the Web!
ENDIF
ENDIF
IF skipExplanations = NN
IF nLoads < 6
BACKSTOP
PAGE
WIZPIC wizpics\welcome1.gif
TYPE DESCRIPTION
DESCRIPTION WELCOME to WEB SITE CREATOR!\nThis software is designed to create and publish a customized Web site for your family, requiring you to do little more than point and click and fill in the blanks. But, the software is also a powerful Web site development tool that can be used to create custom sites for any business or organization.\n\nTo automatically create a site for your family, click on the Next button to continue, and you will be guided through the steps to making a great looking family Web site.\n\nOr, to work on your own, and build a professional, results-oriented site, press the Cancel button and then select File-New from the menu to begin your own Web site project. If you choose this method, it will be up to you to design and create each page, and to link them together yourself.\n\nYou can refer to the tutorial for more information and there is also action-specific on-line help available any time.
ENDIF ;nLoads<3
BACKSTOP
PAGE
WIZPIC wizpics\welcome1.gif
TYPE DESCRIPTION
DESCRIPTION \nWELCOME!\n\nWelcome to the Homepage Expert, your very own Web Site Wizard! Using this process, your answers to a few questions about your family will result in the construction of a complete, customized, multiple-page family Web site.\n\nIf this is what you came for, press the Next button to continue. Otherwise, press the Cancel button and try something else.\n\nDuring this process, you can press the Next button to advance to the next screen and press the Previous button one or more times to go back to any earlier screen.
BACKSTOP
PAGE
WIZPIC wizpics\welcome2.gif
TYPE DESCRIPTION
DESCRIPTION \nGATHER `ROUND\nThis process will ask you some questions about the family. The software uses the answers to automatically build you a wonderful, customized, multiple-page Web site. For the most fun, and the best results, you should gather the entire family to participate in the process.\n\nPHOTOGRAPHS\nTo really add flair to your family Web site, you should have some photos of each family member to include in your family Web site. The pictures must be stored on your hard disk in digital format. That is, photos that were taken with a digital camera or scanned and saved as picture files.\n\nIf you don't have the electronic versions of your family's photographs, you can make them using any scanner. If you don't have access to a scanner, see the online documentation that came with this software to learn about scanning and how to obtain photos on disk so that they can then be used in your Web site.
BACKSTOP
PAGE
WIZPIC wizpics\welcome3.gif
TYPE DESCRIPTION
DESCRIPTION \nWORKING ON YOUR SITE\n\nBEING COMPLETE\nIn order for this program to build a customized family Web site, you will be asked a number of questions about your family. Don't worry if you can't supply all of the answers right now. You can always make changes later.\n\nSTARTING and STOPPING\nAs you proceed through the various sections of the Web site questionnaire, you will be given the opportunity to stop or to pause and preview the work you have done so far. If you find you must stop before you finish the whole Web site, don't worry! You can pick up where you left off and go to work on the parts you skipped.\n\nSo, let's get started!
ENDIF ;skipExplanations = no
GOTO NewSitePart2 ;xxxxxxxxxxxxxxxxx JUST TO BREAK FLOW FOR PROGRESS BAR xxxxxxx
#INCLUDE scripts\favorite.dat
[NewSitePart2]
;xxxxxxxxxxxxxxxxxxxxxxxxxxxx GET FAMILY NAME xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
SET familyLastName = ""
BACKSTOP Last
PAGE
NOSPELLCHECK
WIZPIC wizpics\wizfm128.gif
NAME familyLastName
TYPE EDIT
DESCRIPTION Enter your family's last name. Please type the name using initial capitals and any other capital letters that make the name appear correctly.\n\nFor example, type Tolson, or McCracken or LaRoche. Do Not type TOLSON, MCCRACKEN, and do not type tolson, mccracken, etc.
PROMPT &Last name:
IF familyLastName = ""
MESSAGEBOX "You must supply your family's last name before continuing."
ARGUMENT temp,1,0 ; Exclamation icon with Ok button
UNWIND Last
ENDIF
;xxxxxxxxxxxxxxxxxxxxxxxx ASK ABOUT PHOTOS xxxxxxxxxxxxxxxxxxxxxxxxxxx
; do they have photos available?
SET havePhotographs = NN
BACKSTOP
PAGE
DESCRIPTION_RE "To really add flair to your family Web site, you should have a photo of each family member to include in your Family Site. Do you have photographs of one or all of the members of the ",familyLastName," family stored on your hard disk in digital format? That is, files that were taken with a digital camera or scanned and saved as picture files."
TYPE RADIOBUTTONSWITHTEXT
WIZPIC wizpics\wiztheme.gif
NAME havePhotographs
ARGUMENT "&Yes. We have at least one digital photograph."@Yes@"\nChoose this one if you have photographs in electronic format.\n\nAs you proceed to fill out your family Web site, you will be prompted to browse for them to include."
ARGUMENT "N&o. We do not have digital photographs."@No@"\nChoose this item if you don't have any photographs in digital form right now.\n\nYou can always add the photos to the Web site later."
;xxxxxxxxxxxxxxxxxxxx GET THE FAMILY PHOTO xxxxxxxxxxxxxxxxxxxxxxxxxxx
BACKSTOP LastPhoto
IF havePhotographs = YY
SETTEMP fampix_prompt = "The first picture we need for your Web site is one showing your entire family. Press the browse button and locate a picture that shows all of the family members, or select any picture to use as a decoration in place of the family picture.\n\nYou can easily change this later to a different picture."
COPY newPhoto = familyPhoto
PAGE
WIZPIC wizpics\wizphoto.gif
TYPE PICTURE
NOSPELLCHECK
DESCRIPTION_RE fampix_prompt
NAME newPhoto
PROMPT &Family picture:
ELSE
GOSUB GetFamPlaceholderPix ;in UTIL.DAT
ENDIF
COPY familyPhoto = newPhoto
;xxxxxxxxxxxxxxxxxxxxxx CHOOSE STYLING, GET EMAIL xxxxxxxxxxxxxxx
GOSUB InitProjectVars
SET currentStyle = 1
GOSUB ChangeSiteStyle ;and set linkage pix
GOSUB GetEMail ;ask for family Email address
;set defaults for text pictures
SET textPixColor = "128,0,0" ;maroon
SET textPixBGColor = "192,192,192" ;silver
SET textPixFont = "Times New Roman,32,1" ; 32 point bold
;xxxxxxxxxxxxxxxxxxxxxxx ASK FOR SECTIONS TO INCLUDE xxxxxxxxxxxxxxxxxxxx
; ask what sections they intend to have
SET hasFavorites = 0
SET hasPastimes = 0
SET hasNotions = 0
SET hasNews = 0
SET hasMailBook = 0
BACKSTOP
PAGE
WIZPIC wizpics\wizhome.gif
TYPE CHECKBOXES
DESCRIPTION In addition to information about each family member, you can include any or all of the following sections in your family's Web site. Each item below represents an additional section to add to your customized Web site. Check the boxes for sections you would like to include. If you choose them now, the wizard will create an `UNDER CONSTRUCTION' page to mark their place until you build them.
ARGUMENT "Family P&astimes (how you have fun)"@hasPastimes@1,0@
ARGUMENT "Family &Favorites (things you like)"@hasFavorites@1,0@
ARGUMENT "Family Ne&wsletter and Announcements"@hasNews@1,0@
ARGUMENT "Family and Friends &E-Mail Directory"@hasMailBook@1,0@
;xxxxxxxxxxxxxxxxx GET NUMBER OF FAMILY MEMBERS xxxxxxxxxxxxxxxxxx
SET nMembers = ""
BACKSTOP BeginMembers
PAGE
WIZPIC wizpics\wizfm128.gif
TYPE EDIT
PROMPT Number of &members (1-11 using digits only):
DESCRIPTION_RE "How many family members will be included in the ",familyLastName," family Web site? Usually this is only the family members that live together, but you could include extended family members. Also, many families have a pet that is treated like a family member or simply a 'special friend'. You can include a page for your pet (or pets) on the Web site if you like. So enter the total number of family members, including pets."
NAME nMembers
IF nMembers < 1 || nMembers > 11
MESSAGEBOX "You have entered an invalid number or no number at all. The number of family members must be between 1 and 11."
ARGUMENT temp,1,0
UNWIND BeginMembers
ENDIF
SETTEMP StartMembers = 1
;xxxxxxxxxxxxxxxxx GET NAMES/TYPES OF FAMILY MEMBERS xxxxxxxxxxxxxxxxxx
IF nMembers <> 1
SETTEMP nNumber = nMembers
GOSUB Ordinal
BACKSTOP
PAGE
WIZPIC wizpics\welcome3.gif
TYPE DESCRIPTION
DESCRIPTION_RE " ENTER FAMILY MEMBER NAMES\n\nTo reserve places for the ",numeral," ",familyLastName," family members, you will now be asked to supply their names and gender.\n\nThe order in which you provide the names determines the order they are listed on the `Meet the Family' page.\n\nSo you might want to list the parents first. Or, maybe you want to list the children first.\n\nBut think about it for a moment and then go!"
ENDIF
SETTEMP passageVar = "nextMember"
SETTEMP lastPassage = 0
; for each member, get the name, gender, type, and photo
BACKSTOP InputMember1
SETTEMP nextMember = 1
GOSUB AdvancePassage
GOSUB GetInitMemberInfo
SETBACKSTOP InputMember1
IF nMembers > 1
BACKSTOP InputMember2
SETTEMP nextMember = 2
GOSUB AdvancePassage
GOSUB GetInitMemberInfo
SETBACKSTOP InputMember2
IF nMembers > 2
BACKSTOP InputMember3
SETTEMP nextMember = 3
GOSUB AdvancePassage
GOSUB GetInitMemberInfo
SETBACKSTOP InputMember3
ENDIF ; >2
ENDIF ; >1
IF nMembers > 3
BACKSTOP InputMember4
SETTEMP nextMember = 4
GOSUB AdvancePassage
GOSUB GetInitMemberInfo
SETBACKSTOP InputMember4
IF nMembers > 4
BACKSTOP InputMember5
SETTEMP nextMember = 5
GOSUB AdvancePassage
GOSUB GetInitMemberInfo
SETBACKSTOP InputMember5
IF nMembers > 5
BACKSTOP InputMember6
SETTEMP nextMember = 6
GOSUB AdvancePassage
GOSUB GetInitMemberInfo
SETBACKSTOP InputMember6
ENDIF ; >5
ENDIF ; >4
ENDIF ; >3
IF nMembers > 6
BACKSTOP InputMember7
SETTEMP nextMember = 7
GOSUB AdvancePassage
GOSUB GetInitMemberInfo
SETBACKSTOP InputMember7
IF nMembers > 7
BACKSTOP InputMember8
SETTEMP nextMember = 8
GOSUB AdvancePassage
GOSUB GetInitMemberInfo
SETBACKSTOP InputMember8
IF nMembers > 8
BACKSTOP InputMember9
SETTEMP nextMember = 9
GOSUB AdvancePassage
GOSUB GetInitMemberInfo
SETBACKSTOP InputMember9
ENDIF ; >8
ENDIF ; >7
ENDIF ; >6
IF nMembers > 9
BACKSTOP InputMember10
SETTEMP nextMember = 10
GOSUB AdvancePassage
GOSUB GetInitMemberInfo
SETBACKSTOP InputMember10
IF nMembers > 10
BACKSTOP InputMember11
SETTEMP nextMember = 11
GOSUB AdvancePassage
GOSUB GetInitMemberInfo
SETBACKSTOP InputMember11
ENDIF ; >10
ENDIF ; >9
SETTEMP StartMembers = 0
;xxxxxxxxxxxxxxxxxx END OF INPUT MEMBER NAMES/TYPES xxxxxxxxxxxxxxxxxxxxxx
;xxxxxxxxxxxxxxxxx MAKE THE TOPICS FOR THE SITE & MEET FAMILY xxxxxxxxxxxx
ARGUMENT "Please wait a moment longer while the wizard adds the fun links and updates the home page."
GOSUB MakeLinksPage ;in UTIL.DAT
GOSUB BuildHomePage ;in HOMEPAGE.DAT
BUILDLINKS
BUSY 0
;xxxxxxxxxxxxxxxxxx FILL OUT the Meet the Family section xxxxxxxxxxxxxxxxxxxx
SET infoRetrievedArray = ""
IF skipExplanations = NN
BACKSTOP
PAGE
TYPE DESCRIPTION
WIZPIC wizpics\wizfm128.gif
DESCRIPTION GET READY ...\nIn the screens that follow you will be asked to supply information about each of the members in your family.\n\nFor the most fun, and the best results, you should gather the entire family to participate in the process. It's lots of fun to share like this!\n\nBut, at a minimum, you should have each person come to the computer one at a time when their own pages are being built.
ENDIF
BACKSTOP
PAGE
WIZPIC wizpics\wizchooz.gif
NAME temp
TYPE RADIOBUTTONS
DESCRIPTION At this time, the wizard has made basic pages for each family member. You can proceed and enter the remaining information for each family member now if you like. Or you can move on to something else and do that later.\n\nDo you want to fill in the remaining family member information now?
ARGUMENT "&Enter family member information"@Yes
ARGUMENT "&Skip this for now"@No
IF temp = YY
GOSUB GetAndBuildFamilyMember ;pick members, input detail info; write a page
GOSUB OfferToPreview
ELSE
MESSAGEBOX "OK. You can skip entering the family member details. The next time you start the Homepage Expert, you will be reminded that the family members are incomplete."
ARGUMENT temp,0,0
ENDIF
;xxxxxxxxxxxxxxxxxxxxx OFFER TO MAKE OTHER SITE SECTIONS xxxxxxxxxx
IF hasFavorites = 1
BACKSTOP BeforeMakingFavorites
GOSUB OfferToMakeFavorites
SETBACKSTOP BeforeMakingFavorites
ENDIF
IF hasPastimes = 1
BACKSTOP BeforeMakingPastimes
GOSUB OfferToMakePastimes
SETBACKSTOP BeforeMakingPastimes
ENDIF
IF hasNotions = 1
BACKSTOP BeforeMakingNotions
GOSUB OfferToMakeNotions
SETBACKSTOP BeforeMakingNotions
ENDIF
IF hasNews = 1
BACKSTOP BeforeMakingNews
GOSUB OfferToMakeNews
SETBACKSTOP BeforeMakingNews
ENDIF
IF hasMailBook = 1
BACKSTOP BeforeMakingMailBook
GOSUB OfferToMakeMailBook
SETBACKSTOP BeforeMakingMailBook
ENDIF
;xxxxxxxxxxxxxxxxx GET / VERIFY SERVER INFORMATION xxxxxxxxxxxxxxxxxxxxxxxx
GOSUB ServerBegin ; in SERVER.DAT - get FTP server info
GOSUB SaveVariables
SETTEMP nNumber = dummy_sections
GOSUB Ordinal
SETTEMP don_prmpt = "CONGRATULATIONS\nYou have completed the site building process. "
IF dummy_sections > 0
IF dummy_sections > 1
SETTEMP plural = "s"
ELSE
SETTEMP plural = ""
ENDIF
SETTEMP don_prmpt = don_prmpt,"You did leave ",numeral," section",plural," of the site to fill in later."
ENDIF
SETTEMP don_prmpt = don_prmpt,"\n\nYou can add more sections, or add to sections you have already started, any time. And, of course, you can make changes to your site any time at all."
SETTEMP don_prmpt = don_prmpt,"\n\nYou can now publish your site (upload the files to the Internet) or you can just call it a day. When you press the Next button, there will be a brief pause, and then you will be given some choices which include previewing your site, publishing your site, or making changes."
IF havePhotographs = NN
SETTEMP don_prmpt = don_prmpt,"\n\nWhen you are able to obtain digital photographs of your family, be sure to use the choices from the Homepage Expert to add these pictures to your site. Then the wizard can make sure they fit just right!"
ELSE
SETTEMP don_prmpt = don_prmpt,"\n\nIf you decide to change the family photo or the photos for any of the family members, be sure to use the choices from the Homepage Expert to add these pictures to your site. Then the wizard can make sure they fit just right!"
ENDIF
PAGE
TYPE DESCRIPTION
WIZPIC wizpics\wiztheme.gif
DESCRIPTION_RE don_prmpt
NOPREVIOUS
CLOSE
STOPWIZARD
RUNSCRIPT "scripts\modify.dat"
ARGUMENT callPosition
;xxxxxxxxxxxxxxxxxxxxxxxxx END OF NEW SITE CREATION xxxxxxxxxxxxxxxxxxxx
#INCLUDE scripts\nwmember.dat
#INCLUDE scripts\mem_pix.dat
;xxxxxxxxxxxxxxxxxxxx GET BASIC MEMBER's INFO xxxxxxxxxxxxxxxxxxxxxxxxxxxxx
[GetInitMemberInfo] ; following routines in NWMEMBER.DAT
SETTEMP nSel = nextMember
SETTEMP nNumber = nSel
GOSUB Ordinal
IF nSel = 1
SETTEMP caption = "Now it's time to enter the ",ordinal," family member into the site. You begin by entering their first name.\n\n"
ELSE
SETTEMP caption = "ENTER FAMILY MEMBER ",nSel,"\nAs we continue, you are now going to enter information for the ",ordinal," family member, starting with their first name.\n\n"
;xxxxxxxxxxxxxxxxxxxxx SETUP PROJECT NAME and FILES xxxxxxxxxxxxxxxxxxxxxxxx
[MakeSiteProject]
BUSY 1
ARGUMENT "Please be patient for a few moments. The wizard is making the disk files for the Web site and building the ",familyLastName," family's home page!"
; HPJ derived from family name
MAKEDIR modulepath( "sites" )
SETTEMP filen = "sites\",familyLastName,".HPJ"
SETTEMP filen = modulepath( filen )
SETTEMP filen = uniquefile( filen )
SETTEMP hpjFile = filen
SETTEMP doBackdrop = YY
SET Themecolor = ""
SET backdropColor = ""
SET activeLinkColor = ""
SET visitedLinkColor = ""
SET linkColor = ""
SET Style = "Web Site"
; make the project file
CREATEPROJECT hpjFile
PROJECTSETTINGS
BACKDROP backdrop
BACKDROPCOLOR backdropColor
ACTIVELINKCOLOR activeLinkColor
LINKCOLOR linkColor
VISITEDLINKCOLOR visitedLinkColor
EMAIL email
BACKDROPCOLOR backdropColor
STYLE Style
THEMECOLOR Themecolor
BMROOT ""
; build a temporary home page to place other topics under it in hierarchy
SETPARENTTOPIC ""
BUILDTOPIC "##DummyContents"
REPLACE pageContents
""
none ; backdrop
0 ; level
0 ; links
0 ; # of fields in template
SET pageContents = topicfromsymbolic( "##DummyContents" )
