()
Prgm
Lbl begin
setGraph("axes","off")
If getType(listy)≠"NONE" Then
For ab,1,100
RplcPic logomys
EndFor
EndIf
Local x,y,key
0→key
11→x
21→y
If getType(listy)="NONE" Then
1→pos
6→dd
7→ddd
0→matches
0→redp
0→redpa
0→bluep
0→bluepa
0→rsu
0→rsuu
12→clho
60→clmi
0→weel
0→wheeel
"n274"→listy
"booky1"→picture
"January"→month
1→day
1000→year
0→hour
0→minutes
1→monthh
0→but1
0→but2
0→but3
0→but4
0→but5
0→but6
0→but7
0→but8
0→but9
0→but10
0→power
0→powship
logo()
Pause
EndIf
ClrDraw
RplcPic #picture
StoPic ing
RplcPic cursor,x,y
Lbl start
Loop
getKey()→key
©The moving of the cursor
If key=338 and x>10 Then
RplcPic ing
x-10→x
RplcPic cursor,x,y
ElseIf key=340 and y<140 Then
RplcPic ing
y+10→y
RplcPic cursor,x,y
ElseIf key=344 and x<60 Then
RplcPic ing
x+10→x
RplcPic cursor,x,y
ElseIf key=337 and y>10 Then
RplcPic ing
y-10→y
RplcPic cursor,x,y
©Menu
ElseIf key=264 Then
RplcPic menu,41
RplcPic cursy,46,5
0→key
1→hit
46→xxx
Loop
getKey()→key
If key=344 and hit≠3 Then
hit+1→hit
XorPic cursy,xxx,5
xxx+10→xxx
XorPic cursy,xxx,5
ElseIf key=338 and hit≠1 Then
hit-1→hit
XorPic cursy,xxx,5
xxx-10→xxx
XorPic cursy,xxx,5
ElseIf key=344 and hit=3 Then
1→hit
XorPic cursy,xxx,5
46→xxx
XorPic cursy,xxx,5
ElseIf key=338 and hit=1 Then
3→hit
XorPic cursy,xxx,5
66→xxx
XorPic cursy,xxx,5
ElseIf key=264 Then
RplcPic #picture
RplcPic cursor,x,y
Goto start
ElseIf key=13 or key=268 Then
If hit=1 Then
RplcPic #picture
RplcPic cursor,x,y
Goto start
ElseIf hit=2 Then
DelVar listy
Goto begin
ElseIf hit=3 Then
DispHome
Stop
EndIf
EndIf
EndLoop
EndIf
©the hopping to differrent pics
If key=268 Then
If y≤#listy[5] and y≥#listy[3] and x≤#listy[4] and x≥#listy[2] Then
If #listy[6]≠"switch" and #listy[6]≠"switcha" and #listy[6]≠"zwitch" and #listy[6]≠"zwitcha" and #listy[6]≠"zwitcho" and #listy[6]≠"gotoo" Then
#listy[6]→picture
string(n)&#listy[7]→listy
Else
If #listy[6]="switch" Then
#listy[7]→listz
Goto sone
ElseIf #listy[6]="switcha" Then
#listy[7]→listz
Goto sonea
ElseIf #listy[6]="zwitch" Then
#listy[7]→listz
Goto magico
ElseIf #listy[6]="zwitcha" Then
#listy[7]→listz
Goto magica
ElseIf #listy[6]="zwitcho" Then
#listy[7]→listz
Goto magicb
ElseIf #listy[6]="gotoo" Then
#listy[7]→listz
Goto #listz
EndIf
EndIf
RplcPic #picture
StoPic ing
RplcPic cursor,x,y
Goto start
EndIf
If #listy[1]>1 Then
If y≤#listy[11] and y≥#listy[9] and x≤#listy[10] and x≥#listy[8] Then
If #listy[12]≠"switch" and #listy[12]≠"switcha" and #listy[12]≠"zwitch" and #listy[12]≠"zwitcha" and #listy[12]≠"zwitcho" and #listy[12]≠"gotoo" Then
#listy[12]→picture
string(n)&#listy[13]→listy
Else
If #listy[12]="switch" Then
#listy[13]→listz
Goto sone
ElseIf #listy[12]="switcha" Then
#listy[13]→listz
Goto sonea
ElseIf #listy[12]="zwitch" Then
#listy[13]→listz
Goto magico
ElseIf #listy[12]="zwitcha" Then
#listy[13]→listz
Goto magica
ElseIf #listy[12]="zwitcho" Then
#listy[13]→listz
Goto magicb
ElseIf #listy[12]="gotoo" Then
#listy[13]→listz
Goto #listz
EndIf
EndIf
RplcPic #picture
StoPic ing
RplcPic cursor,x,y
Goto start
EndIf
EndIf
If #listy[1]>2 Then
If y≤#listy[17] and y≥#listy[15] and x≤#listy[16] and x≥#listy[14] Then
If #listy[18]≠"switch" and #listy[18]≠"switcha" and #listy[18]≠"zwitch" and #listy[18]≠"zwitcha" and #listy[18]≠"zwitcho" and #listy[18]≠"gotoo" Then
#listy[18]→picture
string(n)&#listy[19]→listy
Else
If #listy[18]="switch" Then
#listy[19]→listz
Goto sone
ElseIf #listy[18]="switcha" Then
#listy[19]→listz
Goto sonea
ElseIf #listy[18]="zwitch" Then
#listy[19]→listz
Goto magico
ElseIf #listy[18]="zwitcha" Then
#listy[19]→listz
Goto magica
ElseIf #listy[18]="zwitcho" Then
#listy[19]→listz
Goto magicb
ElseIf #listy[18]="gotoo" Then
#listy[19]→listz
Goto #listz
EndIf
EndIf
RplcPic #picture
StoPic ing
RplcPic cursor,x,y
Goto start
EndIf
EndIf
If #listy[1]>3 Then
If y≤#listy[23] and y≥#listy[21] and x≤#listy[22] and x≥#listy[20] Then
If #listy[24]≠"switch" and #listy[24]≠"switcha" and #listy[24]≠"zwitch" and #listy[24]≠"zwitcha" and #listy[24]≠"zwitcho" and #listy[24]≠"gotoo" Then
#listy[24]→picture
string(n)&#listy[25]→listy
Else
If #listy[24]="switch" Then
#listy[25]→listz
Goto sone
ElseIf #listy[24]="switcha" Then
#listy[25]→listz
Goto sonea
ElseIf #listy[24]="zwitch" Then
#listy[25]→listz
Goto magico
ElseIf #listy[24]="zwitcha" Then
#listy[25]→listz
Goto magica
ElseIf #listy[24]="zwitcho" Then
#listy[25]→listz
Goto magicb
ElseIf #listy[24]="gotoo" Then
#listy[25]→listz
Goto #listz
EndIf
EndIf
RplcPic #picture
StoPic ing
RplcPic cursor,x,y
Goto start
EndIf
EndIf
If #listy[1]>4 Then
If y≤#listy[29] and y≥#listy[27] and x≤#listy[28] and x≥#listy[26] Then
If #listy[30]≠"switch" and #listy[30]≠"switcha" and #listy[30]≠"zwitch" and #listy[30]≠"zwitcha" and #listy[30]≠"zwitcho" and #listy[30]≠"gotoo" Then
#listy[30]→picture
string(n)&#listy[31]→listy
Else
If #listy[30]="switch" Then
#listy[31]→listz
Goto sone
ElseIf #listy[30]="switcha" Then
#listy[31]→listz
Goto sonea
ElseIf #listy[30]="zwitch" Then
#listy[31]→listz
Goto magico
ElseIf #listy[30]="zwitcha" Then
#listy[31]→listz
Goto magica
ElseIf #listy[30]="zwitcho" Then
#listy[31]→listz
Goto magicb
ElseIf #listy[30]="gotoo" Then
#listy[31]→listz
Goto #listz
EndIf
EndIf
RplcPic #picture
StoPic ing
RplcPic cursor,x,y
EndIf
EndIf
If #listy[1]>5 Then
If y≤#listy[35] and y≥#listy[33] and x≤#listy[34] and x≥#listy[32] Then
If #listy[36]≠"switch" and #listy[36]≠"switcha" and #listy[36]≠"zwitch" and #listy[36]≠"zwitcha" and #listy[36]≠"zwitcho" and #listy[36]≠"gotoo" Then
#listy[36]→picture
string(n)&#listy[37]→listy
Else
If #listy[36]="switch" Then
#listy[37]→listz
Goto sone
ElseIf #listy[36]="switcha" Then
#listy[37]→listz
Goto sonea
ElseIf #listy[36]="zwitch" Then
#listy[37]→listz
Goto magico
ElseIf #listy[36]="zwitcha" Then
#listy[37]→listz
Goto magica
ElseIf #listy[36]="zwitcho" Then
#listy[37]→listz
Goto magicb
ElseIf #listy[36]="gotoo" Then
#listy[37]→listz
Goto #listz
EndIf
EndIf
RplcPic #picture
StoPic ing
RplcPic cursor,x,y
Goto start
EndIf
EndIf
If #listy[1]>6 Then
If y≤#listy[41] and y≥#listy[39] and x≤#listy[40] and x≥#listy[38] Then
If #listy[42]≠"switch" and #listy[42]≠"switcha" and #listy[42]≠"zwitch" and #listy[42]≠"zwitcha" and #listy[42]≠"zwitcho" and #listy[42]≠"gotoo" Then
#listy[42]→picture
string(n)&#listy[43]→listy
Else
If #listy[42]="switch" Then
#listy[43]→listz
Goto sone
ElseIf #listy[42]="switcha" Then
#listy[43]→listz
Goto sonea
ElseIf #listy[42]="zwitch" Then
#listy[43]→listz
Goto magico
ElseIf #listy[42]="zwitcha" Then
#listy[43]→listz
Goto magica
ElseIf #listy[42]="zwitcho" Then
#listy[43]→listz
Goto magicb
ElseIf #listy[42]="gotoo" Then
#listy[43]→listz
Goto #listz
EndIf
EndIf
RplcPic #picture
StoPic ing
RplcPic cursor,x,y
Goto start
EndIf
EndIf
EndIf
EndLoop
©marker switches
Lbl sone
If #listz[1]=1 Then
If #listz=listfive or #listz=listfiva Then
0→listfiva[1]
0→listfive[1]
ElseIf #listz=listseve or #listz=listseva or #listz=listsevb or #listz=listsevc Then
0→listseva[1]
0→listsevb[1]
0→listsevc[1]
0→listseve[1]
ElseIf #listz=listthra or #listz=listthr Then
0→listthr[1]
0→listthra[1]
EndIf
0→#listz[1]
#listz[2]→picture
RplcPic #picture
StoPic ing
RplcPic cursor,x,y
Goto start
ElseIf #listz[1]=0 Then
If #listz=listfive or #listz=listfiva Then
1→listfiva[1]
1→listfive[1]
ElseIf #listz=listseve or #listz=listseva or #listz=listsevb or #listz=listsevc Then
1→listseva[1]
1→listsevb[1]
1→listsevc[1]
1→listseve[1]
ElseIf #listz=listthra or #listz=listthr Then
1→listthr[1]
1→listthra[1]
EndIf
1→#listz[1]
#listz[3]→picture
RplcPic #picture
StoPic ing
RplcPic cursor,x,y
Goto start
EndIf
Lbl sonea
If #listz[1]=1 Then
#listz[3]→picture
#listz[4]→listy
RplcPic #picture
StoPic ing
RplcPic cursor,x,y
Goto start
ElseIf #listz[1]=0 Then
#listz[4]→listy
#listz[2]→picture
RplcPic #picture
StoPic ing
RplcPic cursor,x,y
Goto start
EndIf
Lbl magico
#listz[1]→listzz
If #listzz[1]=0 Then
#listz[2]→picture
#listz[3]→listy
RplcPic #picture
StoPic ing
RplcPic cursor,x,y
Goto start
ElseIf #listzz[1]=1 Then
#listz[4]→picture
#listz[5]→listy
RplcPic #picture
StoPic ing
RplcPic cursor,x,y
Goto start
EndIf
Lbl magica
#listz[1]→listzz
1→#listzz[1]
#listz[2]→picture
#listz[3]→listy
RplcPic #picture
StoPic ing
RplcPic cursor,x,y
Goto start
Lbl magicb
#listz[1]→listzz
0→#listzz[1]
#listz[2]→picture
#listz[3]→listy
RplcPic #picture
StoPic ing
RplcPic cursor,x,y
Goto start
Lbl letter
Dialog
Title "Letter"
Text "Catherine,"
Text ""
Text "I've left for you a message of utmost"
Text "importance in our fore-chamber besides"
Text "the dock."
Text "Enter the number of Marker Switches"
Text "on this island into the imager to retrieve"
Text "the message."
Text "Yours,"
Text ""
Text "Atrus"
EndDlog
Goto start
Lbl rocketsw
"n163"→listy
"img163"→picture
RplcPic #picture
PxlText string(power),35,35
If power≤59 and list8[1]=0 and list9[1]=0 Then
power→powship
PxlText string(powship),35,85
ElseIf power>59 Then
1→list8[1]
1→list9[1]
0→powship
EndIf
PxlText string(powship),35,85
If but1=1 Then
RplcPic button1,18,119
EndIf
If but2=1 Then
RplcPic button1,18,136
EndIf
If but3=1 Then
RplcPic button1,29,119
EndIf
If but4=1 Then
RplcPic button1,29,136
EndIf
If but5=1 Then
RplcPic button1,40,119
EndIf
If but6=1 Then
RplcPic button1,40,136
EndIf
If but7=1 Then
RplcPic button1,51,119
EndIf
If but8=1 Then
RplcPic button1,51,136
EndIf
If but9=1 Then
RplcPic button1,62,119
EndIf
If but10=1 Then
RplcPic button1,62,136
EndIf
StoPic ing
RplcPic cursor,x,y
Goto start
Lbl rocketss
If string(x)&string(y)="11111" or string(x)&string(y)="11121" or string(x)&string(y)="21121" or string(x)&string(y)="21111" Then
If but1=1 Then
power-10→power
0→but1
Else
power+10→power
1→but1
EndIf
Goto rocketsw
ElseIf string(x)&string(y)="11131" or string(x)&string(y)="11141" or string(x)&string(y)="21141" or string(x)&string(y)="21131" Then
If but2=1 Then
power-1→power
0→but2
Else
power+1→power
1→but2
EndIf
Goto rocketsw
ElseIf string(x)&string(y)="31111" or string(x)&string(y)="31121" Then
If but3=1 Then
power-7→power
0→but3
Else
power+7→power
1→but3
EndIf
Goto rocketsw
ElseIf string(x)&string(y)="31131" Then
If but4=1 Then
power-2→power
0→but4
Else
power+2→power
1→but4
EndIf
Goto rocketsw
ElseIf string(x)&string(y)="41111" or string(x)&string(y)="41121" Then
If but5=1 Then
power-8→power
0→but5
Else
power+8→power
1→but5
EndIf
Goto rocketsw
ElseIf string(x)&string(y)="41131" Then
If but6=1 Then
power-22→power
0→but6
Else
power+22→power
1→but6
EndIf
Goto rocketsw
ElseIf string(x)&string(y)="51111" or string(x)&string(y)="51121" Then
If but7=1 Then
power-16→power
0→but7
Else
power+16→power
1→but7
EndIf
Goto rocketsw
ElseIf string(x)&string(y)="51131" Then
If but8=1 Then
power-19→power
0→but8
Else
power+19→power
1→but8
EndIf
Goto rocketsw
ElseIf string(x)&string(y)="61111" or string(x)&string(y)="61121" Then
If but9=1 Then
power-5→power
0→but9
Else
power+5→power
1→but9
EndIf
Goto rocketsw
ElseIf string(x)&string(y)="61131" Then
If but10=1 Then
power-9→power
0→but10
Else
power+9→power
1→but10
EndIf
Goto rocketsw
EndIf
Goto rocketsw
Lbl themap
RplcPic mappy
RplcPic icn1,19,80
If listthr[1]=1 Then
RplcPic icn2,35,84
EndIf
If listone[1]=1 Then
RplcPic icn3,57,71
EndIf
If listsix[1]=1 Then
RplcPic icn4,20,50
EndIf
If listseve[1]=1 Then
RplcPic icn5,39,45
EndIf
If listtwo[1]=1 Then
RplcPic icn6,50,105
EndIf
If listfour[1]=1 Then
RplcPic icn7,0,106
EndIf
If listfive[1]=1 Then
RplcPic icn8,26,60
EndIf
StoPic mapzy
"mapzy"→picture
"n262"→listy
RplcPic #picture
If getType(xx)="NONE" Then
30→xx
158→yy
1→pos
EndIf
PxlLine 30,111,xx,yy
StoPic ing
PxlText "Tower Rotation",60,35
RplcPic cursor,x,y
Goto start
Lbl themapp
RplcPic mapzy
pos+1→pos
If pos=1 Then
30→xx
158→yy
ElseIf pos=2 Then
76→xx
115→yy
ElseIf pos=3 Then
76→xx
80→yy
ElseIf pos=4 Then
76→xx
0→yy
ElseIf pos=5 Then
30→xx
0→yy
ElseIf pos=6 Then
10→xx
0→yy
ElseIf pos=7 Then
0→xx
120→yy
ElseIf pos=8 Then
1→pos
30→xx
158→yy
EndIf
Goto themap
Lbl board
If pos=2 and listtwo[1]=1 Then
"img264"→picture
"n201"→listy
RplcPic #picture
StoPic ing
RplcPic cursor,x,y
Goto start
ElseIf pos=3 and listone[1]=1 Then
"img262"→picture
"n201"→listy
RplcPic #picture
StoPic ing
RplcPic cursor,x,y
Goto start
ElseIf pos=4 and listseve[1]=1 Then
"img263"→picture
"n201"→listy
RplcPic #picture
StoPic ing
RplcPic cursor,x,y
Goto start
ElseIf pos=7 and listfour[1]=1 Then
"img265"→picture
"n201"→listy
RplcPic #picture
StoPic ing
RplcPic cursor,x,y
Goto start
Else
"img270"→picture
"n201"→listy
RplcPic #picture
StoPic ing
RplcPic cursor,x,y
Goto start
EndIf
Lbl window
If pos=2 and listtwo[1]=1 Then
"img268"→picture
"n193"→listy
RplcPic #picture
StoPic ing
RplcPic cursor,x,y
Goto start
ElseIf pos=3 and listone[1]=1 Then
"img193"→picture
"n193"→listy
RplcPic #picture
StoPic ing
RplcPic cursor,x,y
Goto start
ElseIf pos=4 and listseve[1]=1 Then
"img267"→picture
"n193"→listy
RplcPic #picture
StoPic ing
RplcPic cursor,x,y
Goto start
ElseIf pos=7 and listfour[1]=1 Then
"img266"→picture
"n193"→listy
RplcPic #picture
StoPic ing
RplcPic cursor,x,y
Goto start
Else
"img269"→picture
"n193"→listy
RplcPic #picture
StoPic ing
RplcPic cursor,x,y
Goto start
EndIf
Lbl texty
Dialog
Title "SETTINGS-DIMENSIONAL IMAGER"
Text " SETTINGS-DIMENSIONAL IMAGER"
Text ""
Text " Ű"
Text "Topographical Extrusion Test……………40"
Text "Water–Turbulent Pool………………………67"
Text "Marker Switch Diagram……………………47"
Text "……………………………………………………………"
Text "……………………………………………………………"
Text "……………………………………………………………"
Text "……………………………………………………………"
EndDlog
Goto start
Lbl codedock
RplcPic #picture
PxlText string(dd),40,59
PxlText string(ddd),40,75
0→key
Loop
getKey()→key
If key=269 Then
If dd<9 Then
dd+1→dd
ElseIf dd=9 Then
0→dd
EndIf
Goto codedock
ElseIf key=270 Then
If dd>0 Then
dd-1→dd
ElseIf dd=0 Then
9→dd
EndIf
Goto codedock
ElseIf key=271 Then
If ddd<9 Then
ddd+1→ddd
ElseIf ddd=9 Then
0→ddd
EndIf
Goto codedock
ElseIf key=272 Then
If ddd>0 Then
ddd-1→ddd
ElseIf ddd=0 Then
9→ddd
EndIf
Goto codedock
ElseIf key=13 Then
"img222"→picture
"n222"→listy
RplcPic #picture
StoPic ing
RplcPic cursor,x,y
Goto start
EndIf
EndLoop
Lbl pool
If dd=6 and ddd=7 Then
"img217"→picture
"n217"→listy
RplcPic #picture
StoPic ing
RplcPic cursor,x,y
Goto start
Else
"img221"→picture
"n217"→listy
RplcPic #picture
StoPic ing
RplcPic cursor,x,y
Goto start
EndIf
Lbl poolo
If dd=4 and ddd=0 and picture="img221" Then
"img226"→picture
"n217"→listy
ElseIf dd=4 and ddd=7 and picture="img221" Then
"img225"→picture
"n217"→listy
ElseIf dd=6 and ddd=7 and picture="img221" Then
"img217"→picture
"n217"→listy
ElseIf dd=0 and ddd=8 Then
"img221"→picture
"n217"→listy
Dialog
Title "Message"
Text "Catherine, my love. I have to leave quickly."
Text "Something terrible has happened. It's hard"
Text "for me to believe. Most of my books have"
Text "been destroyed. Catherine, it's one of our"
Text "sons! I suspect Achenar, but I shouldn't leap"
Text "to conclusions. I'll find him and Sirrus as"
Text "well. Oh, I should have known better than to"
Text "have left my library unchecked for so long!"
EndDlog
Dialog
Title "Message"
Text "Well, I have removed the remaining unda-"
Text "maged books from the library and placed"
Text "them in their places of protection. You"
Text "shouldn't have to use the books until I return,"
Text "but... if you've forgotten the acces keys, re-"
Text "member the tower rotation. Oh, and don't"
Text "worry Catherine, everything will be fine."
Text "I'll see you shortly. Oh, and erase this mes-"
Text "sage after you viewed it, just to be safe."
EndDlog
ElseIf picture≠"img221" Then
"img221"→picture
"n217"→listy
EndIf
RplcPic #picture
StoPic ing
RplcPic cursor,x,y
Goto start
Lbl timema
PxlText month,69,0
PxlText string(day),69,60
PxlText string(year),69,80
PxlText string(hour)&":"&string(minutes),69,120
Dialog
DropDown "Month",{"January","Febuary","March","April","May","June","July","August","September","October","November","December"},month
DropDown "Day",{"1","2","3","4","5","6","7","8","9","10","11","12","13","14","15","16","17","18","19","20","21","22","23","24","25","26","27","28","29","30"},day
Request "Year",year
DropDown "Hour",{"1","2","3","4","5","6","7","8","9","10","11","12","13","14","15","16","17","18","19","20","21","22","23","24"},hour
DropDown "Minutes",{"1","2","3","4","5","6","7","8","9","10","11","12","13","14","15","16","17","18","19","20","21","22","23","24","25","26","27","28","29","30","31","32","33","34","35","36","37","38","39","40","41","42","43","44","45","46","47","48","49","50","51","52","53","54","55","56","57","58","59"},minutes
EndDlog
expr(year)→year
If month=1 Then
"January"→month
ElseIf month=2 Then
"February"→month
ElseIf month=3 Then
"March"→month
ElseIf month=4 Then
"April"→month
ElseIf month=5 Then
"May"→month
ElseIf month=6 Then
"June"→month
ElseIf month=7 Then
"July"→month
ElseIf month=8 Then
"August"→month
ElseIf month=9 Then
"September"→month
ElseIf month=10 Then
"October"→month
ElseIf month=11 Then
"November"→month
ElseIf month=12 Then
"December"→month
EndIf
RplcPic #picture
PxlText month,69,0
PxlText string(day),69,60
PxlText string(year),69,80
PxlText string(hour)&":"&string(minutes),69,120
If picture="img175" Then
For aaaa,1,6,1
For aaaaa,1,6,1
RplcPic icio4,15,10
EndFor
For aaaaa,1,6,1
RplcPic icio5,15,10
EndFor
EndFor
ElseIf picture="img179" Then
For aaaa,1,6,1
For aaaaa,1,6,1
RplcPic ici4,15,10
EndFor
For aaaaa,1,6,1
RplcPic ici5,15,10
EndFor
EndFor
EndIf
Lbl abcde
If month="October" and day=11 and year=1984 and hour=10 and minutes=4 Then
If picture="img179" Then
RplcPic ici1,15,10
ElseIf picture="img175" Then
RplcPic icio1,15,10
EndIf
ElseIf month="January" and day=17 and year=1207 and hour=5 and minutes=46 Then
If picture="img179" Then
RplcPic ici2,15,10
ElseIf picture="img175" Then
RplcPic icio2,15,10
EndIf
ElseIf month="November" and day=23 and year=9791 and hour=6 and minutes=57 Then
If picture="img179" Then
RplcPic ici3,15,10
ElseIf picture="img175" Then
RplcPic icio3,15,10
EndIf
EndIf
StoPic ing
RplcPic cursor,x,y
Goto start
Lbl timemac
"img175"→picture
"n175"→listy
RplcPic #picture
Goto abcde
Lbl timemach
"img179"→picture
"n179"→listy
RplcPic #picture
Goto abcde
Lbl rocketdo
If powship=59 Then
Dialog
Title "Myst 89"
Text "Normally this door is supposed to go open,"
Text "but because this will never be the full"
Text "game, just a demo, it won't. But don't"
Text "worry, you can explore the rest of this"
Text "island."
Text ""
Text "Stefan Bauwens"
Text "Author of Myst 89"
EndDlog
Goto start
Else
Goto start
EndIf
Lbl codebox
Request "3-Digit-Code",codee
If codee="724" Then
"img271"→picture
"n271"→listy
RplcPic #picture
StoPic ing
RplcPic cursor,x,y
Goto start
Else
Goto start
EndIf
Lbl match
1→matches
If matches=1 Then
RplcPic #picture
RplcPic match
StoPic ing
RplcPic cursor,x,y
EndIf
Goto start
Lbl stoof
If weel=1 Then
RplcPic img272
RplcPic fira,70,60
StoPic ing
RplcPic cursor,x,y
ElseIf weel=0 Then
"img169"→picture
"n169"→listy
RplcPic #picture
StoPic ing
RplcPic cursor,x,y
EndIf
If matches=1 Then
RplcPic #picture
RplcPic match
StoPic ing
RplcPic cursor,x,y
EndIf
"n169"→listy
If wheeel=1 Then
RplcPic ing
RplcPic fira,70,60
StoPic ing
RplcPic cursor,x,y
EndIf
Goto start
Lbl firee
If matches=1 Then
0→matches
1→wheeel
RplcPic #picture
RplcPic fira,70,60
StoPic ing
RplcPic cursor,x,y
EndIf
Goto start
Lbl wheel
If wheeel=1 and weel=0 Then
RplcPic img272
RplcPic fira,70,60
StoPic ing
RplcPic cursor,x,y
1→weel
Goto start
EndIf
If wheeel=1 and weel=1 Then
RplcPic img169
StoPic ing
RplcPic cursor,x,y
0→weel
0→wheeel
EndIf
Goto start
Lbl treee
If weel=1 Then
"img273"→picture
Else
"img87"→picture
EndIf
"n87"→listy
RplcPic #picture
StoPic ing
RplcPic cursor,x,y
Goto start
Lbl thetre
If weel=1 Then
Dialog
Title "Myst 89"
Text "Since Myst 89 is a demo this lift"
Text "will never work. But don't worry,"
Text "this isn't the only thing you can"
Text "discover."
Text ""
Text "Stefan Bauwens,"
Text "Author of Myst 89"
EndDlog
EndIf
Goto start
©Clock
Lbl clhour
If rsu=0 Then
RplcPic ing
RplcPic wheel3,49,41
StoPic ing
RplcPic cursor,x,y
1→rsu
Else
RplcPic ing
RplcPic wheel1,49,41
StoPic ing
RplcPic cursor,x,y
0→rsu
EndIf
If clho<12 Then
clho+1→clho
ElseIf clho=12 Then
1→clho
EndIf
Goto start
Lbl clminu
If rsuu=0 Then
RplcPic ing
RplcPic wheel4,53,74
StoPic ing
RplcPic cursor,x,y
1→rsuu
Else
RplcPic ing
RplcPic wheel2,53,74
StoPic ing
RplcPic cursor,x,y
0→rsuu
EndIf
If clmi<60 Then
clmi+5→clmi
ElseIf clmi=60 Then
5→clmi
EndIf
Goto start
Lbl clock
0→rsu
0→rsuu
"img80"→picture
"n80"→listy
RplcPic #picture
If clho=1 Then
PxlLine 12,86,8,88
ElseIf clho=2 Then
PxlLine 12,86,9,90
ElseIf clho=3 Then
PxlLine 12,86,12,90
ElseIf clho=4 Then
PxlLine 12,86,14,90
ElseIf clho=5 Then
PxlLine 12,86,16,89
ElseIf clho=6 Then
PxlLine 12,86,17,86
ElseIf clho=7 Then
PxlLine 12,86,16,84
ElseIf clho=8 Then
PxlLine 12,86,14,83
ElseIf clho=9 Then
PxlLine 12,86,12,82
ElseIf clho=10 Then
PxlLine 12,86,11,83
ElseIf clho=11 Then
PxlLine 12,86,8,84
ElseIf clho=12 Then
PxlLine 12,86,8,86
EndIf
If clmi=5 Then
PxlLine 12,86,6,89
ElseIf clmi=10 Then
PxlLine 12,86,6,95
ElseIf clmi=15 Then
PxlLine 12,86,12,95
ElseIf clmi=20 Then
PxlLine 12,86,16,95
ElseIf clmi=25 Then
PxlLine 12,86,18,90
ElseIf clmi=30 Then
PxlLine 12,86,20,86
ElseIf clmi=35 Then
PxlLine 12,86,18,83
ElseIf clmi=40 Then
PxlLine 12,86,15,80
ElseIf clmi=45 Then
PxlLine 12,86,12,76
ElseIf clmi=50 Then
PxlLine 12,86,8,80
ElseIf clmi=55 Then
PxlLine 12,86,5,83
ElseIf clmi=60 Then
PxlLine 12,86,3,86
EndIf
StoPic ing
RplcPic cursor,x,y
Goto start
Lbl clenter
If clho=2 and clmi=40 Then
Dialog
Title "Myst 89"
Text "You entered the correct time, but"
Text "Myst 89 is a demo, so nothing will"
Text "happen now. Don't worry though,"
Text "This isn't the only thing you can"
Text "discover."
Text ""
Text "Stefan Bauwens,"
Text "Author of Myst 89"
EndDlog
0→rsu
0→rsuu
EndIf
Goto start
Lbl stovee
"img227"→picture
"n227"→listy
RplcPic #picture
StoPic ing
RplcPic cursor,x,y
Dialog
Title "Myst 89"
Text "Since Myst 89 is a demo this puzzle"
Text "will never work. But don't worry,"
Text "this isn't the only thing you can"
Text "discover."
Text ""
Text "Stefan Bauwens,"
Text "Author of Myst 89"
EndDlog
Goto start
Lbl journal
Dialog
Title "Myst 89"
Text "Because this calculator doesn't"
Text "have infinite amount of free space"
Text "you can read the books at:"
Text "http://tinyurl.com/mystjournals/"
Text "Here you have to click on 'RealMyst'"
Text "and you can read the journals."
Text ""
Text "NOTE: The books of 'Rime' are only"
Text "in 'RealMyst', so reading them"
Text "won't have any benefit here."
EndDlog
Goto start
©pages
Lbl blue
If bluepa=0 Then
1→bluep
0→redp
"img230a"→picture
RplcPic #picture
RplcPic page
StoPic ing
RplcPic cursor,x,y
EndIf
Goto start
Lbl red
If redpa=0 Then
1→redp
0→bluep
"img123a"→picture
RplcPic #picture
RplcPic page2
StoPic ing
RplcPic cursor,x,y
EndIf
Goto start
©brother books
Lbl bluebo
If bluep=1 or bluepa=1 Then
0→bluep
1→bluepa
Dialog
Title "Myst 89"
Text "ZZZZZ...Sirrus? ZZZ...Is that you?"
Text "Who are you? ZZZZ...see you ZZZZ.."
Text "Achenar ZZZZZZ...to help me ZZ..."
Text "to bring ZZZ...blue pages to ZZZZZ"
Text "forever and ever ZZZ...blue pages"
Text "ZZZZ...I must have the blue pages"
Text "ZZ...Bring them to me,please."
Text "ZZZZZZZZZZZZZZZZZZZZZ..."
EndDlog
Else
Text "ZZZZZZZZZZZZZ..."
EndIf
RplcPic #picture
StoPic ing
RplcPic cursor,x,y
Goto start
Lbl redbo
If redp=1 or redpa=1 Then
1→redpa
0→redp
Dialog
Title "Myst 89"
Text "ZZZ...Who are you ZZZZZ...You must"
Text "help me, please ZZZ..Bring me the"
Text "red page ZZZZ...I can't ZZZZZ..."
Text "I can't see you ZZZZZZ...hear me"
Text "ZZZZZ...I need a red page, you must"
Text "bring me a red page ZZZ...Please"
Text "bring ZZZZZ...beg of you, bring"
Text "the page ZZZ...Help me ZZZZZ..."
Text "I am Sirrus ZZZZ...Given up long"
Text "ago ZZZZZ...There is one thing I"
Text "need to be rescued ZZZ..You must.."
EndDlog
Else
Text "ZZZZZZZZZZZZZ..."
EndIf
RplcPic #picture
StoPic ing
RplcPic cursor,x,y
Goto start
©Check if pages or gone or not
Lbl bluu
If bluepa=1 or bluep=1 Then
"img230a"→picture
Else
"img230"→picture
EndIf
"n230"→listy
RplcPic #picture
If bluep=1 Then
RplcPic page
EndIf
StoPic ing
RplcPic cursor,x,y
Goto start
Lbl redd
If redpa=1 or redp=1 Then
"img123a"→picture
Else
"img123"→picture
EndIf
"n123"→listy
RplcPic #picture
If redp=1 Then
RplcPic page
EndIf
StoPic ing
RplcPic cursor,x,y
Goto start
Lbl mystbo
0→xxxx
For ab,1,77
PxlHorz xxxx
xxxx+1→xxxx
EndFor
"img1"→picture
"n1"→listy
RplcPic #picture
StoPic ing
RplcPic cursor,x,y
Goto start
EndPrgm