Style_BackColor=0
Style_TextColor=256*255*256+255*256+255
:game

Pln
pln
pln ===| |=========================
pln ===| |=========================
pln ===| |           _Sick  Mind_
pln ===| |       ( Episode I 'Escape' )
pln ===| |=========================
pln ===| |=========================
pln ===| |=========================
pln ===| |=========================

infpent=0
pol=0
dvizpr=0
codeiz=0
ttt=0
fonar=0
ôoí=0
domop=0
domopk=0
äoêô=0
electro=1
gbass=0
sob=1
osh=0
oosh=0
money=0
patron=
ohrub=0

pistol1=6
pistol2=7
pistol3=7
pistol4=0

police=0
gpalm=0
ìoíeòa=0
rubdom=0
ubband=0
cïè÷êè1=0
gkir=0
fire=0
vkr=0
gohmdv=0
demon=1
Demon_Gara=500
gordj=0
gch=0
ghol=0
gungkir=0
govpog=0
tumbot=1
skzakr=0
poluch=0
razgsp=0
bvzpuch=0
blroom=0
gtrenaj=0
gar=0
odpalf=0
vpvz=0
pnk=0
osmsum=0
gogr=0
oosh2=0
pkz=0
pkz2=0
klotpu=0
bvprp=0
cop=0
vylmo=0
pitgroun=0
ohrzd=0
1hfloor1=0
gholl=0
novtv=0
vakcina=0
dvhome=0
gworld=1
pr1=25
pr2=25
pr3=25
ppr1=50
ppr2=50
ppr3=50
pppr1=100
pppr2=100
vitrin=0
sign=1
prdoc=0
weapon=0
entvt=0
ost=0
perekr1=0
begstr=0
grstr=0
magaz=0
opmag=0
wax=0
dark=0
gungs=0
vosp=0
prmdj1=0
shkprm=1
diskinf=0
glroom=1
diskk=0
comp=0
ded=0
dej1=0
dej2=0
pent=0

btn begin,Èãpaòü
btn help, Ïoìoùü
btn about, O èãpe
btn autor, Aâòop
end

:autor

pln ===| |=========================
pln ===| |=========================
pln ===| |=========================
pln ===| |=========================
pln Aâòop: HACK_87
pln Ãoä: 2012
pln
pln Aâòopoì ýòoé êâecò-êíèãè ÿâëÿþcü ÿ, oí æe HACK_87
pln Haéòè ìeíÿ ìoæío ía òaêèx caéòax, êaê waper.ru è spaces.ru
pln Taê æe, ïèøèòe ía email: HACK_87@spaces.ru
pln Cþæeò èãpû íaïècaí ïo ìoeé áyäyùeé êíèãe 'Áoëüíoé paçyì' (Sick Mind)
pln Ýòo òoëüêo ïepâûé ýïèçoä (Escape) 'Ïoáeã', âeäü eùe âce âïepeäè. )))
pln
pln ía÷aëo coçäaíèÿ êâecòa: 17.01.12
pln êoíe÷íaÿ äaòa: 05.02.12
pln
pln Ïoìoùü ïo ïpoãpaììíoé ÷acòe: (RooMeN, Cepûé Boëê)
pln ===| |=========================
pln ===| |=========================
btn game, íaçaä â ìeíþ
end

:about

pln ===| |=========================
pln ===| |=========================
pln ===| |=========================
pln ===| |=========================
pln Cþæeò:
pln
pln Moëoäoé ïapeíü Äæeéìc Poyä, ïpoæèâaþùèé ía áepeãax þæíoé Aìepèêè, ïoëy÷aeò â íacëeäcòâo oò câoeé ïoêoéíoé áaáyøêè, áoëüøoé òpex-ýòaæíûé ocoáíÿê.
pln Äæeéìcy âce o÷eíü ípaâèëocü, âeäü o òaêoì äoìe ìoã ìe÷òaòü ïo÷òè êaæäûé æèòeëü Aìepèêè.
pln Taì áûëa è ïpècëyãa, è oãpoìíûé äeêopaòèâíûé ôoíòaí, êoòopûé còoÿë âo äâope ocoáíÿêa.
pln B oäèí äoâoëüío æyòêèé ìoìeíò, Äæeéìc íaxoäèò còapûé ïoäâaë, ãäe eìy ía ãëaça ïoïaäaeòcÿ äpeâíÿÿ è o÷eíü còapèííaÿ êíèãa c íeïoíÿòíûìè Äæeéìcy èepoãëèôaìè.
pln Ïo oøèáêe, Äæeéìc êèäaeò êíèãy â êaìèí, êíèãa cãopaeò, ío ïocëe ýòoão â äoìe Äæeéìca ía÷aëè ïpoècxoäèòü o÷eíü còpaííûe âeùè.
pln È cëy÷aeòücÿ òo, ÷eão ïapeíü íe ìoã oæèäaòü, äoì áyêâaëüío äeëaeò âce ÷òoáû Äæeéìcy áûëo ïocòoÿíío ïëoxo.
pln Bcêope Äæeéìc cxoäèò c yìa, è êèäaeòcÿ ïoä ïoeçä, ío cìepòü oáxoäèò eão còopoíoé.
pln Ïapíÿ cïacaþò, ío ïpè ýòoì, ïoìeùaþò eão â ïcèxèaòpè÷ecêyþ áoëüíèöy.
Pln
pln ×epeç íecêoëüêo äíeé â áoëüíèöe ïpoècxoäèò ïoæap, è âcex áoëüíûx ïepeâoäÿò â äpyãoe çaâeäeíèe.
pln A ýòy áoëüíèöy ïoêèäaþò, cëy÷aéío âûápocèâ èç ïaìÿòè, ÷òo â oäíoé èç ïaëaò áoëüíèöû ocòaëcÿ Äæeéìc.
Pln    Bûæèâeò ëè Äæeéìc?
Pln    È íeyæeëè âo âceì âèíoâaòa êíèãa?
Pln Ýòoò âoïpoc òaê è ocòaëcÿ äëÿ âcex òaéíûì.
pln ===| |=========================
pln ===| |=========================
aboutq=1
btn game, íaçaä â ìeíþ
end

:help

pln ===| |=========================
pln ===| |=========================
pln ===| |=========================
pln ===| |=========================
pln Èãpa ïpeäcòaâëÿeò coáoé êâecò-êíèãy, òo ecòü, âû ìoæeòe ïpocòo èãpaòü, a ìoæeòe â÷èòûâaòücÿ â caì cþæeò.
Pln Æìèòe ía êíoïêè, ÷òoá èìeòü âoçìoæíocòü ïepexoäèòü ïo ëoêaöèÿì.
Pln          Coâeòû ïo èãpe:
pln 1. ×aùe coxpaíÿéòecü, ãäe áyäeò òaêaÿ âoçìoæíocòü, íaïpèìep â áoëüíèöe ecòü êoìïüþòep, ãäe ìoæío coxpaíèòü èãpy, ío ía âepcèè ïpoãpaììû coxpaíeíèe ìoæeò paáoòaòü íe ïpaâèëüío. Ïpè 3aãpyçêe èãpû, äaííûe ìoãyò ècêoâepêaòücÿ.
Pln 2. Áûâaþò òaêèe cëy÷aè, ÷òoáû ïpoéòè ëoêaöèþ íyæío ãäe-òo êoìáèíèpoâaòü ïpeäìeòû, a ãäe ïpocòo íyæío âepíyòücÿ ía ïpeäûäyùyþ ëoêaöèþ.
Pln 3. Çaïoìèíaéòe ëþáûe öèôpû, êoäû, oíè ìoãyò áûòü ïapoëeì ê ÷eìy-íèáyäü.
Pln 4. He ècïoëüçyéòe ïpeäìeòû/ïaòpoíû áeç íaäoáíocòè, a òaêæe íe íyæío òpaòèòü ìíoão äeíeã, èía÷e âû íe cìoæeòe ïpoéòè êâecò.
Pln
pln Ócëoâíûe oáoçía÷eíèÿ:
pln B èíâeíòape:
pln
pln - â cêoáêax [âeùè] - ìoæío ÷èòaòü
pln - â cêoáêax {{ âeùè }} - ìoæío ècïoëüçoâaòü
pln
pln B èãpe:
pln - (...) - ìûcëè ïepcoíaæa
pln
Pln 5. ÓäA÷È âAì â ÏpOxOæÄeHèÈ ýToÉ èÃpû! )))
pln ===| |=========================
pln ===| |=========================
btn game, íaçaä â ìeíþ
end 

=====================================
=====================================
:begin
Style_BackColor=0
Style_TextColor=256*255*256+255*256+255

if ded=1 then invkill & goto game
if aboutq=1 then goto Ngame
pln ===| |=========================
pln ===| |=========================
pln ===| |=========================
pln ===| |=========================
pln Tû xo÷eøü ía÷aòü èãpy, òaê è íe ïpo÷èòaâ cþæeòa???
Pln Kaêoé cìûcë òoãäa ía÷èíaòü???

btn about, ïpo÷èòaòü cþæeò
pln ===| |=========================
pln ===| |=========================
end
:Ngame
inv+ [çäopoâüe] (HP)
inv+ [cèëa]
inv+ [äeíüãè]
health=100
force=3
lom=0
elev=0
oïûò=0
fl2=0
osm=0
fl1=0
floor1=0
floor2=0
floor3=0
pal1=0
pal2=0
pal3=0
pal4=0
pal5=0
pal6=0
pal7=0
tul=0
klad=0
izol=0
gorlo=0
lest=0
dej=0
gaz=1
gorl=5

pln ===| |=========================
pln Äæeéìc o÷íyëcÿ, ocìoòpeâøècü âoêpyã ïapeíü ïoíÿë, ÷òo ýòo íe ïaëaòa, a cêopee âceão ïoäâaë.
Pln Äa, èìeíío ïoäâaë, áeëûe còeíû áyêâaëüío ïoãèáaëè oò cûpocòè, co âcex còopoí âeÿëo xoëoäoì.
pln Äæeéìc ïoäíÿëcÿ ía íoãè è ïepâoe ÷òo ápocèëocü eìy â ãëaça, òaê ýòo áoëüøaÿ æeëeçíaÿ äâepü.
Pln ===| |=========================

Btn otr door1, oòêpûòü äâepü
btn zakr, çaêpè÷aòü
btn osmotr, ocìoòpeòü ïoìeùeíèe
end

:use_[çäopoâüe] (HP)
pln çäopoâüe Äæeéìca - #health$ %
end

:zakr
if gorl<6 and gorl>3 and gorlo=1 then goto krik
if gorl=3 and gorlo=1 then goto krik2
if gorl=3 and gorlo=0 then goto zakr2
gorl=gorl-1
pln ===| |=========================
pln Äæeéìc co âcex cèë êpèêíyë âo âce  ãopëo, ío êpoìe câoeão ýxa oí íè÷eão íe ycëûøaë.
Ecëè Äæeéìc çaêpè÷èò eùe, oí ìoæeò copâaòü ceáe ãopëo è oxpèïíyòü.
pln ===| |=========================
Btn otr door1, oòêpûòü äâepü
btn zakr, çaêpè÷aòü
btn osmotr, ocìoòpeòü ïoìeùeíèe
end

:use_[cèëa]
pln cèëa Äæeéìca - #force$ %
end
:zakr2
pln ===| |=========================
Äæeéìc copâaë ceáe ãopëo, oí ìoæeò ãoâopèòü, ío çaêpè÷aòü oí áoëüøe íe cìoæeò.
pln ===| |=========================
Btn otr door1, oòêpûòü äâepü
btn zakr, çaêpè÷aòü eùe
btn osmotr, ocìoòpeòü ïoìeùeíèe
end


:osmotr
if osm=1 then goto osm1
pln ===| |=========================
pln Oáû÷íûé còapûé ïoäâaë, ía ïoëy âaëÿþòcÿ còapûe ïoëoìaííûe còyëüÿ è còoëû.
Pln Eùe çäecü æyòêo âoíÿeò. Äa è êòo áoèòcÿ êpûc, yæe á äaâío ïpoáèë còeíû è cáeæaë.
pln Äæeéìc íèêoãäa êpûc íe áoÿëcÿ, oí áûë è ecòü cìeëûì ïapíeì. Ho âeäü êaæäûé ÷eão-òo áoèòücÿ, íe òaê ëè?
pln ===| |=========================
osm=1
Btn otr door1, oòêpûòü äâepü
btn zakr, çaêpè÷aòü
btn osmotr, ocìoòpeòü ïoìeùeíèe
end
:osm1
if oïûò=4 then goto osmotr3
if oïûò=7 then goto osmotr4
if oïûò=11 then goto osmotr5
if oïûò=12 then goto osmotr6
oïûò=oïûò+1

pln ===| |=========================
pln Oáû÷íûé còapûé ïoäâaë, ía ïoëy âaëÿþòcÿ còapûe ïoëoìaííûe còyëüÿ è còoëû.
pln ===| |=========================
Btn otr door1, oòêpûòü äâepü
btn zakr, çaêpè÷aòü
btn osmotr, ocìoòpeòü ïoìeùeíèe
end

:osmotr3
pln ===| |=========================
pln Ïocëe íecêoëüêèx ìèíyò ïoècêa, cpeäè êy÷è xëaìa Äæeéìc íaøeë oäíy cepeápÿíyþ ìoíeòy.
pln ===| |=========================
inv+ cepeápÿíaÿ ìoíeòa
Btn otr door1, oòêpûòü äâepü
btn zakr, çaêpè÷aòü
btn osmotr, ocìoòpeòü ïoìeùeíèe
oïûò=oïûò+1
end

:osmotr4
pln ===| |=========================
pln Cïycòÿ íeáoëüøoe êoëè÷ecòâo âpeìeíè, Äæeéìc íaxoäèò ìaëeíüêèé íoæ, êoãäa çäecü paáoòaëè paáo÷èe, âèäaòü oíè òo íoæ çaáûëè.
pln ===| |=========================
inv+ ìaëeíüêèé íoæ
Btn otr door1, oòêpûòü äâepü
btn zakr, çaêpè÷aòü
btn osmotr, ocìoòpeòü ïoìeùeíèe
oïûò=oïûò+1
end

:osmotr5
pln ===| |=========================
pln Óäa÷a ïoâepíyëacü ê Äæeéìcy ëèöoì, è cïycòÿ äocòaòo÷íoe êoëè÷ecòâo âpeìeíè, oí íaxoäèò êycoê ïpoâoëêè. Coéäeò ça oòìû÷êy.
pln ===| |=========================
inv+ oòìû÷êa
Btn otr door1, oòêpûòü äâepü
btn zakr, çaêpè÷aòü
btn osmotr, ocìoòpeòü ïoìeùeíèe
oïûò=12
end

:osmotr6
pln ===| |=========================
pln Ïoècê íèêaêèx peçyëüòaòoâ íe äaë...
pln ===| |=========================
Btn otr door1, oòêpûòü äâepü
btn zakr, çaêpè÷aòü
btn osmotr6, ocìoòpeòü ïoìeùeíèe
end

:otr door1
if oòìû÷êa then goto otr door2
if not oòìû÷êa then
pln ===| |=========================
pln Áoëüøaÿ æeëeçíaÿ äâepü. Äæeéìc äepíyë ça py÷êy äâepè, ío ïoxoæe äâepü çaïepòa c äpyãoé còopoíû è pyêaìè ee íe oòêpûòü.
pln ===| |=========================
Btn otr door1, oòêpûòü äâepü
btn zakr, çaêpè÷aòü
btn osmotr, ocìoòpeòü ïoìeùeíèe
end

:otr door2

inv- oòìû÷êa
pln ===| |=========================
pln Ïocëe ìaíèïyëÿöèé c oòìû÷êoé, äâepü âce-òaêè oòêpûëacü. Caìa oòìû÷êa cëoìaëacü, a ìexaíèçì ýòoé äâepè o÷eíü ïpocò, ecëè çaêpûòü äâepü, yæe oòêpûòü ee áyäeò íe âoçìoæío.
pln Äæeéìc oápaäoâaëcÿ, òo ÷òo íaøeë âûxoä, ío ÷òo æe æäeò eão ça äâepüþ?
pln ===| |=========================
Btn koridor1, âûéòè â êopèäop
end
=====================================
=====================================
:koridor1
if cepeápÿíaÿ ìoíeòa then
pln ===| |=========================
pln Äæeéìc âûøeë â êopèäop, caì êopèäop oêaçaëcÿ äoâoëüío äëèííûì, còeíû êopèäopa áûëè oáëoæeíû áeëoé ïëèòêoé.
Pln Ho xoëoä ïo ïpeæäíeìy áûë âecüìa oùyòèì.
Pln Ïapeíü äocòaë èç êapìaía áëecòÿùyþ cepeápÿíyþ ìoíeòy, è ía÷aë ee ïpècòaëüío èçy÷aòü.
pln ===| |=========================
btn koridor2, êèíyòü ìoíeòy ía c÷acòüe
btn koridor3, ocòaâèòü äëÿ êoëëeêöèè
end

:koridor2
pln ===| |=========================
pln Äæeéìc c poçìaxy êèíyë ìoíeòy ça ïëe÷e, ìoíeòa yïaëa ía ïoë è çaêoòèëacü â ùeëü.
pln ===| |=========================
inv- cepeápÿíaÿ ìoíeòa
btn floor1,èäòè ía 1 ýòaæ
end
:koridor3
pln ===| |=========================
pln Äæeéìc ïoëoæèë ìoíeòy â êapìaí è íaïpaâèëcÿ äaëüøe ïo êopèäopy.
pln ===| |=========================
btn floor1,èäòè ía 1 ýòaæ
end
:555
Style_BackColor=0
Style_TextColor=256*255*256+255*256+255
 End
:floor1
domop=0
if pent=0 then proc 555
if ded=1 then health=100
if ohrzd=1 then goto ohrq
if fl1=1 then goto flooor1
if pent=1 then goto vfloor1
pln ===| |=========================
pln Äæeéìc ïoäíÿëcÿ ïo còyïeíÿì ía ïepâûé ýòaæ, â ýòoì êopèäope áûëè 4 ïaëaòû è oäía äâepü ía âûxoä.
Pln Bce còeíû áûëè â íeêoòopoì poäe ÷epíûe, ïocëe ïoæapa áoëüíèöa ïoòepÿëa câoþ æèçíeííyþ ýíepãèþ.
pln ===| |=========================

btn proom1,ïaëaòa '1'
btn proom2,ïaëaòa '2'
btn proom3,ïaëaòa '3'
btn proom4,ïaëaòa '4'
btn entexit,èäòè ía âûxoä
btn floor2,ïoäíÿòücÿ ía 2 ýòaæ
fl1=1
end

:flooor1
if pent=1 then goto vfloor1
pln ===| |=========================
pln 1 ýòaæ
pln ===| |=========================
btn proom1,ïaëaòa '1'
btn proom2,ïaëaòa '2'
btn proom3,ïaëaòa '3'
btn proom4,ïaëaòa '4'
btn entexit,èäòè ía âûxoä
btn floor2,ïoäíÿòücÿ ía 2 ýòaæ
end

:entexit
if glroom=0 then goto entexit2
if infpent=1 then goto entexit3
if glroom=1 then
pln ===| |=========================
pln Äâepü çaêpûòa, oòêpûâaeòcÿ oía èç cècòeìíoão öeíòpa.
pln ===| |=========================
btn flooor1, oòoéòè
end

:entexit2
if sob=0 then goto exitsob
pln ===| |=========================
pln Äâepü oòêpûëacü, ío ça äâepüþ cëûøío ëaé coáaê. Äæeéìc ïpèêpûë äâepü.
pln ===| |=========================
btn proom1,ïaëaòa '1'
btn proom2,ïaëaòa '2'
btn proom3,ïaëaòa '3'
btn proom4,ïaëaòa '4'
btn exit,âûéòè èç çäaíèÿ
btn floor2,ïoäíÿòücÿ ía 2 ýòaæ
end

:exitsob
pln ===| |=========================
pln 1 ýòaæ
pln ===| |=========================
btn proom1,ïaëaòa '1'
btn proom2,ïaëaòa '2'
btn proom3,ïaëaòa '3'
btn proom4,ïaëaòa '4'
btn exit,âûéòè èç çäaíèÿ
btn floor2,ïoäíÿòücÿ ía 2 ýòaæ
end

:entexit3
pln ===| |=========================
pln 1 ýòaæ
pln ===| |=========================
btn proom1,ïaëaòa '1'
btn proom2,ïaëaòa '2'
btn proom3,ïaëaòa '3'
btn proom4,ïaëaòa '4'
btn exit,âûéòè èç çäaíèÿ
btn floor2,ïoäíÿòücÿ ía 2 ýòaæ
end

:proom1
pln ===| |=========================
if pal1=1 then goto paal1
pln B ýòoé ïaëaòe còoèò êyøeòêa, íe áoëüøoé oòêpûòûé, ïycòoé øêaô.
pln B ýòoé êoìíaòe íeò oêía, ío òycêëûe ëaìïû âce-æe ocâeùaþò ïaëaòy.
pln Äæeéìc coáèpaëcÿ yxoäèòü, êaê ía ïoëy çaìeòèë äècê â íeáoëüøoì êoíâepòe.
inv+ äècê
pln ===| |=========================
btn floor1, âûéòè èç ïaëaòû
pal1=1
end

:paal1
pln ===| |=========================
pln Oáû÷íaÿ ïaëaòa, çäecü paíüøe íaxoäèëècü ïcèxè÷ecêè-áoëüíûe ëþäè.
pln ===| |=========================
btn floor1, âûéòè èç ïaëaòû
end

:proom2
if  pal2=1 then goto paal2
pln ===| |=========================
pln B oòëè÷èè oò ïepâoé ïaëaòû, çäecü áûëa èäeaëüíaÿ ÷ècòoòa, è ecëè á íe ÷epíûe còeíû, òo ìoæío áûëo ïoäyìaòü, ÷òo ïoæapa çäecü íèêoãäa íeáûëo.
pln Äæeéìc ycëûøaë èç âeíòèëÿöèè cäaâëeííûé çâyê ìyæcêoão ãoëoca.
pln Ha ïoëy Äæeéìc íaøeë ëoì.
inv+ ëoì
pln ===| |=========================
btn zakr, çaêpè÷aòü
btn floor1, âûéòè èç ïaëaòû.
pal2=1
gorlo=1
gorlo2=1
end

:krik
pln ===| |=========================
pln Äæeéìc co âcex cèë êpèêíyë è eão âce-æe ycëûøaëè...
Pln - Ýé, êòo òaì?
pln - ß Äæeéìc Poyä, ÿ çaïepò â ýòoé ÷epòoâoé áoëüíèöe, ïoìoãèòe ìíe âûéòè.
Pln - ß âceão-ëèøü ìaíòep, ÿ ìoãy oòêpûòü òeáe ïpoxoä ía âòopoé ýòaæ, òaì cècòeìíûé öeíòp, ía êoìïüþòepe íaáepè ïapoëü: 115580 è âûéäeøü èç áoëüíèöû.
Pln - Bce, ìíe ïopa, yäa÷è.
Pln Áoëüøe ãoëoc íe ïoäaâaë íèêaêèx çâyêoâ. Ëèøü ía ïepâoì ýòaæe ÷òo-òo çaøyìeëo è áûcòpo yòèxëo.
pln ===| |=========================
btn floor1, âûéòè èç ïaëaòû.
lest=1
end

:krik2
pln ===| |=========================
pln Äæeéìc yæe copâaë ceáe ãopëo, è òeïepü çaêpè÷aòü íe ìoæeò.
Pln B caìoé âeíòèëÿöèè áûë øopox, âcêope oí ïpoïaë.
pln ===| |=========================
btn floor1, âûéòè èç ïaëaòû.
end

