include names.h

include quotes.m32

include keys.m32

gamevar i 0 1  // per-block (top-level, event, or state) variable
gamevar j 0 1
gamevar k 0 1
gamevar k 0 1
gamevar l 0 1

var ENEMY_ANIM1 0 2
var ENEMY_ANIM2 0 2

gamevar p 0 1
gamevar r 0 1

gamevar z 0 0

gamevar cinbars 0 0

gamevar dx 0 0
gamevar dy 0 0
gamevar dz 0 0
gamevar dang 0 0

gamevar tmp 0 0
gamevar cnt 0 0

gamevar sec 0 0
gamevar wal 0 0

gamevar drawcol 9 0

gamevar tmp2 0 0

gamevar LOTAG 0 1
gamevar HITAG 0 1
gamevar EXTRA 0 1
gamevar XVEL 0 1
gamevar YVEL 0 0
gamevar ZVEL 0 1

gamevar m 0 1

gamevar TEMP 0 0
gamevar TEMP2 0 0
gamevar TEMP3 0 0
gamevar TEMP4 0 0
gamevar TEMP5 0 0
gamevar TEMP6 0 0

gamevar davr 65536 0
gamevar dayx 65536 0

gamevar drawcol 9 0

gamevar PICNUM 0 0

gamevar pal 0 0
gamevar shade 0 0

gamevar x 0 0
gamevar y 0 0

gamearray ar 128
gamearray parm 8

define TQUOTE 3

defstate cmp_by_lotag
    set RETURN sprite[SV2].lotag
    sub RETURN sprite[SV1].lotag
ends

// LOCATORS auto-incrementer
onevent EVENT_INSERTSPRITE2D
    set k I
    set j -1
    for i spritesofsector .sectnum
    {
        ifn i k, ifactor LOCATORS, ifg .lotag j
            set j .lotag
    }
    ifg j -1
    {
        add j 1
        set .lotag j
    }
endevent


onevent EVENT_LINKTAGS

		ife sprite[searchwall].picnum DOORTRANSPORT // DOOR TRANSPORT
		{
		setvar RETURN 1
		}

		ife sprite[searchwall].picnum DOORTRANSPORT // DOOR TRANSPORT
		{
		setvar RETURN 1
		}

endevent

// Whether RESPAWN sprites show the respawned sprite picnum unconditionally instead of
// only when aimed at (and locked onto) the RESPAWN sprite in 3D mode.
gamevar showrespawn_always 1 0
// When set to 1, previewed sprites are 66% translucent instead of 33%:
gamevar showrespawn_fulltrans 1 0


