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