TARDIS-landing-bay.txt

@name SIDRAT landing bay (IntuitiveNZ)
@inputs RECALL RETURN FINDBAYS
@persist [Explodable1 Explodable2 Explodable3 Explodable4]:entity TardisMass ParadoxRandom ParadoxTimer Tardises:array GPSes:array TardisCount:number GPSCount:number LandingBayRange:number E2POS1:vector E2POS2:vector LandingBayMaterial:string LandingBayShield:string LandingBayColor:vector LandingBayGPS:string Pyraorbit1 Pyraorbit2 Pyraorbit3 T Cring Cring2 Timer SEQ1 Nearby:vector TargetTARDIS:entity

runOnChat(1)
interval(100)


if(first()){

# TURN UP THE WIREMOD LIMITS SO THE E2 WON'T GET SHUT DOWN

concmd("sv_cheats 1")
concmd("wire_holograms_modelany 1")
concmd("wire_holograms_spawn_amount 30")
concmd("wire_holograms_burst_amount 30")
concmd("wire_holograms_burst_delay 0")
concmd("wire_holograms_max 128")
concmd("wire_holograms_size_max 2048")
concmd("wire_expression2_print_max 1000")
concmd("wire_expression2_unlimited 1")
concmd("wire_expression2_quotatick 500000")
concmd("wire_expression2_quotasoft 500000")

# CUSTOMISE THESE OPTIONS 
    LandingBayRange = 1024
    LandingBayMaterial = "models/props_combine/cit_beacon"
    LandingBayShield = "models/alyx/emptool_glow"
    LandingBayColor = vec(255,255,255) # vec(randint(50,255),randint(50,255),randint(50,255))
    LandingBayGPS = "models/Magnusson_Teleporter/magnusson_teleporter_fxglow1"

# ORANGE (255, 93, 0)
# PURPLE (255,70,255)

    # propSpawn("models/maxofs2d/hover_rings.mdl", entity():pos() + vec(0,0,120), ang(0,0,0), 1)
    # propSpawn("models/doctorwho1200/hellbent/console.mdl", entity():pos(), entity():angles(), 0)

    soundPlay(1, 10, "ambient/levels/labs/teleport_mechanism_windup3.wav")

    SEQ1 = 0
    #E2 = entity():pos() + vec(0,0,8)  #original Z axis offset 45
    E2POS = entity():pos()
    E2POS1 = entity():toWorld(vec(0,0,8))


	# CENTRAL SPHERE
    holoCreate(98)
    holoParent(98, entity())
    holoPos(98, E2POS1 + vec(0,0,200))  #holoPos(98, E2POS1 + vec(0,0,450))
    #holoMaterial(98, "debug/env_cubemap_model")
    holoModel(98, "icosphere")
    #holoColor(98, vec(255,0,255)) # GREEN vec(0,255,0)
    #holoColor(98, vec(255,70,255))
    holoScale(98, vec(5,5,5))  # 190
    holoRenderFX(98, 0)
	holoShadow(98, 1)

 # PYRAMID
    #holoCreate(97)
    #holoParent(97, entity())
    #holoPos(97, E2POS1 + vec(0,0,330))
    #holoMaterial(97, "debug/env_cubemap_model")
    #holoModel(97, "pyramid")
    #holoColor(97, vec(0,0,0))
    #holoScaleUnits(97, vec(200,200,200))
    #holoAng(97, entity():angles() + ang(0,0,-180))
    #holoAlpha(97, 200)

 # CONSOLE
    holoCreate(96)
    holoParent(96, entity())
    holoPos(96, E2POS1 + vec(0,0,-5))
    #holoModel(96, "models/doctorwho1200/hellbent/console.mdl")
    holoModel(96, "models/doctormemes/keltyj/console.mdl")
    holoAng(96, entity():angles())

 # TIME ROTOR
    holoCreate(95)
    holoParent(95, entity())
    holoPos(95, E2POS + vec(0,0,-15)) # 20 above
    holoModel(95, "models/artixc/mcgannr/rotor.mdl")  # models/doctormemes/newbarp/rotor.mdl
    #holoMaterial(95, "models/alyx/emptool_glow")
    holoColor(95, vec(255,255,255))  #(109,109,109))
    holoAng(95, entity():angles())

 # CONSOLE ATTACHMENT
    #holoCreate(90)
    #holoParent(90, entity())
    #holoPos(90, entity():pos())
    #holoModel(90, "models/artixc/mcgannr/console_gutters.mdl")
    #holoMaterial(90, "models/alyx/emptool_glow")
    #holoColor(90, vec(255,223,127))
    #holoAng(90, entity():angles())

 # TIME ROTOR ILLUMINATION
    #lightCreate(1)
    #lightColor(1, 20000 * vec(255,50,0))
    #lightParent(1, entity())
    #lightDistance(1, 50000)

}
# END FIRST