onevent EVENT_ANALYZESPRITES


    var ts ow pic z
    var k onumtspr

    ife showrespawn_always 0
    {
        ifaimingsprite ife sprite[searchwall].picnum RESPAWN nullop
        else break
    }


    set onumtspr spritesortcnt

    for ts range onumtspr
    {
        set ow tsprite[ts].owner
        ife showrespawn_always 0 ifn ow searchwall nullop else
        {
            ife sprite[ow].picnum RESPAWN
            {
                set k spritesortcnt
                tdupsprite ow

                // XXX: doesn't work with E1L5 boss RESPAWN...
                // Something's wrong with setting tsprite[] members.
                sub tsprite[k].z 4096

                set tsprite[k].xrepeat 32
                set tsprite[k].yrepeat 32

                set pic sprite[ow].hitag
                ifge pic 0 ifl pic MAXTILES
                    set tsprite[k].picnum pic

                and tsprite[k].cstat 0xfffffdff  // clear bit 512 (reverse translucency)
                or tsprite[k].cstat 2  // set bit 2 (33% translucency)
                ifvarn showrespawn_fulltrans 0
                    or tsprite[k].cstat 512
            }

            ife sprite[ow].picnum SPRITE_DETECT
            {
                set k spritesortcnt
                tdupsprite ow

                // XXX: doesn't work with E1L5 boss RESPAWN...
                // Something's wrong with setting tsprite[] members.
                sub tsprite[k].z 4096

                set tsprite[k].xrepeat 32
                set tsprite[k].yrepeat 32

				ife sprite[ow].pal 0 set pic BATTERY_SPRITE
                ifge pic 0 ifl pic MAXTILES
                    set tsprite[k].picnum pic

                and tsprite[k].cstat 0xfffffdff  // clear bit 512 (reverse translucency)
                or tsprite[k].cstat 2  // set bit 2 (33% translucency)
                ifvarn showrespawn_fulltrans 0
                    or tsprite[k].cstat 512
            }

            ife sprite[ow].picnum 14
            {
                set k spritesortcnt
                tdupsprite ow

                // XXX: doesn't work with E1L5 boss RESPAWN...
                // Something's wrong with setting tsprite[] members.
                sub tsprite[k].z 4096

                set tsprite[k].xrepeat 32
                set tsprite[k].yrepeat 32

                set pic sprite[ow].hitag
                ifge pic 0 ifl pic MAXTILES
                    set tsprite[k].picnum pic

                and tsprite[k].cstat 0xfffffdff  // clear bit 512 (reverse translucency)
                or tsprite[k].cstat 2  // set bit 2 (33% translucency)
                ifvarn showrespawn_fulltrans 0
                    or tsprite[k].cstat 512
            }


            ife sprite[ow].picnum 16011
            {
                set k spritesortcnt
                tdupsprite ow

                // XXX: doesn't work with E1L5 boss RESPAWN...
                // Something's wrong with setting tsprite[] members.
                sub tsprite[k].z 4096

                set tsprite[k].xrepeat 32
                set tsprite[k].yrepeat 32

                set pic sprite[ow].hitag
                ifge pic 0 ifl pic MAXTILES
                    set tsprite[k].picnum pic

                and tsprite[k].cstat 0xfffffdff  // clear bit 512 (reverse translucency)
                or tsprite[k].cstat 2  // set bit 2 (33% translucency)
                ifvarn showrespawn_fulltrans 0
                    or tsprite[k].cstat 512
            }


			ife sprite[ow].picnum 2001
				{
				set sprite[ow].xrepeat 40
				set sprite[ow].yrepeat 40
				}

            ife sprite[ow].picnum 1232
				{
				set pic sprite[ow].lotag
				ifvarg pic 0
					{
									set k spritesortcnt
					tdupsprite ow

					// XXX: doesn't work with E1L5 boss RESPAWN...
					// Something's wrong with setting tsprite[] members.
					sub tsprite[k].z 6096

					set tsprite[k].xrepeat 32
					set tsprite[k].yrepeat 32



					ifl pic MAXTILES
						set tsprite[k].picnum pic

					and tsprite[k].cstat 0xfffffdff  // clear bit 512 (reverse translucency)
					or tsprite[k].cstat 2  // set bit 2 (33% translucency)
					}
				}

            ife sprite[ow].picnum 23761
				{
				set pic sprite[ow].hitag
				ifvarg pic 0
					{
									set k spritesortcnt
					tdupsprite ow

					// XXX: doesn't work with E1L5 boss RESPAWN...
					// Something's wrong with setting tsprite[] members.
					sub tsprite[k].z 6096

					set tsprite[k].xrepeat 32
					set tsprite[k].yrepeat 32



					ifl pic MAXTILES
						set tsprite[k].picnum pic

					and tsprite[k].cstat 0xfffffdff  // clear bit 512 (reverse translucency)
					or tsprite[k].cstat 2  // set bit 2 (33% translucency)
					}
				}

            ife sprite[ow].picnum 4087
				{
				set pic sprite[ow].hitag
				ifvarg pic 0
					{
									set k spritesortcnt
					tdupsprite ow

					// XXX: doesn't work with E1L5 boss RESPAWN...
					// Something's wrong with setting tsprite[] members.
					sub tsprite[k].z 12096

					set tsprite[k].xrepeat 32
					set tsprite[k].yrepeat 32



					ifl pic MAXTILES
						set tsprite[k].picnum pic

					and tsprite[k].cstat 0xfffffdff  // clear bit 512 (reverse translucency)
					or tsprite[k].cstat 2  // set bit 2 (33% translucency)
					}
				}

            ife sprite[ow].picnum FIRSTGUNSPRITE
				{
				                set k spritesortcnt
                tdupsprite ow

                // XXX: doesn't work with E1L5 boss RESPAWN...
                // Something's wrong with setting tsprite[] members.
                sub tsprite[k].z 4096

                set tsprite[k].xrepeat 32
                set tsprite[k].yrepeat 32

				ife sprite[ow].xvel 0 setvar pic 3587
				ife sprite[ow].xvel 1 setvar pic 5245
				ife sprite[ow].xvel 2 setvar pic 5501
				ife sprite[ow].xvel 4 setvar pic 6400
				ife sprite[ow].xvel 8 setvar pic 6013
				ife sprite[ow].xvel 16 setvar pic 6336
				ife sprite[ow].xvel 32 setvar pic 6656
				ife sprite[ow].xvel 64 setvar pic 6429
				ife sprite[ow].xvel 128 setvar pic 6912
				ife sprite[ow].xvel 256 setvar pic 16384
                ifge pic 0 ifl pic MAXTILES
                    set tsprite[k].picnum pic

                and tsprite[k].cstat 0xfffffdff  // clear bit 512 (reverse translucency)
                or tsprite[k].cstat 2  // set bit 2 (33% translucency)
				}

            ife sprite[ow].picnum SHOTGUNSPRITE
				{
				                set k spritesortcnt
                tdupsprite ow

                // XXX: doesn't work with E1L5 boss RESPAWN...
                // Something's wrong with setting tsprite[] members.
                sub tsprite[k].z 4096

                set tsprite[k].xrepeat 32
                set tsprite[k].yrepeat 32

				ife sprite[ow].xvel 0 setvar pic 3587
				ife sprite[ow].xvel 1 setvar pic 5245
				ife sprite[ow].xvel 2 setvar pic 5501
				ife sprite[ow].xvel 4 setvar pic 6400
				ife sprite[ow].xvel 8 setvar pic 6013
				ife sprite[ow].xvel 16 setvar pic 6336
				ife sprite[ow].xvel 32 setvar pic 6656
				ife sprite[ow].xvel 64 setvar pic 6429
				ife sprite[ow].xvel 128 setvar pic 6912
				ife sprite[ow].xvel 256 setvar pic 16384
                ifge pic 0 ifl pic MAXTILES
                    set tsprite[k].picnum pic

                and tsprite[k].cstat 0xfffffdff  // clear bit 512 (reverse translucency)
                or tsprite[k].cstat 2  // set bit 2 (33% translucency)
				}


        }
    }

    for i drawnsprites
    {
        set j tsprite[i].owner
        switch sprite[j].picnum
		case 8960
				set sprite[j].xrepeat 33
				set sprite[j].yrepeat 33
				break
		case 8689
				set sprite[j].xrepeat 32
				set sprite[j].yrepeat 32
				break
		case WASP_DRONE
				set sprite[j].xrepeat 24
				set sprite[j].yrepeat 24
				break
		case GORILLA
			ife ENEMY_ANIM2 1 cactor 22785
			ife ENEMY_ANIM2 2 cactor 22790
			ife ENEMY_ANIM2 3 cactor 22795
			ife ENEMY_ANIM2 0 cactor 22800
			ife sprite[j].pal 10
				{
				set sprite[j].xrepeat 50
				set sprite[j].yrepeat 50
				}
			else
			ife sprite[j].pal 13
				{
				set sprite[j].xrepeat 50
				set sprite[j].yrepeat 50
				}
			else
			ife sprite[j].pal 24
				{
				set sprite[j].xrepeat 45
				set sprite[j].yrepeat 45
				}
			else
				{
				set sprite[j].xrepeat 40
				set sprite[j].yrepeat 40
				}
			break
		case GORILLA_STAYPUT
			ife ENEMY_ANIM2 1 cactor 22786
			ife ENEMY_ANIM2 2 cactor 22791
			ife ENEMY_ANIM2 3 cactor 22796
			ife ENEMY_ANIM2 0 cactor 22801
			ife sprite[j].pal 10
				{
				set sprite[j].xrepeat 50
				set sprite[j].yrepeat 50
				}
			else
			ife sprite[j].pal 13
				{
				set sprite[j].xrepeat 50
				set sprite[j].yrepeat 50
				}
			else
			ife sprite[j].pal 24
				{
				set sprite[j].xrepeat 45
				set sprite[j].yrepeat 45
				}
			else
				{
				set sprite[j].xrepeat 40
				set sprite[j].yrepeat 40
				}
			break
		case NAZI
			ife ENEMY_ANIM2 1 cactor 22887
			ife ENEMY_ANIM2 2 cactor 22892
			ife ENEMY_ANIM2 3 cactor 22897
			ife ENEMY_ANIM2 0 cactor 22902
			set sprite[j].xrepeat 17
			set sprite[j].yrepeat 17
			break
		case NAZI_STAYPUT
			ife ENEMY_ANIM2 1 cactor 22888
			ife ENEMY_ANIM2 2 cactor 22893
			ife ENEMY_ANIM2 3 cactor 22898
			ife ENEMY_ANIM2 0 cactor 22903
			set sprite[j].xrepeat 17
			set sprite[j].yrepeat 17
			break
		case FASCIST
			ife ENEMY_ANIM2 1 cactor 13076
			ife ENEMY_ANIM2 2 cactor 13061
			ife ENEMY_ANIM2 3 cactor 13066
			ife ENEMY_ANIM2 0 cactor 13071
			ife sprite[j].pal 0 set sprite[j].pal 22
			set sprite[j].xrepeat 38
			set sprite[j].yrepeat 38
			break
		case FASCIST_STAYPUT
			ife ENEMY_ANIM2 1 cactor 13077
			ife ENEMY_ANIM2 2 cactor 13062
			ife ENEMY_ANIM2 3 cactor 13067
			ife ENEMY_ANIM2 0 cactor 13072
			ife sprite[j].pal 0 set sprite[j].pal 22
			set sprite[j].xrepeat 38
			set sprite[j].yrepeat 38
			break
		case 13061
		case 13062
		case 13063
		case 13066
		case 13071
		case 13079
		case 13080
		case 13082
		case 13086
		case 13087
			ife sprite[j].pal 0 set sprite[j].pal 22
			set sprite[j].xrepeat 38
			set sprite[j].yrepeat 38
			break
		case 22877
			set sprite[j].xrepeat 40
			set sprite[j].yrepeat 40
			break
		case CULTIST
			ife ENEMY_ANIM2 1 cactor 7680
			ife ENEMY_ANIM2 2 cactor 7685
			ife ENEMY_ANIM2 3 cactor 7690
			ife ENEMY_ANIM2 0 cactor 7695
			ife sprite[j].pal 0 set sprite[j].pal 15
			set sprite[j].xrepeat 28
			set sprite[j].yrepeat 28
			break
		case CULTISTSTAYPUT
			ife ENEMY_ANIM2 1 cactor 7681
			ife ENEMY_ANIM2 2 cactor 7686
			ife ENEMY_ANIM2 3 cactor 7691
			ife ENEMY_ANIM2 0 cactor 7696
			ife sprite[j].pal 0 set sprite[j].pal 15
			set sprite[j].xrepeat 28
			set sprite[j].yrepeat 28
			break
		case CULTISTJUMP
			ife ENEMY_ANIM2 1 cactor 7706
			ife ENEMY_ANIM2 2 cactor 7711
			ife ENEMY_ANIM2 3 cactor 7716
			ife ENEMY_ANIM2 0 cactor 7721
			ife sprite[j].pal 0 set sprite[j].pal 15
			set sprite[j].xrepeat 28
			set sprite[j].yrepeat 28
			break
		case LOST
			ife ENEMY_ANIM2 1 cactor 9728
			ife ENEMY_ANIM2 2 cactor 9743
			ife ENEMY_ANIM2 3 cactor 9728
			ife ENEMY_ANIM2 0 cactor 9743
			set sprite[j].xrepeat 32
			set sprite[j].yrepeat 32
			break
		case SORCERER
			ife ENEMY_ANIM2 1 cactor 9772
			ife ENEMY_ANIM2 2 cactor 9777
			ife ENEMY_ANIM2 3 cactor 9772
			ife ENEMY_ANIM2 0 cactor 9777
			set sprite[j].xrepeat 40
			set sprite[j].yrepeat 40
			ife sprite[j].pal 0 set sprite[j].pal 21
			break
		case CYBERCULTIST
			ife ENEMY_ANIM2 1 cactor 19969
			ife ENEMY_ANIM2 2 cactor 19974
			ife ENEMY_ANIM2 3 cactor 19979
			ife ENEMY_ANIM2 0 cactor 19984
			set sprite[j].xrepeat 36
			set sprite[j].yrepeat 36
			ife sprite[j].pal 0 set sprite[j].pal 20
			break
		case CYBERCULTISTSTAYPUT
			ife ENEMY_ANIM2 1 cactor 19970
			ife ENEMY_ANIM2 2 cactor 19975
			ife ENEMY_ANIM2 3 cactor 19980
			ife ENEMY_ANIM2 0 cactor 19985
			set sprite[j].xrepeat 36
			set sprite[j].yrepeat 36
			ife sprite[j].pal 0 set sprite[j].pal 20
			break
		case CYBERCULTISTJUMP
			ife ENEMY_ANIM2 1 cactor 19995
			ife ENEMY_ANIM2 2 cactor 20000
			ife ENEMY_ANIM2 3 cactor 20005
			ife ENEMY_ANIM2 0 cactor 20010
			set sprite[j].xrepeat 36
			set sprite[j].yrepeat 36
			ife sprite[j].pal 0 set sprite[j].pal 20
			break
		case ZOMBIE
			ife ENEMY_ANIM2 1 cactor 9869
			ife ENEMY_ANIM2 2 cactor 9874
			ife ENEMY_ANIM2 3 cactor 9879
			ife ENEMY_ANIM2 0 cactor 9884
			set sprite[j].xrepeat 38
			set sprite[j].yrepeat 38
			break
		case ZPIGCOP
			ife ENEMY_ANIM2 1 cactor 16775
			ife ENEMY_ANIM2 2 cactor 16780
			ife ENEMY_ANIM2 3 cactor 16785
			ife ENEMY_ANIM2 0 cactor 16790
			set sprite[j].xrepeat 40
			set sprite[j].yrepeat 40
			break
		case ZPIGCOP_STAYPUT
			ife ENEMY_ANIM2 1 cactor 16776
			ife ENEMY_ANIM2 2 cactor 16781
			ife ENEMY_ANIM2 3 cactor 16786
			ife ENEMY_ANIM2 0 cactor 16791
			set sprite[j].xrepeat 40
			set sprite[j].yrepeat 40
			break
		case SPIDER2
			ife ENEMY_ANIM2 1 cactor 23510
			ife ENEMY_ANIM2 2 cactor 23495
			ife ENEMY_ANIM2 3 cactor 23500
			ife ENEMY_ANIM2 0 cactor 23505
			ife sprite[j].pal 11
				{
				set sprite[j].xrepeat 24
				set sprite[j].yrepeat 24
				}
			else
			ife sprite[j].pal 21
				{
				set sprite[j].xrepeat 16
				set sprite[j].yrepeat 16
				}
			else
			ife sprite[j].pal 36
				{
				set sprite[j].xrepeat 40
				set sprite[j].yrepeat 40
				}
			else
			ife sprite[j].pal 12
				{
				set sprite[j].xrepeat 60
				set sprite[j].yrepeat 60
				}
			else
				{
				set sprite[j].xrepeat 36
				set sprite[j].yrepeat 36
				}
			break
		case CHRYSSALID
			ife ENEMY_ANIM2 1 cactor 24200
			ife ENEMY_ANIM2 2 cactor 24205
			ife ENEMY_ANIM2 3 cactor 24210
			ife ENEMY_ANIM2 0 cactor 24215
				set sprite[j].xrepeat 28
				set sprite[j].yrepeat 28
			break
		case SHAMBLER
			ife ENEMY_ANIM2 1 cactor 24345
			ife ENEMY_ANIM2 2 cactor 24330
			ife ENEMY_ANIM2 3 cactor 24335
			ife ENEMY_ANIM2 0 cactor 24340
				set sprite[j].xrepeat 60
				set sprite[j].yrepeat 60
			break
		case MERC
			ife ENEMY_ANIM2 1 cactor 8799
			ife ENEMY_ANIM2 2 cactor 8804
			ife ENEMY_ANIM2 3 cactor 8809
			ife ENEMY_ANIM2 0 cactor 8814
				set sprite[j].xrepeat 42
				set sprite[j].yrepeat 42
			break
		case MERCSTAYPUT
			ife ENEMY_ANIM2 1 cactor 8800
			ife ENEMY_ANIM2 2 cactor 8805
			ife ENEMY_ANIM2 3 cactor 8810
			ife ENEMY_ANIM2 0 cactor 8815
				set sprite[j].xrepeat 42
				set sprite[j].yrepeat 42
			break
		case MERC2
			ife ENEMY_ANIM2 1 cactor 13640
			ife ENEMY_ANIM2 2 cactor 13645
			ife ENEMY_ANIM2 3 cactor 13650
			ife ENEMY_ANIM2 0 cactor 13655
				set sprite[j].xrepeat 46
				set sprite[j].yrepeat 46
			break
		case MERC2STAYPUT
			ife ENEMY_ANIM2 1 cactor 13641
			ife ENEMY_ANIM2 2 cactor 13646
			ife ENEMY_ANIM2 3 cactor 13651
			ife ENEMY_ANIM2 0 cactor 13656
				set sprite[j].xrepeat 46
				set sprite[j].yrepeat 46
			break
		case LPOWERSUIT
			ife ENEMY_ANIM2 1 cactor 8704
			ife ENEMY_ANIM2 2 cactor 8709
			ife ENEMY_ANIM2 3 cactor 8714
			ife ENEMY_ANIM2 0 cactor 8719
				set sprite[j].xrepeat 59
				set sprite[j].yrepeat 59
			break
		case LPOWERSUITSTAYPUT
			ife ENEMY_ANIM2 1 cactor 8705
			ife ENEMY_ANIM2 2 cactor 8710
			ife ENEMY_ANIM2 3 cactor 8715
			ife ENEMY_ANIM2 0 cactor 8720
				set sprite[j].xrepeat 59
				set sprite[j].yrepeat 59
			break
		case TRIAD
			ife ENEMY_ANIM2 1 cactor 3926
			ife ENEMY_ANIM2 2 cactor 3931
			ife ENEMY_ANIM2 3 cactor 3936
			ife ENEMY_ANIM2 0 cactor 3941
				set sprite[j].xrepeat 28
				set sprite[j].yrepeat 28
			break
		case TRIADSTAYPUT
			ife ENEMY_ANIM2 1 cactor 3927
			ife ENEMY_ANIM2 2 cactor 3932
			ife ENEMY_ANIM2 3 cactor 3937
			ife ENEMY_ANIM2 0 cactor 3942
				set sprite[j].xrepeat 28
				set sprite[j].yrepeat 28
			break
		case TRIADJUMP
			ife ENEMY_ANIM2 1 cactor 3997
			ife ENEMY_ANIM2 2 cactor 4002
			ife ENEMY_ANIM2 3 cactor 4007
			ife ENEMY_ANIM2 0 cactor 3992
				set sprite[j].xrepeat 28
				set sprite[j].yrepeat 28
			break
		case NINJA
			ife ENEMY_ANIM2 1 cactor 14848
			ife ENEMY_ANIM2 2 cactor 14853
			ife ENEMY_ANIM2 3 cactor 14858
			ife ENEMY_ANIM2 0 cactor 14863
				set sprite[j].xrepeat 30
				set sprite[j].yrepeat 30
			break
		case NINJASTAYPUT
			ife ENEMY_ANIM2 1 cactor 14849
			ife ENEMY_ANIM2 2 cactor 14854
			ife ENEMY_ANIM2 3 cactor 14859
			ife ENEMY_ANIM2 0 cactor 14864
				set sprite[j].xrepeat 30
				set sprite[j].yrepeat 30
			break
		case NINJAJUMP
			ife ENEMY_ANIM2 1 cactor 14919
			ife ENEMY_ANIM2 2 cactor 14924
			ife ENEMY_ANIM2 3 cactor 14929
			ife ENEMY_ANIM2 0 cactor 14914
				set sprite[j].xrepeat 30
				set sprite[j].yrepeat 30
			break
		case GUARDIAN
			ife ENEMY_ANIM2 1 cactor 17783
			ife ENEMY_ANIM2 2 cactor 17788
			ife ENEMY_ANIM2 3 cactor 17793
			ife ENEMY_ANIM2 0 cactor 17798
			ife sprite[j].pal 36
				{
				set sprite[j].xrepeat 50
				set sprite[j].yrepeat 50
				}
			else
				{
				ife sprite[j].pal 0 spritepal 11
				set sprite[j].xrepeat 40
				set sprite[j].yrepeat 40
				}
			break
		case GUARDIANSTAYPUT
			ife ENEMY_ANIM2 1 cactor 17784
			ife ENEMY_ANIM2 2 cactor 17789
			ife ENEMY_ANIM2 3 cactor 17794
			ife ENEMY_ANIM2 0 cactor 17799
			ife sprite[j].pal 36
				{
				set sprite[j].xrepeat 50
				set sprite[j].yrepeat 50
				}
			else
				{
				ife sprite[j].pal 0 spritepal 11
				set sprite[j].xrepeat 40
				set sprite[j].yrepeat 40
				}
			break
		case MAMANO
			ife ENEMY_ANIM2 1 cactor 15730
			ife ENEMY_ANIM2 2 cactor 15735
			ife ENEMY_ANIM2 3 cactor 15740
			ife ENEMY_ANIM2 0 cactor 15745
				set sprite[j].xrepeat 50
				set sprite[j].yrepeat 50

			break
		case MAMANOJUMP
			ife ENEMY_ANIM2 1 cactor 15790
			ife ENEMY_ANIM2 2 cactor 15795
			ife ENEMY_ANIM2 3 cactor 15800
			ife ENEMY_ANIM2 3 cactor 15805
				set sprite[j].xrepeat 50
				set sprite[j].yrepeat 50

			break
		case RIPPER
			ife ENEMY_ANIM2 1 cactor 17689
			ife ENEMY_ANIM2 2 cactor 17694
			ife ENEMY_ANIM2 3 cactor 17699
			ife ENEMY_ANIM2 0 cactor 17704
			ife sprite[j].pal 50
				{
				set sprite[j].xrepeat 64
				set sprite[j].yrepeat 64
				}
			else
				{
				set sprite[j].xrepeat 40
				set sprite[j].yrepeat 40
				}
			break
		case RIPPERJUMP
			ife ENEMY_ANIM2 1 cactor 17714
			ife ENEMY_ANIM2 2 cactor 17719
			ife ENEMY_ANIM2 3 cactor 17724
			ife ENEMY_ANIM2 0 cactor 17709
			ife sprite[j].pal 50
				{
				set sprite[j].xrepeat 64
				set sprite[j].yrepeat 64
				}
			else
				{
				set sprite[j].xrepeat 40
				set sprite[j].yrepeat 40
				}
			break
		case ANUBIS
			ife ENEMY_ANIM2 1 cactor 12544
			ife ENEMY_ANIM2 2 cactor 12549
			ife ENEMY_ANIM2 3 cactor 12554
			ife ENEMY_ANIM2 0 cactor 12559
			ife sprite[j].pal 41
				{
				set sprite[j].xrepeat 45
				set sprite[j].yrepeat 45
				}
			else
				{
				set sprite[j].xrepeat 32
				set sprite[j].yrepeat 32
				}
			break
		case ANUBIS_STAYPUT
			ife ENEMY_ANIM2 1 cactor 12545
			ife ENEMY_ANIM2 2 cactor 12550
			ife ENEMY_ANIM2 3 cactor 12555
			ife ENEMY_ANIM2 0 cactor 12560
				set sprite[j].xrepeat 32
				set sprite[j].yrepeat 32
			break
		case ANUBIS_MUMMY
			ife ENEMY_ANIM2 1 cactor 12727
			ife ENEMY_ANIM2 2 cactor 12732
			ife ENEMY_ANIM2 3 cactor 12737
			ife ENEMY_ANIM2 0 cactor 12742
				set sprite[j].xrepeat 22
				set sprite[j].yrepeat 22
			break
		case ANUBIS_MUMMY_STAYPUT
			ife ENEMY_ANIM2 1 cactor 12728
			ife ENEMY_ANIM2 2 cactor 12733
			ife ENEMY_ANIM2 3 cactor 12738
			ife ENEMY_ANIM2 0 cactor 12743
				set sprite[j].xrepeat 22
				set sprite[j].yrepeat 22
			break
		case SIREN
			ife ENEMY_ANIM2 1 cactor 22114
			ife ENEMY_ANIM2 2 cactor 22144
			ife ENEMY_ANIM2 3 cactor 22114
			ife ENEMY_ANIM2 0 cactor 22144
				set sprite[j].xrepeat 34
				set sprite[j].yrepeat 34
			break
		case COBRA
			ife ENEMY_ANIM2 1 cactor 22840
			ife ENEMY_ANIM2 2 cactor 22845
			ife ENEMY_ANIM2 3 cactor 22850
			ife ENEMY_ANIM2 0 cactor 22855
				set sprite[j].xrepeat 45
				set sprite[j].yrepeat 45
			break
		case COBRA_STAYPUT
			ife ENEMY_ANIM2 1 cactor 22841
			ife ENEMY_ANIM2 2 cactor 22846
			ife ENEMY_ANIM2 3 cactor 22851
			ife ENEMY_ANIM2 0 cactor 22856
				set sprite[j].xrepeat 45
				set sprite[j].yrepeat 45
			break
		case SCORPIONESS
			ife ENEMY_ANIM2 1 cactor 22155
			ife ENEMY_ANIM2 2 cactor 22160
			ife ENEMY_ANIM2 3 cactor 22165
			ife ENEMY_ANIM2 0 cactor 22170
			ife sprite[j].pal 42
				{
				set sprite[j].xrepeat 65
				set sprite[j].yrepeat 65
				}
			else
				{
				set sprite[j].xrepeat 40
				set sprite[j].yrepeat 40
				}
			break
		case SCORPIONESS_STAYPUT
			ife ENEMY_ANIM2 1 cactor 22156
			ife ENEMY_ANIM2 2 cactor 22161
			ife ENEMY_ANIM2 3 cactor 22166
			ife ENEMY_ANIM2 0 cactor 22171
			ife sprite[j].pal 42
				{
				set sprite[j].xrepeat 65
				set sprite[j].yrepeat 65
				}
			else
				{
				set sprite[j].xrepeat 40
				set sprite[j].yrepeat 40
				}
			break
		case BRUISER
			ife ENEMY_ANIM2 1 cactor 7535
			ife ENEMY_ANIM2 2 cactor 7540
			ife ENEMY_ANIM2 3 cactor 7545
			ife ENEMY_ANIM2 0 cactor 7550
			ife sprite[j].pal 24
				{
				set sprite[j].xrepeat 75
				set sprite[j].yrepeat 75
				}
			else
				{
				set sprite[j].xrepeat 60
				set sprite[j].yrepeat 60
				}
			break
		case BRUISERSTAYPUT
			ife ENEMY_ANIM2 1 cactor 7536
			ife ENEMY_ANIM2 2 cactor 7541
			ife ENEMY_ANIM2 3 cactor 7546
			ife ENEMY_ANIM2 0 cactor 7551
			ife sprite[j].pal 24
				{
				set sprite[j].xrepeat 75
				set sprite[j].yrepeat 75
				}
			else
				{
				set sprite[j].xrepeat 60
				set sprite[j].yrepeat 60
				}
			break
		case SPIRIT
			ife ENEMY_ANIM2 1 cactor 22016
			ife ENEMY_ANIM2 2 cactor 22021
			ife ENEMY_ANIM2 3 cactor 22026
			ife ENEMY_ANIM2 0 cactor 22031
			ife sprite[j].pal 24
				{
				set sprite[j].xrepeat 66
				set sprite[j].yrepeat 66
				}
			else
				{
				set sprite[j].xrepeat 56
				set sprite[j].yrepeat 56
				}
			break
		case SPIRITSTAYPUT
			ife ENEMY_ANIM2 1 cactor 22017
			ife ENEMY_ANIM2 2 cactor 22022
			ife ENEMY_ANIM2 3 cactor 22027
			ife ENEMY_ANIM2 0 cactor 22032
			ife sprite[j].pal 24
				{
				set sprite[j].xrepeat 66
				set sprite[j].yrepeat 66
				}
			else
				{
				set sprite[j].xrepeat 56
				set sprite[j].yrepeat 56
				}
			break
		case SHADE
			ife ENEMY_ANIM2 1 cactor 7472
			ife ENEMY_ANIM2 2 cactor 7477
			ife ENEMY_ANIM2 3 cactor 7482
			ife ENEMY_ANIM2 0 cactor 7487
			ife sprite[j].pal 24
				{
				set sprite[j].xrepeat 60
				set sprite[j].yrepeat 60
				}
			else
				{
				set sprite[j].xrepeat 50
				set sprite[j].yrepeat 50
				}
			break
		case SHADESTAYPUT
			ife ENEMY_ANIM2 1 cactor 7473
			ife ENEMY_ANIM2 2 cactor 7478
			ife ENEMY_ANIM2 3 cactor 7483
			ife ENEMY_ANIM2 0 cactor 7488
			ife sprite[j].pal 24
				{
				set sprite[j].xrepeat 60
				set sprite[j].yrepeat 60
				}
			else
				{
				set sprite[j].xrepeat 50
				set sprite[j].yrepeat 50
				}
			break
		case HADESPHERE
			ife ENEMY_ANIM2 1 cactor 8192
			ife ENEMY_ANIM2 2 cactor 8197
			ife ENEMY_ANIM2 3 cactor 8192
			ife ENEMY_ANIM2 0 cactor 8197
			ife sprite[j].pal 24
				{
				set sprite[j].xrepeat 70
				set sprite[j].yrepeat 70
				}
			else
				{
				set sprite[j].xrepeat 50
				set sprite[j].yrepeat 50
				}
			break
		case HADESPHERESTAYPUT
			ife ENEMY_ANIM2 1 cactor 8193
			ife ENEMY_ANIM2 2 cactor 8198
			ife ENEMY_ANIM2 3 cactor 8193
			ife ENEMY_ANIM2 0 cactor 8198
			ife sprite[j].pal 24
				{
				set sprite[j].xrepeat 70
				set sprite[j].yrepeat 70
				}
			else
				{
				set sprite[j].xrepeat 50
				set sprite[j].yrepeat 50
				}
			break
		case MAEPHISTO
			ife ENEMY_ANIM2 1 cactor 14336
			ife ENEMY_ANIM2 2 cactor 14341
			ife ENEMY_ANIM2 3 cactor 14346
			ife ENEMY_ANIM2 0 cactor 14351
				set sprite[j].xrepeat 50
				set sprite[j].yrepeat 50
			break
		case FLESHWIZARD
			ife ENEMY_ANIM2 1 cactor 8368
			ife ENEMY_ANIM2 2 cactor 8373
			ife ENEMY_ANIM2 3 cactor 8368
			ife ENEMY_ANIM2 0 cactor 8373
				set sprite[j].xrepeat 38
				set sprite[j].yrepeat 38
			break
		case FLESHWIZARDSTAYPUT
			ife ENEMY_ANIM2 1 cactor 8369
			ife ENEMY_ANIM2 2 cactor 8374
			ife ENEMY_ANIM2 3 cactor 8369
			ife ENEMY_ANIM2 0 cactor 8374
				set sprite[j].xrepeat 38
				set sprite[j].yrepeat 38
			break
		case SATYR
			ife ENEMY_ANIM2 1 cactor 7424
			ife ENEMY_ANIM2 2 cactor 7429
			ife ENEMY_ANIM2 3 cactor 7434
			ife ENEMY_ANIM2 0 cactor 7439
			ife sprite[j].pal 47
				{
				set sprite[j].xrepeat 52
				set sprite[j].yrepeat 52
				}
			else
				{
				set sprite[j].xrepeat 46
				set sprite[j].yrepeat 46
				}
			break
		case SATYRSTAYPUT
			ife ENEMY_ANIM2 1 cactor 7425
			ife ENEMY_ANIM2 2 cactor 7430
			ife ENEMY_ANIM2 3 cactor 7435
			ife ENEMY_ANIM2 0 cactor 7440
			ife sprite[j].pal 47
				{
				set sprite[j].xrepeat 52
				set sprite[j].yrepeat 52
				}
			else
				{
				set sprite[j].xrepeat 46
				set sprite[j].yrepeat 46
				}
			break
		case Z_GRENADEL
			ife ENEMY_ANIM2 1 cactor 16640
			ife ENEMY_ANIM2 2 cactor 16645
			ife ENEMY_ANIM2 3 cactor 16650
			ife ENEMY_ANIM2 0 cactor 16655
			ife sprite[j].pal 24
				{
				set sprite[j].xrepeat 60
				set sprite[j].yrepeat 60
				}
			else
				{
				set sprite[j].xrepeat 55
				set sprite[j].yrepeat 55
				}
			break
		case Z_GRENADEL_STAYPUT
			ife ENEMY_ANIM2 1 cactor 16641
			ife ENEMY_ANIM2 2 cactor 16646
			ife ENEMY_ANIM2 3 cactor 16651
			ife ENEMY_ANIM2 0 cactor 16656
			ife sprite[j].pal 24
				{
				set sprite[j].xrepeat 60
				set sprite[j].yrepeat 60
				}
			else
				{
				set sprite[j].xrepeat 55
				set sprite[j].yrepeat 55
				}
			break
		case ZCHAING
			ife ENEMY_ANIM2 1 cactor 8323
			ife ENEMY_ANIM2 2 cactor 8328
			ife ENEMY_ANIM2 3 cactor 8333
			ife ENEMY_ANIM2 0 cactor 8338
			ife sprite[j].pal 24
				{
				set sprite[j].xrepeat 60
				set sprite[j].yrepeat 60
				}
			else
				{
				set sprite[j].xrepeat 55
				set sprite[j].yrepeat 55
				}
			break
		case ZCHAINGSTAYPUT
			ife ENEMY_ANIM2 1 cactor 8324
			ife ENEMY_ANIM2 2 cactor 8329
			ife ENEMY_ANIM2 3 cactor 8334
			ife ENEMY_ANIM2 0 cactor 8339
			ife sprite[j].pal 24
				{
				set sprite[j].xrepeat 60
				set sprite[j].yrepeat 60
				}
			else
				{
				set sprite[j].xrepeat 55
				set sprite[j].yrepeat 55
				}
			break
		case ZSOLDIER
			ife ENEMY_ANIM2 1 cactor 13979
			ife ENEMY_ANIM2 2 cactor 13984
			ife ENEMY_ANIM2 3 cactor 13989
			ife ENEMY_ANIM2 0 cactor 13994
			ife sprite[j].pal 24
				{
				set sprite[j].xrepeat 60
				set sprite[j].yrepeat 60
				}
			else
				{
				set sprite[j].xrepeat 55
				set sprite[j].yrepeat 55
				}
			break
		case ZSOLDIER_STAYPUT
			ife ENEMY_ANIM2 1 cactor 13980
			ife ENEMY_ANIM2 2 cactor 13985
			ife ENEMY_ANIM2 3 cactor 13980
			ife ENEMY_ANIM2 0 cactor 13995
			ife sprite[j].pal 24
				{
				set sprite[j].xrepeat 60
				set sprite[j].yrepeat 60
				}
			else
				{
				set sprite[j].xrepeat 55
				set sprite[j].yrepeat 55
				}
			break
		case ZSOLDIER2
			ife ENEMY_ANIM2 1 cactor 15283
			ife ENEMY_ANIM2 2 cactor 15288
			ife ENEMY_ANIM2 3 cactor 15293
			ife ENEMY_ANIM2 0 cactor 15298
			ife sprite[j].pal 24
				{
				set sprite[j].xrepeat 60
				set sprite[j].yrepeat 60
				}
			else
				{
				set sprite[j].xrepeat 55
				set sprite[j].yrepeat 55
				}
			break
		case ZSOLDIER2_STAYPUT
			ife ENEMY_ANIM2 1 cactor 15284
			ife ENEMY_ANIM2 2 cactor 15289
			ife ENEMY_ANIM2 3 cactor 15294
			ife ENEMY_ANIM2 0 cactor 15299
			ife sprite[j].pal 24
				{
				set sprite[j].xrepeat 60
				set sprite[j].yrepeat 60
				}
			else
				{
				set sprite[j].xrepeat 55
				set sprite[j].yrepeat 55
				}
			break
		case ZSCIEN
			ife ENEMY_ANIM2 1 cactor 7633
			ife ENEMY_ANIM2 2 cactor 7638
			ife ENEMY_ANIM2 3 cactor 7643
			ife ENEMY_ANIM2 0 cactor 7648
			ife sprite[j].pal 24
				{
				set sprite[j].xrepeat 60
				set sprite[j].yrepeat 60
				}
			else
				{
				set sprite[j].xrepeat 55
				set sprite[j].yrepeat 55
				}
			break
		case ZSCIENSTAYPUT
			ife ENEMY_ANIM2 1 cactor 7634
			ife ENEMY_ANIM2 2 cactor 7639
			ife ENEMY_ANIM2 3 cactor 7644
			ife ENEMY_ANIM2 0 cactor 7649
			ife sprite[j].pal 24
				{
				set sprite[j].xrepeat 60
				set sprite[j].yrepeat 60
				}
			else
				{
				set sprite[j].xrepeat 55
				set sprite[j].yrepeat 55
				}
			break
		case INFERNAL
			ife ENEMY_ANIM2 1 cactor 15104
			ife ENEMY_ANIM2 2 cactor 15109
			ife ENEMY_ANIM2 3 cactor 15114
			ife ENEMY_ANIM2 0 cactor 15119
				set sprite[j].xrepeat 50
				set sprite[j].yrepeat 50
			break
		case INFERNAL_STAYPUT
			ife ENEMY_ANIM2 1 cactor 15105
			ife ENEMY_ANIM2 2 cactor 15110
			ife ENEMY_ANIM2 3 cactor 15115
			ife ENEMY_ANIM2 0 cactor 15120
				set sprite[j].xrepeat 50
				set sprite[j].yrepeat 50
			break
		case TERMINATOR
		 ife sprite[j].extra -1
			{
			ife ENEMY_ANIM2 1 cactor 24741
			ife ENEMY_ANIM2 2 cactor 24746
			ife ENEMY_ANIM2 3 cactor 24751
			ife ENEMY_ANIM2 0 cactor 24756
			}
			set sprite[j].xrepeat 29
			set sprite[j].yrepeat 25
			break
		case TERMINATORSTAYPUT
			ife ENEMY_ANIM2 1 cactor 24742
			ife ENEMY_ANIM2 2 cactor 24747
			ife ENEMY_ANIM2 3 cactor 24752
			ife ENEMY_ANIM2 0 cactor 24757
			set sprite[j].xrepeat 29
			set sprite[j].yrepeat 25
			break
		case TERMINATORDUCKING
			ife ENEMY_ANIM2 1 cactor 24771
			ife ENEMY_ANIM2 2 cactor 24776
			ife ENEMY_ANIM2 3 cactor 24771
			ife ENEMY_ANIM2 0 cactor 24776
			set sprite[j].xrepeat 29
			set sprite[j].yrepeat 25
			break
		case TERMINATORCRAWLING
			ife ENEMY_ANIM2 1 cactor 24781
			ife ENEMY_ANIM2 2 cactor 24786
			ife ENEMY_ANIM2 3 cactor 24791
			ife ENEMY_ANIM2 0 cactor 24796
			set sprite[j].xrepeat 29
			set sprite[j].yrepeat 25
			break
		case OGRE
			ife ENEMY_ANIM2 1 cactor 12603
			ife ENEMY_ANIM2 2 cactor 12608
			ife ENEMY_ANIM2 3 cactor 12613
			ife ENEMY_ANIM2 0 cactor 12618
			ife sprite[j].pal 24
				{
				set sprite[j].xrepeat 60
				set sprite[j].yrepeat 60
				}
			else
				{
				set sprite[j].xrepeat 46
				set sprite[j].yrepeat 46
				}
			break
		case OGRE_STAYPUT
			ife ENEMY_ANIM2 1 cactor 12604
			ife ENEMY_ANIM2 2 cactor 12609
			ife ENEMY_ANIM2 3 cactor 12614
			ife ENEMY_ANIM2 0 cactor 12619
			ife sprite[j].pal 24
				{
				set sprite[j].xrepeat 60
				set sprite[j].yrepeat 60
				}
			else
				{
				set sprite[j].xrepeat 46
				set sprite[j].yrepeat 46
				}
			break
		case NETHERBRUTE
			ife ENEMY_ANIM2 1 cactor 15190
			ife ENEMY_ANIM2 2 cactor 15195
			ife ENEMY_ANIM2 3 cactor 15200
			ife ENEMY_ANIM2 0 cactor 15205
				set sprite[j].xrepeat 60
				set sprite[j].yrepeat 60
			break
		case NETHERBRUTE_STAYPUT
			ife ENEMY_ANIM2 1 cactor 15191
			ife ENEMY_ANIM2 2 cactor 15196
			ife ENEMY_ANIM2 3 cactor 15201
			ife ENEMY_ANIM2 0 cactor 15206
				set sprite[j].xrepeat 60
				set sprite[j].yrepeat 60
			break
		case GOBLIN
			ife ENEMY_ANIM2 1 cactor 24406
			ife ENEMY_ANIM2 2 cactor 24411
			ife ENEMY_ANIM2 3 cactor 24416
			ife ENEMY_ANIM2 0 cactor 24421
				set sprite[j].xrepeat 40
				set sprite[j].yrepeat 40
			break
		case GOBLIN_STAYPUT
			ife ENEMY_ANIM2 1 cactor 24407
			ife ENEMY_ANIM2 2 cactor 24412
			ife ENEMY_ANIM2 3 cactor 24417
			ife ENEMY_ANIM2 0 cactor 24422
				set sprite[j].xrepeat 40
				set sprite[j].yrepeat 40
			break
		case ARCHER
			ife ENEMY_ANIM2 1 cactor 24447
			ife ENEMY_ANIM2 2 cactor 24452
			ife ENEMY_ANIM2 3 cactor 24457
			ife ENEMY_ANIM2 0 cactor 24462
				set sprite[j].xrepeat 50
				set sprite[j].yrepeat 50
			break
		case ARCHER_STAYPUT
			ife ENEMY_ANIM2 1 cactor 24448
			ife ENEMY_ANIM2 2 cactor 24453
			ife ENEMY_ANIM2 3 cactor 24458
			ife ENEMY_ANIM2 0 cactor 24463
				set sprite[j].xrepeat 50
				set sprite[j].yrepeat 50
			break
		case BERSERKER
			ife ENEMY_ANIM2 1 cactor 11696
			ife ENEMY_ANIM2 2 cactor 11701
			ife ENEMY_ANIM2 3 cactor 11706
			ife ENEMY_ANIM2 0 cactor 11711
				set sprite[j].xrepeat 46
				set sprite[j].yrepeat 46
			break
		case BERSERKER_STAYPUT
			ife ENEMY_ANIM2 1 cactor 11697
			ife ENEMY_ANIM2 2 cactor 11702
			ife ENEMY_ANIM2 3 cactor 11707
			ife ENEMY_ANIM2 0 cactor 11712
				set sprite[j].xrepeat 46
				set sprite[j].yrepeat 46
			break
		case CYBERTOUR
			ife ENEMY_ANIM2 1 cactor 8258
			ife ENEMY_ANIM2 2 cactor 8263
			ife ENEMY_ANIM2 3 cactor 8268
			ife ENEMY_ANIM2 0 cactor 8273
			ife sprite[j].pal 24
				{
				set sprite[j].xrepeat 65
				set sprite[j].yrepeat 65
				}
			else
				{
				set sprite[j].xrepeat 55
				set sprite[j].yrepeat 55
				}
			break
		case CYBERTOURSTAYPUT
			ife ENEMY_ANIM2 1 cactor 8259
			ife ENEMY_ANIM2 2 cactor 8264
			ife ENEMY_ANIM2 3 cactor 8269
			ife ENEMY_ANIM2 0 cactor 8274
			ife sprite[j].pal 24
				{
				set sprite[j].xrepeat 65
				set sprite[j].yrepeat 65
				}
			else
				{
				set sprite[j].xrepeat 55
				set sprite[j].yrepeat 55
				}
			break
		case MJ12_ASSASSIN
				ife ENEMY_ANIM2 1 cactor 18812
				ife ENEMY_ANIM2 2 cactor 18817
				ife ENEMY_ANIM2 3 cactor 18822
				ife ENEMY_ANIM2 0 cactor 18827
				set sprite[j].xrepeat 40
				set sprite[j].yrepeat 40
				break
		case MJ12_ASSASSIN_JUMP
				ife ENEMY_ANIM2 1 cactor 18832
				ife ENEMY_ANIM2 2 cactor 18833
				ife ENEMY_ANIM2 3 cactor 18834
				ife ENEMY_ANIM2 0 cactor 18835
				set sprite[j].xrepeat 40
				set sprite[j].yrepeat 40
				break
		case MJ12_TROOP
				ife ENEMY_ANIM2 1 cactor 15000
				ife ENEMY_ANIM2 2 cactor 15005
				ife ENEMY_ANIM2 3 cactor 15010
				ife ENEMY_ANIM2 0 cactor 15015
				set sprite[j].xrepeat 30
				set sprite[j].yrepeat 30
				break
		case MJ12_TROOP_STAYPUT
				ife ENEMY_ANIM2 1 cactor 15001
				ife ENEMY_ANIM2 2 cactor 15006
				ife ENEMY_ANIM2 3 cactor 15011
				ife ENEMY_ANIM2 0 cactor 15016
				set sprite[j].xrepeat 30
				set sprite[j].yrepeat 30
				break
		case PITFIEND
		case PITFIEND_STAYPUT
				set sprite[j].xrepeat 35
				set sprite[j].yrepeat 35
				break
		case PE_SENTRY
				set sprite[j].xrepeat 50
				set sprite[j].yrepeat 50
				break
		case PE_ELDER
				ife ENEMY_ANIM2 1 cactor 18766
				ife ENEMY_ANIM2 2 cactor 18771
				ife ENEMY_ANIM2 3 cactor 18776
				ife ENEMY_ANIM2 0 cactor 18781
				ife sprite[j].pal 24
					{
					set sprite[j].xrepeat 55
					set sprite[j].yrepeat 55
					}
				else
					{
					set sprite[j].xrepeat 50
					set sprite[j].yrepeat 50
					}
				break
		case PE_ELDER_STAYPUT
				ife ENEMY_ANIM2 1 cactor 18767
				ife ENEMY_ANIM2 2 cactor 18772
				ife ENEMY_ANIM2 3 cactor 18777
				ife ENEMY_ANIM2 0 cactor 18782
				ife sprite[j].pal 24
					{
					set sprite[j].xrepeat 55
					set sprite[j].yrepeat 55
					}
				else
					{
					set sprite[j].xrepeat 50
					set sprite[j].yrepeat 50
					}
				break
		case PE_TROOP
				ife ENEMY_ANIM2 1 cactor 18688
				ife ENEMY_ANIM2 2 cactor 18693
				ife ENEMY_ANIM2 3 cactor 18698
				ife ENEMY_ANIM2 0 cactor 18703
				ife sprite[j].pal 24
					{
					set sprite[j].xrepeat 50
					set sprite[j].yrepeat 50
					}
				else
					{
					ife sprite[j].pal 0 spritepal 12
					set sprite[j].xrepeat 45
					set sprite[j].yrepeat 45
					}
				break
		case PE_TROOP_STAYPUT
				ife ENEMY_ANIM2 1 cactor 18689
				ife ENEMY_ANIM2 2 cactor 18694
				ife ENEMY_ANIM2 3 cactor 18699
				ife ENEMY_ANIM2 0 cactor 18704
				ife sprite[j].pal 24
					{
					set sprite[j].xrepeat 50
					set sprite[j].yrepeat 50
					}
				else
					{
					ife sprite[j].pal 0 spritepal 12
					set sprite[j].xrepeat 45
					set sprite[j].yrepeat 45
					}
				break
		case LIZTROOP
		case 1681
				ife sprite[j].pal 0 spritepal 11
				set sprite[j].xrepeat 40
				set sprite[j].yrepeat 40
				break
		case 1682
				ife ENEMY_ANIM2 1 cactor 1682
				ife ENEMY_ANIM2 2 cactor 1687
				ife ENEMY_ANIM2 3 cactor 1692
				ife ENEMY_ANIM2 0 cactor 1697
				ife sprite[j].pal 0 spritepal 11
				set sprite[j].xrepeat 40
				set sprite[j].yrepeat 40
				break
		case SPACE_LIZTROOP
		case 1715
		case 1725
		case 1741
		case 1742
		case 1744
		case 1880
		case 1920
		case PIGCOP
		case 2001
		case 2045
		case 2120
		case 2121
		case 2150
		case 2160
		case 2165
				set sprite[j].xrepeat 40
				set sprite[j].yrepeat 40
				break
		case 17850
				ife ENEMY_ANIM2 1 cactor 17850
				ife ENEMY_ANIM2 2 cactor 17855
				ife ENEMY_ANIM2 3 cactor 17860
				ife ENEMY_ANIM2 0 cactor 17865
				set sprite[j].xrepeat 40
				set sprite[j].yrepeat 40
				break
		case 17851
				ife ENEMY_ANIM2 1 cactor 17851
				ife ENEMY_ANIM2 2 cactor 17856
				ife ENEMY_ANIM2 3 cactor 17861
				ife ENEMY_ANIM2 0 cactor 17866
				set sprite[j].xrepeat 40
				set sprite[j].yrepeat 40
				break
		case 24064
				ife ENEMY_ANIM2 1 cactor 24064
				ife ENEMY_ANIM2 2 cactor 24069
				ife ENEMY_ANIM2 3 cactor 24074
				ife ENEMY_ANIM2 0 cactor 24079
				set sprite[j].xrepeat 40
				set sprite[j].yrepeat 40
				break
		case 24065
				ife ENEMY_ANIM2 1 cactor 24065
				ife ENEMY_ANIM2 2 cactor 24070
				ife ENEMY_ANIM2 3 cactor 24075
				ife ENEMY_ANIM2 0 cactor 24080
				set sprite[j].xrepeat 40
				set sprite[j].yrepeat 40
				break
		case 24109
				ife ENEMY_ANIM2 1 cactor 24109
				ife ENEMY_ANIM2 2 cactor 24114
				ife ENEMY_ANIM2 3 cactor 24109
				ife ENEMY_ANIM2 0 cactor 24114
				set sprite[j].xrepeat 40
				set sprite[j].yrepeat 40
				break
		case ELITE_LIZMAN
				ife ENEMY_ANIM2 1 cactor 24137
				ife ENEMY_ANIM2 2 cactor 24142
				ife ENEMY_ANIM2 3 cactor 24147
				ife ENEMY_ANIM2 0 cactor 24152
				set sprite[j].xrepeat 45
				set sprite[j].yrepeat 45
				break
		case ELITE_LIZMAN_STAYPUT
				ife ENEMY_ANIM2 1 cactor 24138
				ife ENEMY_ANIM2 2 cactor 24143
				ife ENEMY_ANIM2 3 cactor 24148
				ife ENEMY_ANIM2 0 cactor 24153
				set sprite[j].xrepeat 45
				set sprite[j].yrepeat 45
				break
		case ELITE_LIZMAN_JUMP
				set sprite[j].xrepeat 45
				set sprite[j].yrepeat 45
				break
		case CYBERALIEN
				ife ENEMY_ANIM2 1 cactor 15679
				ife ENEMY_ANIM2 2 cactor 15684
				ife ENEMY_ANIM2 3 cactor 15679
				ife ENEMY_ANIM2 0 cactor 15674
				set sprite[j].xrepeat 45
				set sprite[j].yrepeat 45
				break
		case CYBERALIEN_STAYPUT
				ife ENEMY_ANIM2 1 cactor 15680
				ife ENEMY_ANIM2 2 cactor 15685
				ife ENEMY_ANIM2 3 cactor 15680
				ife ENEMY_ANIM2 0 cactor 15675
				set sprite[j].xrepeat 45
				set sprite[j].yrepeat 45
				break
		case PIGBOSS
				ife ENEMY_ANIM2 1 cactor 24576
				ife ENEMY_ANIM2 2 cactor 24581
				ife ENEMY_ANIM2 3 cactor 24586
				ife ENEMY_ANIM2 0 cactor 24591
				ife sprite[j].pal 0
					{
					set sprite[j].xrepeat 90
					set sprite[j].yrepeat 80
					}
				else
					{
					set sprite[j].xrepeat 48
					set sprite[j].yrepeat 40
					}
				break
        case 1404 // FAKE PLAYER
		ife sprite[j].extra 0 { cactor 5245 set sprite[j].yrepeat 34 } // James
		ife sprite[j].extra 1 { cactor 5501 set sprite[j].yrepeat 34 } // Zaxtor
		ife sprite[j].extra 2 { cactor 6400 ifspritepal 0 spritepal 21 set sprite[j].yrepeat 22 } // Merlijn
		ife sprite[j].extra 3 { cactor 6013 ifspritepal 0 spritepal 11 set sprite[j].yrepeat 34 } // Highwire
		ife sprite[j].extra 4 { cactor 6336 ifspritepal 0 spritepal 21 set sprite[j].yrepeat 44 } // Sang
		ife sprite[j].extra 5 { cactor 6656 ifspritepal 0 spritepal 12 set sprite[j].yrepeat 24 } // Rusty
		ife sprite[j].extra 6 { cactor 6429 ifspritepal 0 spritepal 21 set sprite[j].yrepeat 50 } // Geoffrey
		ife sprite[j].extra 7 { cactor 6912 ifspritepal 0 spritepal 11 set sprite[j].yrepeat 50 } // Mikko
		ife sprite[j].extra 13 { cactor 16384 set sprite[j].yrepeat 20 }  // Micky
		ife sprite[j].extra 14 { cactor 20736 set sprite[j].yrepeat 26 } // Snowfall
		break
		case 1405
		cactor 1404
		break
		case 8623
			set sprite[j].blend 255
		break
		case 490
		case 10037
		case 5868
		case 5869
		case 1095
		case 3375
		case 14296
		case 3792
		case 1020
		case 3070
		case 21616
		case 7676
		case 2271
		case 2311
		case 7038
		case 17133
		case 11772
		case 9175
		case 1220
		case 9433
		case 9805
		case 18225
		case 18224
		case 16290
		case 16327
		case 10613
		case 13949
		case 13950
		case 13951
		case 13952
		case 11309
		case 11686
		case 16234
		case 16292
		case 17128
		case 17129
		case 17130
		case 17131
		case 17323
		case 18333
		case 18428
		case 18429
		case 18431
		case 18473
		case 18646
		case 18647
		case 18648
		case 18649
		case 19619
		case 19620
		case 19621
		case 19622
		case 19712
		case 19713
		case 19714
		case 19715
		case 19716
		case 19717
		case 19718
		case 19719
		case 19720
		case 19721
		case 19722
		case 19723
		case 19724
		case 19725
		case 19726
		case 19727
		case 19728
		case 19729
		case 19730
		case 19731
		case 19732
		case 19733
		case 19734
		case 19735
		case 19736
		case 19737
		case 19738
		case 19739
		case 19740
		case 19741
		case 19742
		case 19743
		case 19744
		case 19745
		case 19746
		case 19747
		case 19748
		case 19749
		case 19750
		case 19751
		case 19752
		case 19753
		case 19754
		case 19755
		case 19756
		case 19757
		case 19623
		case 19624
		case 19625
		case 19626
		case 19627
		case 19628
		case 19629
		case 19630
		case 19631
		case 19632
		case 19654
		case 19336
		case 19340
		case 20409
		case 1677
		case 1678
		case 1635
		case 1634
		case 1633
		case 1632
		case 2310
		case 20420
		case 10078
		case 22428
		case 3582
		case 18470
		case 18654
		case 19685
		case 17922
		case 23693
		case 13867
		case 22729
		case 23784
		case 8254
		case 24268
		case 25149
		case 25152
		case 25154
		case 25254
		case 25255
		case 25256
		set sprite[j].blend 255
		break
        endswitch
    }
