home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 5 / BBS in a Box -Volume V (BBS in a Box) (April 1992).iso / Files / Hyper / Ap-Az / AstroStack1.1.cpt / AstroStack 1.1 / card_8882.txt < prev    next >
Encoding:
Text File  |  1988-04-24  |  11.1 KB  |  270 lines
  1. -- card: 8882 from stack: in.1
  2. -- bmap block id: 9951
  3. -- flags: 0000
  4. -- background id: 2632
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on openCard
  8.   hide card field id 4
  9. end opencard
  10.  
  11.  
  12.  
  13. -- part 1 (field)
  14. -- low flags: 01
  15. -- high flags: 0000
  16. -- rect: left=166 top=112 right=303 bottom=242
  17. -- title width / last selected line: 0
  18. -- icon id / first selected line: 0 / 0
  19. -- text alignment: 65535
  20. -- font id: 0
  21. -- text size: 12
  22. -- style flags: 0
  23. -- line height: 19
  24. -- part name: 
  25.  
  26.  
  27. -- part 2 (field)
  28. -- low flags: 00
  29. -- high flags: 4002
  30. -- rect: left=240 top=113 right=302 bottom=318
  31. -- title width / last selected line: 0
  32. -- icon id / first selected line: 0 / 0
  33. -- text alignment: 0
  34. -- font id: 3
  35. -- text size: 12
  36. -- style flags: 0
  37. -- line height: 19
  38. -- part name: 
  39.  
  40.  
  41. -- part 3 (button)
  42. -- low flags: 00
  43. -- high flags: A003
  44. -- rect: left=199 top=310 right=332 bottom=299
  45. -- title width / last selected line: 0
  46. -- icon id / first selected line: 0 / 0
  47. -- text alignment: 1
  48. -- font id: 0
  49. -- text size: 12
  50. -- style flags: 0
  51. -- line height: 16
  52. -- part name: Continue
  53. ----- HyperTalk script -----
  54. on mouseUp
  55.   global hour, sun, moon, mercury, venus, mars, jupiter, saturn, uranus, neptune, pluto, sunX, moonX, mercuryX, venusX, marsX, jupiterX, saturnX,uranusX, neptuneX, plutoX, ascendA, ascendB, ascendC, midA, midB, ascendant,  name, dateA
  56.   set cursor to 4
  57.  
  58.   repeat with x = 1 to 10
  59.     if the number of items in line x of card field id 2 <> 2
  60.     then
  61.     beep
  62.     answer "Line " & x && "must have 2 numbers and 1 comma."
  63.     exit mouseUp
  64.   end if
  65. end repeat
  66.  
  67. put name into card field id 1 of card id 10033
  68. put dateA into card field id 2 of card id 10033
  69.  
  70. if sunX < sun then
  71.   put (sun - (item 1 of line 1 of card field id 2 + ((item 2 of line 1 of card field id 2)/60)) )into sun
  72. else put (sun + (item 1 of line 1 of card field id 2 + ((item 2 of line 1 of card field id 2)/60)) )into sun
  73.  
  74. if moonX < moon then
  75.   put (moon - (item 1 of line 2 of card field id 2 + ((item 2 of line 2 of card field id 2)/60)) )into moon
  76. else put (moon + (item 1 of line 2 of card field id 2 + ((item 2 of line 2 of card field id 2)/60)) )into moon
  77. if mercuryX < mercury then
  78.   put (mercury - (item 1 of line 3 of card field id 2 + ((item 2 of line 3 of card field id 2)/60)) )into mercury
  79. else put (mercury + (item 1 of line 3 of card field id 2 + ((item 2 of line 3 of card field id 2)/60)) )into mercury
  80. if venusX < venus then
  81.   put (venus - (item 1 of line 4 of card field id 2 + ((item 2 of line 4 of card field id 2)/60)) )into venus
  82. else put (venus + (item 1 of line 4 of card field id 2 + ((item 2 of line 4 of card field id 2)/60)) )into venus
  83. if marsX < mars then
  84.   put (mars - (item 1 of line 5 of card field id 2 + ((item 2 of line 5 of card field id 2)/60)) )into mars
  85. else put (mars + (item 1 of line 5 of card field id 2 + ((item 2 of line 5 of card field id 2)/60)) )into mars
  86. if jupiterX < jupiter then
  87.   put (jupiter - (item 1 of line 6 of card field id 2 + ((item 2 of line 6 of card field id 2)/60)) )into jupiter
  88. else put (jupiter + (item 1 of line 6 of card field id 2 + ((item 2 of line 6 of card field id 2)/60)) )into jupiter
  89. if saturnX < saturn then
  90.   put (saturn - (item 1 of line 7 of card field id 2 + ((item 2 of line 7 of card field id 2)/60)) )into saturn
  91. else put (saturn + (item 1 of line 7 of card field id 2 + ((item 2 of line 7 of card field id 2)/60)) )into saturn
  92. if uranusX < uranus then
  93.   put (uranus - (item 1 of line 8 of card field id 2 + ((item 2 of line 8 of card field id 2)/60)) )into uranus
  94. else put (uranus + (item 1 of line 8 of card field id 2 + ((item 2 of line 8 of card field id 2)/60)) )into uranus
  95. if neptuneX < neptune then
  96.   put (neptune - (item 1 of line 9 of card field id 2 + ((item 2 of line 9 of card field id 2)/60)) )into neptune
  97. else put (neptune + (item 1 of line 9 of card field id 2 + ((item 2 of line 9 of card field id 2)/60)) )into neptune
  98. if plutoX < pluto then
  99.   put (pluto - (item 1 of line 10 of card field id 2 + ((item 2 of line 10 of card field id 2)/60)) )into pluto
  100. else put (pluto + (item 1 of line 10 of card field id 2 + ((item 2 of line 10 of card field id 2)/60)) )into pluto
  101.  
  102. if sun < 0 then add 360 to sun
  103. if moon < 0 then add 360 to moon
  104. if mercury < 0 then add 360 to mercury
  105. if venus < 0 then add 360 to venus
  106. if mars < 0 then add 360 to mars
  107. if jupiter < 0 then add 360 to jupiter
  108. if saturn < 0 then add 360 to saturn
  109. if uranus < 0 then add 360 to uranus
  110. if neptune < 0 then add 360 to neptune
  111. if pluto < 0 then add 360 to pluto
  112.  
  113. repeat with x = 1 to 12
  114.   if ascendA = item 1 of line x of card field id 4  then
  115.     put (item 2 of line x of card field id 4) + ascendB + (ascendC/60) into ascendant
  116.     exit repeat
  117.   end if
  118. end repeat
  119.  
  120. if sun >= ascendant then put the value of (sun - ascendant) into sunhouse
  121. else put the value of (sun + 360 - ascendant) into sunhouse
  122. put (trunc(sunhouse/30) + 1) into sunhouse
  123. repeat with x = 1 to 12
  124.   if sun >= item 2 of line x of card field id 4 and sun < (30 + item 2 of line x of card field id 4) then
  125.     put sun - item 2 of line x of card field id 4 into z
  126.     put item 1 of line x of card field id 4 && the value of (60 * z) div 60 & "¬∞"&& the value of (60 * z) mod 60 & "'  (House " & sunhouse & ")" into line 1 of card field id 4 of card id 10033
  127.     exit repeat
  128.   end if
  129. end repeat
  130.  
  131. if moon >= ascendant then put (moon - ascendant) into moonhouse
  132. else put (moon + 360 - ascendant) into moonhouse
  133. put (trunc(moonhouse/30) + 1) into moonhouse
  134. repeat with x = 1 to 12
  135.   if moon >= item 2 of line x of card field id 4 and moon < (30 + item 2 of line x of card field id 4) then
  136.     put moon - item 2 of line x of card field id 4 into z
  137.     put item 1 of line x of card field id 4 && the value of (60 * z) div 60  & "¬∞"&& the value of (60 * z) mod 60 & "'  (House " & moonhouse & ")" into line 2 of card field id 4 of card id 10033
  138.     exit repeat
  139.   end if
  140. end repeat
  141.  
  142. if mercury >= ascendant then put (mercury - ascendant) into mercuryhouse
  143. else put (mercury + 360 - ascendant) into mercuryhouse
  144. put trunc(mercuryhouse/30) + 1 into mercuryhouse
  145. repeat with x = 1 to 12
  146.   if mercury >= item 2 of line x of card field id 4 and mercury < (30 + item 2 of line x of card field id 4) then
  147.     put mercury - item 2 of line x of card field id 4 into z
  148.     put item 1 of line x of card field id 4 && the value of (60 * z) div 60 & "¬∞"&& the value of (60 * z) mod 60 & "'  (House " & mercuryhouse & ")" into line 3 of card field id 4 of card id 10033
  149.     exit repeat
  150.   end if
  151. end repeat
  152.  
  153.  
  154. if venus >= ascendant then put (venus - ascendant) into venushouse
  155. else put (venus + 360 - ascendant) into venushouse
  156. put trunc(venushouse/30) + 1 into venushouse
  157. repeat with x = 1 to 12
  158.   if venus >= item 2 of line x of card field id 4 and venus < (30 + item 2 of line x of card field id 4) then
  159.     put venus - item 2 of line x of card field id 4 into z
  160.     put item 1 of line x of card field id 4 && the value of (60 * z) div 60 & "¬∞"&& the value of (60 * z) mod 60 & "'  (House " & venushouse & ")" into line 4 of card field id 4 of card id 10033
  161.     exit repeat
  162.   end if
  163. end repeat
  164.  
  165. if mars >= ascendant then put (mars - ascendant) into marshouse
  166. else put (mars + 360 - ascendant) into marshouse
  167. put trunc(marshouse/30) + 1 into marshouse
  168. repeat with x = 1 to 12
  169.   if mars >= item 2 of line x of card field id 4 and mars < (30 + item 2 of line x of card field id 4) then
  170.     put mars - item 2 of line x of card field id 4 into z
  171.     put item 1 of line x of card field id 4 && the value of (60 * z) div 60 & "¬∞"&& the value of (60 * z) mod 60 & "'  (House " & marshouse & ")" into line 5 of card field id 4 of card id 10033
  172.     exit repeat
  173.   end if
  174. end repeat
  175.  
  176. if jupiter >= ascendant then put (jupiter - ascendant) into jupiterhouse
  177. else put (jupiter + 360 - ascendant) into jupiterhouse
  178. put trunc(jupiterhouse/30) + 1 into jupiterhouse
  179. repeat with x = 1 to 12
  180.   if jupiter >= item 2 of line x of card field id 4 and jupiter < (30 + item 2 of line x of card field id 4) then
  181.     put jupiter - item 2 of line x of card field id 4 into z
  182.     put item 1 of line x of card field id 4 && the value of (60 * z) div 60 & "¬∞"&& the value of (60 * z) mod 60 & "'  (House " & jupiterhouse & ")" into line 6 of card field id 4 of card id 10033
  183.     exit repeat
  184.   end if
  185. end repeat
  186.  
  187. if saturn >= ascendant then put (saturn - ascendant) into saturnhouse
  188. else put (saturn + 360 - ascendant) into saturnhouse
  189. put trunc(saturnhouse/30) + 1 into saturnhouse
  190. repeat with x = 1 to 12
  191.   if saturn >= item 2 of line x of card field id 4 and saturn < (30 + item 2 of line x of card field id 4) then
  192.     put saturn - item 2 of line x of card field id 4 into z
  193.     put item 1 of line x of card field id 4 && the value of (60 * z) div 60 & "¬∞"&& the value of (60 * z) mod 60 & "'  (House " & saturnhouse & ")" into line 7 of card field id 4 of card id 10033
  194.     exit repeat
  195.   end if
  196. end repeat
  197.  
  198. if uranus >= ascendant then put (uranus - ascendant) into uranushouse
  199. else put (uranus + 360 - ascendant) into uranushouse
  200. put trunc(uranushouse/30) + 1 into uranushouse
  201. repeat with x = 1 to 12
  202.   if uranus >= item 2 of line x of card field id 4 and uranus < (30 + item 2 of line x of card field id 4) then
  203.     put uranus - item 2 of line x of card field id 4 into z
  204.     put item 1 of line x of card field id 4 && the value of (60 * z) div 60 & "¬∞"&& the value of (60 * z) mod 60 & "'  (House " & uranushouse & ")" into line 8 of card field id 4 of card id 10033
  205.     exit repeat
  206.   end if
  207. end repeat
  208.  
  209. if neptune >= ascendant then put (neptune - ascendant) into neptunehouse
  210. else put (neptune + 360 - ascendant) into neptunehouse
  211. put trunc(neptunehouse/30) + 1 into neptunehouse
  212. repeat with x = 1 to 12
  213.   if neptune >= item 2 of line x of card field id 4 and neptune < (30 + item 2 of line x of card field id 4) then
  214.     put neptune - item 2 of line x of card field id 4 into z
  215.     put item 1 of line x of card field id 4 && the value of (60 * z) div 60 & "¬∞"&& (the value of 60 * z) mod 60 & "'  (House " & neptunehouse & ")" into line 9 of card field id 4 of card id 10033
  216.     exit repeat
  217.   end if
  218. end repeat
  219.  
  220.  
  221. if pluto >= ascendant then put (pluto - ascendant) into plutohouse
  222. else put (pluto + 360 - ascendant) into plutohouse
  223. put trunc(plutohouse/30) + 1 into plutohouse
  224. repeat with x = 1 to 12
  225.   if pluto >= item 2 of line x of card field id 4 and pluto < (30 + item 2 of line x of card field id 4) then
  226.     put pluto - item 2 of line x of card field id 4 into z
  227.     put item 1 of line x of card field id 4 && the value of (60 * z) div 60 & "¬∞"&& the value of (60 * z) mod 60 & "'  (House " & plutohouse & ")" into line 10 of card field id 4 of card id 10033
  228.     exit repeat
  229.   end if
  230. end repeat
  231.  
  232. put ascendA && ascendB &"¬∞" && ascendC &"'" into line 11 of card field id 4 of card id 10033
  233.  
  234. put midA && midB & "¬∞" into line 12 of card field id 4 of card id 10033
  235.  
  236.  
  237.  
  238. go to next card
  239. end mouseUp
  240.  
  241.  
  242.  
  243. -- part 4 (field)
  244. -- low flags: 81
  245. -- high flags: 0007
  246. -- rect: left=324 top=133 right=166 bottom=502
  247. -- title width / last selected line: 0
  248. -- icon id / first selected line: 0 / 0
  249. -- text alignment: 0
  250. -- font id: 3
  251. -- text size: 12
  252. -- style flags: 0
  253. -- line height: 16
  254. -- part name: 
  255.  
  256.  
  257. -- part contents for card part 4
  258. ----- text -----
  259. Aries,0                
  260. Taurus,30            
  261. Gemini,60
  262. Cancer,90
  263. Leo,120
  264. Virgo,150
  265. Libra,180
  266. Scorpio,210
  267. Sagittarius,240
  268. Capricorn,270
  269. Aquarius,300
  270. Pisces,330