:paal2
pln ===| |=========================
pln Oáû÷íaÿ ïaëaòa, çäecü paíüøe íaxoäèëècü ïcèxè÷ecêè-áoëüíûe ëþäè.
pln ===| |=========================
btn floor1, âûéòè èç ïaëaòû
end

:proom3
if ohrzd=2 and gaz=1 then goto oprm3
if ohrzd=2 and gaz=0 then goto zprm3 
if pal3=1 and lom=1 then goto paal3
if ëoì then btn paaal3, âûëoìaòü ëoìoì ïoë
pln ===| |=========================
pln  B ýòoé ïaëaòe êaê è â ïpeäûäyùèx, íeò oêoí, ïoë â ïaëaòe äepeâÿííûé è ecëè á áûë êaêoé-íèáyäü èícòpyìeíò, ìoæío áûëo á cëoìaòü ïoëoâèöy.
pln ===| |=========================
btn floor1, âûéòè èç ïaëaòû
pal3=1
end

:paal3
pln ===| |=========================
pln Oáû÷íaÿ ïaëaòa, äepeâÿííûé ïoë âûëoìaí, ïoä ïoëoâèöeé íaxoäèòcÿ òpyáa è âeíòèëü.
pln ===| |=========================
if gaz=0 then btn ventgaz, êpyòèòü âèíò âïpaâo
if gaz=1 then btn ventnot, êpyòèòü âèíò âëeâo
btn floor1, âûéòè èç ïaëaòû
end

:paaal3
pln ===| |=========================
pln Äæeéìc âûëoìaë ïoë, ïoä ïoëoâèöeé áûëa òpyáa è âeíòèëü.
pln ===| |=========================
lom=1
if gaz=0 then btn ventgaz, êpyòèòü âèíò âïpaâo
if gaz=1 then btn ventnot, êpyòèòü âèíò âëeâo
btn floor1, âûéòè èç ïaëaòû
end

:ventnot
pln ===| |=========================
pln Äæeéìc ïpoêpyòèë âèíò, è ïocòoÿííûé ãëyxoé øyì â eão ãoëoâe ïpeêpaòèëcÿ.
gaz=0
pln ===| |=========================
btn paal3, íaçaä
btn floor1, âûéòè èç ïaëaòû.
end

:ventgaz
pln ===| |=========================
pln Äæeéìc ïpoêpyòèë âèíò, è â ãoëoâe Äæeéìca ïoÿâèëcÿ ãëyxoé øyì.
gaz=1
pln ===| |=========================
btn paal3, íaçaä
btn floor1, âûéòè èç ïaëaòû.
end

:proom4
if gaz=0 and ohrzd=3 then goto nproom4
if gaz=1 and ohrzd=3 then goto nproomz
if gaz=0 then goto prm4
if gaz=1 then

if health<0 or health=0 then goto death1
pln ===| |=========================
pln Äæeéìc çaøeë â ïaëaòy, äâepü peçêo çaxëoïíyëacü, ïapeíü ycïeë çaìeòèòü ocoáûe ïpèìeòû ïaëaòû, ýòo ãpèáoê ía còeíax è còaëüíûe òpyáû ía ïoòoëêe.
Pln ...
Pln ...
Pln ...
pause 2500
pln Cïycòÿ íecêoëüêo ìèíyò, ïaëaòy ía÷aë çaïoëíÿòü ÿäoâèòûé ãaç, Äæeéìc ía÷aë çaäûxaòücÿ...
pln Bcêope äâepü oòêpûëacü.
pln ===| |=========================
btn floor1, âûáeæaòü èç ïaëaòû
health=health-rnd*15
end

:prm4
if palat=1 then goto prmm4
pln ===| |=========================
pln Äæeéìc çaøeë â ïaëaòy, è ïepâoe ÷òo ïoïaëocü eìy ía ãëaça, ýòo ãpèáoê ía còeíax è còaëüíûe òpyáû ía ïoòoëêe.
Pln Ïoxoæe, ÷òo çäecü ãaçoâaÿ êaìepa,
pln Ïaöèeíòoâ çaêpûâaëè çäecü è òpaâèëè êaê êpûc.
Pln Còpaíío, âo âcex ëè ïcèx-ëe÷eáíèöax ecòü ãaçoâûe êaìepû?!
Pln Boçëe êyøeòêè, còoèò paäèo-aâòoìaò, ecëè â íeão âcòaâèòü ìoíeòy, ìoæío ïocëyøaòü paçíûe íoâocòè.
Pln B ìaëeíüêoì øêaô÷èêe Äæeéìc âçÿë êyca÷êè.
inv+ êyca÷êè
pln ===| |=========================
if cepeápÿíaÿ ìoíeòa then btn prmsm, âcòaâèòü ìoíeòy â aâòoìaò
btn floor1,âûéòè èç ïaëaòû
palat=1
end

:prmm4
pln ===| |=========================
pln Oáû÷íaÿ ïaëaòa, xoòÿ ìoæeò ëè áûòü ãaçoâaÿ êaìepa oáû÷íoé ïaëaòoé?!
Pln Boçëe êyøeòêè còoèò paäèo-aâòoìaò, ecëè â íeão âcòaâèòü ìoíeòy, ìoæío ïocëyøaòü paçíûe íoâocòè.
pln ===| |=========================
if cepeápÿíaÿ ìoíeòa then btn prmsm, âcòaâèòü ìoíeòy â aâòoìaò
btn floor1,âûéòè èç ïaëaòû
end

:prmsm
if diskinf=2 then goto prm444
inv- cepeápÿíaÿ ìoíeòa
pln ===| |=========================
pln Äæeéìc âcòaâèë ìoíeòy â aâòoìaò è âêëþ÷èë eão. Taì áûëa cäeëaía ayäèo-çaïècü.
Pln
Pln - - Pè÷apä Ápayí. 18.04.1997 22:10
pln - Ceãoäíÿ íaì ïpèêaçaëè yáèòü ÷eëoâeêa, ìíe áûëo òÿæeëo ýòo cäeëaòü âeäü ýòo ÷eëoâeê, a íe êaêoé-òo êycoê äepüìa. Oíè íe ïoíèìaþò ÷òo äeëaþò, oíè ycòaíoâèëè oxpaíy ía èçoëÿòop è ãoâopèëè ÷òo ýòè ïcèxè èìeþò câÿçü c äüÿâoëoì è èx íyæío yáèòü.
Pln Ho ÿ íe cäeëaë ýòoão...
Pln ß íe cìoã, íe cìoã ýòoão cäeëaòü, ÿ âøèë ÷èï â ÷eëoâeêa ìècòepa Peÿ Äeããopè, è yáèë eão. Çía÷èò ÿ yáèéöa! Teïepü íèêòo íe íaéäeò ýòoò ÷èï, âeäü âce òpyïû âûâoçÿò ío÷üþ.
Pln - ×òo ýòo òû äeëaeøü, Pè÷apä?
Pln - ß, íè÷eão íe äeëaþ.
Pln - Tû cëèøêoì ìíoão çíaeøü, Ápayí!
Pln Bce çíaíèÿ òû yíeceøü c coáoé â ìoãèëy.
Pln (çâyê âûcòpeëa)
pln çaïècü oáopâaëacü...
diskinf=1
pln ===| |=========================
if not cepeápÿíaÿ ìoíeòa or cepeápÿíaÿ ìoíeòa then btn prmsm2, âûíyòü ìoíeòy
end

:prmsm2
inv+ cepeápÿíaÿ ìoíeòa
pln ===| |=========================
pln Äæeéìc âûíyë ìoíeòy èç aâòoìaòa è ïoëoæèë ceáe â êapìaí.
pln ===| |=========================
btn prmsm,âcòaâèòü ìoíeòy
btn floor1,âûéòè èç ïaëaòû
end
=====================================
=====================================
:floor2
if lest=1 then goto flooor2
if fl2=1 then goto flooor2
pln ===| |=========================
pln Bxoä ía âòopoé ýòaæ çaêpûò áoëüøoé æeëeçíoé ceòêoé.
pln ===| |=========================
if êyca÷êè then btn fpsk2,ïepeêycèòü ceòêy êyca÷êaìè
btn floor1, íaçaä
end

:fpsk2
pln ===| |=========================
pln Äæeéìc äocòaë êyca÷êè, è èìè ïepeêycèë ceòêy.
fl2=1
pln ===| |=========================
btn flooor2, èäòè ía 2 ýòaæ
btn floor1, íaçaä
end

:flooor2
if floor2=1 then goto flr2
pln ===| |=========================
pln Äæeéìc ïoäíÿëcÿ ía 2 ýòaæ, çäecü áûëè 4 ïaëaòû, â äaëüíeì êopèäope âèäíeëcÿ ëèôò è äâe êaáèíêè, oäía èç íèx áûëa òyaëeòoì.
pln ===| |=========================
btn proom5,ïaëaòa '5'
btn proom6,ïaëaòa '6'
btn proom7,ïaëaòa '7'
btn proomdej,äeæypíaÿ ïaëaòa
btn proomklad,êëaäoâaÿ
btn proomtul,òyaëeò
btn elev,ëèôò
btn floor1, cïycòèòücÿ ía 1 ýòaæ
floor2=1
end

:flr2
pln ===| |=========================
pln 2 ýòaæ
pln ===| |=========================
btn proom5,ïaëaòa '5'
btn proom6,ïaëaòa '6'
btn proom7,ïaëaòa '7'
btn proomdej,äeæypíaÿ ïaëaòa
btn proomklad,êëaäoâaÿ
btn proomtul,òyaëeò
btn elev,ëèôò
btn floor1, cïycòèòücÿ ía 1 ýòaæ
end

:proom5
if pal5=1 then goto prooom5
pln ===| |=========================
pln Äæeéìc çaøeë â ïaëaòy, âèäèìo ýòo íe ïaëaòa, a öeëûé cècòeìíûé öeíòp yïpaâëeíèÿ. pln Oêoí çäecü òoæe íeò, â caìoì äaëüíeì yãëy còoèò êoìïüþòep, pÿäoì ïycòoé còoë.
pln Còapaíío, yøëè, a êoìïüþòep ocòaëcÿ!
pln ===| |=========================
pal5=1
btn comp,ïoäoéòè ê êoìïüþòepy
btn floor2,âûéòè èç ïaëaòû
end

:prooom5
pln ===| |=========================
pln Ãëaâíûé cècòeìíûé öeíòp âceé áoëüíèöû.
pln ===| |=========================
btn comp,ïoäoéòè ê êoìïüþòepy
btn floor2,âûéòè èç ïaëaòû
end
 
:comp
if comp=1 then goto comp2
pln ===| |=========================
pln Koìïüþòep oòêëþ÷eí...
pln ===| |=========================
btn floor2, âûéòè èç ïaëaòû
end

:comp2

pln ===| |=========================
pln Äoápo ïoæaëoâaòü â cècòeìy I-noteX
pln ...
pause 2000
pln Oápaáoòêa cècòeìíûx äaííûx
pln ...
pause 2000
pln Oáíoâëeíèe áaçû äaííûx
pln ...
pause 2000
pln Ïoäêëþ÷eíèe äoïoëíèòeëüíûx ìoäyëeé
pln ...
pause 2000
pln Ïpoâepêa äaííûx çaâepøeía!
Pln ...
pause 1000
pln 1. Cècòeìa ïoâpeæäeía!
Pln 2. Oøèáêa ïpoâepêè äaííûx!
Pln 3. Moäyëè íe íaéäeíû
pln 4. Hapyøeíèe paáoòû â cècòeìe!
Pln ...
pln ===| |=========================
pause 4000
pln BBEÄÈTE KOÄ ÄOCTÓÏA B CÈCTEMÓ
btn vvod,ââecòè êoä
btn proom5,âûêëþ÷èòü êoìïüþòep
porigin=115580
end 

:vvod
input pass
if pass=porigin then goto vvod1
if pass<>porigin then pln
pln ===| |=========================
pln Koä äocòyïa íe âepíûé!
pln ===| |=========================
btn vvod,ââecòè êoä
btn proom5,âûêëþ÷èòü êoìïüþòep
end

:vvod1
pln ===| |=========================
pln Äoápo ïoæaëoâaòü â cècòeìy, ìècòep Pè÷apä Ápayí.
Pln ...
pause 2000
Pln Cáop èíôopìaöèè...
pln ===| |=========================
if äècê then btn disk,âcòaâèòü äècê
if not äècê and diskk=1 then btn disk2, âûíyòü äècê 
if glroom=1 then btn otkrglr, oòêpûòü ãëaâíyþ äâepü
if glroom=0 then btn zakrglr, çaêpûòü ãëaâíyþ äâepü
btn prinf, ïpo÷èòaòü èíôopìaöèþ
btn csavg, coxpaíèòü èãpy
btn proom5,âûêëþ÷èòü êoìïüþòep
end

:prinf
pln ===| |=========================
pln Oápaáoòêa äaííûx...
Pln
pln ===| |=========================
pause 2000
pln Koìïaíèÿ I-noteX paçpaáaòûâaeò âèpyc 'Cl-23B'
pln Bèpyc äoáaâëÿþò áoëüíûì â êpoâü, èç-ça âèpyca áoëüíûe cëûøaò è âèäÿò ãaëëþöèíaöèè. Ó íèx ïpèòyïëÿeòcÿ coçíaíèe,ïpoïaäaeò pe÷ü è ÷epeç íecêoëüêo ýòaïoâ áoëüíoé yìèpaeò.
pln Ýòo âûãoäío äëÿ ïpoâeäeíèÿ íaä áoëüíûìè oïûòoâ, âeäü ecëè áyäeò ïpoâepêa, áoëüíûe íè÷eão íe cìoãyò cêaçaòü, oíè ëèøü oâoùè, ïoäoïûòíûe êpûcû.
pause 3000

pln Ýòaïû paçâèòèÿ âèpyca:
pln
pln 1. Ýòaï 1 (ïpoïaæa pe÷è)
pln 2. Ýòaï 2 (ïoëy-oòêëþ÷eíèe ìoçãa)
pln 3. Ýòaï 3 (ayäèo-ãaëëþöèíaöèè)
pln 4. Ýòaï 4 (çpèòeëüíûe ãaëëþöèíaöèè)
pln 5. Ýòaï 5 (oòêëþ÷eíèe ìoçãa)
pln 6. Ýòaï 6 (ïapaëè÷)
pln 7. Ýòaï 7 (cìepòü)
pln ===| |=========================
Pln Bèpyc íaxoäèòcÿ â còaäèè paçpaáoòêè...
btn vvod1, çaêpûòü
end

:otkrglr
pln ===| |=========================
pln Ãëaâíaÿ äâepü oòêpûòa
pln ===| |=========================
btn vvod1, íaçaä
glroom=0
end

:zakrglr
pln ===| |=========================
pln Ãëaâíaÿ äâepü çaêpûòa!
pln ===| |=========================
btn vvod1, íaçaä
glroom=1
end

:disk
inv- äècê
pln ===| |=========================
pln Äæeéìc âcòaâèë äècê â äècêoâoä, ía ýêpaíe êoìïüþòepa âûcâeòèëècü paçíûe öèôpû, çaòeì cècòeìa oápaáoòaëa èíôopìaöèþ.
Pln ...
pause 2500
pln 
pln Äæeéìc Poyä (äocüe)
pln
pln Ô.È.O - Poyä Äæeéìc Áýpíc
pln âoçpacò - 26 ëeò
pln ID - 281
pln còeïeíü çapaæeíèÿ - Ýòaï 3
pln Ïo ïpèêaçy, áoëüíoé-281 äoëæeí íaxoäèòcÿ â ïaäâaëe äëÿ çaâepøeíèÿ ïocëeäíèx ýòaïoâ.
Pln âaêöèía - íe cyùecòâyeò
pln ïoëy-âaêöèía - (1) íaxoäèòcÿ â äeæypíoì êaáèíeòe.
...
Pln
pause 2000
pln èíôopìaöèè íeò...
pln ===| |=========================
btn vvod1, çaêpûòü.
diskk=1
end

:disk2
inv+ äècê
pln ===| |=========================
pln Äæeéìc âûíyë äècê...
pln ===| |=========================
btn vvod1, çaêpûòü
end

:proom6

if pal6=1 then goto paal6
inv+ oòâepòêa
pln ===| |=========================
pln Äæeéìc çaøeë â ïaëaòy, caìa ïaëaòa áûëa oáû÷íoé.
pln Ha ïoëy ëeæaë oòêpûòûé ïycòoé ÷eìoäaí, pÿäoì ëeæaëa oòâepòêa.
pln Ha còeíe ÷epíoé êpacêoé áûë íaïècaí êoä: 115580
pln ===| |=========================
btn floor2,âûéòè èç ïaëaòû
pal6=1
end

:paal6
pln ===| |=========================
pln Oáû÷íaÿ ïaëaòa, ïpaâäa çäecü íeò oêoí, ía òþpeìíyþ êaìepy ïoxoæa.
pln ===| |=========================
btn floor2,âûéòè èç ïaëaòû
end

:proom7
if pal7=1 then goto paal7
if diskinf=1 then btn rntrd, paçpeçaòü íoæoì òpyï
pln ===| |=========================
pln Äæeéìc çaøeë â ïaëaòy, âcÿ ïaëaòa â êpoâè, ía ïoëy ëyæa òeìío-aëoé êpoâè,
ía êyøeòêe ëeæèò òpyï, ía oäeæäe òpyïa ecòü ìaëeíüêaÿ òaáëè÷êa, ía íeé íaïècaío èìÿ: Pýé Äýããopè.
pln ===| |=========================
btn floor2,âûéòè èç ïaëaòû
pal7=1
diskinf=2
end
:use_[êycoê áyìaãè]
pln Çäecü çaïècaíû öèôpû: 23869011
end
:paal7
if diskinf=1 and ìaëeíüêèé íoæ then btn rntrd, paçpeçaòü íoæoì òpyï
pln ===| |=========================
pln Bcÿ ïaëaòa â êpoâè, ía ïoëy ëyæa òeìío-aëoé êpoâè.
pln Ha êyøeòêe ëeæèò òpyï, ía oäeæäe òpyïa ecòü ìaëeíüêaÿ òaáëè÷êa, ía íeé íaïècaío èìÿ: Pýé Äýããopè.
pln ===| |=========================
btn floor2,âûéòè èç ïaëaòû
end

:rntrd
pln ===| |=========================
pln Äæeéìc paçpeçaë ãpyäü òpyïa, â ãpyäè ëeæaë ìaëeíüêèé ÷èï.
Pln Koãäa Äæeéìc paçpeçaë æèâoò òpyïa, òaì ëeæaë êycoê áyìaæêè, ía íeé áûëè çaïècaíû öèôpû.
Pln Bèäèìo ïapeíü ïpoãëoòèë ee, ïoòoìy ÷òo áoÿëcÿ ÷eão-òo.
pln ===| |=========================
inv+ ÷èï
inv+ [êycoê áyìaãè]
diskinf=2
btn floor2,âûéòè èç ïaëaòû
end


:proomdej

if dej1=1 and êëþ÷ oò äeæypíoé then goto prmdj
if pent=1 then goto vprmdj

pln ===| |=========================
pln Äâepü â äeæypíyþ ïaëaòy çaêpûòa!
pln ===| |=========================
btn floor2,íaçaä
end

:prmdj
if prmdj1=1 then goto ldej
pln ===| |=========================
pln Äæeéìc çaøeë â ïaëaòy, â öeíòpe ïaëaòû còoÿë áoëüøoé, ïoëoìaííûé còoë.
pln Boçëe còeíû còoÿë çacòeêëeííûé øêaô÷èê.
pln ===| |=========================
btn prmdjsh,oòêpûòü øêaô÷èê
btn floor2,âûéòè èç ïaëaòû
prmdj1=1
end

:prmdjsh
if shkprm=1 then goto prmdjsh2
pln ===| |=========================
pln Øêaô÷èê ïycò...
pln ===| |=========================
btn prmdj,çaêpûòü øêaô÷èê
end

:ldej
pln ===| |=========================
pln Oáû÷íaÿ äeæypíaÿ ïaëaòa
pln ===| |=========================
btn prmdjsh,oòêpûòü øêaô÷èê
btn floor2,âûéòè èç ïaëaòû
end

:prmdjsh2
pln ===| |=========================
pln B øêaô÷èêe ëeæaë øïpèö c âaêöèíoé.
inv+ {{ øïpèö c âaêöèíoé }}
pln ===| |=========================
shkprm=0
vakcina=1
btn prmdj,çaêpûòü øêaô÷èê
end

:vprmdj
if dej2=1 then goto vprmdj2
pln ===| |=========================
pause 2000
pln - Pèêêo, ìíe ïpèêaçaëè yáèòü Äæeéìca
pause 1000
pln - Hy, òaê â ÷eì ïpoáëeìa?
pause 1000
pln - ß íe cìoãy, oí âeäü ÷eëoâeê.
pause 1000
pln - Oí yæe òpyï, eão êpoâü çapaæeía, òû cìoæeøü, Áýí. ß âepþ â òeáÿ.
pause 1000
pln - Äa, íaâepíoe òû ïpaâ, ÿ yáüþ eão.
pause 1000
pln - Kaê çaêoí÷èøü, çaêpoé ïaëaòy, a êëþ÷ cïpÿ÷ü â êëaäoâoé...
pln ===| |=========================
dej1=1
dej2=1
vosp=1
btn floor2, ïoêèíyòü ïaëaòy
end

:vprmdj2
pln ===| |=========================
pln (Ýòo áûëè ïpocòo âocïoìèíaíèÿ, çía÷èò êòo-òo xo÷eò ìeíÿ yáèòü, ío êòo?
êòo ýòoò Áýí? È ïo÷eìy oí eùe ìeíÿ íe yáèë?
Pln Ïopa âepíyòücÿ â ïpeæíèé ìèp, âeäü êëþ÷ ëeæèò â êëaäoâoé.)
btn floor2,âûéòè èç ïaëaòû
end


:proomklad
if vosp=1 and pent=0 then goto vproomkl
if klad=1 then goto proomklad2
pln ===| |=========================
pln Äæeéìc çaøeë â êëaäoâyþ, oáû÷íaÿ êëaäoâaÿ êoìíaòa, çäecü còoÿò øâaápû, âeäpa è âaëÿþòcÿ òpÿïêè.
Pln Ha còeíe êpoâüþ aëoão öâeòa íaïècaíû öèôpû: 23 86 90 ** ïocëeäíèe äâe öèôpû çaìaçaíû.
pln ===| |=========================
klad=1
btn floor2,âûéòè èç êëaäoâoé
end

:proomklad2
pln ===| |=========================
pln Oáû÷íaÿ êëaäoâaÿ êoìíaòa, çäecü còoÿò øâaápû, âeäpa, è âaëÿþòcÿ òpÿïêè.
Pln Ha còeíe êpoâüþ aëoão öâeòa íaïècaíû öèôpû: 23 86 90 ** ïocëeäíèe äâe öèôpû çaìaçaíû.
pln ===| |=========================
btn floor2,âûéòè èç êëaäoâoé
end

:vproomkl
pln ===| |=========================
pln Xopoøo ïopûâøècü â caìoé êëaäoâoé, Äæeéìc íaøeë ïoëy-pæaâûé êëþ÷.
Pause 2500
Pln
pln (Còpaíío, â òex âocïoìèíaíèÿx ÿ âèäeë ëþäeé, oíè ãoâopèëè oáo ìíe.
Pause 500
Pln Oäèí èç íèx xoòeë yáèòü ìeíÿ.
Pause 500
Pln Moæeò áûòü ÿ yæe ìepòâ?)
pause 3500
pln Äæeéìc oáepíyëcÿ íaçaä, ça eão cïèíoé áûcòpûìè øaãaìè oòäaëÿëcÿ cèëyýò. 
pln Ïpoçpa÷íûé cèëyýò áyêâaëüío ïapèë â âoçäyxe.
Pause 3500
pln - Áaáyøêa! Ýòo òû?
Pause 1500
pln Cèëyýò ìoë÷a ïoäíÿëcÿ ââepx.
et=4
pln ===| |=========================
inv+ êëþ÷ oò äeæypíoé
vosp=0
btn floor2,âûéòè èç êëaäoâoé
end

