129 lines
4.0 KiB
Lua
129 lines
4.0 KiB
Lua
makeclass('player')
|
|
makeclass('light')
|
|
|
|
freqcolor={ azure=152, black=35200, blue=59300, brown=20000, chocolate=1840, cream=8610,
|
|
crimson=575, fawn=272, gold=17300, green=34200, grey=17300, lemon=445,
|
|
lilac=1020, mauve=719, ochre=132, olive=1910, orange=22500, peach=3860,
|
|
pink=27200, purple=13700, red=52200, rose=4310, ruby=994, russet=68,
|
|
scarlet=315, silver=13200, violet=3590, white=45100, yellow=24400 }
|
|
|
|
function player:near_iter(rad,kind)
|
|
local lis=tangible.near(self,rad,true,true)
|
|
local i=1
|
|
return function()
|
|
while i<=#lis do
|
|
i=i+1
|
|
if not kind or isa(lis[i-1],kind) then return lis[i-1] end end end
|
|
end
|
|
|
|
function tandist(t1,t2)
|
|
local _,t1p,t1x,t1y=tangible.animstate(t1)
|
|
local _,t2p,t2x,t2y=tangible.animstate(t2)
|
|
return math.sqrt((t1x-t2x)*(t1x-t2x)+(t1y-t2y)*(t1y-t2y))
|
|
end
|
|
|
|
function player:radius_iter(rad,kind)
|
|
local lis=tangible.near(self,rad,true,true)
|
|
local i=1
|
|
return function()
|
|
while i<=#lis do
|
|
i=i+1
|
|
if (not kind or isa(lis[i-1],kind)) and tandist(self,lis[i-1])<=rad then return lis[i-1] end end end
|
|
end
|
|
|
|
function player.interface(actor, place)
|
|
gui.menu_item("cb_dir0" ,"Go North")
|
|
gui.menu_item("cb_dir180" ,"Go South")
|
|
gui.menu_item("cb_dir270" ,"Go West")
|
|
gui.menu_item("cb_dir90" ,"Go East")
|
|
gui.menu_item("cb_map" ,"Map")
|
|
end
|
|
|
|
function player:cb_dir0() self:move(0) end
|
|
function player:cb_dir45() self:move(45) end
|
|
function player:cb_dir90() self:move(90) end
|
|
function player:cb_dir135() self:move(135) end
|
|
function player:cb_dir180() self:move(180) end
|
|
function player:cb_dir215() self:move(215) end
|
|
function player:cb_dir270() self:move(270) end
|
|
function player:cb_dir315() self:move(315) end
|
|
|
|
function player:power()
|
|
local rval=0
|
|
for k,v in pairs(self.spectra) do if v>0 then rval=rval+1 end end
|
|
return rval
|
|
end
|
|
|
|
function player:newlocation()
|
|
for lt in self:radius_iter(3.1,light) do self.spectra[lt.color]=25 end
|
|
for lt in self:radius_iter(3.1,player) do if self.team==lt.team then
|
|
nspec={}
|
|
for k,v in pairs(self.spectra) do nspec[k]=v end
|
|
for k,v in pairs(lt.spectra) do nspec[k]=math.max(v,nspec[k]) end
|
|
for k,v in pairs(nspec) do self.spectra[k]=v lt.spectra[k]=v end
|
|
end end
|
|
for lt in self:radius_iter(3.1,player) do if self.team~=lt.team then
|
|
local p1=self.power()
|
|
local p2=lt.power()
|
|
print("Attacker Power:",p1," Defender Power:",p2)
|
|
end end
|
|
for k,v in pairs(self.spectra) do self.spectra[k]=self.spectra[k]-1 if self.spectra[k]<=0 then self.spectra[k]=nil end end
|
|
end
|
|
|
|
|
|
function player:move(degrees)
|
|
dx= math.cos((90-degrees)*math.pi/180)
|
|
dy=-math.sin((90-degrees)*math.pi/180)
|
|
tangible.animate(self,{action='walk',dx=dx,dy=dy})
|
|
self:newlocation()
|
|
self:map(12)
|
|
end
|
|
|
|
function wrcolor()
|
|
local acc=0
|
|
local rval
|
|
for k,v in pairs(freqcolor) do acc=acc+v if math.random(1,acc)<=v then rval=k end end
|
|
return rval
|
|
end
|
|
|
|
function makemap()
|
|
for i=1,100 do
|
|
local x=math.random(-50,50)
|
|
local y=math.random(-50,50)
|
|
local nt=tangible.build{class='light',x=x,y=y,z=0,plane='main',graphic='light'}
|
|
nt.color=wrcolor()
|
|
end
|
|
end
|
|
|
|
function setcell(array,x,y,val)
|
|
if not array[y] then array[y]={} end
|
|
array[y][x]=val
|
|
return array
|
|
end
|
|
|
|
function player:cb_map(place,dialog)
|
|
self:map(10)
|
|
end
|
|
|
|
function player:map(radius)
|
|
local radius=10
|
|
radius=radius or 10
|
|
local cells={}
|
|
local px,py=tangible.xyz(tangible.actor())
|
|
for lt in self:near_iter(1.5*radius,light) do
|
|
local lx,ly=tangible.xyz(lt)
|
|
lx=lx-px+radius
|
|
ly=ly-py+radius
|
|
if seq(0,ly,1+2*radius) and seq(0,lx,1+2*radius) then setcell(cells,math.floor(0.5+lx),math.floor(0.5+ly),lt.color) end
|
|
end
|
|
setcell(cells,radius,radius,string.format("Me:%3.3f",self:power()))
|
|
for ly=0,1+2*radius do
|
|
local line='|'
|
|
for lx=0,1+2*radius do
|
|
if cells[ly] and cells[ly][lx] then line=line..string.format("%-6.6s",cells[ly][lx])..'|' else line=line..' |' end
|
|
end
|
|
print(line)
|
|
end
|
|
end
|
|
|