function funcFindSidrats() {

    findByClass("gmod_tardis")
    findSortByDistance(entity():pos())
    Tardises = findToArray()
    TardisCount = findToArray():count()
}



function funcFindLandingBay() {
    #findByModel("models/beer/wiremod/gps.mdl")
    findByClass("gmod_wire_gps")
    findClipToSphere(entity():pos(),LandingBayRange)
    #findSortByDistance(entity():pos())
    GPSes = findToArray()
    GPSCount = findToArray():count()
	
 BAYLIGHT = 0
	
	for (BAYLIGHT = 0, GPSCount) {
	
		ChosenGPS = GPSes[BAYLIGHT,entity]
		TargetGPS = ChosenGPS:pos()
		
 ChosenGPS:propFreeze(1)
 ChosenGPS:propNotSolid(1)
 ChosenGPS:setMaterial(LandingBayGPS)
 ChosenGPS:setColor(LandingBayColor)
 ChosenGPS:setAlpha(255)

	}
	
}



function funcPrimingLandingBays() {


Index = 0


# E2 = entity():pos() + vec(0,0,50)						#Get the current position (change this if you want)

    if (GPSCount < TardisCount | GPSCount == 0) {
    print("TARDISES: ", TardisCount, "GPS chips: ", GPSCount, "Please spawn", TardisCount-GPSCount, "more.")
    reset()
    }
    
    if (TardisCount == 0) {
    print("Can't locate any TARDISes. GPS chips: ", GPSCount)
    reset()
    }
    
    if (GPSCount >= TardisCount & (TardisCount > 0)) {
    #print("OK. TARDISES: ", TardisCount, "GPS chips: ", GPSCount)
    }

foreach(Index,TargetTardis:entity = Tardises) {
    
    if (TargetTardis:isValid() & TargetTardis:tardisHealth() > 0 & TargetTardis:tardisSelfrepairing() == 0) {

    ChosenGPS = GPSes[Index,entity]
    TargetGPS = ChosenGPS:pos()
    GPSBoxTop = ChosenGPS:aabbMax():z()

    # print("TARDIS",Index,"assigned landing bay",Index)


# CHECK IF TARDIS ALREADY OCCUPYING BAY

LandingBayClearance = rangerOffsetHull(TargetTardis:boxSize():z(), ChosenGPS:toWorld(vec(0,0,100)), ChosenGPS:up(), TargetTardis:boxSize())

#if(LandingBayClearance:hit() && LandingBayClearance:entity():type() == "gmod_tardis") {
    
    #print("TARDIS already occupying landing bay",Index)
    #}
    
####################


# HOLOGRAMS


# DRAW LINES BETWEEN E2 AND LANDING BAYS

LandingBayDifference = ChosenGPS:pos() - E2POS1						#Subtract them to make a direction
LandingBayDistance = LandingBayDifference:length()							#Gets the LandingBayDistanceance (its the same as ChosenGPS:pos():LandingBayDistanceance(E2POS2))
LandingBayHoloAngle = LandingBayDifference:toAngle() + ang(90,0,0)


holoCreate(Index+40)
holoModel(Index+40, "cylinder")
#holoAlpha(Index+40, 100)
holoPos(Index+40, (ChosenGPS:pos() + E2POS1) / 2)
holoAng(Index+40, LandingBayHoloAngle)			#Angle it. adding 90 to pitch because it is a cylinder, so I want to scale its Z, not its X.
holoScale(Index+40, vec(6,6,LandingBayDistance) / 12)					#Scale it to make it as long as the LandingBayDistanceance.
holoMaterial(Index+40, "models/alyx/emptool_glow")    # models/props_combine/cit_beacon, models/alyx/emptool_glow, models/props_combine/portalball001_sheet, Models/props_combine/masterinterface01c
holoColor(Index+40, vec(51,153,255), 255)
#Colours: BLUE 51,153,255.


#lightCreate(Index+10)
#lightColor(Index+10, 20000 * vec(255,255,255))
#lightPos(Index+10, ChosenGPS:pos())
#lightParent(Index+10, ChosenGPS)
#lightDistance(Index+10, 5000)

if (TargetTardis:tardisHealth() > 0 & TargetTardis:tardisHealth() < 20) {

#holoRenderFX(Index+40, 13)
#holoColor(Index+40, vec(255,0,0), 128)

    # If any TARDIS is sick, create a red console holo. Each sick TARDIS will overwrite the index number.
		#holoCreate(79, TargetGPS)
  #holoCreate(78, TargetGPS + vec(0,0,40))
#  holoCreate(Index+70, TargetGPS + vec(0,0,60))

}











Index++
}


if (TargetTardis:tardisHealth() == 0 ) {
    
	print("TARDIS",Index,"DAMAGED @",TargetTardis:pos())
 
    if(TargetTardis:tardisSelfrepairing()==0) {
		TargetTardis:tardisSelfrepair()
    }

}


else {Index++}
}
# END of foreach loop


}



