TGW Watch code

-- #################
-- Default variables
-- #################
var_screen = 0
zoommin = 1
zoommax = 19
scalemin = 40
scalemax = 400

-- #################
-- Talking clock
-- #################
var_lock=0

function timeis()
 wm_sfx('thetimeis190')
end
function amam()
 wm_sfx('amam190')
end
function pmpm()
 wm_sfx('pmpm190')
end
function one()
 wm_sfx('one190')
end
function two()
 wm_sfx('two190')
end
function three()
 wm_sfx('three190')
end
function four()
 wm_sfx('four190')
end
function five()
 wm_sfx('five190')
end
function six()
 wm_sfx('six190')
end
function seven()
 wm_sfx('seven190')
end
function eight()
 wm_sfx('eight190')
end
function nine()
 wm_sfx('nine190')
end
function ten()
 wm_sfx('ten190')
end
function eleven()
 wm_sfx('eleven190')
end
function twelve()
 wm_sfx('twelve190')
end
function thirteen()
 wm_sfx('thirteen190')
end
function fifteen()
 wm_sfx('fifthteen190')
end
function teen()
 wm_sfx('teen190')
end
function twenty()
 wm_sfx('twenty190')
end
function thirty()
 wm_sfx('thirty190')
end
function forty()
 wm_sfx('forty190')
end
function fifty()
 wm_sfx('fifty190')
end
function ohh()
 wm_sfx('ohh190')
end
function oclock()
 wm_sfx('oclock190')
end

function hour()
 if {dht} == "one" then
  one()
   elseif {dht} == "two" then
  two()
   elseif {dht} == "three" then
  three()
   elseif {dht} == "four" then
  four()
   elseif {dht} == "five" then
  five()
   elseif {dht} == "six" then
  six()
   elseif {dht} == "seven" then
  seven()
   elseif {dht} == "eight" then
  eight()
   elseif {dht} == "nine" then
  nine()
   elseif {dht} == "ten" then
  ten()
   elseif {dht} == "eleven" then
  eleven()
   elseif {dht} == "twelve" then
  twelve()
 end
end

function minute()
 if {dmot} ~= "" then
  if {dmot} == "one" then
   one()
    elseif {dmot} == "two" then
   two()
    elseif {dmot} == "three" then
   three()
    elseif {dmot} == "four" then
   four()
    elseif {dmot} == "five" then
   five()
    elseif {dmot} == "six" then
   six()
    elseif {dmot} == "seven" then
   seven()
    elseif {dmot} == "eight" then
   eight()
    elseif {dmot} == "nine" then
   nine()
    elseif {dmot} == "ten" then
   ten()
    elseif {dmot} == "clock" then
   oclock()
  end
 end
end

function minutet()
 if {dmtt} ~= "" then
  if {dmtt} == "ten" then
   ten()
    elseif {dmtt} == "twenty" then
   twenty()
    elseif {dmtt} == "thirty" then
   thirty()
    elseif {dmtt} == "forty" then
   forty()
    elseif {dmtt} == "fifty" then
   fifty()
    elseif {dmtt} == "o'" and {dmot} ~= "clock" then
   ohh()
    elseif {dmtt} == "eleven" then
   eleven()
    elseif {dmtt} == "twelve" then
   twelve()
    elseif {dmtt} == "thirteen" then
   thirteen()
    elseif {dmtt} == "fifteen" then
   fifteen()
    elseif {dm} == 14 then
   wm_schedule {
    { action='run_function', run_function=four },
    { action='sleep', sleep=0.5 },
    { action='run_function', run_function=teen },
   }
    elseif {dm} == 16 then
   wm_schedule {
    { action='run_function', run_function=six },
    { action='sleep', sleep=0.5 },
    { action='run_function', run_function=teen },
   }
    elseif {dm} == 17 then
   wm_schedule {
    { action='run_function', run_function=seven },
    { action='sleep', sleep=0.5 },
    { action='run_function', run_function=teen },
   }
    elseif {dm} == 18 then
   wm_schedule {
    { action='run_function', run_function=eight },
    { action='sleep', sleep=0.5 },
    { action='run_function', run_function=teen },
   }
    elseif {dm} == 19 then
   wm_schedule {
    { action='run_function', run_function=nine },
    { action='sleep', sleep=0.5 },
    { action='run_function', run_function=teen },
   }
  end
 end
