home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Club Amiga de Montreal - CAM
/
CAM_CD_1.iso
/
files
/
343a.lha
/
DistantSun_demo_v3.0
/
dsdemo.txt
< prev
next >
Wrap
Text File
|
1990-01-23
|
4KB
|
232 lines
;; Scripit script for the Distant Suns demo.
;;
begin
;;
;; Set $s to name of screen.
$s = "Distant Suns"
;; Set select wait to 0
select wait 0
;; Try to find screen.
select $s
;; Did we find screen? If we didn't, then we run the demo.
if #result < 1
runback ds_demo
endif
;;
;; Set the basic speed of the demo. 100 is normal.
;; This demo was written on an 030 machine, so it's best to set
;; this to a higher number on normal machine.
;; Watch out for weird gurus. These mean that the delay is too short.
#d = 100
;;
;; Set wait to a really long time.
select wait 5000 abort
;; Wait until a screen called "Distant Suns" comes up with _2_ windows.
select $s ^2
;; Bring that screen to front.
screen front
wait #d
;; Turn off titlebar. (do we need this?)
menu System Titlebar off
wait #d
;; Reselect screen. (just to be safe)
select $s
;; Trigger bright colormap option.
menu Extras Colormap bright
wait #d
;;
select $s
menu System about
wait #d*4
select gadget EXIT
gadget EXIT
wait #d*4
select $s
menu Display Constellation names
wait #d*4
select $s
menu Display Constellation outlines
wait #d*8
select $s
menu Display Search constellation
wait #d*4
select $s
pointer 389,34 l
wait #d*2
pointer 389,34,L
wait #d*8
select $s
menu Extras,"Mag chart"
wait #d*4
select $s
gadgetup "OK" 99,1,35,98
wait #d*2
select $s
menu Display Deep NGC
wait #d*8
select $s
menu Display Deep Messier
wait #d*6
menu Display Deep legend
wait #d*3
select gadget OK
gadget OK
wait #d*2
select $s
menu Display Field-of-View 15
wait #d*6
select $s
menu Display Identify on
wait #d*2
select $s
menu Display Search " by name"
wait #d*4
select $s
gadgetup "" 0,1,-99,33 "m101"
wait #d*7
select $s
pointer 282,79 l
wait #d
select $s
pointer 282,79 L
wait #d*10
select $s ^2
select gadget OK
wait #d*4
gadget "" 99,1,0,0 "OK"
select $s
menu Display Deep NGC
wait #d*3
;;
;; Find the moon!
select $s
menu Display Search "by name"
wait #d*2
select gadget cancel
gadget "" 0,1,0,0 "Moon"
;;
;; Zoom in step by step
wait #d*2
select $s
menu Display Field 90
wait #d*2
select $s
menu Display Field 75
wait #d*2
select $s
menu Display Field 60
wait #d*2
select $s
menu Display Field 45
wait #d*2
select $s
menu Display Field 30
wait #d*2
select $s
menu Display Field 15
wait #d*2
;;
;; Find the sun!
select $s
menu Display Search "by name"
wait #d*2
select gadget cancel
gadget "" 0,1,0,0 "Sun"
wait #d*2
;;
;; Show some planets
select $s
menu Display Constellation names
wait #d*4
select $s
menu Display Constellation outlines
wait #d*8
select $s
menu Display Deep Messier
wait #d*6
select $s
menu Display Lookdown middle
wait #d*4
;;
select $s
menu Display Field 180
wait #d*4
select $s
menu "Display ","Names"," planets "
wait #d*2
select $s
menu "Display ","Search"," solar-system"
wait #d*2
select $s
gadgetup "" 5,5,12,67
wait #d*6
select $s
menu "More Extras","Telescope"
wait #d*6
pointer 290,102
wait 30
pointer 288,102
wait 30
pointer 286,102
wait 30
pointer 284,102
wait 30
pointer 282,102
wait 30
pointer 280,102
wait 30
pointer 136,112
wait #d*2
gadgetup "EXIT" 100,2,205,62
wait #d*2
select $s
;;
;; Show what's up
select $s
menu More What
wait #d*10
select gadget EXIT
gadget EXIT
wait #d*2
;;
;; Show off some scrolling
;;
;; Zoom out a bit
wait #d*2
select $s
menu Display Field 60
wait #d*2
;;
;; Select the control panel window
select $s ^2
;;
;; scroll right
gadget "" 4,7
wait #d*4
gadget "" 4,7
wait #d*2
;;
;; scroll left
gadget "" 2,6
wait #d*4
gadget "" 2,6
wait #d*2
;;
;; scroll up
gadget "" 3,5
wait #d*4
gadget "" 3,5
wait #d*2
;;
;; scroll down
gadget "" 1,4
wait #d*4
gadget "" 1,4
wait #d*2
select $s ^2
menu System Quit
wait #d*10
;; end of demo
end