function funcRecallSidrats() {

Index = 0

foreach(Index,TargetTardis:entity = Tardises) {

    TardisHeight = TargetTardis:boxSize():z()
    TardisHalfHeight = TardisHeight / 2

    if (TargetTardis:isValid() & TargetTardis:tardisHealth() > 0 & TargetTardis:tardisSelfrepairing() == 0) {

    ChosenGPS = GPSes[Index,entity]
    TargetGPS = ChosenGPS:pos()
    GPSBoxTop = ChosenGPS:aabbMax():z()

    holoCreate(Index)
    holoPos(Index, vec(TargetGPS:x(), TargetGPS:y(), TargetGPS:z()+TardisHalfHeight))
    holoAng(Index, ChosenGPS:angles())
    holoScaleUnits(Index, vec(TargetTardis:boxSize():x()+30,TargetTardis:boxSize():y()+30,TargetTardis:boxSize():z()+5))
    holoModel(Index, "cylinder")
    holoMaterial(Index, LandingBayShield)
    holoColor(Index, LandingBayColor,255)



 # TORUS RINGS ON EACH BAY
#    holoCreate(Index+200)
#    holoPos(Index+200, TargetGPS + vec(0,0,40))
#    holoAng(Index+200, ChosenGPS:angles())
#    holoScaleUnits(Index+200, vec(TargetTardis:boxSize():x()+35, TargetTardis:boxSize():y()+35, 40))
#    holoModel(Index+200, "hq_torus_thin")  # hq_torus_thin, 
#    #holoMaterial(Index+200, "models/props_combine/stasisfield_beam")
#    holoColor(Index+200, vec(250,0,0), 200)






    if( (TargetTardis:tardisPowered()==0) & (TargetTardis:tardisArtronEnergy() >4 ) ) {
		TargetTardis:tardisPower()
    }

    if ((TargetTardis:tardisHealth() > 0) & (TargetTardis:tardisHealth() < 20)) {
		
        holoMaterial(Index, LandingBayShield)
        holoColor(Index, vec(255,0,0))
        holoRenderFX(Index, 10)
		
		TardisMass = TargetTardis:mass()
		TargetTardis:applyAngForce(ang(0, TardisMass*200, 0))
	
		SickTardisIncoming = 1
    }
	
	if(TargetTardis:tardisBraking()==1) {
		TargetTardis:tardisHandbrake()
        }
    if(TargetTardis:tardisFlying()==1) {
		TargetTardis:tardisFlightmode()
            }
    if(TargetTardis:tardisPhyslocked()==0) {
		TargetTardis:tardisPhyslock()
            }
    if(TargetTardis:tardisLongflighted()==1) {
		TargetTardis:tardisLongflight()
	        }
    if(TargetTardis:tardisLocked()==0) {
		TargetTardis:tardisLock()
	        }
    if(TargetTardis:tardisVisible()==0) {
		TargetTardis:tardisPhase()
	        }
    if(TargetTardis:tardisInVortex()==1) {
		TargetTardis:tardisSetDestination(TargetGPS, ChosenGPS:angles())
		TargetTardis:tardisMaterialise()
			}
    if(TargetTardis:tardisInVortex()==0) {
		TargetTardis:tardisDemat(TargetGPS, ChosenGPS:angles())
			}

    timer("deleteholo",18000)
    timer("arrivalchecks",27000)
	}


    # FOR FUTURE USE - this will be useful combined with doing a findInSphere to check if a landing bay has a TARDIS already on it
#if (TargetTardis:tardisSelfrepairing() == 1) {  
#   Index++
#    }


}
# END FOREACH

    if(SickTardisIncoming == 1) {
        ParadoxRandom = random(3000,6000)
        ParadoxTimer = round(ParadoxRandom)
        timer("paradox1",500)
        timer("paradox1",2000)
        timer("paradox1",4000)
    }

}
# END FUNC



