Камрад
|
begin _chronomtr
Short OnPCEquip
short Thour
float Ghour
float FHour
short Tmin
float Gmin
;;;;hours 24 to 1
set thour to gamehour
if ( Thour <= GameHour )
set Ghour to ( GameHour - THour )
else
set Ghour to ( THour - GameHour )
endif
if ( GHour >= 0.5 )
set FHour to ( GameHour - 1 )
else
set FHour to GameHour
endif
;;;;mins
set minutes to ( ghour * 60 )
set tmin to minutes
set gmin to ( minutes - tmin )
;;;;display
if ( OnPCEquip == 1 )
If (Month == 0)
messagebox, "Сейчас %.0f ч. %.0f мин. %.0f дня 1 месяца (Утренней Звезды)", FHour, minutes, Day, "Ок"
elseIf (Month == 1)
messagebox, "Сейчас %.0f ч. %.0f мин. %.0f дня 2 месяца (Восхода)", FHour, minutes, Day, "Ок"
elseIf (Month == 2)
messagebox, "Сейчас %.0f ч. %.0f мин. %.0f дня 3 месяца (Первоцвета)", FHour, minutes, Day, "Ок"
elseIf (Month == 3)
messagebox, "Сейчас %.0f ч. %.0f мин. %.0f дня 4 месяца (Дождя)", FHour, minutes, Day, "Ок"
elseIf (Month == 4)
messagebox, "Сейчас %.0f ч. %.0f мин. %.0f дня 5 месяца (Сева)", FHour, minutes, Day, "Ок"
elseIf (Month == 5)
messagebox, "Сейчас %.0f ч. %.0f мин. %.0f дня 6 месяца (Середины Года)", FHour, minutes, Day, "Ок"
elseIf (Month == 6)
messagebox, "Сейчас %.0f ч. %.0f мин. %.0f дня 7 месяца (Солнцеворота)", FHour, minutes, Day, "Ок"
elseIf (Month == 7)
messagebox, "Сейчас %.0f ч. %.0f мин. %.0f дня 8 месяца (Урожая)", FHour, minutes, Day, "Ок"
elseIf (Month == 8)
messagebox, "Сейчас %.0f ч. %.0f мин. %.0f дня 9 месяца (Огня)", FHour, minutes, Day, "Ок"
elseIf (Month == 9)
messagebox, "Сейчас %.0f ч. %.0f мин. %.0f дня 10 месяца (Мороза)", FHour, minutes, Day, "Ок"
elseIf (Month == 10)
messagebox, "Сейчас %.0f ч. %.0f мин. %.0f дня 11 месяца (Заката)", FHour, minutes, Day, "Ок"
elseIf (Month == 11)
messagebox, "Сейчас %.0f ч. %.0f мин. %.0f дня 12 месяца (Вечерней Звезды)", FHour, minutes, Day, "Ок"
endif
endif
Set OnPCEquip to 0
;Льекс не жадный... Все знают, что хаджитов освобождать - дело не интересное. Пусть хаджит будет часовым мастером, вар.
;Льекс еще не закончил работу. Настройки и функции не доделал. Извиняется и обещает доделать.
end
|