Start seduction weapon implementation
authorunc0rr
Sat, 16 Aug 2008 11:22:34 +0000
changeset 1221 51e3f3cfdca5
parent 1220 ebb643caeb34
child 1222 bc94a25d867a
Start seduction weapon implementation
QTfrontend/hwconsts.cpp.in
hedgewars.kdevelop
hedgewars/uAIAmmoTests.pas
hedgewars/uConsts.pas
hedgewars/uGears.pas
hedgewars/uLocale.pas
share/hedgewars/Data/Graphics/Hedgehog.png
share/hedgewars/Data/Locale/bg.txt
share/hedgewars/Data/Locale/de.txt
share/hedgewars/Data/Locale/en.txt
share/hedgewars/Data/Locale/fr.txt
share/hedgewars/Data/Locale/it.txt
share/hedgewars/Data/Locale/pl.txt
share/hedgewars/Data/Locale/ru.txt
share/hedgewars/Data/Locale/sk.txt
share/hedgewars/Data/Locale/sv.txt
--- a/QTfrontend/hwconsts.cpp.in	Fri Aug 15 19:30:02 2008 +0000
+++ b/QTfrontend/hwconsts.cpp.in	Sat Aug 16 11:22:34 2008 +0000
@@ -29,7 +29,7 @@
 QStringList * Themes;
 QStringList * mapList;
 
-QString * cDefaultAmmoStore = new QString("eammstore 939192942219912103223511");
+QString * cDefaultAmmoStore = new QString("eammstore 9391929422199121032235111");
 
 QColor * color1 = new QColor(  0, 255, 255);
 QColor * color2 = new QColor(255, 127, 127);
--- a/hedgewars.kdevelop	Fri Aug 15 19:30:02 2008 +0000
+++ b/hedgewars.kdevelop	Sat Aug 16 11:22:34 2008 +0000
@@ -19,9 +19,9 @@
     <projectname>hedgewars</projectname>
     <projectdirectory>.</projectdirectory>
     <absoluteprojectpath>false</absoluteprojectpath>
-    <description></description>
+    <description/>
     <versioncontrol>kdevsubversion</versioncontrol>
-    <defaultencoding></defaultencoding>
+    <defaultencoding/>
   </general>
   <kdevcustomproject>
     <run>
@@ -32,7 +32,7 @@
       <terminal>false</terminal>
       <autocompile>true</autocompile>
       <envvars/>
-      <globaldebugarguments></globaldebugarguments>
+      <globaldebugarguments/>
       <globalcwd>/usr/home/unC0Rr/Sources/Hedgewars/Hedgewars-FF/trunk</globalcwd>
       <useglobalprogram>false</useglobalprogram>
       <autoinstall>false</autoinstall>
@@ -55,16 +55,16 @@
     </general>
     <build>
       <buildtool>make</buildtool>
-      <builddir></builddir>
+      <builddir/>
     </build>
     <make>
       <abortonerror>true</abortonerror>
       <numberofjobs>4</numberofjobs>
       <prio>0</prio>
       <dontact>false</dontact>
-      <makebin></makebin>
-      <defaulttarget></defaulttarget>
-      <makeoptions></makeoptions>
+      <makebin/>
+      <defaulttarget/>
+      <makeoptions/>
       <selectedenvironment>default</selectedenvironment>
       <environments>
         <default/>
@@ -72,9 +72,9 @@
     </make>
     <other>
       <prio>0</prio>
-      <otherbin></otherbin>
-      <defaulttarget></defaulttarget>
-      <otheroptions></otheroptions>
+      <otherbin/>
+      <defaulttarget/>
+      <otheroptions/>
       <selectedenvironment>default</selectedenvironment>
       <environments>
         <default/>
@@ -83,12 +83,12 @@
   </kdevcustomproject>
   <kdevdebugger>
     <general>
-      <dbgshell></dbgshell>
+      <dbgshell/>
       <programargs/>
-      <gdbpath></gdbpath>
-      <configGdbScript></configGdbScript>
-      <runShellScript></runShellScript>
-      <runGdbScript></runGdbScript>
+      <gdbpath/>
+      <configGdbScript/>
+      <runShellScript/>
+      <runGdbScript/>
       <breakonloadinglibs>true</breakonloadinglibs>
       <separatetty>false</separatetty>
       <floatingtoolbar>false</floatingtoolbar>
