objseg	segment	para public 'data'
;	org	2
	assume	cs:objseg
start:
objseg	ends

_ptr	=	0

defcom1	macro	command
do_&command	equ	+_ptr
_ptr	=	_ptr+9
	endm

defcom	macro	list
	local	command
	irp	command,<list>
	defcom1	command
	endm
	endm

coloursstruc	struc
black16	db	16 dup (?)
red16	db	16 dup (?)
grey32	db	32 dup (?)
brown32	db	32 dup (?)
khaki32	db	32 dup (?)
brickred	db	 8 dup (?)
basicblue	db	 8 dup (?)
anothergrey1	db	 8 dup (?)
anothergrey2	db	 8 dup (?)
greengrey	db	 8 dup (?)
mountaingreen	db	 8 dup (?)
foliage	db	16 dup (?)
groundgreen	db	 8 dup (?)
unusedcols	db	 8 dup (?)
ocean	db	 1 dup (?)
neon	db	 7 dup (?)
explodecols	db	 4 dup (?)
lights	db	 4 dup (?)
skycols	db	16 dup (?)
systemcols	db	16 dup (?)
coloursstruc	ends

	public	black16,red16,grey32,brown32,khaki32,brickred,basicblue,anothergrey1
	public	anothergrey2,greengrey,mountaingreen,foliage,groundgreen,unusedcols
	public	ocean,neon,explodecols,lights,skycols,systemcols,

BLACK	equ	0
RED	equ	red16+13
DRED	equ	red16+8
GREEN	equ	foliage+15
DGREEN	equ	foliage+8
BLUE	equ	basicblue+7
DBLUE	equ	basicblue+4
YELLOW	equ	explodecols+3
;DYELLOW	equ	
;CYAN	equ	
;DCYAN	equ	
GREY1	equ	grey32+0
GREY2	equ	grey32+8
GREY3	equ	grey32+16
GREY4	equ	grey32+24
WHITE	equ	grey32+31

DWHITE	equ	GREY3
LGREY	equ	GREY3
DGREY	equ	GREY1
GLASS	equ	skycols+8

	include	\stunt\commands.asm
	include	\stunt\sodmacs.sod
	include	\stunt\strucs.asm

cuboid	equ	0
groundpts	equ	2
subobjs	equ	4
genflag	equ	6
flatpts	equ	8

objdef	macro	name,shapesize,yoffground,shift,flags,collision
name	object	<0,&name&_sod,shapesize,yoffground,shift,flags,collision>
	endm

macinc	macro	file,ext
	include	&file&.&ext&
	endm

objseg	segment

;	macinc	%file,def
	macinc	%file,sod

objseg	ends

яяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяя00000h,#l2E90
#l2E90	dw	sp_1node,pylon2f,0000Dh,00060h,#l2E9A
#l2E9A	dw	sp_1node,pylon2d,0000Dh,00020h,#l2EA4
#l2EA4	dw	sp_leaf,pylon2
#l2EAE	dw	sp_pos,0FFFAh,00000h,00000h,#l2EB8
#l2EB8	dw	sp_1node,plinef,00030h,0007Eh,#l2EC2
#l2EC2	dw	sp_1node,plined,00030h,00050h,#l2ECC
#l2ECC	dw	sp_leaf,pline
#l2ED6	dw	sp_pos,00030h,00000h,00000h,#l2E6A
#l2EE0	dw	sp_xplane,#l2EE8,#l2EF2,0FFA0h
#l2EE8	dw	sp_pos,0FFD0h,00000h,00000h,#l2E6A
#l2EF2	dw	sp_pos,0FF70h,00000h,00000h,#l2E6A
#l2EFC	dw	sp_pos,00540h,00000h,0003Ah,#l2E3C
#l2F06	dw	sp_pos,003C0h,00000h,0003Ah,#l2E3C
#l2F10	dw	sp_xplane,#l2F18,#l2F22,00180h
#l2F18	dw	sp_pos,00240h,00000h,0003Ah,#l2E3C
#l2F22	dw	sp_pos,000C0h,00000h,0003Ah,#l2E3C
#l2F2C	dw	sp_xplane,#l2F34,#l2F62,0FB80h
#l2F34	dw	sp_xplane,#l2F3C,#l2F58,0FD00h
#l2F3C	dw	sp_xplane,#l2F44,#l2F4E,0FE80h
#l2F44	dw	sp_pos,0FF40h,00000h,0003Ah,#l2E3C
#l2F4E	dw	sp_pos,0FDC0h,00000h,0003Ah,#l2E3C
#l2F58	dw	sp_pos,0FC40h,00000h,0003Ah,#l2E3C
#l2F62	dw	sp_xplane,#l2F6A,#l2F74,0FA00h
#l2F6A	dw	sp_pos,0FAC0h,00000h,0003Ah,#l2E3C
#l2F74	dw	sp_pos,0F940h,00000h,0003Ah,#l2E3C
#l2F7E	dw	sp_2node,#l2F84,#l2F9C
#l2F84	dw	sp_gleaf,0,0E5FCh,057FEh,0F658h,07038h,0FFCAh,000A3h,00003h,006ACh,00674h,00690h
#l2F9C	dw	sp_leaf,0
#l2FA6	dw	sp_2node,#l2FAC,#l2FC6
#l2FAC	dw	sp_gleaf,0,00000h,04412h,00000h,00000h,00000h,0004Ch,00004h,001DCh,006ACh,00690h,0016Ch
#l2FC6	dw	sp_leaf,0
#l2FD0	dw	sp_vslope,#l2FDA,#l30D0,058D0h,0E885h
#l2FDA	dw	sp_hslope,#l2FE4,#l30A8,00000h,014C1h
#l2FE4	dw	sp_hslope,#l2FEE,#l3016,00CE0h,00714h
#l2FEE	dw	sp_2node,#l2FF4,#l300C
#l2FF4	dw	sp_gleaf,0,021A9h,0455Ah,01E55h,08125h,0FCEAh,000A3h,00003h,002D8h,002F4h,00000h
#l300C	dw	sp_leaf,0
#l3016	dw	sp_hslope,#l3020,#l3048,043D8h,012D2h
#l3020	dw	sp_2node,#l3026,#l303E
#l3026	dw	sp_gleaf,0,02CFBh,044F8h,0AB19h,08979h,0F9C2h,000A2h,00003h,002BCh,002F4h,002D8h
#l303E	dw	sp_leaf,0
#l3048	dw	sp_vslope,#l3052,#l3080,0FCD9h,0F2F8h
#l3052	dw	sp_2node,#l3058,#l3076
#l3058	dw	sp_gleaf,0,00000h,07BE2h,00000h,00000h,00000h,000C4h,0Ё$
c 	H`	$ф$`l	фHи$`x	<$ф„$иђ	<њ$иЁ	T$фґњА$иМ	А$фШ	њ$фд	H$фр™№ґАШ$дґр`њ„ђрґ$„`lz8)2уґАњЁдШ$)>уАњЁМ)муМЁдШz)+у$Шдz&)…уґр`„њА)ўуА`„њz&);уњ„ђдЁ)муЁђдz)/урґ$z8),у„`рlђ)муђxl)8у„`xђ•l#l6EB4
#l7724	dw	sp_pos,00002h,00000h,00012h,#l6EB4
#l772E	dw	sp_zplane,#l7736,#l7764,00000h
#l7736	dw	sp_zplane,#l773E,#l775A,00004h
#l773E	dw	sp_xplane,#l7746,#l7750,00018h
#l7746	dw	sp_pos,0001Ah,00000h,0000Ah,#l6EE0
#l7750	dw	sp_pos,00013h,00000h,00005h,#l6F0C
#l775A	dw	sp_pos,0001Dh,00000h,00001h,#l6F0C
#l7764	dw	sp_xplane,#l776C,#l7776,00010h
#l776C	dw	sp_pos,00012h,00000h,0FFFAh,#l6EB4
#l7776	dw	sp_pos,00006h,00000h,0FFEEh,#l6EE0
#l7780	dw	sp_zplane,#l7788,#l77DA,0FFF4h
#l7788	dw	sp_zplane,#l7790,#l77BE,00000h
#l7790	dw	sp_xplane,#l7798,#l77B4,0FFF4h
#l7798	dw	sp_xplane,#l77A0,#l77AA,0FFFCh
#l77A0	dw	sp_pos,0FFFEh,00000h,00002h,#l6EB4
#l77AA	dw	sp_pos,0FFF6h,00000h,00002h,#l6EE0
#l77B4	dw	sp_pos,0FFF2h,00000h,0000Eh,#l6F40
#l77BE	dw	sp_xplane,#l77C6,#l77D0,0FFF0h
#l77C6	dw	sp_pos,0FFF2h,00000h,0FFF6h,#l6EB4
#l77D0	dw	sp_pos,0FFE2h,00000h,0FFFEh,#l6EB4
#l77DA	dw	sp_xplane,#l77E2,#l7810,0FFE4h
#l77E2	dw	sp_zplane,#l77EA,#l7806,0FFECh
#l77EA	dw	sp_xplane,#l77F2,#l77FC,0FFF8h
#l77F2	dw	sp_pos,0FFFAh,00000h,0FFF2h,#l6F40
#l77FC	dw	sp_pos,0FFE6h,00000h,0FFEEh,#l6F40
#l7806	dw	sp_pos,0FFF6h,00000h,0FFE6h,#l6EB4
#l7810	dw	sp_zplane,#l7818,#l7822,0FFF0h
#l7818	dw	sp_pos,0FFE3h,00000h,0FFF1h,#l6F0C
#l7822	dw	sp_pos,0FFE2h,00000h,0FFE2h,#l6EE0
#l782C	dw	sp_pos,00020h,00000h,00060h,#l7836
#l7836	dw	sp_1node,fird6,00032h,00096h,#l7840
#l7840	dw	sp_zplane,#l7848,#l78BE,0FFFCh
#l7848	dw	sp_xplane,#l7850,#l7890,00014h
#l7850	dw	sp_zplane,#l7858,#l7874,00010h
#l7858	dw	sp_xplane,#l7860,#l786A,0001Ch
#l7860	dw	sp_pos,0001Eh,00000h,0001Eh,#l6F40
#l786A	dw	sp_pos,0001Ah,00000h,00012h,#l6EE0
#l7874	dw	sp_xplane,#l787C,#l7886,0001Ch
#l787C	dw	sp_pos,0001Dh,00000h,0000Fh,#l6F0C
#l7886	dw	sp_pos,00016h,00000h,00006h,#l6EB4
#l7890	dw	sp_xplane,#l7898,#l78B4,00000h
#l7898	dw	sp_xplane,#l78A0,#l78AA,00008h
#l78A0	dw	sp_pos,0000Ah,00000h,0000Ah,#l6F40
#l78AA	dw	sp_pos,00002h,00000h,0FFFEh,#l6EE0
#l78B4	dw	sp_pos,0FFF3h,00000h,0FFFDh,#l6F0C
#l78BE	dw	sp_zplane,#l78C6,#l7906,0FFECh
#l78C6	dw	sp_zplane,#l78CE,#l78EA,0FFF4h
#l78CE	dw	sp_xplane,#l78D6,#l78E0,00018h
#l78D6	dw	sp_pos,0001Ah,00000h,0FFF6h,#l6EE0
#l78E0	dw	sp_pos,0000Fh,00000h,0FFF9h,#l6F0C
#l78EA	dw	sp_xplane,#l78F2,#l78FC,0FFF0h
#l78F2	dw	sp_pos,0FFF2h,00000h,0FFEEh,#l6EE0
#l78FC	dw	sp_pos,0FFEAh,00000h,0FFF2h,#l6F40
#l7906	dw	sp_xplane,#l790E,#l792A,00008h
#l790E	dw	sp_xplane,#l7916,#l7920,0001Ch
#l7916	dw	sp_pos,0001Eh,00000h,0FFE2h,#l6EB4
#l7920	dw	sp_pos,0000Ah,00000h,0FFE6h,#l6F40
#l792A	dw	sp_pos,00002h,00000h,0FFE2h,#l6EB4
#l7934	dw	sp_zplane,#l793C,#l7B52,00000h
#l793C	dw	sp_xplane,#l7944,#l794E,00040h
#l7944	dw	sp_pos,00060h,00000h,00020h,#l76C2
#l794E	dw	sp_pos,00020h,00000h,00020h,#l7958
#l7958	dw	sp_1node,fird4,00034h,00096h,#l7962
#l7962	dw	sp_zplane,#l796A,#l7A5E,00000h
#l796A	dw	sp_xplane,#l7972,#l79E8,00000h
#l7972	dw	sp_zplane,#l797A,#l79BA,00010h
#l797A	dw	sp_zplane,#l7982,#l799E,00018h
#l7982	dw	sp_zplane,#l798A,#l7994,0001Ch
#l798A	dw	sp_pos,00002h,00000h,0001Eh,#l6EB4
#l7994	dw	sp_pos,0000Ah,00000h,0001Ah,#l6EB4
#l799E	dw	sp_xplane,#l79A6,#l79B0,0001Ch
#l79A6	dw	sp_pos,0001Eh,00000h,00012h,#l6EB4
#l79B0	dw	sp_pos,00012h,00000h,00016h,#l6F40
#l79BA	dw	sp_xplane,#l79C2,#l79DE,00008h
#l79C2	dw	sp_xplane,#l79CA,#l79D4,0001Ah
#l79CA	dw	sp_pos,0001Bh,00000h,0000Bh,#l6F0C
#l79D4	dw	sp_pos,0000Ah,00000h,0000Ah,#l6EE0
#l79DE	dw	sp_pos,00002h,00000h,00002h,#l6EB4
#l79E8	dw	sp_zplane,#l79F0,#l7A30,00014h
#l79F0	dw	sp_xplane,#l79F8,#l7A14,0FFF0h
#l79F8	dw	sp_xplane,#l7A00,#l7A0A,0FFF4h
#l7A