home *** CD-ROM | disk | FTP | other *** search
/ Carousel / CAROUSEL.cdr / mactosh / hc / macadlib.sit / MacAdLib / card_4705.txt < prev    next >
Encoding:
Text File  |  1988-11-14  |  1.5 KB  |  68 lines
  1. -- card: 4705 from stack: in
  2. -- bmap block id: 5060
  3. -- flags: 0000
  4. -- background id: 2722
  5. -- name: Mad lib card
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 8003
  11. -- rect: left=284 top=302 right=325 bottom=436
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Make new MacAd lib
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   put any line of field 1 of card "People" into temp1
  23.   put temp1 && any line of field 1 of card "verbs" into temp2
  24.   put temp2 && any line of field 1 of card "adverbs" into temp3
  25.   put temp3 & "." into temp
  26.   put temp into card field 1 of card "Mad lib card"
  27. end mouseUp
  28.  
  29.  
  30.  
  31. -- part 2 (field)
  32. -- low flags: 00
  33. -- high flags: 0000
  34. -- rect: left=141 top=101 right=205 bottom=356
  35. -- title width / last selected line: 0
  36. -- icon id / first selected line: 0 / 0
  37. -- text alignment: 0
  38. -- font id: 2
  39. -- text size: 12
  40. -- style flags: 256
  41. -- line height: 16
  42. -- part name: 
  43.  
  44.  
  45. -- part 3 (button)
  46. -- low flags: 00
  47. -- high flags: 0003
  48. -- rect: left=133 top=290 right=327 bottom=171
  49. -- title width / last selected line: 0
  50. -- icon id / first selected line: 21700 / 21700
  51. -- text alignment: 1
  52. -- font id: 0
  53. -- text size: 12
  54. -- style flags: 0
  55. -- line height: 16
  56. -- part name: Go back home
  57. ----- HyperTalk script -----
  58. on mouseUp
  59.   visual effect venetian blinds to white
  60.   visual effect venetian blinds to card
  61.   go home
  62. end mouseUp
  63.  
  64.  
  65.  
  66. -- part contents for card part 2
  67. ----- text -----
  68. Sheila goes on dates with a spoon.