end

function amorpm()
 if {da} == 'AM' then
  amam() else
  pmpm()
 end
end

var_lock=0
 function lock()
  if var_lock==0 then
   var_lock=1
    else
   var_lock=0
 end
end

function telltime()
 if var_lock==0 then
  wm_schedule {
   { action='run_function', run_function=lock },
   { action='run_function', run_function=timeis },
   { action='sleep', sleep=1 },
   { action='run_function', run_function=hour },
   { action='sleep', sleep=1 },
   { action='run_function', run_function=minutet },
   { action='sleep', sleep=1 },
   { action='run_function', run_function=minute },
   { action='sleep', sleep=1 },
   { action='run_function', run_function=amorpm },
   { action='run_function', run_function=lock },
  }
 end
end

-- #################
-- Tasker-bourne variables
-- #################
-- #### WMTG Support
function wmtg_tags()
 var_taskeron=wm_tag('{tgottasker}')
 var_tasker=tonumber(var_taskeron)
 var_bar=wm_tag('{twmbar}')
 var_baro=tonumber(var_bar)
 var_lum=wm_tag('{twmlight}')
 var_lux=tonumber(var_lum)
 var_tes=wm_tag('{twmmag}')
 var_mag=tonumber(var_tes)
 var_dis=wm_tag('{twmscreen}')
 var_display=tonumber(var_dis)
 var_con=wm_tag('{twmnet}')
 var_net=tonumber(var_con)
 var_txt=wm_tag('{twmsms}')
 var_sms=tonumber(var_txt)
 var_inb=wm_tag('{twmcall}')
 var_call=tonumber(var_inb)
 var_varvpn=wm_tag('{tovpn}')
 var_vpn=tonumber(var_varvpn)
 var_dim_raw=wm_tag('{twmfakedim}')
 var_dim=tonumber(var_dim_raw)
end
-- #### Use AutoWear BPM or built-in
function bpm_map()
 h2bpm=wm_tag("{th2bpm}")
 var_s_bpm=tonumber(h2bpm)
  if var_s_bpm ~= null or var_s_bpm == 0 then
   bpm=wm_tag("{th2bpm}")
    else
   bpm=wm_tag({shr})
  end
 var_s_heart=tonumber(bpm)
end
-- #### Ping Tasker to check support
var_hasTasker = 0
var_s_taskerupdate = 0
function checktasker(a)
 if a == 0 then
  wm_action('m_task:WMCheckTasker')
  taskerupdate = wm_tag("{ttimes}")
  var_s_taskerupdate = tonumber(taskerupdate)
 elseif a == 1 then
   if ({depoch}-var_s_taskerupdate) < 30 then
    var_hasTasker = 1
   else
    var_hasTasker = 0
   end
 end