@@ -194,7 +194,7 @@
       <includeTypedefs>false</includeTypedefs>
     </codecompletion>
     <creategettersetter>
-      <prefixGet></prefixGet>
+      <prefixGet/>
       <prefixSet>set</prefixSet>
       <prefixVariable>m_,_</prefixVariable>
       <parameterName>theValue</parameterName>
--- a/hedgewars/uAIAmmoTests.pas	Fri Aug 15 19:30:02 2008 +0000
+++ b/hedgewars/uAIAmmoTests.pas	Sat Aug 16 11:22:34 2008 +0000
@@ -68,7 +68,8 @@
                   (proc: nil;              flags: 0), // amSwitch
                   (proc: @TestMortar;      flags: 0), // amMortar
                   (proc: nil;              flags: 0), // amKamikaze
-                  (proc: nil;              flags: 0)  // amCake
+                  (proc: nil;              flags: 0), // amCake
+                  (proc: nil;              flags: 0)  // amSeduction
                   );
 
 const BadTurn = Low(LongInt) div 4;
--- a/hedgewars/uConsts.pas	Fri Aug 15 19:30:02 2008 +0000
+++ b/hedgewars/uConsts.pas	Sat Aug 16 11:22:34 2008 +0000
@@ -74,7 +74,8 @@
      TAmmoType  = (amGrenade, amClusterBomb, amBazooka, amUFO, amShotgun, amPickHammer,
                    amSkip, amRope, amMine, amDEagle, amDynamite, amFirePunch, amWhip,
                    amBaseballBat, amParachute, amAirAttack, amMineStrike, amBlowTorch,
-                   amGirder, amTeleport, amSwitch, amMortar, amKamikaze, amCake);
+                   amGirder, amTeleport, amSwitch, amMortar, amKamikaze, amCake,
+                   amSeduction);
 
      THWFont    = (fnt16, fntBig, fntSmall);
 
@@ -971,6 +972,26 @@
                                    isDamaging: true;
                                    SkipTurns: 0;
                                    PosCount: 1;
+                                   PosSprite: sprWater),
+                                  (NameId: sidSeduction;
+                                   NameTex: nil;
+                                   Probability: 100;
+                                   NumberInCase: 1;
+                                   Ammo: (Propz: ammoprop_ForwMsgs or
+                                                 ammoprop_NoCrosshair or
+                                                 ammoprop_DontHold;
+                                          Count: 1;
+                                          NumPerTurn: 0;
+                                          Timer: 0;
+                                          Pos: 0;
+                                          AmmoType: amSeduction);
+                                   Slot: 2;
+                                   TimeAfterTurn: 0;
+                                   minAngle: 0;
+                                   maxAngle: 0;
+                                   isDamaging: true;
+                                   SkipTurns: 0;
+                                   PosCount: 1;
                                    PosSprite: sprWater)
                                   );
 
--- a/hedgewars/uGears.pas	Fri Aug 15 19:30:02 2008 +0000
+++ b/hedgewars/uGears.pas	Sat Aug 16 11:22:34 2008 +0000
@@ -785,15 +785,17 @@
 						1,
 						5,
 						0);
-			amWhip: begin
-				DrawRotatedF(sprWhip,
+			amWhip: DrawRotatedF(sprWhip,
 						hwRound(Gear^.X) + 1 + WorldDx,
 						hwRound(Gear^.Y) - 3 + WorldDy,
 						0,
 						hwSign(Gear^.dX),
 						0);
-				defaultPos:= false
-				end;
+			amSeduction: DrawHedgehog(hwRound(Gear^.X) + 1 + WorldDx, hwRound(Gear^.Y) - 3 + WorldDy,
+						hwSign(Gear^.dX),
+						2,
+						2,
+						0);
 		else
 			DrawHedgehog(hwRound(Gear^.X) + 1 + WorldDx, hwRound(Gear^.Y) - 3 + WorldDy,
 				hwSign(Gear^.dX),
--- a/hedgewars/uLocale.pas	Fri Aug 15 19:30:02 2008 +0000
+++ b/hedgewars/uLocale.pas	Sat Aug 16 11:22:34 2008 +0000
@@ -23,7 +23,7 @@
                    sidDynamite, sidBaseballBat, sidFirePunch, sidSeconds,
                    sidParachute, sidAirAttack, sidMineStrike, sidBlowTorch,
                    sidGirder, sidTeleport, sidSwitch, sidMortar, sidWhip,
-                   sidKamikaze, sidCake);
+                   sidKamikaze, sidCake, sidSeduction);
 
      TMsgStrId = (sidStartFight, sidDraw, sidWinner, sidVolume, sidPaused,
                   sidConfirm, sidSuddenDeath);
