-------------------------
---   VARIABLES INIT  ---
------------------------

var_sec=true       -- Second hand (false/true)
var_24=true        -- 24 hours (false/true)
var_world=1        -- World time (1-3)
var_chime=false    -- Hourly chime (false/true)
var_language=1     -- Language (1-5)
var_brand='TISSUE' -- 'TISSOT' or 'TISSUE'
speed=5            -- Text speed Agenda (1-20)

zoom1=1
zoom2=640/512
zoom3=710/512

var_zoom=3         --
tweens.z=zoom3     -- Zoom level (1-3)

var_lock=true
var_light=false
var_park=false
var_info=0
var_sub=1
tweens.tap=0
var_count=-1

if {wm}=='C' then
   var_deg='°C' var_dis='m'
 else
   var_deg='°F' var_dis='ft'
end


-------------------------
---     LANGUAGES     ---
-------------------------

function var_lan(l)
if l==1 then
  var_day={"Su","Mo","Tu","We","Th","Fr","Sa"}
  var_menu={"SUBMENU", "ALTIMETER", "LIGHT", "CHRONO", "SENSORS", "COMPASS", "LAN/LON", "ALARM", "BATTERIES", "THERMO", "CALENDAR", "METEO"}
  var_nation="GB"
  var_word={"CHIME", "ON", "OFF", "NO ENTRIES", "NO MORE ENTRIES"}
end

if l==2 then
  var_day={"Zo","Ma","Di","Wo","Do","Vr","Za"}
  var_menu={"SUBMENU", "HOOGTE", "LICHT", "CHRONO", "SENSORS", "KOMPAS", "LAN/LON", "ALARM", "BATTERIJEN", "WEER", "AGENDA", "METEO"}
  var_nation="NL"
  var_word={"CHIME", "AAN", "UIT", "GEEN AFSPRAKEN", "GEEN VERDERE AFSPRAKEN"}
end

if l==3 then
  var_day={"So","Mo","Di","Mi","Do","Fr","Sa"}
  var_menu={"SUBMENU", "HOEHE", "LICHT", "CHRONO", "SENSOREN", "KOMPASS", "LAN/LON", "ALARM", "BATTERIEN", "WETTER", "AGENDA", "METEO"}
  var_nation="D"
  var_word={"CHIME", "AN", "AUS", "KEINE TERMINE", "KEINE WEITEREN TERMINE"}
end

if l==4 then
  var_day={"Di","Lu","Ma","Me","Je","Ve","Sa"}
  var_menu={"SUBMENU", "ALTITUDE", "LUMIERE", "CHRONO", "CAPTEURS", "BOUSSOLE", "LAN/LON", "ALARM", "BATTERIES", "METEO", "AGENDA", "BARO"}
  var_nation="F"
  var_word={"CHIME", "ON", "OFF", "Aucune d’entrée d’agenda", "Plus d'entrée d'agenda"}
end

if l==5 then
  var_day={"Во","По","Вт","Ср","Чы","Пя","Су"}
  var_menu={"ПОДМЕНЮ", "ВЫСОТО", "СВЕТ", "ХРОНО", "ДАТЧИКИ", "КОМПАС", "ЛАН/ЛОН", "БУДИЛЬНИК", "АККУМ.", "ПОГОДА", "КАЛЕНДАЯЬ", "МЕТЕО"}
  var_nation="Рус"
  var_word={"CHIME", "ON", "OFF", "Ничего", "Больше нет записей"}
end

end

var_lan(var_language)

-------------------------
---      FUNCTIONS    ---
-------------------------

function on_display_bright()
   var_info=0
   var_sub=1
   var_lock=true
   var_light=false
   var_park=false
   var_tween('second',{bl}*3,{drs}+6)
 end


function on_display_not_bright()
   var_info=0
   var_sub=1
   var_lock=true
   var_light=false
   var_park=false
 end


function on_second()
if var_count>-1 then
   if var_count==0 and not var_park then
      var_tween('hour',tweens.hour,var_o)
      var_tween('minute',tweens.minute,var_o)
      var_tween('second',tweens.second,var_o)
   end
   var_count=var_count+1
   if var_count==6 and not var_park then
      var_tween('hour',var_o,{drh})
      var_tween('minute',var_o,{drm})
      var_tween('second',var_o,{ds}*6+6)
      var_park=false
      var_count=-1
   end
 else
   if not var_park then
      tweens.hour={drh}
      tweens.minute={drm}
      tweens.second={ds}*6
   end
end
end

function on_millisecond()
if var_info==6 and not var_park then
   tweens.hour={scr}-180
   tweens.minute={scr}
   tweens.second={scr}
end
if var_info==11 then
   tweens.agenda=tweens.agenda-speed
   if tweens.agenda<-(35*var_len) then tweens.agenda = 125*tweens.z end
end
end

function on_hour()
if var_chime then wm_vibrate(300,{dh}) end
end


function var_agenda()
a = wm_tag("{c" .. var_entry .. "b}")
b = wm_tag("{c" .. var_entry .. "t}")
if string.sub(b,3,3)==":" then
  p=string.sub(b,1,2) .. ", "
  q=string.sub(b,5)
  var_cal=(p .. a .. ": " .. q)
 else
  var_cal=(a .. ": " .. b)
end
var_len=string.len(var_cal)+6
end


function var_alt(a)
if var_dis=='ft' then a=a*3.281 end
return math.floor(a*10)/10
end


function var_temp(t)
if {wm}=='C' then
   if var_deg=='°F' then t=math.floor(t*9/5 +32.5) end
 else
   if var_deg=='°C' then t=math.floor((t-32)*5/9 +0.5) end
end
return t .. var_deg .. " "
end


function tap()
      wm_schedule{action = 'tween', tween = 'tap', from = 1, to = 0, duration = 0.25, easing = linear} 
end


function var_tween(Tw,Fr,To)
wm_schedule { 
   {action='tween', tween=Tw, from=Fr, to=To, duration=1, easing=linear}
}
end