function funcClearLandingBay() {

    findByClass("gmod_wire_gps")
    findClipToSphere(entity():pos(),LandingBayRange)
    GPSes = findToArray()
    GPSCount = findToArray():count()

	Index = 0

foreach(Index,ClearGPS:entity = GPSes) {
    
    findInSphere(ClearGPS:pos(), 300)
    findByClass("gmod_tardis")
    Tardises = findToArray()
    TardisCount = findToArray():count()

	if(TardisCount >= 1) {
		
		print("DEBUG: Y")

foreach(Index,ClearTARDIS:entity = Tardises) {
    
    CheckOccupied = inrange(ClearTARDIS:pos(), ClearGPS:pos() + vec(-60,-60,-60), ClearGPS:pos() + vec(60,60,60))
    
    if (CheckOccupied == 1) {

        if(ClearTARDIS:tardisPowered() == 0) {
				        ClearTARDIS:tardisPower()
    			}  
        if(ClearTARDIS:tardisPhyslocked() == 1 ) {
		          ClearTARDIS:tardisPhyslock()
            }
        if(ClearTARDIS:tardisLongflighted() == 0) {
		          ClearTARDIS:tardisLongflight()
	        }
        if(ClearTARDIS:tardisBraking()==1) {
		              ClearTARDIS:tardisHandbrake()
        }

        ClearTARDIS:tardisDemat(vec(0,0,0), ang(0,0,0))
}	
}
 }
	elseif(TardisCount == 0) {
		print("DEBUG: N")
	}
}


} # END FUNC






# BEGIN CHAT MONITOR

if(chatClk(owner())) {
    LastSaid = owner():lastSaid():lower():explode(" ")
    COMMAND = LastSaid[1,string]
    ARGUMENT1 = LastSaid[2,string]


if(COMMAND=="!recall") {
    hideChat(1)
    timer("TimerOne",2000)
}

elseif(COMMAND=="!clear") {
    hideChat(1)
	funcClearLandingBay()
    }

}



# BEGIN INPUT BUTTONS

if (RECALL&~RECALL) {
	timer("TimerOne",1000)
}

if (RETURN&~RETURN) {
	funcClearLandingBay()
}

if (FINDBAYS&~FINDBAYS) {
	funcFindLandingBay()
}






# BEGIN TIMER SECTION

