library ItemD initializer Init
  define UnitID = 'Hblm'
  define ItemID = 'tint'
  timer Timer = null
  boolean TimerIsPaused = false
  unit Unit = null
  integer Count = 0
  
  private function AddBook takes nothing returns nothing
    UnitAddItem(Unit, CreateItem( ItemID, 0., 0.))
    Count ++
  endfunction
  
  private function Check takes nothing returns nothing
    BJDebugMsg("Count = " + I2S(Count))
    SetHeroInt(Unit, 4, true)
    if (TimerIsPaused) then
      TimerStart(Timer, .02, true, function AddBook)
      BJDebugMsg("Resume")
    else
      PauseTimer(Timer)
      BJDebugMsg("Pause")
    endif
    TimerIsPaused = !TimerIsPaused
  endfunction
  
  private function Init takes nothing returns nothing
    trigger t = CreateTrigger()
    TriggerRegisterPlayerEvent(t, Player(0), EVENT_PLAYER_CHAT)
    TriggerAddAction(t, function Check)
    Unit = CreateUnit(Player(0), UnitID, 0., 0., 0.)
    Timer = CreateTimer()
    TimerStart(Timer, .02, true, function AddBook)
    DoNotSaveReplay()
  endfunction
  
endlibrary

//Trig (convert)
function Trig_sa_Actions takes nothing returns nothing
    call RemoveItem( GetManipulatedItem() )
endfunction

//===========================================================================
function InitTrig_I takes nothing returns nothing
    set gg_trg_I = CreateTrigger(  )
    call TriggerRegisterAnyUnitEventBJ( gg_trg_I, EVENT_PLAYER_UNIT_USE_ITEM )
    call TriggerAddAction( gg_trg_I, function Trig_sa_Actions )
endfunction