Actor TorchMan : PlayerPawn {
    
    Health 80
    Radius 16
    Height 64
    Speed 0.7
    PainSound "PlayerClericPain"
    Player.JumpZ 0
    Player.Viewheight 64
    Player.SpawnClass "Cleric"
    Player.DisplayName "TorchMan"
    Player.SoundClass "cleric"
    Player.InvulnerabilityMode "Ghost"
    Player.HealRadiusType "Health"
    Player.StartItem "Torch"
    
    States { // Only for unlimited torch
  
  Spawn:
   TRCH A 2 bright A_SpawnItemEx ("TorchLight", 0, 0, 48, 0, 0, 0, 0, SXF_SETMASTER, 0)
   Loop
  Pain:
   TRCH A 2 A_Pain
   Goto Spawn
  Death:
   TRCH A 5 A_PlayerScream
   Goto Spawn
  XDeath:
   TRCH A 5 A_PlayerScream
   Goto Spawn
    }
}

Actor Torch : weapon 6000 {
    
    Weapon.SlotNumber 1
    +WEAPON.NOALERT
    //Weapon.ReadySound "TorchSound"
    
    States {
  
  Spawn:
   TRCH A -1
   Stop
  Ready:
   // Рука с факелом не двигается при ходьбе:
   TRCH ABCDEFG 2 bright A_SpawnItemEx ("TorchLight", 0, 0, 64, 0, 0, 0, 0, SXF_SETMASTER, 0)
   // Рука с факелом двигается при ходьбе, но застывает, если зажать кнопку атаки:
   //TRCH ABCDEFG 2 bright A_WeaponReady
   Loop
  Select:
   TRCH A 1 A_Raise
   Loop
  Deselect:
   TRCH A 1 A_Lower
   Loop
  Fire:
   TRCH A 2
   TRCH B 2
   TRCH C 2
   TRCH D 2
   TRCH E 2
   TRCH F 2
   TRCH G 2
   Goto Ready
    }
}

Actor TorchLight {
    
    Radius 1
    Height 1
    Speed 0
    Damage 0
    Projectile
    Reactiontime 1
    
    States {
  
  Spawn:
   TNT1 A 2 bright Light ("FLICKER3") A_CountDown
   Loop
        Death:
   TNT1 A 0 bright Light ("FLICKER3")
   Stop
    }
}

Actor TorchLight {
    
    Radius 1
    Height 1
    Speed 0
    Damage 0
    Projectile
    Reactiontime 1
    
    States {
  
  Spawn:
   TNT1 A 2 bright Light ("FLICKER3") A_CountDown
   [b]TNT1 A 0 A_Warp(AAPTR_MASTER, 0, 0, 64, 0, WARPF_NOCHECKPOSITION | WARPF_COPYINTERPOLATION)[/b]
   Loop
        Death:
   TNT1 A 0 bright Light ("FLICKER3")
   Stop
    }
}