OLISA } l 62667 :1 :0 :7 ::23570 \ ,16 :23578 \ ,16 :"olisa$"16384 @
"olru"63941
64874 j
- 23606 6\ ,32 :23607 7\ ,249
64800
""
d
50000 P
x 15619 = ::"olisa$"50000
" 15619 = ::"olrucode"63941
"OLISA"5
! "olisa$"50000 P ,6912
"olru"63941 ,1595 ;
olisa$ PÝ ? ` ? 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 olru ;= h|vb`'()*+,-./0123456789:;<=>?|ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`fiswuapr{oldxt}zjkyegmc~nq B$$BB ` <""< TT8TTT 8<8 |@|BB| LRrRRL > > > < > > BB>"B |BB|@@ BB>"B TTTT| ` <"< TTTT~ DD< 8 8 | ;; *=\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 uEeUUg7TVTT'ttt$$ UW'WWU UuvuuU 7WUUU RUuUUR sUUSUU bUTdEB u%%'!' vu&uuv EEdVUf u'Ww GwWWwVQSq ӵ 0EeUU' "UW4` &qrt# UU'WU UUvuU 7WUU RUuUR sUUSU bUTeB u%#!& vu&uv EdVUf e'g gWWg VQ3 > BB< DHpHDB @@@@@~ BfZBBB BbRJFB 8 num=p(3 ):pro=1 :4500 :t$=t$+"":3100 :3050
p(4 )0 p(4 )20 p(5 )0 num=p(4 ):4500 :3100 :t$=t$+"viwet ":num=p(5 ):4500 :3950 n
Z p(4 )0 p(4 )20 t$=t$+"":num=p(4 ):4500 :3950 n
< p(5 )0 num=p(5 ):4500 :3950 n
# p(6 )<50 2 t$=t$+" ne "
@ p(6 )50 2 p(6 )<100 d t$=t$+", po-moemu, "
@ p(6 )100 d p(6 )<150 t$=t$+", kavetsq, "
E p(6 )150 p(6 )<200 t$=t$+", skoree wsego, "
+ p(6 )200 t$=t$+" nawernqka "
!
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$+", "
fj p(4 )=255 p(5 )=0 t$=t$+"kto ":num=p(3 ):4500 :t$=t$+"?":3950 n
pj p(4 )=0 p(5 )=255 t$=t$+"gde ":num=p(3 ):4500 :t$=t$+"?":3950 n
zp p(3 )=255 p(5 )=0 t$=t$+"kto takoj ":num=p(4 ):4500 :t$=t$+"?":3950 n
j p(3 )=255 p(4 )=0 t$=t$+"~to ":num=p(5 ):4500 :t$=t$+"?":3950 n
p p(3 )=0 p(5 )=255 t$=t$+"gde viwet ":num=p(4 ):4500 :t$=t$+"?":3950 n
p p(3 )=0 p(4 )=255 t$=t$+"kto viwet ":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
`i p(3 )=0 p(5 )=0 t$="":num=p(2 ):4500 :t$=t$+": valx...":3950 n
t' p(6 )<10
t$=t$+"wrqd li "
u: p(6 )10
p(6 )<50 2 t$=t$+"movet, "
vB p(6 )50 2 p(6 )<100 d t$=t$+"q sly{al, ~to "
w> p(6 )100 d p(6 )<150 t$=t$+"kavetsq, "
xC p(6 )150 p(6 )<200 t$=t$+"skoree wsego, "
y) p(6 )200 t$=t$+"kone~no, "
|
accepting package
V t$="":num=p(2 ):pro=0 :4500 :pro=1 :t$=t$+": ":tmp=0
dif=((p(6 )-sure))
A (dif)50 2 sureadrmaxadrt$=t$+"ty uweren?":tmp=1
j p(2 )=7 p(6 )50 2 ƽ(dif)50 2 sureadrmaxadrt$="OLISA: (kiwaet)":tmp=1
k p(6 )150 p(6 )>50 2 dif-50 2 sureadr=maxadrt$=t$+"ty ne znae{x?":tmp=1
W p(6 )50 2 ƽ(dif)50 2 sureadr=maxadrt$=t$+"movet, i tak":tmp=1
C p(6 )150 dif100 d t$=t$+"spasibo!":tmp=1
tmp=1 3950 n
< t$="":num=p(1 ):tmp=pro:pro=0 :4500 :t$=t$+": q ne zna`, kto takoj ":num=p(4 ):4500 :pro=tmp:t$=t$+"":3950 n
Up t$="":s$""t$="":num=8 :pro=0 :4500 :pro=1 :6000 p :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
823560 \ 97 a ƾ23560 \ 122 z ž23560 \ =32 ž23560 \ =33 ! (23560 \ 35 # ƾ23560 \ 38 & )ž23560 \ =44 , ž23560 \ =63 ? ž23560 \ =64 @ 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 15 :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 52 4 :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 ;"U^ITELX uhodit":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
: "yt ",1 ,"dhzl",1 ,"gj-",50 2 ,"vjtv",50 2 ,"levf",50 2 ,"vj#t",50 2 ,"rf#t",100 d ,"!j#",100 d ,"cksi",100 d ,"crjh",200 ,"dthj",200 ,"yfdt",255 ,"njxy",255 ,"jght",255 ,"rjyt",255
D,"eib",1 ,"e!j",1 ,"eif",1 ,"!dj",2 ,"gei",3 ,"ge!",3 ,"%jkm",4 ,"ukfp",4 ,"pe%",5 ,"yjc",6 ,"jkbc",7 ,"exbn",8 ,"yjfv",8 ,"ujke",9 ,"ljv",10
,"j!jn",10
,"yf%k",11 ,"%fiy",11 ,"ektq",12 ,"gxtk",12 ,"gfct",12 ,"eujk",13
,"if!n",13
,"vtkm",14 ,"dtnh",14 ,"gken",15 ,"!fhj",16 ,"jhre",17 ,"rdf",18 ,"reue",18 ,"$pbj",19 ,"dfhe",20 ,"gjly",21 ,"crkj",22 ,"dthi",23 ,"ktd",24 ,"ghfd",25 ,"dth!",26 ,"dybp",27 ,"ybp",27 ,"xfo",28 ,"cnfh",28 ,"vjk",29 ,"tkm",29 ,"tkb",29 ,"tkt",29 ,"%jkj",30 ,"vfr",31 ,"gjkt",31 ,"bhbc",32 ,"gjkz",32 ,"bl",99 c :parser data
I "U[ASTYJ"
J "HWOST"
K "PU[ISTYJ"
L "BOLX[EGLAZYJ"
M "ZUBASTYJ"
N "NOSATYJ"
O "OLISA"
P "U^ITELX"
Q
"golubqtnq"
R "ohotni~ij domik"
S "storovewaq ba{nq"
T "p~elinyj ulej"
U "ugolxnaq {ahta"
V "melxnica"
W
"Pluton"
X "Haron"
Y "Orkus"
Z
"Kwawar"
[ "_zion"
\
"Waruna"
] "u podnoviq holma"
^ "na sklone holma"
_ "na wer{ine holma"
` "na lewom beregu"
a "na prawom beregu"
b "wwerh po te~eni`"
c "wniz po te~eni`"
d "w staroj ~a}e"
e "w molodom elxnike"
f "u bolota"
g "na makowom pole"
h "na irisowoj polqne"
e "yjd",100 d ,"ghjl",101 e ,"dtcn",103 g ,"ds!",104 h ,"dhtv",105 i ,"hgjv",106 j
a "nfrj",1 ,"rjuj",1 ,"rnj",2 ,"rfr",2 ,"ult",3 ,"xnj",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$="q"
, p(6 )0 num=p(2 )v$="ty"
b p(6 )0 p(3 )p(1 )p(3 )p(2 )4510 :t$=t$+"":4530
S p(6 )=0 p(4 )=255 p(5 )=0 num=p(1 )v$="q"
T p(6 )=0 p(4 )=255 p(5 )=0 num=p(2 )v$="ty"
Ɗ p(6 )=0 p(4 )=255 p(5 )=0 p(3 )p(1 )p(3 )p(2 )t$=t$+"":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
fc (c$(1 2 )="ns"c$(1 4 )="nt%z")you=0 com=p(2 ):you=p(2 )
hL (c$(1 2 )="ns"c$(1 4 )="nt%z")you0 com=you
kv (c$(1 2 )="jy"c$(1 3 )="tuj")b(p(2 ),3 )6 p(3 )=b(p(2 ),3 )
pz c$(1 3 )="$nj"b(p(2 ),3 )9 b(p(2 ),3 )14 p(3 )=b(p(2 ),3 )
u{ c$(1 3 )="nfv"b(p(2 ),5 )20 b(p(2 ),5 )32 p(5 )=b(p(2 ),5 )
asking questions
a 4499 :a=1 6 :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 ;"SBROS ili wnutrennqq o{ibka (kod: "+(23681 \ )+")":21 ,0 :#4 ;21 ,0 :4000
pH a=1 ̱s$:s$(aa)=((keys+s$(aa)-32 )):a::input recode
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 ;"Wremq sessii ";(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$="Zdesx: "+p$
# tmp=1 t$=p$+" zdesx"
#2 tmp=0 c(7 )=1 t$="OLISA zdesx"
#0 tmp0 c(7 )=1 t$=t$+"OLISA "
#O :#4 ;21 ,0 ;t$::#4 ;21 ,0 :p$="":t$="":
#x 9450 $ ::#4 ;21 ,0 ;"Ocenka bezopasnosti = ";t$;" (";r(7 );")"::#4 ;21 ,0
#
# extending time
#r(7 )-ext>100 d ext=ext+100 d ::#4 ;21 ,0 ::#4 ;21 ,0 ;"Operaciq prodlena na ";(ext/100 d )+" ~as(a)"::#4 ;21 ,0 ;"Maksimalxnoe wremq sessii "+(3 +ext/100 d )+" ~asa"::#4 ;21 ,0 :
$ :#4 ;21 ,0 ::#4 ;21 ,0 ;"Wysokij urowenx riska. Dopolnitelxnoe wremq ne predostawleno"::#4 ;21 ,0 ;"Maksimalxnoe wremq sessii "+(3 +ext/100 d )+" ~asa"::#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 $
$|
$i :#4 ;21 ,0 ;"SPASIBO WAM ZA U^ASTIE!":0 :m(8 ,11 ),0 :50 2
$
$. t$="":r(7 )150 t$="opasnostx!"
$' r(7 )>150 t$="neizwestno"
$+ r(7 )>400 t$="umerennyj risk"
$' r(7 )>550 & t$="absol`tnaq"
%
% 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 ;"(s) 2007,2012 D.Danner / D.H.S."::#4 ;21 ,0 ;"spasibo A.Ounu, _jnaru i Krizisu za 64#4"::#4 ;21 ,0 ;"spasibo SiPi Softwer za obrabotku o{ibok"
%X@ ::#4 ;21 ,0 ;"NOW - wstuplenie i nowaq igra"
%YE :#4 ;21 ,0 ;"WREM - wremq sessii i prisutstwu`}ie"
%]C :#4 ;21 ,0 ;"IDI - slu{atx razgowor bez u~astiq"
%^M :#4 ;21 ,0 ;"PROD - zaprositx dopolnitelxnoe wremq sessii"
%_? :#4 ;21 ,0 ;"WEST - priwesti Olisu na Forum"
%`9 :#4 ;21 ,0 ;"POM - tot spisok komand"
%bW :#4 ;21 ,0 ;"WYH - wyjti iz programmy"::#4 ;21 ,0
&
&\ :#4 ;21 ,0 :9902 & :tmp=15 :9901 & :9960 & : intro
&9 a=1 tmp:t$::#4 ;21 ,0 ;t$:a:
&x"Pandora, 2189","Sekretnyj poligon Centra zoopsihologi~eskih issledowanij"," ","WNIMANIE: naru{enie perimetra","KOKO: Baza-TRETXEMU, soob}ite podrobnosti","POST: naru{itelxnica - aborigenka,"," priznakow agressiwnosti ne proqwlqet","NIM HIMSKI: to OLISA, dewo~ka iz derewni","NIM: nawernoe, prosto zabludilasx w lesu","KOKO: ob|qwitx wakuaci` perimetra?","NIM: opasno ee ostawlqtx, ona movet natknutxsq na Hi}nika","NIM: esli ona pogibnet, rebqta iz derewni pro~e{ut wesx les","NIM: togda nam pridetsq swora~iwatx ws` bazu","KOKO: proklqtaq sekretnostx! I my dave ne smovem ej pomo~x?","NIM: podovdi, u menq poqwilasx ideq"
&"NIM: kto sej~as so Zwerxmi na Forume?","KOKO: u~itelx NOAM, staver iz Centra","KOKO: ty ho~e{x priwesti ee na Forum?","NIM: wot imenno","NIM: na{i podope~nye smogut sami rasskazatx ej wse, ~to nuvno,"," ~toby wybratxsq iz lesa","KOKO: no ona wsej derewne rasskavet o goworq}ih viwotnyh w lesu!","NIM: podumaj sama, ej wsego-to let pqtx, kto ej powerit?","KOKO: soglasna...","KOKO: no wse rawno, esli ona wstretit Hi}nika,"," my dolvny zabratx ee s`da","KOKO: nelxzq dopustitx, ~toby ona pogibla","NIM: ~to v, poprobuem. Gotownostx gruppe zahwata","KOKO: gruppe zahwata maksimalxnaq gotownostx","KOKO: TRETIJ, wkl`~ajte kstrennu` sistemu orientirowaniq","KOKO: NIM, da` wideoswqzx s U^ITELEM..."," "
&"...A Olisa wse {la i {la po neznakomomu lesu.","W trawe wspyhiwali raznocwetnye ogonxki,"," uwodq ee za soboj.","Ona ne boqlasx bluvda`}ih ognej,"," no w lesnye i bolotnye klady tove ne werila.","Prosto ej bylo wse rawno, kuda idti,"," wedx ona uve dawno sbilasx s dorogi..."," ","Wdrug ona uwidela qrkij solne~nyj swet,"," probiwa`}ijsq skwozx krony derewxew.","Posredi polqny sideli kruvkom {estx zwerej"," i razgowariwali drug s drugom."," "
& 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 :
&̙ "WNIMANIE: nositelx razuma w opasnosti","WTOROJ: kod gotownosti krasnyj. Ob|ekt pokidaet wnutrennij poqs bezopasnosti","KOKO: wsem postam! Gde Hi}nik?"
&Y "NIM HIMSKI: uve po~ti stemnelo...","KOKO: menq bespokoit ~to-to w powedenii Zwerej..."
&L "NIM HIMSKI: ~to proishodit na Forume?","KOKO: U^ITELX Noam dokladywaet: "
& " wy{el iz polq zreniq"
&u"WTOROJ: aborigenku presleduet Zwerx","KOKO: gruppe zahwata prigotowitxsq","NIM: pereda` prioritety spasatelxnoj operacii"," _wakuirowatx aborigenku. Obezwreditx Hi}nika"," Sekretnostx neobqzatelxna. Na~atx operaci`","(...)"," ","KOKO: gruppa zahwata dokladywaet: operaciq zawer{ena","WTOROJ: revim sekretnosti wosstanowlen. Kod gotownosti zelenyj","KOKO: itak, "
& " i estx Hi}nik!"
&һ " No wedx Zweri oby~no sower{enno bezobidny!"," Kak on mog ubiwatx razumnye su}estwa?","NIM: a ne rasskazywal li U^ITELX na Forume"," tu istori` o krasnoj {apo~ke?.."," "
&
& 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 :
& "WNIMANIE: krasnyj kod gotownosti otmenen","WTOROJ: kod gotownosti zelenyj. Ob|ekt pokidaet wnutrennij poqs bezopasnosti,"," blivaj{ij orientir - "
& "KOKO: prodolvajte nabl`denie do poteri widimosti","NIM HIMSKI: U^ITELX i Zweri prekrasno potrudilisx","NIM: q wivu, Olisa prekrasno znaet dorogu"," Teperx ona legko doberetsq do derewni","(...)"," ","OLISA: ..."
& " opredelenno "
&b "MAMA LISA: tss, OLISA, ty ne spi{x?","PAPA LIS: uspokojsq, ty doma, wse horo{o...","OLISA: ..."
& ", kavetsq, "
& :"... hrr..."
&
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=13
: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
'" 62667 :"olrumain"10
'