Coronas and View distance (blinky radio tower beacons)

[Flexman]

This LUA code is used with one of the Dexsoft radio tower models. It adds three lights and makes the top one blink at a specified interval and colour.

 

But the view range isn't all that great. I was going to ask for suggestions for setting the Corona view range as I tried Lua: entity:SetViewRange( near, far, recursive ) as per the Wiki but only got an error. However the following worked:

 

EntityViewRange(entity.antennalight[i],800,1000)

 

 

Here's the full script if interested.

 

 

dofile("Scripts/base.lua")


function InitDialog(grid)
base_InitDialog(grid)

--custom properties
group=grid:AddGroup( "Beacon" )
group:AddProperty( "blinkspeed",PROPERTY_INTEGER,1000,"Blink Speed")
group:AddProperty("beaconcolor",PROPERTY_COLOR,"","Beacon Color")
group:Expand(1)

end

function Spawn(model)
local entity=base_Spawn(model)
entity.antennalight={}
entity.blinkspeed = tonumber(model:GetKey("blinkspeed","1000"))
entity.beaconcolor = Vec4(1.0,0,0,1)
entity.lasttime = AppTime()
entity.blinktoggle = 1

for i=0,2 do
	entity.antennalight[i] = CreateCorona(model)
	entity.antennalight[i]:Paint(LoadMaterial("abstract::flare1.mat"),1)
	entity.antennalight[i]:SetParent(model,0)
	entity.antennalight[i]:SetColor(entity.beaconcolor,0)
	SetCoronaRadius(entity.antennalight[i],1,1)
	EntityViewRange(entity.antennalight[i],800,1000)

end

-- Fixed light positions on our antenna
entity.antennalight[0]:SetPosition(Vec3(0,35,0.1),0)
entity.antennalight[1]:SetPosition(Vec3(1.5,25.2,0.1),0)
entity.antennalight[2]:SetPosition(Vec3(-1.5,25.2,0.1),0)


base_SetKey("collisiontype",COLLISION_PROP)

--An update function for one instance.  Declaring the function as part of the entity table allows us to use "self" for the table
function entity:Update()

	if (AppTime()-self.lasttime>entity.blinkspeed) then
		self.lasttime = AppTime()
		self.blinktoggle = -self.blinktoggle
		if (self.blinktoggle>0) then
			self.antennalight[0]:Hide()
		else
			self.antennalight[0]:Show()
		end
	end

end


end

function SetKey(model, key, value)
local entity=entitytable[model]
if entity==nil then return 1 end
if entity.model==nil then return 1 end
if key=="blinkspeed" then
	entity.blinkspeed = tonumber(value)
elseif key=="beaconcolor" then
	entity.beaconcolor=StringToColor(value)
	entity.beaconcolor.w = 1
	entity.antennalight[0]:SetColor(entity.beaconcolor,0)
	entity.antennalight[1]:SetColor(entity.beaconcolor,0)
	entity.antennalight[2]:SetColor(entity.beaconcolor,0)
end
return 1
end


--Update function, called during every UpdateWorld()
function Update(world)
if world==world_main then
	local model,entity
	for model,entity in pairs(entitytable) do
		if model.world==world then
			entity:Update()
		end
	end
    end
end

[macklebee]

Thanks for this. I am enjoying playing around with it on various models.

[ESP]

Hi,

 

Did anyone work out how to cut and paste code from the forum? I just get one line no matter where I paste to...

 

Robin

[Marleys Ghost]

Hi,

 

Did anyone work out how to cut and paste code from the forum? I just get one line no matter where I paste to...

 

Robin

 

 

I use wordpad.

[ESP]

Cheers. A bit tortuous and we loose formatting, but at least I get the code.

 

Robin

[macklebee]

? I just select all of the code, right-click copy, then paste it directly into a models script... I don't lose the indents/formats by doing this.

[ESP]

I get...

 

