function I2Z takes integer i returns string
 if (i>9) then 
   return "0"+I2S(i)
 else 
   return I2S(i)
 endif
endfunction

function GetMyTime takes nothing returns string
set udg_TimeStamp = ( udg_TimeStamp + 1 )
return I2Z(udg_TimeStamp/3600)+":" +I2Z(ModuloInteger(udg_TimeStamp/60,60))+":"+I2Z(ModuloInteger(udg_TimeStamp,60))
endfunction

function InitMyTime takes nothing returns nothing
//-------Next integer init

set udg_N[0] = 1
...............................................
...............................................
..............................................
set udg_N[3595] = 3596
set udg_N[3596] = 3597
set udg_N[3597] = 3598
set udg_N[3598] = 3599
set udg_N[3599] = 0

//-------The special mark
set udg_N[3600] = 1

//-------string MinSec init 00:00 - 59:59
set udg_ToS[0] = "00:00"
set udg_ToS[1] = "00:01"
........................................................
........................................................
........................................................
set udg_ToS[3597] = "59:57"
set udg_ToS[3598] = "59:58"
set udg_ToS[3599] = "59:59"

//-------string Hours init 00-23
set udg_ToS[3600] = "00:"
set udg_ToS[3601] = "01:"
set udg_ToS[3602] = "02:"
.......................................
......................................
......................................
set udg_ToS[3622] = "22:"
set udg_ToS[3623] = "23:"
endfunction

function GetMyTime takes nothing returns string
 set udg_MinSec=udg_N[udg_MinSec]
 set udg_Hour=udg_Hour + udg_N[3600 + udg_MinSec]
 return udg_ToS[3600 + udg_Hour] + udg_ToS[udg_MinSec]
endfunction

function InitMyTime takes nothing returns nothing
//-------Next integer init

set udg_N[0] = 1
set udg_N[1] = 2
set udg_N[2] = 3
set udg_N[3] = 4
set udg_N[4] = 5
set udg_N[5] = 6
set udg_N[6] = 7
set udg_N[7] = 8
set udg_N[8] = 9
set udg_N[9] = 10
set udg_N[10] = 11
set udg_N[11] = 12
set udg_N[12] = 13
set udg_N[13] = 14
set udg_N[14] = 15
set udg_N[15] = 16
set udg_N[16] = 17
set udg_N[17] = 18
set udg_N[18] = 19
set udg_N[19] = 20
set udg_N[20] = 21
set udg_N[21] = 22
set udg_N[22] = 23
set udg_N[23] = 24
set udg_N[24] = 25
set udg_N[25] = 26
set udg_N[26] = 27
set udg_N[27] = 28
set udg_N[28] = 29
set udg_N[29] = 30
set udg_N[30] = 31
set udg_N[31] = 32
set udg_N[32] = 33
set udg_N[33] = 34
set udg_N[34] = 35
set udg_N[35] = 36
set udg_N[36] = 37
set udg_N[37] = 38
set udg_N[38] = 39
set udg_N[39] = 40
set udg_N[40] = 41
set udg_N[41] = 42
set udg_N[42] = 43
set udg_N[43] = 44
set udg_N[44] = 45
set udg_N[45] = 46
set udg_N[46] = 47
set udg_N[47] = 48
set udg_N[48] = 49
set udg_N[49] = 50
set udg_N[50] = 51
set udg_N[51] = 52
set udg_N[52] = 53
set udg_N[53] = 54
set udg_N[54] = 55
set udg_N[55] = 56
set udg_N[56] = 57
set udg_N[57] = 58
set udg_N[58] = 59
set udg_N[59] = 0


//-------The special mark
set udg_N[60] = 1

//-------string MinSec init 00:00 - 59:59
set udg_ToS[0] = "00"
set udg_ToS[1] = "01"
set udg_ToS[2] = "02"
set udg_ToS[3] = "03"
set udg_ToS[4] = "04"
set udg_ToS[5] = "05"
set udg_ToS[6] = "06"
set udg_ToS[7] = "07"
set udg_ToS[8] = "08"
set udg_ToS[9] = "09"
set udg_ToS[10] = "10"
set udg_ToS[11] = "11"
set udg_ToS[12] = "12"
set udg_ToS[13] = "13"
set udg_ToS[14] = "14"
set udg_ToS[15] = "15"
set udg_ToS[16] = "16"
set udg_ToS[17] = "17"
set udg_ToS[18] = "18"
set udg_ToS[19] = "19"
set udg_ToS[20] = "20"
set udg_ToS[21] = "21"
set udg_ToS[22] = "22"
set udg_ToS[23] = "23"
set udg_ToS[24] = "24"
set udg_ToS[25] = "25"
set udg_ToS[26] = "26"
set udg_ToS[27] = "27"
set udg_ToS[28] = "28"
set udg_ToS[29] = "29"
set udg_ToS[30] = "30"
set udg_ToS[31] = "31"
set udg_ToS[32] = "32"
set udg_ToS[33] = "33"
set udg_ToS[34] = "34"
set udg_ToS[35] = "35"
set udg_ToS[36] = "36"
set udg_ToS[37] = "37"
set udg_ToS[38] = "38"
set udg_ToS[39] = "39"
set udg_ToS[40] = "40"
set udg_ToS[41] = "41"
set udg_ToS[42] = "42"
set udg_ToS[43] = "43"
set udg_ToS[44] = "44"
set udg_ToS[45] = "45"
set udg_ToS[46] = "46"
set udg_ToS[47] = "47"
set udg_ToS[48] = "48"
set udg_ToS[49] = "49"
set udg_ToS[50] = "50"
set udg_ToS[51] = "51"
set udg_ToS[52] = "52"
set udg_ToS[53] = "53"
set udg_ToS[54] = "54"
set udg_ToS[55] = "55"
set udg_ToS[56] = "56"
set udg_ToS[57] = "57"
set udg_ToS[58] = "58"
set udg_ToS[59] = "59"
set udg_ToS[60] = "00"
endfunction

