home *** CD-ROM | disk | FTP | other *** search
/ Blender Volume 2 #3 / Blender_2_3.iso / BLENDER / FILES / POPCULT.DIR / 00022.ls < prev    next >
Encoding:
Text File  |  1996-04-01  |  1.1 KB  |  41 lines
  1. on revealFortune name, problem, myText
  2.   set FlAG1 to 1
  3.   set flag2 to 1
  4.   repeat while FlAG1 or flag2
  5.     if FlAG1 then
  6.       set FlAG1 to offset("#", myText)
  7.       if FlAG1 then
  8.         put name into char FlAG1 of myText
  9.       end if
  10.     end if
  11.     if flag2 then
  12.       set flag2 to offset("@", myText)
  13.       if flag2 then
  14.         put problem into char flag2 of myText
  15.       end if
  16.     end if
  17.   end repeat
  18.   put myText into field "fortune"
  19. end
  20.  
  21. on initText
  22.   set name to the number of cast "Name"
  23.   repeat with i = name to name + 1
  24.     set the text of field i to " "
  25.     set the textSize of field i to 12
  26.     set the textHeight of field i to 14
  27.     set the textFont of field i to "Geneva"
  28.     set the textStyle of field i to "Plain"
  29.     set the foreColor of field i to 5
  30.     set the text of field i to EMPTY
  31.   end repeat
  32.   set i to name + 2
  33.   set the text of field i to " "
  34.   set the textSize of field i to 12
  35.   set the textHeight of field i to 16
  36.   set the textFont of field i to "Geneva"
  37.   set the textStyle of field i to "Plain"
  38.   set the foreColor of field i to 5
  39.   set the text of field i to EMPTY
  40. end
  41.