src/game/rain.cpp

   1 /*
   2  *
   3  *  Iter Vehemens ad Necem (IVAN)
   4  *  Copyright (C) Timo Kiviluoto
   5  *  Released under the GNU General
   6  *  Public License
   7  *
   8  *  See LICENSING which should be included
   9  *  along with this file for more details
  10  *
  11  */
  12
  13 /* Compiled through materset.cpp */
  14
  15 rain::rain(liquid* Liquid, lsquare* LSquareUnder, v2 Speed, int Team, truth OwnLiquid) : entity(OwnLiquid ? HAS_BE : 0), Next(0), Drop(0), Liquid(Liquid), LSquareUnder(LSquareUnder), Speed(Speed), SpeedAbs(sLong(sqrt(Speed.GetLengthSquare()))), Drops(0), OwnLiquid(OwnLiquid), Team(Team)
  16 {
  17   Emitation = Liquid->GetEmitation();
  18   BeCounter = RAND_N(50);
  19 }
  20
  21 rain::~rain()
  22 {
  23   delete [] Drop;
  24
  25   if(OwnLiquid)
  26     delete Liquid;
  27 }
  28
  29 void rain::Draw(blitdata& BlitData) const
  30 {
  31   sLong Volume = Liquid->GetVolume();
  32   int Drops = this->Drops;
  33
  34   if(!Volume && !Drops)
  35     return;
  36
  37   int c, DropMax = Volume ? Limit<int>(Volume / 50, 1, MAX_RAIN_DROPS) : 0;
  38
  39   if(Drops < DropMax)
  40   {
  41     drop* OldDrop = Drop;
  42     Drop = new drop[DropMax];
  43
  44     for(c = 0; c < Drops; ++c)
  45       if(OldDrop[c].MaxAge)
  46   Drop[c] = OldDrop[c];
  47       else
  48   RandomizeDropPos(c);
  49
  50     delete [] OldDrop;
  51
  52     for(; Drops < DropMax; ++Drops)
  53       RandomizeDropPos(Drops);
  54   }
  55   else
  56   {
  57     for(c = 0; c < DropMax; ++c)
  58       if(!Drop[c].MaxAge)
  59   RandomizeDropPos(c);
  60
  61     for(; Drops > DropMax && !Drop[Drops - 1].MaxAge; --Drops);
  62
  63     if(!Drops)
  64     {
  65       this->Drops = 0;
  66       delete [] Drop;
  67       Drop = 0;
  68       return;
  69     }
  70   }
  71
  72   col16 Color = Liquid->GetRainColor();
  73
  74   for(c = 0; c < Drops; ++c)
  75     if(Drop[c].MaxAge)
  76     {
  77       feuLong Age = uShort(GET_TICK()) - Drop[c].StartTick;
  78
  79       if(Age > Drop[c].MaxAge)
  80       {
  81         Drop[c].MaxAge = 0;
  82         continue;
  83       }
  84
  85       v2 DropPos = v2(Drop[c].StartPos) + (Speed * int(Age) >> 8);
  86
  87       if(DropPos.X < 0 || DropPos.Y < 0 || DropPos.X >= 16 || DropPos.Y >= 16)
  88       {
  89         Drop[c].MaxAge = 0;
  90         continue;
  91       }
  92
  93       BlitData.Bitmap->AlphaPutPixel(DropPos + BlitData.Dest, Color, BlitData.Luminance, 255);
  94     }
  95
  96   this->Drops = Drops;
  97 }
  98
  99 void rain::RandomizeDropPos(int I) const
 100 {
 101   Drop[I].StartTick = GET_TICK() - (RAND() & 3);
 102   v2 Pos;
 103
 104   if(Speed.X && (!Speed.Y || RAND() & 1))
 105   {
 106     Pos.X = Speed.X > 0 ? 0 : 15;
 107     Pos.Y = RAND() & 15;
 108   }
 109   else
 110   {
 111     Pos.X = RAND() & 15;
 112     Pos.Y = Speed.Y > 0 ? 0 : 15;
 113   }
 114
 115   Drop[I].StartPos = Pos;
 116   int AgeModifier = 5000 / SpeedAbs;
 117   Drop[I].MaxAge = AgeModifier > 1 ? 1 + RAND() % AgeModifier : 1;
 118 }
 119
 120
 121 void rain::Be () {
 122   if (++BeCounter < 50) return;
 123   BeCounter = 0;
 124   sLong Volume = Liquid->GetVolume();
 125   if (Volume && !Liquid->IsPowder()) { // gum
 126     sLong Rand = 5000000/(Volume*SpeedAbs);
 127     if (OwnLiquid) Rand >>= 3;
 128     if (Rand < 1 || !(RAND() % Rand)) {
 129       sLong DropVolume = Min(Volume, 50);
 130       /* Gum */
 131       LSquareUnder->SpillFluid(Team == PLAYER_TEAM ? PLAYER : 0, Liquid->SpawnMoreLiquid(DropVolume), true, OwnLiquid);
 132       if (OwnLiquid) {
 133         if (Volume == DropVolume) {
 134           LSquareUnder->RemoveRain(this);
 135           SendToHell();
 136         } else {
 137           Liquid->EditVolume(-DropVolume);
 138         }
 139       }
 140     }
 141   }
 142 }
 143
 144 void rain::Save(outputfile& SaveFile) const
 145 {
 146   SaveFile << Liquid << Speed << (uChar)Team;
 147 }
 148
 149 void rain::Load(inputfile& SaveFile)
 150 {
 151   OwnLiquid = 1;
 152   LSquareUnder = static_cast<lsquare *>(game::GetSquareInLoad());
 153   Liquid = static_cast<liquid *>(ReadType(material *, SaveFile));
 154   Liquid->SetMotherEntity(this);
 155   Emitation = Liquid->GetEmitation();
 156   SaveFile >> Speed;
 157   Team = ReadType(uChar, SaveFile);
 158   SpeedAbs = sLong(sqrt(Speed.GetLengthSquare()));
 159 }
 160
 161 outputfile& operator<<(outputfile& SaveFile, const rain* Rain)
 162 {
 163   if(Rain->HasOwnLiquid())
 164   {
 165     SaveFile.Put(true);
 166     Rain->Save(SaveFile);
 167   }
 168   else
 169     SaveFile.Put(false);
 170
 171   return SaveFile;
 172 }
 173
 174 inputfile& operator>>(inputfile& SaveFile, rain*& Rain)
 175 {
 176   if(SaveFile.Get())
 177   {
 178     Rain = new rain;
 179     Rain->Load(SaveFile);
 180   }
 181   else
 182     Rain = game::ConstructGlobalRain();
 183
 184   return SaveFile;
 185 }