:elev
if elev=1 then goto elevat
pln ===| |=========================
pln Äæeéìc çaøeë â ëèôò, çäecü âèäíû òoëüêo äâe êíoïêè.
pln ===| |=========================
btn floor3, ïoäíÿòücÿ ía 3 ýòaæ
btn floor2, âûéòè èç ëèôòa
elev=1
end

:elevat
pln ===| |=========================
pln ËÈÔT
pln ===| |=========================
btn floor3, ïoäíÿòücÿ ía 3 ýòaæ
btn floor2, âûéòè èç ëèôòa
end


:proomtul
if infpent=1 and cïè÷êè and câe÷è and yãoëü and pkz=0 then btn vproomtul,íapècoâaòü ïeíòaãpaììy
if pkz=1 then btn stpent,còepeòü ïeíòaãpaììy
if tul=1 then goto proomtul2
pln ===| |=========================
pln Äæeéìc çaøeë â òyaëeò, âïepeäè oãpoìíaÿ còeía, ía íeé íaïècaíû cëoâa ïpè÷eì òoæe êpoâüþ:
pln 'Von de lamento intor gara'
pln (Èíòepecòío, êoão òyò peçaëè?) Ïo áoêaì íaxoäÿòücÿ òyaëeòíûe êaáèíêè.
pln ===| |=========================
tul=1
btn floor2,âûéòè èç òyaëeòa.
end

:proomtul2
if pkz=1 then goto proomtul3
pln ===| |=========================
pln Oãpoìíaÿ còeía, ía íeé íaïècaíû cëoâa ïpè÷eì òoæe êpoâüþ:
pln 'Von de lamento intor gara'
pln Ïo áoêaì íaxoäÿòücÿ òyaëeòíûe êaáèíêè.
pln ===| |=========================
btn floor2,âûéòè èç òyaëeòa.
end

:vproomtul
pln ===| |=========================
pln Äæeéìc paccòaâèë câe÷è, çaæeã èx, è íapècoâaë ÷epíûì yãëeì ïeíòaãpaììy (ïÿòèêoíe÷íyþ çâeçäy).
pln ===| |=========================
btn prsp, ïpoèçíecòè çaêëèíaíèe
btn floor2, âûéòè èç òyaëeòa
pkz=1
end

:stpent
pln ===| |=========================
pln Äæeéìc còep ïeíòaãpaììy co còeíû...
pln ===| |=========================
pkz=0
btn floor2, âûéòè èç òyaëeòa
end

:prsp
input zakl
if ohrzd=3 and pent=0 and zakl=Von de lamento intor gara then goto w1
if pent=1 and zakl=Von de salavan intor gara then goto w2
if gpalm=1 and zakl=Farem sa otto dugas gara then goto w3
pln ===| |=========================
pln Hè÷eão íe ïpoèçoøëo...
pln ===| |=========================
btn prsp, ïpoèçíecòè çaêëèíaíèe
btn floor2, âûéòè èç òyaëeòa
end

:w1
pln ===| |=========================
pln Äæeéìc ïpoèçíec çaêëèíaíèe, ïoäyë áoëüøoé âeòep, ÷yòü íe çaäyë câe÷è, â còeíe oápaçoâaëcÿ íeêèé ïopòaë, ïpoxoä â èíoé ìèp.
pln ===| |=========================
pent=1
Style_BackColor=0
Style_TextColor=0*0*256+0*256+255
btn proomtul, ïepeéòè â äpyãoé ìèp
end

:w2
pln ===| |=========================
pln Äæeéìc ïpoèçíec çaêëèíaíèe, ïoäyë áoëüøoé âeòep, ÷yòü íe çaäyë câe÷è, â còeíe oápaçoâaëcÿ íeêèé ïopòaë, ïpoxoä â peaëüíûé ìèp.
pln ===| |=========================
pent=0
Style_BackColor=0
Style_TextColor=256*255*256+255*256+255
btn proomtul, ïepeéòè â peaëüíûé ìèp
end

:proomtul3
pln ===| |=========================
pln Oãpoìíaÿ còeía, ía íeé íaïècaíû cëoâa ïpè÷eì òoæe êpoâüþ:
pln 'Von de lamento intor gara'
pln Ïo áoêaì íaxoäÿòücÿ òyaëeòíûe êaáèíêè.
pln Ha còeíe, ÷epíûì yãëeì íapècoâaía ïeíòaãpaììa.
pln ===| |=========================
if pkz=1 then btn prsp,ïpoèçíecòè çaêëèíaíèe
btn floor2,âûéòè èç òyaëeòa
end

:vfloor1
pln ===| |=========================
pln Bxoä ía ïepâûé ýòaæ çaâaëeí êaìíÿìè.
pln ===| |=========================
btn floor2,íaçaä
end

:floor3
if pent=1 then goto vfloor3
if floor3=1 then goto flooor3
pln ===| |=========================
pln Äæeéìc ïoäíÿëcÿ ía ëèôòe ía 3 ýòaæ, çäecü áûëa òoëüêo oäía ïaëaòa c òaáëè÷êoé 'ÈÇOËßTOP' è ýëeêòpo-ùèò âèceâøèé ía còeíe.
pln ===| |=========================
floor3=1
btn proomizol, èäòè â èçoëÿòop
btn pkesh, ïoäoéòè ê ýëeêòpo-ùèòêy
btn vvelev,âoéòè â ëèôò
end

:vfloor3
pln ===| |=========================
pln Ëèôò íe paáoòaeò...
pln ===| |=========================
btn floor2,íaçaä
end

:flooor3
pln ===| |=========================
pln 3 ýòaæ
pln ===| |=========================
btn proomizol, èäòè â èçoëÿòop
btn pkesh, ïoäoéòè ê ýëeêòpo-ùèòêy
btn vvelev,âoéòè â ëèôò
end

:vvelev
pln ===| |=========================
pln ËÈÔT
pln ===| |=========================
btn floor2, ía 2 ýòaæ
btn floor3, âûéòè èç ëèôòa
end


:pkesh

if oòâepòêa and osh=0 then btn ioosh,ècïoëüçoâaòü oòâepòêy
if oosh=1 then goto ioosh2
pln ===| |=========================
pln Ùèòoê çaêpûò, íaìepòâo çaêpy÷eí áoëòaìè.
Pln Pyêaìè íe oòêpûòü.
pln ===| |=========================
btn floor3,oòoéòè oò ùèòêa
end

:ioosh
pln ===| |=========================
pln Äæeéìc, oòâepòêoé âûêpyòèë áoëòû, â ùèòêe áûë òoëüêo oäèí pyáèëüíèê, âèäèìo oí âêëþ÷aeò êoìïüþòep
pln ===| |=========================
oosh=1
oosh2=1
osh=1
if vkr=1 then btn vyklrub,âûêëþ÷èòü pyáèëüíèê
if vkr=0 then btn vklrub,âêëþ÷èòü pyáèëüíèê
btn floor3,oòoéòè oò ùèòêa
end

:vklrub
pln ===| |=========================
pln Pyáèëüíèê âêëþ÷eí!
pln ===| |=========================
comp=1
vkr=1
btn pkesh,íaçaä
end

:vyklrub
pln ===| |=========================
pln Pyáèëüíèê âûêëþ÷eí!
pln ===| |=========================
comp=0
vkr=0
btn pkesh,íaçaä
end

:ioosh2
pln ===| |=========================
pln Ýëeêòpo-ùèòoê
pln ===| |=========================
if vkr=1 then btn vyklrub,âûêëþ÷èòü pyáèëüíèê
if vkr=0 then btn vklrub,âêëþ÷èòü pyáèëüíèê
btn floor3,oòoéòè oò ùèòêa
end


:proomizol
if codeiz=1 then goto proomizol2
pln ===| |=========================
pln Äâepü èçoëÿòopa çaêpûòa, ía äâepè âècèò êoäoâûé çaìoê.
pln ===| |=========================
btn vkviz, ââecòè êoä
btn floor3, oòoéòè
end

:vkviz
input pass
if pass=23869011 then goto proomizol2
pln ===| |=========================
pln Koä íe ïoäxoäèò, íyæío ïoïpoáoâaòü eùe paç.
pln ===| |=========================
btn vkviz, ïoïpoáoâaòü eùe
btn floor3, oòoéòè
end

:proomizol2
if dvizpr=1 then goto proomizol3
pln ===| |=========================
pln Äæeéìc oòêpûë äâepü èçoëÿòopa, çäecü o÷eíü cèëüío âoíÿëo. Tpyïíûé çaïax çaïoëíÿë âcþ êaìepy.
pln Ha còeíe áeëûì ìeëoì áûëa íapècoâaía ïeíòaãpaììa.
pln B yãëy ëeæaë cãíèâøèé êycoê ìÿca.
pln ===| |=========================
inv+ êycoê ìÿca
if ëoì and pol=0 then btn vlpiz,âûëoìaòü ëoìoì ïoë
btn floor3,âûéòè èç êaìepû
dvizpr=1
end

:proomizol3
pln ===| |=========================
pln Çäecü o÷eíü cèëüío âoíÿëo. Tpyïíûé çaïax çaïoëíÿë âcþ êaìepy.
pln Ha còeíe áeëûì ìeëoì áûëa íapècoâaía ïeíòaãpaììa.
if ëoì and pol=0 then btn vlpiz,âûëoìaòü ëoìoì ïoë
btn floor3,âûéòè èç êaìepû
end

:use_[çaïècêa áoëüíoão]
pln ===| |=========================
pln ß íe çíaþ cêoëüêo âpeìeíè íac çäecü äepæaò, ìû çäopoâûe ëþäè, a oíè äeëaþò íac ïcèxaìè, äoáaâëÿþò íaì â êpoâü êaêyþ-òo äpÿíü.
Pln ß áoëüøe íe ìoãy òepïeòü, ìeíÿ çaâòpa ïapaëèçyeò è ÿ íe cìoãy äâèãaòücÿ.
Pln Oíè íe yáüþò ìeíÿ, ÿ caì ýòo cäeëaþ, ecëè cìoãy.
Pln
pln P.s Äæeéìc, ecëè òû ÷èòaeøü ýòo ïècüìo, çía÷èò òû eùe æèâ.
pln Ïoìíè, oí xo÷eò yáèòü òeáÿ, ïoòopoïècü, íaéäè êíèãy. ß xo...
pln ===| |=========================
pln (Oòêyäa oí çíaë ÷òo ÿ ïpèéäy? È êòo xo÷eò ìeíÿ yáèòü?
pln Kíèãa, ýòa òa êoòopyþ ÿ cæeã, oía íe ìoæeò áûòü öeëoé.)
end

:vlpiz
pln ===| |=========================
pln Äæeéìc âçëoìaë ëoìoì ïoë, òaì ëeæaë êoíâepò, â êoíâepòe áûëa çaïècêa.
pln ===| |=========================
inv+ [çaïècêa áoëüíoão]
pol=1
btn floor3,âûéòè èç êaìepû
end

:use_{{ øïpèö c âaêöèíoé }}_ècïoëüçoâaòü
a=rnd*30
if health=100 then pln
Çäopoâüe Äæeéìca â íopìe
if health<>100 then health=health+a
if health>100 then health=100
inv- {{ øïpèö c âaêöèíoé }}
et=et-1
end


:exit
if sob=0 then goto exit2
if sob=1 and êycoê ìÿca then btn edms,äaòü ìÿco coáaêaì
pln ===| |=========================
pln Äæeéìc âûøeë èç çäaíèÿ, âoçëe ïopoãa còoÿëè äâe coáaêè (poòâeéëepû).
pln Èx ãëaça íaïoëíÿëècü çëoáoé, oíè âoò âoò íaïaäyò ía Äæeéìca.
pln ===| |=========================
btn ebos,áeæaòü
btn floor1,çaéòè â çäaíèe
end

:ebos
bos=rnd*15
if bos>0 and bos<5 then goto ebosukvn
if bos>5 and bos<10 then goto ebosukvr
if bos>10 and bos<15 then goto ebospnz
if bos=15 then goto ebostkk
end

:ebosukvn
if health=<0 then goto death1
pln ===| |=========================
pln Äæeéìc ïoáeæaë, ío oäía èç coáaê äoãíaëa eão è yêycèëa ça íoãy.
pln Coáaêè ycëûøaëè ãoëoc xoçÿèía è yáeæaëè.
pln ===| |=========================
sob=0
health=health-rnd*10
btn exit2, èäòè ía yëèöy 
btn floor1, âepíyòücÿ â çäaíèe
end

:ebosukvr
if health=<0 then goto death1
pln ===| |=========================
pln Äæeéìc ïoáeæaë, ío oäía èç coáaê äoãíaëa eão è ycïeëa yêycèòü ça pyêy Äæeéìca.
pln Coáaêè ycëûøaëè ãoëoc xoçÿèía è yáeæaëè.
pln ===| |=========================
sob=0
health=health-rnd*15
btn exit2, èäòè ía yëèöy
btn floor1, âepíyòücÿ â çäaíèe
end

:ebospnz
if health=<0 then goto death1
pln ===| |=========================
pln Äæeéìc ïoáeæaë, ío oäía èç coáaê äoãíaëa eão, ëaïaìè ïoâaëèëa ía çeìëþ è æaäío ãpûçaíyëa eão â áoê. Coáaêè ycëûøaëè ãoëoc xoçÿèía è yáeæaëè.
pln ===| |=========================
sob=0
health=health-rnd*20
btn exit2, èäòè ía yëèöy
btn floor1, âepíyòücÿ â çäaíèe
end

:ebosdkk
pln ===| |=========================
pln Äæeéìc ïoáeæaë, ío oäía èç coáaê ïoáeæaëa ça íèì, ïapeíü ía xoäy ïoäíÿë êaìeíü è ïpèöeëüío çapÿäèë êaìíeì coáaêe â ÷epeï. Coáaêa çacêyëèëa è cêpûëacü â òeíè ìpa÷íûx yëèö.
pln ===| |=========================
sob=0
f=rnd*5

force=force+f
btn exit2, ía yëèöy
btn floor1, âepíyòücÿ â çäaíèe
end

:exit2
if ohrzd=1 then goto exittt
if police=1 and gpalm=0 and ubband=1 then goto gung
if dark=1 then goto exit22
pln ===| |=========================
pln Ha yëèöe yæe òeìíeeò, âïepeäè còoèò çäaíèe ïcèx-ëe÷eáíèöû. Bce oêía çaáèòû äocêaìè. Cïpaâa ía ïoâopoòe íeáoëüøoé ìaãaçèí. Cëeâa aâòoáycíaÿ ocòaíoâêa.
pln Óëèöa ocâeùeía ôoíapÿìè.
pln ===| |=========================
btn floor1, âepíyòücÿ â çäaíèe
btn idtinos, èäòè ía ocòaíoâêy
btn fmagaz, èäòè â ìaãaçèí
end

:edms
pln ===| |=========================
pln Äæeéìc êèíyë ìÿco ía çeìëþ, coáaêè c æaäíocòüþ paçopâaëè ìÿco è yáeæaëè.
pln ===| |=========================
btn exit2, ía yëèöy
btn floor1, âepíyòücÿ â çäaíèe
inv- êycoê ìÿca
sob=0
end

:csavg
pln ===| |=========================
pln Bâeäèòe ëþáoe èìÿ
pln ===| |=========================
pause 3000
save vvod1
pln ÈÃPA COXPAHEHA...
btn vvod1, íaçaä
end

:ohrq
pln ===| |=========================
pln Äæeéìc çaáeæaë â çäaíèe, oxpaííèê äocòaâ ïècòoëeò ïoáeæaë ça ïapíeì.
Pln Oxpaííèê cäeëaë ïapy âûcòpeëoâ, ÷yòü paíèë Äæeéìca â pyêy.
Pln
pln (äa, ýòo yæe íe øyòêè, ýòo peaëüíaÿ æèçíü, è ÷òoáû ìeíÿ íe yáèëè, íyæío ÷òo-òo cäeëaòü.
Pln Moæío çaìaíèòü eão â ÷eòâepòyþ ïaëaòy è yíè÷òoæèòü eão ãaçoì.)
pln ===| |=========================
health=health-rnd*10
btn proom3,áeæaòü â ïaëaòy '3'
ohrzd=2
end

:oprm3

pln ===| |=========================
pln Äæeéìc çaáeæaë â ïaëaòy, çaêpûâ äâepü oí ïoäoøeë ê òpyáe â ïoëy.
Pause 2000
Pln
pln (Xì... Çíaêoìûé øyì è çaïax, âèäèìo ÿ çaáûë çaêpûòü ãaç.
Pln Ïoáeäa ça ìíoé, oxpaííèê cêopo áyäeò ìepòâ, ïopa âûxoäèòü oòcþäa!
pln Ho äëÿ ía÷aëa íyæío çaêpûòü ãaç.)
pln ===| |=========================
ohrzd=3
btn floor1, ïoêèíyòü ïaëaòy.
end

:zprm3
if ttt=1 then goto zprm4
pln ===| |=========================
pln Äæeéìc çaáeæaë â ïaëaòy, çaêpûâ äâepü oí ïoäoøeë ê òpyáe â ïoëy.
Pause 2000
pln
pln Hyæío äoæäaòücÿ êoãäa oxpaííèê çaéäeò â ïaëaòy '4'
pln ===| |=========================
ttt=1
btn zprm4,æäaòü
end
 
:zprm4
pln ===| |=========================
pln Hyæío äoæäaòücÿ êoãäa oxpaííèê çaéäeò â ïaëaòy '4'
pln ===| |=========================
ozvpn3=rnd*7
if ozvpn3>0 and ozvpn3<2 then goto tt1
if ozvpn3=>2 and ozvpn3<4 then goto tt1
if ozvpn3>6 then goto tt2
btn zprm4,æäaòü
end

:tt1
pln Hyæío ïoäoæäaòü eùe!
pln ===| |=========================
btn zprm4,æäaòü
end

:tt2

pln Oxpaííèê yæe â ïaëaòe '4' íyæío äeécòâoâaòü è ïpèáèòü eão êaê êpûcy!
pln ===| |=========================
btn ventgaz1, oòêpûòü ãaç
end

:tt3
pln ===| |=========================
pln Hacòyïèëa òèøèía, âèäèìo oxpaííèê yæe ìepòâ. Hyæío cxoäèòü òyäa Ho äëÿ ía÷aëa íyæío çaêpûòü ãaç.
pln ===| |=========================
ohrzd=3
btn floor1, âûéòè èç ïaëaòû
end

:ventgaz1
gaz=1
if gaz=1 then goto tt3
end

:nproom4
pln ===| |=========================
pln Oáû÷íaÿ ïaëaòa, xoòÿ ìoæeò ëè áûòü ãaçoâaÿ êaìepa oáû÷íoé ïaëaòoé?!
Pln Boçëe êyøeòêè còoèò paäèo-aâòoìaò, ecëè â íeão âcòaâèòü ìoíeòy, ìoæío ïocëyøaòü paçíûe íoâocòè.
pln Ha ïoëy ëeæèò òpyï oxpaííèêa.
pln ===| |=========================
if ohrzd=3 and ohrub=0 then btn obtroh, oáûcêaòü òpyï
if cepeápÿíaÿ ìoíeòa then btn prmsm, âcòaâèòü ìoíeòy
btn floor1,âûéòè èç ïaëaòû
end


:obtroh
pln ===| |=========================
pln Äæeéìc oáûcêaë òeëo oxpaííèêa, oí âçÿë èç oäeæäû òpyïa, ïècòoëeò (êoëüò) è peçèíoâyþ äyáèíêy.
pln ===| |=========================
inv+ {{ ïècòoëeò }}
inv+ [oáoéìa]
inv+ {{ äyáèíêa }}
btn floor1, âûéòè èç ïaëaòû
ohrub=1
end

:use_{{ äyáèíêa }}_ècïoëüçoâaòü
weapon=2
pln Äæeéìc âûápaë äyáèíêy.
end

:nproomz
if health<=0 then goto death1
pln ===| |=========================
pln Äæeéìc çaøeë â ïaëaòy, äâepü peçêo çaxëoïíyëacü, ïapeíü ycïeë çaìeòèòü ocoáûe ïpèìeòû ïaëaòû, ýòo ãpèáoê ía còeíax è còaëüíûe òpyáû ía ïoòoëêe.
Pln ...
Pln ...
Pln ...
pause 2500
pln Cïycòÿ íecêoëüêo ìèíyò, ïaëaòy ía÷aë çaïoëíÿòü ÿäoâèòûé ãaç, Äæeéìc ía÷aë çaäûxaòücÿ...
pln Bcêope äâepü oòêpûëacü.
pln ===| |=========================
if health<=0 then goto death1
btn floor1, âûáeæaòü èç ïaëaòû
health=health-rnd*15
end

:exit22
pln ===| |=========================
pln Ha yëèöe yæe coâceì òeìío, âïepeäè eëe-eëe âèäío çäaíèe ïcèx-ëe÷eáíèöû. Bce oêía çaáèòû äocêaìè. Cïpaâa ía ïoâopoòe íeáoëüøoé ìaãaçèí. Cëeâa aâòoáycíaÿ ocòaíoâêa.
pln Óëèöa ocâeùeía ôoíapÿìè.
pln ===| |=========================
btn floor1, âepíyòücÿ â çäaíèe
btn idtinos, èäòè ía ocòaíoâêy
btn fmagaz, èäòè â ìaãaçèí
end


:fmagaz
if magaz=1 then goto fmagaz2
pln ===| |=========================
pln Äæeéìc ïoäoøeë ê caìoìy çäaíèþ, âíèìaòeëüío ocìoòpeë ìecòíocòü.
pln Ýòo áûë íeáoëüøoé ìaãaçèí, ÷òo-òo âpoäe aïòeêè.
pln Kaê íe còpaíío, ío ìaãaçèí eùe paáoòaë, xoòü è áûëo yæe òeìíoâaòo. Toëüêo äâa ôoíapÿ còoÿâøèe âoçëe çäaíèÿ, ïpèâëeêaëè ê ceáe áoëüøe  âíèìaíèÿ.
pln Oáû÷ío â òaêoe âpeìÿ ìaíüÿêè âûxoäÿò ía oxoòy.
pln ===| |=========================
btn entmagaz, çaéòè â ìaãaçèí
btn exit2, âûéòè ía yëèöy
magaz=1
end

:entmagaz
if opmag=1 then goto opmag1
pln ===| |=========================
pln Bíyòpè çäaíèÿ áûëo câeòëo, câe÷è ía còeíax xopoøo ocâeùaëè ìaãaçèí.
pause 2500
pln
pln - ß ìoãy âaì ÷eì-òo ïoìo÷ü?
Pln - Äa, ïoæaëyé ìoæeòe.
Pln   Ó âac ecòü ëeêapcòâo ïepâoé ïoìoùè?
Pln - Bcìûcëe, ÿ íe ïoíÿëa âac.
Pln (Taêaÿ êpacèâaÿ äeâyøêa, a ìoçãoâ êaê y êypèöû)
pln  - ß ãoâopþ, ïpè paíeíèè ÷òo íyæío ècïoëüçoâaòü? Áèíòû ìoæeò, ïepeêècü?
Pln  - Ecòü oäèí cïocoá, ío oí eùe íe òecòèpoâaí, áèíòû ýòo ïpoøëûé âeê, ecòü oäèí øïpèö c æèäêocòüþ 'Aìïôopa' ìãíoâeíío ocòaíaâëèâaeò êpoâü, ïpèòyïëÿeò ÷yâcòâo áoëè.
Pln  - Èíòepecòío, äeíeã êoíe÷ío y ìeíÿ ceé÷ac íeò, ío ÿ âce æe çaéäy ïoçæe.
Pln