endevent

gamevar i 0 0
gamevar j 0 0

gamevar setshade 0 0

defstate barbwire
    for i allsprites
    {
	ifactor 10729
		{
			set sprite[i].shade sector[j].floorshade
		}
    }
ends
defstate edfbody
    for i allsprites
    {
	ifactor 10308
		{
			set sprite[i].xrepeat 32
			set sprite[i].yrepeat 32
		}
	ifactor 10309
		{
			set sprite[i].xrepeat 32
			set sprite[i].yrepeat 32
		}
	ifactor 10436
		{
			set sprite[i].xrepeat 40
			set sprite[i].yrepeat 40
		}
	ifactor 10495
		{
			set sprite[i].xrepeat 32
			set sprite[i].yrepeat 32
		}
    }
ends


defstate changecol
    for i allsprites
    {
	ifactor 9
		{
		ife sprite[i].hitag 22924
			{
			set sprite[i].hitag 13056
			set sprite[i].pal 10
			}
		ife sprite[i].hitag 22925
			{
			set sprite[i].hitag 13057
			set sprite[i].pal 10
			}
		}
	ifactor 13056
		{
		set sprite[i].pal 10
		}
	ifactor 13057
		{
		set sprite[i].pal 10
		}
    }
ends

defstate removetree
    for i allsprites
    {
	ifactor 1022
		{
		setvarvar TEMP i
		ifvarand TEMP 1 deletesprite i
		}
    }
