Error Ramttation pack bgt
Guys made the code on BGT, but for a long time with ramttation pack did not work. when shooting at a target, nothing happens.
sound_pool s;
vector player(0, 0, 0);
double turn;
vector object(0, 0, 0);
int object_slot;
int points=0;
timer step;
timer turning;
void l1()
{
start.play_wait();
wait(3000);
dlgplay("sounds/m1.wav");
player.x=1;
player.y=1;
object.x=random(1, 20);
object.y=random(1, 20);
object_slot=s.play_2d("sounds/звук предмета.wav", player.x, player.y, object.x, object.y, calculate_theta(turn), true);
turn=0;
while(true) {
if(key_down(KEY_UP) and step.elapsed>300) {
player=move(player.x, player.y, 0, turn, north);
s.play_stationary("sounds/step"+random(1, 3)+".wav", false);
step.restart();
}
if(key_down(KEY_DOWN) and step.elapsed>300) {
player=move(player.x, player.y, 0, turn, south);
s.play_stationary("sounds/step"+random(1, 3)+".wav", false);
step.restart();
}
if(key_down(KEY_LEFT) and turning.elapsed>50)
{
turn=turnleft(turn, 10);
turning.restart();
}
if(key_down(KEY_RIGHT) and turning.elapsed>50)
{
turn=turnright(turn, 10);
turning.restart();
}
if(key_pressed(KEY_SPACE))
{
if(calculate_x_y_angle(player.x, player.y, object.x, object.y, turn)>345 and calculate_x_y_angle(player.x, player.y, object.x, object.y, turn)<=15)
{
s.play_stationary("sounds/предмет взят.wav", false);
object.x=random(1, 20);
object.y=random(1, 20);
s.update_sound_2d(object_slot, object.x, object.y);
points+=1;
}
s.play_stationary("sounds/vin.wav", false);
}
if(points==5)
{
alert("Сообщение", "Вы выиграли");
exit();
}
if(key_pressed(KEY_C))
say_message(round(player.x, 0)+", "+round(player.y, 0));
if(key_pressed(KEY_RETURN))
say_message("Вы набрали "+points+" очков");
if(key_pressed(KEY_ESCAPE))
exit();
s.update_listener_2d(player.x, player.y, calculate_theta(turn));
wait(5);
}
}
_______________________________________________ Audiogames-reflector mailing list Audiogames-reflector@sabahattin-gucukoglu.com https://sabahattin-gucukoglu.com/cgi-bin/mailman/listinfo/audiogames-reflector
