Set Buffer 400
Amos Lock
Request Wb
Break Off
PINTRO
CHKDSK[1]
Load "reset_1:gfx/reset_logo.rst",4
CHKDSK[1]
Load "reset_1:gfx/skrol_logo.rst",10
CHKDSK[2]
Med Load "reset_2:sfx/med.lobotomy",5
Dim P(100),P_U$(100),P_Z$(100),P$(100)
Global _BARFA
ST_UP:
Screen Open 1,320,256,16,Lowres
Unpack 4 To 1
Med Play 5
Hide
Wait Key
Rem Start: 10-2-98 19:00:00
Rem Name : Na Resetkání SE 98
Rem Coder: Hologram / tNC
Rem No colours included! Please, check palette!
Rem Start Up
Screen Open 1,640,184+8,8,Hires
Screen Open 2,640,50,8,Hires
Screen Open 4,640,32,8,Hires
Screen Open 3,640,184+8,8,Hires
Screen Display 2,,252,,
Screen Display 4,,42,,
Screen Display 1,,67,,
Screen Display 3,,67,,
Screen 1
Hide
Curs Off
Flash Off
Palette $0,$FFF,$F0,$FBA,$F0F,$FA,$F00,$FF0
Paper 0 : Pen 1 : Clw : Curs Off
Screen To Front
Screen 4 :
Palette $0,$FFF,$F0,,$F0F,$FA,$FF,$FF0
Paper 0 : Pen 1 : Clw : Curs Off : Flash Off
Screen 3
Flash Off
Palette $0,$FFF,$F0,,$F0F,$FA,$FF,$FF0
Paper 0 : Pen 1 : Clw : Curs Off
Screen 2
Palette $0,$FFF,$F0,,$F0F,$FA,$FF,$FF0
Paper 0 : Pen 1 : Clw : Curs Off
Ink 5 : Draw 0,18 To 640,18 : Draw 0,34 To 640,34
Ink 7,0,0
Text 0,28+15," Hra je věnována české Amiga scéně a Utopijákovi! "
Flash Off
Flash 3,"(00f,15)(fff,15)"
Set Rainbow 2,0,30,"(1,1,15)(1,-1,15)","",""
Set Rainbow 0,0,16,"","(1,1,15)",""
Set Rainbow 1,0,16,"","(1,-1,15)",""
Set Rainbow 3,0,60,"","","(2,1,15)(2,-1,15)"
Rainbow 2,0,38,30
Rainbow 3,0,248,60
Screen 1
Rem Inicializace předmětů
Gosub TITLE
HOLOGRAM:
Screen 3 : Cls 0
Ink 5,0,0
Text 320,30," Na Resetkání 98"
Ink 7,0,0
Text 320,40," aneb"
Ink 5,0,0
Text 320,50," 14 minut kompilace"
Ink 3,0,0
Text 320,70," (c) 1998 Hologram & Gargamel / tNC"
Ink 7,0,0
Text 320,90,"Příruční mapa, lze vyvolat stiknutím"
Text 320,100,"klávesy [ESC], mapa se ukládá jako"
Text 320,110,"grafika s pozicí, takže asi nebude"
Text 320,120,"problém si to vytisknout."
Ink 6,0,0
Text 320,140,"Po mapě se můžete pohybovat pomocí"
Text 320,150,"kurzorových šipek. Snad vám to ulehčí"
Text 320,160,"hraní."
Screen 1
Locate ,23 : Print
BUS=0 : Rem tady je autobuz, musím to dát do savingu...
THING=39 : X=4 : Y=0 : NEWROOM=1 : FTIP=0 : SIL=0 : AUT=0 : VEVERKA=0 : ZZ=0 : CISTERNA=0
LX=X
LY=Y
For R=1 To THING : P(R)=0 : Next R
P(6)=5
P(12)=8
P(13)=16
P(15)=43
P(16)=47
P(27)=64
P(8)=98
Restore P_U : For R=1 To THING : Read A$ : P_U$(R)=A$ : Next R
Restore P_Z : For R=1 To THING : Read A$ : P_Z$(R)=A$ : Next R
Restore P : For R=1 To THING : Read A$ : P$(R)=A$ : Next R
P_U:
Data "legitimaci","kalhoty","malý klíček","užmoulaný papír","místenku na autobus","masivní sekeru","monitor k počítači","počítač","roztroušené hřebíky","balík disket","obroského smradlavého krokodýla","dlouhý plesnivý žebřík","invalidní vozík"
Data "obrovské trafo se šnůrou","lískový oříšek","baterku","hasicí přístroj","láhev vodky","kulečníkovou kouli","zuby","pivo","karnevalovou masku","dřevěnou hůl","pikslu medu","walkmana","zlatou minci","balíček čipsů","AGA Chipy"
Data "motorovou pilu","audio kazetu","střep","roh","kanystr s naftou","počítačovou myš","magneťák","dlouhou šňůru","hrábě","naolejovanou motorovou pilu","dřevěný klínek"
P_Z:
Data "legitimace","kalhoty","malý klíček","užmoulaný papír","místenka na autobus","masivní sekera","monitor k počítači","počítač","roztroušené hřebíky","balík disket","obroský smradlavý krokodýl","dlouhý plesnivý žebřík","invalidní vozík"
Data "obrovské trafo se šnůrou","lískový oříšek","baterka","hasicí přístroj","láhev vodky","kulečníková koule","zuby","pivo","karnevalová maska","dřevěná hůl","piksla medu","walkman","zlatá mince","balíček čipsů","AGA Chipy"
Data "motorová pila","audio kazeta","střep","roh","kanystr s naftou","počítačová myš","magneťák","dlouhá šňůra","hrábě","naolejovaná motorová pila","dřevěný klínek"
P:
Data "leg","kal","klí","pap","mís","sek","mon","poč","hře","dis","kro","žeb","voz","tra","oří","bat","pří","láh","kou","zub","piv","mas","hůl","pik","wal","min","čip","chi","pil","kaz","stř","roh","kan","myš","mag","šňů","hrá","pil","klí"
Rem Tak a tady jsou podmínky místností
MAIN:
Screen 1
If AUT=1 Then AUT=0 : Goto PRYC
If AUT=0 Then AUT=1 : Goto PRYC
PRYC:
S=0 : J=0 : V=0 : Z=0 : N=0 : D=0
If X=4 and Y=0 and ZZ=0 and NEWROOM=0
Restore M1
M=1
Z=1
Gosub VYPIZ
Goto SMER
End If
If X=4 and Y=0 and ZZ=0 and NEWROOM=1
Restore M01
M=1
Z=1
NEWROOM=0
Gosub VYPIZ
Goto SMER
End If
If X=3 and Y=0 and ZZ=0
Restore M2
M=2
J=1
V=1
Z=1
Gosub VYPIZ
Goto SMER
End If
If X=2 and Y=0 and ZZ=0
Restore M3
M=3
V=1
Z=1
Gosub VYPIZ
Goto SMER
End If
If X=3 and Y=1 and ZZ=0 and P(6)=199
Restore M4
M=4
S=1
J=1
V=1
Z=1
Gosub VYPIZ
Goto SMER
End If
If X=3 and Y=1 and ZZ=0 and P(6)<>199
Restore M04
M=4
S=1
V=1
Z=1
Gosub VYPIZ
Goto SMER
End If
If X=2 and Y=1 and ZZ=0
Restore M5
M=5
V=1
Gosub VYPIZ
Goto SMER
End If
If X=4 and Y=1 and ZZ=0
Restore M6
M=6
Z=1
Gosub VYPIZ
Goto SMER
End If
If X=3 and Y=2 and ZZ=0
Restore M7
M=7
S=1
J=1
V=1
Gosub VYPIZ
Goto SMER
End If
If X=4 and Y=2 and ZZ=0 and P(2)<>199
Restore M08
M=8
Gosub VYPIZ
KEY
Goto HOLOGRAM
End If
If X=4 and Y=2 and ZZ=0 and P(2)=199
Restore M8
M=8
Z=1
Gosub VYPIZ
Goto SMER
End If
If X=3 and Y=3 and ZZ=0 and AUT=0
Restore M9
M=9
S=1
J=1
Gosub VYPIZ
Goto SMER
End If
If X=3 and Y=3 and ZZ=0 and AUT=1
Restore M09
M=9
S=1
J=1
Gosub VYPIZ
Goto SMER
End If
If X=3 and Y=4 and ZZ=0
Restore M10
M=10
S=1
J=1
Gosub VYPIZ
Goto SMER
End If
If X=3 and Y=5 and ZZ=0
Restore M11
M=11
S=1
Gosub VYPIZ
Goto SMER
End If
If X=1 and Y=0 and ZZ=0 and P(12)=199
Restore M12
M=12
J=1
V=1
Gosub VYPIZ
Goto SMER
End If
If X=1 and Y=0 and ZZ=0 and P(12)<>199
Restore M012
M=12
V=1
Gosub VYPIZ
Goto SMER
End If
If X=4 and Y=3 and ZZ=0 and AUT=0
Restore M13
M=13
J=1
Gosub VYPIZ
Goto SMER
End If
If X=4 and Y=3 and ZZ=0 and AUT=1
Restore M013
M=13
J=1
Gosub VYPIZ
Goto SMER
End If
If X=4 and Y=4 and ZZ=0
Restore M14
M=14
S=1
V=1
Gosub VYPIZ
Goto SMER
End If
If X=5 and Y=4 and ZZ=0
Restore M15
M=15
S=1
V=1
Z=1
Gosub VYPIZ
Goto SMER
End If
If X=5 and Y=3 and ZZ=0 and P(13)<>16 and P(22)=199
Restore M16
M=16
J=1
Gosub VYPIZ
Goto SMER
End If
If X=5 and Y=3 and ZZ=0 and P(13)<>16 and P(22)<>199
Restore M016
M=16
J=1
Gosub VYPIZ
Goto SMER
End If
If X=5 and Y=3 and ZZ=0 and P(13)=16 and P(22)<>199
Restore M0016
M=16
J=1
Gosub VYPIZ
Goto SMER
End If
If X=6 and Y=4 and ZZ=0
Restore M17
M=17
J=1
V=1
Z=1
Gosub VYPIZ
Goto SMER
End If
If X=6 and Y=5 and ZZ=0
Restore M18
M=18
S=1
J=1
V=1
Z=1
Gosub VYPIZ
Goto SMER
End If
If X=6 and Y=6 and ZZ=0
Restore M19
M=19
S=1
N=1
Gosub VYPIZ
Goto SMER
End If
If X=6 and Y=6 and ZZ=1 and FTIP=1
Restore M20
M=20
D=1
Gosub VYPIZ
Goto SMER
End If
If X=6 and Y=6 and ZZ=1 and FTIP=0
Restore M020
M=20
D=1
FTIP=1
Gosub VYPIZ
Goto SMER
End If
If X=5 and Y=5 and ZZ=0
Restore M21
M=21
V=1
Z=1
Gosub VYPIZ
Goto SMER
End If
If X=4 and Y=5 and ZZ=0
Restore M22
M=22
J=1
V=1
Gosub VYPIZ
Goto SMER
End If
If X=4 and Y=6 and ZZ=0 and P(23)=199
Restore M23
M=23
S=1
V=1
Z=1
Gosub VYPIZ
Goto SMER
End If
If X=4 and Y=6 and ZZ=0 and P(23)<>199
Restore M023
M=23
S=1
V=1
Z=1
Gosub VYPIZ
Goto SMER
End If
If X=5 and Y=6 and ZZ=0
Restore M24
M=24
Z=1
Gosub VYPIZ
Goto SMER
End If
If X=3 and Y=6 and ZZ=0
Restore M25
M=25
V=1
Gosub VYPIZ
Goto SMER
End If
If X=7 and Y=4 and ZZ=0
Restore M26
M=26
S=1
Z=1
Gosub VYPIZ
Goto SMER
End If
If X=7 and Y=3 and ZZ=0
Restore M27
M=27
J=1
Z=1
Gosub VYPIZ
Goto SMER
End If
If X=6 and Y=3 and ZZ=0
Restore M28
M=28
S=1
V=1
Gosub VYPIZ
Goto SMER
End If
If X=7 and Y=2 and ZZ=0
Restore M29
M=29
S=1
Z=1
Gosub VYPIZ
Goto SMER
End If
If X=6 and Y=2 and ZZ=0
Restore M30
M=30
J=1
V=1
Z=1
Gosub VYPIZ
Goto SMER
End If
If X=5 and Y=2 and ZZ=0
Restore M31
M=31
S=1
V=1
Gosub VYPIZ
Goto SMER
End If
If X=5 and Y=1 and ZZ=0
Restore M32
M=32
S=1
J=1
V=1
Gosub VYPIZ
Goto SMER
End If
If X=6 and Y=1 and ZZ=0
Restore M33
M=33
S=1
V=1
Z=1
Gosub VYPIZ
Goto SMER
End If
If X=7 and Y=1 and ZZ=0
Restore M34
M=34
J=1
Z=1
Gosub VYPIZ
Goto SMER
End If
If X=5 and Y=0 and ZZ=0
Restore M35
M=35
J=1
V=1
Gosub VYPIZ
Goto SMER
End If
If X=6 and Y=0 and ZZ=0
Restore M36
M=36
J=1
V=1
Z=1
Gosub VYPIZ
Goto SMER
End If
If X=7 and Y=0 and ZZ=0
Restore M37
M=37
V=1
Z=1
Gosub VYPIZ
Goto SMER
End If
If X=8 and Y=0 and ZZ=0
Restore M38
M=38
J=1
Z=1
Gosub VYPIZ
Goto SMER
End If
If X=8 and Y=1 and ZZ=0 and P(4)=199
Restore M39
M=39
S=1
J=1
Gosub VYPIZ
Goto SMER
End If
If X=8 and Y=1 and ZZ=0 and P(4)<>199
Restore M039
M=39
S=1
J=1
Gosub VYPIZ
Goto SMER
End If
If X=8 and Y=2 and ZZ=0
Restore M40
M=40
S=1
J=1
Gosub VYPIZ
Goto SMER
End If
If X=8 and Y=3 and ZZ=0
Restore M41
M=41
S=1
J=1
Gosub VYPIZ
Goto SMER
End If
If X=8 and Y=4 and ZZ=0
Restore M42
M=42
S=1
V=1
Gosub VYPIZ
Goto SMER
End If
If X=9 and Y=4 and ZZ=0
Restore M43
M=43
S=1
V=1
Z=1
Gosub VYPIZ
Goto SMER
End If
If X=9 and Y=3 and ZZ=0 and VEVERKA=1
Restore M44
M=44
S=1
J=1
Gosub VYPIZ
Goto SMER
End If
If X=9 and Y=3 and ZZ=0 and VEVERKA=0
Restore M044
M=44
J=1
Gosub VYPIZ
Goto SMER
End If
If X=9 and Y=2 and ZZ=0
Restore M45
M=45
J=1
V=1
Gosub VYPIZ
Goto SMER
End If
If X=10 and Y=2 and ZZ=0
Restore M46
M=46
V=1
Z=1
Gosub VYPIZ
Goto SMER
End If
If X=11 and Y=2 and ZZ=0 and P(16)<>47
Restore M47
M=47
Z=1
Gosub VYPIZ
Goto SMER
End If
If X=11 and Y=2 and ZZ=0 and P(16)=47
Restore M047
M=47
Z=1
Gosub VYPIZ
Goto SMER
End If
If X=10 and Y=3 and ZZ=0
Restore M48
M=48
J=1
V=1
Gosub VYPIZ
Goto SMER
End If
If X=11 and Y=3 and ZZ=0 and P(17)=199
Restore M49
M=49
Z=1
Gosub VYPIZ
Goto SMER
End If
If X=11 and Y=3 and ZZ=0 and P(17)<>199
Restore M049
M=49
Z=1
Gosub VYPIZ
Goto SMER
End If
If X=10 and Y=4 and ZZ=0
Restore M50
M=50
S=1
V=1
Z=1
Gosub VYPIZ
Goto SMER
End If
If X=11 and Y=4 and ZZ=0 and P(16)<>200
If P(17)=51 and P(16)<>200
P(17)=0
End If
Restore M51
M=51
Z=1
Gosub VYPIZ
Goto SMER
End If
If X=11 and Y=4 and ZZ=0 and P(16)=200
If P(17)=0
P(17)=51
End If
Restore M051
M=51
Z=1
Gosub VYPIZ
Goto SMER
End If
If X=7 and Y=5 and ZZ=0
Restore M52
M=52
J=1
V=1
Z=1
Gosub VYPIZ
Goto SMER
End If
If X=7 and Y=6 and ZZ=0
Restore M53
M=53
S=1
Gosub VYPIZ
Goto SMER
End If
If X=8 and Y=5 and ZZ=0
Restore M54
M=54
J=1
Z=1
Gosub VYPIZ
Goto SMER
End If
If X=8 and Y=6 and ZZ=0
Restore M55
M=55
S=1
V=1
Gosub VYPIZ
Goto SMER
End If
If X=9 and Y=6 and ZZ=0
Restore M56
M=56
S=1
V=1
Z=1
Gosub VYPIZ
Goto SMER
End If
If X=9 and Y=5 and ZZ=0
Restore M57
M=57
J=1
V=1
Gosub VYPIZ
Goto SMER
End If
If X=10 and Y=5 and ZZ=0 and P(19)=199
Restore M99
M=99
Z=1
Gosub VYPIZ
Goto SMER
End If
If X=10 and Y=5 and ZZ=0 and P(19)<>199
Restore M099
M=99
Z=1
Gosub VYPIZ
Goto SMER
End If
If X=10 and Y=6 and ZZ=0
Restore M58
M=58
V=1
Z=1
Gosub VYPIZ
Goto SMER
End If
If X=11 and Y=6 and ZZ=0
Restore M59
M=59
S=1
V=1
Z=1
D=1
Gosub VYPIZ
Goto SMER
End If
If X=11 and Y=6 and ZZ=-1
Restore M60
M=60
J=1
V=1
N=1
Gosub VYPIZ
Goto SMER
End If
If X=11 and Y=7 and ZZ=-1
Restore M61
M=61
S=1
Gosub VYPIZ
Goto SMER
End If
If X=12 and Y=6 and ZZ=-1
Restore M62
M=62
S=1
Z=1
Gosub VYPIZ
Goto SMER
End If
If X=12 and Y=5 and ZZ=-1
Restore M63
M=63
J=1
Z=1
Gosub VYPIZ
Goto SMER
End If
If X=11 and Y=5 and ZZ=-1
Restore M64
M=64
V=1
Gosub VYPIZ
Goto SMER
End If
If X=12 and Y=6 and ZZ=0 and P(9)=199
Restore M65
M=65
Z=1
Gosub VYPIZ
Goto SMER
End If
If X=12 and Y=6 and ZZ=0 and P(9)<>199
Restore M065
M=65
Z=1
Gosub VYPIZ
Goto SMER
End If
If X=11 and Y=5 and ZZ=0
Restore M66
M=66
J=1
V=1
Gosub VYPIZ
Goto SMER
End If
If X=12 and Y=5 and ZZ=0
Restore M67
M=67
S=1
V=1
Z=1
Gosub VYPIZ
Goto SMER
End If
If X=12 and Y=4 and ZZ=0 and P(28)=199
Restore M68
M=68
J=1
Gosub VYPIZ
Goto SMER
End If
If X=12 and Y=4 and ZZ=0 and P(28)<>199
Restore M068
M=68
J=1
Gosub VYPIZ
Goto SMER
End If
If X=13 and Y=5 and ZZ=0
Restore M69
M=69
S=1
J=1
Z=1
Gosub VYPIZ
Goto SMER
End If
If X=13 and Y=6 and ZZ=0 and P(24)=199
Restore M70
M=70
S=1
V=1
Gosub VYPIZ
Goto SMER
End If
If X=13 and Y=6 and ZZ=0 and P(24)<>199
Restore M070
M=70
S=1
Gosub VYPIZ
Goto SMER
End If
If X=13 and Y=4 and ZZ=0
Restore M71
M=71
J=1
V=1
Gosub VYPIZ
Goto SMER
End If
If X=14 and Y=4 and ZZ=0
Restore M72
M=72
J=1
Z=1
Gosub VYPIZ
Goto SMER
End If
If X=14 and Y=5 and ZZ=0
Restore M73
M=73
S=1
Gosub VYPIZ
Goto SMER
End If
If X=14 and Y=6 and ZZ=0
Restore M74
M=74
V=1
Z=1
Gosub VYPIZ
Goto SMER
End If
If X=15 and Y=6 and ZZ=0 and P(27)=199
Restore M75
M=75
S=1
Z=1
Gosub VYPIZ
Goto SMER
End If
If X=15 and Y=6 and ZZ=0 and P(27)<>199
Restore M075
M=75
Z=1
Gosub VYPIZ
Goto SMER
End If
If X=15 and Y=5 and ZZ=0
Restore M76
M=76
J=1
V=1
Gosub VYPIZ
Goto SMER
End If
If X=16 and Y=5 and ZZ=0 and P(25)=199 and P(20)=199
Restore M77
M=77
S=1
J=1
Z=1
Gosub VYPIZ
Goto SMER
End If
If X=16 and Y=5 and ZZ=0 and P(25)=199 and P(20)<>199
Restore M077
M=77
S=1
J=1
Z=1
Gosub VYPIZ
Goto SMER
End If
If X=16 and Y=5 and ZZ=0 and P(25)<>199 and P(20)<>199
Restore M0077
M=77
S=1
J=1
Z=1
Gosub VYPIZ
Goto SMER
End If
If X=16 and Y=4 and ZZ=0 and P(18)=199
Restore M78
M=78
J=1
Z=1
Gosub VYPIZ
Goto SMER
End If
If X=16 and Y=4 and ZZ=0 and P(18)<>199
Restore M078
M=78
J=1
Gosub VYPIZ
Goto SMER
End If
If X=15 and Y=4 and ZZ=0 and P(37)=199
Restore M79
M=79
S=1
V=1
Gosub VYPIZ
Goto SMER
End If
If X=15 and Y=4 and ZZ=0 and P(37)<>199
Restore M079
M=79
S=1
V=1
Gosub VYPIZ
Goto SMER
End If
If X=16 and Y=6 and ZZ=0 and P(31)=199
Restore M80
M=80
S=1
V=1
Gosub VYPIZ
Goto SMER
End If
If X=16 and Y=6 and ZZ=0 and P(31)<>199
Restore M080
M=80
S=1
Gosub VYPIZ
Goto SMER
End If
If X=17 and Y=6 and ZZ=0
Restore M81
M=81
S=1
Z=1
Gosub VYPIZ
Goto SMER
End If
If X=17 and Y=5 and ZZ=0
Restore M82
M=82
S=1
V=1
J=1
Gosub VYPIZ
Goto SMER
End If
If X=17 and Y=4 and ZZ=0
Restore M83
M=83
J=1
V=1
Gosub VYPIZ
Goto SMER
End If
If X=18 and Y=5 and ZZ=0
Restore M84
M=84
J=1
Z=1
Gosub VYPIZ
Goto SMER
End If
If X=18 and Y=6 and ZZ=0 and P(32)=199
Restore M85
M=85
S=1
Gosub VYPIZ
Goto SMER
End If
If X=18 and Y=6 and ZZ=0 and P(32)<>199
Restore M085
M=85
S=1
Gosub VYPIZ
Goto SMER
End If
If X=18 and Y=4 and ZZ=0 and P(26)=199
Restore M86
M=86
S=1
Z=1
Gosub VYPIZ
Goto SMER
End If
If X=18 and Y=4 and ZZ=0 and P(26)<>199
Restore M086
M=86
Z=1
Gosub VYPIZ
Goto SMER
End If
If X=15 and Y=3 and ZZ=0
Restore M87
M=87
J=1
Z=1
Gosub VYPIZ
Goto SMER
End If
If X=14 and Y=3 and ZZ=0
Restore M88
M=88
V=1
Gosub VYPIZ
Goto SMER
End If
If X=18 and Y=3 and ZZ=0
Restore M89
M=89
S=1
J=1
Z=1
Gosub VYPIZ
Goto SMER
End If
If X=17 and Y=3 and ZZ=0 and CISTERNA=1
Restore M90
M=90
V=1
Z=1
Gosub VYPIZ
Goto SMER
End If
If X=17 and Y=3 and ZZ=0 and CISTERNA=0
Restore M090
M=90
V=1
Gosub VYPIZ
Goto SMER
End If
If X=18 and Y=2 and ZZ=0 and CISTERNA=1
Restore M91
M=91
J=1
Gosub VYPIZ
Goto SMER
End If
If X=18 and Y=2 and ZZ=0 and CISTERNA=0
Restore M091
M=91
J=1
Gosub VYPIZ
Goto SMER
End If
If X=16 and Y=3 and ZZ=0 and P(38)=199 and P(33)=199
Restore M92
M=92
S=1
V=1
Gosub VYPIZ
Goto SMER
End If
If X=16 and Y=3 and ZZ=0 and P(33)=199 and P(38)<>199
Restore M092
M=92
V=1
Gosub VYPIZ
Goto SMER
End If
If X=16 and Y=3 and ZZ=0 and P(33)<>199 and P(38)<>199
Restore M0092
M=92
V=1
Gosub VYPIZ
Goto SMER
End If
If X=16 and Y=2 and ZZ=0
Restore M93
M=93
J=1
Gosub VYPIZ
Goto SMER
End If
If X=1 and Y=1 and ZZ=0 and P(11)=199
Restore M94
M=94
S=1
J=1
Gosub VYPIZ
Goto SMER
End If
If X=1 and Y=1 and ZZ=0 and P(11)<>199
Restore M094
M=94
S=1
J=1
Gosub VYPIZ
Goto SMER
End If
If X=1 and Y=2 and ZZ=0
Restore M95
M=95
S=1
J=1
V=1
Gosub VYPIZ
Goto SMER
End If
If X=1 and Y=3 and ZZ=0
Restore M96
M=96
S=1
Gosub VYPIZ
Goto SMER
End If
If X=2 and Y=2 and ZZ=0
Restore M97
M=97
J=1
Z=1
Gosub VYPIZ
Goto SMER
End If
If X=2 and Y=3 and ZZ=0
Restore M98
M=98
S=1
Gosub VYPIZ
Goto SMER
End If
If X=9 and Y=1 and ZZ=0
Restore M100
M=100
S=1
Gosub VYPIZ
Goto SMER
End If
If X=9 and Y=0 and P(7)=200 and P(8)=200 and P(10)=200 and P(14)=200 and P(34)=200 and P(36)=200 and SIL=1
Goto OUTRO
End If
If X=9 and Y=0
Restore M101
M=101
Gosub VYPIZ
KEY
Goto HOLOGRAM
End If
X=4 : Y=0
Goto SMER
Rem Tady se vodehrává to šílený vobarvení místností
VYPIZ:
If MP=1 Then Return
Do
Pen 1
ZMN=0
Read A$
If A$="-1" Then Exit
Gosub VOBARVI
Loop
Return
Rem Tak a tady vobarvuju textík
VOBARVI:
Print
For R=1 To Len(A$)
Pen 1
If ZMN=100 Then Pen 2
If Mid$(A$,R,1)="@"
Inc R
Pen 2 : Paper 0 : ZMN=100
End If
If Mid$(A$,R,1)=" " and ZMN=100
Pen 1 : Paper 0 : ZMN=0
End If
If Mid$(A$,R,1)="." and ZMN=100
Pen 1 : Paper 0 : ZMN=0
End If
If Mid$(A$,R,1)="," and ZMN=100
Pen 1 : Paper 0 : ZMN=0
End If
If Mid$(A$,R,1)=":" and ZMN=100
Pen 1 : Paper 0 : ZMN=0
End If
If Mid$(A$,R,1)="?" and ZMN=100
Pen 1 : Paper 0 : ZMN=0
End If
If Mid$(A$,R,1)="!" and ZMN=100
Pen 1 : Paper 0 : ZMN=0
End If
If Mid$(A$,R,1)="" and ZMN=100
Pen 1 : Paper 0 : ZMN=0
End If
' If R=>Len(A$) and ZMN=100
' Pen 1 : Paper 0 : ZMN=0
' End If
Print Mid$(A$,R,1);
Next R
Return
M01:
Data " 'Uh! Kde to jsem? A co tu chci?', zařval jsi na celé kolo když ses"
Data "probudil, ale odpovědí ti byla je ozvěna tvého vlastního hlasu odráženého od"
Data "stěn okolních místností. Snažíš se tu rozkoukat a dát si dohromady vzpomínky,"
Data "abys přišel na to, jak ses sem dostal."
Data " Nejprve se ti vrací zrak, no to bude tím, žes otevřel oči. A tak si"
Data "prohlížíš okolí a důvěrně poznáváš svou @ložnici. Na @zrcadle, které je součástí"
Data "nočního stolku, jakási dívčí ruka načmárala něco rtěnkou. @Nápis, ale z postele"
Data "nejde přečíst a tak budeš muset vstát a jít se tam mrknout."
Data " Vidíš také skříň a i když je zavřená, tak z ní vyčuhuje nohavice kalhot, což"
Data "je u tebe normální, protože takhle ty uklízíš své ošacení. Otevřeným @oknem sem"
Data "vniká studený ranní vzduch a spolu se slunečními paprsky dotváří svěží letní"
Data "atmosféru."
Data " 'Dnes bude jistě hezky.', napadlo tě, když jsi konečně vstal z postele a"
Data "rohlížíš se kolem sebe po něčem co by sis vzal na sebe, ale až na tu nohavici"
Data "nic nevidíš."
Data "-1"
M1:
Data "Stojíš uprostřed @ložnice a rohlížíš se kolem sebe, jako bys něco hledal, ale"
Data "právě zapomněl co. Vidíš velikou @postel, která je stále teplá, neb jsi z ní"
Data "před chvílí vstal, dále tu pak je noční @stolek se @zrcadlem, ve kterém"
Data "mimochodem vidíš svou věrnou kopii, která je znetvořená nějakým @nápisem na skle"
Data "zrcadla a tudíž vidíš jen nápis a ne svou kopii. Za tvými zády je také @skříň."
Data "Otevřeným oknem sem proniká svěží vzduch z ulice."
Data "-1"
M2:
Data "Zvesela jsi vstoupil do @obývacího pokoje, ale byla to chyba, protože takový šok"
Data "jsi už dlouho nezažil. Všude kolem tebe je děsivý @nepořádek, který ti hnedka"
Data "popíšu. Na zemi jsou ťápoty od bahna, mezi nimi se povalují rozšlapané čipsy,"
Data "@vajgly od cigaret všech druhů a chutí, to vše je také nalepeno na stěnách a po"
Data "nábytku. V @akváriu stojícího v rohu pokoje na malém stolku je rozbitá sklenka"
Data "od červeného vína, kterým je politý i tvůj zánovní koberec z bílého plyše a"
Data "teďka je na něm veliká rudá skvrna, jako od krve. Na @koberci vidíš zvesela"
Data "poskakovat civilizaci maličkých @breberek, které na tebe dělají dlouhé nosy a"
Data "pitvoří obličeje. No, do smíchu ti moc není. Jen tak mimochodem, řádění toho"
Data "šílence co takhle zlikvidoval pokoj nebyla ušetřena ani velkoplošná @televize"
Data "značky Tesla Trinitron, na které sis pouštěl bezvadná dema, v tej televizi je"
Data "totiž díra jak do kotelny."
Data "-1"
M3:
Data "Vešel jsi do @kuchyně. Tady to vypadá ještě hůřnež v obýváku, ale aspoň tu"
Data "nejsou ti odporní brouci. Odpadkový @koš přímo přetéká @odpadky všeho druhu,"
Data "převažuje v něm spíš živý biologický odpad, tedy @plísně a @slimáci. Kromě"
Data "plného @dřezu, kde je neumyté @nádobí alespoň od minulých vánoc, tu jsou dveře na"
Data "balkón, ze kterého je pěkný výhled na sousedovu zahradu."
Data "-1"
M04:
Data "BAROOOM!"
Data "Narazil jsi hlavou do zamčených @dveří, které jsou na chodbě a oddělují vnější"
Data "svět s vnitřním, tedy tvým. Jinak se odtud můžeš vydat do koupelny nebo na"
Data "záchod."
Data "-1"
M4:
Data "Stojíš v troskách @dveří svého bytu a divíš se proč se po stodvaceti ranách"
Data "sekerou rozpadly na kousky. Dnešní dřevo není asi moc kvalitní a taky"
Data "červotoči dokáží své, ale najednu stranu alespoň nemusíš chodit otevírat"
Data "návštěvám, napadlo tě. Můžeš se taky skočit podívat na záchod a do koupelny a"
Data "nebo konečně už vypadnout z tohohle baráku někam ven."
Data "-1"
M5:
Data "Vešel jsi na záchod, je to tu docela útulné, ale chybí tu toaletní papír, takže"
Data "tady asi svou potřebu nevykonáš. Díváš se směrem k @míse nad kterou se pohupuje"
Data "ve větru @splachovadlo sem a tam. Cože? Kde se tu vzal @vítr? Jo, aha už vím"
Data "to bude tím že tu nemáš střechu. Tu ti vzala velká voda loni v srpnu. Na"
Data "jedné ze zdí je něco @napsáno černým lihovým fixem."
Data "-1"
M6:
Data "Postáváš na vykachlíkované podlaze koupelny, podlaha je tu velice kluzká, tak"
Data "dávej pozor, abys neuklouzl a nezranil se mi hned na začátku hry. Je tu"
Data "@umyvadlo a @vana, která je až po okraj plná studené a taky smradlavé vody."
Data "-1"
M7:
Data "Jdeš po ulici. Je to dlouhá nekonečná @ulice vedoucí neznámo kam, lemují ji"
Data "přeplněné popelnice, poněvadž zde popelářské vozy nejezdí, respektive se sem"
Data "nedostanou přes zákopy, které jsi vykopal, když jste si kamarádem hráli Lost"
Data "patrol a stříleli vzduchovkou a vodní pistolí do vietnamských spoluobčanů."
Data "Nicméně zde jedno popelářské auto zastavilo a z něho vystoupil @popelář, který"
Data "ti nápadně někoho připomíná a začal vysypávat popelnice do vozu."
Data "-1"
M08:
Data "Zvesela si to vykračuješ ulicí k mohutnému košatému stromu. Pod tím stromem"
Data "postává policista a zabývá se ochranou veřejného pořádku. Jakmile tě policajt"
Data "spatřil, tak se na tebe vrhl a brutálně ti nasadil pouta. Obvinil tě z"
Data "veřejného pohoršení, protože jsi se doma zapomněl obléknout a potuloval ses po"
Data "městě úplně nahý. V base si pobudeš pěkně dlouho a tak tě určitě zajde chuť,"
Data "jezdit na nějakou šílenou alkoholickou párty do Brna."
Data "-1"
M8:
Data "Jdeš ulicí a vesele si pohvizduješ, ulice končí u velikánského @stromu, jehož"
Data "kořeny raší přímo z asfaltu ulice. Pod košatou korunou stromu postává"
Data "@policista a pohrává si s obuškem. Za policistou je hluboký @příkop, takže by"
Data "stačílo jen strčit a bylo by po problémech."
Data "-1"
M9:
Data "Procházíš po chodníku dlouhou ulicí, kolem stojí v řadách rodinné domky."
Data "Kousek před tebou se nachází autobusová @zastávka, respektive cedule vyznačující"
Data "zastávku městské hromadné dopravy. Na ceduli je také nalepený jízdní @řád."
Data "Ulice pokračuje ke @křižovatce."
Data "-1"
'A teďka znova místnost.
M09:
Data "Procházíš po chodníku dlouhou ulicí, kolem stojí v řadách rodinné domky."
Data "Kousek před tebou se nachází autobusová @zastávka, respektive cedule vyznačující"
Data "zastávku městské hromadné dopravy. Na ceduli je také nalepený jízdní @řád. U"
Data "chodníku zastávky stojí přeplněný @autobus městské hromadné dopravy. Ulice dále"
Data "pokračuje ke @křižovatce."
Data "-1"
M10:
Data "Stojíš uprostřed křižovatky. Rozhlížíš se kolem sebe a rozmejšlíš se kam se"
Data "vydat, abys to měl jednodušší tak ti trochu pomohu. Na jihu pokračuje ulice k"
Data "jakési tajemné @stavbě. Na východní straně je drátěný @plot protínající silnici."
Data "Na plotě se tu a onde objeví malá zářivá jiskřička. Na západě asi taky"
Data "nepochodíš, protože za křižovatkou je @most a ten je poněkud rozbořený a tak se"
Data "bohužel přes něj nedostaneš, leda, že bys ten most nějak opravil."
Data "-1"
M11:
Data "Tak a tady ta ulice znenadání končí. To znamená, že je to slepá ullce."
Data "Naproti je ta podivná stavba s jedním velkým @oknem, do kterého se mužeš"
Data "mrknout, abys zjistil co a jak."
Data "-1"
M012:
Data "A jejda, tys vyšel taky po deseti letech na čerstvý @vzduch. Stojíš na balkóně"
Data "své skromné vily a rozhlížíš se po krajině. Jediný výhled je však na sousedovu"
Data "@zahradu a na silnici vinoucí se až k horizontu, kde se tyčí do závratných výšin"
Data "tovární komíny Poldi Kladno. Pod balkónem je tvá maličká, neudržovaná zahrádka"
Data "se skleníkem."
Data "-1"
M12:
Data "Postáváš na balkóně svého skromného obydlí a přemýšlíš, zdalipak máš slézt dolů"
Data "do zahrady po žebříku, který sis tak pracně připravil. Ale já bych to moc"
Data "nezkoušel, protože jsi nešika a mohl bys spadnout a natlouci si svou šišatou"
Data "retardovanou kebulku a kdo by to pak dohrál, když ne ty? No zkusit to můžeš,"
Data "za to přeci nic nedáš, akorát spadneš do @růží, ale ty jsou přeci měkké a kdyby"
Data "ses jim náhodou při svém pádu vyhnul, tak je tu ještě @skleník."
Data "-1"
M13:
Data "Stojíš na @ulici a pozoruješ dění okolo sebe, respektive nic, protože se tu"
Data "vůbec nic neděje. Nedaleko se nachází zastávka MHD s malým přístřeškem, který"
Data "má chránit cestující, když čekají na svou linku před větrem a deštěm. Budka má"
Data "jen jednu @stěnu a ta je polepena různými @plakáty a ty jsou zase počmárané od"
Data "vandalů. V budce je @lavička, která toho má už dost za sebou."
Data "-1"
M013:
Data "Stojíš na @ulici a pozoruješ dění okolo sebe, respektive nic, protože se tu"
Data "vůbec nic neděje. Nedaleko se nachází zastávka MHD s malým přístřeškem, který"
Data "má chránit cestující, když čekají na svou linku před větrem a deštěm. Budka má"
Data "jen jednu @stěnu a ta je polepena různými @plakáty a ty jsou zase počmárané od"
Data "vandalů. V budce je @lavička, která toho má už dost za sebou."
Data " Ze zatáčky se vyřítil strašlivou rychlostí @autobus MHD a se skřípěním brzd"
Data "zastavil u zastávky. Dveře se otevřely a znich vypadlo několik cestujících na"
Data "zem. Řidič autobusu čeká až nastoupíš, vypadá poněkud netrpělivě."
Data "-1"
M14:
Data "Stojíš na kladenském autobusovém @nádraží. Vpravo od tebe stojí @autobus, který"
Data "jede směrem ku Praze. U autobusu je namačkáno plno lidí, kteří se do něj snaží"
Data "dostat, neb jak je všeobecně známo, je to jediný autobus, který jede do Prahy"
Data "za celý týden. Ta horda @lidí se cpe do vozu i střechou a to protože jsou dnes"
Data "v Praze přebory ve vexlování, eh tedy ve veslování a tak to nesmí nikomu ujít."
Data "Vidíš i ty jedince, kteří si s sebou berou pádla a jimi pak schazují své méně"
Data "schopné spoluobčany dolů ze schodů vozu. No, je to postě příšerný pohled, co"
Data "kdybys zjednal pořádek?"
Data "-1"
M15:
Data "Jdeš @silnicí, která se stáčí k obrovskému obchodnímu @středisku. Napravo je"
Data "hnusný, poblitý @příkop plný sraček, jo tak to mi připomíná situaci, když jsem"
Data "se vožral jako prase a spadnul do něčeho takového a málem se utopil. Tenkrát"
Data "si mě natočili na kameru a já vypadal jako Jožin z Bažin."
Data "-1"
M0016:
Data "Jsi před obrovským obchodním @střediskem, bohužel mají jako obvykle zavříno,"
Data "protože se jim zase propadla střecha. Chceš se mrknout do @restaurace pro celou"
Data "rodinu Mc Donald's, ale tam je taky zavříno, takže tahle místnost je úplně k"
Data "ničemu. @Silnice tu končí a tak se už asi dál nedostaneš."
Data "-1"
M016:
Data "Jsi před obrovským obchodním @střediskem, bohužel mají jako obvykle zavříno,"
Data "protože se jim zase propadla střecha. Chceš se mrknout do @restaurace pro celou"
Data "rodinu Mc Donald's, ale tam je taky zavříno, takže tahle místnost je úplně k"
Data "ničemu. @Silnice tu končí a tak se už asi dál nedostaneš."
Data " Před dveřmi obchoďáku stojí nějaká @stařenka a trváří se jako, že nic. Asi je"
Data "pohádková a mohla by ti splnit nějaké to přání. Moc se ti líbí její hůl, o"
Data "kterou se huděra opírá."
Data "-1"
M16:
Data "Jsi před obrovským obchodním @střediskem, bohužel mají jako obvykle zavříno,"
Data "protože se jim zase propadla střecha. Chceš se mrknout do @restaurace pro celou"
Data "rodinu Mc Donald's, ale tam je taky zavříno, takže tahle místnost je úplně k"
Data "ničemu. @Silnice tu končí a tak se už asi dál nedostaneš."
Data "-1"
M17:
Data "Cha, cha, cha, cha, cháááááá. Spadnul jsi do @příkopu plného sraček. Teďka"
Data "opradu vypadáš nemožně. A ještě ke všemu sis poranil hlavu a v uších ti zní"
Data "melodie ze hry Jet Set Willy z osmibitového Atari, mimochodem bych ho koupil"
Data "asi tak za pět stovek, ale musí bejt k němu textovka Ataristův protiútok,"
Data "prodejci mohou telefonavat na kladenské @číslo 83727. No, nic se ti však"
Data "nestalo a tak chceš pokračovat dál ve své drsné cestě, která tě zavede do"
Data "pichlavých ostružin."
Data "-1"
M18:
Data "Jdeš malou lesní pěšinkou, která se rozděluje v maličkaté rozcestí. Kolem jsou"
Data "@stromy a spouta kytiček, kapradinek a ptáčků. Na jihu je rozcestí a na něm"
Data "vysoký strom v jehož koruně je možno zahlédnout @hnízdo nějakého megaptáka."
Data "-1"
M19:
Data "Procházíš malou pasekou, nikde není vidět nějaký orientační bod a tak jsi"
Data "strašně znechucený svou strastiplnou cestou a myslíš si, žes zabloudil a chceš"
Data "se na všechno vykašlat. Najednou jakoby nic se před tebou znenadání objevil"
Data "vysoký @strom. Na stromě je možno spatřit hnízdečko nějakého @ptáčka. Ten"
Data "ptáček krouží nad stromem a hledá něco malého pikantního k snědku."
Data "-1"
M020:
Data "Začal jsi tedy šplhat na strom. Po několika hodinách s vypětím všech sil jsi"
Data "se konečně dostal do koruny stromu, kde visíš ve větvích a co nevidět spadneš"
Data "dolů. Ve větvích je přivařeno autogenem ocelové hnízdo megaptáka Mozkodlabáka."
Data " Tak to mi připomnělo jeden bezva vtip, sice je starej, ale furt dobrej:"
Data "Takhle jednou jde Jeníček s Mařenkou po lese a jako nemůžou najít tu Perníkovou"
Data "chaloupku. A Jeník tedy povídá Mařce: 'Hele tady lítá pták Mozkodlabák a"
Data "dlabe holčičkám mozečky.'"
Data " 'A jak se proti němu můžu ubránit?', ptá se Mařena."
Data " 'Ále, je to jednoduchý, stačí když schováš hlavu do země a vystrčíš nahou"
Data "prdelku.', Jenda na to."
Data " 'Bacha, už ho slyším.', vykřikl pohotově Jeník. Mařenka se tedy svlíkla a"
Data "schovala hlavu pod jehličí. Když to viděl Jenda, tak obnažil své mužství a"
Data "začal ji šoustat."
Data " Mařenka povídá: 'Jen si dlabej ptáčku Mozkodlabáčku na mozeček se mi stejně"
Data "nedostaneš!'"
Data " No a to byl konec ftipu. Jestli vás z něj bolí hlava, tak si do ní nacpěte"
Data "pár alnagonů, neb budou následovat další."
Data "-1"
M20:
Data "Visíš ve @větvích stromu a pevně se držíš, abys nespadlo dolů. Větve se houpou"
Data "v prudkých poryvech větru, který způsobuje svými mohutnými křídly mega @ptáček."
Data "Na jedné větvi je přivařeno autogenem ocelové @hnízdečko toho maličkýho ptáčka."
Data "V hnízdečku je mega vajíčko."
Data "-1"
M21:
Data "Doplácal jsi se až k jakémusi @plotu, který ohraničuje záhadami opředenou"
Data "budovu. Kolem tebe je pěkná travička s několika @krtinami. Mimochodem na tom"
Data "plotě jsou tu a tam vidět roztomilé jiskřičky, že by vánoce? Ne, ale vánoce"
Data "budou pro tebe až se toho plotu dotkneš."
Data "-1"
M22:
Data "Stojíš uprostřed @díry v plotě a rozmejšlýš si co podnikneš dál. V jinech"
Data "textovkách se musejí nebozí hráči plotem proštípat, ale v mejch mohou projít."
Data "No nejni to jůzr frendli? Dírou se můžeš dostat do areálu té podivné budovy."
Data "Ale moc bych tam nechodil, protože je to tam docela nebezpečný."
Data "-1"
M023:
Data "Tajemstvím a záhadami opředená @budova. Respektive její @jídelna. U jednoho z"
Data "mnoha stolů sedí naproti sobě dva @důchodci a perou se o digitální hru. @Hra je"
Data "pokračování slavných ruských vajíček. Tentokrát tu vlk chytá vajíčka do"
Data "košíčku. Dědci jsou tak zabráni do hry, že si ani nevšimli, že tu stojíš."
Data "-1"
M23:
Data "Jsi v @jídelně domova důchodců. Na zemi v krvi leží jeden @důchodce bez zubů a"
Data "druhý si poklepává holí, kterou vyhrál v souboji a hraje digitální hru Nu"
Data "pagadi II (český překlad: Jen počej II)."
Data "-1"
M24:
Data "Jdeš chodbou, která vede k pokojům, kde se momentálně dočasně nachází většina"
Data "chovanců tohoto ústavu. Zpoza @dveří se ozývají nepopsatelné zvuky a pazvuky."
Data "Docela by tě zajímalo co je za všemi dveřmi pokojů, ale jsou zavřené a co"
Data "kdybys je otevřel? Vedle tebe je prastará @lednice, která snad ještě možná"
Data "funguje."
Data "-1"
M25:
Data "Opatrně jsi vstoupil do pokoje, který sousedí s jídelnou. Vidíš tu jen dvě"
Data "postele a stolek se židličkama. Po pokoji pobíhají dva @dědci, jako by si na"
Data "něco hráli. Velikým oknem je venku vidět most a silnici."
Data "-1"
M26:
Data "No a teď jsi zapadl po pás do @ostružiní, ale naštěstí je prořídlé a tak jsi se"
Data "ani moc nepopíchal. Další cesta povede do příkopu, nebo do lesa opředeného"
Data "temnými legendami a strašidelnými historkami. Kampak asi půjdeš?"
Data "-1"
M27:
Data "Bloudíš temným, radioaktivním a strašidelným @lesem, je to na první pohled"
Data "poznat, protože z okolních stromů vyzařuje strach. V tomto lese se už stalo"
Data "nespočet brutálních vražd a zločinů. Příšerně prudký @vítr šumí v korunách"
Data "temných @stromů, až je ti z toho zle."
Data "-1"
M28:
Data "Bloudíš temným, radioaktivním a strašidelným @lesem, je to na první pohled"
Data "poznat, protože z okolních stromů vyzařuje strach. V tomto lese se už stalo"
Data "nespočet brutálních vražd a zločinů. Příšerně prudký @vítr šumí v korunách"
Data "temných @stromů, až je ti z toho zle."
Data "-1"
M29:
Data "Bloudíš temným, radioaktivním a strašidelným @lesem, je to na první pohled"
Data "poznat, protože z okolních stromů vyzařuje strach. V tomto lese se už stalo"
Data "nespočet brutálních vražd a zločinů. Příšerně prudký @vítr šumí v korunách"
Data "temných @stromů, až je ti z toho zle."
Data "-1"
M30:
Data "Bloudíš temným, radioaktivním a strašidelným @lesem, je to na první pohled"
Data "poznat, protože z okolních stromů vyzařuje strach. V tomto lese se už stalo"
Data "nespočet brutálních vražd a zločinů. Příšerně prudký @vítr šumí v korunách"
Data "temných @stromů, až je ti z toho zle."
Data "-1"
M31:
Data "Bloudíš temným, radioaktivním a strašidelným @lesem, je to na první pohled"
Data "poznat, protože z okolních stromů vyzařuje strach. V tomto lese se už stalo"
Data "nespočet brutálních vražd a zločinů. Příšerně prudký @vítr šumí v korunách"
Data "temných @stromů, až je ti z toho zle."
Data "-1"
M32:
Data "Bloudíš temným, radioaktivním a strašidelným @lesem, je to na první pohled"
Data "poznat, protože z okolních stromů vyzařuje strach. V tomto lese se už stalo"
Data "nespočet brutálních vražd a zločinů. Příšerně prudký @vítr šumí v korunách"
Data "temných @stromů, až je ti z toho zle."
Data "-1"
M33:
Data "Bloudíš temným, radioaktivním a strašidelným @lesem, je to na první pohled"
Data "poznat, protože z okolních stromů vyzařuje strach. V tomto lese se už stalo"
Data "nespočet brutálních vražd a zločinů. Příšerně prudký @vítr šumí v korunách"
Data "temných @stromů, až je ti z toho zle."
Data "-1"
M34:
Data "Bloudíš temným, radioaktivním a strašidelným @lesem, je to na první pohled"
Data "poznat, protože z okolních stromů vyzařuje strach. V tomto lese se už stalo"
Data "nespočet brutálních vražd a zločinů. Příšerně prudký @vítr šumí v korunách"
Data "temných @stromů, až je ti z toho zle."
Data "-1"
M35:
Data "Bloudíš temným, radioaktivním a strašidelným @lesem, je to na první pohled"
Data "poznat, protože z okolních stromů vyzařuje strach. V tomto lese se už stalo"
Data "nespočet brutálních vražd a zločinů. Příšerně prudký @vítr šumí v korunách"
Data "temných @stromů, až je ti z toho zle."
Data "-1"
M36:
Data "Bloudíš temným, radioaktivním a strašidelným @lesem, je to na první pohled"
Data "poznat, protože z okolních stromů vyzařuje strach. V tomto lese se už stalo"
Data "nespočet brutálních vražd a zločinů. Příšerně prudký @vítr šumí v korunách"
Data "temných @stromů, až je ti z toho zle."
Data "-1"
M37:
Data "Bloudíš temným, radioaktivním a strašidelným @lesem, je to na první pohled"
Data "poznat, protože z okolních stromů vyzařuje strach. V tomto lese se už stalo"
Data "nespočet brutálních vražd a zločinů. Příšerně prudký @vítr šumí v korunách"
Data "temných @stromů, až je ti z toho zle."
Data "-1"
M38:
Data "Bloudíš temným, radioaktivním a strašidelným @lesem, je to na první pohled"
Data "poznat, protože z okolních stromů vyzařuje strach. V tomto lese se už stalo"
Data "nespočet brutálních vražd a zločinů. Příšerně prudký @vítr šumí v korunách"
Data "temných @stromů, až je ti z toho zle."
Data "-1"
M039:
Data "Z temného lesa jsi vstoupil do @mlhou zahalené mýtiny. Mlha je tak hustá, že"
Data "není vidět na krok. Málem jsi zakopl o @táborák, který si to vesele plápolá do"
Data "temnot mlhy. U táboráku sedí divná @postavička, která si hraje s @krabičkou na"
Data "provázku. Točí si tou krabičkou nad hlavou a vhazuje ji do ohně táboráku, zase"
Data "ji očouzenou vytahuje a znovu ji vhazuje do ohně. Postavička se tváří vcelku"
Data "spokojeně a zdá se, že jí nic nechybí."
Data "-1"
M39:
Data "Z temného lesa jsi vstoupil do @mlhou zahalené mýtiny. Mlha je tak hustá, že"
Data "není vidět na krok. Málem jsi zakopl o @táborák, který si to vesele plápolá do"
Data "temnot mlhy. Oblaka dýmu stoupají k obloze a tebe napadla jediný myšlenka a"
Data "to, že by stálo za to ten oheň @uhasit, ale jak?"
Data "-1"
M40:
Data "Bloudíš temným, radioaktivním a strašidelným @lesem, je to na první pohled"
Data "poznat, protože z okolních stromů vyzařuje strach. V tomto lese se už stalo"
Data "nespočet brutálních vražd a zločinů. Příšerně prudký @vítr šumí v korunách"
Data "temných @stromů, až je ti z toho zle."
Data "-1"
M41:
Data "Bloudíš temným, radioaktivním a strašidelným @lesem, je to na první pohled"
Data "poznat, protože z okolních stromů vyzařuje strach. V tomto lese se už stalo"
Data "nespočet brutálních vražd a zločinů. Příšerně prudký @vítr šumí v korunách"
Data "temných @stromů, až je ti z toho zle."
Data "-1"
M42:
Data "Bloudíš temným, radioaktivním a strašidelným @lesem, je to na první pohled"
Data "poznat, protože z okolních stromů vyzařuje strach. V tomto lese se už stalo"
Data "nespočet brutálních vražd a zločinů. Příšerně prudký @vítr šumí v korunách"
Data "temných @stromů, až je ti z toho zle."
Data "-1"
M43:
Data "Stojíš na strašidelném rozcestí ve strašidelném @lese. Na jednom ze stromů je"
Data "připevněna obrovská informační @tabule s ukazateli směru cesty. První s nápisem"
Data "'Na severu je zmutovaná veverka!' ukazuje jižním směrem. Druhý s rudým nápisem"
Data "'Airport' směřuje k severovýchodu. A třetí zlomený ukazatel ukazuje zpět do"
Data "lesa a je na něm napsáno: 'Pozor na Vaška Koulu!'."
Data "-1"
M044:
Data "Jdeš si lesní @cestou. Najednou před tebe vyhopkala nějaká hnusně přerostlá"
Data "@veverka, která se dožaduje oříšku. Ta veverka ti nápadně připomíná Jofu, ale i"
Data "kdyby to byl Jofa, tak je tu i Trixie, takže tu budou asi i dvě veverky. Dej"
Data "si pozor vypadá nenažraně, z jejích monstrózních bílých tesáků odkapává"
Data "@kečup..."
Data "-1"
M44:
Data "Lesní cesta vedoucí neznámo kam, ale co naplat, teď jsi tady a tak i popis"
Data "místnosti je tady a ne tam, takže tady je @les, @stromy, veverčí @bobky a @telefon,"
Data "ohó co to melu tady, žádnej telefon není, ten je trošku dál."
Data "-1"
M45:
Data "Zase je tu ta prokletá lesní @cesta. Není tu nic zajímavého, eh, tedy až na"
Data "mrtvolu obrovské @veverky, která leží v kaluži krve uprostřed cesty. Je to ta"
Data "veverka, která ti ukradla balík disket. Dobře jí tak, že je mrtvá, nemá krást."
Data "-1"
M46:
Data "Procházíš se na @poli, které je zatím nezorané. Pomalu, ale jistě se blížíš k"
Data "@silnici, která zdánlivě nikam nevede. Již zdálky vidíš obrovskou dřevěnou"
Data "@tabuli, copak na ní je asi napsáno, napadlo tě."
Data "-1"
M047:
Data "Došel jsi až k té podivné tabuli, ale to není obyčejná tabule, to je @billboard"
Data "s nějakou stupidní reklamou. Málem bych zapoměl, tabuli ozařuje baterka, takže"
Data "vzniká dojem velkoleposti."
Data "-1"
M47:
Data "Došel jsi až k té podivné tabuli, ale to není obyčejná tabule, to je @billboard"
Data "s nějakou stupidní reklamou."
Data "-1"
M48:
Data "Stále ještě hraješ? Vykašli se na to, já ti radím dobře. Stejnak to nejde"
Data "dohrát. No dobře tak tady je popis místnosti. Zase ta @plocha, ale kousek od"
Data "tebe ji přerušuje podivná @brázda, která pokračuje východním směrem. Tam je"
Data "také vidět stoupající oblak černého @dýmu a dvě @postavy jak debilně poskakují u"
Data "nějakého divného létajícího @stroje."
Data "-1"
M049:
Data "Brázdou, kterou vyrylo ne zrovna měkké přistání létajícího objektu jsi došel až"
Data "ke zdroji černého dýmu, který se zvedá k nebesům. Přes mraka @dýmu rozpoznáváš"
Data "jen dvě @postavičky a létající stroj. Postavičky se snaží uhasit @požár palivové"
Data "nádrže toho divného @stroje."
Data "-1"
M49:
Data "Stojíš u vraku kosmické lodi. Dým, který způsobil požár se už částečně"
Data "rozptýlil. U vraku postávají dvě @postavičky a neustále ti děkují, žes jim"
Data "pomohl uhasit ten oheň. Vrak lodi nevypadá, že by byl někdy schopen provozu,"
Data "takže ses o něj přestal zajímat, což je škoda."
Data " Mimochodem, pokud byste snad někdo chtěl grafiku do střílečky, tak se mi"
Data "vozvěte, protože veškerá data k tejto gamese mám a jsou vám plně k dispozici,"
Data "protože Crankovi a Denetronovi jsou na nic."
Data "-1"
M50:
Data " Dospěl jsi k názoru, že takové nudné chození sem a tam tě už vyloženě nebaví"
Data "a tak už přestaň hrát nějaké stupidní hry a jdi se radši proběhnout ven, nebo"
Data "se alespoň někam pořádně ožrat."
Data " Ale teď vážně. Jsi na nějaké hnusné travnaté @ploše nebo spíš přistávací"
Data "dráze. Na východě stojí obrovská budova @hangáru. Zdá se tedy, že se nacházíš"
Data "na nějakém polním letišti, ale kde jsou sakryš letadla?"
Data "-1"
M051:
Data "Vstoupil jsi do mohutných vrat hangáru. Ještě štěstí, že máš baterku a tak"
Data "můžeš vnitřek hangáru důkladně prozkoumat. Nic tu není, tedy až na několik"
Data "hasicích @přístrojů, které jsou připevněny k jedné ze stěn."
Data "-1"
M51:
Data "Grrr. Tady je tma jak v pytli. Stojíš v @hangáru a rozhlížíš se kolem sebe,"
Data "jenže je tu taková tma, že není vůbec nic vidět. Ale i kdyby tu bylo nějaké to"
Data "světlo, tak tu nic nejni, protože jsem sem nenaprogramoval vůbec nic. A"
Data "nezkoušej si tu nějak posvítit."
Data "-1"
M52:
Data "Zvesela si to vykračuješ lesní @pěšinou a tvůj zrak upoutala lákavá @cedule"
Data "zvoucí k návštěvě lesní restaurace. Jéééé! Tam se třeba pěkně vožereš a"
Data "přestaneš už konečně hrát tuhle bláznivou hru. A nebo se tam vlastně"
Data "nevožereš, protože tam chlast jaksi nemaj."
Data "-1"
M53:
Data "Vešel jsi do lesní @hospody, která se jmenuje 'Perníková chaloupka lesní pub'."
Data "Nad dveřmi visí nápis: Pivo nám bohužel došlo a tvrdej vypila banda notoriků"
Data "od Píč!"
Data " Celá hospoda je prázdná až na jeden @stůl a u něj sedí nějaký @alkoholik a"
Data "nožem rejpe něco do stolu. @Výčep je asi prázdný, což usuzuješ podle toho, že"
Data "za ním hospodský nestojí. Co kdybys mu tady něco šlohnul a pak mu to prodal?"
Data "Asi ne viď, ty jsi přece poctivý a slušný chlapec."
Data "-1"
M54:
Data "Jsi na okraji nějakého @sídliště. Kolem tebe se do ohromných výšin tyčí spousta"
Data "výškových budov. Na západě se rozprostírá tajemný les a na jihu je vidět"
Data "jakási prapodivná ulice. Na střeše jedné z výškových budov svítí rudý neonový"
Data "@nápis."
Data "-1"
M55:
Data "Procházíš se zcela určitě civilizovanými končinami, v tom tě úplně utvrzuje"
Data "@kravál, jenž je snad slyšet opravdu všude. A hele v tejhle @ulici bydlí myslím"
Data "Hologram, nejsem si zcela jist, neboť se mi to tu dosti plete."
Data "-1"
M56:
Data "Stojíš napůl ukrytý v @křoví, které roste u chodníku před @stavbou, ze které se"
Data "ozývá ten hnusnej @kravál. Vzdáleně ti to připomíná hudbu, ale nejsem si jistý,"
Data "takovou hudbu snad dělá jen populární muzikant od Agony dr. Walter, mimochodem"
Data "jeho poslední modul jste mohli slyšet ve staré verzi hry, teďka tu prostě hraje"
Data "něco jinýho, protože to byl docela vopruz."
Data "-1"
M57:
Data "Nesměle postáváš za @barem v tej stafbě, ale nikdo tu není, to kvůli tomu"
Data "@kraválu, všude kolem je odporný cigaretový zatuchlý kouř a strašidelnou"
Data "atmosféru dokresluje @pentagram jež visí nad barem a vše dokreslují svíčky,"
Data "které zde vytváří přímo horrrrorovou scénu. Jo kdyby tu hrál Sedloň tak je tu"
Data "pěkně natřísknuto. Vidíš jen nějaké @postavy vzádu u kulečníku."
Data "-1"
M099:
Data "Doslova ses prokousal cigaretovým kouřem a dostal ses do kulečníkového @sálu."
Data "Na kulečníkovém stole sedí nějaký hezký blonďatý @chlapec s vazelínou na hlavě,"
Data "eh gelem a ustavičně pláče. Na druhém konci sálu sedí jedno podivné @individuum"
Data "a vydává ten odporný kravál. On je snad magor? Jak může na to rozladěný piáno"
Data "hrát tu hnusnou melodii pořád dokola?"
Data "-1"
M99:
Data "Kulečníkový @sál. Kulečník tu hraje takový hezký @chlapeček a tváří se vcelku"
Data "spokojeně. U piána vysedává nějaké @individuum a dokola vyhrává nějakou"
Data "stupidní melodii, z čehož se ti chce děsně blít."
Data "-1"
M58:
Data "A zase jako obvykle jsi na @ulici a to je dobře, neboť ti svěží smog dělá moc"
Data "dobře na plíce. Ulice lemují rozkvetlé @stromy, které vytváří alej končící na"
Data "@křižovatce, jejíž hlavní dominantou je otevřený @kanál vedoucí do kladenského"
Data "podsvětí ."
Data "-1"
M59:
Data "@Křižovatka. Vidíš pomrkávat jeden @semafor, který tu zbyl po nájezdech"
Data "podnapilých řidičů, pomrkává pouze oranžovým světlem, silně ti to připomíná"
Data "guru, které vídáš tak často na tvém počítači. Uprostřed křižovatky se vynořuje"
Data "již dlouhá léta otevřený @kanál, zamořující celé okolí svým smradem."
Data "-1"
M60:
Data "VŽUM! Spadnuls do @hoven, děsně smrdíš, no fuj! Jestli se okamžitě neumeješ"
Data "tak se ti na všechno vykašlu. Je to docela sranda, tě takhle pozorovat, jak si"
Data "počínáš v mé těžké hře. V těch hovnech stojíš pěkně po pás a pevně se držíš"
Data "žebříku, který vede ven z kanalizace."
Data "-1"
M61:
Data "Došel jsi až na jižní konec kanálu, je tu obrovská @mříž, kterou se dál"
Data "nedostaneš. Špinavá voda protéká mříží do temnot kanalizace kolem malého"
Data "@výstupku ve zdi, který je na druhé straně mříže."
Data "-1"
M62:
Data "Pomalu postupuješ tou zasmrádlou stokou. Tunel se klikatí sem a tam, je tu"
Data "celkem vidět, protože světlo sem proniká mezi mřížemi kanalizačních vstupů."
Data "Kromě smradu a nechutné břečky, která ti protéká mezi nohama tu nic není."
Data "-1"
M63:
Data "Pořád jdeš tunelem kanálu, ze západu se ozývá @pištění nějakých myší, nebo"
Data "něčeho takového. Snad ti to k něčemu bude, ale mně ani ne. To pištění je"
Data "nesnesitelný, už abys byl z toho hnusu venku."
Data "-1"
M64:
Data "Došel jsi zase k nějaké mříži, takže cesta dál už asi nepovede. Ten kanál tady"
Data "vypadá jako nějaká menší místnost či co. Je celkem zajímavý, že tu nejni ta"
Data "břečka, kterou je zaplněna celá stoka. Mezi nohama ti vesele pobíhají"
Data "ochodčené @krysy a dožadují se něčeho malého a třpytivého, že bys jim něco"
Data "hodil?"
Data "-1"
M65:
Data "Dostal ses do slepé @ulice, která nikde nekončí, respektive to tak vypadá."
Data "Všude kolem je opravdu pekelnej @bordel, @zdi jsou postříkané sprejem, @okna"
Data "rozmlácená, vidíš i chcíplé krysy. Je to tu jako po atomové válce..."
Data "-1"
M065:
Data "Dostal ses do slepé @ulice, která nikde nekončí, respektive to tak vypadá."
Data "Všude kolem je opravdu pekelnej @bordel, @zdi jsou postříkané sprejem, @okna"
Data "rozmlácená, vidíš i chcíplé krysy. Před tebou stojí nějaký @chlápek v"
Data "pruhovaném svetru a s kloboukem na hlavě."
Data "-1"
M66:
Data "Stojíš před @bránou místní ZOO. Nikdo tady není, takže z toho plyne, že hlídače"
Data "buď sežrala dravá zvěř nebo si někam odskočil a pro tebe je to výhoda, jelikož"
Data "značně ušetříš na vstupném."
Data "-1"
M67:
Data "Jdeš malou úzkou @pěšinkou vedoucí kolem @klecí všerůzné odporné @havěti, která po"
Data "tobě lačně natahuje své uslintané pařáty, no moc se jim nedivím, vždyť ty"
Data "chudinky malé a nebohé už měsíc nikdo nenakrmil a tak se nesmíš divit, že mají"
Data "ukrutný hlad."
Data "-1"
M068:
Data "A jsi před @klecí hrocha afrického. Za mřížemi sedí Sir Hippo @Lanex a hraje si s"
Data "@Amigou 1200 bez AGA chipů. Před klecí je cedule s nápisem: Zde se žije Sir"
Data "Hippo Lanex. Mírumilovné zvíře, které zatím sežralo jen krmiče divoké zvěře."
Data "Ředitelsví ZOO."
Data "-1"
M68:
Data "A jsi před @klecí hrocha afrického. Za mřížemi sedí Sir Hippo @Lanex a hraje si"
Data "s @Amigou 1200, teď už plnohodnotnou. Před klecí je cedule s nápisem: Zde se"
Data "chová Sir Hippo Lanex. Mírumilovné zvíře, které zatím sežralo jen krmiče"
Data "divoké zvěře. Ředitelsví ZOO."
Data "-1"
M69:
Data "Cesta mezi zvířecími @výběhy. Cesta je sice štěrková, ale jaksi rozblácená,"
Data "jakoby tu projel @buldozer a nebo spíš mamutí stádo. Na severu je vidět drátěný"
Data "@plot oddělující ZOO od malého @pestrobarevného lesíka. Na jihu je slyšet nějaké"
Data "podivné @brumlání."
Data "-1"
M070:
Data "Přelezl jsi kamenou zídku mědvědího výběhu, o tom, že je medvědí, tě"
Data "přesvědčila cedule s nápisem medvědí @výběh. A jako bys to tušil, tak se před"
Data "tebou oběvil hnědý @medvěd jako hora. Vypadá to docela nebezpečně, páč ten"
Data "medvídek vypadá jaksi hladově. Méďa si blumlá něco pod vousy, je jasný, že to"
Data "myslím obrazně, protože medvědi žádný vousy nemají a nebo tenhle si je asi"
Data "oholil."
Data " 'Hej, panáčku! Ty mně nepoznáváš? Já jsem Tomba a jsem převlečenej za"
Data "medvěda, protože tu hledám inspiraci do novýho demáče o Jofovi a medvědech, i"
Data "když by to mnělo bejt spíš o vietnamkách.', řekl méďa a tobě to mírně vyrazilo"
Data "dech."
Data "-1"
M70:
Data "Sedíš na kamené zídce medvědího @výběhu, ve kterém sedí @Tomba a je převlečený za"
Data "medvěda, snaží se ve svém převleku najít grafickou inspiraci do nového dema."
Data "Převlek je dokonalý, neboť i ty jsi jej nemohl poznat a dosti ses vylekal, když"
Data "na tebe promluvil. Méďa si tě nevšímá a spokojeně si pobrukuje a líže med z"
Data "piksle, cos mu dal."
Data "-1"
M71:
Data "Postáváš před @dírou v plotě, koukáš se skrz a přemejšlíš o tom co tu vobrovskou"
Data "díru mohlo udělat. Asi tudy prošel @mamut s tankovejma pásama, ale spíš to"
Data "vypadá jako by tudy šel Vašek Koula. Mamutí ťápoty jsou plný zbytků čipsů."
Data "Hele tady bych chtěl poděkovat svojí miloučký holčině Zuzance, která našla v"
Data "lese mojí ztracenou fixu, hádejte co jsem v tom lese dělal?"
Data "-1"
M72:
Data "Vešel jsi do pestrobarevného @lesíka. Zvesela si to vykračuješ a prozpěvuješ"
Data "si. Stromy jsou tu takové difně vobarvené, no prostě jsou takové růžovoučké,"
Data "dokonce i travka je růžová. Cesta vede k malé mýtince, samozřejmě také růžové."
Data "Sakra, tady je @růžový, že by se z toho jeden poblil. Tak mně napadá, že když"
Data "je to tu tak růžový, tak by se mohlo stát, že na tebe vyskočí nějakej růžovej"
Data "hošánek a natrhne ti kaďáček. Málem bych zapomněl, @zem je jaksi divně rozrytá,"
Data "to asi vod toho pásovýho mamuta."
Data "-1"
M73:
Data "@Paseka. Brodíš se po kolena ve vysoké @trávě. Uprostřed paseky stojí urostlý"
Data "@smrk, jehož špička dosahuje černých @mračen ženoucích se oblohou, asi bude pěkně"
Data "pršet napadlo tě, měl by sis sehnat někde deštník, abys nezmokl a nenastydl."
Data "Sluníčko se schovalo za ty hnusný černý mraky. Citelně se ochladilo, takže ti"
Data "začíná bejt docela velká zima."
Data "-1"
M74:
Data "Jdeš @lesem a je ti hej, ale @stromy okolo jsou takové podivné, vypadá to jako by"
Data "to by ani nebyly stromy. @Travička po které si to vyšlapuješ je taky taková"
Data "divná, jakoby to ani nebyla tráva, ale něco jinýho, podivnýho. Není slyšet"
Data "jediný zvuk, čož je v lese taky dost podivné. No, ale přeci jenom něco slyšíš"
Data "z dálky, je to takový divný @funění. Tak tady to začíná bejt docela hustý co?"
Data "-1"
M075:
Data "Oooooops! Málem jsi spadl do nějaké maskované @jámy. Balancuješ na okraji toho"
Data "srázu a dívaš se na dno. Na dně sedí nějaká otylá postavička vzdáleně"
Data "připomínající @mamuta. Cesta dál nevede, protože ti v tom brání ta hluboká"
Data "jáma, nebo vlastně past. Na okraji strže je zapíchnutej kůl a na něm je @cedule"
Data "s nápisem. To zvíře co sedí na dně jámy neskutečně kňučí."
Data "-1"
M75:
Data "Stojíš nad @propastí. Ale ona ta propast už vlastně není ani vidět, protože je"
Data "tu nějaký podivný živý most. Po bližším ohledání jsi zjistil, že se jedná o"
Data "jistého nenažraného človíčka svým zjevem připomínajícím @mamuta, ten na svou"
Data "nenážranost doplatil tím, že spad do tej propasti a trpěl hlady. Teďka je z"
Data "něj živý most, který se vytvořil, když sežral tvé čipsy a nafouklo se mu"
Data "břicho. Na zemi leži vyvrácená @cedule."
Data "-1"
M76:
Data "Procházíš malou úzkou @pěšinkou, která vede napříč @lesem. Tady se ti to líbí,"
Data "protože je tu krásně a hlavně klid a pohoda, všude kolem cvrlikají @ptáčci,"
Data "@motýlci poletují jako zfetovaní, @broučci se líně plazí po listech nějakých"
Data "podivných rostlinek, kterých je tu hojně, hlavně lemují celou tvou drsnou"
Data "cestu. Ony podivně vypadající @květinky ti připadají známé, jak svou výškou tak"
Data "i vzhledem, ale když jsi se s nimi setkal tak už byly usušené a byly zabaleny"
Data "do papíru. Najednou na tebe padla nějaká únava a ty jsi z nenadání klesl na"
Data "zem a upadl do velmi hlubokého spánku, ze kterého tě neprobudilo ani stádo"
Data "kanců, které tu proběhlo. Asi po hodince halucinací jsi se konečně probral a"
Data "hlavu jsi měl plnou těch pestobarevných motýlků, ale nemůžeš je z hlavy vyhnat."
Data "-1"
M0077:
Data "Jdeš opět lesem. Kousek před tebou je @rozcestí a na něm stojí Honza @Bomber a"
Data "mučí nebohého bezzubého a mluvícího vlkodlaka. @Vlkodlak se snaží bránit, ale"
Data "bez zubů nemá pražádnou šanci. Leda, že bys mu nějaký přinesl, no vždyť"
Data "dokonce i můžeš, protože v domově důchodců je jich dost. A teďka je asi čas na"
Data "skvělou hádanku. Takže hádejte. Má to šedesát vočí a dva zuby, copak to asi"
Data "bude?"
Data " No domov důchodců přece. Dobrý co?"
Data "Jen tak na okraj malá rada. Nejdříve bych zlikvidoval Bombera a pak vlkodlaka."
Data "-1"
M077:
Data "Lesní @rozcestí. Kousek dál stojí @Bomber z Vericalu a má sluchátka na uších."
Data "Vypadá to, že je v hudebním šoku, ze kterého se bude probírat nejmíň tejden. O"
Data "nohy se ti otírá bezzubý @vlkodlak a vypadá to, jakoby něco chtěl, ale co?"
Data "-1"
M77:
Data "Lesní @rozcestí. Opodál stojí @Bomber z Verticalu a ani se nehne, je totiž v"
Data "hudebním šoku. Ta akce s Depešákama se ti fakt povedla. Vžyť víš jak je"
Data "Bomber k smrti nesnáší nesnáší. Co bude dál? To se nech překvapit, snad se ti"
Data "to už povede dohrát."
Data "-1"
M078:
Data "Došel jsi na @paseku na které vesele plápolá naftový @táborák nad ním se v"
Data "obroském kotli vaří @polévka. Okolo ohně na kmenech stromů sedí banda zpitých"
Data "@vandráků. Jeden z nich ve svých pařátech svírá něco co vzdáleně připomíná"
Data "kytaru a brnká nějakou melodii, ostatní si prozpěvují písničku o Jofovi a"
Data "vietnamkách. Kolem vandráků se povalují prázdné lahve od lihovin a několik"
Data "kanystrů s naftou. Nad polévkou se sklání nejhezčí z nich a vhazuje do ní"
Data "mořšké hvězdice. Jednoho z nich jsi poznal, je to sám @Hologram a je už dost"
Data "ožralej, najednou se otočil a spatřil tě. Chlapec s námahou vstal a dobelhal"
Data "se k tobě. Chytil tě pod krkem a řve na tebe, že chce chlast, jinak tě prý"
Data "poblije."
Data "-1"
M78:
Data "Stojíš na @pasece kde vesele plápolá naftový @táborák nad ním se v obroském kotli"
Data "vaří @polévka. Vandráci, kteří tu posedávali a popíjeli někam zmizeli. Vlastně"
Data "šli pohřbít Holograma. Ten totiž bohužel upadl do hlubokého bezvědomí. A"
Data "hele, je tu ještě jeden @vandrák, který se tu jaksi vyloupl, vypadá to, že k tej"
Data "bandě nepatřil."
Data "-1"
M079:
Data "Čerstvě posečená @louka u silnice. Všude kolem stojí @kupky sena. Cesta vede"
Data "mezi senem k silnici. Ze severu je slyšet nějaké @vrčení, vypadá to jako zvuk"
Data "motoru automobilu, asi tu má někdo problémy s nastartováním, protože to vrčení"
Data "ti připomíná spíš startování motoru."
Data "-1"
M79:
Data "Čerstvě posečená @louka u silnice. Všude kolem je rozházené @seno, které tu"
Data "rozházel nějakej magor. No, moc bych se tu nezdržoval, protože by se tu mohl"
Data "objevit nějaký zemědělec a ty bys to mohl šeredně odskákat za ten nepořádek."
Data "Cesta vede mezi senem k silnici. Ze severu je slyšet nějaké @vrčení, vypadá to"
Data "jako zvuk motoru automobilu, asi tu má někdo problémy s nastartováním, protože"
Data "to vrčení ti připomíná spíš startování motoru."
Data "-1"
M080:
Data "Proplétáš se vektorovým @lesem větve tě šlehají do obličeje. Doplazil ses až k"
Data "vysoké @borovici, pod kterou stojí @Trixie a něco volá na svého kolegu, který je"
Data "dokonale zamotán v koruně stromu do padáku, ten parašutista vypadá jako @Jofa a"
Data "snaží se dostat dolů, moc mu to však nejde. Jofa a Trixe si tu hráli na"
Data "Vectorové parašutistické závody. Jofa nadává, že ho vektorová @větev píchá do"
Data "zadní části těla. Trixie tě prosí o pomoc."
Data "-1"
M80:
Data "Proplétáš se vektorovým @lesem, větve tě šlehají do obličeje. Doplazil ses až k"
Data "vysoké @borovici. Pod ní stojí @Jofa a @Trixie a ukazují ti Exit na západě. Jofa"
Data "říká, že má vopíchanej zadek od vektorový @větvě, ale jinak je ti vděčný za"
Data "záchranu života. Máš si taky dát bacha na Holograma, teda jestli už jsi ho"
Data "nepotkal, protože je prej někde v lese a děsně vyvádí."
Data "-1"
M81:
Data "Bloudíš temným, radioaktivním a strašidelným @lesem, je to na první pohled"
Data "poznat, protože z okolních stromů vyzařuje strach. V tomto lese se už stalo"
Data "nespočet brutálních vražd a zločinů. Příšerně prudký @vítr šumí v korunách"
Data "temných @stromů, až je ti z toho zle. A sakra, tady mi to trochu ulítlo, tady"
Data "už jsi asi byl. No to nevadí, když je to chyba programu, tak to nechám protože"
Data "je to fakticky les a já zase ušetřím místnost. Kdo s tím nesouhlasí, tak ať mi"
Data "vykouří."
Data "-1"
M82:
Data "Hele jsi prostě ve zkurvenym @lese, na zkurvený planetě a prožíváš zkurvenej"
Data "život, tak proč se na všechno nevykašleš a nejdeš se něčím zkurveným zkurveně"
Data "zabít? Sakra, já mám ale nápady, tohle vás bude napadat, až budete měsíc jenom"
Data "myslet na to jak se vám nedaří sesmolit textovku a budete bušit do klávesnice"
Data "jako já."
Data "-1"
M83:
Data "No, konečně vyšel jsi z toho proklatého @lesa na palouček. @Sluníčko tu svítí."
Data "@Ptáčkove zpívají. Všude je krásně. A tobě se opět zlepšuje nálada. Teďka mně"
Data "napadlo pár pozdravů, tady jsou: Marku Hrone, děsně ti děkuju za muziku."
Data "Utopijáku, díky za vychválení starý verze a tak ti tu udělám dobrou reklamu."
Data "Lidi zahrajte si trilogii Cest, je to fakt boží pařba. No, a poslední pozdrav"
Data "patří Gargamelovi se vzkazem, ať se taky někdy ukáže."
Data "-1"
M84:
Data "@Les."
Data "-1"
M085:
Data "Jdeš opět @lesem, v cestě ti brání nějaká pěkná @kočka, na plyšovém kožíšku, tam"
Data "kde má kozičky se jí vyjímá vyšitý nápis a ten zní na jméno Lucinka. Ta kočka"
Data "si s něčím hraje. To něco je @myš a ne ledajaká. Ještě štěstí, že si nehraje s"
Data "tvým ocáskem, ale i v tom je dost dobrá, stačí se zeptat Bombera, kterej tu"
Data "někde v lese týrá nebohá zviřátka. Když jsme u toho Bombera, tak vám na něj"
Data "něco prozradím, je to totiž děsnej děvkař. Pokud vám bude tvrdit, že je to"
Data "naopak, pak vězte, že lže jako když tiskne bétéstovka."
Data "-1"
M85:
Data "Stojíš osamocen uprostřed @lesa. Před tebou je socha zkamanělé @kočky Lucinky."
Data "To má z toho, že si něco pučuje bez dovolení, nezdraví Holograma a s Bomberem"
Data "už taky nechodí. Okolo sochy se potuluje mluvící vlkodlak a chvíli co chvíli"
Data "na sochu močí."
Data "-1"
M086:
Data "Lesní cesta lemovaná jehličnatými stromy. Jejich kmeny jsou semknuté k sobě,"
Data "takže jiná cesta, než rovně není možná, leda, že by sis sehnal někde motorovou"
Data "pilu a ty stromy pořezal. U cesty je zapíchnutá @cedule s nápisem: Charon's"
Data "Land, státní hranice."
Data " Uprostřed cesty postává @chlápek v maskáčích a v rukou svírá ruský samopal"
Data "chalašnikov. Přes cestu je stažena pruhovaná @závora. Chlápek asi vybírá"
Data "mýtné, já bych mu raději zaplatil, protože ten samopal vypadá nabitě, ale má"
Data "jen slepé náboje, protože ostré mu šlohnul Cracknel do Laser Game."
Data "-1"
M86:
Data "Lesní cesta lemovaná jehličnatými stromy. Jejich kmeny jsou semknuté k sobě,"
Data "takže jiná cesta, než rovně není možná, leda, že by sis sehnal někde motorovou"
Data "pilu a ty stromy pořezal. U cesty je zapíchnutá @cedule s nápisem: Charon's"
Data "Land, státní hranice."
Data " Uprostřed cesty postává @chlápek v maskáčích a v rukou svírá ruský samopal"
Data "chalašnikov. @Závora zahrazující cestu je vytažena. Chlápek vypadá zmateně a"
Data "prohlíží si tu maličkou minci, co jsi mu daroval."
Data "-1"
M87:
Data "Vžum! Spadnul jsi do @strouhy, která je po celé délce silnice, za silnicí je"
Data "les a ten je plný @kostí. Opět jsi tedy špinavý a smradlavý až běda. To ti"
Data "nestačilo, že jsi lezl kanálem a brodil se v příkopu. Ne ty prostě neustále do"
Data "všeho musí padat a ve všem se koupat. Začínám si myslet že tuhle hru asi"
Data "nedohraješ."
Data "-1"
M88:
Data "Přecupital jsi silnici a na asfaltu jsi zanechal mokré @ťápoty. Za silnicí je"
Data "les, který totálně zdevastovala @vichřice, která se tímto územím před nedávnem"
Data "prohnala. Mezi polámaným kmeny stromů je možno spatřit různou lesní @techniku,"
Data "na odklízení padlých stromů. Samo sebou že se tu nepracuje, takže by se tu"
Data "dalo něco ukrást, třeba takovej traktor @Zetor."
Data "-1"
M89:
Data "Lesní cesta se změnila v polní cestu a vede na sever v vysokánskému @kopci. Za"
Data "polem na východě je možno spatřit ruinu @hradu, který obývají vládci Charon's"
Data "Landu v čele s jistým Petrem V. Majitelem softwarové firmy V. Trading."
Data "Hradní páni často terorizují okolí, takže bych ti radil se tu moc nezdržovat."
Data "-1"
M090:
Data "Polní rozbahněná cesta se změnila v malebnou asfaltovou silničku vedoucí do"
Data "nedalekého lesíka. Na silnici je umístěn protitankový @zátaras a u něj stojí"
Data "@strážný a pokuřuje doutník. Bez pasu tě nechce pustit dál."
Data "-1"
M90:
Data "Polní rozbahněná cesta se změnila v malebnou asfaltovou silničku vedoucí do"
Data "nedalekého lesíka. Uprostřed silnice se nachází obrovský @kráter na jehož dně"
Data "jsou trosky @zátarasu a olejové cisterny, z pod které vyčuhuje lidská @noha. Vše"
Data "pokrývá olej vyteklý z cisterny."
Data "-1"
M091:
Data "Se strašnou námahou jsi se vyšplhal na vrcholek kopce a rozhlížíš se po"
Data "krajině, nic jiného než les, vzdálené město, hrad, tovární komíny oceláren a"
Data "@sochu svobody nevidíš. Na kopci stojí veliká @cisterna plná motorového oleje a"
Data "aby nesjela do údolí, tak jsou její kola podepřeny dřevěnými @klínky, bránící"
Data "sjetí cisterny ze svahu."
Data "-1"
M91:
Data "Se strašnou námahou jsi se vyšplhal na vrcholek kopce a rozhlížíš se po"
Data "krajině, nic jiného než les, vzdálené město, hrad, tovární komíny oceláren a"
Data "@sochu svobody nevidíš. Ze svahu směřují dolů do údolí dvě rovnoběžné @brázdy,"
Data "které způsobila cisterna. V zemi jsou zatlačeny zbylé klínky po tom co je"
Data "převálcovala kola cisterny."
Data "-1"
M0092:
Data "Zvesela si to vykračuješ @silnicí a domníváš se že už bude konec tejhle hry. Na"
Data "silnici stojí automobil. @Automobil patří pražské skupině Čtvrtá magická stopa"
Data "a její členové vypadají docela bezradně. @Fractalus pobíhá kolem vozu a snaží"
Data "se jej uvést do provozu. Na kufru auta sedí Dr. @Vanmar a přihibá si z"
Data "cestovního soudku piva. U dveří stojí Mr. @Avalange a snaží se před tebou"
Data "ukrýt nedokouřený kubánský doutník. Je docela náhoda, že tuhle místnost píšu,"
Data "když poslouchám nahrávku Shades od Chrise Huelsbecka, kterou mi nahrál Mr."
Data "Avalange. Na pravé straně silnice je vysoký @strom, který vypadá podivně."
Data "-1"
M092:
Data "Zvesela si to vykračuješ @silnicí a domníváš se že už bude konec tejhle hry. Na"
Data "silnici stojí @automobil. Automobil patří pražské skupině Čtvrtá magická stopa."
Data "@Fractalus sedí za volantem a usmívá se. Na kufru auta sedí Dr. @Vanmar a"
Data "opilecky se na tebe tlemí, jelikož je na mol. U dveří stojí Mr. @Avalange a je"
Data "tak zhulenej, že ani neví jak se jmenuje. Na pravé straně silnice je vysoký"
Data "@strom, který vypadá podivně."
Data "-1"
M92:
Data "Zvesela si to vykračuješ @silnicí a domníváš se že už bude konec tejhle hry. Na"
Data "severu je vidět křižovatka a přes ní je padlý strom, který jsi šikovně porazil."
Data "-1"
M93:
Data "Křižovatka a přes ní leží mohutný kmen poraženého smrku. Pod smrkem je"
Data "zaklíněno @auto značky Mercedes. Dveře od vozu jsou otevřené a vevnitř nikdo"
Data "není."
Data "-1"
M094:
Data "Stojíš ve své @zahradě v záhonku @růží. Tvá zahrada sousedí sousedovým pozemkem."
Data "Ale tam je to pro tebe příliš nebezpečné, protože když vidíš ty hlavně"
Data "raketometů a ostatní vojenské @techniky dostáváš strach. No nicméně za to, co"
Data "ti soused provedl bych ho brutálně zlikvidoval, třeba bazukou, to by bylo"
Data "dobrý, nebo ne?"
Data "-1"
M94:
Data "Jsi ve své @zahradě, ale soused nějak zmizel, to víš jistě, protože je teďko už"
Data "obědem v krokodýlově žaludku a tak je cesta volná, jako snad v každé textovce,"
Data "když něco použiješ, ale to nemusí být vždy pravda. No jo to mi připomíná"
Data "jedinou dobrou textovku Drsnou cestu, když jsem tam zlikvidoval toho baču."
Data "Kousek dál je pošlapaný záhonek @růží. Skrz živý plot je možno spatřit"
Data "různorodou vojenskou techniku."
Data "-1"
'(Když jde na jich a nepoužije krokodýlka)
M95:
Data "Už jsi konečně na sousedově @pozemku a tak ti zbývá jen najít počítač a odjet na"
Data "Resetkání. Jo mimochodem ta vojenská technika, to byl jen holografický obraz z"
Data "pauznuté hry War in the gulf. Vidíš tu @bazén kterej je celej špinavej od krve"
Data "a v něm si plave @krokodýl. Máš kliku a jsi O.K. ale zato tvůj soused je zase"
Data "K.O."
Data "-1"
M96:
Data "Vešel jsi do staré @kůlny ve které snad nebyl ani sám majitel. Usoudils podle"
Data "metrového nánosu @prachu všude kolem sebe. A že je ta kůlna stará tě"
Data "přesvědčili Egyptské znaky po zdech a pterodaktylí hnízdo u stropu. V"
Data "nejtemnějším rohu kůlny se temně rýsuje stará dřevěná @bedna. Tady to vypadá"
Data "jeko ve velkoskladě prachu a nebo taky u mně doma."
Data "-1"
M97:
Data "Vstoupil jsi do @garáže, ta je silně načichlá benzinovými výpary, najednou se ti"
Data "udělalo líp a všude kolem se roztančila malá zelená světýlka, která chvílemi"
Data "morfovala do starého ojetého @vozu a haldy prachu. Pod nohama ti chvíli co"
Data "chvíli probíhá malá bílá myška a ty jsi v ní poznal malého Jerryho, populární"
Data "postavičku z animované grotesky, ale kde má k sakru kocoura Toma, kladeš si tu"
Data "otázku pořád dokola."
Data "-1"
M98:
Data "@Kurník. Tady to znáš, neb se sem vypravuješ pod rouškou tmy na slepice, a aby"
Data "tě nikdo nepoznal používáš převlek tchoře, který má nejen vizuální, ale i"
Data "pachovou simulaci a tak tě od tchoře skoro nikdo nepozná. Bohužel tu slepice"
Data "už nejsou. Sežral jsi je všechny, nenasyto!"
Data "-1"
M100:
Data "Jsi na autobusovém nádraží na Florenci v Praze. Vidíš nedaleko stojící"
Data "@autobus, který tě má odvezt na Resetkání. Mezi lidmi, kteří stojí před"
Data "autobusem poznáváš některé význačné @osobnosti české amiga scény."
Data "-1"
M101:
Data "Nastupuješ do dálkového autobusu směr Brno, najednou sis vzpomněl, že sis něco"
Data "nechal doma a tak se musíš vrátit zpátky na Kladno. Sice se ti to moc nelíbí,"
Data "ale bohužel musíš. A tak jsi vyběhl od autobusu směrem k metru. V metru sis"
Data "samozřejmě necvakl lístek."
Data " Souprava přijela brzo a tys nastoupil, ale ovšem v tuto dobu jsi netušil, že"
Data "to bude tvá poslední jízda metrem, ale nebudeme předbíhat."
Data " Mezi stanicemi Hradčanská a Dejvická, tě oslovil postarší muž: 'Kontrola"
Data "jízdenek!!!'"
Data " 'Já lístek nemám, vobčanku taky ne, nevim jak se jmenuju a kde bydlím!'"
Data "odpověděl jsi hbitě. 'Mně to nezajímá! Já chci lístek!' odpověděl muž."
Data " 'No vždyť ho nemám!' ty na to."
Data " 'Když nemáš lístek, tak taky nepojedeš metrem!', řekl klidně muž a otevřel"
Data "nouzovým otevíráním dveře a tebe vystrčil do tunelu. Nic se ti však nestalo a"
Data "tak jsi po kolejích pokračoval ve své cestě, ale ne dlouho. Bohužel jsi potkal"
Data "další soupravu metra a ta nebyla tak přívětivá jako ta první a tak ti musím"
Data "oznámit, že pro tebe teďko končí tvá cesta na Resetkání. No nic to jsem, ale"
Data "svině co? Zabít tě skoro na konci? No jsem, nebo ne?"
Data "-1"
Rem Tady se zobrazujou cestičky
SMER:
If SIL=1
Print
Print
Pen 1
Print "Za tebou jde nějakej bláznivej a vlasatej "; : Pen 7 : Print "šílenec"; : Pen 3 : Print "."
End If
B$=""
For R=1 To THING
If P(R)=M Then Goto PREDMETY1
Next R
Print
Goto PREDMETY
PREDMETY1:
Print
B$="Na zemi leží"
For R=1 To THING
If P(R)=M Then B$=B$+" "+P_Z$(R)+","
Next R
B$=Mid$(B$,1,Len(B$)-1)+"."
Proc ZAROVNANI[B$]
B$=""
PREDMETY:
Gosub MAPA
Pen 6
If S=0 and J=0 and Z=0 and V=0 and D=0 and N=0 Then ZAROVNANI["Cesta bohužel nikam nevede."] : Goto PREDMETY
A$="Cesta vede na "
If S=1 Then A$=A$+"sever, "
If J=1 Then A$=A$+"jih, "
If V=1 Then A$=A$+"východ, "
If Z=1 Then A$=A$+"západ, "
If Right$(A$,3)="na " Then A$=Mid$(A$,1,11)
If N=1 Then A$=A$+"nahoru, "
If D=1 Then A$=A$+"dolů, "
A$=Mid$(A$,1,Len(A$)-2)+"."
Rem ZAROVNANI[A$] : A$=""
Print
Pen 1
For R=1 To Len(A$)
Print Mid$(A$,R,1);
If Mid$(A$,R+1,5)="sever" Then Pen 5
If Mid$(A$,R+1,3)="jih" Then Pen 5
If Mid$(A$,R+1,6)="nahoru" Then Pen 5
If Mid$(A$,R+1,4)="dolů" Then Pen 5
If Mid$(A$,R+1,6)="východ" Then Pen 5
If Mid$(A$,R+1,5)="západ" Then Pen 5
If Mid$(A$,R+1,1)="," Then Pen 1
If Mid$(A$,R+1,1)="." Then Pen 1
Next R
Print :
Goto PRIKAZY
PRIKAZY:
Screen 2
A$=""
B=28
Ink 1,0,0
Text A+8,B," " : A$="" : B$="" : X$="" : C$=""
Ink 1,0,0
Text A,B,">"
Ink 3,0,0 : Bar A+8,B-6 To A+16,B+8-7 : Ink 1,0,0
'If DIAVOLO=1 Then Gosub XIPAINT
Do
Wait Vbl
X$=Inkey$
If X$<>"" and Asc(X$)>31 and Len(A$)<40
A$=A$+X$
Ink 1,0,0
Text A+8,B,A$
Ink 3,0,0 : Bar A+8+Len(A$)*8,B-6 To A+16+Len(A$)*8,B+8-7 : Ink 1,0,0
End If
If Asc(X$)=29 Then A$="z" : Goto ENTER
If Asc(X$)=28 Then A$="v" : Goto ENTER
If Asc(X$)=30 Then A$="s" : Goto ENTER
If Asc(X$)=31 Then A$="j" : Goto ENTER
If Asc(X$)=27 Then A$="mapa" : Goto ENTER
If Asc(X$)=13
If A$=""
Goto BLANK
End If
End If
If Asc(X$)=13 Then Goto ENTER
If Asc(X$)=8
A$=Mid$(A$,1,Len(A$)-1)
Ink 3,0,0 : Bar A+8+Len(A$)*8,B-6 To A+16+Len(A$)*8,B+8-7 : Ink 1,0,0
Ink 0,0,0 : Bar A+16+Len(A$)*8,B-6 To A+24+Len(A$)*8,B+8-7 : Ink 1,0,0
End If
If Asc(X$)=30
A$=A1$
Text A+8,B,A$
Ink 3,0,0 : Bar A+8+Len(A$)*8,B-6 To A+16+Len(A$)*8,B+8-7 : Ink 1,0,0
X$=""
End If
Loop
BLANK:
Screen 2 : Text A+8,B," " : Ink 1,0,0 : Text A,B,">" : Ink 3,0,0 : Bar A+8,B-6 To A+16,B+8-7 : Ink 1,0,0 : Screen 1
XI=Int(Rnd(5))
Gosub XI+200000
200000 ZAROVNANI["Baví tě moc psát takový bludy?"] : Goto PRIKAZY
200001 ZAROVNANI["Takový příkazy vykonávám velice rád, člověk nemusí nic dělat."] : Goto PRIKAZY
200002 ZAROVNANI["A je to tu ! Projevil jsi svou nadprůměrnou inteligenci,jen tak dál."] : Goto PRIKAZY
200003 ZAROVNANI["A co mám jako dělat? Mám se posrat nebo co ? Asi jo."] : Goto PRIKAZY
200004 ZAROVNANI["Já vím, že tě to baví, ale mněj vohled taky na mě. Já bych se taky rád pobavil."] : Goto PRIKAZY
200005 ZAROVNANI["No nic, já radši mlčím. Když ty taky mlčíš."] : Goto PRIKAZY
ENTER:
Screen 2 : Text A+8,B," " : Ink 1,0,0 : Text A,B,">" : Ink 3,0,0 : Bar A+8,B-6 To A+16,B+8-7 : Ink 1,0,0 : Screen 1
A1$=A$
For R=1 To Len(A$) : If Mid$(A$,R,1)=" " Then Goto REZEJ
Next R
B$="" : C$=""
If Len(A$)=1 Then B$=A$ : Goto VYKONEJ
If Len(A$)=>3 Then B$=Left$(A$,3) : Goto VYKONEJ
If Len(A$)=2 Then Goto DVAJEMALO
REZEJ:
B$=Left$(A$,3)
For R=1 To Len(A$)
If Mid$(A$,R,1)=" " Then C$=Mid$(A$,R+1,3) : Goto VYKONEJ
Next R
DVAJEMALO:
Screen 1
XI=Int(Rnd(6))
Gosub 300000+XI
300000 ZAROVNANI["Dvoupísmený příkazy já nevedu."] : Goto PRIKAZY
300001 ZAROVNANI["A co jako? Dvě písmena maj bejt jako slovo? To si rači přečtu slabikář."] : Goto PRIKAZY
300002 ZAROVNANI["Hele, nevotravuj a snaž se to trochu rozepsat. Dvě písmena? To je fakt trochu málo."] : Goto PRIKAZY
300003 ZAROVNANI["Co?"] : Goto PRIKAZY
300004 ZAROVNANI["Taky si to myslím, ale z těch dvou prťavejch písmenek jsem toho moc nepochytil."] : Goto PRIKAZY
300005 ZAROVNANI["Dvě písmenka? Ty teda ale šetříš."] : Goto PRIKAZY
300006 ZAROVNANI["Samá volovina."] : Goto PRIKAZY
VYKONEJ:
Data "s","j","v","z","sev","jih","výc","záp","pom","sit","pol","vez","seb","pro","pou","kon","qui"
Data "inv","slo","men","r","i","q","map","d","n","dol","nah","sav","loa"
Ink 1
Restore VYKONEJ : For R=1 To 30 : Read A$
If A$=B$ Then Goto PROJED
Next R
PROJED:
Screen 1
If R=1 or R=5 Then Goto SEVER
If R=2 or R=6 Then Goto JIH
If R=3 or R=7 Then Goto VYCHOD
If R=4 or R=8 Then Goto ZAPAD
If R=9 Then Goto POMOC
If R=10 or R=21 Then Goto MAIN
If R=11 Then Goto POLOZ
If R=12 or R=13 Then Goto SEBER
If R=14 Then Goto PROZKOUMEJ
If R=15 Then Goto POUZIJ
If R=16 Then Goto KONEC
If R=17 or R=23 Then Goto QUIT
If R=18 or R=22 Then Goto INVENTAR
If R=19 Then Goto SLOVNIK
If R=20 Then Goto MENU
If R=24 Then Goto AKTIVUJ_MAPU
If R=25 Then Goto DN
If R=26 Then Goto NAHORU
If R=27 Then Goto DN
If R=28 Then Goto NAHORU
If R=29 Then Goto _SAVE
If R=30 Then Goto _LOAD
XI=Int(Rnd(10))
Gosub XI+100000
100000 ZAROVNANI["Nepiš kraviny. Tenhle příkaz vopravdu neznám."] : Goto PRIKAZY
100001 ZAROVNANI["Moc se snažim, ale takovej blábol ve slovníku ani nemám."] : Goto PRIKAZY
100002 ZAROVNANI["Nevim, co tím myslíš, ale jestli mi nadáváš, tak toho nech, nebo ti to zrezetuju.."] : Goto PRIKAZY
100003 ZAROVNANI["Tss, tss, co to má jako bejt? Chááá. Samá blbost."] : Goto PRIKAZY
100004 ZAROVNANI["Hej, kámo, napiš něco jinýho, už mě vopravdu nebavíš."] : Goto PRIKAZY
100005 ZAROVNANI["Tenhle blábol si pochytil kde? Ve škole snad?"] : Goto PRIKAZY
100006 ZAROVNANI["Podívej se, zkus se alespoň na chvíli sebrat a napsat něco normálního."] : Goto PRIKAZY
100007 ZAROVNANI["Unknown order was accesed! (To bylo anglicky (doufám)) To sem napsal Plastik."] : Goto PRIKAZY
100008 ZAROVNANI["Neznámý příkaz!"] : Goto PRIKAZY
100009 ZAROVNANI["Příkaz nenalezen. Použij příkazu slovník, abys věděl co máš psát."] : Goto PRIKAZY
100010 ZAROVNANI["Zkus to jinak. Ale jak?"] : Goto PRIKAZY
Rem #########################################################################
SEVER:
Gosub CORONISRIFT
If S=1
Print : Print "Jdeš na sever."
Y=Y-1
Goto MAIN
End If
Print : Print "Na sever cesta nevede."
Goto PRIKAZY
Rem #########################################################################
JIH:
Gosub CORONISRIFT
If J=1 and P(11)<>199 and M=94
T$="Jakmile jsi vstoupil do sousedovy zahrady tak se ozvala krátká dávka z "
T$=T$+" palubního kulometu letadlové lodi a megafonem někdo zařval: 'Tohle je "
T$=T$+" soukromej pozemek hajzle! Koukej vypadnout a to hned, jinak budu příště mířit "
T$=T$+" líp!' A tak jsi se raději vrátil odkud jsi přišel."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If J=1
Print : Print "Jdeš na jih."
Y=Y+1
Goto MAIN
End If
Print : Print "Na jih cesta nevede."
Goto PRIKAZY
Rem #########################################################################
VYCHOD:
Gosub CORONISRIFT
If V=1
Print : Print "Jdeš na východ."
X=X+1
Goto MAIN
End If
Print : Print "Na východ cesta nevede."
Goto PRIKAZY
Rem #########################################################################
ZAPAD:
Gosub CORONISRIFT
If Z=1
Print : Print "Jdeš na západ."
X=X-1
Goto MAIN
End If
Print : Print "Na západ cesta nevede."
Goto PRIKAZY
Rem #########################################################################
NAHORU:
Gosub CORONISRIFT
If N=1
Print : Print "Jdeš nahoru."
ZZ=ZZ+1
Goto MAIN
End If
Print : Print "Nahoru to jaksi taksi nepůjde."
Goto PRIKAZY
DN:
Gosub CORONISRIFT
If D=1
Print : Print "Jdeš dolů."
ZZ=ZZ-1
Goto MAIN
End If
Print : Print "Dolů to jaksi taksi nejde."
Goto PRIKAZY
SEBER:
If C$="klí" and M=91 and P(39)=91 and CISTERNA=0
T$="Opatrně jsi sebral z pod jednoho kola maličký dřevěný klínek. Cisterně teď už"
T$=T$+" nebránilo vůbec nic v tom, aby se vydala ze svahu dolů a tys jen tal tak uhnul, před tou"
T$=T$+" kovovou masou sjíždějící dolů, která každým metrem nabírala na rychlosti. Sleduješ cisternu,"
T$=T$+" jak sjíždí z kopce k protitankovému zátarasu na jihozápadě. Pak cisterna narazila na vozovku a"
T$=T$+" pohřbila v mohutném kráteru celou vozovku včetně zátarasu."
CISTERNA=1
P(39)=200
ZAROVNANI[T$]
Goto PRIKAZY
End If
Gosub CORONISRIFT
If C$="" Then Print : Print "Tohle nelze sebrat." : Goto PRIKAZY
For R=1 To THING : If C$=P$(R) and P(R)=M Then Goto SEBER1
Next R
If C$="vše"
For R=1 To THING
If P(R)=M
Goto SVSE
End If
Next R
End If
Print : Print "Tohle nejde sebrat." : Goto PRIKAZY
SEBER1:
For R=1 To THING
If P$(R)=C$ and P(R)=M
SEB$="Sebral jsi "+P_U$(R)+"."
P(R)=200
ZAROVNANI[SEB$]
End If
Next R
Goto PRIKAZY
SVSE:
SEB$="Sebral jsi"
For R=1 To THING
If P(R)=M
P(R)=200
SEB$=SEB$+" "+P_U$(R)+","
End If
Next R
SEB$=Mid$(SEB$,1,Len(SEB$)-1)+"."
ZAROVNANI[SEB$]
Goto PRIKAZY
Rem #########################################################################
POLOZ:
Gosub CORONISRIFT
If C$="" Then Print : Print "Tohle nemůžeš položit." : Gosub PRIKAZY
For R=1 To THING : If C$=P$(R) and P(R)=200 Then Goto POLOZ1
Next R
If C$="vše"
For R=1 To THING
If P(R)=200
Goto PVSE
End If
Next R
End If
Print : Print "Tohleto nejde." : Goto PRIKAZY
POLOZ1:
For R=1 To THING
If P$(R)=C$ and P(R)=200
SEB$="Položil "+P_U$(R)+"."
P(R)=M
ZAROVNANI[SEB$]
End If
Next R
Goto PRIKAZY
PVSE:
SEB$="Položil jsi na zem"
For R=1 To THING
If P(R)=200
P(R)=M
SEB$=SEB$+" "+P_U$(R)+","
End If
Next R
SEB$=Mid$(SEB$,1,Len(SEB$)-1)+"."
ZAROVNANI[SEB$]
Goto PRIKAZY
Rem #########################################################################
INVENTAR:
For R=1 To THING
If P(R)=200 Then Goto INVENTAR1
Next R
Gosub CORONISRIFT
Print : Print "Vůbec nic u sebe nemáš."
Goto PRIKAZY
INVENTAR1:
B$="Neseš"
For R=1 To THING
If P(R)=200 Then B$=B$+" "+P_U$(R)+","
Next R
B$=Mid$(B$,1,Len(B$)-1)+"."
Proc ZAROVNANI[B$]
Goto PRIKAZY
Rem #########################################################################
PROZKOUMEJ:
Gosub NAJDI
Restore ZKOUMANI
Repeat
Read A$,BBCLUB,T$
' If C$="vše"
' If A$="-1"
' Goto PRIKAZY
' End If
' If BBCLUB=M
' ZAROVNANI[T$]
' KEY
' End If
' End If
If C$=A$ and BBCLUB=M Then Proc ZAROVNANI[T$] : Goto PRIKAZY
Until A$="-1"
Gosub CORONISRIFT
Print : Print "Tohleto nejde prozkoumat."
Goto PRIKAZY
ZKOUMANI:
Data "lož",1,"Normální ložnice pro normální lidi, co bys chtěl vědět víc."
Data "sto",1,"Má čtyři nohy a stojí na zemi. Což je u stolku jaksi neobvyklé."
Data "zrc",1,"Vidíš v něm svou věrnou kopii. Ta kopie je jaksi znetvořená nějakým nápisem."
Data "náp",1,"'Čau lásko, byl jsi skvělý. Zuzka. P.S. Mám tě moc ráda.' Stojí na zrcadle napsáno rtěnkou. (Hmm, je zajímavý jak po čtyřech letech nemusím měnit jména.)"
Data "okn",1,"FIJÚÚÚ! Fouká sem studený vzduch z ulice. Brr! Až je ti z toho zima."
Data "pos",1,"Znova jsi začal prohrabovat postel, ale až na dívčí spodní kalhotky jsi nic nenašel."
Data "skř",1,"Znovu ses pustil do průzkumu skříně, ale až na trochu prachu, špíny a mrtvého švába jsi nic zajímavého neobjevil."
Data "obý",2,"Je to taková ta obývací místnost, kterou obýváš, respektive oblíváš."
Data "nep",2,"Pekelný, takový nemá doma ani Cracknel, ba dokonce i Plastik by se za něj nemusel stydět."
Data "vaj",2,"Náhodně jsi jeden vybral a důkladně sis jej prohlídnul a zjistil, že z cigarety, která je plněna nějakým zeleným tabákem. Hmm, to asi budou mentolky, pomyslel sis."
Data "akv",2,"No, k akváriu to má dost daleko, i když to vypadá úplně stejně, ale není v něm voda, eh, teda až na to červené víno. Po tím akváriem bez vody, říkejme mu spíš terárium, je napsáno ozdobným písmem Alfonz I."
Data "tel",2,"Houby bez obrazovky, naopak s obrazovkou, ale bez krabice. Já fakt nevím co to vlastně píšu do toho popisu místností."
Data "kob",2,"Znechuceně jsi nadzvedl vínem nasáklý koberec a podíval se pod něj, ale nic zajímavýho jsi nenašel. Jó, malá poznámečka. Ve starý verzi tu byl klíč, ale teďka tu nejni, tak ho hledej."
Data "bre",2,"Sednul sis na vínem prosáklý koberec a začal jsi těm malejm broučkům oplácet jejich grimasy. Breberky si tě ale po chvíli přestali všímat. A tak jsi zase vstal."
Data "kuc",3,"Normální kuchyň pro dobré hospodyňky, ale tou ty určitě nejsi. No, měl by sis pořídít nějakou tu služku, která ti tu bude uklízet a taky pečovat o tvé city."
Data "odp",3,"Blééééééééh! Je mi fakt špatně z toho co chceš udělat."
Data "plí",3,"Jsou plesnivé."
Data "sli",3,"Jsou slizcí."
Data "dře",3,"Je přeplněný špinavým nádobím a prádlem. Sice nechápu co ve dřezu dělá prádlo, ale to je jen a jen tvoje věc."
Data "nád",3,"No jo, je špinavé a je tu fakt už od minulejch vánoc."
Data "mís",5,"Je celá zasraná a poblitá, tys tu musel ale fčera vyvádět."
Data "spl",5,"Houpe se sem a zase tam a pak zase sem a pak zase tam a sem, mrška jedna malá."
Data "vít",5,"Fijůůůůůůůů! Fičí sem vlahý letní větřík a ve víru mizí dveřmi na chodbu."
Data "náp",5,"Na zdi je napsáno: Ať tě ani nenapadne zkoušet cheat mód, kterej byl ve starej verzi."
Data "umy",6,"Smaltované umyvadlo růžové barvičky, ve kterém se občas povalují kousky dámského prádla a taky se v něm i umyješ, což je poznat podle zbytků zapáchajícího mýdla."
Data "uli",7,"Nojo, ona opradu znenadání končí, jako by tu byl konec světa."
Data "str",8,"Je to hrušeň, nebo něco takového. Tyčí se do závratných výšin."
Data "pří",8,"Opatrně jsi nahlédl přes okraj příkopu, ten je dost hlubokej a na jeho dně jsi spatřil spoustu lidských ostatků. Myslím, že tam za chvilku přibudou ještě další, pokud se nepřestaneš přes ten okraj tak nahýbat."
Data "zas",9,"Však znáte ty červený trubkový cedule s logem dopravního podniku a jízdním řádem. Nic jiného tu k vidění není, tak se koukejte spořádaně rozejít."
Data "kři",9,"Protínají se tam dvě silnice, ta menší na které stojíš a ta větší, na které nestojíš."
Data "plo",10,"Moc bych k němu nechodil. Ten plot totiž vypadá trochu elektricky."
Data "mos",10,"Je rozbořený a přes to hluboké údolí, které protíná rozbouřená řeka se jen tak nedostaneš. No dobrá prokouknul jsi mně, jsem desně línej vymejšlet nový místnosti a tak jsem to tu trochu zablokoval."
Data "okn",11,"Podíval jsi se tím oknem do tej stavby a spatřil jen dva starý dědky jak běhají po místnosti a hrají si pravděpodobně na letadla, alespoň ti to tak připadá, jinak už nevidíš nic zajímavýho."
Data "uli",13,"Je liduprázdná, když nepočítáme tebe. Vypadá to tu na docela poklidné místečko."
Data "stě",13,"Nabarvená modrou barvou, která se místy už odlupuje. Na celé stěně je nalepeno spoustu reklamních plakátů a ty jsou počmárané od vandalů."
Data "lav",13,"Je stará, špinavá a kupodivu není čerstvě natřená, jak tomu je u textovek zvykem."
Data "nád",14,"Jak je vidět, tak tu nejsou koleje a to by mělo naznačit všem kolem, že se nejedná o vlakové nádraží, ale o nádraží autobusové."
Data "aut",14,"Není na něm nic zajímavého, hmm tedy až na nápis, který je na dveřích a zní: Invalidní spoluobčané mají přednost. Děkujeme ČSAD Kladno."
Data "sil",15,"Je to asfaltka vedoucí na sever k obrovskému obchodnímu středisku."
Data "pří",15,"Plný sraček a smradlavé vody, to celé šíleně smrdí až je mi z toho taky zle."
Data "stř",16,"Prohlédnul sis to nákupní centrum a napadlo tě, že by docela stálo .za to jej vyloupit.."
Data "sil",16,"Tady prostě ta stará asfalka už končí."
Data "pří",17,"Je plnej sraček z jednoho sračkma od skupiny Squadream a to sračkmo se jmenuje Estray, pokud ho chcete vidět, tak napiště na mojí adresu, určitě se tu někde potuluje."
Data "str",18,"Je jich tu kolem strašná spousta, takže kam se podívaš tak tam je samej strom."
Data "hní",18,"Je to hnízdo nějakého velkého ptáka, v hnízdě je vidět i velikánský vajíčko, to by byla ale omoleta, dybys jej tomu ptáku sebral. Pták nevypadá přívětivě a neustále krouží nad hnízdem."
Data "str",19,"Je vysoký až běda. Na něj hnedtak nevyšplháš. Něco tě ale na tom stromě přitahuje, že by to hnízdo s vajíčkem, které je až v koruně?"
Data "vít",20,"Fijůůůů! Hůůůů! Vhůůům! Plesk! Plesk! Fijůůůůůůůůch! Vhůůůům! Vrrrrrrr! Frrrrrr! Žbluňk! Plesk! Třesk! Blesk! Mňam! Mňaůůůůch! Béééééééé!"
Data "ptá",20,"Poletuje si to pořád dokola a je difný, co ho to ve vzduchu vlastně drží, protože děsně vobrovskej, fakt vobrovskej a ještě víc vobrovskej. Je tak vobrovskej jako Jumbo Jet."
Data "dír",22,"Je dírovitá, kruhovitá a vyštípaná, no je to díra jako vjezd do pískovny."
Data "jíd",23,"Zde se naši vysloužilci stravují."
Data "bud",23,"Bývalý hrad či zámek, jež byl vypálen husitskými vojsky a tak se dochoval dodnes. Slouží jako domov důchodců."
Data "hru",23,"Ruská, digitální s LCD displejem, ale bez baterek. Takže vlastně na nic."
Data "dve",24,"Vzal jsi za kliku nejbližších dveří, ale máš smůlu, jsou zamčeny. Tak sis aspoň poslechl ty divný zvuky, ale zjistils, že se jedná o chrápání, těch starejch dědků a bab, který spěj na svejch pokojích."
Data "ost",26,"No jo to už tu jednou bylo a nebo to byly růžičky? Spíš to tu nebylo, protože ses ještě k růžičkám nedostal."
Data "les",27,"Temný radioaktivní les, co zajímavého asi skrývá."
Data "vít",27,"Severák, takže se asi blíží krutá zima."
Data "str",27,"Normální jehličnaté stromky, vyzařující podivné záření."
Data "les",28,"Temný radioaktivní les, co zajímavého asi skrývá."
Data "vít",28,"Severák, takže se asi blíží krutá zima."
Data "str",28,"Normální jehličnaté stromky, vyzařující podivné záření."
Data "les",29,"Temný radioaktivní les, co zajímavého asi skrývá."
Data "vít",29,"Severák, takže se asi blíží krutá zima."
Data "str",29,"Normální jehličnaté stromky, vyzařující podivné záření."
Data "les",30,"Temný radioaktivní les, co zajímavého asi skrývá."
Data "vít",30,"Severák, takže se asi blíží krutá zima."
Data "str",30,"Normální jehličnaté stromky, vyzařující podivné záření."
Data "les",31,"Temný radioaktivní les, co zajímavého asi skrývá."
Data "vít",31,"Severák, takže se asi blíží krutá zima."
Data "str",31,"Normální jehličnaté stromky, vyzařující podivné záření."
Data "les",32,"Temný radioaktivní les, co zajímavého asi skrývá."
Data "vít",32,"Severák, takže se asi blíží krutá zima."
Data "str",32,"Normální jehličnaté stromky, vyzařující podivné záření."
Data "les",33,"Temný radioaktivní les, co zajímavého asi skrývá."
Data "vít",33,"Severák, takže se asi blíží krutá zima."
Data "str",33,"Normální jehličnaté stromky, vyzařující podivné záření."
Data "les",34,"Temný radioaktivní les, co zajímavého asi skrývá."
Data "vít",34,"Severák, takže se asi blíží krutá zima."
Data "les",35,"Temný radioaktivní les, co zajímavého asi skrývá."
Data "vít",35,"Severák, takže se asi blíží krutá zima."
Data "str",35,"Normální jehličnaté stromky, vyzařující podivné záření."
Data "les",36,"Temný radioaktivní les, co zajímavého asi skrývá."
Data "vít",36,"Severák, takže se asi blíží krutá zima."
Data "str",36,"Normální jehličnaté stromky, vyzařující podivné záření."
Data "les",37,"Temný radioaktivní les, co zajímavého asi skrývá."
Data "vít",37,"Severák, takže se asi blíží krutá zima."
Data "str",37,"Normální jehličnaté stromky, vyzařující podivné záření."
Data "les",38,"Temný radioaktivní les, co zajímavého asi skrývá."
Data "vít",38,"Severák, takže se asi blíží krutá zima."
Data "str",38,"Normální jehličnaté stromky, vyzařující podivné záření."
Data "mlh",39,"Je podivná a na mlhu to nevypadá, protože je to moc hustý a nedýchatelný, sakra co to může bejt?"
Data "táb",39,"No, on to ani není táborák v pravém slova smyslu, jedná se totiž o hořící ropný vrt, který nějaký pyroman zapálil."
Data "mlh",39,"Je podivná a na mlhu to nevypadá, protože je to moc hustý a nedýchatelný, sakra co to může bejt?"
Data "táb",39,"No, on to ani není táborák v pravém slova smyslu, jedná se totiž o hořící ropný vrt, který nějaký pyroman zapálil."
Data "les",40,"Temný radioaktivní les, co zajímavého asi skrývá."
Data "vít",40,"Severák, takže se asi blíží krutá zima."
Data "str",40,"Normální jehličnaté stromky, vyzařující podivné záření."
Data "les",41,"Temný radioaktivní les, co zajímavého asi skrývá."
Data "vít",41,"Severák, takže se asi blíží krutá zima."
Data "str",41,"Normální jehličnaté stromky, vyzařující podivné záření."
Data "les",42,"Temný radioaktivní les, co zajímavého asi skrývá."
Data "vít",42,"Severák, takže se asi blíží krutá zima."
Data "str",42,"Normální jehličnaté stromky, vyzařující podivné záření."
Data "les",43,"Stálé temný, stále vyzařující neviditelné a nepopsatelné zlo."
Data "tab",43,"Je celá poničená, protože tu před nedávnem táhla banda chuligánů, kterou vedl největší ožrala ze všech a tím je sám veliký a nejlepší programátor Hologram."
Data "ces",45,"No je lesní a vypadá to, že je asi prokletá."
Data "pol",46,"Jako obvykle je nezorané."
Data "sil",46,"Asfaltka zdánlivě končící u té podivné dřevěné tabule."
Data "tab",46,"Je dřevěná, ale nápis je na druhé straně, takže vůbec nic nevidíš."
Data "bil",47,"Veliká dřevěná tabule, je na ní napsáno děsivě velikým písmem: 'Hologramovy textovky pro každého pořádného amigistu!' Tenhle nápis je přestříkán sprejem a tím je napsáno: 'Hologram kecá!'"
Data "plo",48,"Už jsem ti jednou řekl, že je přistávací, proč ti to musím psát dvakrát?"
Data "brá",48,"Způsobilo ji ne zrovna měké přistání létajícího objektu."
Data "dým",48,"Černý, zdá se že tam v dáli něco hoří."
Data "pos",48,"Vypadají jako maličké loutky, které se klátí ve větru. Bohužel a nebo bohudík je na tu dálku nemůžeš rozeznat."
Data "str",48,"Letadlo to nejni. Spíš to vypadá jako raketka ze boží střílečky Killwarp od legendární skupiny Píči."
Data "plo",50,"Kupodivu je přistávací."
Data "han",50,"Temný, strašidelný, určitě skrývá něco zajímavého."
Data "pěš",52,"Vede lesem a tak to bude zřejmě lesní pěšina."
Data "ced",52,"No, je na ní pozvánka k návštěvě hospody. Sice nechápu proč někdo postavil hospodu v lese, ale budiž."
Data "hos",53,"Je celá z perníku, akorát tu chybí ta ježibaba z tej pohádky."
Data "stů",53,"Je na něm vyryto logo skupiny Squadream."
Data "výč",53,"Nevopovažuj se na něco šáhnout, tady přece nikdo krást nebude."
Data "náp",54,"Svítí do temné noci, je to logo Toayen Corporation."
Data "síd",54,"Obyčejné vysoké paneláky, nic víc ani nic míň."
Data "kra",55,"Je slyšet opravdu všude kolem, vypadá to zřejmě na nějakou sbíječku."
Data "uli",55,"Ano, v tejhle ulici bydlí sám velký Hologram. Ale momentálně tu nikdo nejni, tak nevím."
Data "kra",56,"Zní to podobně jako modul k této hře. Zkus jít dovnitř stavby, no uvidíš či spíš uslyšíš."
Data "křo",56,"Je to bez, nebo nahoře bez?"
Data "kra",57,"Je to tak, jedná se o muziku pana dr. Waltera, nikdo ji neposlouchá, ale jemu je to jedno."
Data "bar",57,"Nikdu tu nejni a to je velmi podezřelé."
Data "pos",57,"V kouři a matném osvětlení svíček vidíš docela blbě. Zkus jít blíž, třebas něco objevíš."
Data "pen",57,"Je to normální rudá hvězda. Tady si zase někdo popletl pojmy, že by já a nebo ty?"
Data "uli",58,"Je jako všechny ostatní, nechutná a děsně dlouhá."
Data "str",58,"Na podzim nemůžou být rozkvetlé, to jsou jen halucinace, že sis něco šlehnul?"
Data "kři",58,"Jen popojdi hochu smělý blíž a spadneš do kanálu."
Data "kan",58,"Vede pod zem, což je snad jen náhoda."
Data "sem",59,"Tady je jeden, ale zatím spolehlivě slouží a řídí provoz, je to poznat podle zaschlé krve na přechodech."
Data "kan",59,"Velmi smrdí, ale to ti nevadí, protože se tam budeš muset vydat, abys objevil něco zajímavýho."
Data "hov",60,"Pěkně smrděj, takhle se s tebou nebude chtít nikdo bavit, teda až na Plastika, jemuž je všechno jedno."
Data "žeb",60,"Kovový, pěkně oslizlý a tak si dávej bacha ať ti to nepodjede a nespadneš zase do hoven."
Data "mří",61,"Je ocelová, takže ani nemysli na to, že ji nečím rozřežeš."
Data "piš",63,"Pochybuju, že jsou to myši, spíš to bude celá smečka krys, která se na tebe už docela těší. Teda na tvé tělo, až tě zabijou a sežerou. Hmm, jde z toho strach."
Data "kry",64,"Jééé, co z nich udělat Ratburgery a prodávat je u Mc Donalda? Ale to bys ty nebohý ubohý zviřátka musel pozabíjet, což asi jen tak nepůjde."
Data "uli",65,"No jak bych to? No je to ulice."
Data "bor",65,"Není to veřejný dům, ale veřejnost na ten bordel přispěla."
Data "zdi",65,"Známá loga naší skupiny ze scény, která si říká už jenom Pici."
Data "okn",65,"Jo, už jim chybí jejich skleněná výplň, takže to jsou jen rámy oken."
Data "brá",66,"No je to brána do ZOO."
Data "pěš",67,"Je uzoučká, sám máš strach abys neupadl a nechytilo tě nějaké hnusné zvíře."
Data "kle",67,"Jsou to malé klece, s velkými zvířaty."
Data "hav",67,"Kočky, pejsci, kanárci, velbloudi, brontosauři, jeden kůň a traktor."
Data "kle",68,"Celkem bytelná, takže z ní hned tak lehce neuteče."
Data "lan",68,"Nojo je to Lanex, ale nevěnuje ti sebemeší pozornost."
Data "výb",69,"Jsou to výběhy travou se živících zviřátek jako třeba je kůň, kravička, pštrosík a Radek 'Láhve' Hrdlička."
Data "bul",69,"Ano, vypadá to jako pásy buldozeru, ale i jako mamutí ťápoty, to by mně zajímalo, co si to zase vymyslím."
Data "pes",69,"Jasně, že to možný nejni, ale ten lesík je fakticky pestrobarevnej. Převládá zejména karmínová a růžová."
Data "bru",69,"Brum! Brumly! Brum! Brum! Brumlybrum! Kurva kde je ten med!? Brum! Brumly! Brumlybrumlybrum!"
Data "výb",70,"Jedná se o vskutku medvědí výběh, ale žádnej medvěd není poblíž, eh, teda vopravdovej, to by sis asi nadělal do kalhot, kdyby tu nějakej ten vopravdovej byl."
Data "dír",71,"Je velikánská a kruhovitá, tady fakt musel projít mamut."
Data "mam",71,"Mamut to určitě nebyl, protože mamuti nežerou čipsy, ty jsou poházený mezi těma velikejma tankovejma ťápotama."
Data "les",72,"Nízké barevné sromky, barevné kytičky i křoviska, to je vše tady. Lesík není jak se zdá moc veliký. Docela by mně zajímalo, kdo to nechal nabarvit, protože to musel bejt dost velikej magor."
Data "růž",72,"Růžovoučkou mám ze všeho nejraději, protože je dosti sladká. Božíčku."
Data "pas",73,"Je celá růžovoučká, tavička je růžová, malé zakrslé keříky mají nadech růžové barvy, tady musel řádit nějakej homosexuální malíř, když jsme u toho tak zdravím svého kamaráda homosexuálního Jena ze střední školy."
Data "mra",73,"Temná, žene je silný vichr k severozápadu, myslím si že bude celkem slušně pršet, tak by sis měl rychle sehnat nějakej deštník, než mi tu zmokneš."
Data "les",74,"Je takový podivný, až jde z něj strach."
Data "str",74,"jsou divné, na kmenech jsou čerstvé rýhy od nějakých obrovských pařátů, nějaké lesní nestvůry."
Data "tra",74,"Taková podivně pošlapaná, místy je v trávě vidět temně rudé skvrny."
Data "fun",74,"Ozývá se z východu a je takové podivné"
Data "pěš",76,"Je to taková malá pěšinka vedoucí lesíkem."
Data "les",76,"Takový podivný až nezvyklý, srdce každého narkomana zajásá."
Data "ptá",76,"Jsou na tom stejně jako ty. Stali se z nich narkomani, to maj z toho že žerou ty nadrogovaný brouky a motýlky."
Data "mot",76,"Jsou na tom stejně jako ty. Stali se z nich narkomani, to maj z toho že si sedaj na tu podivně vyhlížející rostlinu, rostoucí všude kolem."
Data "bro",76,"Jsou na tom stejně jako ty. Stali se z nich narkomani, protože se živjej tím svinsvem co tu roste všade kolem."
Data "kvě",76,"Zelená, vysoká a velmi nezvykle vonící."
Data "roz",77,"Jedna cesta vede tam, druhá zpět a třetí nikam."
Data "pas",78,"Je vytvořena souvislým vypálením sta hektarů lesa."
Data "táb",78,"Je opravdu naftový."
Data "pol",78,"Je z hvězdičkami. Jej, čau Láďo Píčo, neuvaříme si polívku z hvězdičkama?"
Data "kot",78,"Jo, takovej kotel, v tom by se vařil perník."
Data "lou",79,"Čerstvě posečená."
Data "vrč",79,"Je to fakt zvuk motoru."
Data "les",80,"Vektorový nebo vlastně Ventorový? Ne, je Vectorový."
Data "vět",80,"Vektorová nebo vlasně Ventorová? Ne, je Vectorová."
Data "bor",80,"Vektorová nebo vlasně Ventorová, bane je Vectorová."
Data "jof",80,"Vždyť tohle stvoření asi všichni všichni znáte a tak vám ho nemusím popisovat."
Data "tri",80,"Toho taky všichni znáte. A vy což jej neznáte, tak to byl největší hudebník v český scéně. Pokud chcete vědět více, tak si sežeňte diskmag EXIT."
Data "les",81,"Temný radioaktivní les, co zajímavého asi skrývá."
Data "vít",81,"Severák, takže se asi blíží krutá zima."
Data "str",81,"Normální jehličnaté stromky, vyzařující podivné záření."
Data "les",82,"Vektory pomalu přechází ve Fraktaluse ze Čtvrtý magický stopy, teda blbnu, ve fraktály. A je to tu dokonale hnusný a ty jsi z toho docela otrávenej."
Data "slu",83,"Právě zašlo za mrak."
Data "ptá",83,"Jé, to by bylo, kdyby ti vlítli pečený do huby. Já mám totiž děsnej hlad a chce se mi strašně na záchod a tak si vodskočím a pak zbaštím třešňovou taštičku vod McDonald's, která je už asi studená."
Data "les",83,"Je to les, samej les a zase les, až je ti z toho docela blbě."
Data "les",85,"Už není vektorový ani Ventorový a už vůbec ne Vectorový, ale vobyčejný jehličnatý."
Data "záv",86,"Pruhovaná."
Data "ced",86,"Je na ní napsáno Charon's land, státní hranice."
Data "str",87,"Je plná sraček z jednoho mojeho sračkma, kolem tebe plavou různý sračky, bitplány, vektory a tamhle jsi dokonce zahlídnul zkručovanou animaci. Prostě vodpornej pohled."
Data "kos",87,"Žádný tam nesjou, to jen jen takovej můj výplod. Prostě jsem si vzpomněl na jednu povídku od Holdstocka a ta se menovala nějak podobně, ale už nevím jak přesně. Ale vím, že byla boží."
Data "ťáp",88,"Vypadají jako stopy nějaké obludy. Až je někdo najde, tak si vymyslí báchorku o bahnovém muži, žijíci v blátě. No prostě taková obdoba Yetiho na kladensku."
Data "vic",88,"Nebyla to vichřice, tady si totiž jen odfouknul Plastic a smetl z povrhu zemského pár stromků."
Data "zet",88,"Ukradni ho a utop, pak někdo napíše pokračování knihy Utopený Zetor, tu knížku jsem četl jako malé děcko na dovolené u moře ve východním Německu. Kniha se vůbec nelíbila mému dědovi a tak se mi celou dovolenou posmíval."
Data "kop",89,"Vyhaslá sopka. Na jeho vrcholku něco je, ale na takovou dálku nevidíš co."
Data "hra",89,"Na nejvyšší věžičce hradu vlaje prapor království Charon's Land."
Data "soc",91,"Ne, neboj se, do ameriky nevidíš, to je jen socha připomínající Holograma a místo pochodně drží jointa travky."
Data "sil",92,"Vede kolem letiště do středu města."
Data "zah",94,"No je tvoje, kolikrát ti to budu psát!"
Data "růž",94,"Nojo, jsou měkké, protože jsi jim uthal ostny po shlédnutí pohádky o šípkové Růžence."
Data "poz",95,"Je sousedův, proč furt píšu sousedův a nenapíšu pravé sousedovo jméno? No protože, jméno záporné postavy se přece ani v sovětských filmech nevyskytuje."
Data "baz",95,"Je plný vody, momentálně ho vlastní tvůj krokodýl a myslí si, že je na Nilu jako jeho předci."
Data "kro",95,"Má pravé Nilské předky, kteří sežraly několik východoněmeckých turistů na Baltském moři v Africe. Uh! Co to plácám, já mám tada znalosti Dějepisu a nebo Zemněpisu? Já sem ze školy už dlouho venku."
Data "kůl",96,"Je opravdu stará."
Data "pra",96,"No je to taková malá částečka něčeho co když se spojí vytvoří nános prachu a když je toho víc tak se z toho stane to co tu vidíš, no prostě halda prachu."
Data "gar",97,"No ten benzín je tu opravdu cítit, stačilo by jen škrtnout a pěkně by ses proletěl."
Data "kur",98,"Takový malý domek pro slepičky. Třebas tu bydlí i kačer Donald."
Data "sál",99,"Kulečníkový, jednoduchá odpověď co?"
Data "aut",100,"Velice slušně vypadající autobus Českého národního expresu."
Data "oso",100,"Celá pražská a kladenská scéna, hlavně je tu věčně opilý Hologram s Gargamelem, veliký obtloustlý Plastik, bláznivý dr. Walter, Master Crank, no prostě všichni koho jsi ve hře potkal."
Data "-1",1,""
NAJDI:
If C$="řád" and M=9
T$="Na papíru stojí napsáno: Až přijede, tak tu bude. Ano, jistě si vzpomínáte na tu báječnou textovku od Vikiho Lošťáka 'Pomsta šílenýho ataristy' a tam tomu bylo také tak, ale tam to bylo asi takhle, pokud si dobře pamatuju."
T$=T$+" 'Až přijede, tak tu bude', stojí na jízdním řádu. A taky si vzpomínám, jak jsem se ten jízdní řád pokoušel ukrást a ono to nešlo."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="pos" and M=1 and P(1)=0
T$="Začal jsi se hrabat v rozestlané posteli a něco lesklého jsi našel."
ZAROVNANI[T$]
P(1)=200
Goto PRIKAZY
End If
If C$="skř" and M=1 and P(3)<>199
T$="Sakra nejde otevřít, je zamčená. Což ji takhle otevřít sekerou, kterou máš "
T$=T$+"schovanou na záchodě."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="skř" and M=1 and P(3)=199 and P(2)=0
T$="Otevřel jsi skříň a začal ses v jejích temných zákoutích přehrabovat. Máš "
T$=T$+"obrovské štěstí, že jsi v tej tmě něco našel."
ZAROVNANI[T$]
P(2)=200
Goto PRIKAZY
End If
If C$="koš" and M=3 and P(4)=0 and P(5)=0
T$="Vysypal jsi koš na podlahu a prohrabal odpadky, přičemž jsi objevil něco velice "
T$=T$+"zajímavého. Zbylé odpadky jsi zase pečlivě naskládal do koše."
ZAROVNANI[T$]
P(4)=200
Goto PRIKAZY
End If
If C$="koš" and M=3 and P(4)<>0 and P(5)=0
T$="Znovu jsi vysypal obsah koše na podlahu a řádeně sis koš prohlédl. Ejhle, na "
T$=T$+"jeho dně byl přilepen nějaký lístek papíru. Schoval sis jej na pozdější průzkum "
T$=T$+"a koš položil mezi odpadky na zem."
ZAROVNANI[T$]
P(5)=200
Goto PRIKAZY
End If
If C$="koš" and M=3 and P(4)<>0 and P(5)<>0
T$="Koš je prázdný, protože jeho obsah nějaký moula rozsypal po celé podlaze."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="pap" and(P(4)=200 or P(4)=M)
T$="Na tom kusu papíru je napsáno: Preclíku ty jedna děfko! Doufám, že jedeš na "
T$=T$+"Re-setkání. Pokud ti tenhle papír předá nějakej magor, tak ho následuj, jen se "
T$=T$+"cestou někde neožer. Jo, a pozdavuje tě Umnělohomotnej. Hezkou zábavu ti přeje "
T$=T$+"Velkej Koder Hologramoun..."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="dve" and M=4 and P(6)<>199
T$="Masivní dubové dveře, ke tvé smůle jsou zavřené a je na nich velká ocelová "
T$=T$+"petlice a tak jimi asi neprojdeš, leda, že bys byl duch a to ty jak vím ještě "
T$=T$+"nejsi, ale co není může být."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="dve" and M=4 and P(6)=199
T$="Jsou masivní a jsou z dubu, nebo buku, kdo se má v těch stromech vyznat. Ale "
T$=T$+"teďka vlastně masivní nejsou, neb jsi z nich vyrobil kvalitní dveřotřísku. "
T$=T$+"Dneska ty dveře opravdu nic nevydržej, napadlo tě."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="van" and M=6 and P(11)=0
T$="Jéééééé! Vana je napuštěna vodou a to ne ledajakou. Voda je špinavá a dokonce i "
T$=T$+"hnusně smrdí. Ale co, když si v ní chceš umejt pracky, tak budiž. Zalovil jsi "
T$=T$+"rukama ve vodě a objevil jsi něco opravdu nechutnýho, dlouhýho, smradlavýho a "
T$=T$+"zubatýho."
ZAROVNANI[T$]
P(11)=200
Goto PRIKAZY
End If
If C$="van" and M=6 and P(11)<>0
T$="Hele, snad se zasejc nechceš umejt, to ti nestačil ten hnusnej krokodýl, "
T$=T$+"kterýho jsi vylovil před chvílí?"
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="pop" and M=7
T$="No vopravdu ti někoho připomíná, ale kdo to je? Ani já sám nevím kdo to je, ale "
T$=T$+"moje dífčina mi radí, ať je to jistej mladík jmenující se Mucha, což je vedoucí "
T$=T$+"jedné nejmenované restaurace na Kladně, kde oba pracujeme, ale já přeci nemůžu "
T$=T$+"pomlouvat svého chlebodárce. No, ale je to fakt Mucha, asi ho vyhodili a tak se "
T$=T$+"asi živí takhle."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="pol" and M=8
T$="Střední postavy, oblečen do černého mundůru policije, na hlavě má čepici a na "
T$=T$+"ní odznak. Na košili má připnutou střibrnou jmenovku s nápisem: 'Jindra Crash'. "
T$=T$+"Postavička si neustále pohrává s pendrekem, asi tu hlídá dodržování veřejného "
T$=T$+"pořádku."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="aut" and M=9 and AUT=1
T$="Je opravdu přeplněný. Otevřeny jsou jen první dveře, takže jen jimi se můžeš "
T$=T$+"dostat do útrob autobusu. Řidič vypadá nevrle a čeká, až si nastoupíš."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="sta" and M=10
T$="Vypadá opravdu podivně, nenapadá tě k čemu by mohla sloužit. Mě to sice "
T$=T$+"napadlo, ale teďka to nechám chvilku v tajnosti. Stavba byla v minulosti "
T$=T$+"zámeček hraběte Hologramouna, ale bohužel hrabě ji propil a teďka slouží zcela "
T$=T$+"jiným obyvatelům..."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="skl" and M=12 and P(12)=199
T$="Skleněnej domeček pro kytičky, který nesnášej zimu."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="růž" and M=12 and P(12)=199
T$="Vypadají jaksi taksi podivně."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="vzd" and M=12 and P(12)<>199
T$="Huch! Vzdych! Buch! Nadechl ses toho čerstvýho vzduchu až ses málem udusil."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="zah" and M=12 and P(12)<>199
T$="Je plná kytiček ťu, ťu, ňu."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="pla" and M=13
T$="Na několik z nich ses podíval a přečetl sis jejich obsah, nejvíce tě zaujal "
T$=T$+"tento: Boží koderská skupina hledá nějakýho toho grafika a hudebníka. Své "
T$=T$+"přihlášky do konkurzu posílejte Hologramovi. My pamatujeme scénu a scéna "
T$=T$+"pamatuje nás, protože sme nejlepčí! Toayen Corporation. A další plagát: Už vás "
T$=T$+"přestalo bavit hraní stupidných stříleček a chcete zkusit štěstí v nějaké té "
T$=T$+"pořádné české konverzační hře? Pak je tu pro vás kosmická konverzačka USS "
T$=T$+"HUMUSTROMO, kterou udělal nejlepčí programátor a scénárista Hologram. Své "
T$=T$+"dotazy směrujte na jeho adresu. A poslední plakát: Plastik z Toayenu hledá "
T$=T$+"koderku pro spolupráci s bobovými objekty. Své nabídky zasílejte i s fotkou na "
T$=T$+"adresu: Plastik/tNC, Venda Koula, Wilsonova 521, 274 01, Slaný. Pozor! Jen se "
T$=T$+"nesmí přihlásit Zdeňka Nováková."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="aut" and M=13 and AUT=1
T$="Stojí u kraje silnice, má otevřené dveře a čeká až nastoupíš. Já bych to "
T$=T$+"udělal, protože řidič vypadá dosti nerudně."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="lid" and M=14
T$="Je jich tu spousta, cpou se do toho jediného autobusu ho"
T$=T$+"jedinců leží pod koly vozu v domění, že bez nich autobus neodjede, ale děsně se "
T$=T$+"pletou. No asi bude dost tvrdej oříšek se do autobusu dostat, to chce nějakou "
T$=T$+"proradnou akci, ale jakou?"
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="stř" and M=15
T$="No je to největší supermarket v okolí, sice není nikde napsáno, jak se to "
T$=T$+"středisko jmenuje, ale kladeňáci určitě vědí. Napovím, vedle supermarketu stojí "
T$=T$+"restarurace pro celou rodinu Mc Donald's, kde je to nejhnusnější jídlo a "
T$=T$+"nejdebilnější personál na světě."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="res" and M=16
T$="Mají zavříno, protože jim došlo maso na hamburgry a tak schánějí nějaké krávy "
T$=T$+"na porážku. Já bych o několika věděl, například jedna jejich nejmenovaná "
T$=T$+"zaměstnankyně, která se jmenuje Radka Kočařová by byla přímo ideálním zdrojem "
T$=T$+"hamburgrovýho masíčka...."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="sta" and M=16 and P(22)<>199
T$="Podíval ses na tu ubohou postavu v černém a pod dlouhými šedivými vousy jsi "
T$=T$+"rozpoznal starého známého Karla Duška, neboli Corrupta, kterej má super BBSku, "
T$=T$+"ale teďka jako sysop nevypadá. Což mu provést něco veselého? Třeba ho nějak "
T$=T$+"pobavit."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="čís" and M=17
T$="No je to moje číslo a pro jistotu ti dám i předvolbu a to je 0312 - 83727, "
T$=T$+"zavolej mi do klubu a mužeme si vesele popovídat. Cena hovoru nepřesáhne 500 "
T$=T$+"korun. Diskrétnost zaručena. A pokud máte zájem o mamutí porno tak volejte 0314 "
T$=T$+"- 520748 a chtějte Plastika."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="ptá" and M=19
T$="Stále krouží nad stromem, zatím tě nespatřil, páč tě kryjou větve, ale nic bych "
T$=T$+"nedal za to, že až tě spatří, tak si tě vodnese do hnízdečka a bude mít "
T$=T$+"lahodnou večeřičku a třebas i něco zbude pro jeho nevylíhnutý megaptáčátko."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="vět" and M=20 and P(22)=0
T$="Přehoupl ses na nejbližší větev s úmyslem si ji lépe prohlédnout, najednou tě "
T$=T$+"něco plesklo přes obličej. Pozorně sis to něco prohlédl a shledals, že se jedná "
T$=T$+"o legrační karnevalovou masku, která ti zjevně připomíná jednu postavičku "
T$=T$+"bývalé amiga scény. Ano je to karnevalová maska podobající se ve své zrůdnosti "
T$=T$+"dr. Valterovi, jehož muziku přávě poslouchám a musím teďka převrátit kazetu."
ZAROVNANI[T$]
P(22)=200
Goto PRIKAZY
End If
If C$="vět" and M=20 and P(22)<>0
T$="Houpeš se z větvě na větev a hraješ si na Tarzana, je to fakt zábava, jen kdyby "
T$=T$+"tu nebyl ten vichr."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="hní" and M=20
T$="Přiblížil ses to nenápadně k hnízdečku s cílem uzmout to vejce, ale ptáček si "
T$=T$+"toho jaksi všimnul a tak se snesl níže a chce tě klobnout svým zobanem do "
T$=T$+"rukou. Radši ses od toho hnízda odtáhnul, neb bys mohl býti hlavní chod večeře "
T$=T$+"toho bombardéru se zobanem."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="plo" and M=21
T$="Škrvrrr! Prsk! Prááásk! Bum! A klepla tě Pepka. To znamená, že jsi zhebnul, "
T$=T$+"ještě než jsi umřel, tak jsi viděl ty malý hezký hvězdičky. Teď tvá ohořelá "
T$=T$+"mrtvola leží na plotě a pro tebe to znamená, že ses stal částí elektrickýho "
T$=T$+"vobvodu. A to znamená, že si tuto hru musíš zahrát znovu. Já tě přeci varoval."
ZAROVNANI[T$]
KEY
Goto HOLOGRAM
End If
If C$="krt" and M=21 and P(19)=0
T$="Šťouráš do krtin malým klacíkem, který jsi našel v travičce. Z jedné krtiny "
T$=T$+"vylezl krtek, začal zuřivě mávat tlapkama a naznačuje ti abys teho nechal. "
T$=T$+"Načež jsi ho na usmířenou dloubl klacíkem do bříška. Krteček zaběhl do nory a "
T$=T$+"po chvilce se vrátil zpátky. V Tlapkách držel kulečníkovou kouli a vzteky ji po "
T$=T$+"tobě hodil."
ZAROVNANI[T$]
P(19)=200
Goto PRIKAZY
End If
If C$="krt" and M=21 and P(19)<>0
T$="Zase jsi zašťoural do krtin a z jedný vylezl frustrovaný krtek a nazlobeně na "
T$=T$+"tebe mává svejma malejma pacičkama. Ale nemá už nic co by po tobě hodil a tak "
T$=T$+"na tebe aspoň ukazuje svůj holej zadeček."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="důc" and M=23 and P(23)<>199
T$="Vypadají docela neškodně, ale asi jen do chvíle, než by ses jim pokusil sebrat "
T$=T$+"tu zpropadenou hru. Je to pan Petr 'Pirát' Haupt a pan Jiří Špalek. Dej si na "
T$=T$+"ně bacha oba mohou býti zákeřní, bez AVLSD bych nic nepodnikal. (AVLSD - "
T$=T$+"Automatický Vyhledávací a Likvidační Systém proti Důchodcům, jedná se o obdobu "
T$=T$+"ECM u letadel.)"
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="důc" and M=23 and P(23)=199
T$="Je to pan Haupt. Jak to tak vypadá je asi tuhej a už nebude nikdy pirátit za "
T$=T$+"nekřesťanské prachy. Dobře mu tak."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="led" and M=24 and P(21)=0
T$="Se strašlivým kraválem, který vydávali dveře lednice jsi ji otevřel. Je skoro "
T$=T$+"prázdná, ale chladí dobře, což nasvedčuje i orosený lahváč pivsona, který tam "
T$=T$+"byl, ale už tam není, protože ho máš ty."
ZAROVNANI[T$]
P(21)=200
Goto PRIKAZY
End If
If C$="led" and M=24 and P(21)<>0
T$="Znovu jsi s kraválem otevřel dveře lednice a zjistil jsi, že tam až na studený "
T$=T$+"vzduch nic není."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="děd" and M=25
T$="Jeden má mezi nohama koště a krouží s rozpřaženýma rukama v piruetách po "
T$=T$+"pokoji, ten druhý sleduje toho prvního a pokřikuje na něj: 'Já tě dostanu Blue "
T$=T$+"Maxi!' a svá slova doprovází prskáním. Ten druhý háže po tom prvním plechovky o "
T$=T$+"džusu, zatím však bezúspěšně. Zkusil jsi na ty dědky promluvit. Oni si tě "
T$=T$+"všimli a představili se ti jako členové skupiny Torture, jeden je Utopia a "
T$=T$+"druhý Sirius. Zeptal ses jich proč tak vyvádí a oni ti sdělili, že jsou "
T$=T$+"zmagořený Projektem X a ještě ti dali jednu radu. Ta rada se týká veverek, "
T$=T$+"které bys neměl krmit lískovými oříšky."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="str" and M=34 and P(10)=0
T$="A hele, na jednom, ze stromů byl přilepen izolepou balík disket. Najít diskety "
T$=T$+"v lese se hnedtak nevidí a tak sis ten balík vzal pro další použití."
ZAROVNANI[T$]
P(10)=200
Goto PRIKAZY
End If
If C$="str" and M=34 and P(10)<>0
T$="Normální jehličnaté stromky, vyzařující podivné záření."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="kra" and M=39 and P(4)<>199
T$="Je to krabička se zdrojem k amize a ten provázek je šňůra do elektriky."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="pos" and M=39 and P(4)<>199
T$="Tváří se celkem spokojeně, což se nedá říci o tobě, protože jsi toho chlapce "
T$=T$+"poznal, jedná se totiž o známou firmu Jamese Cracknela, ohyzdu první třídy. "
T$=T$+"Zvědavě si tě to divné stvoření prohlíží."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="uha" and M=39 and P(4)=199
T$="Nehas co tě nepálí a šetři si síly na další akce."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="vev" and M=44 and VEVERKA=0
T$="No, on to Jofa nejni, jak se na první pohled zdá. Jedná se totiž o chlapce, "
T$=T$+"který jako veverka opravdu vypadá, je to totiž Petr Turek z nechvalně známé "
T$=T$+"skupiny Total Chaos, která proslula zejména tím, že její členové začali "
T$=T$+"Hologramovi přezdívat Holohovno."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="ces" and M=44 and VEVERKA=0
T$="Je to až k neuvěření, ale je lesní."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="keč" and M=44 and VEVERKA=0
T$="Já bych ani moc nezkoušel ten kečup zkoumat, protože ta veverka vypadá velmi "
T$=T$+"hladově."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="les" and M=44 and VEVERKA=1
T$="No je to les."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="str" and M=44 and VEVERKA=1
T$="Normální vobyčejný stromy."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="bob" and M=44 and VEVERKA=1
T$="Jsou to Amos bob banky, které tu vytrousila nějaká Amosová veverka."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="tel" and M=44 and VEVERKA=1
T$="Ty tady ňákej viďíš, já tedy ne. Asi ti cáká na maják jako mně."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="vev" and M=45 and P(10)=0 and VEVERKA=1
T$="Hbitým chmatem jsi prošácl zavšivený rezavý kožich veverky a zjistil, že se "
T$=T$+"nejedná o veverku, ale o veverčáka. Veverčák měl v kapsičce u kožichu ukrytý "
T$=T$+"balik tvých disket."
ZAROVNANI[T$]
P(10)=200
Goto PRIKAZY
End If
If C$="vev" and M=45 and VEVERKA=1
T$="Je total kaput, což nasvědčuje i díra velikosti pětikoruny zející uprosřed "
T$=T$+"hlavy veverčáka. Což jej třeba stáhnout z kůže a prodat na černém trhu?"
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="str" and M=49 and P(17)<>199
T$="No jasně, je to kosmická loď. Zřejmě se jedná o raketu ze hry John Merrick od "
T$=T$+"Squadreamu, která nikdy nebyla dokončena a raketa spolu s dalšími blbostmi byla "
T$=T$+"uložena v hangáru. Teďka po čtyřech letech ji nějací blázni vytáhli a zkoušeli "
T$=T$+"s ní létat."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="pos" and M=49 and P(17)<>199
T$="No né, to je přeci populární Master Crank palubní grafik a věhlasný Denetron "
T$=T$+"palubní koder na kosmické loďce. Vlastně jsou to hoši od Squadreamu, jen tu "
T$=T$+"chybí Hologram, který byl kdysi členem této skupiny."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="dým" and M=49 and P(17)<>199
T$="Černo černý a i přes silný vítr je ho tu stále dost."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="pož" and M=49 and P(17)<>199
T$="Jak jsem říkal, nehas co tě nepáli, ale tady by snad šlo udělat vyjímku, tak a "
T$=T$+"teďka si tedy sežeň kbelík s vodou a můžeš začít."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="pos" and M=49 and P(17)=199
T$="Vypadá to, že jsou už spokojeni a přemýšlí, jak opravit poničenou raketu, aby mohla zase létat."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="pří" and M=51 and P(16)=200
T$="Jeden ti snad stačí? Copak bys s ním chtěl hasit? Snad ne, ten ropnej vrt v "
T$=T$+"lese, ať tě to ani nenapadne."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="han" and M=51 and P(16)<>200
T$="Víš co? Běž si ho raději prozkoumat ven, jo?"
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="alk" and M=53 and P(21)<>199
T$="Je to známý notorik Miras, bývalý grafik Squadreamu, chudák malá tu sedí jen tak "
T$=T$+"na sucho a vypadá poněkud pobledle. Snad bys mu mohl nějak pomoci."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="alk" and M=53 and P(21)=199
T$="Je to notor Miras, už má trochu lepčí náladu a po tom lahváči se zpil až běda. "
T$=T$+"Kouká se na tebe skelnýma očima a prosí tě o další to pivko. Snad mu jej "
T$=T$+"doneseš."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="sta" and M=56
T$="Je taková divná, celá postříkaná sprejema a na zdech jsou namalovaný postavičky "
T$=T$+"lidiček, prostě děs a hrůza. Je to věhlasný kladenský rokový klub 19. Pro "
T$=T$+"nezasvěcené: Jedná se rokový klub, kde se schází, či spíše scházela, veškerá "
T$=T$+"Amiga scéna na Kladně. Mimo Holograma tu můžete potkat také Master Cranka, ale "
T$=T$+"dnes tu potkáš úplně někoho jinýho. Ještě něco. Tady se Hologram nedávno tak "
T$=T$+"ožral, že když se dostal domů tak blil z okna čtvrtýho patra dolů na ulici, div "
T$=T$+"že nevypadl."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="kři" and M=59
T$="Hele já se o ní trochu rozepíšu. No tak požiju úspěšnou metodu popisu "
T$=T$+"křižovatky jakou jsem použil ve své textovce na osmibitovém Atari. Jedná se o "
T$=T$+"křižovatku jež je postavená do kříže, takže si představ třeba háko.. ne červený "
T$=T$+"kříž a tak nějak vypadá křižovatka v tejto textovce. Chápete to?"
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="výs" and M=61 and P(26)=0
T$="Prostčil jsi ruku mříží a zašmátral ve výstupku a něco malého třpytivého jsi "
T$=T$+"našel, copak to asi bude?"
ZAROVNANI[T$]
P(26)=M
Goto PRIKAZY
End If
If C$="výs" and M=61 and P(26)<>0
T$="Znovu jsi zašmátral na výstupku, ale nic jsi neobjevil. Mně to taky už nebaví a "
T$=T$+"tak si zahrajeme jednu hru Slamtiltu a pak se bude možná pokračovat. No a už "
T$=T$+"jsem zase tady a můžu řict, že jsem žádný hi-score sem nenahrál."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="chl" and M=65 and P(9)<>199
T$="Jo, poznáváš ho, je to Freddy Krueger, co to melu je to Fred Brooker. (Čáu "
T$=T$+"Fredíku, konečně jsem viděl Raxxona a Full of Wonderfull, je to fakt best, jo "
T$=T$+"díky za ty moduly cos mi nahrál na Resetu.)"
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="ami" and M=68 and P(28)<>199
T$="Dvanáctka bez AGA čipsů."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="ami" and M=68 and P(28)=199
T$="Dvanáctka, dokonce, jsou v ní i AGA čipsy, takže je teďka plnohodnotná."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="plo" and M=69
T$="Je daleko od tebe, ale je v něm vidět díra jako od buldozeru. Dneska si s těma "
T$=T$+"dírama nedám pokoj. Ještě by tu mohla bejt taková ta chlupatá dírka. To by pak "
T$=T$+"byla sranda. Asi bych si mněl do čajíčku dávat více brómu, aby mně ty úchylný "
T$=T$+"nápady přešly."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="med" and M=70 and P(24)<>199
T$="Je to tvůj kámoš Tomba z bývalé Agony a chtěl by alespoň kapku medu, jelikož má "
T$=T$+"ukrutný hlad a když má hlad, tak vypadá poněkud nesvůj, či spíše nebezpečně."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="tom" and M=70 and P(24)=199
T$="Je spokojený, protože utišil hlad a spokojeně líže med."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="zem" and M=72 and P(31)=0
T$="Mrknul ses na zem a rozhodl ses, že ji rozhrabeš ještě více než je. Tak sis "
T$=T$+"tedy klekl na kolena svýma hrábovitýma pařátama jsi začal hrabat v rozryté "
T$=T$+"hlíně. Po chvilce hrabání ses škrábl do ruky o ostrý střep od nějaké lahve. "
T$=T$+"Poraněný prst ti krvácí, měl bys vyhledat lékařskou pomoc."
ZAROVNANI[T$]
P(31)=200
Goto PRIKAZY
End If
If C$="zem" and M=72 and P(31)<>0
T$="Hele, nech toho hrabání v zemi, co když tam bude něco vostřejšího a ty si třeba "
T$=T$+"uřízneš ruku a pak nebudeš moci dohrát tuhle hru, to bys snad nechtěl?"
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="trá" and M=73
T$="Je to zajímavé, ale každičké stébélko trávy je nabarveno na růžovo, sice "
T$=T$+"nechápu jaký to má smysl, ale prostě to tak je. Mimochodem, tuhle místnost píšu "
T$=T$+"už po druhý, protože jsem si docela efektivně zrezetoval kompjůtr a neměl jsem "
T$=T$+"to uložený, což mě docela znechutilo."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="smr" and M=73 and P(32)=0
T$="Přišel jsi blíže k tomu stromu, aby sis jej lépe prohlédl a skutečně, na jedné "
T$=T$+"větvi jsi našel lesní roh. Myslím tím roh jako hudební nástroj, ten se ti bude "
T$=T$+"určitě hodit, k nějakému bláznivému úkolu."
ZAROVNANI[T$]
P(32)=200
Goto PRIKAZY
End If
If C$="smr" and M=73 and P(32)<>0
T$="Nemyslíš si snad, že objevíš nějakej další roh, leda tak paroh a ten si dáš na "
T$=T$+"nos a budeš vypadat jako jednorožec, teda když si někde opatříš ještě zlatý "
T$=T$+"podkovičky."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="jám" and M=75 and P(27)<>199
T$="Je zamaskovaná, takže ti připomíná pravěkou past na mamuty, ale tady zřejmě "
T$=T$+"neslouží na mamuty, ale na Kouly. Tu past tu musel určitě vykopat Hologram, kdo "
T$=T$+"jinej by to tak rafinovaně připravil."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="mam" and M=75 and P(27)<>199
T$="Je to nechvalně známý hoch jmenující se Vašek Koula, vzdáleně ti připomíná "
T$=T$+"mamuta, to má z toho, že pořád něco žere."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="ced" and M=75 and P(27)<>199
T$="Na ceduli stojí: Pozor! Past na mamuty!"
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="pro" and M=75 and P(27)=199
T$="Je zamaskovaná, takže ti připomíná pravěkou past na mamuty, ale tady zřejmě "
T$=T$+"neslouží na mamuty, ale na Kouly. Tu past tu musel určitě vykopat Hologram, kdo "
T$=T$+"jinej by to tak rafinovaně připravil."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="mam" and M=75 and P(27)=199
T$="Mamut je nažranej a celkem spokojenej, takže si to zvesela hoví na dně a ani "
T$=T$+"neví, že jeho břich vytvořil provizorní živý most."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="ced" and M=75 and P(27)=199
T$="Je vyvrácená a je na ní napsáno: Pozor! Past na mamuty!"
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="vlk" and M=77 and P(20)<>199
T$="Je z pohádky, upřesňuji je z Arabely, takže mluví. Hele Crackneli, ještě se "
T$=T$+"díváš na Arabelu? Bez zubů nemá žádnou šanci se bránit a tak jen kňučí pod "
T$=T$+"Bomberovým bičíkem, který ho šlehá přes hřbet."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="bom" and M=77 and P(25)<>199
T$="Je to zběsilý hudebník, zkrachovalý grafik, šílený technař a synek miliardáře. "
T$=T$+"K smrti nesnáší Depešáky. Momentálně je zaměstnán mučením vlkodlaka, takže si "
T$=T$+"tě vůbec nevšímá."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="bom" and M=77 and P(25)=199
T$="Je to zběsilý hudebník, zkrachovalý grafik, šílený technař a synek miliardáře. "
T$=T$+"Gratuluji ti, z toho hudebního šoku se bude vzpamatovávat alespoň půl roku."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="van" and M=78 and P(18)<>199
T$="Jsou to nechvalně známá opilecká esa, jmenovitě je to Hologram, Sir Dan, Láďa "
T$=T$+"Píča, Helmut a nakonec i věhlasný pankáč Láhve. Vandráci jsou už notně v "
T$=T$+"podroušeném stavu, tedy až na Holograma, ten je vcelku čilý."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="hol" and M=78 and P(18)<>199
T$="Je sice trošku připitej, ale ještě nemá dost a chce pít, bohužel mu jeho "
T$=T$+"kolegové všechno vypili a tak se schání po něčem dobrém k pití."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="van" and M=78 and P(18)=199
T$="Jejda, je to Gargamel, spoluautor tejto hry. Nic nedělá, jen tak sedí na kládě "
T$=T$+"a čumí do blba, eh nebo na blba?"
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="kup" and M=79 and P(37)<>199
T$="Copak, chceš snad prozkoumat všechny kupky sena. Snad si nemyslíš, že najdeš "
T$=T$+"jehlu? To je starej fór, takže s ním ani nepočítej."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="sen" and M=79 and P(37)=199
T$="Je tu kolem dokola rozhrabané, měl bys to tu raději uvést do původního stavu, "
T$=T$+"to znamená, opět navršit všechny ty kupky."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="les" and M=84
T$="Jehličnatý. Tak tohle, je nejkratší popis místnosti a prozkoumání. Není to tím, "
T$=T$+"že bych neměl nápady, ale proto, že se mi chce hulit a já nechci v noci hulit v "
T$=T$+"pokoji, páč tu chrápe bratr a mohl by se vzbudit a chtít taky, takže du hulit "
T$=T$+"na balkón. Kdybyste mně scháněli, tak hulím na balkóně."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="koč" and M=85
T$="Jó, Lucinka, to byly časy, ale se starejma časama děte do prdele, nechte si "
T$=T$+"kecy na naše hlavy. Za tuhle místnost mě asi moje holčina Zuzanka popraví, "
T$=T$+"jakoby nestačilo, že byla skoro v první místnosti, taky bych docela uvedl, že s "
T$=T$+"ní nechodím čtyři roky, jak to vyznělo, ale to byla jen schoda jmen."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="myš" and M=85 and P(32)<>199
T$="Je tvoje, je počítačová, což je vskutku logický úsudek."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="myš" and M=85 and P(32)=199
T$="Jsi asi ňákej blbej, nebo co, ale v popisu místnosti žádná myš není, jenom já "
T$=T$+"vidím malý zelený myšky, protože sem se zcvoknul a blbnu. Měl bych se jít "
T$=T$+"vyspat (sám) a taky teda du. Eště teda uložit tenhle tekst."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="chl" and M=86 and P(26)<>199
T$="Je z Charon Software, vypadá jako Danny D. Tihle hoši vydávali diskmág AWB a "
T$=T$+"jsou také autoři Pokladu Zlatých sluncí."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="chl" and M=86 and P(26)=199
T$="Jak jsem se už zmínil, tak vypadá jako Danny D. a teďka je plně zaměstnán "
T$=T$+"zkoumáním destihaléřové mince."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="tec" and M=88 and P(29)=0
T$="Mezi různou technikou jsi nalezl zrezivělou motorovou pilu. Vypadá to, že tu "
T$=T$+"dlouho nikdo nebyl. Pila by se ti mohla hodit, teda až ji nějak zprovozníš. "
T$=T$+"Paliva v malé nádržce máš dostatek. Snad by tu pilu spačilo něčím namazat, "
T$=T$+"někde tady přeci musí bejt nějakej ten lubrikační gel."
ZAROVNANI[T$]
P(29)=200
Goto PRIKAZY
End If
If C$="tec" and M=88 and P(29)<>0
T$="Není tu vůbec nic co by se dalo ještě odnést. Lesním bag"
T$=T$+"odjet, ale bohudík nemá kola, takže tady nic zajímavého už neuděláš."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="zát" and M=90
T$="Tak ten by nepřekonala ani Miada Mrvová, moje spolupracovnice, které všichni "
T$=T$+"rádi přezdíváme obrněný transportér, mašina a nebo tank."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="str" and M=90 and P(39)=0
T$="Je to druhý člen Charon Softu Haggart. Vypadá neúplatně, takže se dál už asi "
T$=T$+"nedostaneš."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="krá" and M=90 and P(39)<>0
T$="Je hluboký, na jeho dně je torzo ocelové cisterny, kterou jsi tak bezvadně "
T$=T$+"odbrzdil na kopci."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="noh" and M=90 and P(39)<>0
T$="Jé, vona je obutá. Asi patří tomu strážnému, ale kde je strážný? Asi se někde "
T$=T$+"schovává, ale proč tu nechal svou nohu?"
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="cis" and M=91 and P(39)=0
T$="Vyšplhal se na cisternu a odklopil poklop a zjistil, že je plná motorového "
T$=T$+"oleje."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="klí" and M=91 and P(39)=0
T$="Malé dřevěné, ale jsou nějaké zašprajcnuté pod kolama cisterny, takže je "
T$=T$+"nemůžeš vytáhnout a vůbec k čemu by ti to bylo?"
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="brá" and M=91 and P(39)<>0
T$="Jsou od kol cisterny, směřují k jihozápadu."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="van" and M=92 and P(38)<>199
T$="Je to doktor Vanař, jestli chcete opravit vanu tak se mu ozvěte."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="ava" and M=92 and P(38)<>199
T$="Jo, skvělý hudebník, ale toho vy všichni znáte. A taky jsem ho už dlouho "
T$=T$+"neviděl, takže nevím zda je ještě na živu."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="fra" and M=92 and P(38)<>199
T$="No, tak toho osobně neznám. Takže nevím co bych vám vo něm řekl."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="aut" and M=92 and P(33)<>199 and P(38)<>199
T$="Je to dízlový Mercedes. Vypadá to, že mu jaksi došla nafta."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="str" and M=92 and P(38)<>199
T$="Na kmenu je nastříkané sprejem veliké 'x'. Tak se přeci označují stromy určené "
T$=T$+"k poražení."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="aut" and M=92 and P(33)=199 and P(38)<>199
T$="Je to dízlový Mercedes. Jeho naftová nádrž je naplněna životodárnou tekutinou."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="aut" and M=93 and P(35)=0
T$="Je přimáčknuto padlým stromem k silnici. Otevřenými dveřmi ses dostal dovnitř "
T$=T$+"vozu a objevil zánovní magneťák, jehož vlastníkem byl Mr. Avalange. Magneťák "
T$=T$+"sis přivlastnil, abys měl co poslouchat na dlouhé cestě do Brna."
ZAROVNANI[T$]
P(35)=200
Goto PRIKAZY
End If
If C$="aut" and M=93 and P(35)<>0
T$="Je přimáčknuto padlým stromem k silnici. Vůz je nepoužitelný a ve vnitř není "
T$=T$+"nic zajímavého. Tak a tady to všechno končí a nebo vlastně začíná."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="tec" and M=94 and P(11)<>199
T$="Opatrně jsi rozhrnul živý plot a spatřil souseda jak si to plave na nafukovací "
T$=T$+"matračce ve svém skromném bazénku o velikosti Baltského moře. Okolo bazénu jsou "
T$=T$+"rozestavěny strážní věže, s figurínami vietnamských vojáků, vidíš i malinkou "
T$=T$+"džungli a s minovým políčkem. V bazénu se nachází letadlová loď, která je v "
T$=T$+"plné pohotovosti."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="bed" and M=96 and P(9)=0
T$="Rozeběhl ses a kopl do staré bedny a ukopls jí víko. Uvnitř se skrýval nějaký "
T$=T$+"poklad v podobě starejch rezavejch hřebíků."
ZAROVNANI[T$]
P(9)=200
Goto PRIKAZY
End If
If C$="bed" and M=96 and P(9)<>0
T$=" Bedna je totálně vybrakovaná."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="vůz" and M=97 and P(7)=0
T$="Jej! V tom starym škopku něco bylo, že by benzín? No benzín není rozhodně "
T$=T$+"hranatej a nemá nápis Commodore 1084S."
ZAROVNANI[T$]
P(7)=200
Goto PRIKAZY
End If
If C$="vůz" and M=97 and P(7)<>0
T$="Ve voze je jen prázdná pixla od ředidla a ta je ti k ničemu, protože to se už "
T$=T$+"nedá čuchat. Nazdar Semelka! Škoda, že to nehraješ, to by ses teda sfučel jako "
T$=T$+"na výletě v prváku."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="chl" and M=99 and P(19)<>199
T$="Hezkej blonďáček, tady mu přezdívají Dirty a kdysi mu říkali ještě John. "
T$=T$+"Chudáček malá, pláče protože mu jednu kouli, rozuměj kulečníkovou, sežral Vašek "
T$=T$+"Koula a chudák teďka nemůže hrát. A tak alespoň poslouchá rádio na svém "
T$=T$+"překrásném walkmanu."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="chl" and M=99 and P(19)=199
T$="Je vcelku spokojený, protože si může dohrát svou partii. Sice nemá walkmana, "
T$=T$+"ale maminka mu určitě koupí novýho."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="ind" and M=99
T$="Je to doktor Walter, hudebník bývalé Bohemy, jež stvořil hudbu, která vám teď "
T$=T$+"vříská do uší, no teďka asi ne, protože je to Speciální Edice. Koukám, že v tom "
T$=T$+"pijánu nemá samply alá ST-00. Hele Vláďo, nezlob se jak jsem tě tady zpotvořil, "
T$=T$+"vždyť život je tak krásnej a ty jsi jen jeden."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="leg" and(P(1)=200 or P(1)=M)
T$="Legitimace užívaná k jízdě v dopravních prostředcích města Kladna."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="kal" and(P(2)=200 or P(2)=M)
T$="Bledě modré džíny. Jsou docela slušivé, ale nechutně zablácené od bahna."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="klí" and(P(3)=200 or P(3)=M)
T$="Je maličký, asi patří do nějakého malého zámečku, třeba šuplíčku a nebo "
T$=T$+"skříně."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="pap" and(P(4)=200 or P(4)=M)
T$="Je určen pro jistého ožralu jmenující se Cracknel."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="mís" and(P(5)=200 or P(5)=M)
T$="Rezervuje ti na dnešní den místo v autobuse do Brna."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="sek" and(P(6)=200 or P(6)=M)
T$="Celá rezavá, ale k nějakému brutálnímu zločinu zcela postačující."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="mon" and(P(7)=200 or P(7)=M)
T$="Komodorácká 1084. Půjčil ti jej Hologram, ten má totiž dva. Jeden nefungující, "
T$=T$+"to je on. Mimochodem, nechcete ho někdo? A nebo mně! Chcete mně?"
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="poč" and(P(8)=200 or P(8)=M)
T$="Stará dobrá pětistovka s jedním megem ram a je tvoje."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="hře" and(P(9)=200 or P(9)=M)
T$="Jsou rezavé a od krve. Že bys někoho někde ukřižoval?"
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="dis" and(P(10)=200 or P(10)=M)
T$="Tři a půl palce, dédéčka, je na nich plno zajímavého softwaru. Tvá hra je tam "
T$=T$+"samo sebou také."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="kro" and(P(11)=200 or P(11)=M)
T$="Příšerně smradlavý krokodýl ti zjevně připomíná žábu, ale vždyť je to Jabba."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="žeb" and(P(12)=200 or P(12)=M)
T$="Je sice plesnivej, ale taky docela pěkně dlouhej."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="voz" and(P(13)=200 or P(13)=M)
T$="Taková sedačka na kolečkách, docela pohodlná."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="tra" and(P(14)=200 or P(14)=M)
T$="Je to zdroj k Amize, bez něj by ti vůbec nefungovala. Heč, já mám dva."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="oří" and(P(15)=200 or P(15)=M)
T$="Malinkatý, ale výživný. Dokonalá strava pro veverky."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="bat" and(P(16)=200 or P(16)=M)
T$="Kapesní, je určená ke svícení ve zvláště tmavých místnostech."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="pří" and(P(17)=200 or P(17)=M)
T$="Vodní. Obsahuje spoustu vody, ale nesmí se s ním hasit hořící elektřina a "
T$=T$+"pohonné hmoty, takže je ti docela k ničemu."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="láh" and(P(18)=200 or P(18)=M)
T$="Ruská, obsahuje alkohol a to ne zrovna málo, po něm by byla docela dobrá "
T$=T$+"opička."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="kou" and(P(19)=200 or P(19)=M)
T$="Normální vobyčejná žlutá koule ke kulečníku, to by mně zajímalo komu asi "
T$=T$+"schází."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="zub" and(P(20)=200 or P(20)=M)
T$="Je to zubní protéza pana Špalka. Bývalého majitele Special Bros Company."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="piv" and(P(21)=200 or P(21)=M)
T$="Půlitřík pivíčka hermeticky uzavřeném ve skle. Jedná se o desetistupňový "
T$=T$+"krušovický ležák, dokonce je i pěkně vychlazen, takže by sis mohl dát."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="mas" and(P(22)=200 or P(22)=M)
T$="Strašidelná karnevalová maska, s podobiznou doktora Waltera, když se na ní tak "
T$=T$+"díváš, tak jsi dostal docela dobrej nápad. Což s tou maskou někoho dokonale "
T$=T$+"vystrašit?"
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="hůl" and(P(23)=200 or P(23)=M)
T$="Dřevěná hůl pro staříky."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="med" and(P(24)=200 or P(24)=M)
T$="Je plná sladkého medu od lesních včeliček. Mňam!"
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="wal" and(P(25)=200 or P(25)=M)
T$="Vodotěsný typ žluté barvy od Sony. Takového má přeci Hologram za čtyři stovky z "
T$=T$+"bazaru."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="min" and(P(26)=200 or P(26)=M)
T$="Na slunci se hezky třpytí."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="čip" and(P(27)=200 or P(27)=M) and P(28)=0
P(28)=200
T$="V balíčků s paprikovou pochoutkou to nějak divně chrastí. Tak jsi jej tedy opatrně otevřel a mezi bramborovými lupínky jsi nalezl počítačové čipy, jedná se o aga čipset. Což je dost divné, asi se tam dostali omylem při výrobě."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="čip" and(P(27)=200 or P(27)=M) and P(28)<>0
T$="Paprikové Crunchipz. Jsou výborné a nejvíce chutnají Plastikovi, taky mi při "
T$=T$+"poslední návštěvě sežral čtyři balení, parchant jeden."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="chi" and(P(28)=200 or P(28)=M)
T$="Jéje, to jsou přeci aga čipsy pro dvanáctistovky, že by někomu chyběly?"
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="pil" and(P(29)=200 or P(29)=M)
T$="V nádržce je spousta paliva, ale její řetěz je bohužel tak zarezlý, že ji "
T$=T$+"bohudík nemůžeš použít."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="kaz" and(P(30)=200 or P(30)=M)
T$="Je plná bezvadnejch songů od Depešáků."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="stř" and(P(31)=200 or P(31)=M)
T$="Je z lahve od piva. Byla to pravděpodobně dvanáctka Krušovice."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="roh" and(P(32)=200 or P(32)=M)
T$="Je to roh sloužící k přivolávání různé lesní havěti."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="kan" and(P(33)=200 or P(33)=M)
T$="Je plný motorové nafty."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="myš" and(P(34)=200 or P(34)=M)
T$="Myška jedna bílá, patří k základnímu vybavení tvého počítače."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="mag" and(P(35)=200 or P(35)=M)
T$="A hele todle je přeci mega magneťák od Maxe, tedy Mr. Avalangeho, s tou si "
T$=T$+"budeš tedy pěkně vyhrávat."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="šňů" and(P(36)=200 or P(36)=M)
T$="Propojovací kabel mezi počítačem a monitorem."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="hrá" and(P(37)=200 or P(37)=M)
T$="Slouží ke shrabování listí a nebo travičky."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="pil" and(P(38)=200 or P(38)=M)
T$="Nádržka je plná, řetěz nějak tím olejem odrezl a tak jsi ji nastartoval. "
T$=T$+"Vrrrrrrrrrrrrrrr! S tou se budou teda řezat ruce a nohy a hlavy a stromy."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="dře" and(P(39)=200 or P(39)=M)
T$="Malinkatej. K ničemu se ti nehodí, ale neseš jej sebou."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="šíl" and SIL=1
T$="Je to známý vlasatec James Cracknel Preclík, dnes si tě nějak oblíbil a tak jde stále za tebou a dělá na tebe obličeje."
ZAROVNANI[T$]
Goto PRIKAZY
End If
Return
Rem #########################################################################
KONEC:
Gosub CORONISRIFT
Print : Print "Fakt konec (a/n) ?"
Gosub CORONISRIFT
Repeat
X$=Inkey$
If X$="n" Then Print : Print "Jóóó, dobrý!" : Goto PRIKAZY
Until X$="a"
Print : Print "Jak myslíš." : Wait 50 : Goto HOLOGRAM
Rem #########################################################################
QUIT:
Gosub CORONISRIFT
Print : Print "Fakt to chceš vymazat (a/n)?"
Gosub CORONISRIFT
Repeat
X$=Inkey$
If X$="a" Then Screen Hide 3 : Screen Close 3 : Med Stop : Edit
Until X$="n"
X$="" : Print : Print "Tak jo, ale radši neprovokuj." : Goto PRIKAZY
Rem #########################################################################
SLOVNIK:
Pen 5
Print : Print : Print
Print " ****************************************************************************"
Print " * *"
Print " *"; : Pen 1 : Print " Slovník genijální textofky "; : Pen 7 : Print "Na Resetkání"; : Pen 1 : Print " Special Edition 98 "; : Pen 5 : Print "*"
Print " * *"
Print " *"; : Pen 1 : Print " Pro pohyb v daném směru postačí zadávat jen první písmeno příkazu. "; : Pen 5 : Print "*"
Print " *"; : Pen 1 : Print " Směrové příkazy jsou '"; : Pen 7 : Print "sever"; : Pen 1 : Print "', '"; : Pen 7 : Print "jih"; : Pen 1
Print "', '"; : Pen 7 : Print "východ"; : Pen 1 : Print "', '"; : Pen 7 : Print "západ"; : Pen 1 : Print "', '"; : Pen 7 : Print "nahoru"; : Pen 1 : Print "' a "; : Pen 5 : Print "*"
Print " *"; : Pen 1 : Print " '"; : Pen 7 : Print "dolů"; : Pen 1 : Print "'. Pro usnadnění pohybu jsem implantoval do této verze i maličký "; : Pen 5 : Print "*"
Print " *"; : Pen 1 : Print " zlepšováček, který nemá obdoby a to jsou kurzorové šipky. Stačí tedy "; : Pen 5 : Print "*"
Print " *"; : Pen 1 : Print " jen zmáčknout šipku a můžete se vydat do druhé místnosti, ech, teda "; : Pen 5 : Print "*"
Print " *"; : Pen 1 : Print " jestli je to možné. "; : Pen 5 : Print "*"
Print " * *"
Print " *"; : Pen 1 : Print " Slovem '"; : Pen 7 : Print "vezmi"; : Pen 1 : Print "' vezmeme určitý předmět z podlahy, samozřejmě, že "; : Pen 5 : Print "*"
Print " *"; : Pen 1 : Print " nesmíme zapomenout zadat i co máme vzít. Ukážeme si to na příkladu. "; : Pen 5 : Print "*"
Print " *"; : Pen 1 : Print " Na zemi leží například dřevěná hůl a my ji chceme, tak zadáme příkaz "; : Pen 5 : Print "*"
Print " *"; : Pen 1 : Print " '"; : Pen 7 : Print "vezmi hůl"; : Pen 1 : Print "'. Příkazem '"; : Pen 7 : Print "polož"; : Pen 1 : Print "' se daného předmětu rychle zbavíme, ale "; : Pen 5 : Print "*"
Print " *"; : Pen 1 : Print " není to třeba, vždyť inventář je neomezený. Samozřejmě, že i tu máme "; : Pen 5 : Print "*"
Print " *"; : Pen 1 : Print " malý zlepšovák a to je slovo '"; : Pen 7 : Print "vše"; : Pen 1 : Print "', pokud se nám po zemi válí více "; : Pen 5 : Print "*"
Print " *"; : Pen 1 : Print " věcí a my jsme znechuceni vpisováním jednotlivých předmětů, tak "; : Pen 5 : Print "*"
Print " *"; : Pen 1 : Print " počítači zadáme příkaz '"; : Pen 7 : Print "vezmi vše"; : Pen 1 : Print "', to samé platí i pro povel '"; : Pen 7 : Print "polož"; : Pen 1 : Print "'. "; : Pen 5 : Print "*"
Print " * *"
Print " ****************************************************************************"
Print
KEY
Pen 5
Print : Print
Print " ****************************************************************************"
Print " * *"
Print " *"; : Pen 1 : Print " Když náhodou zapomeneme, jak vypadá místnost, ve které stojíme, tak "; : Pen 5 : Print "*"
Print " *"; : Pen 1 : Print " postačí zadat slovo '"; : Pen 7 : Print "situace"; : Pen 1 : Print "' a nebo jednopísmennou zkratku anglického "; : Pen 5 : Print "*"
Print " *"; : Pen 1 : Print " slova room, což je '"; : Pen 7 : Print "r"; : Pen 1 : Print "'. Místnost se nám vypíše hezky znovu. To je "; : Pen 5 : Print "*"
Print " *"; : Pen 1 : Print " také výborné i po nějaké změně, kterou jsme v místnosti způsobili. "; : Pen 5 : Print "*"
Print " *"; : Pen 1 : Print " Příkaz '"; : Pen 7 : Print "inventář"; : Pen 1 : Print "' a nebo zkratka '"; : Pen 7 : Print "i"; : Pen 1 : Print "' nám prozradí obsah bezedných "; : Pen 5 : Print "*"
Print " *"; : Pen 1 : Print " kapes. "; : Pen 5 : Print "*"
Print " * *"
Print " *"; : Pen 1 : Print " Příkazem '"; : Pen 7 : Print "prozkoumej"; : Pen 1 : Print "' může prozkoumat určité předměty, či osoby "; : Pen 5 : Print "*"
Print " *"; : Pen 1 : Print " nacházející se ve hře. U místnosti to platí pouze pro zvýrazněná "; : Pen 5 : Print "*"
Print " *"; : Pen 1 : Print " slova, to je také mimochodem, velice výhodné, nemusíme psát různé "; : Pen 5 : Print "*"
Print " *"; : Pen 1 : Print " blbosti a dost nám to zpříjemní hru. "; : Pen 5 : Print "*"
Print " *"; : Pen 1 : Print " "; : Pen 5 : Print "*"
Print " *"; : Pen 1 : Print " A jak použít nějaký předmět, který máme u sebe? Nic jednoduššího, "; : Pen 5 : Print "*"
Print " *"; : Pen 1 : Print " než zadat příkaz '"; : Pen 7 : Print "použij"; : Pen 1 : Print "'. "; : Pen 5 : Print "*"
Print " * *"
Print " ****************************************************************************"
Print
Print
Print
KEY
Pen 5
Print : Print
Print " ****************************************************************************"
Print " * *"
Print " *"; : Pen 1 : Print " Další příkazy si vyzkoušejte sami, ať také máte něco ze hry a mě už "; : Pen 5 : Print "*"
Print " *"; : Pen 1 : Print " nebaví to psát. Takže to jsou tyto příkazy '"; : Pen 7 : Print "konec"; : Pen 1 : Print "', '"; : Pen 7 : Print "quit"; : Pen 1 : Print "', '"; : Pen 7 : Print "save"; : Pen 1 : Print "', "; : Pen 5 : Print "*"
Print " *"; : Pen 1 : Print " '"; : Pen 7 : Print "load"; : Pen 1 : Print "' a nakonec je tu příkaz nový a velice užitečný a tím je '"; : Pen 7 : Print "mapa"; : Pen 1 : Print "', "; : Pen 5 : Print "*"
Print " *"; : Pen 1 : Print " což je vlastně automaping. V módu mapa je možno vykonávat všechny "; : Pen 5 : Print "*"
Print " *"; : Pen 1 : Print " příkazy, jen s tou nevýhodou, že nevidíte odezvu. Tak a to je snad "; : Pen 5 : Print "*"
Print " *"; : Pen 1 : Print " vše. "; : Pen 5 : Print "*"
Print " *"; : Pen 1 : Print " "; : Pen 5 : Print "*"
Print " *"; : Pen 1 : Print " Jó, a příkazy zadávejte s plnou diakritikou, čeština je jako na "; : Pen 5 : Print "*"
Print " *"; : Pen 1 : Print " klavesnici psacího stroje. A pokud by nefungovala, tak si "; : Pen 5 : Print "*"
Print " *"; : Pen 1 : Print " nainstalujte kejmapu KOI8. "; : Pen 5 : Print "*"
Print " *"; : Pen 1 : Print " "; : Pen 5 : Print "*"
Print " *"; : Pen 1 : Print " Á, zapoměl jsem na příkaz '"; : Pen 7 : Print "pomoc"; : Pen 1 : Print "' ";
Pen 5 : Print " *"
Print " * *"
Print " ****************************************************************************"
Print : Print : Print
KEY
Goto PRIKAZY
Rem #########################################################################
POMOC:
If M=1
ZAROVNANI["Chlapče je to velmi podivný, ale na počátku ti radit vůbec, ale vůbec nehodlám."]
Goto PRIKAZY
End If
Print
Gosub CORONISRIFT
Print "* Skoč z balkónu."
Gosub CORONISRIFT
Print "* Nesekni si ruce sekerou."
Gosub CORONISRIFT
Print "* Pozor na policajty."
Gosub CORONISRIFT
Print "* V autobusech se krade, tak pozor."
Gosub CORONISRIFT
Print "* Což takhle někoho postrašit."
Gosub CORONISRIFT
Print "* Dobře uvaž než něco uděláš."
Gosub CORONISRIFT
Print "* Krysám bych hodil minci, ale bacha ať je nezabiješ."
Gosub CORONISRIFT
Print "* Nekrmte mamuty, mohli by vás sežrat!"
Gosub CORONISRIFT
Print "* Střep je vhodný na řezání."
Gosub CORONISRIFT
Print "* Zkus si někde sehnat mapu, nebo si ji namaluj."
Gosub CORONISRIFT
Print "* Ukládej si často pozici na disk."
Gosub CORONISRIFT
Print "* Pozor na Vaška Koulu."
Gosub CORONISRIFT
Print "* I veverka může být nebezpečná, pokud nedostane to co chce."
Gosub CORONISRIFT
Print "* Cisterny rádi sjíždějí ze svahů."
Gosub CORONISRIFT
Print "* Hledej jehlu v kupce sena."
Gosub CORONISRIFT
Print "* Když potřebuješ něco a nemáš to, tak si to najdi."
Gosub CORONISRIFT
Print "* V lese bývá spousta odpadků."
Gosub CORONISRIFT
Print "* Mluvící vlkodlaci nekoušou."
Gosub CORONISRIFT
Print "* Pokud ti to stejně nepůjde, tak volej 0312-83727."
Goto PRIKAZY
Rem #########################################################################
POUZIJ:
If C$="klí" and M=1 and P(3)=200
T$="Zastrčil jsi malý klíček do maličkého zámku skříně, otočil jím a skříň jsi jím dokonce"
T$=T$+" odemkl. Bohužel klíček tuto proceduru nepřežil, jelikož se zlomil. Tak jsi jej vzteky zahodil"
T$=T$+" někam do kouta."
ZAROVNANI[T$]
P(3)=199
Goto PRIKAZY
End If
If C$="klí" and M<>1 and P(3)=200
T$="A co bys jím chtěl jako odemknout? Tady nic odemykat nepůjde."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="kal" and P(2)=200
T$="Natáhnul sis jednu hohavici kalhot na jednu nohu, druhou na druhou, zapnul sis zip a"
T$=T$+" zjistil, že sis ty kalhoty oblékl obráceně, takhle vypadáš jako debil z Kris Kros a tak sis je"
T$=T$+" obrátil. No a to už je mnohem lepší."
ZAROVNANI[T$]
P(2)=199
Goto PRIKAZY
End If
If C$="sek" and M=4 and P(6)=200
T$="Popadl jsi sekeru do obou rukou a začal jsi s ní šíleně mlátit do dveří. Po půl hodině"
T$=T$+" se ti konečeně podařilo prorazit dveře a sekera ti vyletěla z rukou, proletěla zbytkem dveří"
T$=T$+" někam na ulici od té doby jsi ji už nikdy nespatřil, cesta je ale volná, tak proč ji hledat?"
ZAROVNANI[T$]
P(6)=199
J=1
Goto PRIKAZY
End If
If C$="sek" and M<>4 and P(6)=200
T$="Popadl jsi sekeru do obou rukou, zatočil sis s ní nad hlavou až se ti zamotala. Nic jsi"
T$=T$+" s tím nic nespravil a ani nezničil, takže jsi toho nechal."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="leg" and M=9 and P(1)=200 and AUT=1
T$="Z náprsní kapsy svého dlouhého kabátu jsi vytáhl legitimaci, nastoupil do vozu a"
T$=T$+" ukázal jsi ji řidičovi. Ten zavřel dveře a rozjel se k další zastávce. Ve voze jsi se usadil a"
T$=T$+" počkal až autobus znovu zastaví. Po hrůzostrašné cestě autobus opravdu zastavil a s nervy"
T$=T$+" drásajícím skřípěním se dveře otevřely a tys vystoupil ven z vozu. Dveře autobusu se znovu"
T$=T$+" zavřely a ten s pískáním gum odjel neznámo kam."
ZAROVNANI[T$]
S=0 : J=0 : V=0 : Z=0 : N=0 : D=0
AUT=0
M=13
X=4
Y=3
J=1
'LX=X : LY=Y
Gosub MAPA
Goto PRIKAZY
End If
If C$="leg" and M<>9 and P(1)=200 and AUT=0
T$="Vytáhl jsi legitimaci z kapsy a podíval ses na ní. Sice nevím co s ní chceš dělat,"
T$=T$+" ale budiž. Po chvilce pozorování fotky na legitimaci jsi dospěl k závěru, že ta fotka asi bude"
T$=T$+" tvá a když tě nic jiného nenapadlo, tak sis tu legitku zase schoval do kapsy."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="žeb" and M=12 and P(12)=200
T$="Sundal jsi žebřík z ramene a spustils jej z balkónu dolů do zahrady, teďka můžeš slézt"
T$=T$+" dolů, já vím, máš strach z výšek, to já taky, ale dole je jen skleník s marihuanou a záhonek s"
T$=T$+" růžičkami a ty jsou přeci měkké, tak se nemůsíš vůbec ničeho obávat."
ZAROVNANI[T$]
P(12)=199
J=1
Goto PRIKAZY
End If
If C$="žeb" and M<>12 and P(12)=200
T$="Postavil jsi žebřík na zem tak, aby jeho druhý konec směřoval k nebi. Pak jsi začal po"
T$=T$+" žebříku šplhat do nebe. Alo co čert nechtěl. Na poslední špryčně ti uklouzla noha po hnusně"
T$=T$+" slizké plísni a ty jsi sletěl dolů na zem, bez klobouku bos a natloukl sis nos."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="leg" and M=13 and P(1)=200 and AUT=1
T$="Z náprsní kapsy svého dlouhého kabátu jsi vytáhl legitimaci, nastoupil do vozu a"
T$=T$+" ukázal jsi ji řidičovi. Ten zavřel dveře a rozjel se k další zastávce. Ve voze jsi se usadil a"
T$=T$+" počkal až autobus znovu zastaví. Po hrůzostrašné cestě autobus opravdu zastavil a s nervy"
T$=T$+" drásajícím skřípěním se dveře otevřely a tys vystoupil ven z vozu. Dveře autobusu se znovu"
T$=T$+" zavřely a ten s pískáním gum odjel neznámo kam."
ZAROVNANI[T$]
S=0 : J=0 : V=0 : Z=0 : N=0 : D=0
M=9
J=1
S=1
X=3
Y=3
Gosub MAPA
' LX=X : LY=Y'
Goto PRIKAZY
End If
If C$="leg" and P(1)=200 and M<>13
T$="Vytáhl jsi legitimaci z kapsy a podíval ses na ní. Sice nevím co s ní chceš dělat,"
T$=T$+" ale budiž. Po chvilce pozorování fotky na legitimaci jsi dospěl k závěru, že ta fotka asi bude"
T$=T$+" tvá a když tě nic jiného nenapadlo, tak sis tu legitku zase schoval do kapsy."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="voz" and M=14 and P(13)=200
T$="Nasedl jsi na invalidní vozík a začal usilovně hrát tělesně postiženého, když si toho"
T$=T$+" všiml řidič autobusu, tak ti nejen pomohl nastoupit do autobusu, ale dokonce uvolnil místo"
T$=T$+" vedle sebe, abys mohl obdivovat krásy cesty. Pak se autobus dal do pohybu a ty jsi zamířil do"
T$=T$+" Prahy..."
ZAROVNANI[T$]
S=0 : J=0 : V=0 : Z=0 : N=0 : D=0
X=9
Y=1
M=100
S=1
Gosub MAPA
'LX=X : LY=Y
Goto PRIKAZY
End If
If C$="voz" and M=100 and P(13)=200
T$="Nasednul jsi na invalidní vozík a rozjel se směrem ke Kladnu. Po deseti"
T$=T$+"hodinách jízdy jsi konečně dorazil na autobusák v Kladně."
S=0 : J=0 : V=0 : Z=0 : N=0 : D=0
X=4 : Y=4 : S=1 : V=1 : M=14
Gosub MAPA
'LX=X : LY=Y
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="voz" and M<>14 and P(13)=200
T$="Sednul jsi si na kolečkové křeslo a začal jsi se projíždět po okolí, když tě to znudilo,"
T$=T$+" tak jsi sesedl a hodil sis ten vozík na ramena, abys mohl pokračovat dále pěšky."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="mas" and M=16 and P(13)<>0 and P(22)=200
T$="Nasadil sis masku a začal jsi strašit stařenu. Chudinka stará se tak vylekala, že vzala"
T$=T$+" nohy na ramena a utíkala od tebe pryč, ale daleko neuběhla, jelikož se přiblížila k příkopu a"
T$=T$+" její staré nohy ji vypověděly službu, zrovna, když přeskakovala příkop a tak do něho pěkně"
T$=T$+" spadla a utopila se, jen její hůl ukazuje místo, kde se nad tou nebohou starou chudinkou"
T$=T$+" zavřela navždy voda. Že se nestydíš takhle strašit staré lidi, jakpak by asi bylo teď tobě být v"
T$=T$+" její kůži? Asi by sis hrál na utopence, co?"
ZAROVNANI[T$]
P(22)=199
P(23)=17
Goto PRIKAZY
End If
If C$="mas" and M<>16 and P(22)=200
T$="Nasadil sis masku na obličej dosti nešikovně, ta se ti přilepila na nos a ústa, takže"
T$=T$+" ses málem udusil, naštěstí se ti povedlo na poslední chvíli masku strhnout."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="hůl" and M=23 and P(23)=200
T$="Opatrně jsi položil hůl na zem. První si ji povšiml pan Špalek, ale pak ji saptřil i pan"
T$=T$+" Haupt. Oba dědci se po ní vrhli a začali se o ní prát jako malá děcka. Po krátké a rozhodující"
T$=T$+" krvavé bitce zvítězil pan Špalek, který ztratil pouze zubní protézu. Pan Haupt ztratil nejen zuby,"
T$=T$+" ale i vědomí, zdá se že asi na pořád. Alespoň už nebude pirátit za nekřesťanský peníze. Pan"
T$=T$+" Špalek se nyní věnuje své oblíbené hře, takže ani netuší, že nemá zuby, ty se povalují v kaluži"
T$=T$+" krve na podlaze jídelny."
ZAROVNANI[T$]
P(23)=199
P(20)=M
Goto PRIKAZY
End If
If C$="hůl" and M<>23 and P(23)=200
T$="Zatočil sis s holí ve stylu Charlieho Chaplina, abys na sebe upoutal pozornost, máš ale"
T$=T$+" velkou smůlu, nikdo tu v okolí není, takže je to na houby."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="pap" and M=39 and P(4)=200
T$="O.K. Podal jsi tomu ohyzdovi papírek. Ten se na něj hloubavě zadíval a po několika"
T$=T$+" minutách pochopil i význam zprávy. Pak se mrknul na tebe a prohlásil: 'Dobrá děfko, máš u"
T$=T$+" sebe nějakej chlast?'"
ZAROVNANI[T$]
T$=" Tys mu řekl, že zatím ne, ale že jej určitě někde opatříš. Ohyzdu to mírně znechutilo, ale"
T$=T$+" jak to vypadá, tak tě bude následovat."
ZAROVNANI[T$]
P(4)=199
P(14)=M
SIL=1
Goto PRIKAZY
End If
If C$="pap" and M<>39 and P(4)=200
T$="Na tom kusu papíru je napsáno:"
ZAROVNANI[T$]
T$=" Preclíku ty jedna děfko!"
T$=T$+" Doufám, že jedeš na Re-setkání. Pokud ti tenhle papír předá nějakej magor, tak ho následuj,"
T$=T$+" jen se cestou někde neožer."
ZAROVNANI[T$]
T$=" Jo, a pozdavuje tě Umnělohomotnej. Hezkou zábavu ti přeje Velkej Koder Hologramoun..."
T$=T$+" No, to už jsi jednou četl, což ten papírek takhle hezky sníst? Že ne? Já si myslím, že se ti"
T$=T$+" bude k něčemu ještě hodit."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="oří" and M=44 and P(15)=200
T$="Veverka se probrala ze zamyšlení a začala si tě prohlížet. Najednou spatřila lískový"
T$=T$+" oříšek ve tvé ruce. Přišla k tobě, očichala oříšek a pak najednou povídá: 'Já vořechy nežeru, já"
T$=T$+" chci diskety!'. A pak se na tebe vrhla a celého tě sežrala, takže musíš všechno absolvovat"
T$=T$+" znova, pokud sis teda neuložil pozici hry. Mě, ale vůbec nevadí, že jsi skončil, jenom ti chci"
T$=T$+" říct, že si to budeš muset odehrát znovu, jelikož kvůli nedostaku paměti mažu uloženou pozici."
ZAROVNANI[T$]
KEY
Goto HOLOGRAM
End If
If C$="oří" and M<>44 and P(15)=200
T$="Pohazuješ si oříškem z jedné ruky do druhé, pak ti oříšek proklouzl mezi prstíky a"
T$=T$+" spadl na zem, tak jsi jej sebral a schoval do kapsy."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="dis" and M=44 and P(10)=200 and VEVERKA=0
T$="Jakmile ta ohavná tlustá veverka spatřila diskety ve tvé ruce, tak se na ně lačně"
T$=T$+" vrhla, div, že ti neutrhla ruku. Pak se otočila a snaží se s námahou vyšplhat na strom, konečně"
T$=T$+" se jí to podařilo. Vidíš, jen jak přeskakuje z větve na větev a mizí v dáli..."
ZAROVNANI[T$]
T$=" A teď prosím střih. V téže době ve vedlejší místnosti stojí nějaký člověk s brokovnicí a"
T$=T$+" trpělivě čeká na svou kořist. Najednou se objevuje veverka. Člověk zamíří a tiskne spoušť."
ZAROVNANI[T$]
T$=" BUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUM!"
ZAROVNANI[T$]
T$="Veverka to dostává přímo do středu hlavy a mozek se rozstřikuje po okolních stromech. Člověk"
T$=T$+" tuto děsivou scénu sleduje a čeká až veverka chcípne, pak se sebral a s myšlenkou na to jak"
T$=T$+" dostal tu hnusnou bestii odchází."
ZAROVNANI[T$]
T$=" Tak a teďka zpět."
T$=T$+" Když ti veverka zmizela z dohledu, tak se ozvala rána, jako když někdo střelí. Ticho,"
T$=T$+" přerušovalo jen krátké zrychlené dýchání, ale i to po chvilce ustalo."
ZAROVNANI[T$]
VEVERKA=1
P(10)=0
S=1
Goto PRIKAZY
End If
If C$="dis" and M<>44 and P(10)=200
T$="Cvakáš si kovovými plíšky disket. To cvakání tě strašně uklidňuje. Takhle bys to"
T$=T$+" vydržel celé hodiny."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="pří" and M=49 and P(17)=200
T$="Vytrhnul jsi z hasičáku bezpečnostní pojistku a stlačil takové to veliké tlačítko. Z"
T$=T$+" hadice hasičáku začala stříkat hasicí pěna. Hadice se ti vyškubla z ruky a jak tak poletovala"
T$=T$+" ve vzduchu, tak rozstříkala pěnu na hořící kosmické plavidlo a oheň ustoupil. Po několika"
T$=T$+" minutách bylo celé okolí zaplaveno hasicí pěnou, která se pomalu vsakovala do rozorané půdy."
T$=T$+" Crank ti za pomoc při zvládnutí požáru daroval lahvinku lodní vodečky. Ještě tě ovšem trápí ta"
T$=T$+" maličkost a tou je to, že na etiketě hasičáku bylo napsáno, že se jedná o vodní typ, tak proč"
T$=T$+" ta pěna."
ZAROVNANI[T$]
P(17)=199
P(18)=200
Goto PRIKAZY
End If
If C$="pří" and M<>49 and P(17)=200
T$="Zprudka jsi udeřil do spouštěcího tlačítka hasičáku, ale nic se nestalo. Příště by to"
T$=T$+" chtělo možná vytáhnout bezpečnostní pojistku."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="bat" and P(16)=200
T$="Rozsvítil jsi baterku a jí si pak svítíš do očí až jsi dokonale oslněn."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="piv" and M=53 and P(21)=200
T$="Přistoupils k Mirasovi a podal mu vychlazenou kuželku. Miras lahváček vylemtal a řekl"
T$=T$+" ti: 'Hele, díky kámo za záchranu, to mi docela bodlo a víš ty co? Tady máš láhev medu, mně je"
T$=T$+" k ničemu a dej si bacha na včeličky. Nemněl bys ještě jeden lahváček?'"
T$=T$+" Tys mu řekl, že sice ne, ale že možná doneseš."
ZAROVNANI[T$]
P(21)=199
P(24)=200
Goto PRIKAZY
End If
If C$="piv" and M<>53 and P(21)=200
T$="Bez otvíráku se asi nenapiješ."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="kou" and M=99 and P(19)=200
T$="Vyndal jsi svou kouli z kapsy a podal ji tomu uplakanému chlapečkovi. Hned si ji hodil"
T$=T$+" na herní plochu a začal hrát svou partii. Zabral se do hry tak, že si ani nevšiml, že mu z kapsy"
T$=T$+" vypadl takřka nerozbitný žlutý vodotěsný walkman."
ZAROVNANI[T$]
P(19)=199
P(25)=200
Goto PRIKAZY
End If
If C$="kou" and M<>99 and P(19)=200
T$="Nechápu k čemu ti to bude, protože nevíš co s ní. Což ji takhle hodit na hlavu Vaška"
T$=T$+" Kouly, tak by měl možná i bouli a nejmenoval by se Koula a Boula."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="min" and M=64 and P(26)=200
T$="Hodil jsi mezi hejno krys mici, ale naneštěstí strefila tu největší, nejhnusnější,"
T$=T$+" nejtlustší a nejmocnější do čumáku a ona po tý ráně zhebla. Krysy se na tebe vrhli a v mžiku"
T$=T$+" tě zežrali, protože jsi zabil jejich královnu. Bohužel jako kostra ve hře pokračovat němůžeš a"
T$=T$+" tak mi nezbývá nic jiného, než začít znovu."
ZAROVNANI[T$]
KEY
Goto HOLOGRAM
End If
If C$="hře" and M=65 and P(9)=200
T$="Podal jsi Kruegrovi zakrvácené hřebíky. On si je nasadil na takovou divnou rukavici."
T$=T$+" Zahrozil ti tou rukavicí a zařval na tebe:"
ZAROVNANI[T$]
T$=" 'Hele mladej, máš rád život? Tak koukej vodsuď vypadnout a to velmi rychle. Jinak tě"
T$=T$+" podřežu jako slepici!'"
ZAROVNANI[T$]
T$=" Jen co to ta zrůda dořekla tak zmizela v nedalekém domě. Na zemi po ní zůstal jeden"
T$=T$+" káblík."
ZAROVNANI[T$]
P(9)=199
P(36)=200
Goto PRIKAZY
End If
If C$="hře" and M<>65 and P(36)=200
T$="Zapíchal sis hřebíky do rukou a nohou, abys věděl jak se cítil chudák Kristus na kříži."
T$=T$+" Když byla bolest nesnesitelná, tak sis je zase vytáhl a schoval. Rány způsobené hřebíky ti"
T$=T$+" nějakým záhadným způsobem ztratily."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="chi" and M=68 and P(28)=200
T$="Slitoval ses nad ubohým Lanexem a hodil mu aga čipy do klece. Hroch začal skákat"
T$=T$+" radostí div že nerozmlátil mříže. Teďka bude konečně moci hrát ty bezvadný agový hry o"
T$=T$+" kterých se mu tolik snilo. K nohám se ti snesla nějaká audio kazeta, která mu vypadla z klece."
T$=T$+" Na tej kazetě určitě budou Depešáci, protože nic jinýho ani Latex neposlouchá."
ZAROVNANI[T$]
P(28)=199
P(30)=200
Goto PRIKAZY
End If
If C$="chi" and M<>68 and P(28)=200
T$="Bez počítače jsou ti k ničemu."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="med" and M=70 and P(24)=200
T$="Obezřetně jsi položil otevřenou pikslu s medem před medvídka. Ten se po něm vrhnul a"
T$=T$+" začal ho baštit jak nezjednaný. Teďka už máš od něj pokoj, takže můžeš vyrazit za dalším"
T$=T$+" dobrodružstvím."
ZAROVNANI[T$]
V=1
P(24)=199
Goto PRIKAZY
End If
If C$="med" and M<>70 and P(24)=200
T$="Otevřel jsi pikslu s medem a líznul sis. Mňam! To je ale dobrota."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="čip" and M=75 and P(27)=200 and P(28)<>0
T$="Nasypal jsi paprikovou pochoutku do pasti tomu zviřátku. Mamutík se po bramborových"
T$=T$+" lupíncích hladově vrhnul a začal je zuřivě hltat. Když je zbaštil, tak se napil vodou z kaluže,"
T$=T$+" ale to neměl dělat, protože se v jeho žaludku odehrála nevysvětlitelná chemická reakce."
T$=T$+" Mamutík se nafoukl a tak zaplnil celou jámu, čímž vlastně vytvořil provizorní most, přes který"
T$=T$+" můžeš bezpečně překonat tu velikou jámu."
ZAROVNANI[T$]
P(27)=199
S=1
Goto PRIKAZY
End If
If C$="čip" and M<>75 and P(27)=100
T$="Hmm, nezdá se mi to dobré řešení, co kdyby ses nejprve podíval do balíčku zda v něm"
T$=T$+" něco není. A pokud ses tam náhodou podíval, tak se mrkni po něčem co žere čipsy, pak teprve"
T$=T$+" můžeš něco dělat, ale tady určitě ne."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="kaz" and P(30)=200 and P(25)=200
T$="Jasně to je dobrej nápad. Vložil jsi do walkmana kazetu a poslechl sis ji. Je tam"
T$=T$+" nahraná muzika od Depešáků, vždyť jsem ti to povídal."
ZAROVNANI[T$]
P(30)=199
Goto PRIKAZY
End If
If C$="kaz" and P(30)=200 and P(25)<>199
T$="Tak to se mi nezdá dobré, co kdyby sis opatřil něco na přehrávání a nebo máš snad"
T$=T$+" magnetickou hlavu, která dokáže přečíst audio záznam?"
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="wal" and M=77 and P(25)=200 and P(30)=199 and P(20)<>199
T$="Podal jsi walkmana Bomberovi, ten v domění, že se jedná o techno si nasadil"
T$=T$+" sluchátka a stiskl tlačítko play. V tu chvíli se ozval song Personal Jesus a chudák Bomber"
T$=T$+" dostal takový hudební šok, že se z něj bude vzpamatovávat nejmíň tejden. Má to jedinou"
T$=T$+" kladnou stránku a to tu, že jsi zachránil to nebohé týrané zvíře, které k tobě přiběhlo a něco"
T$=T$+" po tobě chce."
ZAROVNANI[T$]
P(25)=199
Goto PRIKAZY
End If
If C$="wal" and M<>77 and P(25)=200
T$="Nasadil sis walkmana na uši, tedy sluchátka a walkmana sis připnul na opasek,"
T$=T$+" teďka vypadáš dost tvrdě, hmm spíš debilně."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="zub" and M=77 and P(25)=199 and P(20)=200
T$="Podal jsi tomu bezzubému zviřátku zoubky. Ten ti poděkoval a řek ti, že ti pomůže, když"
T$=T$+" na něj zatroubíš rohem. Ale teďka prej musí běžet domů, protože si musí uvařit oběd."
ZAROVNANI[T$]
P(20)=199
Goto PRIKAZY
End If
If C$="zub" and M<>77 and P(20)=200
T$="Nasadil sis zuby do úst. Teďka vypadáš jako hrabě Píčula. No, můžeš někomu pít krev,"
T$=T$+" ale nejvíc jí asi piješ mě, protože to ještě hraješ."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="láh" and M=78 and P(18)=200
T$="Podal jsi láhev Hologramovi a ten ji vypil na ex. Najednou to s ním šlehlo na zem,"
T$=T$+" protože nesnáší tvrdej chlast. Ostatní ožralové se na něj podívali a řekli: 'Hologram je kaput."
T$=T$+" Musíme ho někde pohřbít!'"
ZAROVNANI[T$]
T$=" Sebrali nebohého Holograma a odtáhli ho z tvého dohledu. Zbyl tu jen jeden vandrák,"
T$=T$+" kanystr nafty a hrábě."
ZAROVNANI[T$]
P(18)=199
P(37)=M
P(33)=M
Goto PRIKAZY
End If
If C$="láh" and M<>78 and P(18)=200
T$="Tak to teda ne, ty se mi tu ožírat nebudeš."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="hrá" and M=79 and P(37)=200
T$="Hráběma jsi rozhrabal první kupku sena, nic jsi nenašel, pak jsi rozhrabal druhou, třetí,"
T$=T$+" čtvrtou, pátou ..... až teprve v poslední něco podivně cinklo o hrábě a tak jsi se sehnul, abys"
T$=T$+" zjistil co to je. V seně byl důmyslně ukrytý malý klíček, ale ty bohužel nevíš od čeho je."
ZAROVNANI[T$]
P(37)=199
P(3)=200
Goto PRIKAZY
End If
If C$="hrá" and M<>79 and P(37)=200
T$="Hrabeš a stále nic nenalézáš."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="stř" and M=80 and P(31)=200
T$="Podal jsi střep Trixiemu a on vyšplhal nahoru k Jofovi, vyřezal ho ze zajetí vektorových"
T$=T$+" stromů. Chudák Jofa spadnul na zem a Trixie jej následoval. Ty ses začal hlasitě smát a řekls"
T$=T$+" jim, že oba spadli z borovice a aby to nemělo třeba pozdější následky. Jofa ti z vděčnosti"
T$=T$+" ukazuje exit na východě a říká ti, že si máš dát bacha na Píči a Holograma, teda jestli jsi je už"
T$=T$+" nepotkal."
ZAROVNANI[T$]
P(31)=199
V=1
Goto PRIKAZY
End If
If C$="stř" and M<>80 and P(31)=200
T$="Jauvajs! Říznul ses střepem do prstu, ze kterého ti vyteklo pár kapek krve."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="roh" and M=85 and P(32)=200
T$="Fííííííjůůůůůů! Zatroubils na lesní roh a po chvilce přiběhl mluvící vlkodlak, tvůj přítel."
T$=T$+" Vlkouš vycenil své úžasné tesáky na kočičku a ta se tak vylekala, že upustila myš se kterou si"
T$=T$+" do posud hrála a chudinka zkameněla. Vlčík sebral myšku do tlamky a donesl ti ji k nohám,"
T$=T$+" pak se slovy, že ho jako už potřebovat nebudeš zmizel, přitom si vzal i ten lesní roh. Máš"
T$=T$+" smůlu s tou kočkou si sexu moc neužiješ, protože je kamená."
ZAROVNANI[T$]
P(32)=199
P(34)=M
Goto PRIKAZY
End If
If C$="roh" and M<>85 and P(32)=200
T$="Fjůůůůůů! Zatroubil jsi na roh. Přiběhl vlkodlak, ale nic se však nestalo."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="min" and M=86 and P(26)=200
T$="Vytáhnul jsi zlaťák z kapsy a podal jej tomu chlápkovi. Ten si ho s vděčností vzal a"
T$=T$+" začal si jej prohlížet, jakoby ještě nikde neviděl peníze. Chlápek ti na oplátku vytáhnul tu"
T$=T$+" pruhovanou závoru a vpustil tě do království."
ZAROVNANI[T$]
P(26)=199
S=1
Goto PRIKAZY
End If
If C$="min" and M<>86 and P(26)=200
T$="Nemyslím si, že je vhodná doba něco zaplatit."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="pil" and M=91 and P(29)=200 and CISTERNA=0
T$="Vyšplhal ses na cisternu a otevřel poklop, abys mohl pilu smočit v tom oleji. Málem jsi"
T$=T$+" sice do toho oleje spadnul, ale nakonec se ti to povedlo a tak to vypadá, že tu pilu budeš moci"
T$=T$+" nakonec použít. Jak jsi tak slézal s tou pilou z vrcholku cisterny, tak ti podjela noha a tys"
T$=T$+" narazil hlavou do jednoho klínku, podpírající kola, ten klínek se uvolnil."
ZAROVNANI[T$]
P(29)=199
P(38)=200
P(39)=M
Goto PRIKAZY
End If
If C$="pil" and M<>91 and P(29)=200
T$="Snažíš se nastartovat pilu, ale nějak se ti to nedaří, protože řetěz pily je jaksi přirezlý,"
T$=T$+" chtělo by ho to něčím namazat."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="kan" and M=92 and P(33)=200
T$="Přišel jsi blíže k těm hošanům a ukázal jim, že máš pohonné hmoty. Oni zajásali a"
T$=T$+" nechali tě dokonat své dílo. Nalil jsi tedy obsah kanystru do nádrže vozu, prázdný kanystr jsi"
T$=T$+" zahodil do lesa. Hoši ti poďekovali a tváří se celkem spokojeně. Nic ti však nedali a tak jsi se"
T$=T$+" naštval a rozhodl ses jim pomstít."
ZAROVNANI[T$]
P(33)=199
Goto PRIKAZY
End If
If C$="kan" and M<>92 and P(33)=200
T$="Snad nechceš rozlévat naftu po přírodě. Tak to teda ne, já sem snad naprogramuju"
T$=T$+" policajta, aby tě zavřel za znečišťování okolí."
ZAROVNANI[T$]
P(38)=199
S=1
Goto PRIKAZY
End If
If C$="pil" and M=92 and P(38)=200 and P(33)=199
T$="S obrovským randálem jsi nastartoval pilu, přistoupil jsi s ní k označenému stromu a"
T$=T$+" začal řezat, když ta banda zjistila co máš v úmyslu, tak rychle naskákali do auta a odjeli"
T$=T$+" směrem ke křižovatce, ale padající strom jejich vůz stejně přimáčkl k vozovce, protože to jaksi"
T$=T$+" nestihli. Á, pomsta bude tvá."
ZAROVNANI[T$]
P(38)=199
Goto PRIKAZY
End If
If C$="pil" and M<>92 and P(38)=200
T$="Vrrrrrrr! Nastartoval jsi pilu, ale zjistils, že tu není nikdo a ani nic co bys mohl"
T$=T$+" podříznout, ó jaká škoda, že tu nestojí moje bývalá kamarádka Radka Kočařová, tu bych s"
T$=T$+" chutí podřezal."
ZAROVNANI[T$]
Goto PRIKAZY
End If
If C$="kro" and M=94 and P(11)=200
T$="Sundal jsi ze zad hnusného smradlavého krokodýla a položil jsi ho na zem a ukázal"
T$=T$+" mu cestu do sousedovy zahrady. Netrvalo dlouho a krokodýl pochopil tvůj záměr a odplazil se"
T$=T$+" směrem k sousedově zahradě. Tvůj milý soused se zrovna koupal ve svém bazéně a když ho"
T$=T$+" spatřil tvůj krokodýl, tak na něj dostal ukrutnou chuť, protože čtrnáct dní nic nejedl. A během"
T$=T$+" chvíle se soused zmítal nad hladinou a pod hladinou ve smrtelném objetí krokodýla, který mu"
T$=T$+" postupně ukusoval údy, ze kterých začala okamžitě stříkat krev, respektive z pahýlů, které po"
T$=T$+" nich zůstali."
ZAROVNANI[T$]
T$=" Jakoby to krokodýlovi nestačilo, tak souseda překousnul vpůli těla a do bazénu se vyvalila"
T$=T$+" překouslého břicha střeva, která připomínala souboj hadů. Soused ještě žil, když mu krokodýl"
T$=T$+" vykusoval prokouřené plíce a chystal se na srdce."
ZAROVNANI[T$]
T$=" Soused sice chtěl křičet o pomoc a bolestí, ale jeho hlasivky se již nacházely v"
T$=T$+" krokodýlově zažívacím traktu. Neuběhla ani minuta a v bazéně plavala jen hlava, kterou"
T$=T$+" krokodýl z dlouhé chvíle žvýkal jako Orbit bez cukru s chutí rozteklého mozku. Voda v bazénu"
T$=T$+" se zbarvila do ruda a tu a tam se rudá barva mísila s výkaly či zbytky mozku. Naštěstí jsi tuto"
T$=T$+" příšerně krvavou scénu neviděl a tak jsi nikomu neukazoval svůj oběd."
ZAROVNANI[T$]
T$=" Konečně ten panchart dostal co proto, teďka stačí najít tvůj komjůtr a rychle do Prahy na"
T$=T$+" Florenc, kde na tebe čeká nemilé překvapení."
ZAROVNANI[T$]
P(11)=199
J=1
Goto PRIKAZY
End If
If C$="kro" and M<>94 and P(11)=200
T$="Surově jsi plácnul krokodýlem o zem, ten se po tobě ohnal a tys jen tak tak"
T$=T$+" uskočil, aby ti neucvakl svými zoubečky nohu. Pak se krokodýl zklidnil a ty sis ho zase naložil"
T$=T$+" na záda."
ZAROVNANI[T$]
Goto PRIKAZY
End If
T$="Použil jsi právě to, co jsi určitě chtěl použít, ono použité udělalo to co jsi určitě chtěl, ale nějak ti to s tím co jsi chtěl použít ono na to nebo to na ono nevyšlo a tak tě napadlo, že to zkusíš trochu jinak."
ZAROVNANI[T$]
Goto PRIKAZY
Rem #########################################################################
Procedure KEY
Screen 2
Ink 7,0,0
Text 0,28," " : A$="" : B$="" : X$="" : C$=""
A$=">>> Stiskni nějakou klávesu <<<"
L=Text Length(A$)
Text 320-L/2,28,A$
Wait Key
Screen 1
End Proc
Rem #########################################################################
MENU:
ZAROVNANI["Je mi líto, ale musím tě zklamat uživatelské menu není aktivní a tak ani nelze uložit pozici a jiný podobný píčoviny."]
Goto PRIKAZY
Rem #########################################################################
Procedure ZAROVNANI[TXT$]
If _BARFA<2 Then _BARFA=2
Inc _BARFA
If _BARFA=8 Then _BARFA=2
Pen _BARFA
Print
ZAROVNANI=79
Do
If Len(TXT$)=>ZAROVNANI
For Q=ZAROVNANI To 1 Step -1
If Mid$(TXT$,Q,1)=" "
PRAVEJ$=Mid$(TXT$,1,Q-1)
Gosub PRAVEJ
Print PRAVEJ$
TXT$=Mid$(TXT$,Q+1,Len(TXT$)-Q+1)
Exit
End If
Next Q
Else
Print TXT$
Exit
End If
Loop
Pop Proc
PRAVEJ:
LOCATION=0
Do
DYLKA=Len(PRAVEJ$)
Exit If DYLKA=ZAROVNANI
If LOCATION=>DYLKA Then LOCATION=0
Inc LOCATION
If Mid$(PRAVEJ$,LOCATION,1)=" "
PRAVEJ$=Left$(PRAVEJ$,LOCATION)+Mid$(PRAVEJ$,LOCATION,DYLKA)
Add LOCATION,2
End If
Loop
Return
End Proc
TITLE:
Screen 4
Pen 7 : Print " Na Resetkání 98 "; : Pen 5 : Print "aneb"; : Pen 7 : Print " 14 minut kompilace "
Pen 1
Pen 1
Print " vytvořeno pomocí "; : Pen 5 : Print "MHS 7.5"; : Pen 1 : Print " (c) 1997-98 "; : Pen 5 : Print "Hologram "; : Pen 1 : Print "/"; : Pen 5 : Print " tNC "
Return
MAPA:
Rem mapová proměnná si načítá ze směrové proměnné pole mapa$(x,y)"1111"
Screen 3
PAMATUJX=X : PAMATUJY=Y
If ZZ=1 and M=20 Then Y=Y+2 : Ink 5,0,0 : Text 10,135,"Strom ->"
If ZZ=-1 and M=60 Then Y=Y+3 : Ink 5,0,0 : Text 220,150,"< - Stoka"
If ZZ=-1 and M=61 Then Y=Y+3
If ZZ=-1 and M=62 Then Y=Y+3
If ZZ=-1 and M=63 Then Y=Y+3
If ZZ=-1 and M=64 Then Y=Y+3
'If LX=0 and LY=0 Then LX=4 : LY=0
'LX=X : LY=Y
Ink 0 : Bar LX*16,LY*16 To LX*16+8,LY*16+8
Ink 2 : Box LX*16,LY*16 To LX*16+8,LY*16+8 : Box LX*16+1,LY*16+1 To LX*16+7,LY*16+7 : Ink 0 : Plot LX*16,LY*16 : Plot LX*16+8,LY*16 : Plot LX*16+8,LY*16+8 : Plot LX*16,LY*16+8
Ink 2
If S=1 Then Draw X*16+4,Y*16 To X*16+4,Y*16-8
If J=1 Then Draw X*16+4,Y*16+8 To X*16+4,Y*16+16
If V=1 Then Draw X*16+8,Y*16+4 To X*16+16,Y*16+4
If Z=1 Then Draw X*16-8,Y*16+4 To X*16,Y*16+4
Ink 7
Bar X*16,Y*16 To X*16+8,Y*16+8
' Box X*16+1,Y*16+1 To X*16+7,Y*16+7
Ink 0
Plot X*16,Y*16
Plot X*16+8,Y*16
Plot X*16+8,Y*16+8
Plot X*16,Y*16+8
Ink 0
LX=X : LY=Y
Screen 1
If ZZ=1 and M=20 Then Y=PAMATUJY
If ZZ=-1 and M=60 Then Y=PAMATUJY
If ZZ=-1 and M=61 Then Y=PAMATUJY
If ZZ=-1 and M=62 Then Y=PAMATUJY
If ZZ=-1 and M=63 Then Y=PAMATUJY
If ZZ=-1 and M=64 Then Y=PAMATUJY
Return
AKTIVUJ_MAPU:
If MP=0
Screen 1 : Fade 1
Wait 20
Screen To Front 3
Screen 3 : Fade 1,$0,$FFF,$F0,$FBA,$F0F,$FA,$F00,$FF0
Wait 20
MP=1
Goto PRIKAZY
End If
If MP=1
Screen 3 : Fade 1
Wait 20
Screen To Front 1
Screen 1 : Fade 1,$0,$FFF,$F0,$FBA,$F0F,$FA,$F00,$FF0
' Wait 20
MP=0
Goto MAIN
End If
Procedure CHYBA
Screen 4
Clw
Pen 2
Centre "Došlo k chybě při chodu programu!"
Print
Pen 5 :
Centre "Chyby ještě nejsou ošetřeny a tak se vracíme do hlavního programu!"
Wait Key
Clw
Pen 2 : Print "mHS "; : Pen 1 : Print "7.5 beta"; : Pen 7 : Print " Tak a todle je dosti genitální, eh teda geniální!"
Pen 1
Print "(C) 1997-98 "; : Pen 5 : Print "Hologram"; : Pen 1 : Print " / HtNC"; : Pen 5 : Print " POZOR! Jde o zkušební verzi!"
Resume Label
End Proc
SMRT01:
Rem místnost 8 (velká smrt)
T$="Zvesela si to vykračuješ ulicí k mohutnému košatému stromu. Pod tím stromem postává"
T$=T$+" policista a zabývá se ochrannou veřejného pořádku. Jakmile tě policajt spatřil, tak se na tebe"
T$=T$+" vrhl a brutálně ti nasadil pouta. Obvinil tě z veřejného pohoršení, protože jsi se doma zapomněl"
T$=T$+" obléknout a potuloval ses po městě úplně nahý. V base si pobudeš pěkně dlouho a tak tě"
T$=T$+" určitě zajde chuť jezdit na nějakou šílenou alkoholickou párty do Brna."
ZAROVNANI[T$]
KEY
Goto HOLOGRAM
_LOAD:
If MP=1
Screen 3 : Fade 1
Wait 20
Screen To Front 1
Screen 1 : Fade 1,$0,$FFF,$F0,$FBA,$F0F,$FA,$F00,$FF0
' Wait 20
MP=0
End If
Pen 7
Print : Print : Print
Print " ***********************************************************"
Print " * *"
Print " *"; : Pen 2 : Print " Nahrávání pozic: "; : Pen 7 : Print " *"
Print " * *"
Print " ***********************************************************"
Print " * *"
Print " * 0. *"
Print " * 1. *"
Print " * 2. *"
Print " * 3. *"
Print " * 4. *"
Print " * 5. *"
Print " * 6. *"
Print " * 7. *"
Print " * 8. *"
Print " * 9. *"
Print " * *"
Print " ***********************************************************"
Print " *"; : Pen 6 : Print " Vyber si číslo pozice a ona se nahraje "; : Pen 7 : Print "*"
Print " ***********************************************************"
For R=0 To 9
NAME$=""
CHKDSK[1]
If Exist("Reset_1:pozice"+Str$(R))
Open In 1,"pozice"+Str$(R)
Input #1,NAME$
Close 1
Locate ,9+R : Pen 5 : Centre NAME$ : Print
End If
If NAME$=""
Locate ,9+R : Pen 5 : Centre "- volná pozice -" : Print
End If
Next R
Do
X$=Inkey$
If X$="0" Then POZ=0 : Exit
If X$="1" Then POZ=1 : Exit
If X$="2" Then POZ=2 : Exit
If X$="3" Then POZ=3 : Exit
If X$="4" Then POZ=4 : Exit
If X$="5" Then POZ=5 : Exit
If X$="6" Then POZ=6 : Exit
If X$="7" Then POZ=7 : Exit
If X$="8" Then POZ=8 : Exit
If X$="9" Then POZ=9 : Exit
If Asc(X$)=27 Then Print : Print : Print : Print : Print : Print : Goto MAIN
Loop
Locate 5,9+14 : Print : Print
If Not Exist("pozice"+Str$(POZ))
T$="Load Terror! Došlo k chybné diskové akci. To mi připomíná situaci, když jsem ukládal scénář tejhle hry a pak jsem ji nemohl nahrát a musel jsem jej típat z bloků na hadru, to byla fuška. Ale teďka tu asi nemáš uloženou žádnou pozici. :))))))"
ZAROVNANI[T$]
Goto PRIKAZY
End If
CHKDSK[1]
Open In 1,"Reset_1:pozice"+Str$(POZ)
CHKDSK[1]
Load Iff "Reset_1:pozice.mp"+Str$(POZ),3
Screen Display 3,,67,,
Screen To Front 1
Input #1,NAME$
For R=1 To THING
Input #1,P(R)
Next R
Input #1,X
Input #1,Y
Input #1,ZZ
Input #1,M
Input #1,AUT
Input #1,SIL
Input #1,NEWROOM
Input #1,FTIP
Input #1,MP
Input #1,LX
Input #1,LY
Input #1,CISTERNA
Close 1
LX=X : LY=Y
Goto MAIN
_SAVE:
If MP=1
Screen 3 : Fade 1
Wait 20
Screen To Front 1
Screen 1 : Fade 1,$0,$FFF,$F0,$FBA,$F0F,$FA,$F00,$FF0
' Wait 20
MP=0
End If
Pen 7
Print : Print : Print
Print " ***********************************************************"
Print " * *"
Print " *"; : Pen 3 : Print " Ukládání pozic:"; : Pen 7 : Print " *"
Print " * *"
Print " ***********************************************************"
Print " * *"
Print " * 0. *"
Print " * 1. *"
Print " * 2. *"
Print " * 3. *"
Print " * 4. *"
Print " * 5. *"
Print " * 6. *"
Print " * 7. *"
Print " * 8. *"
Print " * 9. *"
Print " * *"
Print " ***********************************************************"
Print " *"; : Pen 6 : Print " Vyber si číslo pozice, zadej jméno a ona se uloží"; : Pen 7 : Print " *"
Print " ***********************************************************"
For R=0 To 9
NAME$=""
CHKDSK[1]
If Exist("Reset_1:pozice"+Str$(R))
Open In 1,"pozice"+Str$(R)
Input #1,NAME$
Close 1
Locate ,9+R : Pen 5 : Centre NAME$ : Print
End If
If NAME$=""
Locate ,9+R : Pen 5 : Centre "- volná pozice -" : Print
End If
Next R
Do
X$=Inkey$
If X$="0" Then POZ=0 : Exit
If X$="1" Then POZ=1 : Exit
If X$="2" Then POZ=2 : Exit
If X$="3" Then POZ=3 : Exit
If X$="4" Then POZ=4 : Exit
If X$="5" Then POZ=5 : Exit
If X$="6" Then POZ=6 : Exit
If X$="7" Then POZ=7 : Exit
If X$="8" Then POZ=8 : Exit
If X$="9" Then POZ=9 : Exit
If Asc(X$)=27 Then Print : Print : Print : Print : Print : Print : Goto MAIN
Loop
Set Curs 255,255,255,255,255,255,255,255
Locate 5,9+14 : Print : Print
Pen 1
Input "Pozice číslo "+Str$(POZ)-" "+": ";NAME$
Curs Off
CHKDSK[1]
Open Out 1,"Reset_1:pozice"+Str$(POZ)
Screen 3
CHKDSK[1]
Save Iff "Reset_1:pozice.mp"+Str$(POZ)
Screen Display 3,,67,,
Print #1,NAME$
For R=1 To THING
Print #1,P(R)
Next R
Print #1,X
Print #1,Y
Print #1,ZZ
Print #1,M
Print #1,AUT
Print #1,SIL
Print #1,NEWROOM
Print #1,FTIP
Print #1,MP
Print #1,LX
Print #1,LY
Print #1,CISTERNA
Close 1
Goto MAIN
OUTRO:
Rainbow Del
Screen Close 1
Screen Close 2
Screen Close 3
Screen Close 4
Screen Open 3,640,256,8,Hires
Unpack 10 To 2
Double Buffer
Hide
Screen 2
Screen 3
Paper 0 : Pen 2 : Flash Off : Set Curs 255,255,255,255,255,255,255,255
Colour 3,$FFF
Clw : Cls 0
Set Rainbow 0,2,16,"(1,1,15)","(1,1,15)","(1,1,15)"
Set Rainbow 1,2,16,"(1,-1,15)","(1,-1,15)","(1,-1,15)"
Rainbow 0,2,100,15
'Rainbow 1,2,276,15
ZNOVU:
Def Scroll 1,0,59 To 640,260,,-1
Clear Key
Restore THEEND
Do
Read A$
If A$="-1" Then Restore THEEND : Read A$
X$=A$
X=0 : Y=30 : SPEED=2
Gosub TYPEWRITER
Wait 5
Gosub ROLUJ
Loop
Goto ZNOVU
ROLUJ:
Curs Off
For R=1 To 10
Scroll 1
Wait Vbl
Next R
Curs On
Return
TYPEWRITER:
If X$="" Then Wait 5
If X=-1
DYLKA=Len(X$)
DYLKA=DYLKA/2
X=36-DYLKA
End If
For R=1 To Len(X$)
KLV$=Inkey$
If KLV$<>"" Then Screen Close 3 : Screen Close 2 : Rainbow Del : Goto ST_UP
Locate X+R-1,Y
Print Mid$(X$,R,1);
If Not SPEED=0 Then Wait SPEED
Next R
Return
THEEND:
Data " Nastoupil jsi do dálkového autobusu do Brna, pohodlně ses usadil a čekal,"
Data "až se vůz dá do pohybu. Po chvíli se utobus skutečně rozjel. Tys prozatím"
Data "usnul hlubokým spánkem. Asi po hodině tvrdého spánku tě probudilo halasné"
Data "vřískání nějakého člověka vzadu, byl to Cracknel a zpíval 'Tam byste to"
Data "nepřežily gde sem fčera byl bylo to děsivý až do rána sem blil, nemoch sem se"
Data "do zámku trefit klíčemách, byl sem totiž chlastat s píčamách!'"
Data ""
Data " Hologram mu podupával do rytmu a přihybal si z lahve. Když tě oba maníci"
Data "spatřili, tak na tebe zamávali a poslali ti láhev po Plasticovi, který zabýral"
Data "deset sedaček, a ty abys je jako neurazil tak jsi vylemtal půl lahve."
Data "Rozhlížíš se po autobuse jestli neuvidíš ještě někoho známého. Hned o uličku"
Data "vedle sedí Master Crank a Denetron, za nimi je rozvalen Crash a Roxton, pod"
Data "Bohemákama leží opilci Láďa Píča s Helmutem."
Data ""
Data " Aby vám cesta rychleji ubíhala, tak vám začal Plastic vyprávět vtipy, ale"
Data "když se nikdo nesmál tak toho nechal."
Data ""
Data " Autobus vjel do centra Brna a v tu chvíli se začal halasně smát Lanex a"
Data "Dirty, kteří seděli vepředu a vzkazovali Plasticovi, kam že na ty vtipy chodí."
Data ""
Data " V Brně vás všechny nelítosně vyházel řidič z vozu, Dirty se sice ozval, že"
Data "je to nehumání zacházení, ale odpovědí mu byla hrst šroubů, která dopadla na"
Data "jeho povídavou část hlavy. Nakonec se neorganizovaná skupina vydala na"
Data "tramvaj, v Brně nazývanou Šalina, která je měla zavést na místo konání."
Data "Tramvaj přijela brzy a skupina maniaků obsadila všechna volná místa k sezení."
Data "Hologram jako jediný poctivec si cvakl za posměchu ostatních lístek. Tramvaj"
Data "si to vesele jede a řidič cinká zvonkem, ale najednou se na jedné stanici"
Data "vytratil Master Crank a Denetron, oba nešťastníci na neúplnou skupinu začali"
Data "dělat ze zastávky ksichty, nikdo sice nevěděl proč a tak se to Helmut poukusil"
Data "zjistit, ale k oknu se již nedostal, neboť..."
Data ""
Data " ...neboť v tu chvíli Miras, který se objevil ve voze vedle Holograma mu"
Data "něco vysvětluje, Hologram najednou ukazuje lístek nějaké osobě s odznáčkem v"
Data "ruce. Miras se snaží zachránit co se dá, rychle volá na Helmuta, ať nechá"
Data "vyklánění z okna, že se vystupuje, přitom strhává i tebe cestou ven k východu,"
Data "konečně venku. Hologram vystoupil a všem se směje, že si cvaknul lístek."
Data ""
Data " Někdo ve vaší skupince chybí, je to Lanex a Dirty. Rozhodli jste se"
Data "počkat na všechny ztracené. Po necelých deseti minutách doráží Lanex a Dirty"
Data "a všem se chlubí, že jsou o dvě kila lehčí a že je to lepší než Herbalife."
Data "Crank také přichází a všem se směje, že vyvázl bez úhony. Společně jste se"
Data "tedy vydali k budově Resetkání. Kam jste tedy dorazili a skupina se rozprchla"
Data "po budově. Ty sis vybalil své věci a instaloval počítač, nahodil disketu s"
Data "tvou hrou. Už při prvnich tónech melodie, tě začala okupovat horda amigistů"
Data "dožadující se zkopírování tvé hry, nacož ty jsi nestačil kopírovat a tak se"
Data "strhla velká bitka..."
Data ""
Data " A to už je konec. Kdo to dohrál až sem tak nadává, neb hra už dál"
Data "nepokračuje. A že už nebudou další vtipy a ten slibovanej sex tu taky nebyl."
Data "No kdo ví, jestli budu mít náladu, tak bych mohl udělat pokračování a nebo taky"
Data "můžu konečně udělat NAM dvojku."
Data ""
Data " A co říct závěrem, no jen to, že už se asi na všechno vykašlu a bude to,"
Data "protože na tomhle šíleným remaku jsem makal asi dva půl měsíce a věřte, že to"
Data "nejni nic jednoduchýho. Pokud jste si to stáhli ode mě na Amiga Párty 98 ve"
Data "Voticích pak vězte, že ještě den před párty hra vypadala beznadějně a já si to"
Data "snad házel, jen abych to udělal. Poslední tejden jsem skoro nechodil spát a"
Data "tak bych byl rád, kdybyste se mi ozvali a napsali aspoň pár slov."
Data ""
Data " No a na konec jen takových pár poděkování: Nejdřív bych chtěl poděkovat"
Data "svojí holčině Zuzance, která měla se mnou svatou trpělivost, když jsem ji při"
Data "tvorbě hry zanedbával. Dále moc díků posílám Láhvemu z Adventronicu za"
Data "podporu, další dík putuje Marku Hronovi, kterej mi udělal muziku. Nakonec bych"
Data "moc rád poděkoval kámošce (snad) Vladence Macasové za skvělou podporu v"
Data "zaměstnání. A nakonec bych ještě poslal nesmírný dík Fredu Brookerovi, neboli"
Data "Filipu Oščádalovi za skvělé cd Dissolver, které vydal a poslal mi jej."
Data ""
Data " A teďka několik málo pozdravů, takže zdravím:"
Data ""
Data " Gargamela"
Data " Utopiju (toho zvláště, protože on mi vlastně vnuknul ten nápad tohle udělat)"
Data " šíleného renderistu Karla Vlčka"
Data " mojí dífčinu Zuzanku Střelečkovou"
Data " Milana Dlouhého skvělého zásobovače gamesek"
Data " Láďu Škrétu a jeho starou"
Data " Jirku a Petra Špalka"
Data " spolužáka Martina Pajmu"
Data " Petra 'Tlusťoha' Polácha"
Data " Martina Jaroše, majitele mé ubohé pjetistofky"
Data " pana programátora Vaška 'Plastika' Koulu"
Data " Maška Libora a jeho mobil"
Data " samosebou také Ufouna a jeho synka s manželkou"
Data " Infimu"
Data " hnusného piráta Petra Haupta"
Data " bývalého doktora Waltera"
Data " Latexe, ech vlastně Lanexe a jeho gay klub"
Data " Friga a můj bývalý dvou a půl palcový hadr"
Data " pana Cranka"
Data " Miloše Šaška a Karla Zicha z Mc Donald's ve Vodičkově ulici"
Data " Marčela Kvietka"
Data " Vladenku Macasovou a jejího přítele Aleše"
Data " Petra Nováka a jeho srupidní sestru Zdeňku"
Data " Jendu 'Dirtyho' Zajíce"
Data " Storma"
Data " Fandu Kolečka"
Data " Mirka 'Azora' Tučka"
Data " Míšu Moserovou"
Data " Rejhona Jardu a jeho sestru Petru Eimovou"
Data " Radku Kočařovou"
Data " Pavla Šlajchrta"
Data " Martina 'Špindíru' Vondru"
Data " milionáře Jendu 'Bombera' Ornu"
Data " Lahveho z Adventronicu"
Data " Vikiho Lošťáka"
Data " Freda Brookera a Humble Records"
Data " Balona 'Tombu' Tomáše"
Data " bývalého městského policistu Zbyšoura Kalendu"
Data " všemocného Jabbu"
Data " Preclíka 'Cracknela' Jakuba"
Data " bývalé Píči"
Data " Mirase a Tesáka"
Data " diskmag Amiga Negative"
Data " Echo"
Data " diskmag Přísnej Sekret"
Data " bývalé Vektorz"
Data " sám sebe"
Data ""
Data "a to je snad všechno, jestli jsem na někoho zapomněl tak ať mi promine a vozve"
Data " se mi a já ho připíšu někam jinam."
Data ""
Data " Teďka se tenhle text restartne a pojede znovu. Klávesa spustí hru znovu."
Data ""
Data ""
Data ""
Data ""
Data ""
Data ""
Data ""
Data ""
Data ""
Data ""
Data ""
Data ""
Data ""
Data ""
Data ""
Data "-1"
CORONISRIFT:
If _BARFA<2 Then _BARFA=2
Inc _BARFA
If _BARFA=8 Then _BARFA=2
Pen _BARFA
Return
Procedure PINTRO
'Thiz Iz My Rezet Pintro
Shared X,Y,SPEED,X$,R,DYLKA
Screen Open 1,640,512,16,Hires+Laced
' Request Wb
' Amos Lock
' Break Off
Hide : Flash Off
Palette $224,$FFF,$DDD,$557,$446,$335,$112,$0,$D00,$F50,$FC0,$9C0,$9EB,$86,$C9,$6AE
Curs Off : Cls 0
Load "Reset_1:gfx/disk1",15
Load "Reset_1:gfx/disk2",16
CHKDSK[1]
Load "reset_1:gfx/tnc_logo_title.rst",11
Load "reset_1:gfx/skrol_logo.rst",10
Unpack 11 To 1
Hide
CHKDSK[2]
Load "reset_2:sfx/intro.samplez",5
Sam Bank 5
Sam Loop Off
Sam Play 1
Wait 750
CHKDSK[2]
Med Load "reset_2:sfx/med.voador",6
Med Play 6
Wait 150
Goto FADING
IDIJOT:
Screen Close 1
'Rem normal palette
'Palette $224,$FFF,$DDD,$557,$446,$335,$112,$0,$D00,$F50,$FC0,$9C0,$9EB,$86,$C9,$6AE
'Rem vypnutej vobraz
'Palette $224,$224,$224,$224,$224,$224,$224,$224,$224,$224,$224,$224,$224,$224,$224,$224
Screen Open 3,640,256,8,Hires
Unpack 10 To 2
Double Buffer
Hide
Screen 2
Screen 3
Paper 0 : Pen 2 : Flash Off : Set Curs 255,255,255,255,255,255,255,255
Colour 3,$FFF
Clw : Cls 0
Set Rainbow 0,2,16,"(1,1,15)","(1,1,15)","(1,1,15)"
Rainbow 0,2,100,15
ZNOVU:
Def Scroll 1,0,59 To 640,260,,-1
Clear Key
'Every 20 Gosub DEFKA
'Every On
Restore DEBIL
Do
Read A$
If A$="-1" Then Restore DEBIL : Read A$
X$=A$
X=0 : Y=30 : SPEED=2
Gosub TYPEWRITER
Wait 5
Gosub ROLUJ
Loop
Goto ZNOVU
ROLUJ:
Curs Off
For R=1 To 10
Scroll 1
Wait Vbl
Next R
Curs On
Return
DEFKA:
KLV$=Inkey$
If KLV$<>"" Then Every Off : Goto KONEC
Every On
Return
KONEC:
Fade 1
Wait 10
Med Stop
Erase 6
Rainbow Del 0
Screen Close 3
Screen Close 2
Pop Proc
TYPEWRITER:
If X$="" Then Wait 5
If X=-1
DYLKA=Len(X$)
DYLKA=DYLKA/2
X=36-DYLKA
End If
For R=1 To Len(X$)
KLV$=Inkey$
If KLV$<>"" Then Goto KONEC
Locate X+R-1,Y
Print Mid$(X$,R,1);
If Not SPEED=0 Then Wait SPEED
Next R
Return
DEBIL:
Data " Již uplynulo mnoho zim od té doby cos poprvé spatřil v porodnici svého"
Data "rodného městečka porodní sál a světlo světa, no sice ses narodil v noci a to"
Data "ještě ke všemu vypli proud. A také uplynulo mnoho zim co ti rodiče pod"
Data "stromeček za dobré závěrečné vysvědčení na konci školního roku, vaše rodina"
Data "totiž slavila vánoce v létě, dle slov tvého otce to bylo praktičtější, jelikož"
Data "stromky a kapři byli v létě lacinější, jsi dostal svůj první počítač, byl to"
Data "osmibit a bylo to Atari 65 XE. Po několika letech sis konečně uvědomil, že"
Data "musíš jít s dobou a pořídil sis něco výkonějšího a to byla Amiga 500 s půl"
Data "megem ram bez monitoru a tv modulátoru. Ale teď když jsme probrali tvůj"
Data "životopis tak se přesuneme časovou řekou do dob dnešních a čili i reálnějších."
Data ""
Data " Jednoho hezkého dne, když ses doma nudil a probíral obsah svých disket jsi"
Data "objevil textovou hru Toayen in action, hra byla textová, běžela v dosovém okně,"
Data "ale byla skvělá (zase se moc chválím, ale fakt byla skvělá). Hru jsi po"
Data "měsících beznaděje dohrál do konce a rozhodl ses že vytvoříš něco podobného,"
Data "taky textového, taky dosového, taky tak skvělého a taky tak pěkného..."
Data ""
Data " ...po měsících lopocení, šramocení, beznaděje a nadávání jsi konečně"
Data "dokončil hru 'Tisíce radioaktivních stínů'. Hra byla tak skvělá, že se ti"
Data "samotnému líbila neboť byla celá o tobě, dokonce i jiné postavy jsi zastupoval"
Data "ty, však to dalo maskérovi úpornou práci. Ale co teď, jak hru vyslat mezi"
Data "lidi? A co dál? Kdo ji bude hrát? A kolik to bude stát? Tyto myšlenky ti"
Data "stále vrtaly hlavou, ale nakonec ti je pomohly vyřešit tvý hodní přátelé, kteří"
Data "ti prozradili, že se zanedlouho bude konat v Brně obrovská akce, jež bude"
Data "pojena s prezentací nejnovějšího softwéru spolu se setkáním české amiga scény."
Data "Neváhal jsi a zjistil si od kamaráda z počítačové galérky, kdy a kde se ona"
Data "akce bude konat a jak se vůbec jmenuje."
Data ""
Data " 'Na Brno! Na Re setkání!' prozpěvoval sis, když jsi konečně zjistil"
Data "informace, kterés potřeboval."
Data ""
Data " 'Ale na takovou akci se budu muset trošku připravit, abych tam nevypadal"
Data "jako nějaký lamer, jím jsi nebyl, neboť ti poslední joystick ukradl sousedův"
Data "pes. Duševní a fyzická příprava, absolvals totiž kurz z napadení, ostré"
Data "střelby slepými náboji, probíhala důkladně, tvůj denní program byl zcela"
Data "vytížen, ale našel sis alespoň chvilku, abys navštěvoval dětské uprchlické"
Data "středisko, kde jsi sváděl nezletilé japonky na kus banánu."
Data ""
Data " Také tvůj domov nezůstal ušetřen bestiálních radovánek. Začal jsi pořádat"
Data "divoké mejdany, kde mimo drog, alkoholu, lehkých děv, bylo možno také spatřit"
Data "projektor, brutální zesilovač, vražedné reprobedny a tvůj počítač, jež jel už"
Data "bezmála dva měsíce v kuse a přehrával pořád dokola tvé oblíbené songy a demáče."
Data "Párty se vždy táhla do časných večerních hodin, aby se zase pokračovalo."
Data ""
Data " To se, ale nelíbilo tvému sousedovi, který ti záviděl tolik přátel, hlavně"
Data "počítač, který jak s oblibou tvrdíval nenáviděl. Jednoho dne, zrovna den před"
Data "konáním Resetkání ses vzbudil z kocoviny a rozehnal hejno much, které spokojeně"
Data "baštilo plesnivé ponožky, ses vydal zkontrolovat svůj computer jestli je v"
Data "pořádku."
Data ""
Data " Ale jaký šok jsi zažil, když na místě na kterém byl ještě před hodinou"
Data "počítač zbylo jen vyhřáté místo a kus papíru na kterém stálo doslova:"
Data ""
Data " 'Pprotože mám rád lydi a protože rušýš nočný klyt a chci dddtje zachránit"
Data "od počítačového šílenstvý, rozhodl jsem se že počýtač zničím a to hned."
Data "Podepsán: Tvůj mylí soused zachránce!!!!'"
Data ""
Data " 'Tak tohle tý svini nedaruju!', zařval jsi na celé okolí a o pět bloků dál"
Data "ranila mrtvice starou cikánku, která hledala v popelnicích oběd pro svých"
Data "dvanáct dětí. Vyhlédl jsi nenávistně z okna směrem k sousedově domu a"
Data "představoval sis jak krásně letí do vzduchu, ale pohled na protiletadlové"
Data "rycholpalné dělo, tank, zákopy, protitankové zátarasy, únikovou helikoptéru,"
Data "model letadlové lodi v bazéně, strážní věže, ostnatý drát nabitý elektřinou,"
Data "divoké psy pobíhající mezi tím vším a narychlo vysázený vietnamský prales s"
Data "voskovými figurínami vietnaských vojáků tě utvrdil v tom, že to opravdu nebude"
Data "jednoduché. Začal jsi horečně přemýslet jak na to..."
Data ""
Data "...no a mě nezbývá nic jiného, než ti popřát mnoho úspěchů, protože Resetkání"
Data "se koná zítra a autobus na tebe určitě čekat nebude."
Data ""
Data " Tak a jak se ta příšernost ovládá? Ptáte se nedočkavě. Já vám odpovím,"
Data "že velice jednoduše a prostě. K hraní hry vám postačí pouze klávesnice vašeho"
Data "počítače. A vězte, že ji budete potřebovat celou. Nechce se mi psát jak"
Data "zadávat jednotlivé příkazy, ale poradím, abyste si zkusili napsat slovo"
Data "'slovník', ten vám poradí jak hrát a nejen to. Ještě maličkost, tuším, že"
Data "klávesa ESC vám ukáže mapičku, takže ani nebude potřebovat papírek a tužtičku."
Data "Pokud budu mít náladu a jako, že asi budu, tak do hry implantuju i on-line"
Data "help, což by mělo hraní i trochu usnadnit."
Data ""
Data " Tak a teďka se zmínit o tom, proč jsem udělal tuhle edici. Je to celkem"
Data "jednoduchý, protože jsem chtěl něco udělat a Gargamelovi se nechtělo dodělat"
Data "scénář na Nam2, kterej bude super. A na HUMUSTROMO, což je můj geniální"
Data "projekt, zasejc nebyla nálada a tak jsem udělal tohle. Pro ty co už se setkali"
Data "se starou verzí, tak bych chtěl podotknout, že spousta věcí byla předělána, a"
Data "tak nepočítejte s tím, že to hnedka dohrajete! Vy co si myslíte, že použijete"
Data "cheat mód z předešlé verze, tak se taky zvesela mejlíte, protože ve hře žádnej"
Data "nejni! Možná. Celkem je to celý předělaný, hlavně je tu více textů a"
Data "místností, přibyly i nějaký ty příkazy a jiný zajímavosti. A prostě je to"
Data "úžasný. Pokud by se se mnou chtěl někdo spojit už za účelem napsání nějakýho"
Data "toho prográmku či se jen tak zeptat jak to dohrát, tak může napsat na mou"
Data "adresu:"
Data ""
Data ""
Data ""
Data ""
Data " Hologram / tNC"
Data " Jarda Bubeník"
Data " Havanská 2088/8"
Data " 272 02 Kladno 2"
Data ""
Data " Nebo může volat na číslo 0312 / 83727, k zastižení jsem skoro pořád."
Data ""
Data "Tož si to tedy hezky užijte!"
Data ""
Data ""
Data ""
Data ""
Data ""
Data ""
Data ""
Data ""
Data ""
Data ""
Data ""
Data ""
Data ""
Data ""
Data ""
Data ""
Data ""
Data " Proboha, zmáčkni už nějakou klávesu..."
Data ""
Data ""
Data ""
Data ""
Data ""
Data ""
Data ""
Data ""
Data ""
Data ""
Data ""
Data ""
Data ""
Data ""
Data "-1"
FADING:
Fade 1,$224,$224,$224,$224,$224,$224,$224,$224,$224,$224,$224,$224,$224,$224,$224,$224
Wait 10
CHKDSK[2]
Load Iff "reset_2:gfx/02",2
Screen Display 2,,150,,
Gosub _FADE_IN
If X$<>"" Then Clear Key : Goto ZHASNI
Wait 50
Gosub _FADE_OUT
If X$<>"" Then Clear Key : Goto ZHASNI
CHKDSK[2]
Load Iff "reset_2:gfx/03",2
Screen Display 2,,150,,
Gosub _FADE_IN
If X$<>"" Then Clear Key : Goto ZHASNI
Wait 50
Gosub _FADE_OUT
If X$<>"" Then Clear Key : Goto ZHASNI
CHKDSK[2]
Load Iff "reset_2:gfx/04",2
Screen Display 2,,150,,
Gosub _FADE_IN
If X$<>"" Then Clear Key : Goto ZHASNI
Wait 50
Gosub _FADE_OUT
If X$<>"" Then Clear Key : Goto ZHASNI
CHKDSK[2]
Load Iff "reset_2:gfx/05",2
Screen Display 2,,150,,
Gosub _FADE_IN
If X$<>"" Then Clear Key : Goto ZHASNI
Wait 50
Gosub _FADE_OUT
If X$<>"" Then Clear Key : Goto ZHASNI
CHKDSK[2]
Load Iff "reset_2:gfx/06",2
Screen Display 2,,150,,
Gosub _FADE_IN
If X$<>"" Then Clear Key : Goto ZHASNI
Wait 50
Gosub _FADE_OUT
If X$<>"" Then Clear Key : Goto ZHASNI
CHKDSK[2]
Load Iff "reset_2:gfx/07",2
Screen Display 2,,150,,
Gosub _FADE_IN
If X$<>"" Then Clear Key : Goto ZHASNI
Wait 50
Gosub _FADE_OUT
If X$<>"" Then Clear Key : Goto ZHASNI
CHKDSK[2]
Load Iff "reset_2:gfx/08",2
Screen Display 2,,150,,
Gosub _FADE_IN
If X$<>"" Then Clear Key : Goto ZHASNI
Wait 50
Gosub _FADE_OUT
If X$<>"" Then Clear Key : Goto ZHASNI
CHKDSK[2]
Load Iff "reset_2:gfx/09",2
Screen Display 2,,150,,
Gosub _FADE_IN
If X$<>"" Then Clear Key : Goto ZHASNI
Wait 50
Gosub _FADE_OUT
If X$<>"" Then Clear Key : Goto ZHASNI
CHKDSK[2]
Load Iff "reset_2:gfx/10",2
Screen Display 2,,150,,
Gosub _FADE_IN
If X$<>"" Then Clear Key : Goto ZHASNI
Wait 50
Gosub _FADE_OUT
If X$<>"" Then Clear Key : Goto ZHASNI
CHKDSK[2]
Load Iff "reset_2:gfx/11",2
Screen Display 2,,130,,
Gosub _FADE_IN
If X$<>"" Then Clear Key : Goto ZHASNI
Wait 50
Gosub _FADE_OUT
If X$<>"" Then Clear Key : Goto ZHASNI
CHKDSK[2]
Load Iff "reset_2:gfx/12",2
Screen Display 2,,130,,
Gosub _FADE_IN
If X$<>"" Then Clear Key : Goto ZHASNI
Wait 50
Gosub _FADE_OUT
If X$<>"" Then Clear Key : Goto ZHASNI
CHKDSK[2]
Load Iff "reset_2:gfx/13",2
Screen Display 2,,50,,
Gosub _FADE_IN
If X$<>"" Then Clear Key : Goto ZHASNI
Wait 100
Gosub _FADE_OUT
If X$<>"" Then Clear Key : Goto ZHASNI
CHKDSK[2]
Load Iff "reset_2:gfx/14",2
Screen Display 2,,90,,
Gosub _FADE_IN
If X$<>"" Then Clear Key : Goto ZHASNI
Wait 100
Gosub _FADE_OUT
If X$<>"" Then Clear Key : Goto ZHASNI
CHKDSK[2]
Load Iff "reset_2:gfx/15",2
Screen Display 2,,150,,
Gosub _FADE_IN
If X$<>"" Then Clear Key : Goto ZHASNI
Wait 100
Gosub _FADE_OUT
If X$<>"" Then Clear Key : Goto ZHASNI
CHKDSK[2]
Load Iff "reset_2:gfx/16",2
Screen Display 2,,220,,
Gosub _FADE_IN
If X$<>"" Then Clear Key : Goto ZHASNI
Wait 100
Gosub _FADE_OUT
If X$<>"" Then Clear Key : Goto ZHASNI
CHKDSK[2]
Load Iff "reset_2:gfx/17",2
Screen Display 2,,50,,
Gosub _FADE_IN
If X$<>"" Then Clear Key : Goto ZHASNI
Wait 100
Gosub _FADE_OUT
If X$<>"" Then Clear Key : Goto ZHASNI
CHKDSK[2]
Load Iff "reset_2:gfx/18",2
Screen Display 2,,90,,
Gosub _FADE_IN
If X$<>"" Then Clear Key : Goto ZHASNI
Wait 100
Gosub _FADE_OUT
If X$<>"" Then Clear Key : Goto ZHASNI
CHKDSK[2]
Load Iff "reset_2:gfx/19",2
Screen Display 2,,150,,
Gosub _FADE_IN
If X$<>"" Then Clear Key : Goto ZHASNI
Wait 100
Gosub _FADE_OUT
If X$<>"" Then Clear Key : Goto ZHASNI
CHKDSK[2]
Load Iff "reset_2:gfx/20",2
Screen Display 2,,220,,
Gosub _FADE_IN
If X$<>"" Then Clear Key : Goto ZHASNI
Wait 100
Gosub _FADE_OUT
If X$<>"" Then Clear Key : Goto ZHASNI
CHKDSK[2]
Load Iff "reset_2:gfx/21",2
Screen Display 2,,130,,
Gosub _FADE_IN
If X$<>"" Then Clear Key : Goto ZHASNI
Wait 150
Gosub _FADE_OUT
If X$<>"" Then Clear Key : Goto ZHASNI
CHKDSK[2]
Load Iff "reset_2:gfx/22",2
Screen Display 2,,150,,
Gosub _FADE_IN
Wait 150
Gosub _FADE_OUT
ZHASNI:
Rem tady je velikej konec
Screen 2
Fade 1,$224,$224,$224,$224,$224,$224,$224,$224,$224,$224,$224,$224,$224,$224,$224,$224
Wait 20
Screen Close 2
Screen 1
Fade 1
Wait 10
Goto IDIJOT
_FADE_IN:
X$=Inkey$
Palette $224,$224,$224,$224,$224,$224,$224,$224,$224,$224,$224,$224,$224,$224,$224,$224
Fade 1,$224,$FFF,$DDD,$557,$446,$335,$112,$0,$D00,$F50,$FC0,$9C0,$9EB,$86,$C9,$6AE
Wait 10
Return
_FADE_OUT:
X$=Inkey$
Fade 1,$224,$224,$224,$224,$224,$224,$224,$224,$224,$224,$224,$224,$224,$224,$224,$224
Wait 10
Return
End Proc
Procedure CHKDSK[A]
If A=1
If Not Exist("Reset_1:")
Unpack 15 To 5
Repeat
Until Exist("reset_1:")
Screen Close 5
Pop Proc
End If
End If
If A=2
If Not Exist("Reset_2:")
Unpack 16 To 5
Repeat
Until Exist("reset_2:")
Screen Close 5
Pop Proc
End If
End If
End Proc
