games/phantasia/fight.c

65 	if (Curmonster.m_type == SM_MORGOTH)
69 	if (Curmonster.m_type == SM_UNICORN) {
75 			Curmonster.m_experience = 0.0;
76 			Curmonster.m_treasuretype = 0;
85 			    Enemyname, Curmonster.m_experience, Circle);
91 			if (Curmonster.m_type == SM_DARKLORD
103 			Curmonster.m_speed = MIN(Curmonster.m_speed + 1.0, Curmonster.m_maxspeed);
105 			if (drandom() * Curmonster.m_speed > drandom() * Player.p_speed
107 			    && Curmonster.m_type != SM_DARKLORD
109 			    && Curmonster.m_type != SM_SHRIEKER
139 			if (Curmonster.m_energy <= 0.0)
145 	Player.p_experience += Curmonster.m_experience;
147 	if (drandom() < Curmonster.m_flock / 100.0)
156 		    && Curmonster.m_treasuretype > 0
225 		if (Curmonster.m_type == SM_MORGOTH)
255 		Curmonster.m_melee += inflict;
256 		Curmonster.m_strength = Curmonster.m_o_strength
257 		    - Curmonster.m_melee / Curmonster.m_o_energy
258 		    * Curmonster.m_o_strength / 4.0;
267 		Curmonster.m_skirmish += inflict;
268 		Curmonster.m_maxspeed = Curmonster.m_o_speed
269 		    - Curmonster.m_skirmish / Curmonster.m_o_energy
270 		    * Curmonster.m_o_speed / 4.0;
276 		if ((Curmonster.m_type == SM_DARKLORD
277 			|| Curmonster.m_type == SM_SHRIEKER
280 			> drandom() * Curmonster.m_speed * Curmonster.m_brains)
281 		    && (Curmonster.m_type != SM_MIMIC))
300 		Player.p_experience += floor(Curmonster.m_experience / 10.0);
301 		Curmonster.m_experience *= 0.92;
303 		Curmonster.m_maxspeed += 2.0;
304 		Curmonster.m_speed = (Curmonster.m_speed < 0.0) ? 0.0 : Curmonster.m_speed + 2.0;
305 		if (Curmonster.m_type == SM_DARKLORD)
323 			if (Curmonster.m_type == SM_MORGOTH)
335 				    < (drandom() + 0.333) * Curmonster.m_brains)
339 					Curmonster.m_energy = 0.0;
364 	switch (Curmonster.m_type)
383 		inflict = ROLL(10.0, Curmonster.m_strength);
396 			Curmonster.m_energy = 0.0;
411 		switch (Curmonster.m_type) {
577 			Curmonster.m_energy +=
578 			    floor((Curmonster.m_o_energy - Curmonster.m_energy) / 2.0);
579 			Curmonster.m_strength = Curmonster.m_o_strength;
580 			Curmonster.m_melee = Curmonster.m_skirmish = 0.0;
581 			Curmonster.m_maxspeed = Curmonster.m_o_speed;
598 	inflict = drandom() * Curmonster.m_strength + 0.5;
611 	Curmonster.m_energy = 0.0;
612 	Curmonster.m_experience = 0.0;
613 	Curmonster.m_treasuretype = 0;
614 	Curmonster.m_flock = 0.0;
621 	Curmonster.m_energy -= inflict;
622 	if (Curmonster.m_energy > 0.0) {
623 		if (Curmonster.m_type == SM_DARKLORD || Curmonster.m_type == SM_SHRIEKER)
629 		if (Curmonster.m_type == SM_MORGOTH)
636 			if (Curmonster.m_type == SM_MIMIC
637 			    && strcmp(Curmonster.m_name, "A Mimic") != 0
678 	if (Curmonster.m_type == SM_MORGOTH && ch != '3')
687 				inflict = Curmonster.m_energy * 1.01 + 1.0;
689 				if (Curmonster.m_type == SM_DARKLORD)
697 				Curmonster.m_o_strength = Curmonster.m_strength *= 2.0;
698 				Curmonster.m_maxspeed *= 2.0;
699 				Curmonster.m_o_speed *= 2.0;
702 				Curmonster.m_speed = MAX(1.0, Curmonster.m_speed * 2.0);
726 				if (Curmonster.m_type == SM_DARKLORD)
803 					    < Curmonster.m_experience / 200.0 * drandom()) {
812 							Curmonster.m_treasuretype = 0;
814 						Curmonster.m_energy = 0.0;
828 					    Curmonster.m_experience / 1000.0 * drandom()) {
830 						Curmonster.m_speed = -2.0;
863 	fread((char *) &Curmonster, SZ_MONSTERSTRUCT, 1, Monstfp);
866 	if (Curmonster.m_type == SM_MODNAR) {
870 			Curmonster.m_strength *= drandom() + 0.5;
871 			Curmonster.m_brains *= drandom() + 0.5;
872 			Curmonster.m_speed *= drandom() + 0.5;
873 			Curmonster.m_energy *= drandom() + 0.5;
874 			Curmonster.m_experience *= drandom() + 0.5;
875 			Curmonster.m_treasuretype =
876 			    (int) ROLL(0.0, (double) Curmonster.m_treasuretype);
880 			strcpy(Curmonster.m_name, "Morgoth");
881 			Curmonster.m_strength = drandom() * (Player.p_maxenergy + Player.p_shield) / 1.4
883 			Curmonster.m_brains = Player.p_brains;
884 			Curmonster.m_energy = Player.p_might * 30.0;
885 			Curmonster.m_type = SM_MORGOTH;
886 			Curmonster.m_speed = Player.p_speed * 1.1
888 			Curmonster.m_flock = 0.0;
889 			Curmonster.m_treasuretype = 0;
890 			Curmonster.m_experience = 0.0;
893 		if (Curmonster.m_type == SM_MIMIC)
899 			strcpy(Curmonster.m_name, Othermonster.m_name);
901 	truncstring(Curmonster.m_name);
903 	if (Curmonster.m_type != SM_MORGOTH)
906 		Curmonster.m_strength *= (1.0 + Circle / 2.0);
907 		Curmonster.m_brains *= Circle;
908 		Curmonster.m_speed += Circle * 1.e-9;
909 		Curmonster.m_energy *= Circle;
910 		Curmonster.m_experience *= Circle;
916 		Enemyname = Curmonster.m_name;
921 		Curmonster.m_speed += -Player.p_speed;
925 	Curmonster.m_o_strength = Curmonster.m_strength;
926 	Curmonster.m_o_speed = Curmonster.m_maxspeed = Curmonster.m_speed;
927 	Curmonster.m_o_energy = Curmonster.m_energy;
928 	Curmonster.m_melee = Curmonster.m_skirmish = 0.0;
943 	treasuretype = (double) Curmonster.m_treasuretype;
952 		if (Curmonster.m_treasuretype > 7)
991 			if (drandom() < 0.08 && Curmonster.m_treasuretype != 4) {
996 				switch (Curmonster.m_treasuretype) {
1246 						if (Curmonster.m_treasuretype == 10) {
1251 							if (Curmonster.m_treasuretype == 11
1259 								    && (Curmonster.m_treasuretype == 12
1260 									|| Curmonster.m_treasuretype == 13))
1282 										if (Curmonster.m_treasuretype == 12) {