btn fmagaz, âûéòè èç ìaãaçèía
opmag=1
end

:fmagaz2
pln ===| |=========================
pln Oáû÷íûé ìaãaçèí, ÷òo-òo ía poâíe c aïòeêoé.
pln ===| |=========================
btn entmagaz, çaéòè â ìaãaçèí
btn exit2, âûéòè ía yëèöy
end

:opmag1
pln ===| |=========================
pln - Moãy ÿ âaì ÷òo-òo ïpeäëoæèòü?
pln ===| |=========================
btn ampfora, øïpèöû c aìïôopoé
if ohrzd=3 and wax=0 then btn candles, - íyæíû câe÷è!
btn fmagaz, íeò, cïacèáo!
if cepeápÿíaÿ ìoíeòa and fonar=0 then goto esmd
end
 
:ampfora
pln ===| |=========================
pln Øïpèöû aìïôopa (öeía - 20 äoëëapoâ)
pln ===| |=========================
btn kupamf,êyïèòü 1 øò.
btn opmag1, íaçaä
end

:kupamf
if money<20 then goto kupnd
money=money-20
inv+ {{ øïpèö aìïôopa }}
pln ===| |=========================
pln - Cïacèáo ça ïoêyïêy!
pln ===| |=========================
btn kupamf, êyïèòü
btn opmag1, íaçaä
end

:kupnd
pln ===| |=========================
pln - Ó âac íeäocòaòo÷ío äeíeã!
pln ===| |=========================
btn opmag1, íaçaä
end

:candles
pln ===| |=========================
pln - Boò âaøè câe÷è, c âac 35 äoëëapoâ!
pln ===| |=========================
inv+ câe÷è
money=money-35
btn opmag1, íaçaä
wax=1
end

:use_[äeíüãè]
m1=äoëëap
m2=äoëëapa
m3=äoëëapoâ

if money=0 then pln B êoøeëüêe Äæeéìca #money$ #m3$
if money=1 then pln B êoøeëüêe Äæeéìca #money$ #m1$
if money=2 then pln B êoøeëüêe Äæeéìca #money$ #m2$
if money=3 then pln B êoøeëüêe Äæeéìca #money$ #m2$
if money=4 then pln B êoøeëüêe Äæeéìca #money$ #m2$
if money>=5 then pln B êoøeëüêe Äæeéìca #money$ #m3$
end

:esmd

pln - Ha yëèöe òeìío, äeâyøêa, a y âac ecòü ôoíapèê?
Pln - Äa, 12 äoëëapoâ.
Pln - Ó ìeíÿ ecòü âoò ýòa ìoíeòa ía 20 öeíòoâ, áoëüøe íè÷eão íeò.
Pln - Hy âoáùe-òo y íac çaïpeùeío ýòo, ío òaê è áûòü, ÿ äaì âaì ôoíapèê ça ìoíeòy.
Pln - Cïacèáo âaì, êaê âû ìeíÿ âûpy÷èëè.
Pln 
pln Äæeéìc ïoáëaãoäapèë äeâyøêy.
pln ===| |=========================

inv+ {{ ôoíapèê }}
inv- cepeápÿíaÿ ìoíeòa
btn fmagaz, âûéòè
fonar=1
end

:use_{{ øïpèö aìïôopa }}_ècïoëüçoâaòü
pln Çäopoâüe Äæeéìca yëy÷øèëocü!
tar=rnd*50
if health<>100 then health=health+tar
if health>100 then health=100
inv- {{ øïpèö aìïôopa }}
end


:idtinos
cls
if ost=1 then goto idtiost2
pln ===| |=========================
pln Äæeéìc ïoäoøeë ê ocòaíoâêe, ía ëaâêax, ãäe oáû÷ío cèäÿò ëþäè, oácaëþòío ïycòo.
Pln Hè äyøè, íe eäèíoão çâyêa íe cëûøío.
Pln Äæeéìc ïoäoøeë ïo áëèæe, êaê ía òpoòyape oí çaìeòèë ìoíeòy â 20 öeíòoâ.
pln ===| |=========================
inv+ cepeápÿíaÿ ìoíeòa
btn exit2, èäòè ía yëèöy
btn jdavt, æäaòü aâòoáyc
btn jdtax, æäaòü òaêcè
btn idpesh, èäòè ïeøêoì
ost=1
end

:idtiost2
cls
pln ===| |=========================
pln Aâòoáycíaÿ ocòaíoâêa yëèöû Kaéì Còpèò, ïo ýòèì yëèöaì aâòoáycû ïpoeçæaþò íe o÷eíü ÷acòo.
pln ===| |=========================
btn exit2, èäòè ía yëèöy
btn jdavt, æäaòü aâòoáyc
btn jdtax, æäaòü òaêcè
btn idpesh, èäòè ïeøêoì
end

:jdavt
jdavto=rnd*6
if jdavto>0 and jdavto<4 then goto autobnot
if jdavto>4 and jdavto<7 then goto autobyes
pln ===| |=========================
pln Aâòoáycû çäecü áûâaþò íe o÷eíü ÷acòo.
pln ===| |=========================
btn jdavt, æäaòü
btn exit2, âepíyòücÿ ía yëèöy
end

:autobnot
pln ===| |=========================
pln Aâòoáycoâ íe âèäío...
pln ===| |=========================
btn jdavt, æäaòü
btn exit2, âepíyòücÿ ía yëèöy
end

:autobyes
pln ===| |=========================
pln Aâòoáyc ïoäúexaë ê ocòaíoâêe.
pln ===| |=========================
btn entautob, çaéòè â aâòoáyc
btn exit2, âepíyòücÿ ía yëèöy
end

:entautob
pln ===| |=========================
pln Äâyx-ýòaæíûé aâòoáyc, íapoäy çäecü ïo÷òè íeò.
pln ===| |=========================
pause 2500
pln
pln - Ïëaòèì ça ïpoeçä, 3 äoëëapa!
if money>0 then btn zaplautob, çaïëaòèòü
btn idtinos, âûéòè èç aâòoáyca
end

:zaplautob
money=money-3
pln ===| |=========================
pln Aâòoáyc òpoíyëcÿ c ìecòa.
Pln Äo áëèæaéøeé yëèöû 11 êì.
pln ===| |=========================
pln ...
pause 50000
goto perekr
end

:jdtax
jdtax=rnd*6
if jdtax>0 and jdtax<4 then goto taxnot
if jdtax>4 and jdtax<7 then goto taxyes
pln ===| |=========================
pln Ïo òeìíûì yëèöaì òaêcè ïpoeçæaþò íe ÷acòo.
pln ===| |=========================
btn jdtax, æäaòü
btn exit2, âepíyòücÿ ía yëèöy
end

:taxnot
pln ===| |=========================
pln Taêcè íe âèäaòü...
pln ===| |=========================
btn jdtax, æäaòü
btn exit2, âepíyòücÿ ía yëèöy
end

:taxyes
pln ===| |=========================
pln Aâòoìoáèëü òaêcè ïoäúexaë ê ocòaíoâêe.
pln ===| |=========================
btn sesttax, cecòü â aâòoìoáèëü
btn exit2, âepíyòücÿ ía yëèöy
end

:sesttax
pln ===| |=========================
pln - Koìaíäèp, äo yëèöû Groad Street ïoäápocèøü?
Pln
pause 2500
pln - Heò ïpoáëeì, 20 äoëëapoâ, ïoëeòèì êaê paêeòa.
pln ===| |=========================
if money>0 then btn enttax, ïoexaëè!
btn idtinos, íeò, ëy÷øe ïeøêoì!
end

:enttax
money=money-20
pln ===| |=========================
pln Aâòoìoáèëü òpoíyëcÿ c ìecòa, äo áëèæaéøeé yëèöû 11 êì.
Pln Ho ía òaêcè òyäa äoexaòü ìoæío áûcòpo.
pln ===| |=========================
pln ...
pause 10000
goto perekr
end

:idpesh
pln ===| |=========================
pln Äæeéìc peøèë ïoéòè ïeøêoì, äo áëèæaéøeé yëèöû 11 êì.
Pln Äopoãa áyäeò äoëãaÿ.
pln ===| |=========================
pln ...
pause 100500
goto perekr
end


:perekr
if perekr1=1 then goto perekr2
cls
pln ===| |=========================
pln Äæeéìc ïpèáûë ía ocòaíoâêy, çäecü äâa ïoâopoòa, ía Groad Street è ía ãëaâíyþ yëèöy.
Pln Ecëè íyæío âepíyòücÿ ê áoëüíèöe, íyæío æäaòü aâòoáyc èëè òaêcè, íy èëè èäòè ïeøêoì.
pln ===| |=========================
btn grstreet, èäòè ía Groad Street
btn begstreet, èäòè ía ãëaâíyþ yëèöy
btn jdautob2, æäaòü aâòoáyc
btn jdtaxi2, æäaòü òaêcè
btn idtipesh2, èäòè ïeøêoì
perekr1=1
end

:perekr2
cls
pln ===| |=========================
pln Aâòoáycíaÿ ocòaíoâêa. Çäecü ecòü äâa ïoâopoòa, ía Groad Street è ía ãëaâíyþ yëèöy.
pln ===| |=========================
btn grstreet, èäòè ía Groad Street
btn begstreet, èäòè ía ãëaâíyþ yëèöy
btn jdautob2, æäaòü aâòoáyc
btn jdtaxi2, æäaòü òaêcè
btn idtipesh2, èäòè ïeøêoì
end


:jdautob2
jdavto2=rnd*6
if jdavto2>0 and jdavto2<4 then goto autobnot2
if jdavto2>4 and jdavto2<7 then goto autobyes2
pln ===| |=========================
pln Aâòoáycû çäecü áûâaþò íe o÷eíü ÷acòo.
pln ===| |=========================
btn jdautob2, æäaòü
btn perekr, íaçaä
end

:autobnot2
pln ===| |=========================
pln Aâòoáycoâ íe âèäío...
pln ===| |=========================
btn jdautob2, æäaòü
btn perekr, íaçaä
end

:autobyes2
pln ===| |=========================
pln Aâòoáyc ïoäúexaë ê ocòaíoâêe.
pln ===| |=========================
btn entautob2, çaéòè â aâòoáyc
btn perekr, íaçaä
end

:entautob2
pln ===| |=========================
pln Äâyx-ýòaæíûé aâòoáyc, íapoäy çäecü ïo÷òè íeò.
pln ===| |=========================
pause 2500
pln
pln - Ïëaòèì ça ïpoeçä, 3 äoëëapa!
if money>0 then btn zaplautob2, çaïëaòèòü
btn perekr, âûéòè èç aâòoáyca
end

:zaplautob2
money=money-3
pln ===| |=========================
pln Aâòoáyc òpoíyëcÿ c ìecòa.
Pln Äo áëèæaéøeé yëèöû 11 êì.
pln ===| |=========================
pln ...
pause 50000
goto idtiost2
end

:jdtaxi2
jdtax2=rnd*6
if jdtax2>0 and jdtax2<4 then goto taxnot2
if jdtax2>4 and jdtax2<7 then goto taxyes2
pln ===| |=========================
pln Ïo òeìíûì yëèöaì òaêcè ïpoeçæaþò íe ÷acòo.
pln ===| |=========================
btn jdtaxi2, æäaòü
btn perekr, íaçaä
end

:taxnot2
pln ===| |=========================
pln Taêcè íe âèäaòü...
pln ===| |=========================
btn jdtaxi2, æäaòü
btn perekr, íaçaä
end

:taxyes2
pln ===| |=========================
pln Aâòoìoáèëü òaêcè ïoäúexaë ê ocòaíoâêe.
pln ===| |=========================
btn sesttax2, cecòü â aâòoìoáèëü
btn perekr, íaçaä
end

:sesttax2
pln ===| |=========================
pln - Koìaíäèp, äo yëèöû Kaéì Còpèò ïoäápocèøü?
Pln
pause 2500
pln - Heò ïpoáëeì, 20 äoëëapoâ, è ìû yæe òaì.
pln ===| |=========================
if money>0 then btn enttax2, ïoexaëè!
btn perekr, íeò, ëy÷øe ïeøêoì!
end

:enttax2
money=money-20
pln ===| |=========================
pln Aâòoìoáèëü òpoíyëcÿ c ìecòa, äo áëèæaéøeé yëèöû 11 êì.
Pln Ho ía òaêcè òyäa äoexaòü ìoæío áûcòpo.
pln ===| |=========================
pln ...
pause 10000
goto idtiost2
end

:idtipesh2
pln ===| |=========================
pln Äæeéìc peøèë ïoéòè ïeøêoì, äo áëèæaéøeé yëèöû 11 êì.
Pln Äopoãa áyäeò äoëãaÿ.
pln ===| |=========================
pln ...
pause 100500
goto idtiost2
end

:death1
Style_TextColor=0*256*256+0*256+255
Style_BackColor=0*256*256+0*256+70

cls
pln ===| |=========================
pln Äæeéìc ïoãèá, oí òaê è íe yçíaë âcex òaéí câoeão ãopoäa è äoìa.
pln
pln Bû ïpoèãpaëè, ío âû ìoæeòe ía÷aòü èãpy cía÷aëa èëè ïpoäoëæèòü èãpy yæe co âceìè ïepeìeííûìè.  (òaêèe ôèøêè âcòpe÷aþòcÿ íe âo âcex êâecòax!)
pln ===| |=========================
btn floor1, âepíyòü âpeìÿ íaçaä
btn begin, ía÷aòü cía÷aëa
ded=1
end


:grstreet
if grstr=1 then goto grstreet2
pln ===| |=========================
pln Äæeéìc âûøeë ía Groad Street, ýòo yëèöa ãäe oí æèë â câoeì ocoáíÿêe, êoòopûé äocòaëcÿ eìy â íacëeäcòâo, ïocëe cìepòè eão áaáyøêè, ãäe ía ïpoòÿæeíèè òpex ëeò, â äoìe ïpoècxoäèëè æyòêèe âeùè.
Pln Xoäèëè cëyxè, ÷òo äoì, â êoòopoì æèë Äæeéìc, ïpoêëÿò.
Pln Ïocëe òoão êaê Äæeéìca çaïepëè â ïcèx-ëe÷eáíèöe, äoì íe cìoãëè ïpoäaòü, âeäü eão íèêòo íe xoòeë ïoêyïaòü. È òeïepü äoì ïycòyeò.
Pln Haïpoòèâ äoìa â íecêoëüêèx ìeòpax íaxoäèòcÿ çaápoøeííoe êëaäáèùe.
pln ===| |=========================
btn gohome, èäòè âo äâop
btn goklad, èäòè ía êëaäáèùe
btn perekr, èäòè ía ocòaíoâêy
grstr=1
end

:grstreet2
pln ===| |=========================
pln Óëèöa Groad Street, cëeâa íaxoäèòcÿ äoì Äæeéìca, cïpaâa ïpoëoæeía äopoãa ía còapoe êëaäáèùe.
pln ===| |=========================
btn gohome, èäòè âo äâop
btn goklad, èäòè ía êëaäáèùe
btn perekr, èäòè ía ocòaíoâêy
end

:goklad
pln ===| |=========================
pln Còapoe, çaápoøeííoe êëaäáèùe, çäecü yæe ìíoão ëeò íèêoão íe xopoíÿò.
pln ===| |=========================
if pitgroun=1 and ëoïaòa then btn searchmog, ècêaòü ìoãèëy Ïèòepa
btn grstreet, âepíyòücÿ ía yëèöy
end

:searchmog
pln ===| |=========================
pln Äæeéìc áûcòpo íaøeë ìoãèëy Ïèòepa Ãpoyía.
pause 2000
pln
pln (Teïepü òû íèêoìy íe ïoìeøaeøü, òû áoëüøe íèêoão íe yáüeøü!)
pln ===| |=========================
btn kopmog, êoïaòü
end

:kopmog
pln ===| |=========================
pln Äo ìoãèëû Ïèòepa ãäe-òo 3 ìeòpa çeìëè. Ïpèäeòcÿ ïoïoòeòü.
pln ===| |=========================
if metr=3 then goto deadpit
pause 3000
metr=metr+1
btn kopmog, êoïaòü
end

:deadpit
cls
pln ===| |=========================
pln Äæeéìc âûêoïaë ìoãèëy, â çeìëe ëeæaëè êocòè Ïèòepa.
pln (Ceé÷ac òû ïoëy÷èøü câoe!)
pln ===| |=========================
btn deadpit2, yíè÷òoæèòü êocòè Ïèòa
end

:deadpit2
pln ===| |=========================
pln Äæeéìc cxâaòèë ëoïaòy, è ïpèíÿëcÿ äoëáèòü ïo êocòÿì Ïèòepa, a òeì âpeìeíeì ía yëèöe ía÷aëacü ãpoça.
pln Ha÷aëcÿ ëèâeíü, ìoãèëy Ïèòepa çaïoëíÿëa âoäa.
pln ===| |=========================
btn vylisvod, âûápaòücÿ èç ìoãèëû.
pitgroun=2
end

:vylisvod
if vylmo=1 then goto vylisvod2
pln ===| |=========================
pln Äæeéìc ïoïûòaëcÿ âûápaòücÿ íaâepx, yöeïèâøècü ça çeìëþ pyêaìè, pln Äæeéìc ía÷aë ïoäòÿãèâaòücÿ, ÷òoá âûëeçòè èç ìoãèëû.
pln ===| |=========================
btn vylisvod, âûáèpaòücÿ
vylmo=1
end

:vylisvod2
vylis=rnd*10
if vylis>0 and vylis<5 then goto vilent
pln ===| |=========================
pln Ïoïûòêè âûápaòücÿ íaâepx, ïoòepïeëè êpax!
pln ===| |=========================
btn vylisvod, âûáèpaòücÿ eùe
end

:vilent
pln ===| |=========================
pln Äæeéìc c òpyäoì âûápaëcÿ íaâepx, ío ëoïaòa eão yòoíyëa â ìoãèëe Ïèòepa, çaïoëíeíoé âoäoé.
pln ===| |=========================
inv- ëoïaòa
btn grstreet, áeæaòü ía yëèöy
end 


:begstreet
if gworld=1 and ohrzd=3 and vakcina=1 then goto gungworld
if begstr=1 then goto begstreet2
pln ===| |=========================
pln Äæeéìc âûøeë ía ãëaâíyþ yëèöy, ía ýòoé yëèöe ecòü íeáoëüøoé ïoëèöeécêèé y÷acòoê, pÿäoì íaxoäèòcÿ ìaãaçèí, òaì paíüøe íeëeãaëüío ïpoäaâaëè opyæèe è ïoëèöèÿ çaêpûëa ýòoò ìaãaçèí.
pln ===| |=========================
btn policehome, èäòè â ïoëèöeécêèé y÷acòoê
btn weapshop, èäòè â ìaãaçèí
btn perekr, èäòè ía ocòaíoâêy
begstr=1
end

:begstreet2
pln ===| |=========================
pln Ãëaâíaÿ yëèöa, cïpaâa íaxoäèòcÿ ïoëèöeécêèé y÷acòoê, pÿäoì ìaãaçèí.
pln ===| |=========================
btn policehome, èäòè â ïoëèöeécêèé y÷acòoê
btn weapshop, èäòè â ìaãaçèí
btn perekr, èäòè ía ocòaíoâêy
end

:camworld
pln ===| |=========================
pln Äæeéìca ïoéìaëa ïoëèöèÿ.
Pln Ça xyëèãaícòâo è ïoêyøeíèe ía ÷yæoe èìyùecòâo. Ïapeíü ïpocèäèò â cëeäcòâeííoì èçoëÿòope oêoëo cyòoê.
pln ===| |=========================
pause 50000
goto camworld2
end

:camworld2
cls
pln ===| |=========================
pln Ïpoøëo âceão 3 ÷aca.
Pln B êaìepy èçoëÿòopa çaøeë ïoëèöeécêèé.
pause 2000
pln
pln - Cëyøaé, ÿ íe ïoíèìaþ ça÷eì òû xoòeë ïycòoé ìaãaçèí oãpaáèòü?
Pln Bïpo÷eì íe âaæío, äaâaé ìíe 25 äoëëapoâ è áeãè oòcþäa ïpo÷ü!
if money>0 then btn yesbegkam, äaòü äeíüãè
if money<0 then btn nobegkam, íeò äeíeã
end

:nobegkam
pln ===| |=========================
pln - Hy, cèäè òoãäa çäecü, ìoe äeëo ïpeäëoæèòü...
pln ===| |=========================
pause 250000
goto entbegkam
end

:entbegkam
cls
pln ===| |=========================
pln - Ëaäío, òaê è áûòü, èäè yæe c ãëaç ìoèx äoëoé. ×òoá ÿ òeáÿ çäecü íe âèäeë.
pln ===| |=========================
btn begstreet, âûéòè ía yëèöy
cop=1
but=1
end

:yesbegkam
pln ===| |=========================
pln - Boò è xopoøo! Äaâaé, áeãè áûcòpee, ío áoëüøe íe ïoïaäaécÿ ìíe!
pln ===| |=========================
money=money-25
btn begstreet, âûéòè ía yëèöy
cop=1
end

:exittt
pln ===| |=========================
pln Kaê òoëüêo Äæeéìc ïoäoøeë ê áoëüíèöe, oí çaìeòèë oxpaííèêa, còoÿùeão pÿäoì co çäaíèeì.
pln ===| |=========================
btn podkohr, ïoäoéòè ê oxpaííèêy
btn floor1, ïpoáeæaòü ìèìo íeão
end

:podkohr
pln ===| |=========================
pln Oxpaííèê çaìeòèë ïapíÿ, oí äocòaë ïècòoëeò è ía÷aë còpeëÿòü â còopoíy Äæeéìca.
pln ===| |=========================
btn floor1, áeæaòü â çäaíèe
end


:gungworld
pln ===| |=========================
pln Äæeéìc âûøeë ía ãëaâíyþ yëèöy, è ê íeìy ïoäoøëè òpè aìáaëa < íaêa÷eíûe, ápèòoãoëoâûe ïapíè c áèòaìè â pyêax >
pause 4500
pln
pln - Çäapoâa ìepòâeö! 
Pln - Hy, ïpèâeò, a ïo÷eìy ìepòâeö?
Pln - Ceé÷ac yçíaeøü!
pause 3000
pln
pln Oäèí èç aìáaëoâ c poçìaxy yäapèë Äæeéìca ïo ãoëoâe.
Pln Ïapeíü yïaë ía çeìëþ
health=health-7
pause 3000
pln
pln - Bcòaâaé, ïoêaæè câoþ ãepoécêyþ cèëy.
pln ===| |=========================
if weapon=0 then btn drruk1, ía÷aòü äpaêy
if weapon=1 then btn vystrel, âûcòpeëèòü
if weapon=2 then btn uddub1, yäapèòü aìáaëa äyáèíêoé 
end

:drruk1
cls
if health<=0 then goto death1
if pr1<=0 then goto drruk2

pln ***************************************
pln Çäopoâüe ïpoòèâíèêa 1 - #pr1$
pln Ïpoòèâíèê íaíec ypoí - #bpr$ 
Pln ***************************************
pln                    Á  O  É
pln ***************************************
pln Çäopoâüe Äæeéìca - #health$
pln Äæeéìc íaíec ypoí - #djwk$ 
***************************************
bpr=rnd*6
djwk=rnd*8
health=health-bpr
pr1=pr1-djwk
btn drruk1, äpaòücÿ
end

:drruk2

if health<=0 then goto death1
if pr2<=0 then goto drruk3

pln ***************************************
pln Çäopoâüe ïpoòèâíèêa 2 - #pr2$
pln Ïpoòèâíèê íaíec ypoí - #bpr$ 
Pln ***************************************
pln                    Á  O  É
pln ***************************************
pln Çäopoâüe Äæeéìca - #health$
pln Äæeéìc íaíec ypoí - #djwk$ 
***************************************
bpr=rnd*6
djwk=rnd*8
health=health-bpr
pr2=pr2-djwk
btn drruk2, äpaòücÿ
end

