hedgewars: comparison hedgewars/uGears.pas

equal deleted inserted replaced

-:99f05a01a6a3
+:ece7b87f1334
 SpeechType: Longword = 1;
 SpeechText: shortstring;
 implementation
 uses uWorld, uMisc, uStore, uConsole, uSound, uTeams, uRandom, uCollisions,
 	uLand, uIO, uLandGraphics, uAIMisc, uLocale, uAI, uAmmos, uTriggers,
 {$IFDEF GLES11}
 	gles11,
 {$ELSE}
 	GL,
 {$ENDIF}
 			t:= max(Gear^.Damage, Gear^.Health);
 			Gear^.Damage:= t;
 			AddGear(hwRound(Gear^.X), min(hwRound(Gear^.Y),cWaterLine+cVisibleWater+32), gtHealthTag, t, _0, _0, 0)^.Hedgehog:= Gear^.Hedgehog;
 			uStats.HedgehogDamaged(Gear)
 			end;
 		team:= PHedgehog(Gear^.Hedgehog)^.Team;
 		if CurrentHedgehog^.Gear = Gear then
 			FreeActionsList; // to avoid ThinkThread on drawned gear
 		PHedgehog(Gear^.Hedgehog)^.Gear:= nil;
 		inc(KilledHHs);
 		RecountTeamHealth(team)
 		end;
 {$IFDEF DEBUGFILE}
 t:= GearsList;
 while t <> nil do
 	begin
 	Gear:= t;
 	t:= Gear^.NextGear;
 	if Gear^.Active then
 begin
 if Gear^.RenderTimer and (Gear^.Timer > 500) and ((Gear^.Timer mod 1000) = 0) then
 begin
 if Gear^.Tex <> nil then FreeTexture(Gear^.Tex);
 Gear^.Tex:= RenderStringTex(inttostr(Gear^.Timer div 1000), $FFFFFFFF, fntSmall);
 end;
 Gear^.doStep(Gear);
 end
 	end;
 			end;
 	stNTurn: begin
 			if isInMultiShoot then isInMultiShoot:= false
 			else begin
 			ResetUtilities;
 			FreeActionsList; // could send -left, -right and similar commands, so should be called before /nextturn
 			ParseCommand('/nextturn', true);
 			SwitchHedgehog;
 			inc(step); // FIXME wtf is that, it overflows step, and does nothing
 AddCaption(s, CurrentHedgehog^.Team^.Clan^.Color, capgrpAmmoinfo);
 RenderHealth(CurrentHedgehog^);
 RecountTeamHealth(CurrentHedgehog^.Team);
 end
 end;
 if ((GameFlags and gfKarma) <> 0) and
 ((GameFlags and gfInvulnerable) = 0) and
 not CurrentHedgehog^.Gear^.Invulnerable then
 begin // this cannot just use Damage or it interrupts shotgun and gets you called stupid
 inc(CurrentHedgehog^.Gear^.Karma, tmpDmg);
 AddGear(hwRound(CurrentHedgehog^.Gear^.X),
 hwRound(CurrentHedgehog^.Gear^.Y),
 gtHealthTag, tmpDmg, _0, _0, 0)^.Hedgehog:= CurrentHedgehog;
 end;
 end;
 end;
 	inc(Gear^.Damage, Damage);
 			1,
 			7,
 			0);
 	defaultPos:= false
 	end else
 if ((Gear^.State and gstWinner) <> 0) and
 ((CurAmmoGear = nil) or (CurAmmoGear^.Kind <> gtPickHammer)) then
 	begin
 	DrawHedgehog(sx, sy,
 			hwSign(Gear^.dX),
 			2,
 	defaultPos:= false
 	end else
 if (Gear^.State and gstHHDriven) <> 0 then
 	begin
 	if ((Gear^.State and gstHHThinking) = 0) and
 ShowCrosshair and
 ((Gear^.State and (gstAttacked or gstAnimation)) = 0) then
 		begin
 (* These calculations are a little complex for a few reasons:
 1: I need to draw the laser from weapon origin to nearest land
 2: I need to start the beam outside the hedgie for attractiveness.
 3: I need to extend the beam beyond land.
 This routine perhaps should be pushed into uStore or somesuch instead of continuuing the increase in size of this function.
 *)
 		dx:= hwSign(Gear^.dX) * m * Sin(Gear^.Angle * pi / cMaxAngle);
 		dy:= - Cos(Gear^.Angle * pi / cMaxAngle);
 		if cLaserSighting then
 			if ((ty and LAND_HEIGHT_MASK) <> 0) or ((tx and LAND_WIDTH_MASK) <> 0) then
 				begin
 				tx:= round(lx + ax * (LAND_WIDTH div 4));
 				ty:= round(ly + ay * (LAND_WIDTH div 4));
 				end;
 			//if (abs(lx-tx)>8) or (abs(ly-ty)>8) then
 				begin
 				glDisable(GL_TEXTURE_2D);
 				glEnable(GL_LINE_SMOOTH);
 				glLineWidth(1.0);
 				glColor4ub($FF, $00, $00, $C0);
 				VertexBuffer[0].X:= hx + WorldDx;
 				VertexBuffer[0].Y:= hy + WorldDy;
 				VertexBuffer[1].X:= tx + WorldDx;
 				VertexBuffer[1].Y:= ty + WorldDy;
 				glEnableClientState(GL_VERTEX_ARRAY);
 				glVertexPointer(2, GL_FLOAT, 0, @VertexBuffer[0]);
 				glDrawArrays(GL_LINES, 0, Length(VertexBuffer));
 				glColor4f(1, 1, 1, 1);
 				glEnable(GL_TEXTURE_2D);
 			amRCPlane: begin
 				DrawRotated(sprHandPlane, hx, hy, hwSign(Gear^.dX), 0);
 				defaultPos:= false
 				end;
 			amGirder: begin
 DrawSpriteClipped(sprGirder,
 sx-256,
 sy-256,
 LongInt(topY)+WorldDy,
 LongInt(rightX)+WorldDx,
 cWaterLine+WorldDy,
 LongInt(leftX)+WorldDx);
 end;
 		end;
 			DrawHedgehog(sx, sy,
 				hwSign(Gear^.dX),
 				0,
 				4,
 				0);
 			HatVisible:= true;
 			with PHedgehog(Gear^.Hedgehog)^ do
 				if (HatTex <> nil)
 				and (HatVisibility > 0) then
 					DrawTextureF(HatTex,
 			HatVisibility:= HatVisibility + 0.2
 		else
 	else
 		if HatVisibility > 0.0 then
 			HatVisibility:= HatVisibility - 0.2;
 	if (HatTex <> nil)
 	and (HatVisibility > 0) then
 		if DefaultPos then
 			DrawTextureF(HatTex,
 				HatVisibility,
 if Gear^.Invulnerable then
 begin
 DrawSprite(sprInvulnerable, sx - 24, sy - 24, 0);
 end;
 if cVampiric and
 (CurrentHedgehog^.Gear <> nil) and
 (CurrentHedgehog^.Gear = Gear) then
 begin
 DrawSprite(sprVampiric, sx - 24, sy - 24, 0);
 end;
 end;
 	//glEnable(GL_LINE_SMOOTH);
 	glPushMatrix;
 	glTranslatef(WorldDx, WorldDy, 0);
 	glLineWidth(4.0);
 	glColor3ub($B0, $B0, $B0);
 	glEnableClientState(GL_VERTEX_ARRAY);
 	glVertexPointer(2, GL_INT, 0, @RopePoints.rounded[0]);
 	glDrawArrays(GL_LINE_STRIP, 0, RopePoints.Count + 2);
 	glColor4f(1, 1, 1, 1);
 	glPopMatrix;
 	glEnable(GL_TEXTURE_2D);
 	//glDisable(GL_LINE_SMOOTH)
 	end
 end;
 gtRCPlane: if (Gear^.Tag = -1) then
 DrawRotated(sprPlane, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, -1,  DxDy2Angle(Gear^.dX, Gear^.dY) + 90)
 else
 DrawRotated(sprPlane, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy,0,DxDy2Angle(Gear^.dY, Gear^.dX));
 gtBall: DrawRotatedf(sprBalls, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, Gear^.Tag,0, DxDy2Angle(Gear^.dY, Gear^.dX));
 gtDrill: DrawRotated(sprDrill, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, 0, DxDy2Angle(Gear^.dY, Gear^.dX));
 gtHedgehog: DrawHH(Gear);
 gtAmmo_Grenade: DrawRotated(sprGrenade, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, 0, DxDy2Angle(Gear^.dY, Gear^.dX));
 gtHealthTag: if Gear^.Tex <> nil then DrawCentered(hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, Gear^.Tex);
 gtGrave: DrawSurfSprite(hwRound(Gear^.X) + WorldDx - 16, hwRound(Gear^.Y) + WorldDy - 16, 32, (GameTicks shr 7) and 7, PHedgehog(Gear^.Hedgehog)^.Team^.GraveTex);
 gtUFO: DrawSprite(sprUFO, hwRound(Gear^.X) - 16 + WorldDx, hwRound(Gear^.Y) - 16 + WorldDy, (GameTicks shr 7) mod 4);
 gtPickHammer: DrawSprite(sprPHammer, hwRound(Gear^.X) - 16 + WorldDx, hwRound(Gear^.Y) - 50 + LongInt(((GameTicks shr 5) and 1) * 2) + WorldDy, 0);
 gtRope: DrawRope(Gear);
 gtSmokeTrace: if Gear^.State < 8 then DrawSprite(sprSmokeTrace, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, Gear^.State);
 gtExplosion: DrawSprite(sprExplosion50, hwRound(Gear^.X) - 32 + WorldDx, hwRound(Gear^.Y) - 32 + WorldDy, Gear^.State);
 gtMine: if ((Gear^.State and gstAttacking) = 0)or((Gear^.Timer and $3FF) < 420)
 						if not (TestCollisionXwithXYShift(t^.ar[i], _0, -2, hwSign(t^.ar[i]^.dX))
 							or TestCollisionYwithGear(t^.ar[i], -1)) then t^.ar[i]^.Y:= t^.ar[i]^.Y - _1;
 						if not (TestCollisionXwithXYShift(t^.ar[i], _0, -1, hwSign(t^.ar[i]^.dX))
 							or TestCollisionYwithGear(t^.ar[i], -1)) then t^.ar[i]^.Y:= t^.ar[i]^.Y - _1;
 						end;
 					FollowGear:= t^.ar[i]
 					end;
 		end
 	end;
 SetAllToActive
 end;
 // handles case of no ammo or utility crates - considered also placing booleans in uAmmos and altering probabilities
 if (FollowGear <> nil) then
 	begin
 	FindPlace(FollowGear, true, 0, LAND_WIDTH);
 	if (FollowGear <> nil) then
 		PlaySound(sndReinforce, false, CurrentTeam^.voicepack)
 	end
 end;
 	repeat
 		inc(x, Delta);
 		cnt:= 0;
 if topY > 1024 then
 		    y:= 1024-Gear^.Radius * 2
 else
 		    y:= topY-Gear^.Radius * 2;
 		while y < LAND_HEIGHT do
 			begin
 			repeat
 				inc(y, 2);
 			until (y >= LAND_HEIGHT) or (CountNonZeroz(x, y, Gear^.Radius - 1) = 0);
 			sy:= y;
 			repeat
 				inc(y);
 			until (y >= LAND_HEIGHT) or (CountNonZeroz(x, y, Gear^.Radius - 1) <> 0);
 			if (y - sy > Gear^.Radius * 2)
 				and (y < LAND_HEIGHT)
 				and (CheckGearsNear(x, y - Gear^.Radius, [gtHedgehog, gtMine, gtCase], 110, 110) = nil) then
 				begin
 				ar[cnt].X:= x;
 				if withFall then ar[cnt].Y:= sy + Gear^.Radius
 							else ar[cnt].Y:= y - Gear^.Radius;
 				inc(cnt)
 				end;
 			inc(y, 45)
 			end;
 		if cnt > 0 then
 			with ar[GetRandom(cnt)] do
 				begin
 				ar2[cnt2].x:= x;
 				ar2[cnt2].y:= y;
 				inc(cnt2)
 				end
 	until (x + Delta > Right);
 	dec(Delta, 60)
 until (cnt2 > 0) or (Delta < 70);
 if cnt2 > 0 then
 	with ar2[GetRandom(cnt2)] do

changeset 2376	ece7b87f1334
parent 2366	b38efe489615
child 2388	76ccf12faf22