home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / hypercar / fun / astroalm.sit / Almanac / background_2765.txt < prev    next >
Text File  |  1989-10-15  |  10KB  |  528 lines
  1. -- background: 2765 from stack: in
  2. -- bmap block id: 4019
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: almanac
  6. ----- HyperTalk script -----
  7. on openCard
  8.   global force,moon
  9.   ST
  10.   UT
  11.   set numberFormat to "0.###"
  12.   if moon=1 then
  13.     get char 30 to 33 of line 3 of cd fld total of cd "occult."
  14.     if it is not empty then put char 1 to 3 of it &"%"& last char of it into fld pct
  15.   end if
  16.   put "Julian Date = " & the seconds/86400 + 2416480.5 + DSTcheck()/24 into fld "JD"
  17.   set numberFormat to "0.#######"
  18.   if the short name of this cd is "Occult." or the short name of this cd is "Jupiter" then
  19.     if the short name of this cd is "Occult." then
  20.       put nDate(1,12,0) &&"(JT)" into fld "date"
  21.       send mouseUp to cd btn "Today"
  22.     else
  23.       put nDate(1,12,0) &&"(JT)" into fld "date"
  24.     end if
  25.   else
  26.     put nDate(0,0,0) into fld "date"
  27.   end if
  28.   if the shiftKey is up then
  29.     get (the number of this cd)-moon
  30.     if it>1 and it<10 and itΓëá6 then
  31.       calc (the number of words of fld "ra cheb"),force
  32.     end if
  33.   end if
  34. end openCard
  35.  
  36. on effect
  37.   visual effect wipe left very fast
  38. end effect
  39.  
  40.  
  41.  
  42. -- part 1 (button)
  43. -- low flags: 00
  44. -- high flags: C006
  45. -- rect: left=42 top=140 right=162 bottom=86
  46. -- title width / last selected line: 0
  47. -- icon id / first selected line: 0 / 0
  48. -- text alignment: 1
  49. -- font id: 0
  50. -- text size: 12
  51. -- style flags: 0
  52. -- line height: 16
  53. -- part name: DST
  54. ----- HyperTalk script -----
  55. on mouseUp
  56.   set hilite of me to not hilite of me
  57. end mouseUp
  58.  
  59.  
  60.  
  61. -- part 4 (button)
  62. -- low flags: 00
  63. -- high flags: 0000
  64. -- rect: left=432 top=50 right=92 bottom=471
  65. -- title width / last selected line: 0
  66. -- icon id / first selected line: 20098 / 20098
  67. -- text alignment: 1
  68. -- font id: 0
  69. -- text size: 12
  70. -- style flags: 0
  71. -- line height: 16
  72. -- part name: Home
  73. ----- HyperTalk script -----
  74. on mouseUp
  75.   effect
  76.   go home
  77. end mouseUp
  78.  
  79.  
  80.  
  81. -- part 5 (button)
  82. -- low flags: 00
  83. -- high flags: 0000
  84. -- rect: left=432 top=91 right=121 bottom=471
  85. -- title width / last selected line: 0
  86. -- icon id / first selected line: 16732 / 16732
  87. -- text alignment: 1
  88. -- font id: 0
  89. -- text size: 12
  90. -- style flags: 0
  91. -- line height: 16
  92. -- part name: 
  93. ----- HyperTalk script -----
  94. on mouseUp
  95.   effect
  96.   push card
  97.   go card "fx"
  98. end mouseUp
  99.  
  100.  
  101.  
  102.  
  103. -- part 6 (field)
  104. -- low flags: 00
  105. -- high flags: 0000
  106. -- rect: left=190 top=283 right=301 bottom=349
  107. -- title width / last selected line: 0
  108. -- icon id / first selected line: 0 / 0
  109. -- text alignment: 0
  110. -- font id: 0
  111. -- text size: 12
  112. -- style flags: 0
  113. -- line height: 16
  114. -- part name: UT
  115.  
  116.  
  117. -- part 7 (field)
  118. -- low flags: 00
  119. -- high flags: 0000
  120. -- rect: left=38 top=283 right=301 bottom=186
  121. -- title width / last selected line: 0
  122. -- icon id / first selected line: 0 / 0
  123. -- text alignment: 0
  124. -- font id: 0
  125. -- text size: 12
  126. -- style flags: 0
  127. -- line height: 16
  128. -- part name: ST
  129.  
  130.  
  131. -- part 8 (field)
  132. -- low flags: 81
  133. -- high flags: 4001
  134. -- rect: left=0 top=174 right=239 bottom=512
  135. -- title width / last selected line: 0
  136. -- icon id / first selected line: 0 / 0
  137. -- text alignment: 0
  138. -- font id: 20
  139. -- text size: 10
  140. -- style flags: 0
  141. -- line height: 13
  142. -- part name: RA Cheb
  143.  
  144.  
  145. -- part 9 (field)
  146. -- low flags: 81
  147. -- high flags: 4001
  148. -- rect: left=0 top=266 right=333 bottom=511
  149. -- title width / last selected line: 0
  150. -- icon id / first selected line: 0 / 0
  151. -- text alignment: 0
  152. -- font id: 20
  153. -- text size: 10
  154. -- style flags: 0
  155. -- line height: 13
  156. -- part name: dec Cheb
  157.  
  158.  
  159. -- part 10 (field)
  160. -- low flags: 00
  161. -- high flags: 0000
  162. -- rect: left=181 top=78 right=144 bottom=364
  163. -- title width / last selected line: 0
  164. -- icon id / first selected line: 0 / 0
  165. -- text alignment: 0
  166. -- font id: 0
  167. -- text size: 12
  168. -- style flags: 0
  169. -- line height: 16
  170. -- part name: Pos
  171.  
  172.  
  173. -- part 13 (field)
  174. -- low flags: 00
  175. -- high flags: 0000
  176. -- rect: left=181 top=145 right=179 bottom=378
  177. -- title width / last selected line: 0
  178. -- icon id / first selected line: 0 / 0
  179. -- text alignment: 0
  180. -- font id: 0
  181. -- text size: 12
  182. -- style flags: 0
  183. -- line height: 16
  184. -- part name: rise
  185.  
  186.  
  187. -- part 14 (field)
  188. -- low flags: 00
  189. -- high flags: 0000
  190. -- rect: left=44 top=87 right=112 bottom=173
  191. -- title width / last selected line: 0
  192. -- icon id / first selected line: 0 / 0
  193. -- text alignment: 0
  194. -- font id: 14991
  195. -- text size: 18
  196. -- style flags: 0
  197. -- line height: 24
  198. -- part name: Planet
  199.  
  200.  
  201. -- part 17 (button)
  202. -- low flags: 00
  203. -- high flags: 0000
  204. -- rect: left=398 top=50 right=83 bottom=433
  205. -- title width / last selected line: 0
  206. -- icon id / first selected line: 100 / 100
  207. -- text alignment: 1
  208. -- font id: 0
  209. -- text size: 12
  210. -- style flags: 0
  211. -- line height: 16
  212. -- part name: Sun
  213. ----- HyperTalk script -----
  214. on mouseUp
  215.   effect
  216.   go card "Sun"
  217. end mouseUp
  218.  
  219.  
  220.  
  221.  
  222. -- part 18 (button)
  223. -- low flags: 00
  224. -- high flags: 0000
  225. -- rect: left=398 top=82 right=115 bottom=433
  226. -- title width / last selected line: 0
  227. -- icon id / first selected line: 101 / 101
  228. -- text alignment: 1
  229. -- font id: 0
  230. -- text size: 12
  231. -- style flags: 0
  232. -- line height: 16
  233. -- part name: 
  234. ----- HyperTalk script -----
  235. on mouseUp
  236.   effect
  237.   go card "Mercury"
  238. end mouseUp
  239.  
  240.  
  241.  
  242.  
  243. -- part 19 (button)
  244. -- low flags: 00
  245. -- high flags: 0000
  246. -- rect: left=398 top=114 right=147 bottom=433
  247. -- title width / last selected line: 0
  248. -- icon id / first selected line: 102 / 102
  249. -- text alignment: 1
  250. -- font id: 0
  251. -- text size: 12
  252. -- style flags: 0
  253. -- line height: 16
  254. -- part name: 
  255. ----- HyperTalk script -----
  256. on mouseUp
  257.   effect
  258.   go card "Venus"
  259. end mouseUp
  260.  
  261.  
  262.  
  263.  
  264. -- part 20 (button)
  265. -- low flags: 00
  266. -- high flags: 0000
  267. -- rect: left=398 top=146 right=179 bottom=433
  268. -- title width / last selected line: 0
  269. -- icon id / first selected line: 104 / 104
  270. -- text alignment: 1
  271. -- font id: 0
  272. -- text size: 12
  273. -- style flags: 0
  274. -- line height: 16
  275. -- part name: 
  276. ----- HyperTalk script -----
  277. on mouseUp
  278.   effect
  279.   go card "Mars"
  280. end mouseUp
  281.  
  282.  
  283.  
  284.  
  285. -- part 21 (button)
  286. -- low flags: 00
  287. -- high flags: 0000
  288. -- rect: left=398 top=178 right=211 bottom=433
  289. -- title width / last selected line: 0
  290. -- icon id / first selected line: 105 / 105
  291. -- text alignment: 1
  292. -- font id: 0
  293. -- text size: 12
  294. -- style flags: 0
  295. -- line height: 16
  296. -- part name: 
  297. ----- HyperTalk script -----
  298. on mouseUp
  299.   effect
  300.   go card "Jupiter"
  301. end mouseUp
  302.  
  303.  
  304.  
  305.  
  306. -- part 22 (button)
  307. -- low flags: 00
  308. -- high flags: 0000
  309. -- rect: left=398 top=210 right=243 bottom=433
  310. -- title width / last selected line: 0
  311. -- icon id / first selected line: 106 / 106
  312. -- text alignment: 1
  313. -- font id: 0
  314. -- text size: 12
  315. -- style flags: 0
  316. -- line height: 16
  317. -- part name: 
  318. ----- HyperTalk script -----
  319. on mouseUp
  320.   effect
  321.   go card "Saturn"
  322. end mouseUp
  323.  
  324.  
  325.  
  326.  
  327. -- part 23 (button)
  328. -- low flags: 00
  329. -- high flags: 0000
  330. -- rect: left=401 top=242 right=274 bottom=433
  331. -- title width / last selected line: 0
  332. -- icon id / first selected line: 107 / 107
  333. -- text alignment: 1
  334. -- font id: 0
  335. -- text size: 12
  336. -- style flags: 0
  337. -- line height: 16
  338. -- part name: 
  339. ----- HyperTalk script -----
  340. on mouseUp
  341.   effect
  342.   go card "Uranus"
  343. end mouseUp
  344.  
  345.  
  346.  
  347.  
  348. -- part 24 (button)
  349. -- low flags: 00
  350. -- high flags: 0000
  351. -- rect: left=398 top=274 right=304 bottom=433
  352. -- title width / last selected line: 0
  353. -- icon id / first selected line: 108 / 108
  354. -- text alignment: 1
  355. -- font id: 0
  356. -- text size: 12
  357. -- style flags: 0
  358. -- line height: 16
  359. -- part name: 
  360. ----- HyperTalk script -----
  361. on mouseUp
  362.   effect
  363.   go card "Neptune"
  364. end mouseUp
  365.  
  366.  
  367.  
  368.  
  369. -- part 27 (button)
  370. -- low flags: 00
  371. -- high flags: 0004
  372. -- rect: left=231 top=306 right=340 bottom=276
  373. -- title width / last selected line: 0
  374. -- icon id / first selected line: 5472 / 5472
  375. -- text alignment: 1
  376. -- font id: 0
  377. -- text size: 12
  378. -- style flags: 0
  379. -- line height: 16
  380. -- part name: New Button
  381. ----- HyperTalk script -----
  382. on mouseUp
  383.   go first card
  384. end mouseUp
  385.  
  386.  
  387.  
  388. -- part 28 (field)
  389. -- low flags: 00
  390. -- high flags: 0000
  391. -- rect: left=39 top=25 right=44 bottom=217
  392. -- title width / last selected line: 0
  393. -- icon id / first selected line: 0 / 0
  394. -- text alignment: 0
  395. -- font id: 21
  396. -- text size: 12
  397. -- style flags: 256
  398. -- line height: 16
  399. -- part name: Date
  400.  
  401.  
  402. -- part 31 (field)
  403. -- low flags: 00
  404. -- high flags: 0000
  405. -- rect: left=266 top=25 right=44 bottom=468
  406. -- title width / last selected line: 0
  407. -- icon id / first selected line: 0 / 0
  408. -- text alignment: 0
  409. -- font id: 21
  410. -- text size: 12
  411. -- style flags: 256
  412. -- line height: 16
  413. -- part name: JD
  414.  
  415.  
  416. -- part 35 (button)
  417. -- low flags: 00
  418. -- high flags: 0000
  419. -- rect: left=358 top=50 right=85 bottom=399
  420. -- title width / last selected line: 0
  421. -- icon id / first selected line: 30979 / 30979
  422. -- text alignment: 1
  423. -- font id: 0
  424. -- text size: 12
  425. -- style flags: 0
  426. -- line height: 16
  427. -- part name: Moon
  428. ----- HyperTalk script -----
  429. on mouseUp
  430.   effect
  431.   go to card id 7837
  432. end mouseUp
  433.  
  434.  
  435.  
  436.  
  437. -- part 36 (button)
  438. -- low flags: 00
  439. -- high flags: 0002
  440. -- rect: left=475 top=50 right=80 bottom=508
  441. -- title width / last selected line: 0
  442. -- icon id / first selected line: 2478 / 2478
  443. -- text alignment: 1
  444. -- font id: 0
  445. -- text size: 12
  446. -- style flags: 0
  447. -- line height: 16
  448. -- part name: 
  449. ----- HyperTalk script -----
  450. on mouseUp
  451.   push card
  452.   go first card of bkgnd "Info"
  453. end mouseUp
  454.  
  455.  
  456.  
  457. -- part 39 (field)
  458. -- low flags: 00
  459. -- high flags: 0000
  460. -- rect: left=219 top=25 right=44 bottom=264
  461. -- title width / last selected line: 0
  462. -- icon id / first selected line: 0 / 0
  463. -- text alignment: 0
  464. -- font id: 21
  465. -- text size: 12
  466. -- style flags: 256
  467. -- line height: 16
  468. -- part name: Pct
  469.  
  470.  
  471. -- part 40 (button)
  472. -- low flags: 00
  473. -- high flags: 0000
  474. -- rect: left=432 top=120 right=157 bottom=471
  475. -- title width / last selected line: 0
  476. -- icon id / first selected line: 26516 / 26516
  477. -- text alignment: 1
  478. -- font id: 0
  479. -- text size: 12
  480. -- style flags: 0
  481. -- line height: 16
  482. -- part name: Conj
  483. ----- HyperTalk script -----
  484. on mouseUp
  485.   push cd
  486.   go cd conjunct
  487. end mouseUp
  488.  
  489.  
  490.  
  491. -- part 41 (button)
  492. -- low flags: 00
  493. -- high flags: 0000
  494. -- rect: left=432 top=156 right=191 bottom=471
  495. -- title width / last selected line: 0
  496. -- icon id / first selected line: 28557 / 28557
  497. -- text alignment: 1
  498. -- font id: 0
  499. -- text size: 12
  500. -- style flags: 0
  501. -- line height: 16
  502. -- part name: 
  503. ----- HyperTalk script -----
  504. on mouseUp
  505.   go position
  506. end mouseUp
  507.  
  508.  
  509.  
  510. -- part 42 (button)
  511. -- low flags: 00
  512. -- high flags: 0000
  513. -- rect: left=432 top=190 right=226 bottom=471
  514. -- title width / last selected line: 0
  515. -- icon id / first selected line: 4450 / 4450
  516. -- text alignment: 1
  517. -- font id: 0
  518. -- text size: 12
  519. -- style flags: 0
  520. -- line height: 16
  521. -- part name: meteor
  522. ----- HyperTalk script -----
  523. on mouseUp
  524.   go cd meteor
  525.   mcalc
  526. end mouseUp
  527.  
  528.