:drruk3

if health<=0 then goto death1
if pr3<=0 then goto pobpr

pln ***************************************
pln Çäopoâüe ïpoòèâíèêa 3 - #pr3$
pln Ïpoòèâíèê íaíec ypoí - #bpr$ 
Pln ***************************************
pln                    Á  O  É
pln ***************************************
pln Çäopoâüe Äæeéìca - #health$
pln Äæeéìc íaíec ypoí - #djwk$ 
Pln ***************************************
bpr=rnd*6
djwk=rnd*8
health=health-bpr
pr3=pr3-djwk
btn drruk3, äpaòücÿ
end

:uddub1

if health<=0 then goto death1
if pr1<=0 then goto uddub2

pln ***************************************
pln Çäopoâüe ïpoòèâíèêa 1 - #pr1$
pln Ïpoòèâíèê íaíec ypoí - #bpr$ 
Pln ***************************************
pln                    Á  O  É
pln ***************************************
pln Çäopoâüe Äæeéìca - #health$
pln Äæeéìc íaíec ypoí - #djwk$ 
Pln ***************************************
bpr=rnd*6
djwk=rnd*10
health=health-bpr
pr1=pr1-djwk
btn uddub1, yäapèòü
end

:uddub2

if health<=0 then goto death1
if pr2<=0 then goto pobpr

pln ***************************************
pln Çäopoâüe ïpoòèâíèêa 2 - #pr2$
pln Ïpoòèâíèê íaíec ypoí - #bpr$ 
Pln ***************************************
pln                    Á  O  É
pln ***************************************
pln Çäopoâüe Äæeéìca - #health$
pln Äæeéìc íaíec ypoí - #djwk$ 
Pln ***************************************
bpr=rnd*6
djwk=rnd*10
health=health-bpr
pr2=pr2-djwk
btn uddub2, yäapèòü
end

:uddub3

if health<=0 then goto death1
if pr3<=0 then goto pobpr

pln ***************************************
pln Çäopoâüe ïpoòèâíèêa 3 - #pr3$
pln Ïpoòèâíèê íaíec ypoí - #bpr$ 
Pln ***************************************
pln                    Á  O  É
pln ***************************************
pln Çäopoâüe Äæeéìca - #health$
pln Äæeéìc íaíec ypoí - #djwk$ 
Pln ***************************************
bpr=rnd*6
djwk=rnd*10
health=health-bpr
pr3=pr3-djwk
btn uddub3, yäapèòü
end

:vystrel
pln ===| |=========================
pln (ß íe xo÷y còpeëÿòü â ÷eëoâeêa, è íe coáèpaþcü ýòoão äeëaòü, ëy÷øe áyäy äpaòücÿ êaê ìyæ÷èía.)
pln ===| |=========================
weapon=0
pause 5000
goto drruk1
end

:pobpr
pln ===| |=========================
pln Äæeéìc çaâaëèë áaíäèòoâ.
Pln È ïoëy÷èëocü y íeão ýòo xopoøo.
Pln Oí èx íe yáèë, xoäèòü oíè eùe cìoãyò.
pln ===| |=========================
btn obpr, oáûcêaòü òeëa
end

:obpr
pln ===| |=========================
pln Äæeéìc oáûcêaë èx òeëa, è íaøeë 50 äoëëapoâ, è câepíyòyþ çaïècêy. Eùe oí ïoçaèìcòâoâaë y oäíoão aìáaëa áèòy.
pln ===| |=========================
inv+ {{ áèòa }}
inv+ [çaïècêa Aìáaëa]
money=money+50
btn begstreet, èäòè ía yëèöy
gworld=0
end

:use_[çaïècêa Aìáaëa]
pln Óáeéòe ýòoão êpeòèía Äæeéìca.
Pln Oí ïopòèò íaì âce äeëo.
Pln Ecëè oí xoòü ÷òo-òo yçíaeò, òo Áýí ïpèêoí÷èò íac. È âac â ïepâyþ o÷epeäü, ÿ ïocëaë eùe oäíèx peáÿò, ïpoâeäaòü eão äoì. Eùe äâoe áyäyò æäaòü eão y áoëüíèöû ïoçæe.
Pln He ïoäâeäèòe ìeíÿ.
Pln Haéäèòe eão, èía÷e áyäyò ècêaòü âac, a òo÷íee âaøè òpyïû, ãäe-òo â ëecy.
end

:use_{{ áèòa }}_ècïoëüçoâaòü
weapon=3
pln Äæeéìc âçÿë áèòy
end

:weapshop
if vitrin=1 then goto weapshopc
pln ===| |=========================
pln Oáû÷íûé ìaãaçèí c áoëüøoé çacòeêëeííoé âèòpèíoé.
pln ===| |=========================
btn entweapshop, ïoäoéòè ê äâepè
if weapon=1 and sign=1 and gworld=0 and cop=0 and but=0  then btn copyes, còpeëÿòü ïo âèòpèíe
if weapon=1 and sign=0 and gworld=0 and but=0 then btn vitent, còpeëÿòü ïo âèòpèíe
if vitrin=1 then btn entvitrin, çaéòè ÷epeç âèòpèíy
if cop=1 then btn entvitrin, çaéòè ÷epeç âèòpèíy
btn begstreet, íaçaä ía yëèöy
end

:copyes
pln ===| |=========================
pln Äæeéìc âûcòpeëèë â còeêëo âèòpèíû...
pistol=pistol-1
vitrin=1
pause 2500
pln
pln Cpaáoòaëa cèãíaëèçaöèÿ, èç-ça yãëa âûáeæaëè ïoëèöeécêèe, íaïpaâèâ còâoëû ïècòoëeòoâ ía Äæeéìca.
pause 5000
pln
pln - Opyæèe ía çeìëþ! Pyêè ça ãoëoây!
Pln - Coïpoòèâëeíèe áecïoëeçío!
btn camworld, ïoëoæèòü opyæèe
btn camdead, âûcòpeëèòü
end

:camdead
pln ===| |=========================
pln Äæeéìc âûcòpeëèë â oäíoão èç ïoëèöeécêèx è paíèë eão â ïëe÷o.
Pln Bòopoé ïoëèöeécêèé äocòaë äpoáoâèê...
pistol=pistol-1
pause 3000
pln
Pln È âûcòpeëèë Äæeéìcy â ãoëoây...
pln ===| |=========================
pause 3000
goto death1
end

:vitent
pln ===| |=========================
pln Äæeéìc âûcòpeëèë â còeêëo âèòpèíû...
pistol=pistol-1
pause 2500
pln
pln B còeêëe âèòpèíû oápaçoâaëcÿ ïpoxoä.
pause 2500
pln
pln Äæeéìc ycëûøaë çâyê cèpeíû, ýòo ïoëèöèÿ, íyæío yáeæaòü ía âpeìÿ.
pln ===| |=========================
btn perekr, yáeæaòü
vitrin=1
but=1
end

:entweapshop
pln ===| |=========================
pln Äâepü çaêpûòa, íeêoòopûe ìecòa äaæe çaïaÿíû. Boçëe äâepè, ía còeíe âècèò cèãíaëèçaöèÿ.
pln ===| |=========================
if sign=1 then btn srsign, cpeçaòü ïpoâoäa cèãíaëèçaöèè
btn weapshop, oòoéòè
end

:srsign
pln ===| |=========================
pln Äæeéìc cpeçaë ïpoâoäa cèãíaëèçaöèè...
pln ===| |=========================
btn weapshop, oòoéòè
sign=0
end

:entvitrin
if entvt=1 then goto entvitrin2
pln ===| |=========================
pln Äæeéìc çaøeë â ìaãaçèí ÷epeç paçáèòyþ âèòpèíy.
Pln Çäaíèe oápocëo ïayòèíoé, èç-ça ôoíapeé ía yëèöe, â çäaíèè âce âèäío.
Pln Çäecü còoÿò êaêèe-òo ÿùèêè, ía oäíoì èç íèx ëeæaë òecaê <íoæ c áoëüøèì, øèpoêèì ëeçâèeì, ïpeäíaçía÷eí äëÿ pyáêè ìÿca>
Pln Äæeéìc êoíe÷ío-æe âçÿë eão ceáe.
Pln Ha còeíe âèceë íeáoëüøoé ëècò, òaì ÷òo-òo íaïècaío.
pln ===| |=========================
entvt=1
if prdoc=0 then btn readdoc, ïpo÷èòaòü
btn weapshop, âûéòè èç ìaãaçèía
inv+ {{ òecaê }}
end

:entvitrin2
pln ===| |=========================
pln Çäaíèe oápocëo ïayòèíoé, ía ïoëy còoÿò êaêèe-òo ÿùèêè.
Pln Ha còeíe âècèò íeáoëüøoé ëècò, òaì ÷òo-òo íaïècaío.
pln ===| |=========================
if prdoc=0 then btn readdoc, ïpo÷èòaòü
btn weapshop, âûéòè èç ìaãaçèía
end

:use_{{ òecaê }}_ècïoëüçoâaòü
weapon=4
pln Äæeéìc âçÿë òecaê
end

:readdoc
pln ===| |=========================
pln Çaâòpa áyäeò äocòaâêa òoâapa èç Koëyìáèè.
Pln Mû äoëæíû ïpèíÿòü òoâap, ïpoâepèòü è oòâeçòè ía áaçy.
Pln Ceãoäíÿ ê íaì ïpèxoäèëè êoïû, oíè yçíaëè ïpo òoâap.
Pln Taê ÷òo yxoäèòe è çaêpûâaéòe ìaãaçèí èëè âac íaêpoeò íapÿä ïoëèöèè.
 #$ #$ #$ #$ #$ #$ #$ #$ #$ #$ #$ #$ #$ #$ #$ #$ #$ #$ #$ #$ Áýí.
pln ===| |=========================
pause 11000
pln
pln (Oïÿòü ýòoò Áýí, oí æe xoòeë yáèòü ìeíÿ. Èíòepecòío, êaêoe opyæèe oí äëÿ ìeíÿ âûápaë?)
btn weapshop, âûéòè èç ìaãaçèía
prdoc=1
end

:weapshopc
pln ===| |=========================
pln Maãaçèí c paçáèòoé âèòpèíoé.
pln ===| |=========================
btn entweapshop, ïoäoéòè ê äâepè
if weapon=1 and sign=1 and gworld=0 and cop=0 and but=0  then btn copyes, còpeëÿòü ïo âèòpèíe
if weapon=1 and sign=0 and gworld=0 and but=0 then btn vitent, còpeëÿòü ïo âèòpèíe
if vitrin=1 then btn entvitrin, çaéòè ÷epeç âèòpèíy
if cop=1 then btn entvitrin, çaéòè ÷epeç âèòpèíy
btn begstreet, íaçaä ía yëèöy
end


:gohome
domop=0
ôoí=0
Style_BackColor=0
Style_TextColor=256*255*256+255*256+255

if dvhome=1 then goto dvhome
pln ===| |=========================
pln Äæeéìc çaøeë âo äâop ocoáíÿêa, ïepâoe, ÷òo ápocaeòcÿ â ãëaça, ýòo áoëüøoé, äeêopaòèâíûé ôoíòaí.
Pln Paíüøe, êoãäa ïpèxoäèëè ãocòè, oíè êèäaëè â ôoíòaí ìoíeòêy ía c÷acòüe.
pln ===| |=========================
btn gohomedv, ïoäoéòè ê äoìy
btn gofontan, ïoäoéòè ê ôoíòaíy
btn grstreet, èäòè ía yëèöy
dvhome=1
end

:dvhome
pln ===| |=========================
pln Heáoëüøoé äâop, â öeíòpe còoèò áoëüøoé, äeêopaòèâíûé ôoíòaí.
pln ===| |=========================
btn gohomedv, ïoäoéòè ê äoìy
btn gofontan, ïoäoéòè ê ôoíòaíy
btn grstreet, èäòè ía yëèöy
end

:gofontan
pln ===| |=========================
pln Äæeéìc ïoäoøeë ê ôoíòaíy
pln ===| |=========================
btn gohome, oòoéòè
if ìoíeòa then btn kinmon, êèíyòü ìoíeòy
btn naimon, íaéòè ìoíeòy
end

:kinmon
pln ===| |=========================
pln Äæeéìc äocòaë ìoíeòy è êèíyë ee â ôoíòaí, ía c÷acòüe.
pln ===| |=========================
btn gohome, oòoéòè
inv- 1 ìoíeòa
ìoíeòa=ìoíeòa-1
end

:naimon
if ìoíeòa=100 then goto naimon3

monr=rnd*25
if monr>19 then goto naimon2


cls
pln ===| |=========================
pln Äæeéìc çacyíyë pyêy â ôoíòaí, ío íè÷eão íe íaøeë.
pln ===| |=========================
btn naimon, ècêaòü eùe
btn gohome, oòoéòè
end

:naimon2
cls
pln ===| |=========================
pln Äæeéìc çacyíyë pyêy â ôoíòaí è íaøeë oäíy ìoíeòy.
pln ===| |=========================
inv+ 1 ìoíeòa
ìoíeòa=ìoíeòa+1
btn naimon, ècêaòü eùe
btn gohome, oòoéòè
end

:gohomedv
if gohmdv=1 then goto gohomedv2
pln ===| |=========================
pln Äæeéìc ïoäoøeë ê äoìy, pÿäoì c äoìoì ecòü ãapaæ, paíüøe â ãapaæe còoÿë cepûé Äæèï Äæeéìca, ceé÷ac aâòoìoáèëü â ïoëèöeécêoì y÷acòêe, ía øòpaô-còoÿíêe
pln ===| |=========================
btn gohomeop, çaéòè â äoì
btn gogar, çaéòè â ãapaæ
btn gohome, èäòè âo äâop
gohmdv=1
end

:gohomedv2
pln ===| |=========================
pln Äoì Äæeéìca, pÿäoì íeáoëüøoé ãapaæ.
pln ===| |=========================
btn gohomeop, çaéòè â äoì
btn gogar, çaéòè â ãapaæ
btn gohome, èäòè âo äâop
end

:gogar
if pitgroun=1 and demon=0 then btn vzlop, âçÿòü ëoïaòy
if pitgroun=2 then btn vzkan, âçÿòü êaíècòpy áeíçèía
if gordj=1 then goto gogar2
pln ===| |=========================
pln Äæeéìc çaøeë â ãapaæ, paíüøe çäecü còoÿë aâòoìoáèëü Äæeéìca.
pln ===| |=========================
btn gohome, âûéòè èç ãapaæa
gordj=1
if not êyca÷êè then inv+ êyca÷êè
end

:gogar2

pln ===| |=========================
pln Ãapaæ Äæeéìca
pln ===| |=========================
btn gohome, âûéòè èç ãapaæa
if not êyca÷êè then inv+ êyca÷êè
end

:vzlop
pln ===| |=========================
pln Äæeéìc âçÿë ëoïaòy
pln ===| |=========================
inv+ ëoïaòa
btn gogar, íaçaä
demon=3
end

:vzkan
pln ===| |=========================
pln Äæeéìc âçÿë êaíècòpy c áeíçèíoì
pln ===| |=========================
inv+ êaíècòpa áeíçèía
btn gogar, íaçaä
pitgroun=3
end

:naimon3
pln ===| |=========================
pln Äæeéìc íaápaë 100 ìoíeò = 1 äoëëap
pln ===| |=========================
invkill 1 ìoíeòa
ìoíeòa=0
money=money+1
btn gohome, íaçaä
end

:1
end


:use_{{ ôoíapèê }}_âêëþ÷èòü

if domop=0 then pln Heò íeoáxoäèìocòè eão âêëþ÷aòü & goto 1

if domop=1 and ôoí=0 then pln Äæeéìc âêëþ÷èë ôoíapèê
if domop=1 and ôoí=1 then pln oí è òaê âêëþ÷eí
ôoí=1
Style_TextColor=256*0*256+185*256+185
Style_BackColor=0
end

:2
end

:use_{{ ôoíapèê }}_âûêëþ÷èòü
if domop=0 and ôoí=0 then pln oí è òaê âûêëþ÷eí & goto 2
if domop=1 and ôoí=0 then pln oí è òaê âûêëþ÷eí 
if domop=1 and ôoí=1 then pln Äæeéìc âûêëþ÷èë ôoíapèê 
ôoí=0
Style_TextColor=256*20*256+20*256+20
Style_BackColor=0
end

:3
Style_TextColor=256*255*256+255*256+255
Style_BackColor=0
domop=0
end

:33
Style_TextColor=256*20*256+20*256+20
Style_BackColor=0
domop=1
end
:gohomeop
if rubdom=0 and ôoí=0 then proc 33
if rubdom=1 then proc 3

if domopk=1 then goto gohomeop2
pln ===| |=========================
pln Äæeéìc çaøeë â äoì, âïepeäè èäeò âxoä ía ïepâûé ýòaæ.
Pln Cïpaâa êoìíaòa, òaì áacceéí.
pln ===| |=========================
btn gobass, èäòè â áacceéí
btn 1hfloor, èäòè ía 1 ýòaæ
btn gohome, âûéòè âo äâop
domopk=1
end

:gohomeop2
pln ===| |=========================
pln Äoì Äæeéìca, âïepeäè èäeò âxoä ía ïepâûé ýòaæ.
Pln Cïpaâa êoìíaòa, òaì áacceéí.
pln ===| |=========================
btn gobass, èäòè â áacceéí
btn 1hfloor, èäòè ía 1 ýòaæ
btn gohome, âûéòè âo äâop
end
 
:gobass
cls
if electro=0 then goto gobass2
if electro=1 then
pln ===| |=========================
pln Oáû÷íûé áacceéí, ía caìoì äíe âèäíeeòcÿ êaêoé-òo ïpeäìeò.
Pln C äaëüíeão yãëa âèäío, ÷òo â caìoé âoäe ëeæèò ïpoâoä, oí ècêpèò.
pln ===| |=========================
btn gowater, çaéòè â âoäy
btn gohomeop2, èäòè â êopèäop
end

:gowater
if health<0 then goto death1
if electro=0 then goto gowater2
if electro=1 then
pln ===| |=========================
pln Äæeéìc çaøeë â âoäy, eão yäapèëo òoêoì è oí caì íe çaìeòèë êaê eão oòápocèëo íaçaä.
pln ===| |=========================
health=health-rnd*30+1
pause 3500
goto gobass
end

:gobass2
pln ===| |=========================
pln Oáû÷íûé áacceéí
pln ===| |=========================
btn gowater, çaéòè â âoäy
btn gohomeop2, èäòè â êopèäop
end

:gowater2
if gbass=2 then goto gowater3
pln ===| |=========================
pln Ha äíe ëeæaëa oäía cepeápÿíaÿ ìoíeòa.
Pln È êopoáo÷êa, â êopoáêe áûë êëþ÷, Äæeéìc çíaë, ýòo áûë êëþ÷ oò ïoäâaëa.
pln ===| |=========================
inv+ cepeápÿíaÿ ìoíeòa
inv+ êëþ÷ oò ïoäâaëa
gbass=2
btn gobass, âûéòè èç âoäû
end

:gowater3
pln ===| |=========================
pln Ha äíe íè÷eão íeò.
pln ===| |=========================
btn gobass, âûéòè èç âoäû
end


;###########################
:1hfloor
if 1hfloor1=1 then goto 1hflooor
pln ===| |=========================
pln Ýòo ïepâûé ýòaæ ocoáíÿêa. Cïpaâa íaxoäèòcÿ xoëë, cëeâa ãocòeâaÿ êoìíaòa, âïepeäè íaxoäÿòcÿ âaííaÿ êoìíaòa è êyxíÿ, ÷yòü áëèæe ecòü âèííûé ïoãpeá è ïoäâaë.
pln ===| |=========================
btn goholl, èäòè â xoëë
btn gogroom, èäòè â ãocòeâyþ
btn golroom, èäòè â âaííyþ
btn gokiroom, èäòè ía êyxíþ
btn govinpog, èäòè â âèííûé ïoãpeá
btn gopodv, èäòè â ïoäâaë
btn 2hfloor, ïoäíÿòücÿ ía 2 ýòaæ
btn gohomeop, íaçaä â êopèäop
1hfloor1=1
end

:1hflooor
pln ===| |=========================
pln 1 ýòaæ
pln ===| |=========================
btn goholl, èäòè â xoëë
btn gogroom, èäòè â ãocòeâyþ
btn golroom, èäòè â âaííyþ
btn gokiroom, èäòè ía êyxíþ
btn govinpog, èäòè â âèííûé ïoãpeá
btn gopodv, èäòè â ïoäâaë
btn 2hfloor, ïoäíÿòücÿ ía 2 ýòaæ
btn gohomeop, íaçaä â êopèäop
end
;###########################
:goholl
if gworld=0 and ghol=0 then goto gworld1
if gholl=1 then goto goholl2
pln ===| |=========================
pln Äæeéìc çaøeë â xoëë, çäecü còoÿò øèêapíûe äèâaíû è êpecëa, ía còeíax âècÿò êapòèíû, â öeíòpe âo âceé êpace còoèò òeëeâèçop c áoëüøèì ýêpaíoì.
Pln Bäaëè íaxoäèòcÿ êaìèí.
Pln Cïpaâa cïaëüíÿ äëÿ ãocòeé, cëeâa êoìíaòa/cïaëüíÿ Äæeéìca.
pln ===| |=========================
btn gobedroomg, èäòè â cïaëüíþ äëÿ ãocòeé
btn gobedroomd, èäòè â cïaëüíþ Äæeéìca
btn gokamin, ïoäoéòè ê êaìèíy
btn vkltvs, âêëþ÷èòü òeëeâèçop
btn 1hfloor, âûéòè
gholl=1
end

:goholl2
pln ===| |=========================
pln Xoëë
pln ===| |=========================
btn gobedroomg, èäòè â cïaëüíþ äëÿ ãocòeé
btn gobedroomd, èäòè â cïaëüíþ Äæeéìca
btn gokamin, ïoäoéòè ê êaìèíy
btn vkltvs, âêëþ÷èòü òeëeâèçop
btn 1hfloor, âûéòè
end
;###########################
:vkltvs
if rubdom=1 then goto vkltvs2
pln ===| |=========================
pln Kaê ìoæeò òeëeâèçop paáoòaòü áeç câeòa?
pln ===| |=========================
btn goholl, íaçaä
end

:vkltvs2
if novtv=1 then goto vkltvs3
pln ===| |=========================
pln Ïo òeëeâèçopy ïoêaçûâaëè íoâocòè.
Pln Äæeéìc yâèäeë cúeìêy ïpÿìo ía òoì ìecòe, ãäe oí ïûòaëcÿ ápocèòücÿ ïoä ïoeçä.
Pln
Pln - Kaê âû äyìaeòe, òoò ÷eëoâeê, êoòopûé ápocèëcÿ ïoä ïoeçä ïapy ìecÿöeâ íaçaä, áûë áoëeí?
Pln - ß äyìaþ äa, òo÷íee ÿ yâepÿþ âac, oí áûë ïcèxè÷ecêè áoëeí. Ho ceé÷ac oí íaxoäèòcÿ â ïcèxèaòpè÷ecêoé ëe÷eáíèöe N8.
Pln - A paçâe ee íe çaêpûëè?
Pln - Äa íeò, ïpocòo òaì áûë ïoæap è âcex áoëüíûx âpeìeíío ïepeâeëè â äpyãyþ ëe÷eáíèöy.
Pln - Cêaæèòe, a ýòoò Äæeéìc Poyä, oí òoæe â äpyãoé ëe÷eáíèöe?
Pln - Koíe÷ío, âce ïoä êoíòpoëeì!
Pln - Ecòü íaäeæäa, ÷òo oí ïoïpaâèòücÿ è eão âûïycòÿò?
Pln - Heò è eùe paç íeò!
Pln - Cïacèáo âaì, âceão xopoøeão!
pln ===| |=========================
Pln
pause 5000
pln (Çía÷èò, ÿ íaxoæycü â äpyãoé ëe÷eáíèöe...
Pln Xì.. Koìy-òo íyæío cêpûòü ãäe ÿ, ïo÷eìy oí íe cêaçaë, ÷òo ÿ cáeæaë?
Pln Èëè, áûòü ìoæeò y ìeíÿ ecòü äâoéíèê?)
btn goholl, íaçaä
novtv=1
end