ends

defstate removese
    for i allsprites
    {
	ifactor 1
		{
		ife sprite[i].lotag 50
			deletesprite i
		}
    }
ends

defstate changesee
    for i allsprites
    {
	ifactor 3655
		{
		ifvare sprite[i].lotag 5
		 ifvare sprite[i].xvel 791
			{
			set sprite[i].lotag 11
			}
		}
    }
ends

defstate changetag
    for i allsprites
    {
	ifactor 9
		{
		ifvare sprite[i].hitag 2000 set sprite[i].hitag 24064
		}
    }
ends

defstate changeblock
    for i allsprites
    {
		ifand sprite[i].cstat 32
		 ifand sprite[i].cstat 1
			{
			set TEMP2 sprite[i].sectnum
			ife sprite[i].z sector[TEMP2].floorz
				{
				addlogvar i
				set TEMP sprite[i].cstat
				xorvar TEMP 1
				set sprite[i].cstat TEMP
				}
			}
    }
ends

defstate bridge
    for i allsprites
    {
		ife sprite[i].picnum 12302
		ife sprite[i].shade 23
			{
			set sprite[i].z -41984
			}
		ife sprite[i].picnum 14261
		ife sprite[i].shade 18
			{
			set sprite[i].z 17408
			}
    }
ends

defstate fixsepal
    for i allsprites
    {
	switch sprite[i].picnum
		case 1
		ife sprite[i].lotag 12
			{
			ife sprite[i].pal 26 set sprite[i].pal 128
			ife sprite[i].pal 27 set sprite[i].pal 129
			ife sprite[i].pal 28 set sprite[i].pal 130
			ife sprite[i].pal 29 set sprite[i].pal 131

			ife sprite[i].pal 30 set sprite[i].pal 140
			ife sprite[i].pal 31 set sprite[i].pal 141
			ife sprite[i].pal 32 set sprite[i].pal 142
			ife sprite[i].pal 33 set sprite[i].pal 143
			ife sprite[i].pal 34 set sprite[i].pal 144
			ife sprite[i].pal 35 set sprite[i].pal 145
			ife sprite[i].pal 36 set sprite[i].pal 146

			ife sprite[i].pal 17 set sprite[i].pal 27
			ife sprite[i].pal 18 set sprite[i].pal 49
			ife sprite[i].pal 19 set sprite[i].pal 52
			ife sprite[i].pal 22 set sprite[i].pal 36
			}
		ife sprite[i].lotag 51
			{
			ife sprite[i].pal 26 set sprite[i].pal 128
			ife sprite[i].pal 27 set sprite[i].pal 129
			ife sprite[i].pal 28 set sprite[i].pal 130
			ife sprite[i].pal 29 set sprite[i].pal 131

			ife sprite[i].pal 30 set sprite[i].pal 140
			ife sprite[i].pal 31 set sprite[i].pal 141
			ife sprite[i].pal 32 set sprite[i].pal 142
			ife sprite[i].pal 33 set sprite[i].pal 143
			ife sprite[i].pal 34 set sprite[i].pal 144
			ife sprite[i].pal 35 set sprite[i].pal 145
			ife sprite[i].pal 36 set sprite[i].pal 146

			ife sprite[i].pal 17 set sprite[i].pal 27
			ife sprite[i].pal 18 set sprite[i].pal 49
			ife sprite[i].pal 19 set sprite[i].pal 52
			ife sprite[i].pal 22 set sprite[i].pal 36
			}
		ife sprite[i].lotag 54
			{
			ife sprite[i].pal 26 set sprite[i].pal 128
			ife sprite[i].pal 27 set sprite[i].pal 129
			ife sprite[i].pal 28 set sprite[i].pal 130
			ife sprite[i].pal 29 set sprite[i].pal 131

			ife sprite[i].pal 30 set sprite[i].pal 140
			ife sprite[i].pal 31 set sprite[i].pal 141
			ife sprite[i].pal 32 set sprite[i].pal 142
			ife sprite[i].pal 33 set sprite[i].pal 143
			ife sprite[i].pal 34 set sprite[i].pal 144
			ife sprite[i].pal 35 set sprite[i].pal 145
			ife sprite[i].pal 36 set sprite[i].pal 146

			ife sprite[i].pal 17 set sprite[i].pal 27
			ife sprite[i].pal 18 set sprite[i].pal 49
			ife sprite[i].pal 19 set sprite[i].pal 52
			ife sprite[i].pal 22 set sprite[i].pal 36
			}
		ife sprite[i].lotag 55
			{
			ife sprite[i].pal 26 set sprite[i].pal 128
			ife sprite[i].pal 27 set sprite[i].pal 129
			ife sprite[i].pal 28 set sprite[i].pal 130
			ife sprite[i].pal 29 set sprite[i].pal 131

			ife sprite[i].pal 30 set sprite[i].pal 140
			ife sprite[i].pal 31 set sprite[i].pal 141
			ife sprite[i].pal 32 set sprite[i].pal 142
			ife sprite[i].pal 33 set sprite[i].pal 143
			ife sprite[i].pal 34 set sprite[i].pal 144
			ife sprite[i].pal 35 set sprite[i].pal 145
			ife sprite[i].pal 36 set sprite[i].pal 146

			ife sprite[i].pal 17 set sprite[i].pal 27
			ife sprite[i].pal 18 set sprite[i].pal 49
			ife sprite[i].pal 19 set sprite[i].pal 52
			ife sprite[i].pal 22 set sprite[i].pal 36
			}
		break
		endswitch
    }
ends

defstate fixmpal
    for i allsectors
    {
	ife sector[i].floorpal 43 set sector[i].floorpal 0
	ife sector[i].ceilingpal 43 set sector[i].ceilingpal 0
    }

    for i allwalls
    {
	ife wall[i].pal 43 set wall[i].pal 0
    }

    for i allsprites
    {
	switch sprite[i].picnum
		default
		// ife sprite[i].pal 26 set sprite[i].pal 128


		ife sprite[i].pal 43 set sprite[i].pal 0


		break
		endswitch
    }
ends

defstate soundfix

    for i allsprites
    {
	switch sprite[i].picnum
		case 5
			ife sprite[i].lotag 398 set sprite[i].lotag 254
		break
		endswitch
    }

ends

defstate fix_letters

    for i allsprites
    {
	ifg sprite[i].picnum 2939
	 ifl sprite[i].picnum 2966
		{
			addlogvar i
			set TEMP sprite[i].picnum
			add TEMP 26
			set sprite[i].picnum TEMP
		}
    }

ends

defstate fix_e_pal

    for i allsprites
    {
	switch sprite[i].picnum
		case 9
		ife sprite[i].hitag 7424 ife sprite[i].pal 24
			{
			addlogvar i
			set sprite[i].pal 47
			}
		break
		case 7424
		case 7425
		ife sprite[i].pal 24
			{
			addlogvar i
			set sprite[i].pal 47
			}
		break
		endswitch
    }

ends

defstate skypal
    for i allsectors
    {
	ife sector[i].ceilingpal 143 ifand sector[i].ceilingstat 1 set sector[i].ceilingpal 0

    }
ends

defstate fixpalse

    for i allsprites
    {
	switch sprite[i].picnum
		case 0
		case 1
		case 2
		case 3
		case 4
		case 5
		case 6
		case 7
		case 8
		case 10
		// ife sprite[i].pal 26 set sprite[i].pal 128


		ife sprite[i].pal 26 set sprite[i].pal 128
		ife sprite[i].pal 27 set sprite[i].pal 129
		ife sprite[i].pal 28 set sprite[i].pal 130
		ife sprite[i].pal 29 set sprite[i].pal 131

		ife sprite[i].pal 30 set sprite[i].pal 140
		ife sprite[i].pal 31 set sprite[i].pal 141
		ife sprite[i].pal 32 set sprite[i].pal 142
		ife sprite[i].pal 33 set sprite[i].pal 143
		ife sprite[i].pal 34 set sprite[i].pal 144
		ife sprite[i].pal 35 set sprite[i].pal 145
		ife sprite[i].pal 36 set sprite[i].pal 146

		break
		endswitch
    }
ends

defstate zax
	for i allsectors
	{
	ife sector[i].floorpal 7 set sector[i].floorpal 56
	ife sector[i].ceilingpal 7 set sector[i].ceilingpal 56
	}

    for i allwalls
    {
	ife wall[i].pal 7 set wall[i].pal 56
	ife wall[i].picnum 20253
		{
		ife wall[i].pal 1 set wall[i].pal 74
		ife wall[i].pal 2 set wall[i].pal 82
		}
	ife wall[i].picnum 20275 ife wall[i].pal 2 set wall[i].pal 82
	ife wall[i].picnum 20285 ife wall[i].pal 2 set wall[i].pal 82
	ife wall[i].picnum 20286 ife wall[i].pal 2 set wall[i].pal 82
	ife wall[i].picnum 20270 ife wall[i].pal 2 set wall[i].pal 82
    }

ends

defstate rem_exp
    for i selsectors
    {
	ifand sector[i].floorstat 8
	 ife sector[i].floorpicnum 14252
		{
		set TEMP sector[i].floorstat
		xorvar TEMP 8
		set sector[i].floorstat TEMP
		}
    }

ends

defstate add_exp
    for i allsectors
    {
	 ife sector[i].floorpicnum 14253
		{
		set TEMP sector[i].floorstat
		ifand sector[i].floorstat 8 nullop else
		xorvar TEMP 8
		set sector[i].floorstat TEMP
		}
    }

ends

defstate skyfog
    for i selsectors
    {

	 set sector[i].floorpal 143
	set sector[i].ceilingpal 143

	for j wallsofsector i,
		{
		set wall[i].pal 143
		}
    }

ends

defstate fogsprites
    for i selsprites
    {

	set sprite[i].pal 128

    }

ends

defstate skyfog2
    for i allsectors
    {

	 set sector[i].floorpal 143
	set sector[i].ceilingpal 143

    }

    for i allwalls
    {

	set wall[i].pal 143

    }

ends


defstate greyfog
    for i allsectors
    {

	 set sector[i].floorpal 128
	set sector[i].ceilingpal 128

    }

    for i allwalls
    {

	set wall[i].pal 128

    }

ends

defstate redfog
    for i allsectors
    {

	 set sector[i].floorpal 129
	set sector[i].ceilingpal 129

    }

    for i allwalls
    {

	set wall[i].pal 129

    }

ends

defstate fixpal
    for i allsectors
    {
	// ife sector[i].floorpal 26 set sector[i].floorpal 128
	// ife sector[i].ceilingpal 26 set sector[i].ceilingpal 128

	ife sector[i].floorpal 19 set sector[i].floorpal 52
	ife sector[i].ceilingpal 19 set sector[i].ceilingpal 52

	ife sector[i].floorpal 26 set sector[i].floorpal 128
	ife sector[i].ceilingpal 26 set sector[i].ceilingpal 128

	ife sector[i].floorpal 27 set sector[i].floorpal 129
	ife sector[i].ceilingpal 27 set sector[i].ceilingpal 129

	ife sector[i].floorpal 28 set sector[i].floorpal 130
	ife sector[i].ceilingpal 28 set sector[i].ceilingpal 130

	ife sector[i].floorpal 29 set sector[i].floorpal 131
	ife sector[i].ceilingpal 29 set sector[i].ceilingpal 131

	ife sector[i].floorpal 30 set sector[i].floorpal 140
	ife sector[i].ceilingpal 30 set sector[i].ceilingpal 140

	ife sector[i].floorpal 31 set sector[i].floorpal 141
	ife sector[i].ceilingpal 31 set sector[i].ceilingpal 141

	ife sector[i].floorpal 32 set sector[i].floorpal 142
	ife sector[i].ceilingpal 32 set sector[i].ceilingpal 142

	ife sector[i].floorpal 33 set sector[i].floorpal 143
	ife sector[i].ceilingpal 3 set sector[i].ceilingpal 143

	ife sector[i].floorpal 34 set sector[i].floorpal 144
	ife sector[i].ceilingpal 34 set sector[i].ceilingpal 144

	ife sector[i].floorpal 35 set sector[i].floorpal 145
	ife sector[i].ceilingpal 35 set sector[i].ceilingpal 145

	ife sector[i].floorpal 36 set sector[i].floorpal 146
	ife sector[i].ceilingpal 36 set sector[i].ceilingpal 146

	ife sector[i].floorpal 17 set sector[i].floorpal 27
	ife sector[i].ceilingpal 17 set sector[i].ceilingpal 27

	ife sector[i].floorpal 18 set sector[i].floorpal 49
	ife sector[i].ceilingpal 18 set sector[i].ceilingpal 49

	ife sector[i].floorpal 22 set sector[i].floorpal 36
	ife sector[i].ceilingpal 22 set sector[i].ceilingpal 36

    }

    for i allwalls
    {

	ife wall[i].pal 26 set wall[i].pal 128
	ife wall[i].pal 27 set wall[i].pal 129
	ife wall[i].pal 28 set wall[i].pal 130
	ife wall[i].pal 29 set wall[i].pal 131

	ife wall[i].pal 30 set wall[i].pal 140
	ife wall[i].pal 31 set wall[i].pal 141
	ife wall[i].pal 32 set wall[i].pal 142
	ife wall[i].pal 33 set wall[i].pal 143
	ife wall[i].pal 34 set wall[i].pal 144
	ife wall[i].pal 35 set wall[i].pal 145
	ife wall[i].pal 36 set wall[i].pal 146

	ife wall[i].pal 17 set wall[i].pal 27
	ife wall[i].pal 18 set wall[i].pal 49
	ife wall[i].pal 19 set wall[i].pal 52
	ife wall[i].pal 22 set wall[i].pal 36




    }

    for i allsprites
    {
	switch sprite[i].picnum
		case 0
		case 1
		case 2
		case 3
		case 4
		case 5
		case 6
		case 7
		case 8
		case 10
		case AMCTSPAWNPOINT
		case ACTIVATELEVEL
		case CUTSCENECAM
		case CUTSCENETEXT
		case SPCOMM_LINK
		case COUNTDOWN_TIMER
		case DOCUMENTD
		case DEBRISSPAWNER
		case DOORTRANSPORT
		case DOORTRANSPORTEXIT
		case FLOORCEILSCROLL
		case FORCE_CHARACTER
		case JETPACKCIVSPAWNER
		case HOVERCARSPAWNER
		case 	BOX
		case LADDER
		case LOCATION
		case LOCKED_DOOR
		case MAKE_SWITCH
		case MOVEPLAYER
		case MISSIONFAILED
		case MUSICCHANGE
		case PARTICLEE
		case MONS_SPAWNER
		case GRANDFATHER_CLOCK
		case PRELOAD_MUSIC
		case RAINSNOWEFFECT
		case RAINSNOWSTARTER
		case RAINSNOWSOUND
		case RANDOMSOUND
		case RIGHTLEVEL
		case TREESPAWNER
		case SPRITE_LIFT
		case SLO_MO_TRIGGER
		case SPOOKY_TRIGGER
		case TRIGGERONLYIFCHAR
		case TIME_ZONE
		case MISSIONOBJECTIVES
		case WALLSCROLL
		case WEAP_EQUIP_STRIP
		case 10742
		case TOOLBOX_FIX
		case 3347
		case 3788
		case AMCSCIENTIST_WAYPOINT
		case SPECIAL_EFFECTS
		case TIME_DELAY
		case 3601
		case 3602
		case 3609
		case 17636
		case 22446
		case 22771
		break
		default
		// ife sprite[i].pal 26 set sprite[i].pal 128


		ife sprite[i].pal 26 set sprite[i].pal 128
		ife sprite[i].pal 27 set sprite[i].pal 129
		ife sprite[i].pal 28 set sprite[i].pal 130
		ife sprite[i].pal 29 set sprite[i].pal 131

		ife sprite[i].pal 30 set sprite[i].pal 140
		ife sprite[i].pal 31 set sprite[i].pal 141
		ife sprite[i].pal 32 set sprite[i].pal 142
		ife sprite[i].pal 33 set sprite[i].pal 143
		ife sprite[i].pal 34 set sprite[i].pal 144
		ife sprite[i].pal 35 set sprite[i].pal 145
		ife sprite[i].pal 36 set sprite[i].pal 146

		ife sprite[i].pal 17 set sprite[i].pal 27
		ife sprite[i].pal 18 set sprite[i].pal 49
		ife sprite[i].pal 19 set sprite[i].pal 52
		ife sprite[i].pal 22 set sprite[i].pal 36

		break
		endswitch
    }
ends

defstate sunlight
    for i selsectors
    {
		ifg sector[i].floorshade 9 set sector[i].floorpal 61
		else set sector[i].floorpal 67

		ifg sector[i].ceilingshade 9 set sector[i].ceilingpal 61
		else set sector[i].ceilingpal 67

	for j wallsofsector i,
		{
		ifg wall[j].shade 9 set wall[j].pal 61
		else set wall[j].pal 67
		}

    }

    for i selwalls
    {
		ifg wall[i].shade 9 set wall[i].pal 61
		else set wall[i].pal 67
    }

    for i selsprites
    {
	switch sprite[i].picnum
		case 0
		case 1
		case 2
		case 3
		case 4
		case 5
		case 6
		case 7
		case 8
		case 10
		case AMCTSPAWNPOINT
		case ACTIVATELEVEL
		case CUTSCENECAM
		case CUTSCENETEXT
		case SPCOMM_LINK
		case COUNTDOWN_TIMER
		case DOCUMENTD
		case DEBRISSPAWNER
		case DOORTRANSPORT
		case DOORTRANSPORTEXIT
		case FLOORCEILSCROLL
		case FORCE_CHARACTER
		case JETPACKCIVSPAWNER
		case HOVERCARSPAWNER
		case ITEM_BOX
		case LADDER
		case LOCATION
		case LOCKED_DOOR
		case MAKE_SWITCH
		case MOVEPLAYER
		case MISSIONFAILED
		case MUSICCHANGE
		case PARTICLEE
		case MONS_SPAWNER
		case GRANDFATHER_CLOCK
		case PRELOAD_MUSIC
		case RAINSNOWEFFECT
		case RAINSNOWSTARTER
		case RAINSNOWSOUND
		case RANDOMSOUND
		case RIGHTLEVEL
		case TREESPAWNER
		case SPRITE_LIFT
		case SLO_MO_TRIGGER
		case SPOOKY_TRIGGER
		case TRIGGERONLYIFCHAR
		case TIME_ZONE
		case MISSIONOBJECTIVES
		case WALLSCROLL
		case WEAP_EQUIP_STRIP
		case 10742
		case TOOLBOX_FIX
		case 3347
		case 3788
		case AMCSCIENTIST_WAYPOINT
		case SPECIAL_EFFECTS
		case TIME_DELAY
		case 3601
		case 3602
		case 3609
		case 17636
		case 22446
		case 22771
		break
		default
		set TEMP sprite[i].sectnum
		ifg sector[TEMP].floorshade 9 set sprite[i].pal 61
		else set sprite[i].pal 67


		break
		endswitch
    }
