---------------------------------------------------
--                  Initiate variables
---------------------------------------------------
var_lan=2       -- English
var_datum=1     -- Continental
var_24=true     -- 24 hour display
var_col=5       -- Tutanchamon
var_goal=10000  -- Steps goal
var_max=25      -- Moves in Simon game

var_menu=false
var_seconds=false
var_colours=5
var_count=0
var_s_count=0
var_timeset=0
var_fade=0
var_steps=-1
var_page=0
var_gpage=0
var_spage=0
var_ipage=1
if {wm}=='C' then var_metric=true else var_metric=false end
var_langs=7
var_night=false
var_sensors=false

var_level=1
var_player=1
var_number=15
var_start=15
var_subtract=3
var_watch=0
var_me=0
var_new=100
var_nice=0
var_turn=1

var_rep=0
var_zoom=17
var_enlarge=false
var_hor=0
var_vert=0

tweens.show=0
tweens.diafragma=-45
tweens.box=250
tweens.button=170
tweens.fadeB=100
tweens.maplogo=100
tweens.rotateL=180



---------------------------------------------------
--                  Timer
---------------------------------------------------

function var_counter()
if var_timerrun then
   if var_s_count>0 then
      var_s_count=var_newtime - var_setoldtime()
    else
      wm_vibrate(100,20)
      wm_sfx('bell118')
      if var_rep>0 then
         if var_rep<3 then var_rep=var_rep-1 end
         var_s_count=var_timeset
         var_newtime=var_setoldtime()+var_timeset
       else
         var_timerrun=false
         var_s_count=0
      end
   end
end
return(var_rep)
end

function var_setoldtime()
return({ddw0}*24*3600 + {dh24}*3600 + {dm}*60 + {ds})
end


---------------------------------------------------
--                  Per second
---------------------------------------------------

function on_second()

if var_fade>0 then
   var_fade=var_fade-1
   if var_fade==0 then
      if var_menu then var_tween("diafragma",-18,-45,1) end
      var_reset()
   end
end

if not {abright} then
   if var_show then
      tweens.show=0
      var_reset()
   end
   tweens.diafragma=-50
   tweens.logos=0
end
end


---------------------------------------------------
--                  Animation routine
---------------------------------------------------

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


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


---------------------------------------------------
--                  Reset
---------------------------------------------------

function var_reset()
var_agenda=false
var_weather=false
var_stopwatch=false
var_sensors=false
if var_enlarge then var_map() end
var_device=false
var_settings=false
var_game=false
var_timer=false
var_launch=false
var_show=false
var_menu=false
var_spage=0
var_ipage=1
end

var_reset()


function var_map()
if var_enlarge then
   var_enlarge=false
   var_tween("box",520,250,1.5)
   var_tween("button",130,170,2.5)
   var_tween("fadeB",30,100,2.5)
   var_tween("fadeC",30,0,2)
   var_tween("maplogo",0,100,2)
   var_tween("rotateR",-90,0,2)
   var_tween("rotateL",90,180,2)
 else
   var_enlarge=true
   var_tween("box",250,520,1.5)
   var_tween("button",170,130,2.5)
   var_tween("fadeB",100,30,2.5)
   var_tween("fadeC",-50,30,2.5)
   var_tween("maplogo",100,0,2)
   var_tween("rotateR",0,-90,2)
   var_tween("rotateL",180,90,2)
end
end


---------------------------------------------------
--                  Colour Profiles
---------------------------------------------------

var_background = {"07052c", "1d0003", "042115", "1b1b1b", "190028"}

var_back ={"b2dff0", "dbdcbc", "d8fff4", "f0f0f0", "e3ccf3"}

var_foreground = {"65afcb", "b27878", "8b873f", "bcbcbc", "d59d5e"}

var_textcol={"b9d2ea", "b9d2ea", "b9d2ea", "b9d2ea", "b9d2ea"}


---------------------------------------------------
--                  Text files
---------------------------------------------------

function var_languages(lan)

if lan==1 then
var_lang="Nederlands"

var_days={"Zondag", "Maandag", "Dinsdag", "Woensdag", "Donderdag", "Vrijdag", "Zaterdag","Nu"}
var_agendatext={"Vandaag geen verdere afspraken"}
var_gametext={"Jij", "Jij wint", "Jij verliest"}
var_timertext={"Herhalingen:"}
var_weathertext={"vandaag", "Temperaturen", "Weersvoorspelling"}
var_sensortext={ "Alternatieve stappen", "Longitude", "Latitude"}
var_launchtext={"Zoek" .. string.char(10) .. "telefoon", "Nacht" .. string.char(10) .. "modus"}
var_colourtext={"Oceaan", "Robijn", "Casino", "Antraciet", "Toetanchamon"}
end

if lan==2 then
var_lang="English"

var_days={"Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday","Now"}
var_agendatext={"No further appointments for today"}
var_gametext={"You", "You win", "You lose"}
var_timertext={"Repeats:"}
var_weathertext={"today", "Temperatures", "Weather forecast"}
var_sensortext={ "Alternative steps", "Longitude", "Latitude"}
var_launchtext={"Find" .. string.char(10) .. "phone", "Night" .. string.char(10) .. "mode"}
var_colourtext={"Ocean", "Rubin", "Casino", "Anthracene", "Tutankhamun"}
end

if lan==3 then
var_lang="Français"

