From 3c10d14f60f56d6c127cd3b1a6c67ea363b11a41 Mon Sep 17 00:00:00 2001
From: Chris Forbes <chrisf@ijw.co.nz>
Date: Fri, 30 Jul 2010 22:28:21 +1200
Subject: [PATCH] add shok

---
 mods/ra/infantry.yaml | 20 ++++++++++++++++++++
 mods/ra/voices.yaml   |  6 ++++++
 mods/ra/weapons.yaml  |  5 +++--
 3 files changed, 29 insertions(+), 2 deletions(-)

diff --git a/mods/ra/infantry.yaml b/mods/ra/infantry.yaml
index 02d8800e66..b8f73ff592 100644
--- a/mods/ra/infantry.yaml
+++ b/mods/ra/infantry.yaml
@@ -244,3 +244,23 @@ C2:
 		Range: 2
 	AttackBase:
 		PrimaryWeapon: Pistol
+
+SHOK:
+	Inherits: ^Infantry
+	Buildable:
+		Prerequisites: stek,tsla
+		Owner: soviet
+		Cost: 900
+		Description: Tesla Trooper
+	Selectable:
+		Voice: ShokVoice
+		Bounds: 12,17,0,-9
+	Health:
+		HP: 80
+	Unit:
+		Speed: 3
+	RevealsShroud:
+		Range: 4
+	AttackBase:
+		PrimaryWeapon: PortaTesla
+	TakeCover:
diff --git a/mods/ra/voices.yaml b/mods/ra/voices.yaml
index 4311017078..4f1850ab92 100644
--- a/mods/ra/voices.yaml
+++ b/mods/ra/voices.yaml
@@ -77,4 +77,10 @@ EinsteinVoice:
 	Select: einah1,einok1,einyes1
 	Move: einah1,einok1,einyes1
 	Die: dedman1,dedman2,dedman3,dedman4,dedman5,dedman6,dedman7,dedman8,dedman10
+	Lost: unitlst1.aud
+
+ShokVoice:
+	Select: jchrge1,jjuice1,jjump1,jpower1
+	Move: jdance1,jyes1
+	Attack: jburn1,jcrisp1,jshock1,jlight1
 	Lost: unitlst1.aud
\ No newline at end of file
diff --git a/mods/ra/weapons.yaml b/mods/ra/weapons.yaml
index 00d3c1c501..879e566331 100644
--- a/mods/ra/weapons.yaml
+++ b/mods/ra/weapons.yaml
@@ -739,7 +739,8 @@ Demolish:
 PortaTesla:
 	ROF: 70
 	Range: 3.5
-	Report: SHKTROP1
+	Report: TESLA1
+#	Report: SHKTROP1
 	Charges: yes
 	TeslaZap:
 	Warhead:
@@ -758,4 +759,4 @@ TTankZap:
 		Spread: 1
 		Verses: 100%,100%,100%,100%,100%
 		InfDeath: 5
-		Damage: 100
\ No newline at end of file
+		Damage: 100