if(clk("TimerOne")) {

    SEQ1 = 1
    #lightDistance(1, 50000)
    soundPlay(2, 10, "drmatt/tardis/flight_loop_damaged.wav", 20)

    #holoMaterial(98, "models/props_combine/masterinterface01c")
    #holoColor(98, vec(255,70,255))  # ORANGE
    #holoRenderFX(98, 15)
    
    #holoMaterial(97, "models/props_combine/masterinterface01c")
    #holoColor(97, vec(255,255,255))  # ORANGE
    #holoRenderFX(97, 0)
    
    #holoColor(95, vec(255,191,0))
    #holoMaterial(95, "models/alyx/emptool_glow")
    
    # E2 = entity():pos() + vec(0,0,50)
    CircleDifference = holoEntity(98):pos() - E2POS2						#Subtract them to make a direction
    CircleDistance = CircleDifference:length()							#Gets the LandingBayDistanceance (its the same as ChosenGPS:pos():LandingBayDistanceance(E2POS1))
    CircleHoloAngle = CircleDifference:toAngle() + ang(90,0,0)
    
    # DRAW LINE FROM COMPUTER TO TIME ROTOR
    holoCreate(93)
    holoModel(93, "cylinder")
    holoPos(93, (holoEntity(98):pos() + E2POS2) / 2)
    holoAng(93, CircleHoloAngle)
    holoScale(93, vec(4,4,CircleDistance) / 12)
    # holoMaterial(93, "models/props_combine/tpballglow") looks good RED
    holoMaterial(93, "models/alyx/emptool_glow")
    holoColor(93, vec(255,255,255), 255)  # vec(0,213,255), 255)
    
    # vec(255,132,0 # ORANGE
    
    #holoRenderFX(95, 9)
        
    #holoRenderFX(98, 10)
    #holoColor(98, vec(255,255,255))
    
    # WHEEL
    #holoCreate(96)
    #holoPos(96, holoEntity(98):pos())
    #holoMaterial(96, "models/props_combine/tpballglow")
    #holoModel(96, "models/maxofs2d/hover_rings.mdl")
    #holoColor(96, vec(255,0,0)) # PURPLE vec(255,0,255)
    #holoScaleUnits(96, vec(380,380,380))
    #holoAng(96, ang(0,0,-180))
    #holoParent(96, holoEntity(98))

    funcFindSidrats()
    timer("TimerTwo", 4000)
}

if(clk("TimerTwo")) {
    funcFindLandingBay()
    timer("TimerThree", 2000)
}

if(clk("TimerThree")) {
    funcPrimingLandingBays()
	timer("TimerFour", 6000)
}

if(clk("TimerFour")) {
    funcRecallSidrats()
}

# BOOM: models/props_c17/oildrum001_explosive.mdl, models/the_sniper_9/doctorwho/extras/angels/angelattack.mdl

if(clk("paradox1")) {
    Explodable1 = propSpawn("models/props_c17/oildrum001_explosive.mdl", entity():pos() + vec(0,150,100), ang(0,0,0),1)
    Explodable1:setAlpha(0)
    Explodable1:propBreak()
    timer("paradox2", ParadoxTimer * 2)
}

if(clk("paradox2")) {
    Explodable2 = propSpawn("models/props_c17/oildrum001_explosive.mdl", entity():pos() + vec(-150,150,100), ang(0,0,0),1)
    Explodable2:setAlpha(0)
    Explodable2:propBreak()
    timer("paradox3", ParadoxTimer * 2)
}

if(clk("paradox3")) {
    Explodable3 = propSpawn("models/props_c17/oildrum001_explosive.mdl", entity():pos() + vec(150,-150,100), ang(0,0,0),1)
    Explodable3:setAlpha(0)
    Explodable3:propBreak()
    timer("paradox4", ParadoxTimer * 2)
}

if(clk("paradox4")) {
    Explodable4 = propSpawn("models/props_c17/oildrum001_explosive.mdl", entity():pos() + vec(150,0,100), ang(0,0,0),1)
    Explodable4:setAlpha(0)
    Explodable4:propBreak()
}


if(clk("deleteholo")) {

    for (I = 10, 40) {
        #lightRemove(I)
    }

    for (I = 0, 60) {
        holoDelete(I)
    }
    
    for (I = 200, 250) {
        holoDelete(I)
    }

    #holoDelete(96)
	holoDelete(78)
    holoDelete(79)
    holoDelete(93)
    #holoDeleteAll()
    
    SEQ1 = 0
}