:vkltvs3
pln ===| |=========================
pln Ceé÷ac íe caìoe âpeìÿ cìoòpeòü òeëeâèçop.
pln ===| |=========================
btn goholl, íaçaä
end
;###########################


;###########################
:gobedroomg
pln ===| |=========================
pln  Äâepü çaêpûòa...
pln ===| |=========================
btn goholl, íaçaä
end

:gobedroomd
pln ===| |=========================
pln Cïaëüíÿ äæeéìca, çäecü còoèò êoìïüþòep, pÿäoì íeâûcoêaÿ òyìáo÷êa. Pÿäoì c òyìáo÷êoé còoèò êpoâaòü.
pln ===| |=========================
btn compdj, ïoäoéòè ê êoìïüþòepy
btn otktumb, oòêpûòü òyìáo÷êy
btn goholl, âûéòè èç cïaëüíè
end

:otktumb
if tumbot=1 then goto otktumb2 
pln ===| |=========================
pln Tyìáo÷êa ïycòa...
pln ===| |=========================
btn gobedroomd, çaêpûòü òyìáo÷êy
end

:otktumb2
pln ===| |=========================
pln Äæeéìc oòêpûë òyìáo÷êy, çäecü ëeæaë eão êoøeëeê, â íeì áûëo 550 äoëëapoâ. Taêæe òaì còoÿëè ÷acû, ía íèx yæe áûëo 00:37. 
pln ===| |=========================
money=money+550
dark=1
btn gobedroomd, çaêpûòü òyìáo÷êy
tumbot=0
end

:compdj
if rubdom=0 then goto compdj2
cls
pln ===| |=========================
Çaãpyçêa äaííûx
Pln pln ===| |=========================
pause 300
cls
pln ===| |=========================
Pln Çaãpyçêa äaííûx.
pln ===| |=========================
pause 300
cls
pln ===| |=========================
Pln Çaãpyçêa äaííûx..
pln ===| |=========================
Pause 300
cls
pln ===| |=========================
Pln Çaãpyçêa äaííûx...
pln ===| |=========================
Pause 300
cls
pln ===| |=========================
pln Çaãpyçêa äaííûx....
pln ===| |=========================
Pause 300
cls
pln ===| |=========================
pln Çaãpyçêa äaííûx.....
pln ===| |=========================
Pause 300
cls
pln ===| |=========================
pln Çaãpyçêa äaííûx......
pln ===| |=========================
Pause 500
cls
pln ===| |=========================
pln Çaãpyçêa äaííûx.......
pln ===| |=========================
Pause 500
cls
pln ===| |=========================
pln Çaãpyçêa äaííûx........
pln ===| |=========================
Pause 500
goto compentdj
end

:compdj2
pln ===| |=========================
pln Áeç câeòa êoìïüþòep paáoòaòü íe áyäeò.
pln ===| |=========================
[Ýòo êâecò, a íe èãpa ïpo âoëøeácòâo è âoëøeáíèêoâ!]
btn gobedroomd, íaçaä
end

:compentdj
cls
pln ===| |=========================
pln Äoápo ïoæaëoâaòü â cècòeìy, ìècòep Äæeéìc Poyä!
pln ===| |=========================
if äècê then btn vstinfdisk, âcòaâèòü äècê
if ÷èï then btn uznksch, ïpoâepèòü ÷èï
btn gobedroomd, âûéòè
btn gos, coxpaíèòü
end

;###########################

;###########################
:gokamin
if fire=1 then goto gokamin2
pln ===| |=========================
pln B êaìèíe íeò oãíÿ, íyæío ÷eì-òo çaæe÷ü eão.
pln ===| |=========================
if cïè÷êè and cïè÷êè1=0 then btn zajfire, çaæe÷ü oãoíü
if fire=1 and êo÷epãa then btn dostug, äocòaòü yãoëü
btn goholl, oòoéòè
end

:gokamin2
pln ===| |=========================
pln Oáû÷íûé êaìèí, çäecü yæe paçãopaþòcÿ äpoâa, cêopo ïoÿâèòcÿ yãoëü.
pln ===| |=========================
if cïè÷êè and cïè÷êè1=0 then btn zajfire, çaæe÷ü oãoíü
if fire=1 and êo÷epãa then btn dostug, äocòaòü yãoëü
btn goholl, oòoéòè
end

:zajfire
pln ===| |=========================
pln Äæeéìc çaæeã â êaìèíe oãoíü, còaëo íeìíoão òeïëee.
pln ===| |=========================
fire=1
cïè÷êè1=1
btn gokamin, íaçaä
end

:dostug
pln ===| |=========================
pln Äæeéìc äocòaë èç êaìèía êo÷epãoé, ÷epíûé êycoê yãëÿ.
pln ===| |=========================
inv+ yãoëü
btn gokamin, íaçaä
end
;###########################


;###########################
:gogroom

if gogr=1 then goto gogroom2
pln ===| |=========================
pln Ãocòeâaÿ êoìíaòa èëè êoìíaòa äëÿ ãocòeé. Kòo ocòaeòcÿ çäecü ía ío÷ëeã, òe çaíèìaþò cïaëüíûe êoìíaòû.
Pln Oíè ìoãyò paçâëe÷ücÿ èãpaÿ â áèëüÿpä.
Pln B ãocòeâoé ecòü 4 cïaëüíè.
Pln B öeíòpe còoèò áèëüÿpäíûé còoë.
Pln Boçëe còeíû íaxoäÿòcÿ ÷epíûe êoæaíûe äèâaíû.
pln ===| |=========================
btn broom1, èäòè â cïaëüíþ 1
btn broom2, èäòè â cïaëüíþ 2
btn broom3, èäòè â cïaëüíþ 3
btn broom4, èäòè â cïaëüíþ 4
btn 1hfloor, âûéòè
gogr=1
end

:gogroom2
pln ===| |=========================
pln Ãocòeâaÿ êoìíaòa
pln ===| |=========================
btn broom1, èäòè â cïaëüíþ 1
btn broom2, èäòè â cïaëüíþ 2
btn broom3, èäòè â cïaëüíþ 3
btn broom4, èäòè â cïaëüíþ 4
btn 1hfloor, âûéòè
end

:broom1
pln ===| |=========================
pln Äâepü çaêpûòa...
pln ===| |=========================
btn gogroom, íaçaä
end

:broom2
pln ===| |=========================
pln Äâepü çaêpûòa...
pln ===| |=========================
btn gogroom, íaçaä
end

:broom3
if pnk=2 then goto rbroom3
if pnk=0 then
cls
pln ===| |=========================
pln Äâepü çaêpûòa...
pln ===| |=========================
btn gogroom, íaçaä
end

:broom4
if brm4=1 then goto brooom4
if osmsum=1 then goto osmsumka2
pln ===| |=========================
pln Äæeéìc çaøeë â êoìíaòy, ía êpoâaòe ëeæaëa ÷epíaÿ, cïopòèâíaÿ cyìêa.
Pln (Haâepíoe êòo-òo çaáûë èç ãocòeé.)
pln ===| |=========================
btn osmsumka, ocìoòpeòü cyìêy
btn gogroom, âûéòè
brm4=1
end

:brooom4
if osmsum=1 then goto osmsumka2
pln ===| |=========================
pln Oáû÷íaÿ cïaëüíaÿ êoìíaòa, ía êpoâaòe ëeæèò ÷epíaÿ, cïopòèâíaÿ cyìêa.
pln ===| |=========================
btn osmsumka, ocìoòpeòü cyìêy
btn gogroom, âûéòè
end

:osmsumka2
pln ===| |=========================
pln B ýòoé êoìíaòe íeò íè÷eão ocoáeííoão.
pln ===| |=========================
btn gogroom, âûéòè
end

:osmsumka
pln ===| |=========================
pln B cyìêe ëeæaë ÷eé-òo äíeâíèê è 20 äoëëapoâ.
pln ===| |=========================
inv+ {{ äíeâíèê íeèçâecòíoão }}
money=money+20
osmsum=1
btn gogroom, âûéòè
end

:use_{{ äíeâíèê íeèçâecòíoão_Oáëoæêa }}
pln Ha oáëoæêe íapècoâaía ïepeïëeòeííaÿ çìeÿ, â öeíòpe ëeæèò êpacíûé pyáèí. (äpaãoöeííûé êaìeíü)
end

:use_{{ äíeâíèê íeèçâecòíoão }}_Ïpo÷èòaòü
pln ++++++++++++++++++++++++++++++++++
pln Äeíü ïepâûé:
pln Ceãoäíÿ ÿ ïoçíaêoìèëcÿ c ìècòepoì Pèêêè Tayýpíoì. Oí o÷eíü xopoøèé ÷eëoâeê, ÿ yçíaë, ÷òo â äoìe ãäe ÿ oáèòaþ æèâeò íe÷ècòü.
pln ß peøèë ýòo ïpoâepèòü, peçyëüòaò áûë íyëeâûì.
Pln Hèêoão ÿ íe yâèäeë, çía÷èò ýòo áûëa ôaíòaçèÿ ìècòepa Tayýpía.
Pln Ça ýòo âpeìÿ íè÷eão íe ïpoèçoøëo.
pln ++++++++++++++++++++++++++++++++++
pln Äeíü âòopoé:
pln Ýòoò äoì ìeíÿ xo÷eò câecòè c yìa.
Pln Mècòep Pèêêè áûë ïpaâ, â ýòoì äoìe, äeécòâèòeëüío ÷òo-òo ecòü.
Pln Ïoäâaë êèøèò íeãaòèâíoé ýíepãèeé, ía ÷epäaêe ïocòoÿíío cëûøíû còyêè è äaæe øaãè.
Pln Hyæío ÷òo-òo äeëaòü.
pln ++++++++++++++++++++++++++++++++++
pln Äeíü òpeòèé:
Pln B÷epa ÿ âèäeë æèâoé òpyï ÷eëoâeêa â câoeì äoìe. ß âcþ ío÷ü íe cìoã çacíyòü èç-ça ãpoxoòa ía ÷epäaêe.
Pln ß äyìaþ çäecü íeëüçÿ æèòü, ÿ yeçæaþ, â ýòoò äoì ïepeeäeò íoâûé æèòeëü.
Pln Ýòo Äæeéìc, èìeíío oí cþäa ïepeeäeò.
Pln Äæeéìc, ecëè òû ÷èòaeøü ýòoò äíeâíèê, yáeãaé, yxoäè èç ýòoão äoìa, íe ocòaâaécÿ íaeäèíe c òèøèíoé. È íe â êoeì cëy÷ae íe xoäè ía ÷epäaê è â ïoäâaë...
#$ #$ #$ #$ #$ #$ #$ #$ #$ #$ #$ #$ #$ #$ #$ #$ #$ #$ #$ Áýí Poyä.
;###########################
:gogroom

if gogr=1 then goto gogroom2
pln ===| |=========================
pln Ãocòeâaÿ êoìíaòa èëè êoìíaòa äëÿ ãocòeé. Kòo ocòaeòcÿ çäecü ía ío÷ëeã, òe çaíèìaþò cïaëüíûe êoìíaòû.
Pln Oíè ìoãyò poçâëe÷ücÿ èãpaÿ â áèëüÿpä.
Pln B ãocòeâoé ecòü 4 cïaëüíè.
Pln B öeíòpe còoèò áèëüÿpäíûé còoë.
Pln Boçëe còeíû íaxoäÿòcÿ ÷epíûe êoæaíûe äèâaíû.
pln ===| |=========================
btn broom1, èäòè â cïaëüíþ 1
btn broom2, èäòè â cïaëüíþ 2
btn broom3, èäòè â cïaëüíþ 3
btn broom4, èäòè â cïaëüíþ 4
btn 1hfloor, âûéòè
gogr=1
end

:gogroom2
pln ===| |=========================
pln Ãocòeâaÿ êoìíaòa
pln ===| |=========================
btn broom1, èäòè â cïaëüíþ 1
btn broom2, èäòè â cïaëüíþ 2
btn broom3, èäòè â cïaëüíþ 3
btn broom4, èäòè â cïaëüíþ 4
btn 1hfloor, âûéòè
end

:broom1
pln ===| |=========================
pln Äâepü çaêpûòa...
pln ===| |=========================
btn gogroom, íaçaä
end

:broom2
pln ===| |=========================
pln Äâepü çaêpûòa...
pln ===| |=========================
btn gogroom, íaçaä
end

:broom3
if pnk=2 then goto rbroom3
pln ===| |=========================
pln Äâepü çaêpûòa...
pln ===| |=========================
btn gogroom, íaçaä
end

:broom4
if brm4=1 then goto brooom4
if osmsum=1 then goto osmsumka2
pln ===| |=========================
pln Äæeéìc çaøeë â êoìíaòy, ía êpoâaòe ëeæaëa ÷epíaÿ, cïopòèâíaÿ cyìêa.
Pln (Haâepíoe êòo-òo çaáûë èç ãocòeé.)
pln ===| |=========================
btn osmsumka, ocìoòpeòü cyìêy
btn gogroom, âûéòè
brm4=1
end

:brooom4
if osmsum=1 then goto osmsumka2
pln ===| |=========================
pln Oáû÷íaÿ cïaëüíaÿ êoìíaòa, ía êpoâaòe ëeæèò ÷epíaÿ, cïopòèâíaÿ cyìêa.
pln ===| |=========================
btn osmsumka, ocìoòpeòü cyìêy
btn gogroom, âûéòè
end

:osmsumka2
pln ===| |=========================
pln B ýòoé êoìíaòe íeò íè÷eão ocoáeííoão.
pln ===| |=========================
btn gogroom, âûéòè
end

:osmsumka
pln ===| |=========================
pln B cyìêe ëeæaë ÷eé-òo äíeâíèê è 20 äoëëapoâ.
pln ===| |=========================
inv+ {{ äíeâíèê íeèçâecòíoão }}
money=money+20
osmsum=1
btn gogroom, âûéòè
end

:use_{{ äíeâíèê íeèçâecòíoão }}_Oáëoæêa
pln Ha oáëoæêe íapècoâaía ïepeïëeòeííaÿ çìeÿ, â öeíòpe ëeæèò êpacíûé pyáèí. (äpaãoöeííûé êaìeíü)
end

:use_{{ äíeâíèê íeèçâecòíoão }}_Ïpo÷èòaòü
pln +++++++++++++++++++++++++++++
pln Äeíü ïepâûé:
pln Ceãoäíÿ ÿ ïoçíaêoìèëcÿ c ìècòepoì Pèêêè Tayýpíoì. Oí o÷eíü xopoøèé ÷eëoâeê, ÿ yçíaë, ÷òo â äoìe ãäe ÿ oáèòaþ æèâeò íe÷ècòü.
pln ß peøèë ýòo ïpoâepèòü, peçyëüòaò áûë íyëeâûì.
Pln Hèêoão ÿ íe yâèäeë, çía÷èò ýòo áûëa ôaíòaçèÿ ìècòepa Tayýpía.
Pln Ça ýòo âpeìÿ íè÷eão íe ïpoèçoøëo.
pln +++++++++++++++++++++++++++++
pln Äeíü âòopoé:
pln Ýòoò äoì ìeíÿ xo÷eò câecòè c yìa.
Pln Mècòep Pèêêè áûë ïpaâ, â ýòoì äoìe, äeécòâèòeëüío ÷òo-òo ecòü.
Pln Ïoäâaë êèøèò íeãaòèâíoé ýíepãèeé, ía ÷epäaêe ïocòoÿíío cëûøíû còyêè è äaæe øaãè.
Pln Hyæío ÷òo-òo äeëaòü.
pln +++++++++++++++++++++++++++++
pln Äeíü òpeòèé:
Pln B÷epa ÿ âèäeë æèâoé òpyï ÷eëoâeêa â câoeì äoìe. ß âcþ ío÷ü íe cìoã çacíyòü èç-ça ãpoxoòa ía ÷epäaêe.
Pln ß äyìaþ çäecü íeëüçÿ æèòü, ÿ yeçæaþ, â ýòoò äoì ïepeeäeò íoâûé æèòeëü.
Pln Ýòo Äæeéìc, èìeíío oí cþäa ïepeeäeò.
Pln Äæeéìc, ecëè òû ÷èòaeøü ýòoò äíeâíèê, yáeãaé, yxoäè èç ýòoão äoìa, íe ocòaâaécÿ íaeäèíe c òèøèíoé. È íe â êoeì cëy÷ae íe xoäè ía ÷epäaê è â ïoäâaë...
#$ #$ #$ #$ #$ #$ #$ #$ #$ #$ #$ #$ #$ #$ #$ #$ Áýpíè Poyä.

pln +++++++++++++++++++++++++++++
end

;###########################
:golroom

if blroom=1 then goto golroom2
pln ===| |=========================
pln Äæeéìc çaøeë â âaííyþ, çäecü còoèò òpeyãoëüíaÿ âaííaÿ caëaòíeâoão öâeòa, äyø, oòäeëüío íaxoäÿòcÿ yíèòaç è yìûâaëüíèê.
pln ===| |=========================
btn podkum, ïoäoéòè ê yìûâaëüíèêy
btn 1hfloor, âûéòè
blroom=1
end

:golroom2
pln ===| |=========================
pln Baííaÿ êoìíaòa
pln ===| |=========================
btn podkum, ïoäoéòè ê yìûâaëüíèêy
btn 1hfloor, âûéòè
end

:podkum
if vpvz=1 then goto podkum2
pln ===| |=========================
pln Äæeéìc ïoäoøeë ê yìûâaëüíèêy, âaííyþ ocâeùaë òycêëûé câeò ôoíapeé c yëèöû.
Pln Ïapeíü âêëþ÷èë âoäy, ÷òoá yìûòücÿ.
Pause 3000
pln Kaê âäpyã oí peçêo oòcêo÷èë íaçaä, èç êpaía âûëèâaëacü áaãpoâaÿ êpoâü, çaìecòo oáû÷íoé âoäû.
Pln B çepêaëe Äæeéìc yâèäeë cèëyýò ïapíÿ c oòpyáëeííoé ãoëoâoé, ãoëoây oí äepæaë â pyêe
pln ===| |=========================
pnk=1
vpvz=1
pause 9000
goto vbroom3
end

:podkum2
pln ===| |=========================
pln Çäecü íeò íè÷eão ocoáeííoão.
pln ===| |=========================
btn golroom, oòoéòè
end

:vbroom3
cls
pln ===| |=========================
pln - ×òo co ìíoé?
Pause 2000
Pln - ×òo ïpoèçoøëo?
Pause 2000
pln
Pln Äæeéìc ëeæaë ía êpoâaòe â òeìíoé êoìíaòe, y íeão cèëüío áoëeëa ãoëoâa, êoãäa oí ocìoòpeë êoìíaòy, âce còeíû áûëè â êpoâè. Ha ïoëy òoæe áûëè ïÿòía çacoxøeé êpoâè.
pln ===| |=========================
btn gogroom, âûéòè
pnk=2
end

:rbroom3
cls
pln ===| |=========================
pln B ýòoé êoìíaòe âèäèìo áûëo yáèécòâo, âce còeíû è ïoë çaëÿïaíû êpoâüþ.
pln ===| |=========================
btn gogroom, âûéòè
end

;###########################
:gokiroom
if gworld=0 and gunkir=0 then goto gworld2
if gunkir=1 then goto gokiroom2
pln ===| |=========================
pln Ýòo oáû÷íaÿ êyxíÿ, çäecü íaxoäèòcÿ o÷eíü ìíoão òyìáo÷eê, còoë co còyëüÿìè, xoëoäèëüíèê, ãaçoâaÿ ïe÷ü è êoòeë.
pln ===| |=========================
btn osmtumbki, ocìoòpeòü còoë
btn 1hfloor, âûéòè
gkir=1
end

:osmtumbki
if cïè÷êè then goto osmtumbki2
if not cïè÷êè then
pln ===| |=========================
pln Ha còoëe ëeæaò cïè÷êè, còoèò ïapy òapeëoê è còoèò ïeïeëüíèöa c oêypêaìè.
pln ===| |=========================
inv+ cïè÷êè
btn 1hfloor, âûéòè
end

:osmtumbki2
pln ===| |=========================
pln Ha còoëe còoèò ïapy òapeëoê è còoèò ïeïeëüíèöa c oêypêaìè.
pln ===| |=========================
btn 1hfloor, âûéòè
end

:gokiroom2
pln ===| |=========================
pln Kyxíÿ
pln ===| |=========================
btn osmtumbki, ocìoòpeòü còoë
btn 1hfloor, âûéòè
end
;###########################

;###########################
:govinpog
if govpog=1 then goto govinpog2
pln ===| |=========================
pln Bèííûé ïoãpeá
Pln Çäecü còoÿò áoëüøûe øêaôû, â íèx íaxoäèòcÿ oãpoìíoe êoëè÷ecòâo âèí. Ïpè÷eì paçíûx öâeòoâ è âêycoâ.
Pln Boçëe còeíû còoèò êo÷epãa.
pln ===| |=========================
inv+ êo÷epãa
btn 1hfloor, âûéòè
govpog=1
end

:govinpog2
pln ===| |=========================
pln Bèííûé ïoãpeá
pln ===| |=========================
btn 1hfloor, âûéòè
end
;###########################

;###########################
:gopodv
if êëþ÷ oò ïoäâaëa then goto gopodv2
if not êëþ÷ oò ïoäâaëa then 
pln ===| |=========================
pln Äâepü ïoäâaëa çaêpûòa...
pln ===| |=========================
btn 1hfloor, âûéòè
end

:gopodv2
if svvp=1 then Style_BackColor=0
Style_TextColor=256*255*256+255*256+255
cls
if pkz2=1 then goto podvpent
if ubband=1 and cïè÷êè and yãoëü and câe÷è and pkz2=0 and bvprp=0 then btn narpvpdj, íapècoâaòü ïeíòaãpaììy
if pkz2=1 then btn strpentvp, còepeòü ïeíòaãpaììy
if êaíècòpa áeíçèía and cïè÷êè  then btn podjpodv, ïoäæe÷ü ïoäâaë
pln ===| |=========================
pln Oáû÷íûé còapûé ïoäâaë, âäaëè èäeò êpoìeøíaÿ òüìa!
pln ===| |=========================
btn 1hfloor, âûéòè èç ïoäâaëa
svvp=0
end

:podjpodv
pln ===| |=========================
pln Äæeéìc oáëèë áeíçèíoì âecü ïoäâaë, è çaæeã cïè÷êy.
Pln
pause 2500
pln (Äa ïoäoxíeò æe çëo â ýòoì äoìe.
Pln Haâceãäa!!! Óìpè, Ïèòep Ãpoyí!!!)
pause 2500
pln
pln Äæeéìc êèíyë cïè÷êy ía ïoë, ïoäâaë çaãopeëcÿ, èço âcex còopoí áûëè cëûøíû yæacíûe êpèêè, èç còeí ápûçãaëa êpoâü, ïoòoëoê ía÷aë pyøèòücÿ, âeçäe áûë oãoíü...
btn vypvokno, âûïpûãíyòü â oêío
end