function GetMyTime takes nothing returns string
 set udg_Sec=udg_N[udg_Sec]

 set udg_Min=udg_Min + udg_N[60 + udg_Sec]

 set udg_Hour=udg_Hour + udg_N[ 120 - udg_Min]

 set udg_Min=udg_N[udg_Min-1]

 return udg_ToS[udg_Hour]+":"+udg_ToS[udg_Min]+":"+udg_ToS[udg_Sec]
endfunction

function InitMyTime takes nothing returns nothing
local integer i
local integer j
local integer t
//-------Next integer init
    set i = 0
    loop
        exitwhen i > 3558
        set udg_N[i] = i + 1 
        set i = i + 1
    endloop

set udg_N[3599] = 0

//-------The special mark
set udg_N[3600] = 1

//-------string Hours init 00-23

set udg_ToS[3600] = "00"
set udg_ToS[3601] = "01"
set udg_ToS[3602] = "02"
set udg_ToS[3603] = "03"
set udg_ToS[3604] = "04"
set udg_ToS[3605] = "05"
set udg_ToS[3606] = "06"
set udg_ToS[3607] = "07"
set udg_ToS[3608] = "08"
set udg_ToS[3609] = "09"

//-------string MinSec init 00:00 - 59:59

set udg_ToS[0] = "00"
set udg_ToS[1] = "01"
set udg_ToS[2] = "02"
set udg_ToS[3] = "03"
set udg_ToS[4] = "04"
set udg_ToS[5] = "05"
set udg_ToS[6] = "06"
set udg_ToS[7] = "07"
set udg_ToS[8] = "08"
set udg_ToS[9] = "09"

    set i = 10
    loop
        exitwhen i > 59
        set udg_ToS[i] = I2S(i)
        set udg_ToS[3600+i] = set udg_ToS[i]
        set i = i + 1
    endloop

   set t = 3599

    set i = 59
    loop
        set j = 59
         loop
           set udg_ToS[t] = ":"+udg_ToS[i]+":"+udg_ToS[j]
          
           set j = j - 1
           set t = t - 1
           exitwhen j == -1
        endloop
        set i = i - 1
       exitwhen i == -1
    endloop

endfunction


function GetMyTime takes nothing returns string
 set udg_MinSec=udg_N[udg_MinSec]
 set udg_Hour=udg_Hour + udg_N[3600 + udg_MinSec]
 return udg_ToS[3600 + udg_Hour] + udg_ToS[udg_MinSec]
endfunction

local integer T[0] = CFG_I("Seconds") 
    local integer T[1] = CFG_I("Minutes")
    local integer T[2] = CFG_I("Hours"  )
    local integer p = 1 
    // Это признак переноса из предыдущего в следующий разряд  
    // Мы сразу делаем равным единице. чтобы Seconds=Seconds + p 
    local integer i=0 

    local string Time = "> "

    // Обратите внимание! В исходном примере содержится ошибка! Нет роверки на то, 
    // что часы будут больше 24! Поэтому этот код является оптимизированной   
    // версией исходного, причем с такой же ошибкой!

   loop
        exitwhen i > 2

        set T[i] = T[i] + p  // Учитываем перенос из предыдущего разряда
        set p = IMaxBJ (T[i]-59, 0) 
        // Новое значение переноса
        // если я правильно понял АПИ - IMaXBJ  - вернет максимум          
        // между T[i]-59 и 0

        set T[i] = T[i]*(1-p) 
        // если принак переноса взвелся -обнуляем текущий разряд

 
        if T[i]<10 then Time = ":0" + I2S(T[i]) + Time
        else    Time = ":" + I2S(T[i]) + Time
        endif

         set i = i + 1
    endloop

      
    set Time = " <"+ SubString(Time, 1, 11) 
    // Это расплата за то, что у нас в цикле лишнее
    // ведущее двоеточие перед числом
                                                              
   
    call I_CFG("Seconds", T[0] )
    call I_CFG("Minutes", T[1] )
    call I_CFG("Hours"  , T[2]   )

    call StoreString(ИГРОВАЯ_КОНСТАНТА,"CFG","Time",Time)

    set  T = null // Массив обнулять легко!
    set  i = null
    set  p = null
    set  Time = null
endfunction

set i = 10
    loop
        exitwhen i > 59
        set udg_ToS[i] = I2S(i)
        set udg_ToS[3600+i] = set udg_ToS[i]
        set i = i + 1
    endloop

set i = 10
    loop
        exitwhen i > 59
        set udg_ToS[i] = I2S(i)
        set udg_ToS[3600+i] = I2S(i)
        set i = i + 1
    endloop

loop
        exitwhen i > 2
        set T[i] = T[i] + p  // Учитываем перенос из предыдущего разряда
        set p = IMaxBJ (T[i]-59, 0) 
        set T[i] = T[i]*(1-p) 
        if T[i]<10 then Time = ":0" + I2S(T[i]) + Time
        else    Time = ":" + I2S(T[i]) + Time
        endif
         set i = i + 1
    endloop

local integer T[0] = CFG_I("Seconds") 
    local integer T[1] = CFG_I("Minutes")
    local integer T[2] = CFG_I("Hours"  )