ends

defstate item_box_stuff
		rotatesprite 220 50 32767 0 3308 0 0 33 0 0 xdim ydim
		ifvarn sprite[searchwall].lotag 0 rotatesprite 230 25 16384 0 sprite[searchwall].lotag 0 0 0 0 0 xdim ydim
		ifvarn sprite[searchwall].hitag 0 rotatesprite 253 25 16384 0 sprite[searchwall].hitag 0 0 0 0 0 xdim ydim
		ifvarn sprite[searchwall].extra 0 rotatesprite 230 50 16384 0 sprite[searchwall].extra 0 0 0 0 0 xdim ydim
		ifvarn sprite[searchwall].xvel 0 rotatesprite 253 50 16384 0 sprite[searchwall].xvel 0 0 0 0 0 xdim ydim
		ifvarn sprite[searchwall].yvel 0 rotatesprite 230 75 16384 0 sprite[searchwall].yvel 0 0 0 0 0 xdim ydim
		ifvarn sprite[searchwall].zvel 0 rotatesprite 253 75 16384 0 sprite[searchwall].zvel 0 0 0 0 0 xdim ydim
ends

defstate jbladeshade
    for i selsectors
    {
        set sector[i].floorshade setshade
        set sector[i].ceilingshade setshade

        for j wallsofsector i
        {
            set wall[j].shade setshade
        }

        for j spritesofsector i
        {
            set sprite[j].shade setshade
        }
    }

    for i selwalls
    {
        set wall[i].shade setshade
    }

    for i selsprites
    {
        set sprite[i].shade setshade
    }
ends

defstate changewalls

	for i selsectors
	{

    for j wallsofsector i
		{
		ifvare wall[j].picnum 21647
			{
			set wall[j].picnum 20616
			}
		}
	}

ends

onevent EVENT_DRAW3DSCREEN

	add ENEMY_ANIM1 1
	ifg ENEMY_ANIM1 30
		{
		add ENEMY_ANIM2 1
		ifg ENEMY_ANIM2 3 set ENEMY_ANIM2 0
		set ENEMY_ANIM1 0
		}

endevent


onevent EVENT_DRAW2DSCREEN
    ifl cursectnum 0 return

    // connect LOCATORS in a sector by lines
    getarraysize ar tmp
    set j 0
    for i spritesofsector cursectnum
    {
        ifge j tmp nullop else
        ifactor LOCATORS
        {
            set ar[j] i
            add j 1
        }
    }

    set tmp j
    sort ar tmp cmp_by_lotag

    sub tmp 1
    for i range tmp
    {
        set j ar[i]
        set k i, add k 1, set k ar[k]
        drawline16b sprite[j].x sprite[j].y sprite[k].x sprite[k].y drawcol
    }





    set drawlinepat -1
    for i allsprites
		{

	 ifactor 3807
			{
			for i allsprites
				{
					ifactor 3664
						{
							ife sprite[i].hitag sprite[searchwall].hitag
								{
								drawline16b sprite[i].x sprite[i].y sprite[searchwall].x sprite[searchwall].y 2
								return
								}
						}
					ifactor 3807
						{
							ife sprite[i].hitag sprite[searchwall].lotag
								{
								drawline16b sprite[i].x sprite[i].y sprite[searchwall].x sprite[searchwall].y 3
								return
								}
						}
				}
			}

		ifactor 17920 // sunlight
		 ife sprite[i].pal 4
			drawcircle16b sprite[i].x sprite[i].y 65535 180

		ifactor CUTSCENECAM_CHANGE // Camera changer
			drawcircle16b sprite[i].x sprite[i].y 512 180
		ifactor 22261 // Camera changer
			{
			ife sprite[i].pal 3 drawcircle16b sprite[i].x sprite[i].y 32767 250
			else drawcircle16b sprite[i].x sprite[i].y 65536 250
			}
		ifactor 8444 // Abyss black patheway
            drawcircle16b sprite[i].x sprite[i].y 1524 220
        ifactor 7924 // GAS
            drawcircle16b sprite[i].x sprite[i].y 5000 250
        ifactor 15614 // Civilian spawner
			{
            drawcircle16b sprite[i].x sprite[i].y sprite[i].hitag 50
			}
        ifactor 3347 // trigger
			{
            drawcircle16b sprite[i].x sprite[i].y sprite[i].hitag 70
			}
        ifactor 15615 // Civilian waypoint
			{
            drawcircle16b sprite[i].x sprite[i].y 1024 50


			setvarvar TEMP3 sprite[i].x
			addvarvar TEMP3 sprite[i].xvel

			rotatepoint sprite[i].x sprite[i].y TEMP3 sprite[i].y sprite[i].ang TEMP5 TEMP6

			drawline16b sprite[i].x sprite[i].y TEMP5 TEMP6 6


			}

        ifactor 1480 // Car waypoint
            drawcircle16b sprite[i].x sprite[i].y 768 50
        ifactor 13251 // Chopper waypoint
            drawcircle16b sprite[i].x sprite[i].y 1024 250
		ifactor 13227 // Phantasm ball waypoint
            drawcircle16b sprite[i].x sprite[i].y 512 120

		ifactor PARTICLEE
			{
			drawcircle16b sprite[i].x sprite[i].y sprite[i].hitag 1
			}

		ifactor SPRITE_DETECT
			{
			drawcircle16b sprite[i].x sprite[i].y sprite[i].lotag 70
			}

		}

endevent

onevent EVENT_PREKEYS3D
ifeitheralt
{
ife keystatus[KEY_W] 1
        {
            ife searchstat 0 fixrepeats searchwall
            ife searchstat 4 fixrepeats searchwall
        }
}
endevent

