Subversion Repositories NedoOS

       if atm
        include "../../_sdk/sys_h.asm"
       endif
;atm=1
;doublescr=1
showfps=1-atm

crosshair=1;0

        if atm
ID_DOOR=0+(22*2);127
        else
ID_DOOR=0x40+((22-16)*2);127
        endif

;ZX data:
;music=0;1

debug=0
demorec=0
demoplay=0;1

;control:
doublespeed=0;1
doublerotate=1
autostrafe=1
kempston=0;1
mouse=1
mindist=64;111 ;max=111 ;118 stuck in door

colour=7
ceilingcolour=0
floorcolour=colour*9
ceilingcolourbyte=0b00000000;%11111111 ;atm
floorcolourbyte=0b00010010;%11110110 ;atm

sprites=1
CURSPRITES_RECSZ=5;4 ;ID, distL, distH, xscr, [monsterindex]
FATMONSTERS=0
viewrange=6
MONSTERviewrange=3
MONSTERBACKviewrange=2

TIME_WOUNDED=30
TIME_WANTATTACK=40
TIME_ATTACK=25
TIME_STEP=10

scale64=3;1 ;0 ╨╜╨╡ ╨┐╨╛╨┤╨┤╨╡╤А╨╢╨╕╨▓╨░╨╡╤В╤Б╤П

;render:
scrwid=32 ;chr$
scrtopx=(32-scrwid)/2
        if atm
scrhgt=200;128 ;pixels
scrhgtpix=scrhgt
Ycenter=100
Ytop=Ycenter-(scrhgt/2)
Ybottom=Ycenter+(scrhgt/2)
scrbase=0x4000+4
scrtop=Ytop*40+scrbase
        else
scrhgt=24 ;chr$ (10,12,...,24)
scrhgtpix=scrhgt*8
scrtop=(24-scrhgt)*16+#4000+scrtopx
attrtop=((scrtop/8)&0x300)+(0xff&scrtop)+0x5800
;╨┤╨╗╤П ╤Г╤Б╨║╨╛╤А╨╡╨╜╨╕╤П EOR-fill (╤З╨░╤Б╤В╨╕╤З╨╜╨╛ ╨╖╨░╨╝╨░╨╖╤Л╨▓╨░╨╜╨╕╨╡ ╨░╤В╤А╨╕╨▒╤Г╤В╨░╨╝╨╕) ╤А╨░╨╖╨╝╨╡╤А╤Л ╨▓╤Б╨╡╨│╨┤╨░ ╨░╨║╤В╨╕╨▓╨╜╨╛╨╣ ╤З╨░╤Б╤В╨╕ ╤Б╤В╨╛╨╗╨▒╤Ж╨░:
lowscrtop=#4800+scrtopx
lowattrtop=((lowscrtop/8)&0x300)+(0xff&lowscrtop)+0x5800
lowscrhgt=8 ;chr$
lowscrhgtpix=lowscrhgt*8
        endif

        IF scale64
maxscale=63
 IF scale64 == 3 ;sc=(s+sh)^p/div, Ys=(Y/32-1)*sc, ╨│╨┤╨╡ s=0..63, Y=1..62, p=5, k=16^(-1/p), sh=(63*k)/(1-k), div = (63+sh)^p/1024*8
lowmaxscale=27;28 ;fit in low screen
 ELSE
lowmaxscale=19 ;fit in low screen
 ENDIF
        ELSE
maxscale=127
lowmaxscale=25 ;fit in low screen
        ENDIF
mapdifbit=5;7
        IF atm == 0
lores=0
optres=0;1&(1-lores) ;+22t ╨╜╨░ ╨╝╨╡╨╗╨║╨╕╤Е, ╨▓╤Л╨╕╨│╤А╤Л╤И ╨╜╨░ ╨║╤А╤Г╨┐╨╜╤Л╤Е
        ELSE
lores=1
optres=0
        ENDIF
optfast=0
loresspr=0|atm
optresspr=1&(1-loresspr) ;╨▓╤Л╨╕╨│╤А╤Л╤И ╨╜╨░ ╨║╤А╤Г╨┐╨╜╤Л╤Е
loresspr_hires=loresspr&(1-lores)
pixperchr=8>>lores
corr_coord=1
 if atm
interpolate=4
 else
interpolate=16
 endif
antizalom=1

        if lores
SCRWIDPIX=scrwid*4
        else
SCRWIDPIX=scrwid*8
        endif

        if atm
scrbuf=#6040
        else
scrbuf=#A040
lowscrbuf=(scrhgtpix-lowscrhgtpix)/2+scrbuf
        endif
scrbufflag=(scrbuf&#FF00)+32
dropline=scrhgt*8+(0xff&scrbuf) ;Y=192
map=scrbuf-#3F;#A001 ;+0 ╨╖╨░╨╜╤П╤В dropline, +32 ╨╖╨░╨╜╤П╤В ╤Д╨╗╨░╨│╨╛╨╝ ╨▓╤Л╤Б╨╛╨║╨╕╤Е
mapend=map+#2000
invmap=1

        if atm == 0
tscale=#C000 ;128x64, ╨╝╨╜╨╛╨╢╨╕╤В╨╡╨╗╨╕ 0 ╨╕ 63 ╨▓╤Л╨┤╨░╤О╤В ╨║╨╛╨╜╤Б╤В╨░╨╜╤В╤Л 0 ╨╕ 3
             ;64x64 ╨┐╤А╨╕ scale64=1
        endif