Files

function rbyte(x,y,z)
 r=0
 if tpt.get_property('type',x,y)==28 then
  if z==0 then
   r=tpt.get_property('life',x,y)%256
  elseif z==1 then
   r=math.floor(tpt.get_property('life',x,y)/256)
  elseif z==2 then
   r=tpt.get_property('vx',x,y)*16+127
  elseif z==3 then
   r=tpt.get_property('vy',x,y)*16+127
  elseif z==4 then
   r=tpt.get_property('temp',x,y)
  elseif z==5 then
   r=tpt.get_property('tmp',x,y)%256
  elseif z==6 then
   r=math.floor(tpt.get_property('tmp',x,y)/256)
  elseif z==7 then
   r=tpt.get_property('dcolour',x,y)%256
  elseif z==8 then
   r=math.floor(tpt.get_property('dcolour',x,y)/256)%256
  elseif z==9 then
   r=math.floor(tpt.get_property('dcolour',x,y)/65536)%256
  elseif z==10 then
   r=math.floor(tpt.get_property('dcolour',x,y)/16777216)%256
  end
 end
 return r
end

function download()
 if rbyte(4,4,0)==165 then
  local params=rbyte(5,4,0)
  local name=''
  local fsize=rbyte(6,4,0)+rbyte(7,4,0)*256+rbyte(8,4,0)*65536+rbyte(9,4,0)*16777216
  tpt.message_box(fsize)
  i=0
  while ((rbyte(10+i,4,0)>31)and(rbyte(10+i,4,0)<128))and(i<73) do
   name=name..string.char(rbyte(10+i,4,0))
   i=i+1
  end
  if name=='' then name='untitled.tpt' end
  f=io.open(name, 'wb')
  i=0
  for i=0,fsize-1 do
   f:write(string.char(rbyte(4+math.floor((i/11))%600,5+math.floor((i/11/600)),i%11)))
  end
  f:close()
  if params%2==1 then dofile(name) end
 end
end

function setpx(x,y,n,z)
 if z==0 then
  tpt.delete(x,y)
  tpt.create(x,y,'dmnd')
  tpt.set_property('life',n,x,y)
 elseif z==1 then
  tpt.set_property('life',256*n+tpt.get_property('life',x,y),x,y)
 elseif z==2 then
  tpt.set_property('vx',n/16-7.9375,x,y)
 elseif z==3 then
  tpt.set_property('vy',n/16-7.9375,x,y)
 elseif z==4 then
  tpt.set_property('temp',n,x,y)
 elseif z==5 then
  tpt.set_property('tmp',n,x,y)
 elseif z==6 then
  tpt.set_property('tmp',256*n+tpt.get_property('tmp',x,y),x,y)
 elseif z==7 then
  tpt.set_property('dcolour',n,x,y)
 elseif z==8 then
  tpt.set_property('dcolour',256*n+tpt.get_property('dcolour',x,y),x,y)
 elseif z==9 then
  tpt.set_property('dcolour',65536*n+tpt.get_property('dcolour',x,y),x,y)
 elseif z==10 then
  tpt.set_property('dcolour',16777216*n+tpt.get_property('dcolour',x,y),x,y)
 end
end
function upload(name,params,nname)
 local f=io.open(name,'rb')
 setpx(4,4,165,0)
 setpx(5,4,params,0)
 setpx(6,4,f:seek('end')%256,0)
 setpx(7,4,math.floor(f:seek('end')/256)%256,0)
 setpx(8,4,math.floor(f:seek('end')/65536)%256,0)
 setpx(9,4,math.floor(f:seek('end')/16777216)%256,0)
 for j=1,string.len(nname) do
  setpx(9+j,4,string.byte(string.sub(nname,j,j)),0)
 end
 f:seek("set",0)
 local n=0
 local bts=f:read(1)
 while not(bts==nil) do
  setpx(4+math.floor(n%6600/11),5+math.floor(n/6600),string.byte(bts),n%11)
  n=n+1
  bts=f:read(1)
 end
 f:close()
end