//Theese functions put the enemies:
var Max_hordes=2; //maximo numero de hordas
function reset_values() // reinicia los valores
{
var i;
vec_set(GMSA,vector(0,0,0)); vec_set(GMSB,vector(0,0,0)); vec_set(GMSC,vector(0,0,0));
vec_set(GMSD,vector(0,0,0)); vec_set(GMSE,vector(0,0,0));
for(i = 0; i < 20; i += 1)
{
GM_S_NE[i] = 0;
}
}
function initialize_values(var h) // posicion de aparicion de los monstruos y numero maximo en total y de cada uno de ellos
{
switch(h)
{
case 0:
vec_add(GMSA,vector(0,0,0)); vec_add(GMSB,vector(1040,2720,180)); vec_add(GMSC,vector(780,2040,180));
vec_add(GMSD,vector(1660,2840,180)); vec_add(GMSE,vector(1363,1567,180));
GM_S_ME[0] = 5; GM_S_ME[1] = 3; GM_S_ME[2] = 4; GM_S_ME[3] = 0; GM_S_ME[4] = 0;
GM_S_ME[5] = 0; GM_S_ME[6] = 0; GM_S_ME[7] = 0; GM_S_ME[8] = 0; GM_S_ME[9] = 0;
break;
}
}
function GM_S_CE(var cual_mostruo)
{
var create_position;
vec_set(GMSA, vector(1650,2150,0));
vec_add(GMSA, vector(250 - random(500),250 - random(500),0));
create_position = 0;
create_position = integer(random(4));
create_position %= 4;
wait(-1);
switch(cual_mostruo)
{
case 0: ent_create("egg.mdl", GMSA, zombie); break;
case 1: ent_create("egg.mdl", GMSA, zombie); break;
case 2: ent_create("egg.mdl", GMSA, zombie); break;
case 3: ent_create("chopper.mdl", GMSA, NULL); break;
}
++GM_S_NE[cual_mostruo];
}
function Game_Mode_S(var Nhorde, var end_horde)
{
var i, number_monsters, create_position, horde = 0;
while(1)
{
wait(1);
if(horde < Nhorde)//nNhorde
{
reset_values(); number_monsters = 0;
initialize_values(horde);
for(i = 0; i < 20; i ++){end_horde += GM_S_ME[i];}
while(!player){wait(1);}
while(number_monsters < end_horde)//End horde
{
for(i = 0; i < 20; i ++)
{
if(GM_S_NE[i] < GM_S_ME[i])
{
GM_S_CE(i);
++number_monsters;
wait(-2);
}
}
wait(1);
}
++horde;
//break_off();
switch(horde)
{
case 0:
//activa un evento X de acuerdo a la horda actual
//muestra un mensaje
break;
}
//crea municiones
//crea curas
wait(-15);
}
//muestra mensaje de victoria
//cierra el nivel
//muestra tabla de resultados
}
}
// and this is the monster code:
function CCD()
{
if(my.skill88 == 0)
{
my.skill88 = 1;
wait(-5);
my.skill92 = integer(random(2)) + 1;//camino o me quedo quieto?
my.skill88 = 0;
}
}
action zombie()
{
VECTOR* SPOTTEDP,C_speed, temp, temp2, IFOM, GGC; //IFOM= in front of my, MDTTF = my distance to the floor, GG = gravedad
ANGLE temp_ang;
my.skill89 = 35;
my.health = 100;
my.skill98 = 1000;
my.skill97 = 250;
my.skill94 = 0;
my._id = _id_enemy;
vec_set(temp2.x, nullvector);
vec_set(temp.x, nullvector);
vec_set(C_speed.x, nullvector);
vec_set(IFOM.x, nullvector);
vec_set(GGC.x, nullvector);
my.skill92 = integer(random(2)) + 1;//camino o me quedo quieto?
while (1)
{
while(my.health > 0)//no detecto nada
{
// si me hiero demasiado puedo morir
if(my.health <= 0)
{
break;
}
//soy atraido por la gravedad, y me inclino de acuerdo al suelo
temp2.z -= 100000;
my.skill90 = c_trace(my.x, temp2.x, IGNORE_ME | IGNORE_PASSABLE | USE_BOX | GLIDE | IGNORE_PASSENTS);
c_move(my, nullvector, GGC.x, IGNORE_PASSABLE | GLIDE);
if(my.skill90 < (my.skill89 -3))
{
GGC.z += 0.05 * time_step;
}
else
{
if(my.skill90 > (my.skill89 +3))
{
GGC.z -= 3 * time_step;
}
else
{
temp_ang.tilt = 0; // adjust the tilt and roll angles of the car according to the slopes
temp_ang.roll = 0;
temp_ang.pan = -my.pan;
vec_rotate(normal, temp_ang);
temp_ang.tilt = -asin(normal.x);
temp_ang.roll = -asin(normal.y);
my.tilt += 0.1 * ang(temp_ang.tilt - my.tilt); // play with 0.1
my.roll += 0.1 * ang(temp_ang.roll - my.roll); // play with 0.1
}
}
//camino por ahi
if(my.skill92 == 1)
{
vec_set(IFOM.x, vector(200,0,0));
vec_add(IFOM.x, my.x);
if(my.skill93 == 0)
{
vec_set(IFOM.x, vector(300,0,0));
vec_rotate(IFOM.x, my.pan);
vec_add(IFOM.x, my.x);
my.skill91 = c_trace(my.x, IFOM.x, IGNORE_ME | IGNORE_PASSABLE);
C_speed.x = 18 * time_step;
my.skill22 += 18 * time_step; // 5 gives the "walk" animation speed
c_move(my, C_speed.x, GGC.x, IGNORE_PASSABLE | GLIDE);
ent_animate(my, "run", my.skill22, ANM_CYCLE);
if(my.skill91 > 0)
{
my.skill93 = (random(360) * -1) + 180;
while((my.skill93 < 70) && (my.skill93 > -70) && (my.skill93 < -140) && (my.skill93 > 140))
{
my.skill93 = (random(360) * -1) + 180;
if(my.health <= 0)
{
break;
}
wait(1);
}
my.skill91 = 0;
}
}
else
{
C_speed.x = 12 * time_step;
my.skill22 += 17 * time_step; // 5 gives the "walk" animation speed
c_move(my, C_speed.x, GGC.x, IGNORE_PASSABLE | GLIDE);
ent_animate(my, "run", my.skill22, ANM_CYCLE);
if((my.skill93 - ang(my.pan)) > 5)
{
my.pan += 7 * time_step;
}
else
{
if((my.skill93 - ang(my.pan)) < -5)
{
my.pan -= 7 * time_step;
}
else
{
my.skill92 = integer(random(2)) + 1;
my.skill93 = 0;
}
}
}
}
// me quedo quieto
if(my.skill92 == 2)
{
c_move(my, nullvector, GGC.x, IGNORE_PASSABLE | GLIDE);
my.skill22 += 2 * time_step; // 2 gives the "idle" animation speed
ent_animate(my, "stand", my.skill22, ANM_CYCLE);
if(my.skill22 > 150)
{
my.skill22 -= 150;
CCD();
}
}
if(my.skill92 == 3)
{
my.skill92 = 2;
}
//busco al jugador
//¿lo oi?
//enable_scan
//¿lo veo?
if (c_scan(my.x, my.pan, vector(120, 90, my.skill98), IGNORE_ME | IGNORE_PASSABLE | SCAN_ENTS) > 0) // detected the player?
{
if(you._id == _id_player)
{
if ((c_trace(my.x, you.x, IGNORE_ME | IGNORE_PASSABLE) > 0) && (you._id == _id_player))// and the spider can actually see the player?
my.skill94 = 1;
break; // then get out of this loop!
}
}
//¿lo huelo?
if (c_scan(my.x, my.pan, vector(120, 90, my.skill98), IGNORE_ME) > 0) // detected the player?
{
if(you._id == _id_player)
{
my.skill94 = 1;
break; // then get out of this loop!
}
}
//¿lo siento?
//event_touch
//
wait (1);
}
while((my.health > 0) && (my.skill94 == 1))//detecto algo
{
c_scan(my.x, my.pan, vector(120, 90, (my.skill98 + 1000)), IGNORE_ME);// ver
if(my.health <= 0)
{
break;
}
while(you != NULL)
{
if(my.health <= 0)
{
break;
}
if(you._id == _id_player)
{
c_scan(my.x, my.pan, vector(120, 90, (my.skill98 + 1000)), IGNORE_ME);// ver
if(vec_dist(me.x, you.x) < my.skill98)
{
if(vec_dist(me.x, you.x) > my.skill97)
{
vec_set(temp, you.x);
vec_sub(temp, my.x);
vec_to_angle(my.pan, temp);
C_speed.x = 24 * time_step;
my.skill22 += 24 * time_step; // 5 gives the "walk" animation speed
c_move(my, C_speed.x, GGC.x, IGNORE_PASSABLE | GLIDE);
ent_animate(my, "run", my.skill22, ANM_CYCLE);
}
else
{
my.skill21 += 15 * time_step; // 5 gives the "walk" animation speed
ent_animate(my, "attack", my.skill21, ANM_CYCLE);
}
}
else
{
my.skill92 = integer(random(2)) + 1;
my.skill94 = 0;
break;
}
}
else
{
my.skill92 = integer(random(2)) + 1;
my.skill94 = 0;
break;
}
wait(1);
}
wait(1);
}
ent_animate(me,NULL,0,0);
my.skill21 = 0;
while((my.health <= 0))//he muerto
{
my.skill21 += 1 * time_step; // 5 gives the "walk" animation speed
ent_animate(my, "death", my.skill21, NULL);
wait (1);
wait(-3);
set(my,PASSABLE);
set(my,INVISIBLE);
}
wait (1);
}
}
