[EasyUO] Funzione Timer

[Drael]

Ecco una sub che può essere utile per i vostri script:

; =============================
; == Funzione Timer by Drael ==
; =============================
; = Autore: Drael   ===========
; = Versione: 1     ===========
; =============================

; ---------- Istruzioni -----------
; - Dopo il GoSub Timer dovete    -
; - inserire dei valori a seconda -
; - dei vostri bisogni:           -
; - S|M|H  Quale operatore usare? -
; - S = Secondi                   -
; - M = Minuti                    -
; - H = Ore                       -
; - GoSub Timer H 1 Y             -
; - Significa di attendere 1 ora  -
; - GoSub Timer M 1 Y             -
; - Significa di attendere 1 min  -
; - GoSub Timer S 1 Y             -
; - Significa di attendere 1 sec  -
; ---------------------------------
; - 1 è il tempo da attendere     -
; - GoSub Timer M 12 Y            -
; - Significa attendi 12 minuti   -
; ---------------------------------
; - Y|N Visualizzare il menu?     -
; - Y = Si, visualizza il menu    -
; - N = No, non visualizza il menu-
; - Serve se si vuole mostrare il -
; - menu che riporta il tempo     -
; - rimanente.                    -
; ---------------------------------
;GoSub Timer S|M|H 1 Y|N
Sub Timer
  Set %Mode %1
  Set %Wait %2
  Set %Menu %3
  Set %SecondiAttesi 00
  Set %MinutiAttesi 00
  Set %OreAttese 00
  If %Mode = S
  {
     Set %MenuMode Secondi
     Set %SecondiAttesi %Wait
     If %Wait = 1
     {
        Set %MenuMode Secondo
     }
  }
  If %Mode = M
  {
     Set %MenuMode Minuti
     Set %SecondiAttesi 1
     Set %MinutiAttesi %Wait
     If %Wait = 1
     {
        Set %MenuMode Minuto
     }
  }
  If %Mode = H
  {
     Set %MenuMode Ore
     Set %SecondiAttesi 1
     Set %MinutiAttesi 1
     Set %OreAttese %WAit
     If %Wait = 1
     {
        Set %MenuMode Ora
     }
  }
  If %Menu = Y
  {
  menu clear
  menu window title Drael's Timer
  menu window size 180 55
  menu window color black
  menu font name arial
  menu font size 12
  menu font color Red
  menu font bgcolor black
  menu text title 5 5 Tempo Residuo:
  menu font size 14
  menu font color lime
  menu text label1 5 25 --.--.--
  menu show
  }
  loop:
  If %Mode = S
  {
    Set %SecondiAttesi %SecondiAttesi - 1
    IF %SecondiAttesi = 0
    {
       Menu Hide
       Return
    }
  }
  If %Mode = M
  {
    Set %SecondiAttesi %SecondiAttesi - 1
    IF %SecondiAttesi = 0
    {
       Set %SecondiAttesi 59
       Set %MinutiAttesi %MinutiAttesi - 1
       If %MinutiAttesi = -1
       {
          Menu Hide
          Return
       }
    }

  }
  If %Mode = H
  {
    Set %SecondiAttesi %SecondiAttesi - 1
    IF %SecondiAttesi = 0
    {
       Set %SecondiAttesi 59
       Set %MinutiAttesi %MinutiAttesi - 1
       If %MinutiAttesi <= 0
       {
          Set %MinutiAttesi 59
          Set %OreAttese %OreAttese - 1
          If %OreAttese = -1
          {
             Menu Hide
             Return
          }
       }
    }

  }
  Set %OreAtteseMenu %OreAttese
  Set %MinutiAttesiMenu %MinutiAttesi
  Set %SecondiAttesiMenu %SecondiAttesi
  If %OreAtteseMenu in 1_2_3_4_5_6_7_8_9_0
     Set %OreAtteseMenu 0 . %OreAttese
  If %MinutiAttesiMenu in 1_2_3_4_5_6_7_8_9_0
     Set %MinutiAttesiMenu 0 . %MinutiAttesi
  If %SecondiAttesiMenu in 1_2_3_4_5_6_7_8_9_0
     Set %SecondiAttesiMenu 0 . %SecondiAttesi
  Set %LabelMenu %OreAtteseMenu , #Dot , %MinutiAttesiMenu , #Dot , %SecondiAttesiMenu
  menu delete label1
  menu text label1 5 25 %LAbelMenu
  Wait 1s
  GoTo Loop

  ;======= Fine, Drael's Timer Script =========
  ;============================================

[Duku]

Grazie per aver postato questo script! Mi serviva proprio

Ti volevo soltanto chiedere una cosa.. Il conteggio è perfetto, soltanto che alla fine non riprende lo script dal punto in cui l'ho inserito, è come se non "leggesse" il comando return.. Non sono affatto un esperto, ma ho ovviato inserendo un gotom e sembra andare.. Posso lasciarlo così, oppure c'è un modo migliore per sistemarlo? Grazie ancora

EDIT: Ho capito, ha problemi se usato in script che possiedono già una finestra-menu.. E' possibile ovviare in qualche modo, o devo rinunciare a questa favolosa utility?