:vypvokno
pln ===| |=========================
pln Äæeéìc âûïpûãíyë â oêío è ïoáeæaë ê çaáopy.
Pln Äæeéìc ïepeëeç çaáop è oêaçaëcÿ ça äâopoì.
Pln Äoì ãopeë ÿpêèì ïëaìeíeì, êaçaëocü, ÷òo èç íeão âûëeòaþò â íeáo yìepøèe äyøè.
Pln Ïocòeïeíío äoì cïycêaëcÿ ê caìoé çeìëe, êaæäaÿ äpeâecèía â ýòoì äoìe ãopeëa è äaâaëa o ceáe çíaòü.
Pln Ïapeíü äoëão cìoòpeë ía òo, êaê äoãopaeò eão äoì, a c íèì è ïoë æèçíè, ïpoæèòoé â ýòoì äoìe.
Pln Haêoíeö âecü ýòoò êoøìap äëÿ Äæeéìca çaêoí÷èëcÿ.
Pause 3000
Pln Óæe íacòyïaëo yòpo, Äæeéìc è caì íe çaìeòèë, êaê ïpocòoÿë Çäecü äo caìoão yòpa. 
Pln Çaìecòo øèêapíoão, êpacèâoão ocoáíÿêa, ça äâopoì áûëè ëèøü oáãopeâøèe pyèíû.
Pln Teïepü êoãäa äoì yíè÷òoæeí, Ïèòep Ãpoyí áoëüøe íe âepíeòcÿ.
Pln Ho êòo çíaeò, ÷òo æe æäeò Äæeéìca äaëüøe.
Pln Áûòü ìoæeò ýòoò âecü yæac, ÿâëÿeòcÿ òoëüêo ía÷aëoì â eão æèçíè...
pln ===| |=========================
pln ===| |=========================
pln ===| |           _The End_
pln ===| |=========================
pln ===| |=========================
btn autor, KOHEÖ!!!
invkill
end

;###########################
:narpvpdj
pln ===| |=========================
pln Äæeéìc paccòaâèë câe÷è, çaæeã èx è ÷epíûì yãëeì íapècoâaë ïeíòaãpaììy.
pln ===| |=========================
btn przaklvpdv, ïpoèçíecòè çaêëèíaíèe
btn 1hfloor, âûéòè èç ïoäâaëa
pkz2=1
end


:strpentvp
pln ===| |=========================
pln Äæeéìc còep ïeíòaãpaììy co còeíû.
pln ===| |=========================
pkz2=0
btn 1hfloor, âûéòè èç ïoäâaëa
end

:podvpent
pln ===| |=========================
pln Oáû÷íûé ïoäâaë, ía còeíe íapècoâaía ïeíòaãpaììa, a ía ïoëy paccòaâëeíû câe÷è.
pln ===| |=========================
if bvprp=0 then btn przaklvpdv, ïpoèçíecòè çaêëèíaíèe
btn strpentvp, còepeòü ïeíòaãpaììy
btn 1hfloor, âûéòè èç ïoäâaëa
end
;###########################

;###########################
:przaklvpdv
pln ===| |=========================
input zakl2
if zakl2=Von de lamento intor gara then goto ww1
pln ===| |=========================
pln Hè÷eão íe ïpoèçoøëo...
pln ===| |=========================
btn przaklvpdv, ïpoèçíecòè çaêëèíaíèe
btn 1hfloor, âûéòè èç òyaëeòa
end

;###########################
:ww1
Style_BackColor=0
Style_TextColor=256*0*256+0*256+255
pln ===| |=========================
pln Äæeéìc ïoÿâèëcÿ ía yëèöe, pÿäoì áûë ïoëèöeécêèé y÷acòoê.
Pln Èç y÷acòêa âûxoäèë ìyæ÷èía â ïoëèöeécêoé ôopìe, oí ïpoxoäèë ìèìo y÷acòêa è caì íe çaìeòèë êaê y íeão èç êapìaía âûïaëè êëþ÷è, oíè yïaëè â ypíy, còoÿùyþ pÿäoì co çäaíèeì.
pln ===| |=========================
pause 20000
bvprp=1
klotpu=1
goto gopodv2
svvp=1
end

;###########################
:2hfloor
pln ===| |=========================
pln Ýòo âòopoé ýòaæ, çäecü ecòü òpeíaæepíaÿ êoìíaòa, êoìíaòa oòäûxa è ãapäepoáíaÿ.
pln ===| |=========================
btn gotrenaj, èäòè â òpeíaæepíyþ
btn rotd, èäòè â êoìíaòy oòäûxa
btn garder, èäòè â ãapäepoáíyþ
btn 3hfloor, ïoäíÿòücÿ ía 3 ýòaæ
btn 1hfloor, cïycòèòücÿ ía 1 ýòaæ
end

:gotrenaj
if gtrenaj=1 then goto gotrenaj2
pln ===| |=========================
pln Ýòo öeëûé òpeíaæepíûé çaë, çäecü ecòü áoêcepcêaÿ ãpyøa, øòaíãè, ãaíòeëè è òpeíaæepíûe còaíêè.
pln ===| |=========================
btn trenning, òpeíèpoâaòücÿ
btn 2hfloor, âûéòè
gtrenaj=1
end

:gotrenaj2
pln ===| |=========================
pln Tpeíaæepíûé çaë
pln ===| |=========================
btn trenning, òpeíèpoâaòücÿ
btn 2hfloor, âûéòè
end

:trenning
pln ===| |=========================
pln Äæeéìc ía÷aë òpeíèpoâaòücÿ.
Pln Cèëa - #force$
pln ===| |=========================
force=force+rnd*3
btn trenning, òpeíèpoâaòücÿ eùe
btn gotrenaj, çaêoí÷èòü òpeíèpoâêy
end

:rotd
pln ===| |=========================
pln Koìíaòa çaêpûòa
pln ===| |=========================
btn 2hfloor, âûéòè
end

:garder
if gar=1 then goto garder2
pln ===| |=========================
pln Ýòo ãapäepoáíaÿ, çäecü âècÿò paçíûe âeùè, cpeäè íèx âècèò ïoëèöeécêaÿ ôopìa.
pln ===| |=========================
if klotpu=1 or bvprp=1 then btn vzpform, âçÿòü ïoëèöeécêyþ ôopìy
btn 2hfloor, âûéòè
end 

:use_{{ ïoëèöeécêaÿ ôopìa }}_oäeòü ôopìy
if odpalf=0 then pln Äæeéìc oäeë ôopìy
if odpalf=1 then pln Äæeéìc è òaê â ôopìe
odpalf=1
end

:use_{{ ïoëèöeécêaÿ ôopìa }}_cíÿòü ôopìy
if odpalf=1 then pln Äæeéìc cíÿë ôopìy
if odpalf=0 then pln Ha òeëe Äæeéìca íeò ôopìû
odpalf=0
end


:vzpform
pln ===| |=========================
pln Äæeéìc âçÿë ïoëèöeécêyþ ôopìy
pln ===| |=========================
inv+ {{ ïoëèöeécêaÿ ôopìa }}
gar=1
btn 2hfloor, âûéòè
end
;###########################
:garder2
pln ===| |=========================
pln Ãapäepoáíaÿ êoìíaòa
pln ===| |=========================
btn 2hfloor, âûéòè
end

;###########################
:3hfloor
pln ===| |=========================
pln Ýòo òpeòèé ýòaæ ocoáíÿêa.
Pln Çäecü ecòü âxoä â áèáëèoòeêy, è ëecòíèöa ía ÷epäaê.
Pln Ha còeíe âècèò ýëeêòpo ùèòoê ía íeì 2 pyáèëüíèêa
pln ===| |=========================
btn bibl, èäòè â áèáëèoòeêy
btn chit3, ïoäoéòè ê ùèòêy
btn 2hfloor, cïycòèòücÿ ía 2 ýòaæ
btn cherd, ïoäíÿòücÿ ía ÷epäaê
end

:chit3
pln ===| |=========================
pln Ýòo ýëeêòpo ùèòoê, çäecü ecòü 2 pyáèëüíèêa, 'H' è 'V'
pln ===| |=========================
if rubdom=1 then btn vyklrvchv, âûêëþ÷èòü pyáèëüíèê 'V'
if rubdom=0 then btn vklrvchv, âêëþ÷èòü pyáèëüíèê 'V'
if electro=1 then btn vyklrvchh, âûêëþ÷èòü pyáèëüíèê 'H'
if electro=0 then btn vklrvchh, âêëþ÷èòü pyáèëüíèê 'H'
btn 3hfloor, oòoéòè
end

:vyklrvchv
pln ===| |=========================
pln Äæeéìc âûêëþ÷èë pyáèëüíèê
pln ===| |=========================
rubdom=0
proc 33
btn chit3, íaçaä
end

:vklrvchv
pln ===| |=========================
pln Äæeéìc âêëþ÷èë pyáèëüíèê
pln ===| |=========================
rubdom=1
proc 3
btn chit3, íaçaä
end

:vyklrvchh
pln ===| |=========================
pln Äæeéìc âûêëþ÷èë pyáèëüíèê
pln ===| |=========================
electro=0
gbass=1
btn chit3, íaçaä
end

:vklrvchh
pln ===| |=========================
pln Äæeéìc âêëþ÷èë pyáèëüíèê
pln ===| |=========================
electro=1
btn chit3, íaçaä
end 

;###########################
:bibl
if pshkaf=1 then goto bibl2
pln ===| |=========================
pln Ýòo áèáëèoòeêa, çäecü o÷eíü ìíoão paçíûx êíèã, âceãäa íaéäeòcÿ ÷òo ïo÷èòaòü.
Pln Kaæeòcÿ ça øêaôoì ÷òo-òo ecòü.
pln ===| |=========================
if force>50 then btn pershkaf, oòoäâèíyòü øêaô
btn 3hfloor, âûéòè
end

:pershkaf
pln ===| |=========================
pln Äæeéìc ïpèëoæèë ìíoão ycèëèé è oòoäâèíyë øêaô c êíèãaìè, ça øêaôoì áûëa äepeâÿííaÿ äâepü.
pln ===| |=========================
btn zvvv, çaéòè âíyòpü
btn 3hfloor, âûéòè
pshkaf=1
end

:bibl2
pln ===| |=========================
pln Áèáëèoòeêa. 
Pln Oäèí øêaô oòoäâèíyò â còopoíy, ça øêaôoì äepeâÿííaÿ äâepü.
pln ===| |=========================
btn zvvv, çaéòè âíyòpü
btn 3hfloor, âûéòè
end

:zvvv
pln ===| |=========================
pln Äæeéìc çaøeë â êoìíaòy, çäecü â öeíòpe còoèò aëòapü, âoêpyã ìíoæecòâo câe÷eé, ía ïoëy íapècoâaía ïeíòaãpaììa.
Pln Ha aëòape ëeæèò êíèãa, â íeé òaêèe æe èepoãëèôû, ÷òo è â êíèãe êoòopyþ cæeã Äæeéìc.
Pln Toëüêo 2 còpoêè áûëè íaïècaíû ía ïoíÿòíoì ÿçûêe.
Pln 'Von de lamento intor gara' è
pln 'Von de salavan intor gara' ýòè còpoêè áûëè oáâeäeíû ÷epíûìè ÷epíèëaìè.
pln ===| |=========================
btn bibl, âûéòè
infpent=1
ohrzd=1
end

;###########################
:cherd
if gworld=0 and gch=0 then goto gworld3
pln ===| |=========================
pln ×epäaê
pln ===| |=========================
btn 3hfloor, âûéòè
end

:gw1
if weapon=1 then pistol1=pistol1-1
goto gworld1
end

:gworld1

if health<=0 then goto death1
if ppr1<=0 then goto ubb1

if weapon=1 and pistol1<=0 then goto nopat1

if weapon=0 then btn gworld1, yäapèòü
if weapon=1 and pistol1>0 then btn gw1, âûcòpeëèòü
if weapon=2 then btn gworld1, yäapèòü
if weapon=3 then btn gworld1, yäapèòü
if weapon=4 then btn gworld1, yäapèòü

rukix=rnd*8
pistx=rnd*20
dubx=rnd*10
bitx=rnd*12
tesx=rnd*16
ppr1r=rnd*11

pln ***************************************
pln Çäopoâüe ïpoòèâíèêa - #ppr1$
pln Ïpoòèâíèê íaíec ypoí - #ppr1r$ 
Pln ***************************************
pln                    Á  O  É
pln ***************************************
pln Çäopoâüe Äæeéìca - #health$
if weapon=0 then pln Äæeéìc íaíec ypoí - #rukix$
if weapon=1 then pln Äæeéìc íaíec ypoí - #pistx$
 if weapon=2 then pln Äæeéìc íaíec ypoí - #dubx$
if weapon=3 then pln Äæeéìc íaíec ypoí - #bitx$
if weapon=4 then pln Äæeéìc íaíec ypoí - #tesx$
Pln ***************************************

if weapon=0 then ppr1=ppr1-rukix
if weapon=1 then ppr1=ppr1-pistx
if weapon=2 then ppr1=ppr1-dubx
if weapon=3 then ppr1=ppr1-bitx
if weapon=4 then ppr1=ppr1-tesx
health=health-ppr1r
end

:ubb1
pln ===| |=========================
pln Äæeéìc yáèë áaíäèòa, eão òpyï Äæeéìc êèíyë c oêía.
pln ===| |=========================
btn goholl, íaçaä
ghol=1
end


:gw2
if weapon=1 then pistol1=pistol1-1
goto gworld2
end

:gworld2

if health<=0 then goto death1
if ppr2<=0 then goto ubb2

if weapon=1 and pistol1<=0 then goto nopat2

if weapon=0 then btn gworld2, yäapèòü
if weapon=1 and pistol1>0 then btn gw2, âûcòpeëèòü
if weapon=2 then btn gworld2, yäapèòü
if weapon=3 then btn gworld2, yäapèòü
if weapon=4 then btn gworld2, yäapèòü

rukix=rnd*8
pistx=rnd*20
dubx=rnd*10
bitx=rnd*12
tesx=rnd*16
ppr2r=rnd*11

pln ***************************************
pln Çäopoâüe ïpoòèâíèêa - #ppr2$
pln Ïpoòèâíèê íaíec ypoí - #ppr2r$ 
Pln ***************************************
pln                    Á  O  É
pln ***************************************
pln Çäopoâüe Äæeéìca - #health$
if weapon=0 then pln Äæeéìc íaíec ypoí - #rukix$
if weapon=1 then pln Äæeéìc íaíec ypoí - #pistx$
 if weapon=2 then pln Äæeéìc íaíec ypoí - #dubx$
if weapon=3 then pln Äæeéìc íaíec ypoí - #bitx$
if weapon=4 then pln Äæeéìc íaíec ypoí - #tesx$
Pln ***************************************

if weapon=0 then ppr2=ppr2-rukix
if weapon=1 then ppr2=ppr2-pistx
if weapon=2 then ppr2=ppr2-dubx
if weapon=3 then ppr2=ppr2-bitx
if weapon=4 then ppr2=ppr2-tesx
health=health-ppr2r
end

:ubb2
pln ===| |=========================
pln Äæeéìc yáèë áaíäèòa, eão òpyï Äæeéìc êèíyë c oêía.
pln ===| |=========================
btn gokiroom, íaçaä
gunkir=1
end

:gw3
if weapon=1 then pistol1=pistol1-1
goto gworld3
end

:gworld3

if health<=0 then goto death1
if ppr3<=0 then goto ubb3

if weapon=1 and pistol1<=0 then goto nopat3

if weapon=0 then btn gworld3, yäapèòü
if weapon=1 and pistol1>0 then btn gw3, âûcòpeëèòü
if weapon=2 then btn gworld3, yäapèòü
if weapon=3 then btn gworld3, yäapèòü
if weapon=4 then btn gworld3, yäapèòü

rukix=rnd*8
pistx=rnd*20
dubx=rnd*10
bitx=rnd*12
tesx=rnd*16
ppr3r=rnd*11

pln ***************************************
pln Çäopoâüe ïpoòèâíèêa - #ppr3$
pln Ïpoòèâíèê íaíec ypoí - #ppr3r$ 
***************************************
pln                    Á  O  É
pln ***************************************
pln Çäopoâüe Äæeéìca - #health$
if weapon=0 then pln Äæeéìc íaíec ypoí - #rukix$
if weapon=1 then pln Äæeéìc íaíec ypoí - #pistx$
 if weapon=2 then pln Äæeéìc íaíec ypoí - #dubx$
if weapon=3 then pln Äæeéìc íaíec ypoí - #bitx$
if weapon=4 then pln Äæeéìc íaíec ypoí - #tesx$
***************************************

if weapon=0 then ppr3=ppr3-rukix
if weapon=1 then ppr3=ppr3-pistx
if weapon=2 then ppr3=ppr3-dubx
if weapon=3 then ppr3=ppr3-bitx
if weapon=4 then ppr3=ppr3-tesx
health=health-ppr3r
end

:ubb3
pln ===| |=========================
pln Äæeéìc yáèë áaíäèòa, eão òpyï Äæeéìc êèíyë c oêía.
pln ===| |=========================
btn cherd, íaçaä
gch=1
ubband=1
gungs=1
end

:gung
pln ===| |=========================
pln Äæeéìc ïoäoøeë ê áoëüíèöe, âoçëe çäaíèÿ còoÿëè äâa áaíäèòa c aâòoìaòaìè.
Pln Oíè yâèäeëè ïapíÿ è ía÷aëè ïo íeìy còpeëÿòü.
pln ===| |=========================
pause 4000
goto gungs1

:gw4
if weapon=1 then pistol1=pistol1-1
if weapon=5 then pistol3=pistol3-1
goto gungs1
end

:gungs1

if health<=0 then goto death1
if pppr1<=0 then goto gungs2

rukix=rnd*8
pistx=rnd*20
dubx=rnd*10
bitx=rnd*12
tesx=rnd*16
drob=rnd*37
pppr1r=rnd*11

if weapon=0 then pppr1=pppr1-rukix
if weapon=1 then pppr1=pppr1-pistx
if weapon=2 then pppr1=pppr1-dubx
if weapon=3 then pppr1=pppr1-bitx
if weapon=4 then pppr1=pppr1-tesx
if weapon=5 then pppr1=pppr1-drob


if weapon=1 and pistol1<=0 then goto nopat4
if weapon=5 and pistol3<=0 then goto nopat4


health=health-pppr1r



pln ***************************************
pln Çäopoâüe ïpoòèâíèêa - #pppr1$
pln Ïpoòèâíèê íaíec ypoí - #pppr1r$ 
Pln ***************************************
pln                    Á  O  É
pln ***************************************
pln Çäopoâüe Äæeéìca - #health$
if weapon=0 then pln Äæeéìc íaíec ypoí - #rukix$
if weapon=1 then pln Äæeéìc íaíec ypoí - #pistx$
 if weapon=2 then pln Äæeéìc íaíec ypoí - #dubx$
if weapon=3 then pln Äæeéìc íaíec ypoí - #bitx$
if weapon=4 then pln Äæeéìc íaíec ypoí - #tesx$
if weapon=5 then pln Äæeéìc íaíec ypoí - #drob$

***************************************

if weapon=0 then btn gungs1, yäapèòü
if weapon=1 and pistol1>0 then btn gw4, âûcòpeëèòü
if weapon=2 then btn gungs1, yäapèòü
if weapon=3 then btn gungs1, yäapèòü
if weapon=4 then btn gungs1, yäapèòü
if weapon=5 and pistol3>0 then btn gw4, âûcòpeëèòü

end

:gw5
if weapon=1 then pistol1=pistol1-1
if weapon=5 then pistol3=pistol3-1
goto gungs2
end

:gungs2

if health<=0 then goto death1
if pppr2<=0 then goto gungs3

if weapon=1 and pistol1<=0 then goto nopat5
if weapon=5 and pistol3<=0 then goto nopat5


if weapon=0 then btn gungs2, yäapèòü
if weapon=1 and pistol1>0 then btn gw5, âûcòpeëèòü
if weapon=2 then btn gungs2, yäapèòü
if weapon=3 then btn gungs2, yäapèòü
if weapon=4 then btn gungs2, yäapèòü
if weapon=5 and pistol3>0 then btn gw5, âûcòpeëèòü

rukix=rnd*8
pistx=rnd*20
dubx=rnd*10
bitx=rnd*12
tesx=rnd*16
drob=rnd*37
pppr2r=rnd*11

pln ***************************************
pln Çäopoâüe ïpoòèâíèêa - #pppr2$
pln Ïpoòèâíèê íaíec ypoí - #pppr2r$ 
Pln ***************************************
pln                    Á  O  É
pln ***************************************
pln Çäopoâüe Äæeéìca - #health$
if weapon=0 then pln Äæeéìc íaíec ypoí - #rukix$
if weapon=1 then pln Äæeéìc íaíec ypoí - #pistx$
 if weapon=2 then pln Äæeéìc íaíec ypoí - #dubx$
if weapon=3 then pln Äæeéìc íaíec ypoí - #bitx$
if weapon=4 then pln Äæeéìc íaíec ypoí - #tesx$
if weapon=5 then pln Äæeéìc íaíec ypoí - #drob$

Pln ***************************************

if weapon=0 then pppr2=pppr2-rukix
if weapon=1 then pppr2=pppr2-pistx
if weapon=2 then pppr2=pppr2-dubx
if weapon=3 then pppr2=pppr2-bitx
if weapon=4 then pppr2=pppr2-tesx
if weapon=5 then pppr2=pppr2-drob

health=health-pppr2r
end

:gungs3
pln ===| |=========================
pln Äæeéìc yáèë áaíäèòoâ, y oäíoão èç íèx oí íaøeë 1000 äoëëapoâ è áyìaæêy.
Pln Ha áyìaæêe áûëo íaïècaío:
Pln Farem sa otto dugas gara
pln ===| |=========================
btn exit2, ía yëèöy
money=money+1000
gpalm=1
end

:policehome
if poluch=1 then goto pkpuch2
pln ===| |=========================
pln Äæeéìc ïoäoøeë ê ïoëèöeécêoìy y÷acòêy.
Pln
pln Boçëe ïoëèöeécêoão y÷acòêa còoèò ìycopíûé áaê (ypía). Äâepü â caì y÷acòoê oòêpûòa, ío ía âxoäe còoèò ìyæ÷èía â ïoëèöeécêoé ôopìe.
pln ===| |=========================
btn podkmush, ïoäoéòè ê çäaíèþ
btn podkbak, ïoäoéòè ê ypíe
btn begstreet, íaçaä ía yëèöy
poluch=1
end

:pkpuch2
pln ===| |=========================
pln Ïoëèöeécêèé y÷acòoê
pln ===| |=========================
btn podkmush, ïoäoéòè ê çäaíèþ
btn podkbak, ïoäoéòè ê ypíe
btn begstreet, íaçaä ía yëèöy
end

:podkbak
if klotpu=1 then goto podbak2
if klotpu=0 then
pln ===| |=========================
pln Äæeéì çaãëÿíyë â ypíy, ío òaì ëèøü áûë oáû÷íûé ìycop.
pln ===| |=========================
btn policehome, oòoéòè
end

:podbak2
pln ===| |=========================
pln Äæeéìc ãëÿíyë â ypíy, òaì ÷òo-òo áëecòeëo, ïpècìoòpeâøècü Äæeéìc ïoíÿë, ÷òo ýòo áûëè êëþ÷è.
pln ===| |=========================
inv+ êëþ÷è oò cêëaäa
klotpu=0
btn policehome, oòoéòè
end

:podkmush
if odpalf=1 then goto podkmush2
if razgsp=1 then goto podkmush0
pln ===| |=========================
pln - Ýé, êyäa ýòo òû coápaëcÿ, ïapeíü?
Pause 2500
pln - Äa ÿ òyò ãyëÿþ, òaê cêaçaòü.
Pause 2500
Pln - He÷eão ïo ío÷aì ápoäèòü, ïpoâaëèâaé oòcþäa.
pln ===| |=========================
btn policehome, íaçaä
razgsp=1
end

:podkmush0
pln ===| |=========================
pln - Cíoâa òû? Ïpoâaëèâaé, ÿ cêaçaë!
Pln He÷eão òeáe òyò äeëaòü!
pln ===| |=========================
btn policehome, yéòè
end

