//this is a comment.
//this is a comment too.

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:
   /*Объединяем две разные ф-ции в одном наборе кадров -
   в данном случае для синхронизации длительности ф-ций друг с другом и
   временем жизни TorchLight актора.
   Теперь весь цикл занимает ровно 2 тика, а боббинг идёт плавней.*/
   TRCH ABCDEFG 2 bright
   {
   A_SpawnItemEx ("TorchLight", 0, 0, 64, 0, 0, 0, 0, SXF_SETMASTER, 0);
   A_WeaponReady (WRF_NOFIRE); //WRF_NOFIRE флаг отключает "Fire" стэйт и в результате боббинг срабатывает всегда
   }
   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 0 A_PlaySound("TorchSound",CHAN_AUTO/*|256*/,79.9,False/*True*/,ATTN_NORM) //Хотел звук потестить, но мешает заскриптованный
   
   /*По большому счёту тут и варп не нужен,
   поскольку A_SpawnItemEx в лупе, а актор света с таймером.
   Вот если бы спаун был бы единоразовый а таймер отсутствовал,
   то без варпа было бы не обойтись.
   В данном случае с варпом меняется динамика свечения, поскольку он выравнивает спаунитем.*/
   TNT1 A 0 A_Warp(AAPTR_MASTER, 0, 0, 5, 0, WARPF_NOCHECKPOSITION | WARPF_COPYINTERPOLATION) //TorchLight актор постоянно варпится (перемещается) к своему мастеру, в данном случае к актору факела
   TNT1 A 2 bright Light ("FLICKER3") A_CountDown
   Loop
  Death:
      //Поиграемся с тиками стэйта ;)      //С варпом|Без варпа
   //TNT1 A 1 bright Light ("FLICKER3") //Очень тусклый свет|Очень тусклый сильно и часто мерцающий свет
   //TNT1 A 2 bright Light ("FLICKER3") //Очень тусклый сильно и часто мерцающий свет|Тусклый ровный свет
   TNT1 A 3 bright Light ("FLICKER3") //Тусклый ровный свет|Умеренный сильно и часто мерцающий свет
   //TNT1 A 4 bright Light ("FLICKER3") //Чуть более яркий часто мерцающий свет|Ровный мягкий свет
   //TNT1 A 5 bright Light ("FLICKER3") //Ровный мягкий свет|Как 3 тика, но мерцание более плавно
   //TNT1 A 6 bright Light ("FLICKER3") //Яркий часто мерцающий свет, похож на 4 тика но ярче|Яркий контрастный свет с едва уловимым мерцанием
   //TNT1 A 7 bright Light ("FLICKER3") //Как 5 тиков|Как 5 тиков
   //TNT1 A 8 bright Light ("FLICKER3") //Как 6 тиков, но мерцание мягче и более контрастно|Яркий контрастный свет со слабым мерцанием
   //TNT1 A 9 bright Light ("FLICKER3") //Чуть светлее 5 тиков. Вроде. :В|Яркий, умеренно мерцающий свет
   //TNT1 A 10 bright Light ("FLICKER3") //Яркий часто но мягко мерцающий свет, похож на 6 тиков но обзор дальше|Как 8 тиков. Вроде. :В
   //TNT1 A 11 bright Light ("FLICKER3") //Яркий контрастный свет с едва уловимым мерцанием|Как 9 тиков
   
   /*Можно поэкспериментировать дальше,
   но не советую, ибо чем больше будет тиков,
   тем дольше будет висеть постсвечение,
   что в свою очередь будет снижать реалистичность.
   Т. е. факел унесли, а свет остался.*/
   //Мне больше всего понравились 3, 6, 10 и 11 с варпом
   //и 2, 6, 8 и 9 без варпа
   Stop
    }
}