Grandure Code

var_mode=0
var_disable=0
var_modecache=0

bbb = 1

var_barol=950
var_baron=1013
var_baroh=1050
var_baroe=1080
var_luxin=400
var_luxout=2000
var_bpm_low = 40
var_bpm_lstd = 60
var_bpm_hstd = 80
var_bpm_high = 120
var_bpm_card = 155
var_step_goal = 13200
var_step_said = 0
var_pbat_said = 0
var_bat_said = 0

var_poiset = 0
var_gps_lon = 0
var_gps_lat = 0
var_s_gps_distance = nil
var_s_distance_x = nil
var_s_distance_y = nil

tweens.font = 2
tweens.panel = 0
var_pos = 0

-- GPS POI Functions

function poi(act)
 if act == 1 then
  var_gps_lon = {alon}
  var_gps_lat = {alat}
  var_poiset = 1
 elseif act == 0 then
  var_gps_lon = 0
  var_gps_lat = 0
  var_poiset = 0
  var_s_gps_distance = nil
  var_s_distance_x = nil
  var_s_distance_y = nil
 elseif act == 3 then
   if math.floor({alon}*100)/100 >= math.floor(var_gps_lon*100)/100 then
     lon = {alon} - var_gps_lon
   elseif math.floor({alon}*100)/100 <= math.floor(var_gps_lon*100)/100 then
    lon = var_gps_lon - {alon}
   end
   if math.floor({alat}*100)/100 >= math.floor(var_gps_lat*100)/100 then
     lat = {alat} - var_gps_lat
   elseif math.floor({alat}*100)/100 <= math.floor(var_gps_lat*100)/100 then
    lat = var_gps_lat - {alat}
   end
    var_s_gps_distance = math.floor((lat + lon)*100)/100
    var_s_distance_x = math.floor((0.5+lon)*100)/100
    var_s_distance_y = math.floor((0.5+lat)*100)/100
 end
end


-- ### UI Functions

function update_tasker()
 var_taskeron=wm_tag('{tgottasker}')
{ddw} 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_screen=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

function mode()
 wm_transition('ScrollFromBottom')
end

-- UI Animations

function panel_tween(dir,mde)
 function modec()
  var_mode = mde
 end
 if dir == 0 then
  wm_schedule {
    { action='run_function', run_function=update_tasker },
   -- { action='tween', tween='panel', from=0, to=1, duration=0.3, easing=linear },
    { action='run_function', run_function=modec },
   }
elseif dir == 1 then
  wm_schedule {
    { action='run_function', run_function=modec },
    { action='run_function', run_function=update_tasker },
  --  { action='tween', tween='panel', from=1, to=0, duration=0.2, easing=inQuad },
   }
 end
end

-- WMTasker settings

var_pause=360
tweens.pause_sec=var_pause

function flip()
 if var_disable==0 then
  var_disable=1 else
  var_disable=0
 end
end

function pausecom()
flip()
 wm_schedule {
  { action='run_function', run_function=update_tasker },
  { action='tween', tween='pause_sec', from=0, to=var_pause, duration=3, easing=inOutExpo },
  { action='run_function', run_function=flip },
 }
end

-- WMTasker

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

function sounds()
  if {bl} < 15 and {bl} > 10 and var_bat_said == 0 then
   var_bat_said = 1
   wm_sfx('wbatlow102')
    elseif {bc} == "Full" and var_bat_said == 0 then
   var_bat_said = 1
   wm_sfx('wbatfull102')
    elseif {bc} == "Discharging" or {bc} == "Charging" and var_bat_said == 1 then
   var_bat_said = 0
  end
  if {pbl} < 15 and {pbl} > 10 and var_pbat_said == 0 then
   var_pbat_said = 1
   wm_sfx('pbatlow102')
    elseif {pbc} == "Full" and var_pbat_said == 0 then
   var_pbat_said = 1
   wm_sfx('pbatfull102')
    elseif {pbc} == "Discharging" or {pbc} == "Charging" and var_pbat_said == 1 then
   var_pbat_said = 0
  end
 if {ssc} > var_step_goal and var_step_said == 0 then
  wm_sfx('stepgoal102')
  var_step_said = 1
 end
 if var_s_heart > var_bpm_card then
  wm_sfx('bpmhigh102')
   elseif var_s_heart < var_bpm_low and var_s_heart ~= 0 then
  wm_sfx('bpmlow102')
 end

end

-- #### On hour

function on_hour(h)
 wm_schedule { action='run_function', run_function=sounds }
 if {dh} == 0 then
  var_step_said = 0
 end
end

-- #### On minute

function on_minute(h, m)
 wm_schedule { action='run_function', run_function=update_tasker }
 wm_schedule { action='run_function', run_function=bpm_map }
 wm_schedule { action='run_function', run_function=sounds }
end

-- ########## Do stuff each second

function on_second(h, m, s)
 if (var_mode > 0 and bbb == 0) then
-- TASKER STUFF
 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}")
 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)
 trun=("{ttrun}")
 var_s_trun=tostring(trun)
end

 if s%10==0 then
  wm_schedule { action='run_function', run_function=update_tasker }
 end

 wm_schedule { action='run_function', run_function=bpm_map }


-- TASKER END

 if (var_poiset == 1 and var_mode == 3 and s%5 == 0) then
  poi(3)
 end
end

-- ########## Do stuff each millisecond

function on_millisecond()
 if (var_mode > 1 and bbb == 0) then
-- TASKER STUFF
  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)
-- TASKER END
 end
end

-- ########## Do stuff on screen bright ############

function on_display_bright()
 var_mode=0
 tweens.panel=0
 bpm()
 update_tasker()
end


-- ########## Do stuff on screen dim ############

function on_display_not_bright()
 var_modecache=var_mode
 var_mode=0
 update_tasker()
end

-- Do stuff each load

bpm_map()
update_tasker()