dofile("Scripts/base.lua")function InitDialog(grid)        base_InitDialog(grid)                --custom properties        group=grid:AddGroup( "Beacon" )        group:AddProperty( "blinkspeed",PROPERTY_INTEGER,1000,"Blink Speed")        group:AddProperty("beaconcolor",PROPERTY_COLOR,"","Beacon Color")        group:Expand(1)endfunction Spawn(model)        local entity=base_Spawn(model)        entity.antennalight={}        entity.blinkspeed = tonumber(model:GetKey("blinkspeed","1000"))        entity.beaconcolor = Vec4(1.0,0,0,1)        entity.lasttime = AppTime()        entity.blinktoggle = 1        for i=0,2 do                entity.antennalight[i] = CreateCorona(model)                entity.antennalight[i]:Paint(LoadMaterial("abstract::flare1.mat"),1)                entity.antennalight[i]:SetParent(model,0)                entity.antennalight[i]:SetColor(entity.beaconcolor,0)                SetCoronaRadius(entity.antennalight[i],1,1)                EntityViewRange(entity.antennalight[i],800,1000)        end        -- Fixed light positions on our antenna        entity.antennalight[0]:SetPosition(Vec3(0,35,0.1),0)        entity.antennalight[1]:SetPosition(Vec3(1.5,25.2,0.1),0)        entity.antennalight[2]:SetPosition(Vec3(-1.5,25.2,0.1),0)        base_SetKey("collisiontype",COLLISION_PROP)        --An update function for one instance.  Declaring the function as part of the entity table allows us to use "self" for the table        function entity:Update()                                if (AppTime()-self.lasttime>entity.blinkspeed) then                        self.lasttime = AppTime()                        self.blinktoggle = -self.blinktoggle                        if (self.blinktoggle>0) then                                self.antennalight[0]:Hide()                        else                                self.antennalight[0]:Show()                        end                end        endendfunction SetKey(model, key, value)        local entity=entitytable[model]        if entity==nil then return 1 end        if entity.model==nil then return 1 end        if key=="blinkspeed" then                entity.blinkspeed = tonumber(value)        elseif key=="beaconcolor" then                entity.beaconcolor=StringToColor(value)                entity.beaconcolor.w = 1                entity.antennalight[0]:SetColor(entity.beaconcolor,0)                entity.antennalight[1]:SetColor(entity.beaconcolor,0)                entity.antennalight[2]:SetColor(entity.beaconcolor,0)        end        return 1end--Update function, called during every UpdateWorld()function Update(world)        if world==world_main then                local model,entity                for model,entity in pairs(entitytable) do                        if model.world==world then                                entity:Update()                        end                end     endend

 

Robin

[macklebee]

oh that sucks

[Flexman]

Maybe paste it into a different editor? I highly recommend Notepad++ from http://notepad-plus.sourceforge.net/uk/site.htm

Small footprint, versatile and free. Never had a problem pasting code.

 

But what I will do, is make the above code available as a download in the...downloads...section.

[ESP]

Notepad++ gives me...

 

dofile("Scripts/base.lua")function InitDialog(grid)        base_InitDialog(grid)                --custom properties        group=grid:AddGroup( "Beacon" )        group:AddProperty( "blinkspeed",PROPERTY_INTEGER,1000,"Blink Speed")        group:AddProperty("beaconcolor",PROPERTY_COLOR,"","Beacon Color")        group:Expand(1)endfunction Spawn(model)        local entity=base_Spawn(model)        entity.antennalight={}        entity.blinkspeed = tonumber(model:GetKey("blinkspeed","1000"))        entity.beaconcolor = Vec4(1.0,0,0,1)        entity.lasttime = AppTime()        entity.blinktoggle = 1        for i=0,2 do                entity.antennalight[i] = CreateCorona(model)                entity.antennalight[i]:Paint(LoadMaterial("abstract::flare1.mat"),1)                entity.antennalight[i]:SetParent(model,0)                entity.antennalight[i]:SetColor(entity.beaconcolor,0)                SetCoronaRadius(entity.antennalight[i],1,1)                EntityViewRange(entity.antennalight[i],800,1000)        end        -- Fixed light positions on our antenna        entity.antennalight[0]:SetPosition(Vec3(0,35,0.1),0)        entity.antennalight[1]:SetPosition(Vec3(1.5,25.2,0.1),0)        entity.antennalight[2]:SetPosition(Vec3(-1.5,25.2,0.1),0)        base_SetKey("collisiontype",COLLISION_PROP)        --An update function for one instance.  Declaring the function as part of the entity table allows us to use "self" for the table        function entity:Update()                                if (AppTime()-self.lasttime>entity.blinkspeed) then                        self.lasttime = AppTime()                        self.blinktoggle = -self.blinktoggle                        if (self.blinktoggle>0) then                                self.antennalight[0]:Hide()                        else                                self.antennalight[0]:Show()                        end                end        endendfunction SetKey(model, key, value)        local entity=entitytable[model]        if entity==nil then return 1 end        if entity.model==nil then return 1 end        if key=="blinkspeed" then                entity.blinkspeed = tonumber(value)        elseif key=="beaconcolor" then                entity.beaconcolor=StringToColor(value)                entity.beaconcolor.w = 1                entity.antennalight[0]:SetColor(entity.beaconcolor,0)                entity.antennalight[1]:SetColor(entity.beaconcolor,0)                entity.antennalight[2]:SetColor(entity.beaconcolor,0)        end        return 1end--Update function, called during every UpdateWorld()function Update(world)        if world==world_main then                local model,entity                for model,entity in pairs(entitytable) do                        if model.world==world then                                entity:Update()                        end                end     endend

 

Nice looking editor though

 

Robin

[carlb]

it cut and paste fine from firefox to wordpad and notepad for me with no problem

 

what browser you using

[ESP]

I.E.8

 

Robin

[carlb]

yep I.E 8 is the problem lol

 

i would say get firefox or something else

[ESP]

Yeh... Chrome works. All I need now is to be able to sculpt

 

Robin