Binary file share/hedgewars/Data/Graphics/Hedgehog.png has changed
--- a/share/hedgewars/Data/Locale/bg.txt	Fri Aug 15 19:30:02 2008 +0000
+++ b/share/hedgewars/Data/Locale/bg.txt	Sat Aug 16 11:22:34 2008 +0000
@@ -25,6 +25,7 @@
 00:22=Бич
 00:23=Камикадзе
 00:24=Cake
+00:25=Seduction
 
 01:00=Бой!
 01:01=Равен рунд
--- a/share/hedgewars/Data/Locale/de.txt	Fri Aug 15 19:30:02 2008 +0000
+++ b/share/hedgewars/Data/Locale/de.txt	Sat Aug 16 11:22:34 2008 +0000
@@ -25,6 +25,7 @@
 00:22=Stoßen
 00:23=Kamikaze
 00:24=Cake
+00:25=Seduction
 
 01:00=Auf in die Schlacht!
 01:01=Unentschieden
--- a/share/hedgewars/Data/Locale/en.txt	Fri Aug 15 19:30:02 2008 +0000
+++ b/share/hedgewars/Data/Locale/en.txt	Sat Aug 16 11:22:34 2008 +0000
@@ -25,6 +25,7 @@
 00:22=Whip
 00:23=Kamikaze
 00:24=Cake
+00:25=Seduction
 
 01:00=Let's fight!
 01:01=Round draw
--- a/share/hedgewars/Data/Locale/fr.txt	Fri Aug 15 19:30:02 2008 +0000
+++ b/share/hedgewars/Data/Locale/fr.txt	Sat Aug 16 11:22:34 2008 +0000
@@ -25,6 +25,7 @@
 00:22=Fouet
 00:23=Kamikaze
 00:24=Gateau
+00:25=Seduction
 
 01:00=C'est parti!
 01:01=Round ex aequo
--- a/share/hedgewars/Data/Locale/it.txt	Fri Aug 15 19:30:02 2008 +0000
+++ b/share/hedgewars/Data/Locale/it.txt	Sat Aug 16 11:22:34 2008 +0000
@@ -25,6 +25,7 @@
 00:22=Frusta
 00:23=Attacco Kamikaze
 00:24=Torta
+00:25=Seduction
 
 01:00=Combattiamo!
 01:01=Round in parità
--- a/share/hedgewars/Data/Locale/pl.txt	Fri Aug 15 19:30:02 2008 +0000
+++ b/share/hedgewars/Data/Locale/pl.txt	Sat Aug 16 11:22:34 2008 +0000
@@ -25,6 +25,7 @@
 00:22=Bicz
 00:23=Kamikaze
 00:24=Ciasto
+00:25=Seduction
 
 01:00=Walczmy!
 01:01=Remis
--- a/share/hedgewars/Data/Locale/ru.txt	Fri Aug 15 19:30:02 2008 +0000
+++ b/share/hedgewars/Data/Locale/ru.txt	Sat Aug 16 11:22:34 2008 +0000
@@ -25,6 +25,7 @@
 00:22=Кнут
 00:23=Камикадзе
 00:24=Торт
+00:25=Соблазнение
 
 01:00=Вперёд к победе!
 01:01=Ничья
--- a/share/hedgewars/Data/Locale/sk.txt	Fri Aug 15 19:30:02 2008 +0000
+++ b/share/hedgewars/Data/Locale/sk.txt	Sat Aug 16 11:22:34 2008 +0000
@@ -24,6 +24,8 @@
 00:21=Mínomet
 00:22=Bič
 00:23=Kamikadze
+00:24=Cake
+00:25=Seduction
 
 01:00=Do boja!
 01:01=Remíza
--- a/share/hedgewars/Data/Locale/sv.txt	Fri Aug 15 19:30:02 2008 +0000
+++ b/share/hedgewars/Data/Locale/sv.txt	Sat Aug 16 11:22:34 2008 +0000
@@ -25,6 +25,7 @@
 00:22=Piska
 00:23=Kamikaze (självmord)
 00:24=Tårta
+00:25=Seduction
 
 01:00=Nu kör vi!
 01:01=Oavgjort