end
-- #### Tasker variables to update in seconds
function tasker_sec()
 cell_1g=wm_tag('{tatsignalstrengthgsm}')
 cell_2g=wm_tag('{tatsignalstrengthcdma}')
 cell_3g=wm_tag('{tatsignalstrengthwcdma}')
 cell_4g=wm_tag('{tatsignalstrengthlte}')
 signal=wm_tag('{tcellsig}')
 var_s_signal=tonumber(signal)
 var_s_cell_1g=tonumber(cell_1g)
 var_s_cell_2g=tonumber(cell_2g)
 var_s_cell_3g=tonumber(cell_3g)
 var_s_cell_4g=tonumber(cell_4g)
 gtype=wm_tag("{tgtype}")
 gname=wm_tag("{tgname}")
 var_s_cell_type=tostring(gtype)
 var_s_cell_name=tostring(gname)
 locx=wm_tag("{tlocxy1}")
 locy=wm_tag("{tlocxy2}")
 locg=wm_tag("{tloc}")
 locn=wm_tag("{tlocn}")
 locspd=wm_tag("{tlocspd}")
 localt=wm_tag("{tlocalt}")
 locacc=wm_tag("{tlocacc}")
 locnacc=wm_tag("{tlocnacc}")
 var_s_locx=tonumber(locx)
 var_s_locy=tonumber(locy)
 var_s_locg=tonumber(locg)
 var_s_locn=tonumber(locn)
 var_s_locspd=tonumber(locspd)
 var_s_localt=tonumber(localt)
 var_s_locacc=tonumber(locacc)
 var_s_locnacc=tonumber(locnacc)
 memf=wm_tag("{tmemf}")
 cpufreq=wm_tag("{tcpufreq}")
 var_s_memf=tostring(memf)
 var_s_cpufreq=tostring(cpufreq)
 ssid=wm_tag("{twssid}")
 wififreq=wm_tag("{twififreq}")
 var_s_wifi_ssid=tostring(ssid)
 var_s_wifi_band=tostring(wififreq)
 netts=wm_tag("{tnetts}")
 var_s_net_type=tostring(netts)
 smsname=wm_tag("{tsmsrn}")
 smsnum=wm_tag("{tsmsrf}")
 smstime=wm_tag("{tsmsrt}")
 smsdate=wm_tag("{tsmsrd}")
 smsbody=wm_tag("{tsmsfixt}")
 callername=wm_tag("{tcname}")
 callernum=wm_tag("{tcnum}")
 callertime=wm_tag("{tctime}")
 callerdate=wm_tag("{tcdate}")
 callname=wm_tag("{tconame}")
 callnum=wm_tag("{tconum}")
 calltime=wm_tag("{tcotime}")
 calldate=wm_tag("{tcodate}")
 incall=wm_tag("{tincall}")
 var_s_sms_name=tostring(smsname)
 var_s_sms_num=tostring(smsnum)
 var_s_sms_date=tostring(smsdate)
 var_s_sms_time=tostring(smstime)
 var_s_sms_body=tostring(smsbody)
 var_s_caller_name=tostring(callername)
 var_s_caller_num=tostring(callernum)
 var_s_caller_date=tostring(callerdate)
 var_s_caller_time=tostring(callertime)
 var_s_call_name=tostring(callname)
 var_s_call_num=tostring(callnum)
 var_s_call_date=tostring(calldate)
 var_s_call_time=tostring(calltime)
 var_s_incall=tonumber(incall)
 trun=("{ttrun}")
 var_s_trun=tostring(trun)
end
-- Tasker variables to update more than once a second
function tasker_msec()
  var_ms_baro_raw=wm_tag('{tpressure}')
  var_ms_light_raw=wm_tag('{tlight}')
  var_ms_mag_raw=wm_tag('{tmfield}')
  var_ms_gravx_raw=wm_tag('{tgravity1}')
  var_ms_gravy_raw=wm_tag('{tgravity2}')
  var_ms_baro=tonumber(var_ms_baro_raw)
  var_ms_light=tonumber(var_ms_light_raw)
  var_ms_mag=tonumber(var_ms_mag_raw)
  var_ms_gravx=tonumber(var_ms_gravx_raw)
  var_ms_gravy=tonumber(var_ms_gravy_raw)
end
-- #### Sudden pressure detection
var_s_pressure_a = var_ms_baro
var_s_pressure_b = var_ms_baro
var_pressure_range = 1
var_pressure_warning = 0
function setpressure()
 var_s_pressure_a = var_ms_baro
 var_s_pressure_b = var_ms_baro
 var_pressure_range = 1
end
function checkpressure()
 if var_s_pressure_a ~= var_s_pressure_b then
  if var_s_pressure_a >= (var_s_pressure_b + var_pressure_range) then
    var_pressure_warning = 1
    wm_vibrate(100,2)
  elseif var_s_pressure_a <= (var_s_pressure_b - var_pressure_range) then
    var_pressure_warning = -1
    wm_vibrate(50,2)
  else
    var_pressure_warning = 0
  end
 end
end
-- #### New SMS
tasker_sec()
var_sms_basetime = var_s_sms_time

var_newsms = 0
function newsms()
 if var_sms_basetime == var_s_sms_time then
  var_newsms = 0
   else
  var_newsms = 1
 end
end

-- ################
-- Map Functionality
-- ################
var_zoom = 17
var_scale = 40

function mapzoom(z)
 if z == 0 then
  if var_zoom > zoommin then
   var_zoom = var_zoom - 1
  end
 elseif z == 1 then
  if var_zoom < zoommax then
   var_zoom = var_zoom + 1
  end
 end