if(clk("arrivalchecks")) {
    
    Index = 0
    
    foreach(Index,TargetTardis:entity = Tardises) {

    ChosenGPS = GPSes[Index,entity]
    TargetGPS = ChosenGPS:pos()

    CheckArrived = inrange(TargetTardis:pos(), TargetGPS + vec(-60,-60,-60), TargetGPS + vec(60,60,60))
    
    if(CheckArrived == 1) {
        
        if(TargetTardis:tardisLocked()==1) {
                TargetTardis:tardisLock()
	        }
        if(TargetTardis:tardisBraking()==0) {
		              TargetTardis:tardisHandbrake()
        }
    
        if (TargetTardis:tardisHealth() < 20 ) {
            
            if(TargetTardis:tardisPhyslocked()==0) {
		              TargetTardis:tardisPhyslock()
            }
            if(TargetTardis:tardisSelfrepairing() == 0) {
                TargetTardis:tardisSelfrepair()
                print("TARDIS",Index,"REPAIRING:",TargetTardis:pos())
            }
        }
		
		elseif (TargetTardis:tardisHealth() >= 20 ) {
            if(TargetTardis:tardisPowered()==1) {
				           TargetTardis:tardisPower()
			}
        }
           
    }
    
    elseif(CheckArrived == 0) {}

    }
    # END FOREACH
    
}



E2POS1 = entity():toWorld(vec(0,0,8))
E2POS2 = entity():toWorld(vec(0,0,45))


#holoAng(90, entity():angles())
#holoAng(95, entity():angles())
#holoAng(96, entity():angles())
#holoAng(97, entity():angles())
#holoAng(98, entity():angles())

if (SEQ1 == 1) {

    Timer += 30
    Cring = 0.05 + (sin(Timer+50) * 13)
    #Cring2 = 0.05 + (sin(Timer+60) * 30)
    Cur = curtime()

        # TIME ROTOR ASC/DESC DURING SEQ
        holoPos(95, entity():pos() + vec(0,0,-25) - vec(0,0,Cring))
        holoMaterial(95, "models/alyx/emptool_glow")
        #holoColor(95, hsv2rgb(sin(curtime()*40)*-255,1,1))
        holoColor(95, vec(255,255,255))

		# PYRAMID ROTATES FASTER DURING SEQ
        #holoMaterial(97, "debug/env_cubemap_model")
        #holoColor(97, vec(255,255,255), 0)
        #holoAng(97, ang(0, 0, -180))
        
        #SPHERE
        #holoAng(98, ang(0, Cur * 70, 180))
        holoAng(98, holoEntity(98):angles() + ang(vec(0,24/0.75,0)))
		
        #ATTACHMENT
        #holoAng(90, ang(0, Cur * 25, 0))
        
        #CONSOLE
        #holoAng(96, ang(0, Cur * -40, 0))
        
        #holoAng(95, entity():angles())
        # SPHERE COLOUR
        #holoColor(98, vec(51,153,255))
        # ROTOR
        #holoColor(95, vec(33,255,0)) #GOLD vec(255,191,10)

	# TORUS rings up and down
    #for (I = 200, 250) {
    #    holoPos(I, holoEntity(I):pos() - vec(0,0,Cring2))
    #}


}

if (SEQ1 == 0) {

		# TIME ROTOR IDLE POS
		holoColor(95, vec(255,255,255))
        #holoPos(95, E2POS1 + vec(0,0,-25) - vec(0,0,Cring))
	    holoMaterial(95, "")
        #holoPos(95, entity():pos() + vec(0,0,-50))
    	#holoAng(95, holoEntity(95):angles() + ang(vec(0, 3/0.75, 0)))
		
        # PYRAMID ROTATES CONTINUOUSLY
        #holoMaterial(97, "")
        #holoAng(97, ang(0, Cur * 30, -180))
        #holoAng(97, ang(0, 0, -180))
        #holoColor(97, vec(0,0,0), 255)
        holoColor(97, vec(255,255,255))
		#holoAng(97, ang(0, Cur * 20, -180))
        
		# SPHERE COLOUR
        #holoColor(98, vec(255,70,255))
		holoAng(98, holoEntity(98):angles() + ang(vec(0,2/0.75,0)))
}