OLISA g g}i l 60999 G :1 :0 :7 ::23570 \ ,16 :23578 \ ,16 :"olisa$"16384 @
"ol"64800
64874 j
64800
""
d
50000 P
x 15619 = ::"olisa$"50000
" 15619 = ::"olisacod"64800
"OLISA"5
! "olisa$"50000 P ,6912
"ol"64800 ,736
f olisa$ Pg0 ? ` ? p p ` ? & ? ? ? ` 7 ` @ @ ? ? ~ ? ? 3 ? 8 ?< 8 ? ? o ,0` ? q ? x a G ? @ ? ` 0@ ? |? @ $| wϿ|` ` 3 L >09 @~ ? p ? `0 ? ? ? ` ~ x~ ~ 2 9w g p9 8 08?? p x 8d 0` < ` 6Ϗ g &q g 0< ? A < ` ` ? ? &Ç?s ? g ? 0 ` ? ? 0 ǁ?0 s 'Á s g | ) _ @a <0@ ` y1a 1 ǎ 'A{ | g | | ? y ?a 0@ iy s 8 ? '`~? | g '~ g ~ ? 00` ? ` l<sϿ L | ~8 7` |~ '~ ~7 x '?? 0C? < ? y? ~ ϸ > < < }
& ?~x $f @ <~р # ` x 0? ? 8 c < ` > q| ? ~< f р ? <? p > p? 3 ? > > x8 < @ ? 8~ ~8 ??d p G < p `? s
4 ~ 8 > G ? x !8 < h ? F ? F 8 p `G? c x ~ 0 > ? O @ ? H F @ 8 7p O c? | 8 g ?` ! > ? ׀ 0 ? G 8 GGGGGGGGGGGGGGwFGFFGG~GGGGGGGGGGGGGGGGGGGGGGGGGGGFGGG~GGGGGGDGFGGGGGGGGGGGGGGGGGEGFEGFGGGGGGGGBGGGGGGGGGGGGGGGFV~VV~VBGGGGGGGEGGGGGGGGGGGGGGGGGBrrrrrGGGGGGGFGGGGGGGGGGGGGGGGGGBrzzzBGGGGGGGGEDCGGGGGGGGGGGGGGGGBBrBBGGGGGGGFGCCGGGGGGGGGGGGGGGGGBBBGGGGGGGGGCBBGGGGGGGEGGEGGGGoEBBFGGGGGGGCCBBFGGGGGGEGGGGGGGGGGWVGGEGGGGCCBFFDGGGGGGoGoGGGGGGGGGGGGGGGGCBBFFEEGGGGGGgoooGGGOOOOOOOOOGGGBBFDEGGGGGGGFflOoEGGOyOOOOOOOOOoGFDEGEGGGGBFFFGGGEGGGyOOOyOOOOOOGEEGGGGGGGBFFFFGGGGGOyOOOOOOOOOOOGGGGGGGGGGFGBGGGGGOOyOOOOOOOOOOOOGGGGGGGGGGGGGGGGGOyyMMOOOOOOOOOOGGGGGGGGGGGGGGxGGOxyOMOOOOOOOOOOOGGGGGGGGGGGGGGGGOxyOMMOONyxxyxxGGGGGGGGGGGGOMoGGOxxOMOOJFxxxxx}EGGGGGGGGGGGGMoGGOxxOMOHEE}}}}}}MEGGGCGGGGGGGMoGGGHxOMMAEEMMEMMMEEGGGGFGGGGGEMooGGHxOMMGGAAAAAAEEGGGGCGGBGGEEEooxGxxOOMGGGGGGGGGGGFwF ol g| ;; *=\s#r;;͎{ ::\(!( (<2\6 !%"B\2D\}33 *S\+ U!*O\##R" \ɌS !5(0#@0#wp
64#
(I_N >0>29>0/2/2#~͞ `=M)))B O#~4vp#4~p PU ua2t% !Q"P@0 """" R"w"R @$ rVRRRw wsAAw WTWq wAqRRr wUwQQw " " '@' E! B #UuWE5 cTdTTc gTVTTg sDdEEC WRrRRW 5Ue EGGEEu cUUUUV fUUuGC cTVaQV u%%%%' UUUWW% UU%RRR w$$DtGA!! P PFcEw @@cTTs 3UVs s%'!FB@fRRW U ` %'% cUUV cUwAA 3FCF p%%% UUW% U%#Qt"Bs &"!""& 5S > BB< DHpHDB @@@@@~ BfZBBB BbRJFB 8 num=p(3 ):pro=1 :4500 :t$=t$+" is":3100 :3050
p(4 )0 p(4 )20 p(5 )0 num=p(4 ):4500 :t$=t$+" lives":3100 :num=p(5 ):4500 :3950 n
a p(4 )0 p(4 )20 t$=t$+"called ":num=p(4 ):4500 :3950 n
< p(5 )0 num=p(5 ):4500 :3950 n
$ p(6 )<50 2 t$=t$+" not "
; p(6 )50 2 p(6 )<100 d t$=t$+", say, "
< p(6 )100 d p(6 )<150 t$=t$+" maybe "
= p(6 )150 p(6 )<200 t$=t$+" likely "
& p(6 )200 t$=t$+" sure "
!
H question text
RI t$="":num=p(1 ):pro=0 :4500 :pro=1 :t$=t$+": "
\B num=p(2 ):pro=0 :4500 :pro=1 :t$=t$+", "
fq p(4 )=255 p(5 )=0 t$=t$+"how ":num=p(3 ):4500 :t$=t$+" called?":3950 n
po p(4 )=0 p(5 )=255 t$=t$+"where is ":num=p(3 ):4500 :t$=t$+"?":3950 n
zs p(3 )=255 p(5 )=0 t$=t$+"who's called ":num=p(4 ):4500 :t$=t$+"?":3950 n
s p(3 )=255 p(4 )=0 t$=t$+"what's there ":num=p(5 ):4500 :t$=t$+"?":3950 n
v p(3 )=0 p(5 )=255 t$=t$+"where does ":num=p(4 ):4500 :t$=t$+" live?":3950 n
p p(3 )=0 p(4 )=255 t$=t$+"who lives ":num=p(5 ):4500 :t$=t$+"?":3950 n
answers text
I t$="":num=p(1 ):pro=0 :4500 :pro=1 :t$=t$+": "
$8 :t$=t$+"to ":num=p(2):pro=0:4500:pro=1:t$=t$+":"
.h p(3 )0 p(4 )0 flag=1 3700 t :num=p(4 ):4500 :3950 n
8u p(3 )0 p(4 )0 flag=2 3700 t :num=p(3 ):pro=1 :4500 :3950 n
Bh p(3 )0 p(5 )0 flag=1 3700 t :num=p(5 ):4500 :3950 n
Lh p(3 )0 p(5 )0 flag=2 3700 t :num=p(3 ):4500 :3950 n
V3 p(4 )0 p(5 )0 3000
`j p(3 )=0 p(5 )=0 t$="":num=p(2 ):4500 :t$=t$+": shame...":3950 n
t, p(6 )<10
t$=t$+"at least not "
u8 p(6 )10
p(6 )<50 2 t$=t$+"say, "
v@ p(6 )50 2 p(6 )<100 d t$=t$+"as I heard, "
w; p(6 )100 d p(6 )<150 t$=t$+"maybe "
x< p(6 )150 p(6 )<200 t$=t$+"likely "
y+ p(6 )200 t$=t$+"of course, "
|
accepting package
V t$="":num=p(2 ):pro=0 :4500 :pro=1 :t$=t$+": ":tmp=0
dif=((p(6 )-sure))
G (dif)50 2 sureadrmaxadrt$=t$+"do you think so?":tmp=1
h p(2 )=7 p(6 )50 2 ƽ(dif)50 2 sureadrmaxadrt$="OLISA: (nods)":tmp=1
n p(6 )150 p(6 )>50 2 dif-50 2 sureadr=maxadrt$=t$+"aren't you sure?":tmp=1
V p(6 )50 2 ƽ(dif)50 2 sureadr=maxadrt$=t$+"well, maybe":tmp=1
E p(6 )150 dif100 d t$=t$+"thank you!":tmp=1
tmp=1 3950 n
< t$="":num=p(1 ):tmp=pro:pro=0 :4500 :t$=t$+": don't know who ":num=p(4 ):4500 :pro=tmp:t$=t$+" is":3950 n
Ud t$="":s$""t$="":num=8 :pro=0 :4500 :pro=1 :t$=t$+": "+p$+s$+p$:s$=""
n/ t$"":#4 ;21 ,0 ;t$:p$=""
parser
' c(8 )=1 :254 ,0
= tmp=3438 n
:m$="_ ":p(1 )8 m$="? "
% #1 ;1 ,0 ;">";s$;m$
D parfrms=23672 x\ +256 *23673 y\ :23560 \ ,255
A s$255 tmp=3438 n
:23659 k\ ,2 :4100
m (23672 x\ )+256 *(23673 y\ )-parfrms3000 tmp=3438 n
:23659 k\ ,2 :110 n
? =13
tmp=3438 n
:23659 k\ ,2 :4100
23560 \ =12 Ʊs$0 s$=s$((s$-1 )):23560 \ ,255 :#1 ;1 ,0 ;">";s$;m$;" ":4010
23560 \ 97 a ƾ23560 \ 122 z ž23560 \ =32 ž23560 \ =44 , ž23560 \ =63 ? s$=s$+((23560 \ )ƾ23560 \ ):23560 \ ,255 :#1 ;1 ,0 ;">";s$;m$:4010
4012
analysis
K p(1 )8 tmp=p(1 ):p(1 )=p(2 ):p(2 )=tmp
P s$=""tmp=3438 n
:23659 k\ ,2 :23560 \ ,255 :4190 ^
1 com=0 : comend=s$:comnum=0 :c$=""
5 254 ,3 :combeg=1 :y=1 comend
! s$(yy)=(13
)s$(yy)=""
" s$(yy)" "c$=s$(combegy)
$x s$(yy)=" "y=comendt$=" ":a=1 ̱s$:t$=t$+" ":a:t$(̱c$)=c$:c$=t$:4200 h :combeg=y+1
%( s$(yy)="?"type1 type=2
&s s$(yy)=","t$=" ":a=1 ̱s$:t$=t$+" ":a:t$(̱c$)=c$:c$=t$+",":4200 h :combeg=y+1
' y
,= tmp=3438 n
:23659 k\ ,2 :23560 \ ,255
23 p(1 )=0 p(2 )=0 4190 ^
32 tmp=1 :4300 :tmp=0 4195 c
67 type2 p(6 )=0 p(6 )=50 2
9F p(6 )0 comnum3 3920 P :8300 l :110 n
;F p(6 )0 comnum<3 3920 P :8300 l :110 n
@1 type=2 3920 P :7600 :110 n
^T s$="":com99t$="":num=8:pro=0:4500:pro=1:t$=t$+": hmmm..."::#4;21,0;t$
_ 110 n
c. tech=0 p$="""":3920 P :110 n
g s$="":110 n
h interpreter
i comnum=comnum+1
j t$="":c$(c$̱c$)=","t$=","
kE tmp=c$:a=1 tmp:c$(c$̱c$)=" "c$=c$(1 ̱c$-1 )
l a:c$=c$+" "+t$
mD tech0 žm(8 ,11 )=0 4600 :4299
wR 4410 : :a=1 10
:v$,v:c$(1 ̱v$)=v$4360 :4299
x a
z( a=1 ̱c$:c$(aa)=","4220 |
{ a:4222 ~
| 4420 D :a=1 9 :v$,v:c$(1 ̱v$)=v$c$(c$̱c$)=","comnum1 p(2 )=v:you=p(2 ):4299
} a
~2 com=0 :4700 \ :com0 4225
N 4420 D :com=0 :a=1 50 2 :v$,v:c$(1 ̱v$)=v$com=v
7 a:com=0 4800 :com=105 i 4299
2 com=0 4600 :com=0 4299
tech0
8 com14 com1 p(3 )=com:flag=2
9 com20 com15 p(4 )=com:flag=1
9 com32 com21 p(5 )=com:flag=1
com=99 c c(8 )=0 ::#4 ;21 ,0 ;"TEACHER has left":254 ,5 :p(1 )=0 :p(2 )=0 :
5 p(2 )=0 p(2 )=(*6 +1 )
c$="":
! checking relevance (tmp=1 or 0)
. m(8 ,11 )=0 tmp=0 :
# p(1 )=0 tmp=0 :
4350 :tmp=0
type1 4329
n p(3 )b(p(2 ),3 )p(4 )b(p(2 ),4 )b(p(2 ),1 )0 tmp=0
n p(3 )b(p(2 ),3 )p(5 )b(p(2 ),5 )b(p(2 ),1 )0 tmp=0
M p(3 )=255 p(4 )=255 p(5 )=255 tmp=0
type=2 4342
J p(3 )>14 p(4 )>20 p(5 )>32 tmp=0
$ c(p(2 ))=0 tmp=0
4 p(3 )=7 p(3 )=8 tmp=0
3 p(3 )=0 p(4 )=0 4356
3 p(3 )=0 p(5 )=0 4356
3 p(4 )=0 p(5 )=0 4356
i a=3 5 :p(a)=0 b(p(2 ),a)0 b(p(2 ),a)255 p(a)=b(p(2 ),a)
k a:p(3 )+p(4 )=0 p(3 )+p(5 )=0 p(4 )+p(5 )=0 tmp=0
$ p(6 )1 p(6 )=v:
/ p(6 )=1 p(6 )=(v/3 ):
0 interpreter vocabulary
: "no ",1 ,"not",1 ,"leas",1 ,"hear",50 2 ,"mayb",100 d ,"poss",100 d ,"like",200 ,"prob",200 ,"sure",255 ,"cour",255 ,"cert",255
D"ear",1 ,"tail",2 ,"fluf",3 ,"furr",3 ,"fur",3 ,"eye",4 ,"teet",5 ,"toot",5 ,"nose",6 ,"olis",7 ,"teac",8 ,"dove",9 ,"cote",9 ,"hunt",10
,"hut",10
,"towe",11 ,"watc",11 ,"hive",12 ,"bee",12 ,"bees",12 ,"coal",13
,"mine",13
,"mill",14 ,"wind",14 ,"plut",15 ,"char",16 ,"orku",17 ,"quag",18 ,"kwaw",18 ,"kugu",18 ,"quao",18 ,"ixio",19 ,"varu",20 ,"foot",21 ,"slop",22 ,"top",23 ,"left",24 ,"righ",25 ,"up",26 ,"down",27 ,"old",28 ,"grov",28 ,"youn",29 ,"firs",29 ,"swam",30 ,"popp",31 ,"fiel",31 ,"iris",32 ,"glad",32 ,"go",99 c :parser data
I "EARS"
J "TAIL"
K "FLUFF"
L "EYES"
M "TEETH"
N "NOSE"
O "OLISA"
P "TEACHER"
Q "the dovecote"
R "the hunters' hut"
S "the watch tower"
T "the beehive"
U "the coal mine"
V "the windmill"
W "Pluto"
X
"Charon"
Y "Orkus"
Z "Quaguar"
[ "Ixion"
\
"Varuna"
] "at the hill's foot"
^ "on the hill's slope"
_ "on the hill's top"
` "on the left bank"
a "on the right bank"
b "up the creek"
c "down the creek"
d "in the old grove"
e "near the young firs"
f "near the swamp"
g "near the poppy field"
h "at the iris glade"
f "new",100 d ,"dela",101 e ,"lead",103 g ,"exit",104 h ,"time",105 i ,"help",106 j
U "who",1 ,"call",2 ,"name",2 ,"wher",3 ,"what",4 :inquires
/ text generation subroutine (num) (t$=t$+word)
% num6 pro=1 4540
* 4424 H +num:v$:t$=t$+v$:4530
. p(6 )0 num=p(1 )v$="I am"
1 p(6 )0 num=p(2 )v$="you are"
e p(6 )0 p(3 )p(1 )p(3 )p(2 )4510 :t$=t$+" is":4530
V p(6 )=0 p(4 )=255 p(5 )=0 num=p(1 )v$="am I"
Y p(6 )=0 p(4 )=255 p(5 )=0 num=p(2 )v$="are you"
ƍ p(6 )=0 p(4 )=255 p(5 )=0 p(3 )p(1 )p(3 )p(2 )t$=t$+"is ":4510 :4530
t$=t$+v$
technical interpreter
tech0 4630
N 4498 :a=1 8 :v$,v:c$(̱v$)=v$com=v:tech=v:arg=0
a:4660 4
[ a=1 ̱c$:(c$(aa))48 0 Ư(c$(aa))57 9 ů(c$(aa))=32 a:4650 *
4 parsing commands
6> tech=103 g random=7 :c(random)=1 :190
7 tech=104 h 9998 '
9 tech=106 j 9560 X% :
: tech=105 i 9100 #
> tech=101 e 9200 #
M tech=100 d 9900 &
R
a p(2 )=0
fG c$(1 3 )="you"you=0 com=p(2 ):you=p(2 )
h0 c$(1 3 )="you"you0 com=you
kZ c$(1 2 )="he"b(p(2 ),3 )6 p(3 )=b(p(2 ),3 )
py c$(1 2 )="it"b(p(2 ),3 )9 b(p(2 ),3 )14 p(3 )=b(p(2 ),3 )
u| c$(1 4 )="ther"b(p(2 ),5 )20 b(p(2 ),5 )32 p(5 )=b(p(2 ),5 )
asking questions
a 4499 :a=1 5 :v$,v:c$(̱v$)=v$com=105 i :p(6 )=0 :4830
a:
6 v=1 p(3 )0 p(4 )=255 :
6 v=1 p(4 )0 p(3 )=255 :
_ v=1 p(3 )=0 p(4 )=0 p(3 )=255 :p(4 )=255 :
! v=2 p(4 )=255
! v=3 p(5 )=255
! v=4 p(3 )=255
#
$ on error
% 254 ,2 :21 ,0 :#4 ;21 ,0 ;"BREAK or internal ERROR (code: "+(23681 \ )+")":21 ,0 :#4 ;21 ,0 :4000
p generating statement
z8 random=(*108 l )+1 :node=random:8000 @
max<50 2
# p(3 )=object:p(6 )=max
^ object<7 p(4 )=maxnode+14 :max<100 d p(4 )=(*6 )+15
_ object9 p(5 )=maxnode+20 :max<100 d p(5 )=(*12 )+21
text generation
3000
S p(1 )>0 p(1 )<7 a=1 6 :b(p(1 ),a)=p(a):a
8 8300 l
W
X' generating and answering question
bR random=(*108 l )+1 :p(1 )=7 random=(*180 )+1
d1 random>108 l p(1 )=7 7300
e1 random>108 l random=(*108 l )+1
g node=random:8000 @
l' p(3 )=object:p(6 )=0
v- object<7 p(4 )=minnode+14
- object9 p(5 )=minnode+20
tmp=
@ object<7 tmp>0.5p(4 )=255 :7500 L
@ object<7 tmp0.5p(3 )=255 :7500 L
@ object9 tmp0.5p(3 )=255 :7500 L
@ object9 tmp>0.5p(5 )=255 :7500 L
logical question genr
minsure=255
B b=0 5 :node=108 l +b*12 +6 :8000 @
- max0 p(1 )<7 a=1 6 :b(p(1 ),a)=p(a):a
V> p(2 )=8 type=1 :you=p(1 ):4000
answer
7 tmp=p(2 ):p(2 )=p(1 ):p(1 )=tmp
5 p(3 )0 p(3 )255 7620
" p(3 )=255 7700
p(3 )=0 7800 x
object question
t node=(p(3 )-1 )*6 +3 :p(3 )9 node=36 $ +(p(3 )-9 )*12 +6
8000 @
^ object<7 p(4 )=maxnode+14 :max<100 d p(4 )=(*6 )+15
_ object9 p(5 )=maxnode+20 :max<100 d p(5 )=(*12 )+21
* flag=1 :p(6 )=max:7996 <
name or location
7 record=p(4 ):record=0 record=p(5 )
(I 8100 :p(6 )=max:node=maxnode:8000 @ :p(3 )=object
2 flag=2 :7996 <
x logical answer
record=p(4 ):8100
node=maxnode:8000 @
: max<50 2 p(5 )=0 :3900 < :7996 <
k node=108 l +(object-1 )*12 +6 :8000 @ :p(5 )=maxnode+20 :p(6 )=max
; text generation
<( p(6 )=0 p(6 )=1
= 3600
> 8300 l
?
@N direct search subroutine (node) (object,nodenum,max,maxnode,min,minnode)
A 1 ,7 ,13
,19 ,25 ,31 ,37 % ,49 1 ,61 = ,73 I ,85 U ,97 a ,109 m ,121 y ,133 ,145 ,157 ,169 ,181
C 8001 A
Dk rd=0 :object=0 :maxnode=1 :minnode=1 :nodenum=0 :max=0 :min=255
J; strt=0 :a=1 19 :rd:rd>node8020 T
O strt=rd
P a
Ta num=rd-strt:object=a-1 :nodenum=1 +node-strt:object>6 object=object+2
^= a=0 num-1 :adr=m(p(1 ),strt+a):srch=adr
h' srch>maxmax=srch:maxnode=a+1
r' srchmaxmax=srch:maxnode=a
srch6 object=p(3 )-2
$ lg=1 object=object+12
a=1 object:ra:a
M surenode=ra+nodenum-1 :sureadr=m(p(2 ),surenode):sure=sureadr
z p(1 )=p(2 ):node=surenode:8000 @ :maxnode=ra+maxnode-1 :maxadr=m(p(2 ),maxnode):max=maxadr
3800
. sure=(sure+(p(6 )-sure)*(1.66TzH))
sure>255 sure=255
sure<0 sure=0
max=(max+p(6 )/10
)
max>255 max=255
max<0 max=0
( dif=((p(6 )-sure)*(1.66TzH))
= a=rara+stp-1 :minadr=m(p(2 ),a):min=(minadr)
dif0 min=min+1
4 dif>0 min=min-(p(6 )/5 )-1
min<0 min=0
! min>255 min=255
! minadr,min:a
!4& sureadr,sure:maxadr,max:8800 `"
! logical accept
! p(1 )=p(2 )
! record=p(4 ):8100
! node=maxnode:8000 @
!) p(3 )=object:p(4 )=0 :
#'
#Z rating
#[! m(8 ,11 )=0
#d/ tmp=23670 v\ +256 *23671 w\ :seed
#i b=(*6 ):ratnode=36 $ +b*12 +(*12 )+1 :a=1 7 :adr=m(a,ratnode):r(a)=(-1 )*(255 -adr):a:node=b:jpr=0
#nW b=(*6 ):ratnode2=36 $ +b*12 +(*12 )+1 :a=1 7
#o adr=m(a,ratnode2):r(a)=r(a)+(-1 )*(255 -adr)+512 :b=noder(a)=r(a)-(-1 )*(255 -adr)-512 :seed:jpr=jpr+1 :x=1 2 +jpr:ratnode2=ratnode2+0 *:x:9070 n#
#p a:b+1;" ";ratnode-36-b*6+1
#s p(1 )=7 :seed:a=1 5 +jp:tmp3=(*6 )+1 :a:ratnode=(ratnode-36 $ )-(((ratnode-36 $ )/12 ))*12 :ratnode2=(ratnode2-36 $ )-(((ratnode2-36 $ )/12 ))*12
#tE tmp2=(*12 )+1 :tmp2=ratnode tmp2=ratnode29076 t#
#un seed:node=36 $ +(*6 )*12 +3 :8000 @ :maxnode=tmp2r(7 )=r(7 )-200
#x seed:a=1 1 +jpr:node=:a:node=36 $ +(*6 )*12 +3 :8000 @ :maxnode=tmp2r(7 )=r(7 )-200
#}V node=108 l +(tmp3-1 )*12 +tmp2:r(7 )=r(7 )+m(7 ,node)
# tmp:p(1 )=0
#
#c ::#4 ;21 ,0 :#4 ;21 ,0 ;"Session time ";(hrs);":";(mns):;cy
#f p$="":tmp=0 :a=1 6 :c(a)=1 4424 H +a:t$:p$=p$+t$+" ":tmp=tmp+1
# a
#( t$="":tmp>1 t$="Here are: "+p$
# tmp=1 t$=p$+" is here"
#4 tmp=0 c(7 )=1 t$="OLISA is here"
#0 tmp0 c(7 )=1 t$=t$+"OLISA "
#O :#4 ;21 ,0 ;t$::#4 ;21 ,0 :p$="":t$="":
#u 9450 $ ::#4 ;21 ,0 ;"Estimated safety = ";t$;" (";r(7 );")"::#4 ;21 ,0
#
# extending time
# r(7 )-ext>100 d ext=ext+100 d ::#4 ;21 ,0 ::#4 ;21 ,0 ;(ext/100 d )+"-hour extension granted"::#4 ;21 ,0 ;"Maximum session time "+(3 +ext/100 d )+" hours"::#4 ;21 ,0 :
$ :#4 ;21 ,0 ::#4 ;21 ,0 ;"High risk. No additional time allowed"::#4 ;21 ,0 ;"Maximum session time "+(3 +ext/100 d )+" hours"::#4 ;21 ,0 :
$R
$T winning and losing
$^N r(7 )-ext<550 & hrs-(ext/100 d )3 9930 & :9399 $
$h2 r(7 )-ext150 9940 & :9399 $
$r2 r(7 )-ext>550 & 9950 & :9399 $
$|
$n :#4 ;21 ,0 ;"THANK YOU FOR PARTICIPATION!":0 :m(8 ,11 ),0 :50 2
$
$. t$="":r(7 )150 t$="in danger!"
$& r(7 )>150 t$="uncertain"
$% r(7 )>400 t$="moderate"
$% r(7 )>550 & t$="absolute"
%
% beginning of the game
%&C 23624 H\ ,15 :23692 \ ,0 :9550 N% :4000
%N help/credits
%S%:23692 \ ,0 :21 ,0 :#4 ;21 ,0 ;"O L I S A"::#4 ;21 ,0 ;" 2007,2012 D.Danner / D.H.S."::#4 ;21 ,0 ;"thanks to A.Owen, Einar and Crisis for 64#4"::#4 ;21 ,0 ;"thanks to CP Software for error handling"
%XA ::#4 ;21 ,0 ;"NEW - see intro and start game"
%YH :#4 ;21 ,0 ;"TIME - see session time and who is here"
%]> :#4 ;21 ,0 ;"GO - listen w/o participation"
%^B :#4 ;21 ,0 ;"DELAY - request more session time"
%_; :#4 ;21 ,0 ;"LEAD - lead Olisa to Forum"
%`A :#4 ;21 ,0 ;"HELP - see this list of commands"
%bW :#4 ;21 ,0 ;"EXIT - terminate program"::#4 ;21 ,0
&
&\ :#4 ;21 ,0 :9902 & :tmp=14 :9901 & :9960 & : intro
&9 a=1 tmp:t$::#4 ;21 ,0 ;t$:a:
&."Pandora, 2189","Secret animal psychology research facility"," ","WARNING: perimeter violation","COCO: base to THIRD, details please","THIRD: the violator is aboriginal, behaviour not aggressive","NIM CHIMSKY: it's OLISA, a girl from the village","NIM: must've gone astray in the forest","COCO: shall we evacuate the perimeter?","NIM: too dangerous, she may encounter the Predator","NIM: if she's lost, the villagers will scan the entire forest","NIM: we'll all have to retreat then","COCO: damn secrecy! can we not help her?","NIM: wait, I've got an idea"
&"NIM: who's with the Beasts at the Forum?","COCO: the teacher NOAM, an intern from the Centre","COCO: don't you want to lead her to Forum?","NIM: exactly","NIM: at least our students could lead her out of the forest","COCO: but she will tell the whole village"," about the talking animals in the forest!","NIM: c'mon, she's just five, who'd believe her?","COCO: agree...","COCO: but still, if she meets the Predator,"," we have to take her here","COCO: we can not let her die","NIM: well, let's try. Capture unit ready","COCO: maximum readiness to capture unit","COCO: THIRD, emergency guiding system on","COCO: NIM, connection with the TEACHER established..."," "
&"...Olisa went on and on through the unfamiliar forest.","Little lights of different colours flashed in the grass,"," leading her.","She was not afraid of will-o-the-wisps,"," nor did she believe in forest and swamp treasures.","She just did not care where to go,"," for she had long since lost her way..."," ","Suddenly she saw the bright sunlight through the branches.","At a small glade, six beasts were sitting in circle"," and talking to each other."," "
& time out lost
&pro=0 :9932 & :tmp=3 :9901 & :9933 & :tmp=2 :9901 & :9934 & :tmp=1 :9901 & :t$:seed:a=1 5 :num=(*6 )+1 :a:4500 :9935 & :v$:t$=t$+v$::#4 ;21 ,0 ;t$:9936 & :tmp=6 :9901 & :0 :tmp=3 :9901 & :t$:4500 :9937 & :v$:t$=t$+v$::#4 ;21 ,0 ;t$:9938 & :tmp=5 :9901 & ::#4 ;21 ,0 :
&̎ "WARNING: sentient being in danger","SECOND: code red. Subject leaves the internal security zone","COCO: all guards, where is the Predator?"
&Z "NIM CHIMSKY: it's nearly dark...","COCO: something in Beasts' behaviour disturbs me..."
&N "NIM CHIMSKY: what's happening at the Forum?","COCO: TEACHER Noam reports: "
& " has left the FOV"
&Ђ"SECOND: the aboriginal subject is followed by a Beast","COCO: capture unit maximum readiness","NIM: rescue operation priorities follow"," Capture the aboriginal subject. Neutralize the Predator"," Secrecy optional. Operation initiated","(...)"," ","COCO: capture unit reports: rescue operation complete","SECOND: secrecy mode restored. Alert revoked. Code green","COCO: so, "
& " is the Predator!"
& " But the Beasts are usually completely harmless!"," How was he able to kill the sentient beings?","NIM: hasn't the TEACHER told that Red Riding Hood story"," at the Forum?.."," "
&
& predator lost
&կpro=0 :9932 & :tmp=3 :9901 & :9934 & :tmp=1 :9901 & :t$:seed:a=1 5 :num=(*6 )+1 :a:4500 :9935 & :v$:t$=t$+v$::#4 ;21 ,0 ;t$:9936 & :tmp=6 :9901 & :0 :tmp=3 :9901 & :t$:4500 :9937 & :v$:t$=t$+v$::#4 ;21 ,0 ;t$:9938 & :tmp=5 :9901 & ::#4 ;21 ,0 :
& victory
&jpro=0 :9952 & :tmp=2 :9901 & :t$:seed:num=(*6 )+9 :4500 ::#4 ;21 ,0 ;t$:9953 & :tmp=6 :9901 & :0 :t$:4500 :9954 & :v$:t$=t$+v$:num=(*12 )+21 :4500 ::#4 ;21 ,0 ;t$:9955 & :tmp=2 :9901 & :t$:seed:a=1 5 :num=(*6 )+1 :a:4500 :9956 & :v$:t$=t$+v$:p(1 )=7 :node=(num-1 )*6 +2 :8000 @ :num=maxnode+15 :4500 :9957 & :v$:t$=t$+v$::#4 ;21 ,0 ;t$::#4 ;21 ,0 :
&x "WARNING: code red revoked","SECOND: code green. Subject leaves the internal security zone,"," moving towards "
& "COCO: hold surveillance until leaving the FOV","NIM CHIMSKY: the TEACHER and the Beasts have worked well","NIM: I see Olisa knows her way perfectly"," She can get to the village easily now","(...)"," ","OLISA: ..."
&
" is sure "
&u "MOTHER VIXEN: hush, OLISA, aren't you sleeping?","FATHER FOX: You're home, everything is fine now...","OLISA: ..."
& " is maybe called "
& :"... zzz..."
&
new game
&%a=1 6 :c(a)=2 :a:254 ,3 :a=table+1 table+630 v :a,0 :a:9903 & :tmp=17 :9901 & :a=table+631 w table+1261 :a,0 :a:9904 & :tmp=12 :9901 & ::23672 x\ ,0 :23673 y\ ,0 :23674 z\ ,0
& seed=(*65535 )+1 :tech=0 :cy=0 :ext=0 :m(8 ,11 ),1 :23560 \ ,255 :s$=""
& jp=0 :tmp=23670 v\ +256 *23671 w\ :seed:a=(*6 )+1 :tmp2=(*12 )+1 :x=(((a+tmp2)/3 -((a+tmp2)/3 ))*6 )+1 :m(x,36 $ +(a-1 )*12 +tmp2),150 :node=a
& a=(*6 )+1 :anodetmp3=(*12 )+1 :x=(((a+tmp3)/3 -((a+tmp3)/3 ))*6 )+1 :m(x,36 $ +(a-1 )*12 +tmp3),150 :b=(*6 )+1 :c(b)=0 :9970 &
& jp=jp+1 :9964 &
&D a=(*12 )+1 :a=tmp2a=tmp39970 & :jp=jp+1:9970
&U node=108 l +(b-1 )*12 +a:x=1 6 :(m(x,node)),255 :x
' x=1 6 :c(x)=2 a=(*12 )+1 :node=108 l +(x-1 )*12 +a:y=1 6 :(m(y,node)),255 :y:c(x)=0
' x:tmp
'^ a=1 6 :c(a)=1 :m(a,(a-1 )*6 +a),50 2 :a:c(7 )=0
' tmp=23670 v\ +256 *23761 \ :seed:a=1 5 +jp:p(1 )=(*6 )+1 :a:node=(p(1 )-1 )*6 +1 :8000 @ :tmp4=maxnode
'ip(2 )=p(1 ):9992 ' :node=(p(1 )-1 )*6 +1 :8000 @ :tmp3=maxnode:node=(p(2 )-1 )*6 +tmp4:m(p(2 ),node),0 :node=node-tmp4+tmp3:m(p(2 ),node),50 2 :node=(p(1 )-1 )*6 +tmp3:m(p(2 ),node),0 :node=node-tmp3+tmp4:m(p(2 ),node),50 2 :tmp:9996 '
' stp=12 :nodenum=tmp2:strt=109 m :max=0 :min=255 :maxnode=1 :minnode=1 :8120 :max0 p(1 )=((maxnode-108 l )/12 )+1 :
' stp=12 :nodenum=tmp3:strt=109 m :max=0 :min=255 :maxnode=1 :minnode=1 :8120 :p(1 )=((maxnode-108 l )/12 )+1 :p(2 )p(1 )
'
: p(1 )=(*6 )+1 :p(2 )p(1 )
' 9994
'
' * 9110 # :254 ,0 :100 d
'
'
0
' 60999 G :"olmain"10