var_days={"Dimanche", "Lundi", "Mardi", "Mercredi", "Jeudi", "Vendredi", "Samedi","Maintenant"}
var_agendatext={"Pad d'autres rendez-vous" .. string.char(10) .. "aujourd'hui"}
var_gametext={"Vous", "Vous gagnez", "Vous perdez"}
var_timertext={"Répétitions:"}
var_weathertext={"aujour d'hui", "Temperatures", "Prévision météo"}
var_sensortext={ "Étapes alternatives", "Longitude", "Latitude"}
var_launchtext={"Trouve" .. string.char(10) .. "telephone", "Mode" .. string.char(10) .. "de nuit"}
var_colourtext={"Océan", "Rubis", "Casino", "Anthracite", "Toutânkhamon"}
end

if lan==4 then
var_lang="Deutsch"

var_days={"Sonntag", "Montag", "Dienstag", "Mittwoch", "Donnerstag", "Freitag", "Samstag","Jetzt"}
var_agendatext={"Keine weiteren Terminen für heute"}
var_gametext={"Du", "Du winst", "Du verliert"}
var_timertext={"Wiederhohlungen:"}
var_weathertext={"heute", "Temperaturen", "Wettervorhersage"}
var_sensortext={ "Alternative schritten", "Longitude", "Latitude"}
var_launchtext={"Suche" .. string.char(10) .. "Telefon", "Nacht" .. string.char(10) .. "modus"}
var_colourtext={"Ozean", "Rubin", "Kasino", "Antracit", "Tutanchamun"}
end

if lan==5 then
var_lang="Русский"

var_days={"Воскрес.", "Понедель.", "Вторник", "Среда", "Четверг", "Пятница", "Суббота","Сейчас"}
var_agendatext={"Ничего не запланировано"}
var_gametext={"Вы", "Вы выиграли", "Вы проиграли"}
var_timertext={"Повторы:"}
var_weathertext={"сегодня", "Температуры", "Прогноз погоды"}
var_sensortext={ "Альтернативные шаги", "Долгота", "Широта"}
var_launchtext={"Найти" .. string.char(10) .. "телефон", "Ночная" .. string.char(10) .. "мода"}
var_colourtext={"Океан", "Рубин", "Казино", "Антрацит", "Тутанхамон"}
end

if lan==6 then
var_lang="Español"

var_days={"Domingo", "Lunes", "Martes", "Miércoles", "Jueves", "Viernes", "Sábado","Ahora"}
var_agendatext={"No hay más citas de hoy"}
var_gametext={"Usted", "Usted ganó", "Usted ha perdido"}
var_timertext={"Repeticiones:"}
var_weathertext={"hoy", "Temperaturas", "Pronóstico del tiempo"}
var_sensortext={ "Pasos alternativos", "Longitud", "Latitud"}
var_launchtext={"Encontrar" .. string.char(10) .. "téléfono", "Modo" .. string.char(10) .. "nocturno"}
var_colourtext={"Océano", "Rubi", "Casino", "Antracita", "Tutankamón"}
end

if lan==7 then
var_lang="Italiano"

var_days={"Domenica", "Lunedi", "Martedi", "Mercoledì", "Giovedi", "Venerdì", "Sabato","Adesso"}
var_agendatext={"Nessun ulteriore appuntamento per oggi"}
var_gametext={"Voi", "Hai vinto", "Hai perso"}
var_timertext={"Ripetizioni:"}
var_weathertext={"oggi", "Temperature", "Previsioni del tempo"}
var_sensortext={ "Passaggi alternativi", "Longitudine", "Latitudine"}
var_launchtext={"Trovare" .. string.char(10) .. "telefono", "Modalità" .. string.char(10) .. "notturna"}
var_colourtext={"Oceano", "Rubino", "Casinò", "Antracite", "Tutankhamon"}
end

if lan==8 then
var_lang="中国"

var_days={"星期天", "星期一", "星期二", "星期三", "星期四", "星期五", "星期六","现在"}
var_agendatext={"今天没有进一步的约会"}
var_gametext={"您", "你赢了", "你失去了"}
var_timertext={"重复"}
var_weathertext={"今天", "温度", "天气预报"}
var_sensortext={"替代措施", "经度", "纬度"}
var_launchtext={"看手机", "夜间模式"}
var_colourtext={"海洋", "红宝石", "赌场", "无烟煤色", "图坦卡门"}
end

end

var_languages(var_lan)


---------------------------------------------------
--                  Simon
---------------------------------------------------

function var_startsimon()
var_new=0
var_cross=0
var_nice=0
var_v=0
var_setsimon(10)
var_createarray(var_max)
var_tap=1
var_turn=1
var_play=true
var_playsimon(1)
end


function var_createarray(n)
var_simon = {"s" .. math.random(4)}
for i=2,n do
   table.insert(var_simon,"s" .. math.random(4))
end
end

var_createarray(var_max)


function var_playsimon(t)
du=.3
sl=.2
pa=1
for i=1,t do
wm_schedule{
    {action='sleep', sleep=i*pa},
   {action='tween', tween=var_simon[i], from=200, to=10, duration=du, easing=linear},
   {action='sleep', sleep=sl},}
end
end



function var_setsimon(o)
tweens.s1=o
tweens.s2=o
tweens.s3=o
tweens.s4=o
end

var_setsimon(100)



function var_resetgame()
var_play=false
var_turn=1
var_tap=1
var_v=0
var_cross=0
var_nice=0
var_new=100
var_setsimon(100)
end