:podkmush2
bvzpuch=1 then goto podkmush3
pln ===| |=========================
pln Äæeéìc ïpoøeë â oäíoýòaæíoe çäaíèe, çäecü áûëa äâepü ía cêëaä, äâepü â oôèc è còyïeíüêè yxoäÿùèe âíèç, ê caìèì peøeòo÷íûì êaìepaì.
pln ===| |=========================
btn spvniz, cïycòèòücÿ âíèç
btn gosklad, èäòè ía cêëaä
btn gooffice, èäòè â oôèc
btn policehome, âûéòè èç çäaíèÿ
bvzpuch=1
end

:podkmush3
pln ===| |=========================
pln Çäaíèe ïoëèöeécêoão y÷acòêa
pln ===| |=========================
btn spvniz, cïycòèòücÿ âíèç
btn gosklad, èäòè ía cêëaä
btn gooffice, èäòè â oôèc
btn policehome, âûéòè èç çäaíèÿ
end

:gooffice
pln ===| |=========================
pln Äâepü oôèca çaêpûòa.
pln ===| |=========================
btn podkmush2, íaçaä
end

:gosklad
if êëþ÷è oò cêëaäa then goto gosklad2
pln ===| |=========================
pln Äâepü cêëaäa çaêpûòa.
pln ===| |=========================
btn podkmush2, íaçaä
end

:gosklad2
if skzakr=1 then goto gosklad3
pln ===| |=========================
pln Äæeéìc çaøeë ía cêëaä, çäecü còoÿëè êaêèe-òo ÿùèêè, ía ïoëy ëeæaëa çaïècêa, ía âepxíèx ÿùèêax ëeæaë äpoáoâèê.
pln ===| |=========================
inv+ [çaïècêa Áýía]
inv+ {{ äpoáoâèê }}
btn podkmush2, âûéòè
skzakr=1
police=1
end

:gosklad3
pln ===| |=========================
pln Cêëaä
pln ===| |=========================
btn podkmush2, âûéòè
end

:use_{{ äpoáoâèê }}_ècïoëüçoâaòü
pln Äæeéìc âçÿë äpoáoâèê Benelli M4, â íeì #pistol2$ ïaòpoíoâ.
weapon=5
end

:w3

Style_BackColor=0
Style_TextColor=0*0*256+0*256+255
pln ===| |=========================
pln Äæeéìc ïpoèçíec çaêëèíaíèe è ìãíoâeííaÿ òeëeïopòaöèÿ ïepeíecëa eão â íeèçâecòíocòü.
Pause 5000
pln
pln Äæeéìc ïoÿâèëcÿ â òeìíoì ëecy, êoãäa oí ïaäaë, cëy÷aéío ïoâpeäèë ceáe pyêy.
Pause 2000
pln
pln - Ïpèâeò Äæeéìc, ÿ æäaë òeáÿ!
Pause 2000
pln - Kòo òû, è ÷òo òeáe oò ìeíÿ íyæío?
Pause 2000
Pln - Meíÿ çoâyò Ïèòep Ãpoyí, ÿ xoçÿèí äoìa, â êoòopoì òû æèâeøü!
Pause 2000
Pln - He âpè, xoçÿéêoé äoìa áûëa ìoÿ áaáêa.
Pause 2000
Pln - Ýòa còapyxa? Oía áûëa ëèøü ïpèìaíêoé, ÷òoáû çaìaíèòü òeáÿ â ýòoò äoì è y íee ýòo ïoëy÷èëocü!
Pause 2000
Pln - ×òo òeáe oò ìeíÿ íyæío?
Pause 2000
Pln - Míe íyæía òâoÿ äyøa, Äæeéìc, òû íapyøèë ïoêoé â ìoeì äoìe, òû cæeã ìoþ êíèãy ïo òeìíoé ìaãèè. Ça ýòo òû áyäeøü âe÷ío ãopeòü â aäy!
Pause 2000
Pln - ß âeäü ïpocòo êèíyë êíèãy â êaìèí è íè÷eão áoëüøe.
Pause 2000
Pln - ß coãëaceí c òoáoé, ío ÿ äaâío xoòeë çaïoëy÷èòü òâoþ ãpÿçíyþ äyøy è èìeíío ceé÷ac ÿ ýòo cäeëaþ.
Pause 2000
Pln - Äëÿ ÷eão òeáe oía?
Pause 2000
Pln - Äæeéìc òû òaê æe ãëyï, êaê è òâoé oòeö. Tâoÿ äyøa íyæía ìíe, ÷òoá â ìoeì òeëe cíoâa ïoÿâèëacü ýíepãèÿ, äpyãèìè cëoâaìè, ÿ xo÷y âocêpecèòü câoe òeëo.
Pause 2000
Pln - Tû çíaë ÷òo ÿ ïpèäy? Ho êaê?
Pause 2000
Pln - Xa xa, Äæeéìc, èìeíío ÿ âíyøèë oäíoìy ïcèxy íaïècaòü çaêëèíaíèe â òyaëeòe ïcèxyøêè.
Pln Èìeíío ÿ ïpèêaçaë Áýíy yáèòü òeáÿ èëè çaìaíèòü cþäa è â êoíöe êoíöoâ, ýòo ÿ ïepeäaë òeáe çaêëèíaíèe ïepexoäa, ÷epeç áaíäèòa, â ýòoò ìèp.
Pln ß äoëão òeáÿ æäaë, Äæeéìc.
Pause 2000
Pln - Ça÷eì òeáe íyæía èìeíío ìoÿ äyøa? Beäü ía câeòe ìíoão äyø.
Pause 2000
Pln - ...
Pause 2000
Pln - Ïoòoìy ÷òo òû èçápaííûé, Äæeéìc.
Pause 2000
Pln Ho ìíe ïpèäeòcÿ òeáÿ yáèòü, ìíe o÷eíü æaëü, ìoé äopoãoé äpyã!
pln ===| |=========================
Pause 2000
pln - - Ïèòep áëèæe ïoäoøeë ê Äæeéìcy.
Pln Bíeçaïío èç eão cïèíû âûëeçëè êpûëüÿ, êaê y ëeòy÷eé ìûøè, ío íaìíoão áoëüøe. Eão ãoëoâa còaëa ïoxoæeé ía ãoëoây ÿùepa, pyêè ïpeâpaùaëècü â ëaïû c ocòpûìè êoãòÿìè, a íoãè còaíoâèëècü ïoxoæèìè ía êoïûòa
Pln Ïèòep yâeëè÷èâaëcÿ â paçìepe, ãäe-òo äo 4-5 ìeòpoâ â âûcoòy.
Pln Teïepü çaìecòo Ïèòepa, ïepeä Äæeéìcoì còoÿë íacòoÿùèé Äeìoí.
pln ===| |=========================

btn enthell, ía÷aòü áèòây
btn deadme, ïoêoí÷èòü c coáoé
pent=1
end

:deadme
pln ===| |=========================
pln - Heò íeò, ìoé äpyã! Tû äoëæeí ïoãèáíyòü â ÷ecòíoì áoþ!
pln ===| |=========================
btn enthell, ía÷aòü áèòây
end

:gw7
if weapon=1 then pistol1=pistol1-1
if weapon=5 then pistol3=pistol3-1
goto enthell
end

:enthell

if health<=0 then goto death1
if Demon_Gara<=0 then goto winbattle

if weapon=1 and pistol1<=0 then goto nopat7
if weapon=5 and pistol3<=0 then goto nopat7


if weapon=0 then btn enthell, yäapèòü
if weapon=1 and pistol1>0 then btn gw7, âûcòpeëèòü
if weapon=2 then btn enthell, yäapèòü
if weapon=3 then btn enthell, yäapèòü
if weapon=4 then btn enthell, yäapèòü
if weapon=5 and pistol3>0 then btn gw7, âûcòpeëèòü

rukix=rnd*8
pistx=rnd*20
dubx=rnd*10
bitx=rnd*12
tesx=rnd*16
drob=rnd*37
battle=rnd*27

pln ***************************************
pln Çäopoâüe Äeìoía Ãapa - #Demon_Gara$
pln Ïpoòèâíèê íaíec ypoí - #battle$ 
Pln ***************************************
pln                    Á  O  É
pln ***************************************
pln Çäopoâüe Äæeéìca - #health$
if weapon=0 then pln Äæeéìc íaíec ypoí - #rukix$
if weapon=1 then pln Äæeéìc íaíec ypoí - #pistx$
 if weapon=2 then pln Äæeéìc íaíec ypoí - #dubx$
if weapon=3 then pln Äæeéìc íaíec ypoí - #bitx$
if weapon=4 then pln Äæeéìc íaíec ypoí - #tesx$
if weapon=5 then pln Äæeéìc íaíec ypoí - #drob$

Pln ***************************************

if weapon=0 then Demon_Gara=Demon_Gara-rukix
if weapon=1 then Demon_Gara=Demon_Gara-pistx
if weapon=2 then Demon_Gara=Demon_Gara-dubx
if weapon=3 then Demon_Gara=Demon_Gara-bitx
if weapon=4 then Demon_Gara=Demon_Gara-tesx
if weapon=5 then Demon_Gara=Demon_Gara-drob

health=health-battle
end

:winbattle
pln ===| |=========================
Pln Äeìoí yïaë ía ïoëÿíy ëeca, ïoëÿía cëeãêa áûëa ocâeùeía êpacíoé ëyíoé.
Pln - Tû cèëüíûé ïpoòèâíèê, Äæeéìc, ío ÿ äeìoí, yáèòü ìeíÿ íeâoçìoæío, òû òoëüêo cëeãêa ïoöapaïaë ìoè ëaïû. Teïepü ïpèøeë òâoé ÷epeä!
Pln - ß íe ìoãy òeáÿ yáèòü çäecü, ío òâoè êocòè ïo ïpeæíeìy ëeæaò â ìoãèëe, â peaëüíoì ìèpe.
Pln - He cìeé!!!
pln ===| |=========================
btn przaklin, yéòè
end

:przaklin

demon=0 & pitgroun=1 & gpalm=3 & pent=0 & pause 2500 & goto w2
end

:spvniz
if spniz=1 then goto spvniz2
pln ===| |=========================
pln Äæeéìc cïycòèëcÿ âíèç, çäecü áûëo o÷eíü ìíoão ìaëeíüêèx êaìep. Bce oíè áûëè ïycòûe.
Pln Ha ïoëy ëeæaë êopoáoê ïoòpoíoâ ê äpoáoâèêy.
pln ===| |=========================
btn podkmush2, âûéòè
inv+ [êopoáoê ïaòpoíoâ]
spniz=1
pistol4=7
end

:spvniz2
pln ===| |=========================
pln Hè÷eão ocoáeííoão òyò íeò
pln ===| |=========================
btn podkmush2, âûéòè
end

:use_[êopoáoê ïaòpoíoâ]
pln B êopoáêe #pistol4$ ïaòpoíoâ
end

:use_[oáoéìa]
Pln B oáoéìe #pistol2$ ïaòpoíoâ
end

:nopat1
cls
pln ===| |=========================
Pln Ïaòpoíû â ïècòoëeòe çaêoí÷èëècü.
Pln Bûáepèòe äpyãoe opyæèe:
pln ===| |=========================

if {{ äyáèíêa }} then btn gworld1, âûápaòü äyáèíêy & weapon=2
if {{ áèòa }} then btn gworld1, âûápaòü áèòy & weapon=3
if {{ òecaê }} then btn gworld1, âûápaòü òecaê & weapon=4
pistol1=0
end

:nopat2
cls
pln ===| |=========================
Pln Ïaòpoíû â ïècòoëeòe çaêoí÷èëècü.
Pln Bûáepèòe äpyãoe opyæèe:
pln ===| |=========================

if {{ äyáèíêa }} then btn gworld2, âûápaòü äyáèíêy & weapon=2
if {{ áèòa }} then btn gworld2, âûápaòü áèòy & weapon=3
if {{ òecaê }} then btn gworld2, âûápaòü òecaê & weapon=4
pistol1=0
end



:nopat3
cls
pln ===| |=========================
Pln Ïaòpoíû â ïècòoëeòe çaêoí÷èëècü.
Pln Bûáepèòe äpyãoe opyæèe:
pln ===| |=========================

if {{ äyáèíêa }} then btn gworld3, âûápaòü äyáèíêy & weapon=2
if {{ áèòa }} then btn gworld3, âûápaòü áèòy & weapon=3
if {{ òecaê }} then btn gworld3, âûápaòü òecaê & weapon=4
pistol1=0
end

:nopat4
if weapon=1 and pistol1=0 then
cls
pln ===| |=========================
Pln Ïaòpoíû â ïècòoëeòe çaêoí÷èëècü.
Pln Bûáepèòe äpyãoe opyæèe:
pln ===| |=========================
pistol1=0

if {{ äyáèíêa }} then btn gungs1, âûápaòü äyáèíêy & weapon=2
if {{ áèòa }} then btn gungs1, âûápaòü áèòy & weapon=3
if {{ òecaê }} then btn gungs1, âûápaòü òecaê & weapon=4
if {{ äpoáoâèê }} then btn gungs1, âûápaòü äpoáoâèê & weapon=5

if weapon=5 and pistol3=0 then
cls
pln ===| |=========================
Pln Ïaòpoíû â äpoáoâèêe çaêoí÷èëècü.
Pln Bûáepèòe äpyãoe opyæèe:
pln ===| |=========================
pistol3=0

if {{ äyáèíêa }} then btn gungs1, âûápaòü äyáèíêy & weapon=2
if {{ áèòa }} then btn gungs1, âûápaòü áèòy & weapon=3
if {{ òecaê }} then btn gungs1, âûápaòü òecaê & weapon=4
if {{ ïècòoëeò }} then btn gungs1, âûápaòü ïècòoëeò & weapon=1
end

:nopat5
if weapon=1 then
cls
pln ===| |=========================
Pln Ïaòpoíû â ïècòoëeòe çaêoí÷èëècü.
Pln Bûáepèòe äpyãoe opyæèe:
pln ===| |=========================
pistol1=0

if {{ äyáèíêa }} then btn gungs2, âûápaòü äyáèíêy & weapon=2
if {{ áèòa }} then btn gungs2, âûápaòü áèòy & weapon=3
if {{ òecaê }} then btn gungs2, âûápaòü òecaê & weapon=4
if {{ äpoáoâèê }} then btn gungs2, âûápaòü äpoáoâèê & weapon=5

if weapon=5 then
cls
pln ===| |=========================
Pln Ïaòpoíû â äpoáoâèêe çaêoí÷èëècü.
Pln Bûáepèòe äpyãoe opyæèe:
pln ===| |=========================
pistol3=0

if {{ äyáèíêa }} then btn gungs2, âûápaòü äyáèíêy & weapon=2
if {{ áèòa }} then btn gungs2, âûápaòü áèòy & weapon=3
if {{ òecaê }} then btn gungs2, âûápaòü òecaê & weapon=4
if {{ ïècòoëeò }} then btn gungs2, âûápaòü ïècòoëeò & weapon=1
end


:nopat7
if weapon=1 then
cls
pln ===| |=========================
Pln Ïaòpoíû â ïècòoëeòe çaêoí÷èëècü.
Pln Bûáepèòe äpyãoe opyæèe:
pln ===| |=========================
pistol1=0

if {{ äyáèíêa }} then btn enthell, âûápaòü äyáèíêy & weapon=2
if {{ áèòa }} then btn enthell, âûápaòü áèòy & weapon=3
if {{ òecaê }} then btn enthell, âûápaòü òecaê & weapon=4
if {{ äpoáoâèê }} then btn enthell, âûápaòü äpoáoâèê & weapon=5

if weapon=5 then
cls
pln ===| |=========================
Pln Ïaòpoíû â äpoáoâèêe çaêoí÷èëècü.
Pln Bûáepèòe äpyãoe opyæèe:
pln ===| |=========================
pistol3=0

if {{ äyáèíêa }} then btn enthell, âûápaòü äyáèíêy & weapon=2
if {{ áèòa }} then btn enthell, âûápaòü áèòy & weapon=3
if {{ òecaê }} then btn enthell, âûápaòü òecaê & weapon=4
if {{ ïècòoëeò }} then btn enthell, âûápaòü ïècòoëeò & weapon=1
end


:use_{{ ïècòoëeò }}_ècïoëüçoâaòü
if pistol1=0 then patron=ïaòpoíoâ
if pistol1=1 then patron=ïaòpoí
if pistol1=2 then patron=ïaòpoía
if pistol1=3 then patron=ïaòpoía
if pistol1=4 then patron=ïaòpoía
if pistol1>4 then patron=ïaòpoíoâ

pln Äæeéìc âçÿë ïècòoëeò 'Koëüò' â íeì #pistol1$ #patron$
weapon=1
end

:use_{{ äpoáoâèê }}_ècïoëüçoâaòü
if pistol3=0 then patron=ïaòpoíoâ
if pistol3=1 then patron=ïaòpoí
if pistol3=2 then patron=ïaòpoía
if pistol3=3 then patron=ïaòpoía
if pistol3=4 then patron=ïaòpoía
if pistol3>4 then patron=ïaòpoíoâ

pln Äæeéìc âçÿë äpoáoâèê Benelli M4 â íeì #pistol3$ #patron$
weapon=5
end

:use_[çaïècêa Áýía]

pln Ïpèâeò, Pèêêè, ÿ çíaþ ÷òo òeáÿ ceé÷ac íeò ía paáoòe, ïoýòoìy ïepeäaþ òeáe ýòy çaïècêy ÷epeç oôèöepa.
Pln ß âce cäeëaë êaê òû cêaçaë, ìoè ëþäè ïpoápaëècü â äoì Äæeéìca è ïoäcûïaëè eìy ïpeïapaò 'A' ïocëe ýòoão oí coøeë c yìa è peøèë ïpûãíyòü ïoä ïoeçä, ío ýòoão ïapøèâöa cïacëè.
Pln Çaòo eão ïoìecòèëè â ëe÷eáíèöy äëÿ äyøeâío áoëüíûx.
Pln Xoçÿèí cêaçaë yáèòü eão, ío cía÷aëa äoâecòè eão äo áeøeícòâa.
Pln Mû ycòpoèì ïoæap â ýòoé ëe÷eáíèöe è çaêpoeì eão â ïoäâaëe, ecëè oí âûéäeò æèâûì, òo yáüeì eão.
Pln Xoçÿèí áyäeò äoâoëeí, a òû íaêoíeö ïoëy÷èøü äoì Äæeéìca co âceìè eão öeííocòÿìè.
Pln Çaòeì íaéäeì è yáüeì eão ápaòa Áýpíè. È c ceìeécòâoì Poyä áyäeò ïoêoí÷eío.
End

:vstinfdisk

pln ===| |=========================
pln Äæeéìc Poyä (äocüe)
pln
pln Ô.È.O - Poyä Äæeéìc Áýpíc
pln âoçpacò - 26 ëeò
pln ID - 281
pln còeïeíü çapaæeíèÿ - Ýòaï 3
pln Ïo ïpèêaçy, áoëüíoé-281 äoëæeí íaxoäèòcÿ â ïaäâaëe äëÿ çaâepøeíèÿ ïocëeäíèx ýòaïoâ.
Pln âaêöèía - íe cyùecòâyeò
pln ïoëy-âaêöèía - (1) íaxoäèòcÿ â äeæypíoì êaáèíeòe.
...
Pln Ïocëaíèe äëÿ Äæeéìca Poyäa
pause 2500
pln
pln Ïpèâeò, Äæeéìc, ÿ æäaë ÷òo òû ïpo÷èòaeøü ýòo ïocëaíèe.
Pln ß íaïècaë ýòo cooáùeíèe è çaøèôpoâaë eão âèpycoì, ÷òoá äpyãèe íe cìoãëè ýòo ïpo÷èòaòü.
Pln Toëüêo òâoé êoìïüþòep ìoæeò ýòo ïpo÷ecòü. Tû â áoëüøoé oïacíocòè, òeáÿ xoòÿò yáèòü, ÿ ocòaâèë ýòoò äècê â ïaëaòe, ÷òoáû òû âce yçíaë.
Pln Haì äaí áûë ïpèêaç òeáÿ yáèòü, ìíe è Áýíy Týéëopy, â èòoãe ÿ íe coãëacèëcÿ, a Áýí çaxoòeë òeáÿ yáèòü, ça òeáÿ oí ïoëy÷èò 450 øòyê çeëeíüþ.
Pln Haäeþcü ÿ ycïeþ è òû ïpo÷èòaeøü ýòo, oí ïpèøëeò ëþäeé, ÷òoáû òeáÿ yáèëè.
Pln Ýòo âûãoäío Pèêêè Tayýpíy, âeäü eìy íyæeí òâoé ocoáíÿê.
Pln Ça èx cïèíaìè còoèò ÷òo-òo òeìíoe, oíè ïoêyïaëè êíèãy ÷epíoé ìaãèè è yïoìèíaëè èìÿ Ãapa. ß íe çíaþ äeòaëüíoé èíôopìaöèè, ío áyäü ocòopoæeí!
pln ===| |=========================
btn compentdj, âûéòè
end

:gos
input godjs
save godjs
pln ÈÃPA COXPAHEHA
btn compentdj, íaçaä
end

:uznksch
pln ===| |=========================
pln Haáëþäaòeëüíûe paáoòû ïpoâoäèìûe â áëoêe 'D'
pause 3000
pln
pln Äeíü 1: Ïaöèeíò oòêaçaëcÿ oò eäû, ïocòoÿíío ÷òo-òo ìû÷èò ceáe ïoä íoc, ïoøaòûâaÿcü co còopoíû â còopoíy.
Pln Äeíü 2: Ïaöèeíò ía÷èíaeò íepâío áèòücÿ ãoëoâoé oá còeíy. Ïpoâeëè oïpocû ïaöèeíòoâ, ìíoãèe âèäÿò ãaëëþöèíaöèè, çaòeì y ìíoãèx ïpoïaëa pe÷ü. Peøèëè ïpèocòaíoâèòü ïpoöecc paçpaáoòêè.
Pln Äeíü 5: Ïpoöecc ïpoäoëæèëcÿ ïo ïpèêaçy ía÷aëücòâa, ïaöèeíòû cëûøaò ayäèo-ãaëëþöèíaöèè, íecyò ïoëíûé ápeä, y íeêoòopûx ïaöèeíòoâ oòêaçaëè íoãè. Bcêope íacòyïèë ïoëíûé ïapaëè÷ êoíe÷íocòeé òeëa.
Pln Äeíü 6: Ïaöèeíòû oäèí ça äpyãèì ía÷aëè yìèpaòü. Ýêcïepeìeíò çaêoí÷eí, ïpoòèâoÿäèÿ oò âèpyca eùe íe íaéäeío.
pln ===| |=========================
btn compentdj, âûéòè
end

:use_{{ ïècòoëeò }}_ïepeçapÿäèòü
if pistol2=0 then pln Oáoéìa ïycòa 

if pistol1>3 and pistol2>0 then pln Ïepeçapÿäêa íe íyæía! 

if pistol1<3 and pistol2>0 then pistol2=0 & pistol1=7 & inv- oáoéìa & pln Ïepeçapÿæeío
end

:use_{{ äpoáoâèê }}_ïepeçapÿäèòü
if not êopoáoê ïaòpoíoâ and pistol4=0 then pln Heò ïaòpoíoâ äëÿ ïepeçapÿäêè

if pistol3>3 and pistol4>0 then pln Ïepeçapÿäêa íe íyæía!

if pistol3<3 and pistol4>0 then pistol4=0 & pistol3=7 & inv- êopoáoê ïaòpoíoâ & pln Ïepeçapÿæeío
end

:prm444
pln ===| |=========================
pln Paäèo èçäaeò íeïoíÿòíûe çâyêè.
Pln Hè÷eão ïoíÿòü íeëüçÿ...
pln ===| |=========================
btn prmm4, íaçaä
end