end
function mapscale(c)
 if c == 0 then
  if var_scale > scalemin then
   var_scale = var_scale - 10
  end
 elseif c == 1 then
  if var_scale < scalemax then
   var_scale = var_scale + 10
  end
 end
end

var_mapmode=0
var_s_poi_lat=0
var_s_poi_lon=0
var_s_lat={alat}
var_s_lon={alon}
var_poi=0
var_s_diff=0
var_s_diff_lat=0
var_s_diff_lon=0
var_s_speed={}
var_s_speed[1]=-1
var_s_speed[2]=-1
var_s_stepstook=-1
var_persecond=0.36666*5
var_s_seed=0

function getrange()
 if tonumber({alon}) > tonumber(var_s_poi_lon) then
  var_s_diff_lon={alon}-var_s_poi_lon
   else
  var_s_diff_lon=var_s_poi_lon-{alon}
 end
 if tonumber({alat}) > tonumber(var_s_poi_lat) then
  var_s_diff_lat={alat}-var_s_poi_lat
   else
  var_s_diff_lat=var_s_poi_lat-{alat}
 end
 if tonumber(var_s_diff_lon)>tonumber(var_s_diff_lat) then
  var_s_diff=var_s_diff_lon-var_s_diff_lat
   else
  var_s_diff=var_s_diff_lat-var_s_diff_lon
 end
end

function addpoi()
 var_s_poi_lat={alat}
 var_s_poi_lon={alon}
 var_poi=1
  wm_schedule { action='run_function', run_function=getrange }
end
function clearpoi()
 var_s_poi_lat=0
 var_s_poi_lon=0
 var_poi=0
  wm_schedule { action='run_function', run_function=getrange }
end

if {alat} == '' then
 var_s_gps_lat=0
 var_s_gps_lon=0
 tweens.lon=var_s_gps_lon
 tweens.lat=var_s_gps_lat
  else
 var_s_gps_lat={alat}
 var_s_gps_lon={alon}
 tweens.lon=var_s_gps_lon
 tweens.lat=var_s_gps_lat
end
var_poi_lat=0
var_poi_lon=0
var_map_ss=5
var_mapss=0
var_poiset=0

function setpoi()
 var_poi_lat={alat}
 var_poi_lon={alon}
 var_poiset=1
 addpoi()
end

function resetpoi()
 var_poi_lat=0
 var_poi_lon=0
 var_poiset=0
 clearpoi()
end

function mapmode()
 if var_mapmode==0 then
  var_mapmode=1 else
  var_mapmode=0
 end
end

function setmapspeed()
 if var_mapss==0 then
  if tonumber(var_s_gps_lon) > tonumber(var_poi_lon) then
   var_diff_lon=var_s_gps_lon-var_poi_lon
    else
   var_diff_lon=var_poi_lon-var_s_gps_lon
  end
  if tonumber(var_s_gps_lat) > tonumber(var_poi_lat) then
   var_diff_lat=var_s_gps_lat-var_poi_lat
    else
   var_diff_lat=var_poi_lat-var_s_gps_lat
  end
 var_diff=var_diff_lat+var_diff_lon
  if tonumber(var_diff)<0.5 and tonumber(var_diff)>0.1 then
   var_map_ss=var_diff*100
   var_mapss=1
    else
   var_map_ss=3
   var_mapss=1
  end
   else
  var_map_ss=3
  var_mapss=0
 end
end

function map_gpstopoi()
 if var_diff < 5.0 and var_diff ~= 0 and var_diff > 0.33 then
  wm_schedule {
{ action='tween', tween='lon', from=var_s_gps_lon, to=var_s_poi_lon, duration=var_map_ss, easing=linear }
}
  wm_schedule {
{ action='tween', tween='lat', from=var_s_gps_lat, to=var_s_poi_lat, duration=var_map_ss, easing=linear } }
  wm_schedule { action='run_function', run_function=mapmode }
   else
  tweens.lon=var_s_poi_lon
  tweens.lat=var_s_poi_lat
   wm_schedule { action='run_function', run_function=mapmode }
 end
end