onevent EVENT_KEYS3D


    // door sound tester
    ifaimingwall
    ifholdkey KEY_SPACE
    {
        set k wall[searchwall].nextsector
        ifl k 0 set k searchsector

        ife sector[k].lotag 0 return

        for i spritesofsector k
        {
            ifactor MUSICANDSFX
            ifge .lotag 0 ifl .lotag MAXSOUNDS
            {
                getsoundflags .lotag m
                ifand m 1 nullop else soundonce .lotag
            }
        }
    }

    // swinging doors tester -- hit space on a door wall
    ife searchstat 0
	ifeitherctrl
    ifhitkey KEY_SPACE  // SE11 ST23 up:ccw
    {
        set k wall[searchwall].nextsector
        ifl k 0 return
        ifn sector[k].lotag 23 return
        set tmp 0
        for i loopofwall searchwall
        {
            ifl wall[i].nextsector 0 set tmp 1 else
            ifn wall[i].nextsector k set tmp 1
        }
// a weaker condition
//        for i loopofwall wall[searchwall].nextwall
//        {
//            ifl wall[i].nextsector 0 set tmp 1 else
//            ifn wall[i].nextsector searchsector set tmp 1
//        }
        ifn tmp 0
        {
            quote 7
            return
        }

        set l -1
        for i spritesofsector k
        {
            ifactor SECTOREFFECTOR ife sprite[i].lotag 11
            {
                set l i
                ifn sprite[i].ang 512 ifn sprite[i].ang 1024 ifn sprite[i].ang 1536 set l -1
            }
        }
        ifl l 0
        {
            quote 8
            return
        }

        for tmp wallsofsector k
        {
            rotatepoint (sprite[l].x sprite[l].y) (wall[tmp].x wall[tmp].y) sprite[l].ang (i j)
            dragpoint tmp i j
        }
        for tmp spritesofsector k
        {
            ifn tmp l
            {
                rotatepoint (sprite[l].x sprite[l].y) (sprite[tmp].x sprite[tmp].y) sprite[l].ang (i j)
                bsetsprite tmp i j sprite[tmp].z
            }
        }
        inv sprite[l].ang
    }

	ife cinbars 1
	{
	rotatesprite 160 100 65536 0 3542 0 0 1024 0 0 xdim ydim
	}

    ife searchstat 3
    {

		ife sprite[searchwall].picnum 1 // SECTOR EFFECTOR
		{
		printext256 30 580 20 31 0 65536

		ife sprite[searchwall].lotag 79
			{
			printext256 25 580 30 31 0 65536
			printext256 26 580 40 31 0 65536
			printext256 27 580 50 31 0 65536
			}

		ife sprite[searchwall].lotag 80
			{
			printext256 20 580 30 31 0 65536
			printext256 21 580 40 31 0 65536
			printext256 22 580 50 31 0 65536
			printext256 23 580 60 31 0 65536
			printext256 24 580 70 31 0 65536
			printext256 19 580 80 31 0 65536
			}

		ife sprite[searchwall].lotag 71
			{
			rotatesprite 290 30 16384 0 sprite[searchwall].hitag 0 0 0 0 0 xdim ydim
			printext256 31 580 30 31 0 65536
			printext256 32 580 40 143 0 65536
			printext256 33 580 50 31 0 65536
			printext256 34 580 60 143 0 65536
			}
		ife sprite[searchwall].lotag 51
			{
			rotatesprite 290 30 16384 0 sprite[searchwall].extra sprite[searchwall].shade sprite[searchwall].pal 0 0 0 xdim ydim
			printext256 35 580 30 31 0 65536
			printext256 36 580 40 31 0 65536
			printext256 37 580 50 143 0 65536
			ife sprite[searchwall].ang 512  printext256 38 580 60 72 0 65536
			else printext256 38 580 60 31 0 65536
			ife sprite[searchwall].ang 1024 printext256 39 580 70 248 0 65536
			else printext256 39 580 70 143 0 65536
			printext256 42 580 80 31 0 65536
			printext256 43 580 100 143 0 65536
			ife sprite[searchwall].xvel 2 printext256 641 580 90 72 0 65536
			else printext256 641 580 90 31 0 65536
			}

		ife sprite[searchwall].lotag 52
			{
			rotatesprite 290 30 16384 0 sprite[searchwall].extra 0 0 0 0 0 xdim ydim
			printext256 40 580 30 31 0 65536
			printext256 41 580 40 143 0 65536
			printext256 36 580 50 31 0 65536
			printext256 37 580 60 143 0 65536
			printext256 38 580 70 31 0 65536
			printext256 39 580 80 143 0 65536
			printext256 42 580 90 31 0 65536
			printext256 43 580 100 143 0 65536
			}

		ife sprite[searchwall].lotag 53
			{
			printext256 44 580 30 31 0 65536
			printext256 41 580 40 143 0 65536
			printext256 45 580 50 31 0 65536
			printext256 46 580 60 143 0 65536
			}
		ife sprite[searchwall].lotag 54
			{
			rotatesprite 290 30 16384 0 sprite[searchwall].extra sprite[searchwall].shade sprite[searchwall].pal 0 0 0 xdim ydim
			rotatesprite 290 60 16384 0 sprite[searchwall].yvel sprite[searchwall].shade sprite[searchwall].pal 0 0 0 xdim ydim
			printext256 47 580 30 31 0 65536
			printext256 48 580 40 143 0 65536
			printext256 41 580 50 31 0 65536
			printext256 37 580 60 143 0 65536
			}

		ife sprite[searchwall].lotag 55
			{
			rotatesprite 290 30 16384 0 sprite[searchwall].extra 0 0 0 0 0 xdim ydim
			printext256 49 580 30 31 0 65536
			printext256 41 580 40 143 0 65536
			printext256 37 580 50 31 0 65536
			}

		ife sprite[searchwall].lotag 56
			{
			printext256 28 580 30 31 0 65536
			printext256 41 580 40 143 0 65536
			printext256 29 580 50 31 0 65536
			}

		ife sprite[searchwall].lotag 57
			{
			rotatesprite 290 30 16384 0 sprite[searchwall].extra 0 0 0 0 0 xdim ydim
			printext256 653 580 30 31 0 65536
			printext256 41 580 40 143 0 65536
			printext256 36 580 50 31 0 65536
			printext256 37 580 60 143 0 65536
			printext256 38 580 70 31 0 65536
			printext256 39 580 80 143 0 65536
			printext256 42 580 90 31 0 65536
			printext256 43 580 100 143 0 65536
			}

		ife sprite[searchwall].lotag 58
			{
			rotatesprite 290 30 16384 0 sprite[searchwall].extra 0 0 0 0 0 xdim ydim
			printext256 642 580 30 31 0 65536
			printext256 643 580 40 143 0 65536
			printext256 36 580 50 31 0 65536
			printext256 37 580 60 143 0 65536
			printext256 38 580 70 31 0 65536
			printext256 39 580 80 143 0 65536
			printext256 42 580 90 31 0 65536
			printext256 640 580 100 31 0 65536
			ife sprite[searchwall].xvel 2 printext256 641 580 90 72 0 65536
			else printext256 641 580 90 31 0 65536
			}

		}

		ife sprite[searchwall].picnum 9 // RESPAWN
		{
		 ife sprite[searchwall].hitag 3795
			{
			printext256 510 580 30 31 0 65536
			printext256 511 580 40 31 0 65536
			printext256 512 580 50 31 0 65536
			printext256 513 580 60 31 0 65536
			printext256 514 580 70 31 0 65536
			printext256 515 580 80 31 0 65536
			printext256 516 580 90 31 0 65536
			}
		 ife sprite[searchwall].hitag 22521
			{
			printext256 510 580 30 31 0 65536
			printext256 511 580 40 31 0 65536
			printext256 512 580 50 31 0 65536
			printext256 513 580 60 31 0 65536
			printext256 514 580 70 31 0 65536
			printext256 515 580 80 31 0 65536
			printext256 516 580 90 31 0 65536
			}
		 ife sprite[searchwall].hitag 21612
			{
			printext256 510 580 30 31 0 65536
			printext256 511 580 40 31 0 65536
			printext256 512 580 50 31 0 65536
			printext256 513 580 60 31 0 65536
			printext256 514 580 70 31 0 65536
			printext256 515 580 80 31 0 65536
			printext256 516 580 90 31 0 65536
			}
		}

		ife sprite[searchwall].picnum 3664 // Cutscene text
		{
		ifhitkey KEY_SPACE
		ifeitherctrl
			{
                soundonce sprite[searchwall].extra
			}
		}

		ife sprite[searchwall].picnum 3602 // Sound player
		{
		ifhitkey KEY_SPACE
		ifeitherctrl
			{
                soundonce sprite[searchwall].lotag
			}
		}

		ife sprite[searchwall].picnum SPRITE_DETECT // item scanner
		{
		printext256 620 580 20 31 0 65536
		printext256 621 580 30 31 0 65536
		printext256 622 580 40 31 0 65536
		printext256 623 580 50 31 0 65536
		printext256 624 580 60 31 0 65536
		printext256 625 580 70 31 0 65536
		}

		ife sprite[searchwall].picnum 22446 // combat checker
		{
		printext256 550 580 20 31 0 65536
		printext256 551 580 30 31 0 65536
		printext256 552 580 40 31 0 65536
		printext256 553 580 50 31 0 65536
		printext256 554 580 60 31 0 65536
		printext256 555 580 70 31 0 65536
		printext256 556 580 80 31 0 65536
		}


		ife sprite[searchwall].picnum 22520 // Ship type
		{
		printext256 530 580 20 31 0 65536
		printext256 531 580 30 31 0 65536
		printext256 532 580 40 31 0 65536
		printext256 533 580 50 31 0 65536
		printext256 534 580 60 31 0 65536
		}


		ife sprite[searchwall].picnum 10570 // Guns machine
		{
		printext256 250 580 20 31 0 65536
		printext256 251 580 30 111 0 65536
		printext256 252 580 40 143 0 65536
		printext256 253 580 50 74 0 65536
		}

		ife sprite[searchwall].picnum 3624 // Debris
		{
		printext256 240 580 20 31 0 65536
		printext256 241 580 30 31 0 65536
		printext256 242 580 40 31 0 65536
		printext256 243 580 50 31 0 65536
		printext256 238 580 60 31 0 65536
		printext256 239 580 70 31 0 65536
		printext256 244 580 80 31 0 65536

		ife sprite[searchwall].lotag 1 rotatesprite 290 30 32767 0 3770 0 0 0 0 0 xdim ydim // wood
		ife sprite[searchwall].lotag 2 rotatesprite 290 30 32767 0 3813 0 0 0 0 0 xdim ydim // rock 1
		ife sprite[searchwall].lotag 3 rotatesprite 290 30 32767 0 10118 0 23 0 0 0 xdim ydim // rock 2
		ife sprite[searchwall].lotag 4 rotatesprite 290 30 16384 0 9976 0 23 0 0 0 xdim ydim // rock 2

		}

		ife sprite[searchwall].picnum MUSICCHANGE
		{
		printext256 80 10 20 31 0 65536
		printext256 81 10 30 31 0 65536
		printext256 82 10 40 254 0 65536
		printext256 83 10 50 31 0 65536
		printext256 565 10 60 31 0 65536
		}

		ife sprite[searchwall].picnum PRELOAD_MUSIC
		{
		printext256 84 580 20 31 0 65536
		printext256 85 580 30 31 0 65536
		printext256 86 580 40 31 0 65536
		}

		ife sprite[searchwall].picnum 4954 // broken switch
		{
		printext256 67 580 20 31 0 65536
		printext256 68 580 30 31 0 65536
		printext256 69 580 40 31 0 65536
		}

		ife sprite[searchwall].picnum 4483 // broken switch
		{
		printext256 67 580 20 31 0 65536
		printext256 68 580 30 31 0 65536
		printext256 69 580 40 31 0 65536
		}

		ife sprite[searchwall].picnum 12358 // broken switch
		{
		printext256 67 580 20 31 0 65536
		printext256 68 580 30 31 0 65536
		printext256 69 580 40 31 0 65536
		}

		ife sprite[searchwall].picnum 12432 // Toolbox Fixing sprite
		{
		printext256 70 580 20 31 0 65536
		printext256 71 580 30 31 0 65536
		printext256 72 580 40 31 0 65536
		printext256 73 580 50 31 0 65536
		printext256 74 580 60 31 0 65536
		}

		ife sprite[searchwall].picnum 3828 // Wall scroll
		{
		printext256 1503 580 20 31 0 65536
		printext256 1504 580 30 31 0 65536
		printext256 1505 580 40 31 0 65536
		printext256 1506 580 50 31 0 65536
		printext256 1507 580 60 31 0 65536
		}

		ife sprite[searchwall].picnum 3829 // Floor Ceiling scroll
		{
		printext256 183 580 20 31 0 65536
		printext256 184 580 30 31 0 65536
		printext256 185 580 40 31 0 65536
		printext256 186 580 50 31 0 65536
		printext256 187 580 60 31 0 65536
		printext256 188 580 70 143 0 65536
		}

		ife sprite[searchwall].picnum GRANDFATHER_CLOCK
		{
		printext256 235 580 20 31 0 65536
		printext256 236 580 30 31 0 65536
		printext256 237 580 40 31 0 65536
		}

		ife sprite[searchwall].picnum DOCUMENTD
		{
		printext256 245 580 20 31 0 65536
		printext256 246 580 30 31 0 65536
		printext256 247 580 40 31 0 65536
		printext256 248 580 50 31 0 65536
		printext256 249 580 60 31 0 65536
		rotatesprite 260 70 16384 0 sprite[searchwall].hitag 0 0 0 0 0 xdim ydim
		}

		ife sprite[searchwall].picnum 12437 // Battery spot
		{
		printext256 75 580 20 31 0 65536
		printext256 76 580 30 31 0 65536
		printext256 77 580 40 31 0 65536
		printext256 78 580 50 31 0 65536
		}

		ife sprite[searchwall].picnum 12116 // research
		{
		printext256 410 580 20 31 0 65536
		printext256 411 580 30 31 0 65536
		ife sprite[searchwall].hitag 1 printext256 412 580 40 31 0 65536 else printext256 412 580 40 21 0 65536
		ife sprite[searchwall].hitag 2 printext256 413 580 50 31 0 65536 else printext256 413 580 50 21 0 65536
		ife sprite[searchwall].hitag 3 printext256 414 580 60 31 0 65536 else printext256 414 580 60 21 0 65536
		ife sprite[searchwall].hitag 4 printext256 415 580 70 31 0 65536 else printext256 415 580 70 21 0 65536
		ife sprite[searchwall].hitag 5 printext256 416 580 80 31 0 65536 else printext256 416 580 80 21 0 65536
		ife sprite[searchwall].hitag 6 printext256 417 580 90 31 0 65536 else printext256 417 580 90 21 0 65536
		}

		ife sprite[searchwall].picnum 12117 // research
		{
		printext256 410 580 20 31 0 65536
		printext256 411 580 30 31 0 65536
		ife sprite[searchwall].hitag 1 printext256 412 580 40 31 0 65536 else printext256 412 580 40 21 0 65536
		ife sprite[searchwall].hitag 2 printext256 413 580 50 31 0 65536 else printext256 413 580 50 21 0 65536
		ife sprite[searchwall].hitag 3 printext256 414 580 60 31 0 65536 else printext256 414 580 60 21 0 65536
		ife sprite[searchwall].hitag 4 printext256 415 580 70 31 0 65536 else printext256 415 580 70 21 0 65536
		ife sprite[searchwall].hitag 5 printext256 416 580 80 31 0 65536 else printext256 416 580 80 21 0 65536
		ife sprite[searchwall].hitag 6 printext256 417 580 90 31 0 65536 else printext256 417 580 90 21 0 65536
		}

		ife sprite[searchwall].picnum 17917 // research
		{
		printext256 410 580 20 31 0 65536
		printext256 411 580 30 31 0 65536
		ife sprite[searchwall].hitag 1 printext256 412 580 40 31 0 65536 else printext256 412 580 40 21 0 65536
		ife sprite[searchwall].hitag 2 printext256 413 580 50 31 0 65536 else printext256 413 580 50 21 0 65536
		ife sprite[searchwall].hitag 3 printext256 414 580 60 31 0 65536 else printext256 414 580 60 21 0 65536
		ife sprite[searchwall].hitag 4 printext256 415 580 70 31 0 65536 else printext256 415 580 70 21 0 65536
		ife sprite[searchwall].hitag 5 printext256 416 580 80 31 0 65536 else printext256 416 580 80 21 0 65536
		ife sprite[searchwall].hitag 6 printext256 417 580 90 31 0 65536 else printext256 417 580 90 21 0 65536
		}

		ife sprite[searchwall].picnum 1247 // c9
		{

		ifhitkey KEY_SPACE
			{
			set sprite[searchwall].xrepeat 4
			}

		}

		ife sprite[searchwall].picnum 3694 // rain / snow sound
		{
		printext256 310 580 20 31 0 65536
		printext256 311 580 30 31 0 65536

		ifhitkey KEY_SPACE
		ifeitherctrl
			{
			ife sprite[searchwall].pal 1 soundonce 899
			ife sprite[searchwall].pal 2 soundonce 822
			ife sprite[searchwall].pal 3 soundonce 710
			}

		}

		ife sprite[searchwall].picnum 621 // camera
		{
		printext256 505 580 20 31 0 65536

		ifhitkey KEY_SPACE
		ifeitherctrl
			{
			set posx sprite[searchwall].x
			set posy sprite[searchwall].y
			set posz sprite[searchwall].z
			set ang sprite[searchwall].ang
			}

		}


		ife sprite[searchwall].picnum 3695 // rain / snow starter
		{
		printext256 305 580 20 31 0 65536
		printext256 306 480 30 31 0 65536
		printext256 307 480 40 31 0 65536
		printext256 308 480 50 31 0 65536
		printext256 309 480 60 31 0 65536
		}

		ife sprite[searchwall].picnum 3696 // rain / snow
		{
		printext256 300 580 20 31 0 65536
		printext256 301 580 30 31 0 65536
		printext256 302 580 40 31 0 65536
		printext256 303 580 50 31 0 65536
		printext256 304 520 60 31 0 65536
		}

		ife sprite[searchwall].picnum 3713 // move player
		{
		printext256 352 580 20 31 0 65536
		printext256 353 580 30 31 0 65536
		printext256 354 580 40 31 0 65536
		}

		ife sprite[searchwall].picnum 3347 // Activate if player near
		{
		printext256 370 580 20 31 0 65536
		printext256 371 580 30 31 0 65536
		printext256 372 580 40 31 0 65536
		printext256 373 580 50 31 0 65536
		printext256 374 580 60 31 0 65536
		printext256 375 580 70 31 0 65536
		printext256 376 580 80 31 0 65536
		printext256 377 580 90 31 0 65536
		}

		ife sprite[searchwall].picnum 3610 // Inventory strip
		{
		printext256 380 580 20 31 0 65536
		printext256 381 560 30 31 0 65536
		printext256 382 560 40 31 0 65536
		printext256 383 580 50 31 0 65536
		printext256 384 580 60 73 0 65536
		printext256 385 580 70 143 0 65536
		printext256 386 580 80 31 0 65536
		printext256 387 580 90 16 0 65536
		}

		ife sprite[searchwall].picnum 14548 // Scientist waypoint
		{
		printext256 400 580 20 31 0 65536
		printext256 401 580 30 31 0 65536
		printext256 402 580 40 143 0 65536
		printext256 403 580 50 31 0 65536
		}

		ife sprite[searchwall].picnum 3602 // sound player
		{
		printext256 460 580 20 31 0 65536
		printext256 461 580 30 31 0 65536
		printext256 462 580 40 31 0 65536
		printext256 463 580 50 31 0 65536
		}

		ife sprite[searchwall].picnum 3658 // level change
		{
		printext256 465 580 20 31 0 65536
		printext256 466 580 30 31 0 65536
		printext256 467 580 40 31 0 65536
		printext256 468 580 50 31 0 65536
		}

		ife sprite[searchwall].picnum 3697 // air bubbles
		printext256 470 580 20 31 0 65536

		ife sprite[searchwall].picnum 9412 // autosave
		{
		printext256 471 580 20 31 0 65536
		printext256 472 580 30 31 0 65536
		printext256 473 580 40 31 0 65536
		}

		ife sprite[searchwall].picnum 8432 // C4 Place here
		{
		printext256 475 580 20 31 0 65536
		printext256 476 580 30 31 0 65536
		printext256 477 580 40 31 0 65536
		printext256 478 580 50 31 0 65536
		}

		ife sprite[searchwall].picnum 3806 // Countdown
		{
		printext256 480 580 20 31 0 65536
		printext256 481 580 30 31 0 65536
		printext256 482 580 40 31 0 65536
		printext256 483 580 50 31 0 65536
		printext256 484 580 60 31 0 65536
		printext256 485 580 70 31 0 65536
		printext256 486 580 80 31 0 65536
		}

		ife sprite[searchwall].picnum 14 // instant respawn
		{
		printext256 490 580 20 31 0 65536
		printext256 491 580 30 31 0 65536
		printext256 492 580 40 31 0 65536
		}


		ife sprite[searchwall].picnum 9456 // MAKE_SWITCH
		{
		rotatesprite 290 30 32768 0 sprite[searchwall].zvel 0 0 0 0 0 xdim ydim
		printext256 150 580 20 31 0 65536
		printext256 41 580 30 143 0 65536
		printext256 151 580 40 31 0 65536
		printext256 152 580 50 31 0 65536
		printext256 153 580 60 31 0 65536
		printext256 154 580 70 4 0 65536
		}

		ife sprite[searchwall].picnum 12430 // MAKE_SWITCH
		{
		ife sprite[searchwall].pal 5 rotatesprite 290 60 8192 0 sprite[searchwall].lotag 0 0 0 0 0 xdim ydim
		}



		ife sprite[searchwall].picnum DOORTRANSPORT // DOOR TRANSPORT
		{
		printext256 160 580 20 31 0 65536
		printext256 161 580 30 31 0 65536
		printext256 162 580 40 31 0 65536
		printext256 163 580 50 31 0 65536
		printext256 164 580 60 31 0 65536
		printext256 165 580 70 31 0 65536
		printext256 166 580 80 74 0 65536
		printext256 167 580 90 143 0 65536
		printext256 168 580 100 31 0 65536
		printext256 601 580 110 16 0 65536
		printext256 602 580 120 31 0 65536
		printext256 603 580 130 143 0 65536
		printext256 604 580 140 238 0 65536
		printext256 169 580 150 31 0 65536
		}

		ife sprite[searchwall].picnum 11772 // TIME PORTAL
		{
		printext256 660 580 20 31 0 65536
		printext256 161 580 30 31 0 65536
		printext256 162 580 40 31 0 65536
		printext256 661 580 50 31 0 65536
		printext256 662 580 60 74 0 65536
		printext256 663 580 70 123 0 65536
		printext256 664 580 80 16 0 65536
		printext256 665 580 90 143 0 65536
		}

		ife sprite[searchwall].picnum 8038 // PADLOCK
		{
		printext256 170 580 20 31 0 65536
		printext256 171 580 30 143 0 65536
		printext256 172 580 40 143 0 65536
		printext256 173 580 50 143 0 65536
		ife sprite[searchwall].hitag 0 { setvar TEMP 15 rotatesprite 260 25 32767 0 GENERICKEY 0 0 0 0 0 xdim ydim } else setvar TEMP 7
		printext256 174 580 60 TEMP 0 65536
		ifvarand sprite[searchwall].hitag 1 { setvar TEMP 15 rotatesprite 260 25 32767 0 FLAMEKEY 0 0 0 0 0 xdim ydim } else setvar TEMP 7
		printext256 175 580 70 TEMP 0 65536
		ifvarand sprite[searchwall].hitag 2 { setvar TEMP 15 rotatesprite 260 25 32767 0 SPIDERKEY 0 0 0 0 0 xdim ydim } else setvar TEMP 7
		printext256 176 580 80 TEMP 0 65536
		ifvarand sprite[searchwall].hitag 4 { setvar TEMP 15 rotatesprite 260 25 32767 0 DAGGERKEY 0 0 0 0 0 xdim ydim } else setvar TEMP 7
		printext256 177 580 90 TEMP 0 65536
		ifvarand sprite[searchwall].hitag 8 { setvar TEMP 15 rotatesprite 260 25 32767 0 MOONKEY 0 0 0 0 0 xdim ydim } else setvar TEMP 7
		printext256 178 580 100 TEMP 0 65536
		ifvarand sprite[searchwall].hitag 16 { setvar TEMP 15 rotatesprite 260 25 32767 0 SKULLKEY 0 0 0 0 0 xdim ydim } else setvar TEMP 7
		printext256 179 580 110 TEMP 0 65536
		ifvarand sprite[searchwall].hitag 32 { setvar TEMP 15 rotatesprite 260 25 32767 0 EYEKEY 0 0 0 0 0 xdim ydim } else setvar TEMP 7
		printext256 180 580 120 TEMP 0 65536
		ifvarand sprite[searchwall].hitag 64 { setvar TEMP 15 rotatesprite 260 25 32767 0 NORMAL_KEY1 0 0 0 0 0 xdim ydim } else setvar TEMP 7
		printext256 181 580 120 TEMP 0 65536
		ifvarand sprite[searchwall].hitag 128 { setvar TEMP 15 rotatesprite 260 25 32767 0 NORMAL_KEY2 0 0 0 0 0 xdim ydim } else setvar TEMP 7
		printext256 182 580 120 TEMP 0 65536
		ifvarand sprite[searchwall].hitag 256 { setvar TEMP 15 rotatesprite 260 25 32767 0 NORMAL_KEY3 0 0 0 0 0 xdim ydim } else setvar TEMP 7
		printext256 183 580 120 TEMP 0 65536
		ifvarand sprite[searchwall].hitag 512 { setvar TEMP 15 rotatesprite 260 25 32767 0 NORMAL_KEY4 0 0 0 0 0 xdim ydim } else setvar TEMP 7
		printext256 184 580 120 TEMP 0 65536
		ifvarand sprite[searchwall].hitag 1024 { setvar TEMP 15 rotatesprite 260 25 32767 0 NORMAL_KEY5 0 0 0 0 0 xdim ydim } else setvar TEMP 7
		printext256 185 580 120 TEMP 0 65536
		}

		ife sprite[searchwall].picnum OLDLOCK // OLD LOCK
		{
		printext256 181 580 20 31 0 65536
		printext256 182 580 30 143 0 65536
		printext256 173 580 40 143 0 65536
		ife sprite[searchwall].hitag 0 { setvar TEMP 15 rotatesprite 260 25 32767 0 GENERICKEY 0 0 0 0 0 xdim ydim } else setvar TEMP 7
		printext256 174 580 50 TEMP 0 65536
		ifvarand sprite[searchwall].hitag 1 { setvar TEMP 15 rotatesprite 260 25 32767 0 FLAMEKEY 0 0 0 0 0 xdim ydim } else setvar TEMP 7
		printext256 175 580 60 TEMP 0 65536
		ifvarand sprite[searchwall].hitag 2 { setvar TEMP 15 rotatesprite 260 25 32767 0 SPIDERKEY 0 0 0 0 0 xdim ydim } else setvar TEMP 7
		printext256 176 580 70 TEMP 0 65536
		ifvarand sprite[searchwall].hitag 4 { setvar TEMP 15 rotatesprite 260 25 32767 0 DAGGERKEY 0 0 0 0 0 xdim ydim } else setvar TEMP 7
		printext256 177 580 80 TEMP 0 65536
		ifvarand sprite[searchwall].hitag 8 { setvar TEMP 15 rotatesprite 260 25 32767 0 MOONKEY 0 0 0 0 0 xdim ydim } else setvar TEMP 7
		printext256 178 580 90 TEMP 0 65536
		ifvarand sprite[searchwall].hitag 16 { setvar TEMP 15 rotatesprite 260 25 32767 0 SKULLKEY 0 0 0 0 0 xdim ydim } else setvar TEMP 7
		printext256 179 580 100 TEMP 0 65536
		ifvarand sprite[searchwall].hitag 32 { setvar TEMP 15 rotatesprite 260 25 32767 0 EYEKEY 0 0 0 0 0 xdim ydim } else setvar TEMP 7
		printext256 180 580 110 TEMP 0 65536
		ifvarand sprite[searchwall].hitag 64 { setvar TEMP 15 rotatesprite 260 25 32767 0 NORMAL_KEY1 0 0 0 0 0 xdim ydim } else setvar TEMP 7
		printext256 180 580 120 TEMP 0 65536
		ifvarand sprite[searchwall].hitag 128 { setvar TEMP 15 rotatesprite 260 25 32767 0 NORMAL_KEY2 0 0 0 0 0 xdim ydim } else setvar TEMP 7
		printext256 180 580 120 TEMP 0 65536
		ifvarand sprite[searchwall].hitag 256 { setvar TEMP 15 rotatesprite 260 25 32767 0 NORMAL_KEY3 0 0 0 0 0 xdim ydim } else setvar TEMP 7
		printext256 180 580 120 TEMP 0 65536
		ifvarand sprite[searchwall].hitag 512 { setvar TEMP 15 rotatesprite 260 25 32767 0 NORMAL_KEY4 0 0 0 0 0 xdim ydim } else setvar TEMP 7
		printext256 180 580 120 TEMP 0 65536
		ifvarand sprite[searchwall].hitag 1024 { setvar TEMP 15 rotatesprite 260 25 32767 0 NORMAL_KEY5 0 0 0 0 0 xdim ydim } else setvar TEMP 7
		printext256 180 580 120 TEMP 0 65536
		}

		ife sprite[searchwall].picnum 3654 // Mission
		{
		printext256 87 580 20 31 0 65536
		printext256 88 580 30 31 0 65536
		ife sprite[searchwall].lotag 0
			{
			printext256 89 580 40 31 0 65536
			printext256 90 580 50 31 0 65536
			printext256 91 580 60 143 0 65536
			printext256 92 580 70 143 0 65536
			printext256 93 580 80 143 0 65536
			printext256 94 580 90 143 0 65536
			printext256 95 580 100 143 0 65536
			printext256 96 580 110 143 0 65536
			printext256 97 580 120 143 0 65536
			printext256 98 580 130 143 0 65536
			printext256 99 580 140 143 0 65536
			printext256 100 580 150 31 0 65536
			}
		}

		ife sprite[searchwall].picnum 3655 // Particle spawner
		{
		printext256 270 580 20 31 0 65536

		ife sprite[searchwall].lotag 0 setvar TEMP2 271
		else ife sprite[searchwall].lotag 1 setvar TEMP2 272
		else ife sprite[searchwall].lotag 2 setvar TEMP2 273
		else ife sprite[searchwall].lotag 3 setvar TEMP2 274
		else ife sprite[searchwall].lotag 4 setvar TEMP2 275
		else ife sprite[searchwall].lotag 5 setvar TEMP2 276
		else ife sprite[searchwall].lotag 6 setvar TEMP2 291
		else ife sprite[searchwall].lotag 7 setvar TEMP2 292
		else ife sprite[searchwall].lotag 8 setvar TEMP2 293
		else ife sprite[searchwall].lotag 9 setvar TEMP2 290
		else ife sprite[searchwall].lotag 11 setvar TEMP2 294
		else setvar TEMP2 289
		printext256 TEMP2 580 30 254 0 65536

		ife sprite[searchwall].lotag 0 printext256 277 580 40 31 0 65536
		ife sprite[searchwall].lotag 2 printext256 277 580 40 31 0 65536
		ife sprite[searchwall].lotag 4 printext256 278 580 40 31 0 65536
		ife sprite[searchwall].lotag 5
			{
			printext256 277 580 40 31 0 65536
			printext256 279 580 50 248 0 65536
			printext256 280 580 60 248 0 65536

			ife sprite[searchwall].yvel 1 setvar TEMP 30 else setvar TEMP 16
			printext256 281 580 70 TEMP 0 65536
			ife sprite[searchwall].yvel 2 setvar TEMP 30 else setvar TEMP 16
			printext256 282 580 80 TEMP 0 65536
			ife sprite[searchwall].yvel 3 setvar TEMP 30 else setvar TEMP 16
			printext256 283 580 90 TEMP 0 65536
			ife sprite[searchwall].yvel 4 setvar TEMP 30 else setvar TEMP 16
			printext256 284 580 100 TEMP 0 65536
			ife sprite[searchwall].yvel 5 setvar TEMP 30 else setvar TEMP 16
			printext256 285 580 110 TEMP 0 65536

			}
		ife sprite[searchwall].lotag 11
			{
			printext256 277 580 40 31 0 65536
			printext256 279 580 50 248 0 65536
			printext256 280 580 60 248 0 65536

			ife sprite[searchwall].yvel 1 setvar TEMP 30 else setvar TEMP 16
			printext256 281 580 70 TEMP 0 65536
			ife sprite[searchwall].yvel 2 setvar TEMP 30 else setvar TEMP 16
			printext256 282 580 80 TEMP 0 65536
			ife sprite[searchwall].yvel 3 setvar TEMP 30 else setvar TEMP 16
			printext256 283 580 90 TEMP 0 65536
			ife sprite[searchwall].yvel 4 setvar TEMP 30 else setvar TEMP 16
			printext256 284 580 100 TEMP 0 65536
			ife sprite[searchwall].yvel 5 setvar TEMP 30 else setvar TEMP 16
			printext256 285 580 110 TEMP 0 65536

			}

		}

		ife sprite[searchwall].picnum 3831 // LOCATION
		{
		printext256 255 780 20 31 0 65536

		ifvarn sprite[searchwall].lotag 0 rotatesprite 300 50 16384 0 sprite[searchwall].lotag 0 0 0 0 0 xdim ydim
		ife sprite[searchwall].lotag 8448 redefinequote 256 Earth
		ife sprite[searchwall].lotag 8449 redefinequote 256 Moon
		ife sprite[searchwall].lotag 8450 redefinequote 256 Mars
		ife sprite[searchwall].lotag 8451 redefinequote 256 Ganymede
		ife sprite[searchwall].lotag 8452 redefinequote 256 Xuglop
		ife sprite[searchwall].lotag 8453 redefinequote 256 Ractonia
		ife sprite[searchwall].lotag 8454 redefinequote 256 X64-2
		ife sprite[searchwall].lotag 8455 redefinequote 256 Terra
		ife sprite[searchwall].lotag 8456 redefinequote 256 Aliran
		ife sprite[searchwall].lotag 8457 redefinequote 256 Venus
		ife sprite[searchwall].lotag 8458 redefinequote 256 Beta "Ravlon" 16
		ife sprite[searchwall].lotag 8459 redefinequote 256 Earth
		ife sprite[searchwall].lotag 8460 redefinequote 256 Jupiter
		ife sprite[searchwall].lotag 8461 redefinequote 256 Unknown
		ife sprite[searchwall].lotag 8462 redefinequote 256 Space Station
		ife sprite[searchwall].lotag 8463 redefinequote 256 Earth
		printext256 256 780 30 31 0 65536

		}

		ife sprite[searchwall].picnum 12379
		{
		printext256 13 780 20 31 0 65536
		redefinequote 256 Dragon
		printext256 256 780 30 31 0 65536
		}

		ife sprite[searchwall].picnum 12380
		{
		printext256 13 780 20 31 0 65536
		redefinequote 256 City of Radio
		printext256 256 780 30 31 0 65536
		}

		ife sprite[searchwall].picnum 12445
		{
		printext256 13 780 20 31 0 65536
		redefinequote 256 reside, fish
		printext256 256 780 30 31 0 65536
		}

		ife sprite[searchwall].picnum 12446
		{
		printext256 13 780 20 31 0 65536
		redefinequote 256 Danger, Raging, emperor, imperialism, dinosaur
		printext256 256 780 30 31 0 65536
		}

		ife sprite[searchwall].picnum 12447
		{
		printext256 13 780 20 31 0 65536
		redefinequote 256 reside, fish
		printext256 256 780 30 31 0 65536
		}

		ife sprite[searchwall].picnum 12449
		{
		printext256 13 780 20 31 0 65536
		redefinequote 256 Danger, soldier, lot, inside
		printext256 256 780 30 31 0 65536
		}

		ife sprite[searchwall].picnum 12450
		{
		printext256 13 780 20 31 0 65536
		redefinequote 256 Destroy, demolish, damage
		printext256 256 780 30 31 0 65536
		}

		ife sprite[searchwall].picnum 12454
		{
		printext256 13 780 20 31 0 65536
		redefinequote 256 Gold transporation street service
		printext256 256 780 30 31 0 65536
		}

		ife sprite[searchwall].picnum 12454
		{
		printext256 13 780 20 31 0 65536
		redefinequote 256 Gold transporation street service
		printext256 256 780 30 31 0 65536
		}

		ife sprite[searchwall].picnum 12455
		{
		printext256 13 780 20 31 0 65536
		redefinequote 256 Special day, pot of cooked vegetables
		printext256 256 780 30 31 0 65536
		}

		ife sprite[searchwall].picnum 12456
		{
		printext256 13 780 20 31 0 65536
		redefinequote 256 Car
		printext256 256 780 30 31 0 65536
		}

		ife sprite[searchwall].picnum 12457
		{
		printext256 13 780 20 31 0 65536
		redefinequote 256 Gold (name)
		printext256 256 780 30 31 0 65536
		}

		ife sprite[searchwall].picnum 12458
		{
		printext256 13 780 20 31 0 65536
		redefinequote 256 Drunk
		printext256 256 780 30 31 0 65536
		}

		ife sprite[searchwall].picnum 12459
		{
		printext256 13 780 20 31 0 65536
		redefinequote 256 Finally lucky two
		printext256 256 780 30 31 0 65536
		}

		ife sprite[searchwall].picnum 12462
		{
		printext256 13 780 20 31 0 65536
		redefinequote 256 Advert for a grindstone producer
		printext256 256 780 30 31 0 65536
		}

		ife sprite[searchwall].picnum 12477
		{
		printext256 13 780 20 31 0 65536
		redefinequote 256 Advert
		printext256 256 780 30 31 0 65536
		}

		ife sprite[searchwall].picnum 12478
		{
		printext256 13 780 20 31 0 65536
		redefinequote 256 Soap Factory
		printext256 256 780 30 31 0 65536
		}

		ife sprite[searchwall].picnum 12479
		{
		printext256 13 780 20 31 0 65536
		redefinequote 256 Law Court
		printext256 256 780 30 31 0 65536
		}

		ife sprite[searchwall].picnum 12480
		{
		printext256 13 780 20 31 0 65536
		redefinequote 256 Storm Wind
		printext256 256 780 30 31 0 65536
		}

		ife sprite[searchwall].picnum 12481
		{
		printext256 13 780 20 31 0 65536
		redefinequote 256 Rain
		printext256 256 780 30 31 0 65536
		}

		ife sprite[searchwall].picnum 16298
		{
		printext256 13 780 20 31 0 65536
		redefinequote 256 Ninja
		printext256 256 780 30 31 0 65536
		}

		ife sprite[searchwall].picnum 16376
		{
		printext256 13 780 20 31 0 65536
		redefinequote 256 Jewels and Gold store
		printext256 256 780 30 31 0 65536
		}

		ife sprite[searchwall].picnum 16377
		{
		printext256 13 780 20 31 0 65536
		redefinequote 256 Chow Sang Sang jeweler
		printext256 256 780 30 31 0 65536
		}

		ife sprite[searchwall].picnum 16378
		{
		printext256 13 780 20 31 0 65536
		redefinequote 256 Street Intersection
		printext256 256 780 30 31 0 65536
		}

		ife sprite[searchwall].picnum 16379
		{
		printext256 13 780 20 31 0 65536
		redefinequote 256 China large great mortage
		printext256 256 780 30 31 0 65536
		}

		ife sprite[searchwall].picnum 16951
		{
		printext256 13 780 20 31 0 65536
		redefinequote 256 Last of Samurai
		printext256 256 780 30 31 0 65536
		}

		ife sprite[searchwall].picnum 18119
		{
		printext256 13 780 20 31 0 65536
		redefinequote 256 Ocean Skydiving
		printext256 256 780 30 31 0 65536
		}

		ife sprite[searchwall].picnum 18133
		{
		printext256 13 780 20 31 0 65536
		redefinequote 256 Hell
		printext256 256 780 30 31 0 65536
		}

		ife sprite[searchwall].picnum 12031 state item_box_stuff

		ife sprite[searchwall].picnum 11249 state item_box_stuff

		ife sprite[searchwall].picnum 5664 state item_box_stuff

		// CUTSCENE TEXT
		ife sprite[searchwall].picnum 3664
		{
		printext256 440 580 20 31 0 65536
		printext256 441 580 30 31 0 65536
		printext256 442 580 40 31 0 65536
		printext256 443 580 50 31 0 65536
		printext256 444 580 60 31 0 65536
		printext256 445 580 70 31 0 65536
		printext256 446 580 80 31 0 65536

			ifhitkey KEY_SPACE
			ifeitherctrl
			ifn sprite[searchwall].extra -1
			{
			soundonce sprite[searchwall].extra
			}

		}

		// gas effect
		ife sprite[searchwall].picnum 7924
		{
		printext256 450 580 20 62 0 65536
		printext256 451 580 30 112 0 65536
		printext256 452 580 40 143 0 65536
		printext256 453 580 50 62 0 65536
		printext256 454 580 60 62 0 65536
		printext256 455 580 70 62 0 65536
		printext256 456 580 80 62 0 65536
		printext256 457 580 90 62 0 65536
		printext256 458 580 100 62 0 65536
		}

		// counter
		ife sprite[searchwall].picnum 17636
		{
		printext256 520 580 20 62 0 65536
		printext256 521 580 30 112 0 65536
		printext256 522 580 40 143 0 65536
		printext256 523 580 50 62 0 65536
		}


		// RANDOM SOUND EFFECTOR
		ife sprite[searchwall].picnum RANDOMSOUND
		{
		printext256 210 580 20 31 0 65536
		printext256 211 580 30 31 0 65536
		printext256 212 580 40 64 0 65536
		printext256 213 580 50 143 0 65536
		printext256 214 580 60 31 0 65536
		printext256 215 580 70 120 0 65536
		printext256 216 580 80 31 0 65536
		printext256 217 580 90 127 0 65536
		printext256 218 580 100 156 0 65536
		printext256 219 580 110 112 0 65536
		}

		ife sprite[searchwall].picnum LOCKED_DOOR
		{
		printext256 220 580 20 31 0 65536
		printext256 221 580 30 31 0 65536
		printext256 222 580 40 64 0 65536
		printext256 223 580 50 143 0 65536
		printext256 224 580 60 31 0 65536
		printext256 225 580 70 120 0 65536
		printext256 226 580 80 31 0 65536
		printext256 230 580 90 31 0 65536

		printext256 227 580 100 31 0 65536
		printext256 228 580 110 31 0 65536
		printext256 229 580 120 31 0 65536

			ifhitkey KEY_SPACE
			ifeitherctrl
			{
				ife sprite[searchwall].pal 0 soundonce 1063 else
				ife sprite[searchwall].pal 1 soundonce 1064 else
				ife sprite[searchwall].pal 2 soundonce 1065 else
				ife sprite[searchwall].pal 3 soundonce 1228 else
				ife sprite[searchwall].pal 4 soundonce 1783 else
				ife sprite[searchwall].pal 5 soundonce 1784 else
				ife sprite[searchwall].pal 6 soundonce 2735
			}

		}

		ife sprite[searchwall].picnum 13251
		{
		printext256 260 580 20 31 0 65536
		printext256 261 580 30 31 0 65536
		printext256 262 580 40 31 0 65536
		printext256 263 580 50 31 0 65536
		printext256 264 580 60 31 0 65536
		printext256 265 580 70 31 0 65536
		printext256 266 580 80 31 0 65536
		printext256 267 580 90 31 0 65536

		ifvarn sprite[searchwall].zvel 0 rotatesprite 280 30 25000 0 sprite[searchwall].zvel 0 sprite[searchwall].pal 0 0 0 xdim ydim
		}

		ife sprite[searchwall].picnum 10564
		{
		printext256 60 580 20 31 0 65536

		qsprintf 62 61 sprite[searchwall].lotag
		printext256 62 580 30 31 0 65536

		qsprintf 62 63 sprite[searchwall].hitag
		printext256 62 580 40 250 0 65536

		qsprintf 62 64 sprite[searchwall].yvel
		printext256 62 580 50 247 0 65536

		ife sprite[searchwall].xvel 1 printext256 66 580 60 244 0 65536


		ife sprite[searchwall].pal 3 printext256 65 580 70 31 0 65536
		ifvarn sprite[searchwall].extra 0 rotatesprite 280 30 25000 0 sprite[searchwall].extra 0 sprite[searchwall].pal 0 0 0 xdim ydim
		}

		ife sprite[searchwall].picnum RESPAWN
		{
		printext256 50 580 20 31 0 65536

		ifvarn sprite[searchwall].hitag 0 rotatesprite 250 30 25000 0 sprite[searchwall].hitag 0 sprite[searchwall].pal 0 0 0 xdim ydim
			ife sprite[searchwall].hitag 1404 // If the player is respawning the fake player sprite
				{
				printext256 198 580 20 31 0 65536
				printext256 134 580 30 31 0 65536
				printext256 135 580 40 64 0 65536
				printext256 136 580 50 143 0 65536
				printext256 137 580 60 31 0 65536
				printext256 138 580 70 120 0 65536
				printext256 139 580 80 31 0 65536
				printext256 141 580 90 31 0 65536
				printext256 142 580 100 31 0 65536
				printext256 197 580 110 31 0 65536

				ife sprite[searchwall].extra 0 rotatesprite 290 30 32767 0 5245 0 0 0 0 0 xdim ydim // James
				ife sprite[searchwall].extra 1 rotatesprite 290 30 32767 0 5501 0 0 0 0 0 xdim ydim // Zaxtor
				ife sprite[searchwall].extra 2 rotatesprite 290 30 32767 0 6400 0 21 0 0 0 xdim ydim // Merlijn
				ife sprite[searchwall].extra 3 rotatesprite 290 30 32767 0 6013 0 11 0 0 0 xdim ydim // Highwire
				ife sprite[searchwall].extra 4 rotatesprite 290 30 32767 0 6336 0 21 0 0 0 xdim ydim // Sang
				ife sprite[searchwall].extra 5 rotatesprite 290 30 28767 0 6656 0 12 0 0 0 xdim ydim // Rusty
				ife sprite[searchwall].extra 6 rotatesprite 290 30 32767 0 6429 0 21 0 0 0 xdim ydim // Geoffrey
				ife sprite[searchwall].extra 7 rotatesprite 290 30 32767 0 6912 0 11 0 0 0 xdim ydim // Mikko
				ife sprite[searchwall].extra 13 rotatesprite 290 30 22767 0 16384 0 0 0 0 0 xdim ydim // Micky
			}
		}

		ife sprite[searchwall].picnum 1404 // player dummy
		{
		printext256 198 10 20 31 0 65536

		printext256 134 10 30 31 0 65536
		printext256 135 10 40 182 0 65536
		printext256 136 10 50 143 0 65536
		printext256 137 10 60 111 0 65536
		printext256 138 10 70 143 0 65536
		printext256 139 10 80 31 0 65536
		printext256 141 10 90 143 0 65536
		printext256 142 10 100 112 0 65536
		printext256 1142 10 110 64 0 65536
		printext256 1143 10 120 239 0 65536
		printext256 197 10 130 31 0 65536

		printext256 560 10 150 31 0 65536
		printext256 561 10 160 31 0 65536
		printext256 562 10 170 31 0 65536
		printext256 563 10 180 31 0 65536
		printext256 564 10 190 31 0 65536

		ife sprite[searchwall].extra 0 rotatesprite 290 30 32767 0 5245 0 0 0 0 0 xdim ydim // James
		ife sprite[searchwall].extra 1 rotatesprite 290 30 32767 0 5501 0 0 0 0 0 xdim ydim // Zaxtor
		ife sprite[searchwall].extra 2 rotatesprite 290 30 32767 0 6400 0 21 0 0 0 xdim ydim // Merlijn
		ife sprite[searchwall].extra 3 rotatesprite 290 30 32767 0 6013 0 11 0 0 0 xdim ydim // Highwire
		ife sprite[searchwall].extra 4 rotatesprite 290 30 32767 0 6336 0 21 0 0 0 xdim ydim // Sang
		ife sprite[searchwall].extra 5 rotatesprite 290 30 28767 0 6656 0 12 0 0 0 xdim ydim // Rusty
		ife sprite[searchwall].extra 6 rotatesprite 290 30 32767 0 6429 0 21 0 0 0 xdim ydim // Geoffrey
		ife sprite[searchwall].extra 7 rotatesprite 290 30 32767 0 6912 0 11 0 0 0 xdim ydim // Mikko
		ife sprite[searchwall].extra 13 rotatesprite 290 30 22767 0 16384 0 0 0 0 0 xdim ydim // Micky
		ife sprite[searchwall].extra 14 rotatesprite 290 30 22767 0 20736 0 0 0 0 0 xdim ydim // Snowfall
		}

		ife sprite[searchwall].picnum 3712 // character spawn point
		{
		printext256 119 580 20 31 0 65536
		printext256 121 580 30 31 0 65536
		printext256 122 580 40 64 0 65536
		printext256 123 580 50 143 0 65536
		printext256 124 580 60 31 0 65536
		printext256 125 580 70 120 0 65536
		printext256 126 580 80 31 0 65536
		printext256 127 580 90 31 0 65536
		printext256 128 580 100 31 0 65536

		ife sprite[searchwall].pal 0 rotatesprite 290 90 32767 0 5245 0 0 0 0 0 xdim ydim // James
		ife sprite[searchwall].pal 1 rotatesprite 290 90 32767 0 5501 0 0 0 0 0 xdim ydim // Zaxtor
		ife sprite[searchwall].pal 2 rotatesprite 290 90 32767 0 6400 0 23 0 0 0 xdim ydim // Merlijn
		ife sprite[searchwall].pal 3 rotatesprite 290 90 32767 0 6013 0 11 0 0 0 xdim ydim // Highwire
		ife sprite[searchwall].pal 4 rotatesprite 290 90 32767 0 6336 0 21 0 0 0 xdim ydim // Sang
		ife sprite[searchwall].pal 5 rotatesprite 290 90 28767 0 6656 0 12 0 0 0 xdim ydim // Rusty
		ife sprite[searchwall].pal 6 rotatesprite 290 90 32767 0 6429 0 21 0 0 0 xdim ydim // Geoffrey
		ife sprite[searchwall].pal 7 rotatesprite 290 90 32767 0 6912 0 11 0 0 0 xdim ydim // Mikko
		ife sprite[searchwall].pal 13 rotatesprite 290 90 22767 0 16384 0 0 0 0 0 xdim ydim // Micky
		}


		ife sprite[searchwall].picnum 3805 // Force player
		{
		printext256 120 580 20 31 0 65536

		printext256 121 580 30 31 0 65536
		printext256 122 580 40 182 0 65536
		printext256 123 580 50 143 0 65536
		printext256 124 580 60 111 0 65536
		printext256 125 580 70 143 0 65536
		printext256 126 580 80 31 0 65536
		printext256 127 580 90 143 0 65536
		printext256 128 580 100 112 0 65536
		printext256 129 580 110 31 0 65536
		printext256 130 580 120 47 0 65536
		printext256 131 580 130 159 0 65536
		printext256 132 580 140 64 0 65536
		printext256 133 580 150 79 0 65536
		printext256 1133 580 160 64 0 65536
		printext256 1134 580 170 239 0 65536

		printext256 320 580 180 31 0 65536
		printext256 430 580 190 31 0 65536



		ife sprite[searchwall].pal 0 rotatesprite 290 90 32767 0 5245 0 0 0 0 0 xdim ydim // James
		ife sprite[searchwall].pal 1 rotatesprite 290 90 32767 0 5501 0 0 0 0 0 xdim ydim // Zaxtor
		ife sprite[searchwall].pal 2 rotatesprite 290 90 32767 0 6400 0 23 0 0 0 xdim ydim // Merlijn
		ife sprite[searchwall].pal 3 rotatesprite 290 90 32767 0 6013 0 11 0 0 0 xdim ydim // Highwire
		ife sprite[searchwall].pal 4 rotatesprite 290 90 32767 0 6336 0 21 0 0 0 xdim ydim // Sang
		ife sprite[searchwall].pal 5 rotatesprite 290 90 28767 0 6656 0 12 0 0 0 xdim ydim // Rusty
		ife sprite[searchwall].pal 6 rotatesprite 290 90 32767 0 6429 0 21 0 0 0 xdim ydim // Geoffrey
		ife sprite[searchwall].pal 7 rotatesprite 290 90 32767 0 6912 0 11 0 0 0 xdim ydim // Mikko
		ife sprite[searchwall].pal 9 rotatesprite 290 90 28767 0 CULTIST 0 0 0 0 0 xdim ydim // Cultist
		ife sprite[searchwall].pal 10 rotatesprite 290 90 32767 0 10365 0 0 0 0 0 xdim ydim // Bombshell
		ife sprite[searchwall].pal 11 rotatesprite 290 90 32767 0 11956 0 0 0 0 0 xdim ydim // Maarten
		ife sprite[searchwall].pal 12 rotatesprite 290 90 32767 0 12801 0 12 0 0 0 xdim ydim // Jane
		ife sprite[searchwall].pal 13 rotatesprite 290 90 22767 0 16384 0 0 0 0 0 xdim ydim // Micky
		ife sprite[searchwall].pal 14 rotatesprite 290 90 22767 0 20736 0 0 0 0 0 xdim ydim // Snowfall
		}

		ife sprite[searchwall].picnum 3649 // Trigger only if char
		{
		printext256 140 580 20 31 0 65536
		printext256 121 580 30 31 0 65536
		printext256 122 580 40 64 0 65536
		printext256 123 580 50 143 0 65536
		printext256 124 580 60 31 0 65536
		printext256 125 580 70 120 0 65536
		printext256 126 580 80 31 0 65536
		printext256 127 580 90 31 0 65536
		printext256 128 580 100 31 0 65536
		printext256 130 580 110 31 0 65536
		printext256 131 580 120 31 0 65536
		printext256 132 580 130 31 0 65536
		printext256 133 580 140 31 0 65536
		printext256 323 580 150 31 0 65536
		printext256 360 580 160 31 0 65536
		printext256 361 580 170 31 0 65536

		ife sprite[searchwall].pal 0 rotatesprite 290 90 32767 0 5245 0 0 0 0 0 xdim ydim // James
		ife sprite[searchwall].pal 1 rotatesprite 290 90 32767 0 5501 0 0 0 0 0 xdim ydim // Zaxtor
		ife sprite[searchwall].pal 2 rotatesprite 290 90 32767 0 6400 0 23 0 0 0 xdim ydim // Merlijn
		ife sprite[searchwall].pal 3 rotatesprite 290 90 32767 0 6013 0 11 0 0 0 xdim ydim // Highwire
		ife sprite[searchwall].pal 4 rotatesprite 290 90 32767 0 6336 0 21 0 0 0 xdim ydim // Sang
		ife sprite[searchwall].pal 5 rotatesprite 290 90 28767 0 6656 0 12 0 0 0 xdim ydim // Rusty
		ife sprite[searchwall].pal 6 rotatesprite 290 90 32767 0 6429 0 21 0 0 0 xdim ydim // Geoffrey
		ife sprite[searchwall].pal 7 rotatesprite 290 90 32767 0 6912 0 11 0 0 0 xdim ydim // Mikko
		ife sprite[searchwall].pal 9 rotatesprite 290 90 28767 0 CULTIST 0 0 0 0 0 xdim ydim // Cultist
		ife sprite[searchwall].pal 10 rotatesprite 290 90 32767 0 9936 0 0 0 0 0 xdim ydim // Bombshell
		ife sprite[searchwall].pal 11 rotatesprite 290 90 32767 0 11956 0 0 0 0 0 xdim ydim // Maarten
		ife sprite[searchwall].pal 12 rotatesprite 290 90 32767 0 12801 0 12 0 0 0 xdim ydim // Jane
		ife sprite[searchwall].pal 13 rotatesprite 290 90 22767 0 16384 0 0 0 0 0 xdim ydim // Micky
		}


		ife sprite[searchwall].picnum CUTSCENECAM
		{
		printext256 199 580 20 31 0 65536
		ife sprite[searchwall].pal 0 redefinequote 500 Pal 0 = No Transition
		else ife sprite[searchwall].pal 3 redefinequote 500 Pal 3 = Fade in Black, Fade out Black
		else ife sprite[searchwall].pal 5 redefinequote 500 Pal 5 = Fade in black, fade out white
		else ife sprite[searchwall].pal 6 redefinequote 500 Pal 6 = Fade in white, fade out black
		else ife sprite[searchwall].pal 9 redefinequote 500 Pal 9 = Fade in white, fade out white
		else ife sprite[searchwall].pal 10 redefinequote 500 Pal 10 = Fade out black
		else ife sprite[searchwall].pal 11 redefinequote 500 Pal 11 = Fade out White
		else ife sprite[searchwall].pal 12 redefinequote 500 Pal 12 = AMC transition effect
		else ife sprite[searchwall].pal 13 redefinequote 500 Pal 13 = Fade out black
		else ife sprite[searchwall].pal 14 redefinequote 500 Pal 14 = Fade in white
		else ife sprite[searchwall].pal 20 redefinequote 500 Pal 20 = Fade in black
		else ife sprite[searchwall].pal 21 redefinequote 500 Pal 21 = Clear last fade, fade out black
		else ife sprite[searchwall].pal 22 redefinequote 500 Pal 22 = Clear last fade, fade out white
		else ife sprite[searchwall].pal 40 redefinequote 500 Pal 40 = fade to black and loading transition
		else ife sprite[searchwall].pal 41 redefinequote 500 Pal 41 = fade to white and loading transition
		printext256 500 580 30 31 0 65536
		ife sprite[searchwall].yvel 0 redefinequote 501 YVEL 0 = Normal type
		else ife sprite[searchwall].yvel 1 redefinequote 501 YVEL 1 = Cinematic bars
		else ife sprite[searchwall].yvel 2 redefinequote 501 YVEL 2 = lock player, Cinematic bars
		else ife sprite[searchwall].yvel 3 redefinequote 501 YVEL 3 = lock player, Cinematic bars, clear text
		else ife sprite[searchwall].yvel 4 redefinequote 501 YVEL 4 = AMC ship's cockpit
		printext256 501 580 40 31 0 65536
		setvar TEMP 50
		ife sprite[searchwall].zvel 0 printext256 101 580 TEMP 31 0 65536
		else
			{
			setvarvar tmp sprite[searchwall].zvel
			ifvarand tmp 1 { printext256 102 580 TEMP 31 0 65536 }
			ifvarand tmp 2 { addvar TEMP 10 printext256 103 580 TEMP 31 0 65536 }
			ifvarand tmp 4 { addvar TEMP 10 printext256 104 580 TEMP 31 0 65536 }
			ifvarand tmp 8 { addvar TEMP 10 printext256 105 580 TEMP 31 0 65536 }
			ifvarand tmp 16 { addvar TEMP 10 printext256 106 580 TEMP 31 0 65536 }
			ifvarand tmp 32 { addvar TEMP 10 printext256 107 580 TEMP 31 0 65536 }
			ifvarand tmp 64 { addvar TEMP 10 printext256 108 580 TEMP 31 0 65536 }
			ifvarand tmp 128 { addvar TEMP 10 printext256 109 580 TEMP 31 0 65536 }
			ifvarand tmp 256 { addvar TEMP 10 printext256 110 580 TEMP 31 0 65536 }
			ifvarand tmp 512 { addvar TEMP 10 printext256 111 580 TEMP 31 0 65536 }
			ifvarand tmp 1024 { addvar TEMP 10 printext256 112 580 TEMP 31 0 65536 }
			ifvarand tmp 2048 { addvar TEMP 10 printext256 113 580 TEMP 31 0 65536 }
			ifvarand tmp 4096 { addvar TEMP 10 printext256 114 580 TEMP 31 0 65536 }
			}
		ife sprite[searchwall].owner -1 redefinequote 502 OWNER -1 = Normal type
		else ife sprite[searchwall].owner 0 redefinequote 502 OWNER 0 = Normal type
		else ife sprite[searchwall].owner 1 redefinequote 502 OWNER 1 = Water/Blue
		else ife sprite[searchwall].owner 2 redefinequote 502 OWNER 2 = Nightvision/Green
		else ife sprite[searchwall].owner 3 redefinequote 502 OWNER 3 = Flashback/Slomo
		else ife sprite[searchwall].owner 4 redefinequote 502 OWNER 4 = Greyscale
		else ife sprite[searchwall].owner 5 redefinequote 502 OWNER 5 = Heat/Red
		addvar TEMP 10
		printext256 502 580 TEMP 31 0 65536
		ifvarand tmp 4096
			{
			setvarvar TEMP2 sprite[searchwall].shade
			ifvarg TEMP2 116 mulvar TEMP2 10
			else ifvarg TEMP2 96 mulvar TEMP2 5
			else ifvarg TEMP2 64 mulvar TEMP2 4
			else ifvarg TEMP2 32 mulvar TEMP2 3
			else ifvarg TEMP2 16 mulvar TEMP2 2
			ifvarl TEMP2 -116 mulvar TEMP2 10
			else ifvarl TEMP2 -96 mulvar TEMP2 5
			else ifvarl TEMP2 -64 mulvar TEMP2 4
			else ifvarl TEMP2 -32 mulvar TEMP2 3
			else ifvarl TEMP2 -16 mulvar TEMP2 2
			qsprintf 116 115 TEMP2
			addvar TEMP 10 printext256 116 580 TEMP 31 0 65536
			}

		ifhitkey KEY_SPACE
		ifeitherctrl
			{
			set posx sprite[searchwall].x
			set posy sprite[searchwall].y
			set posz sprite[searchwall].z
			set ang sprite[searchwall].ang
			set horiz sprite[searchwall].extra
			}

		}

		ife sprite[searchwall].picnum 3811
		{
		printext256 199 580 20 31 0 65536
		ife sprite[searchwall].pal 0 redefinequote 500 Pal 0 = No Transition
		else ife sprite[searchwall].pal 3 redefinequote 500 Pal 3 = Fade in Black, Fade out Black
		else ife sprite[searchwall].pal 5 redefinequote 500 Pal 5 = Fade in black, fade out white
		else ife sprite[searchwall].pal 6 redefinequote 500 Pal 6 = Fade in white, fade out black
		else ife sprite[searchwall].pal 9 redefinequote 500 Pal 9 = Fade in white, fade out white
		else ife sprite[searchwall].pal 10 redefinequote 500 Pal 10 = Fade out black
		else ife sprite[searchwall].pal 11 redefinequote 500 Pal 11 = Fade out White
		else ife sprite[searchwall].pal 12 redefinequote 500 Pal 12 = AMC transition effect
		else ife sprite[searchwall].pal 13 redefinequote 500 Pal 13 = Fade out black
		else ife sprite[searchwall].pal 14 redefinequote 500 Pal 14 = Fade in white
		else ife sprite[searchwall].pal 20 redefinequote 500 Pal 20 = Fade in black
		else ife sprite[searchwall].pal 21 redefinequote 500 Pal 21 = Clear last fade, fade out black
		else ife sprite[searchwall].pal 22 redefinequote 500 Pal 22 = Clear last fade, fade out white
		printext256 500 580 30 31 0 65536
		ife sprite[searchwall].yvel 0 redefinequote 501 YVEL 0 = Normal type
		else ife sprite[searchwall].yvel 1 redefinequote 501 YVEL 1 = Cinematic bars
		else ife sprite[searchwall].yvel 2 redefinequote 501 YVEL 2 = lock player, Cinematic bars
		else ife sprite[searchwall].yvel 3 redefinequote 501 YVEL 3 = lock player, Cinematic bars, clear text
		else ife sprite[searchwall].yvel 4 redefinequote 501 YVEL 4 = AMC ship's cockpit
		printext256 501 580 40 31 0 65536
		setvar TEMP 50
		ife sprite[searchwall].zvel 0 printext256 101 580 TEMP 31 0 65536
		else
			{
			setvarvar tmp sprite[searchwall].zvel
			ifvarand tmp 1 { printext256 102 580 TEMP 31 0 65536 }
			ifvarand tmp 2 { addvar TEMP 10 printext256 103 580 TEMP 31 0 65536 }
			ifvarand tmp 4 { addvar TEMP 10 printext256 104 580 TEMP 31 0 65536 }
			ifvarand tmp 8 { addvar TEMP 10 printext256 105 580 TEMP 31 0 65536 }
			ifvarand tmp 16 { addvar TEMP 10 printext256 106 580 TEMP 31 0 65536 }
			ifvarand tmp 32 { addvar TEMP 10 printext256 107 580 TEMP 31 0 65536 }
			ifvarand tmp 64 { addvar TEMP 10 printext256 108 580 TEMP 31 0 65536 }
			ifvarand tmp 128 { addvar TEMP 10 printext256 109 580 TEMP 31 0 65536 }
			ifvarand tmp 256 { addvar TEMP 10 printext256 110 580 TEMP 31 0 65536 }
			ifvarand tmp 512 { addvar TEMP 10 printext256 111 580 TEMP 31 0 65536 }
			ifvarand tmp 1024 { addvar TEMP 10 printext256 112 580 TEMP 31 0 65536 }
			ifvarand tmp 2048 { addvar TEMP 10 printext256 113 580 TEMP 31 0 65536 }
			ifvarand tmp 4096 { addvar TEMP 10 printext256 114 580 TEMP 31 0 65536 }
			}
		ife sprite[searchwall].owner -1 redefinequote 502 OWNER -1 = Normal type
		else ife sprite[searchwall].owner 0 redefinequote 502 OWNER 0 = Normal type
		else ife sprite[searchwall].owner 1 redefinequote 502 OWNER 1 = Water/Blue
		else ife sprite[searchwall].owner 2 redefinequote 502 OWNER 2 = Nightvision/Green
		else ife sprite[searchwall].owner 3 redefinequote 502 OWNER 3 = Flashback/Slomo
		else ife sprite[searchwall].owner 4 redefinequote 502 OWNER 4 = Greyscale
		else ife sprite[searchwall].owner 5 redefinequote 502 OWNER 5 = Heat/Red
		addvar TEMP 10
		printext256 502 580 TEMP 31 0 65536
		ifvarand tmp 4096
			{
			setvarvar TEMP2 sprite[searchwall].shade
			ifvarg TEMP2 116 mulvar TEMP2 10
			else ifvarg TEMP2 96 mulvar TEMP2 5
			else ifvarg TEMP2 64 mulvar TEMP2 4
			else ifvarg TEMP2 32 mulvar TEMP2 3
			else ifvarg TEMP2 16 mulvar TEMP2 2
			ifvarl TEMP2 -116 mulvar TEMP2 10
			else ifvarl TEMP2 -96 mulvar TEMP2 5
			else ifvarl TEMP2 -64 mulvar TEMP2 4
			else ifvarl TEMP2 -32 mulvar TEMP2 3
			else ifvarl TEMP2 -16 mulvar TEMP2 2
			qsprintf 116 115 TEMP2
			addvar TEMP 10 printext256 116 580 TEMP 31 0 65536
			}

		ifhitkey KEY_SPACE
		ifeitherctrl
			{
			set posx sprite[searchwall].x
			set posy sprite[searchwall].y
			set posz sprite[searchwall].z
			set ang sprite[searchwall].ang
			set horiz sprite[searchwall].extra
			}

		}

		ife sprite[searchwall].picnum LADDER
		{
		redefinequote 500 LADDER
		printext256 500 580 20 31 0 65536
		ife sprite[searchwall].xvel 1 redefinequote 500 Allow sliding = Yes
		else redefinequote 500 Allow sliding = No
		printext256 500 580 30 254 0 65536
		redefinequote 500 Place one sprite at top and bottom of climbable location,
		printext256 500 580 40 248 0 65536
		redefinequote 500 and give both the same hitag. Give an XVEL of 1 to allow
		printext256 500 580 50 248 0 65536
		redefinequote 500 sliding down. Give a spritepal of 3 to allow climbing from
		printext256 500 580 60 248 0 65536
		redefinequote 500 all directions. Give a YVEL equal to an activator's tag to
		printext256 500 580 70 248 0 65536
		redefinequote 500 make it unlockable.
		printext256 500 580 80 248 0 65536
		redefinequote 500 LADDER SOUND
		printext256 500 580 100 31 0 65536
		redefinequote 500 Lotag 903 = Metal Ladder 1
		printext256 500 580 110 31 0 65536
		redefinequote 500 Lotag 904 = Metal Ladder 2
		printext256 500 580 120 31 0 65536
		redefinequote 500 Lotag 906 = Rope Ladder
		printext256 500 580 130 31 0 65536
		redefinequote 500 Lotag 408 = Wood Ladder
		printext256 500 580 140 31 0 65536
		redefinequote 500 Lotag 2617 = Rock climb
		printext256 500 580 150 31 0 65536
		redefinequote 500 Spritepal 3 = climbable from all angles
		printext256 500 580 170 31 0 65536
		redefinequote 500 Give a ZVEL to both parts if you want it to be
		printext256 500 580 180 31 0 65536
		redefinequote 500 usable only when the player uses the rope item (no 17916)
		printext256 500 580 190 31 0 65536
		redefinequote 500 Give sprite 18481 same hitag as this ZVEL to make it appear
		printext256 500 580 200 31 0 65536
		}

		ife sprite[searchwall].picnum 3592
		{
		redefinequote 500 Time Delay
		printext256 500 580 20 31 0 65536
		redefinequote 500 When activated, will wait an amount of time and then trigger another tag
		printext256 500 580 30 31 0 65536
		redefinequote 500 Hitag - tag to be triggered by
		printext256 500 580 40 31 0 65536
		redefinequote 500 Extra - time to wait (30 = 1 second)
		printext256 500 580 50 31 0 65536
		redefinequote 500 Lotag - tag to activate when time is up
		printext256 500 580 60 31 0 65536
		redefinequote 500 Give a spritepal of 3 to print it's timer to console for testing purposes
		printext256 500 580 70 31 0 65536
		}

	}




    // teleporter

    ife searchstat 3
	ifeitherctrl
    ifhitkey KEY_SPACE
    {
		ife sprite[searchwall].picnum 9
		{
		setvar TEMP 0
			whilevarn TEMP MAXSPRITES
				{
				ifvare sprite[TEMP].hitag 14848
				 ife sprite[TEMP].picnum 9
					{
					set sprite[TEMP].hitag 19969
					set sprite[TEMP].pal 3
					}
				ifvare sprite[TEMP].hitag 14849
				 ife sprite[TEMP].picnum 9
					{
					set sprite[TEMP].hitag 19970
					set sprite[TEMP].pal 3
					}
				addvar TEMP 1
				}
		}
		ife sprite[searchwall].picnum 14848
		{
		setvar TEMP 0
			whilevarn TEMP MAXSPRITES
				{
				ifvare sprite[TEMP].picnum 14848
					{
					set sprite[TEMP].picnum 19969
					set sprite[TEMP].pal 3
					}
				addvar TEMP 1
				}
		}
		ife sprite[searchwall].picnum 14849
		{
		setvar TEMP 0
			whilevarn TEMP MAXSPRITES
				{
				ifvare sprite[TEMP].picnum 14849
					{
					set sprite[TEMP].picnum 19970
					set sprite[TEMP].pal 3
					}
				addvar TEMP 1
				}
		}


        ife sprite[searchwall].picnum DOORTRANSPORT
		{
		ife sprite[searchwall].lotag 0 { quote 10 return }
			for i allsprites
			{
				ifn i searchwall, ifactor DOORTRANSPORTEXIT, ife sprite[i].hitag sprite[searchwall].lotag
				{
					set posx sprite[i].x
					set posy sprite[i].y
					set posz sprite[i].z
					set ang sprite[i].ang

					soundonce sprite[searchwall].xvel

					updatecursectnum

					return
				}
			}
		}

        ife sprite[searchwall].picnum TIME_PORTAL
		{
		ife sprite[searchwall].lotag 0 { quote 10 return }
			for i allsprites
			{
				ifn i searchwall, ifactor DOORTRANSPORTEXIT, ife sprite[i].hitag sprite[searchwall].lotag
				{
					set posx sprite[i].x
					set posy sprite[i].y
					set posz sprite[i].z
					set ang sprite[i].ang

					updatecursectnum

					return
				}
			}
		}

        ife sprite[searchwall].picnum VR_BOOTH
		{
		ife sprite[searchwall].lotag 0 { quote 10 return }
			for i allsprites
			{
				ifn i searchwall, ifactor DOORTRANSPORTEXIT, ife sprite[i].hitag sprite[searchwall].lotag
				{
					set posx sprite[i].x
					set posy sprite[i].y
					set posz sprite[i].z
					set ang sprite[i].ang

					updatecursectnum

					return
				}
			}
		}

        ife sprite[searchwall].picnum DOORTRANSPORTEXIT
		{
		ife sprite[searchwall].hitag 0 { quote 12 return }
			for i allsprites
			{
				ifn i searchwall, ifactor DOORTRANSPORT, ife sprite[i].lotag sprite[searchwall].hitag
				{
					set posx sprite[i].x
					set posy sprite[i].y
					set posz sprite[i].z
					set ang sprite[i].ang

					updatecursectnum

					return
				}
			}
		}

        ife sprite[searchwall].picnum SECTOREFFECTOR
		{
        set tmp 0
        ife sprite[searchwall].lotag 7 set tmp 1
        ife sprite[searchwall].lotag 17 set tmp 1
        ife tmp 0 return


        for i allsprites
			{
				ifn i searchwall, ifactor SECTOREFFECTOR
					{
					ife sprite[i].lotag sprite[searchwall].lotag
						{
						ife sprite[i].hitag sprite[searchwall].hitag
							{
								add posx sprite[i].x, sub posx sprite[searchwall].x
								add posy sprite[i].y, sub posy sprite[searchwall].y
								add posz sprite[i].z, sub posz sprite[searchwall].z

								updatecursectnum

								return
							}
						}
					else
					ife sprite[i].lotag 23
						{
						ife sprite[i].hitag sprite[searchwall].hitag
							{
								add posx sprite[i].x, sub posx sprite[searchwall].x
								add posy sprite[i].y, sub posy sprite[searchwall].y
								add posz sprite[i].z, sub posz sprite[searchwall].z

								updatecursectnum

								return
							}
						}
					}
			}
		}


    }

endevent

// LOCATORS auto-incrementer
onevent EVENT_INSERTSPRITE2D
globalsound 2401
    set k I
    set j -1
    for i spritesofsector .sectnum
    {
        ifn i k, ifactor LOCATORS, ifg .lotag j
            set j .lotag
    }
    ifg j -1
    {
        add j 1
        set .lotag j
    }
endevent

onevent EVENT_INSERTSPRITE3D
globalsound 2401
endevent