; Code by Christian Geissler, 2006
; license: Public Domain

AppTitle "CG Simple Shutdown 1.0"

Graphics 300,55,32,2
SetBuffer BackBuffer()
ClsColor 255,255,255

f1 = LoadFont("Arial",16)
f2 = LoadFont("Arial",20,True)

Color 0,0,0
Cls
SetFont f1

Global Mode ; Countmode
Global Time% ; Current Time
Global Shutdowntime% ; Time when Shutdown starts

Text 150, 5, "0 quit | 1 countdown | 2 time | 3 random", 1
Locate 85,30
Repeat
   Mode = Int(Input ("Please enter mode: "))
   If Mode = 0 End
Until Mode>=1 And Mode <=3

Cls
Locate 5,5

Select Mode
   Case 1
      Print "Mode: countdown"
      Locate 5,25
      Shutdowntime% = ReturnMS(Input("Countdown, format [H:M:S]: "))
      Shutdowntime% = Shutdowntime% + MilliSecs()
   Case 2
      Print "Mode: time"
      Locate 5,25
      TmpTime$ = Input("Time, format [H:M:S]: ")
      Shutdowntime%  = ReturnMS(TmpTime) - ReturnMS(CurrentTime())
      If Shutdowntime <= 0 Shutdowntime% = ReturnMS(TmpTime) - ReturnMS(CurrentTime()) + 24*60*60*1000
      Shutdowntime% = Shutdowntime% + MilliSecs()
   Case 3
      Print "Mode: random"
      Locate 5,19
      tmp1 = Float(Input("Min. minutes: "))
      Locate 5,32
      tmp2 = Float(Input("Max. minutes: "))
      Shutdowntime% = Int( Rnd(tmp1,tmp2) * 1000 * 60 )
      Shutdowntime% = Shutdowntime% + MilliSecs()
End Select

Global Shutdown = False

Shutdowntime = Shutdowntime + Time



Repeat
   Time = MilliSecs()
   Cls
   SetFont f2
   Text 150,2,"Still remaining: "+ReturnTimeString$((Shutdowntime-Time)),1
   SetFont f1
   Text 150,20,"Esc      - to quit without shutdown",1
   Text 150,34,"Spacebar - shutdown immediately",1
   Flip
   Delay 1000
   
   If KeyHit(1) End
   If KeyHit(57) Shutdown = True
   

   If Time>Shutdowntime Shutdown = True

Until Shutdown


ExecFile ("shutdown -s -f -t 00")
End


;Functions


      Function ReturnMS%(TimeString$)
         pos1 = Instr(TimeString$, ":")
         pos2 = Instr(TimeString$, ":", pos1+1)
         
         
         h = Mid(TimeString$, 1, 2)
         If pos1 m = Mid(TimeString$, pos1+1, 2)
         If pos2 s = Mid(TimeString$, pos2+1, 2)
         
         h = h Mod 24
         m = m Mod 60
         s = s Mod 60
         
         Return (( h * 60 + m ) * 60 + s ) * 1000
      End Function
      
      
      Function ReturnTimeString$(MS%)
         s = Floor ( MS / 1000 )
         m = m + Floor(s / 60)
         h = h + Floor(m / 60)
         d = Floor ( h / 24 )
      
         h = h Mod 24
         m = m Mod 60
         s = s Mod 60
         Return (h+"h:"+m+"m:"+s+"s")
      End Function

Ausführen->shutdown -s -f -t 1200

shutdown -s -f -t 1200