home *** CD-ROM | disk | FTP | other *** search
/ Your Web Site Creator / Your Web Site Creator.iso / WebSite / data1.cab / Program_Executable_Files / scripts / Mem_pix.dat < prev    next >
Encoding:
Text File  |  1999-01-13  |  6.7 KB  |  195 lines
  1. ; MEM_PIX.DAT    Get Family Member Photo
  2. [GetMemberPicture]
  3. COPY photo = eval( "memberPhoto",nSel )
  4. SETTYPE photo = normal
  5. SETTEMP memberHasPhotoVar = "memberHasPhoto",nSel
  6. SETTEMP hasPhoto = eval( memberHasPhotoVar )
  7.  
  8. IF type <> = "Pet"
  9.   SETTEMP photo_prmt = "A picture of ",name,pers_pix3
  10.   SETTEMP junk = name," ",familyLastName
  11.   SETTEMP wizPic = "wizpics\wizphoto.gif"
  12. ELSE
  13.   SETTEMP photo_prmt = pet_n1,name,pet_n2
  14.   SETTEMP junk = "Our pet: ",name
  15.   SETTEMP wizPic = "wizpics\wizpet.gif"
  16.   IF photo = ""
  17.     SETTEMP photo = modulepath( "wizpics\pet.gif" )
  18.   ENDIF
  19. ENDIF
  20.  
  21. IF hasPhoto = "Standard"
  22.     GOSUB PickStdPhoto
  23. ELSE
  24.    IF hasPhoto = NN
  25.       ;build one with TEXT2PIX
  26.       GOSUB MakeMemberPhotoPlaceholder
  27.    ELSE      ;answer must be yup
  28.  
  29.       BACKSTOP  
  30.       PAGE
  31.       NOSPELLCHECK
  32.       WIZPIC_RE wizPic
  33.       TYPE PICTUREANDCAPTION
  34.       DESCRIPTION_RE photo_prmt
  35.       NAME photo
  36.       PROMPT P&icture:
  37.       ARGUMENT @junk
  38.    ENDIF
  39. ENDIF
  40.  
  41. SETSCALE photo = 180 220
  42.  
  43. SETTYPE photo = normal
  44.  
  45. SETTYPE photo = picture
  46. COPY eval( "memberPhoto",nSel ) = photo
  47.  
  48.  
  49. ;xxxxxxxxxxxxxxxxxxxxxxxx  CHOOSE DEFAULT PICTURE xxxxxxxxxxxxxxxxxxxxxxxxx
  50. [PickStdPhoto]
  51. SETTEMP caption = "Pick one of these to use until you are ready to add a digital picture.  You can easily change to a different picture later."
  52. SETTEMP photo = unmodulepath( photo )
  53.  
  54. IF type = "Pet"
  55.   GOTO ChooseStandardPetPix
  56. ENDIF
  57. ;
  58. IF gender = "male"
  59. ;       the male choices
  60. BACKSTOP
  61. PAGE
  62. WIZPIC wizpics\wizfm128.gif
  63. TYPE COMBO
  64. NAME photo
  65. DESCRIPTION_RE caption
  66. PROMPT P&icture:
  67. ARGUMENT "Canine Dad"@clip_art\people\dog_pop.gif@"clip_art\people\dog_pop.gif"
  68. ARGUMENT "Canine Brother"@clip_art\people\dog_bro.gif@"clip_art\people\dog_bro.gif"
  69. ARGUMENT "Pop Bear"@clip_art\people\papa_b.gif@"clip_art\people\papa_b.gif"
  70. ARGUMENT "Accounting Bird"@clip_art\people\bird2.gif@"clip_art\people\bird2.gif"
  71. ARGUMENT "Baseball Bird"@clip_art\people\bird3.gif@"clip_art\people\bird3.gif"
  72. ARGUMENT "Junior Bear"@clip_art\people\junior_b.gif@"clip_art\people\junior_b.gif"
  73. ARGUMENT "The Wizard Chef"@wizpics\chefwiz.gif@"wizpics\chefwiz.gif"
  74. ARGUMENT "Atza Nice Chef"@clip_art\people\chef3.gif@"clip_art\people\chef3.gif"
  75. ARGUMENT "Little Boy Wizard"@wizpics\is_boy.gif@"wizpics\is_boy.gif"
  76. ARGUMENT "Cartoon Boy"@clip_art\people\lad_1.gif@"clip_art\people\lad_1.gif"
  77. ARGUMENT "Professional Man"@clip_art\people\man_1.gif@"clip_art\people\man_1.gif"
  78. ARGUMENT "Casual Man"@clip_art\people\man_2.gif@"clip_art\people\man_2.gif"
  79. ARGUMENT "Male Silhouette"@wizpics\man.gif@"wizpics\man.gif"
  80.  
  81. ELSE
  82.    ;the female choices
  83. BACKSTOP
  84. PAGE
  85. WIZPIC wizpics\wizfm128.gif
  86. TYPE COMBO
  87. NAME photo
  88. DESCRIPTION_RE caption
  89. PROMPT P&icture:
  90. ARGUMENT "Canine Mom"@clip_art\people\dog_mom.gif@"clip_art\people\dog_mom.gif"
  91. ARGUMENT "Canine Sister"@clip_art\people\dog_sis.gif@"clip_art\people\dog_sis.gif"
  92. ARGUMENT "Mom Bear"@clip_art\people\mama_b.gif@"clip_art\people\mama_b.gif"
  93. ARGUMENT "Sister Bear"@clip_art\people\sis_b2.gif@"clip_art\people\sis_b2.gif"
  94. ARGUMENT "Shopping Bird"@clip_art\people\bird4.gif@"clip_art\people\bird4.gif"
  95. ARGUMENT "Little Girl Wizard"@wizpics\is_girl.gif@"wizpics\is_girl.gif"
  96. ARGUMENT "Cartoon Girl"@clip_art\people\girl_1.gif@"clip_art\people\girl_1.gif"
  97. ARGUMENT "Lady Frazzle"@clip_art\people\frazzled.gif@"clip_art\people\frazzled.gif"
  98. ARGUMENT "Professional Woman"@clip_art\people\fem_bus.gif@"clip_art\people\fem_bus.gif"
  99. ARGUMENT "Cartoon Woman"@clip_art\people\fem_car.gif@"clip_art\people\fem_car.gif"
  100. ARGUMENT "Modern Woman"@clip_art\people\fem_hip.gif@"clip_art\people\fem_hip.gif"
  101. ARGUMENT "Female Silhouette"@wizpics\woman.gif@"wizpics\woman.gif"
  102.  
  103. ENDIF
  104.  
  105. [ChooseStandardPetPix]    ;xxxxxxxxxxxxxxx STANDARD PET PICTURE xxxxxxxx
  106. BACKSTOP
  107. PAGE
  108. WIZPIC wizpics\wizpet.gif
  109. TYPE COMBO
  110. NAME photo
  111. DESCRIPTION_RE caption
  112. PROMPT P&icture:
  113. ARGUMENT "Black Dog on Leash"@clip_art\animals\dog2.gif@"clip_art\animals\dog2.gif"
  114. ARGUMENT "Brown Dog Peeking"@clip_art\animals\dog3.gif@"clip_art\animals\dog3.gif"
  115. ARGUMENT "Black Cat on Alert"@clip_art\animals\cat.gif@"clip_art\animals\cat.gif"
  116. ARGUMENT "Big kitty!"@clip_art\animals\tiger.gif@"clip_art\animals\tiger.gif"
  117. ARGUMENT "3 Little Kittens"@clip_art\animals\kittens.gif@"clip_art\animals\kittens.gif"
  118. ARGUMENT "Green Parakeet"@clip_art\animals\bird_1.gif@"clip_art\animals\bird_1.gif"
  119. ARGUMENT "Lizard"@clip_art\animals\lizard_2.gif@"clip_art\animals\lizard_2.gif"
  120. ARGUMENT "Red Parrot"@clip_art\animals\bird_2.gif@"clip_art\animals\bird_2.gif"
  121. ARGUMENT "Fish Drawing"@clip_art\animals\fish2.gif@"clip_art\animals\fish2.gif"
  122. ARGUMENT "Rhino!"@clip_art\animals\rhino.gif@"clip_art\animals\rhino.gif"
  123.  
  124.  
  125. ;xxxxxxxxxx  Construct a member picture placeholder xxxxxxxx
  126. [MakeMemberPhotoPlaceholder]
  127. MAKEDIR modulepath( "pictures" )
  128.  
  129. SETTEMP memNameVar = "memberName",nSel
  130. SETTEMP file_pix_name = eval( memNameVar )
  131.  
  132. SETTEMP dir = modulepath( "pictures" )
  133. MAKEDIR dir
  134. SETTEMP pictureFile = dir,"\",file_pix_name,".gif"
  135. SETTEMP pictureFile = uniquefile( pictureFile )
  136.  
  137. SETTEMP shadowColor = "128,128,128"        ;grey
  138.  
  139. ; create a data file for the TEXT2PIX program
  140. DATAFILE modulepath( "mem_pix.cfg" )
  141. ARGUMENT eval( memNameVar )
  142. ARGUMENT textPixFont
  143. ARGUMENT textPixColor
  144. ARGUMENT shadowColor
  145. ARGUMENT textPixBGColor
  146. ARGUMENT "3 3"
  147. ARGUMENT "1"
  148. ARGUMENT "1 1 0 1" ;show text, show shadow, not transparent, convert to 256 col
  149. ARGUMENT pictureFile
  150.  
  151. EXECUTE modulepath( "text2pix.exe" )," ",modulepath( "mem_pix.cfg" )
  152.  
  153. SETTYPE pictureFile = normal
  154. COPY photo = pictureFile
  155.  
  156. ;xxxxxxxxxxxxxxxxxxxxx REPLACE FAMILY MEMBER PHOTO xxxxxxxxxxxxxxxxxx
  157.  
  158. [ReplaceMemberPhoto]
  159. ; preconditions: photo and oldPhoto must be set
  160. ; variables must be normal to call REPLACEPICTURE
  161. SETTYPE oldPhoto = normal
  162. SETTYPE photo = normal
  163.  
  164. BUSY 1
  165. ARGUMENT "The wizard is now replacing the personal photo of this family member.  It will take just a moment."
  166.  
  167. ; replace in Meet The Family page
  168. REPLACEPICTURE oldPhoto photo 80 60 pageMeetFamily
  169.  
  170. ; replace in personal page
  171. SETTEMP memberPageVar = "memberPage",nSel
  172. SETTEMP personalPage = eval( memberPageVar )
  173. REPLACEPICTURE oldPhoto photo 180 256 personalPage
  174.  
  175. ; replace in personal linkage page
  176. SETTEMP memberLinkPageVar = "memberLinkagePage",nSel
  177. SETTEMP memberLinkPage = eval( memberLinkPageVar )
  178. SETTEMP hasLinkPage = istopic( memberLinkPage )
  179. IF hasLinkPage = YY
  180.   REPLACEPICTURE oldPhoto photo 180 256 memberLinkPage
  181.  
  182.   GOSUB DeterminePersPages    ;see what's there
  183.   IF hasMPFavs = YY
  184.     REPLACEPICTURE oldPhoto photo 180 256 pageMPFavsVar
  185.   ENDIF
  186.   IF hasMPActs = YY
  187.     REPLACEPICTURE oldPhoto photo 180 256 pageMPActsVar
  188.   ENDIF
  189.   IF hasMPNews = YY
  190.     REPLACEPICTURE oldPhoto photo 180 256 pageMPNewsVar
  191.   ENDIF
  192. ENDIF
  193.  
  194. BUSY 0
  195.