function map_poitogps()
 if var_diff < 5 and var_diff ~= 0 and var_diff > 0.33 then
  wm_schedule {
{ action='tween', tween='lon', from=var_s_poi_lon, to=var_s_gps_lon, duration=var_map_ss, easing=linear }
}
  wm_schedule {
{ action='tween', tween='lat', from=var_s_poi_lat, to=var_s_gps_lat, duration=var_map_ss, easing=linear },
{ action='run_function', run_function=mapmode },
}
   else
  tweens.lon=var_s_gps_lon
  tweens.lat=var_s_gps_lat
   wm_schedule { action='run_function', run_function=mapmode }
 end
end

function guessspeed()
 if {ds}%10==5 then
  var_s_stepstook=tonumber((var_s_speed[1]-var_s_speed[2])..'.'..var_s_seed)
   elseif {ds}%10==0 then
  var_s_stepstook=tonumber((var_s_speed[2]-var_s_speed[1])..'.'..var_s_seed)
 end
 if tonumber(var_s_stepstook) < 1 then
  var_s_seed=0
   else
  var_s_seed=math.random(0,9)
 end
end

function do_speed()
 if {abright} then
  if {ds}%10==5 then
   var_s_speed[1]={ssc}
   var_time_a={ds}
  elseif {ds}%10==0 then
   var_s_speed[2]={ssc} end
   var_time_a={ds}
elseif not {abright} then
  var_persecond=0.36666*5
  if {ds}%10==5 then
   var_s_speed[1]={ssc}
   var_time_a={ds}
  elseif {ds}%10==0 then
   var_s_speed[2]={ssc} end
   var_time_a={ds}
end
wm_schedule { action='run_function', run_function=guessspeed }
end

function update_loc()
 if {alat} == '' then
  var_s_gps_lat=0
  var_s_gps_lon=0
  tweens.lon=var_s_gps_lon
  tweens.lat=var_s_gps_lat
   else
  var_s_gps_lat={alat}
  var_s_gps_lon={alon}
  tweens.lon=var_s_gps_lon
  tweens.lat=var_s_gps_lat
 end
var_poi_lat=0
var_poi_lon=0
var_map_ss=5
var_mapss=0
var_poiset=0
end

function mapseconds()
   if var_mapmode==0 then
   var_s_gps_lat={alat}
   var_s_gps_lon={alon}
   tweens.lon=var_s_gps_lon
   tweens.lat=var_s_gps_lat
  else
   var_s_lat={alat}
   var_s_lon={alon}
     if tonumber({alon}) > tonumber(var_s_poi_lon) then
     var_s_diff_lon={alon}-var_s_poi_lon
    else
     var_s_diff_lon=var_s_poi_lon-{alon}
     end
   if tonumber({alat}) > tonumber(var_s_poi_lat) then
   var_s_diff_lat={alat}-var_s_poi_lat
  else
   var_s_diff_lat=var_s_poi_lat-{alat}
  end
   if tonumber(var_s_diff_lon)>tonumber(var_s_diff_lat) then
   var_s_diff=var_s_diff_lon-var_s_diff_lat
  else
   var_s_diff=var_s_diff_lat-var_s_diff_lon
  end
 end
wm_schedule { action='run_function', run_function=setmapspeed }
wm_schedule { action='run_function', run_function=getrange }
wm_schedule { action='run_function', run_function=do_speed }
-- wm_schedule { action='run_function', run_function=update_loc }
end

function on_second(h,m,s)
 bpm_map()
 mapseconds()
 tasker_sec()
  if s%20 == 0 then
   checktasker(0)
   checktasker(1)
  end
 if s%5 == 0 then
  var_s_pressure_a = var_ms_baro
 elseif s%5 == 2 then
  var_s_pressure_b = var_ms_baro
 end
 checkpressure()
end



function on_millisecond(dt)
 if var_screen == 8 and var_hasTasker == 1 then
  tasker_msec()
 end
end

function on_minute()
 var_s_gps_lat={alat}
 var_s_gps_lon={alon}
  wm_schedule { action='run_function', run_function=setmapspeed }
 newsms()
end

function on_display_bright()
 newsms()
 var_s_gps_lat={alat}
 var_s_gps_lon={alon}
 tweens.lon=var_s_gps_lon
 tweens.lat=var_s_gps_lat
  wm_schedule { action='run_function', run_function=setmapspeed }
end

setmapspeed()
getrange()
wmtg_tags()
tasker_sec()
tasker_msec()
checktasker(0)
newsms()