----- TWEEN SETTINGS -----

tweens.faceL=-128
tweens.faceR=128
tweens.hour=0
tweens.minute=0
tweens.second=0
tweens.hourR={drh}
tweens.minuteR={drm}
tweens.secondR={drs}
tweens.shadow=50
tweens.swr=102
tweens.sws=-99
tweens.timeL=0
tweens.timeR=0


----- VARIABLE SETTINGS -----

count=0
var_date=0
var_sound=true
var_sechand=true
var_info=false
var_calendar=false
var_sw=false
var_inf=0
var_cal=0
lan=1


----- FUNCTIONS -----

function var_lang(x)
if x==1 then
   var_days=  {"Mon","Tue","Wed","Thu","Fri","Sat","Sun","Now"}
   var_date=0
 else
   var_days= {"Maa","Din","Woe","Don","Vrij","Zat","Zon","Nu"}
   var_date=1
end
end

var_lang(lan)


function on_millisecond()
if var_sw then tweens.secondR={swrss} end
end


function on_second()
if not {abright} then
   tweens.faceL=-128
   tweens.faceR=128
   tweens.hour=0
   tweens.minute=0
   tweens.second=0
   var_sw=false
   reset_vars()
end
if var_sw then
   tweens.hourR={swh}*30
   tweens.minuteR={swm}*6
 else
   tweens.hourR={drh}
   tweens.minuteR={drm}
   tweens.secondR={ds}*6
end
if var_inf==2 or var_cal==2 then
   if var_sw then
      var_ds={swrs} var_dm={swrm} var_dh={swrh}
    else
      var_ds={drs} var_dm={drm} var_dh={drh}
   end
   if count==0 then var_close() end
   count=count+1
   if count==4 then
      if var_sound then wm_sfx('bb878') end
      var_tween('faceL',-132,-128,0.1,linear)
      var_tween('faceR',132,128,0.1,linear)
      var_tween('timeR',4,0,0.1,linear)
      var_tween('timeL',-4,0,0.1,linear)
      var_tween('swr',106,102,0.1,linear)
      var_tween('sws',-99,-95,0.1,linear)
   end
   if count>4 then reset_vars()
end
end
if var_sound then
 if {dm}==15 and {ds}<1 then wm_sfx('bb101') end
 if {dm}==30 then
  if {ds}<1 then wm_sfx('bb101') end
  if {ds}==5 then wm_sfx('bb102') end
 end
 if {dm}==45 then
  if {ds}<1 then wm_sfx('bb101') end
  if {ds}==5 then wm_sfx('bb102') end
  if {ds}==9 then wm_sfx('bb103') end
 end
 if {dm}==59 then
  if {ds}==41 then wm_sfx('bb101') end
  if {ds}==46 then wm_sfx('bb102') end
  if {ds}==50 then wm_sfx('bb103') end
  if {ds}==54 then wm_sfx('bb104') end
 end
 if {dm}==0 then 
  if {ds}==0 then wm_sfx('bb198') end
  if {ds}==2 and {dh}>1 then wm_sfx('bb198') end
  if {ds}==4 and {dh}>2 then wm_sfx('bb198') end
  if {ds}==6 and {dh}>3 then wm_sfx('bb198') end
  if {ds}==8 and {dh}>4 then wm_sfx('bb198') end
  if {ds}==10 and {dh}>5 then wm_sfx('bb198') end
  if {ds}==12 and {dh}>6 then wm_sfx('bb198') end
  if {ds}==14 and {dh}>7 then wm_sfx('bb198') end
  if {ds}==16 and {dh}>8 then wm_sfx('bb198') end
  if {ds}==18 and {dh}>9 then wm_sfx('bb198') end
  if {ds}==20 and {dh}>10 then wm_sfx('bb198') end
  if {ds}==22 and {dh}>11 then wm_sfx('bb198') end
 end
end
end


function var_open()
   if var_sound then wm_sfx('bb318') end
   var_tween('faceL',-128,-394,2,linear)
   var_tween('faceR',128,394,2,linear)
   var_tween('hour',0,xh,2.2,linear)
   var_tween('minute',0,xm,2.2,linear)
   var_tween('second',0,xs,2.2,linear)
   var_tween('shadow',70,0,1.5,linear)
   var_tween('swr',102,368,2,linear)
   var_tween('sws',-95,-361,2,linear)
   var_tween('timeR',0,266,2,linear)
   var_tween('timeL',0,-266,2,linear)
end

function var_close()
   if var_sound then wm_sfx('bb318') end
   var_tween('faceL',-394,-132,2,linear)
   var_tween('faceR',394,132,2,linear)
   var_tween('hour',xh,0,2,linear)
   var_tween('minute',xm,0,2,linear)
   var_tween('second',xs,0,2,linear)
   var_tween('shadow',-50,70,2,linear)
   var_tween('swr',368,106,2,linear)
   var_tween('sws',-361,-99,2,linear)
   var_tween('timeR',266,4,2,linear)
   var_tween('timeL',-266,-4,2,linear)
end


function var_hands()
if var_sw then
   var_tween('hourR',{drh},{swh}*30,1,linear)
   var_tween('minuteR',{drm},{swm}*6,1,linear)
   var_tween('secondR',{ds}*6,{swrss}+6,1,linear)
 else
   var_tween('hourR',{swh}*30,{drh},1,linear)
   var_tween('minuteR',{swm}*6,{drm},1,linear)
   var_tween('secondR',{swrss},{ds}*6+6,1,linear)
end
end

function var_handsreset()
var_tween('hourR',{swh}*30,0,1,linear)
var_tween('minuteR',{swm}*6,0,1,linear)
var_tween('secondR',{swrss},0,1,linear)
count=count+1
if count==1 then wm_action('sw_reset') count=0 end
end


function var_dimensions()
if var_sw then
   if {swh}>11 or {swh}<6 then xh=300 else xh=-300 end
   if {swm}<30 then xm=300 else xm=-300 end
   if {sws}<30 then xs=300 else xs=-300 end
 else
   if {dh}>11 or {dh}<6 then xh=300 else xh=-300 end
   if {dm}<30 then xm=300 else xm=-300 end
   if {ds}<30 then xs=300 else xs=-300 end
end
end


function reset_vars()
var_info=false
var_inf=0
var_calendar=false
var_cal=0
count=0
tweens.swr=102
tweens.sws=-95
tweens.timeL=0
tweens.timeR=0
end


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