////////////////////////////////////////////
// Qndre's Game Physics Engine  1.0.1     //
// Requires a running instance            //
// of the A4 engine                       //
// and an A5 compatible WDL C interpreter //
//                                        //
// This software is still in beta.        //
////////////////////////////////////////////

var intindicat = 0;
var a_position[3];
var a_angle[3];
var friction;
var force[3];
var temp[3];
var dist[3];

action move_me
{
   while (1) {
      force.pan = -10 * key_force.x;
      my.skill14 = time*force.pan + max(1-time*0.7,0)*my.skill14;
      my.pan += time * my.skill14;
      vec_set(temp.x);
      temp.z -= 4000;
      trace_mode = ignore_me+ignore_sprites+ignore_models;
      result = trace(my.x,temp);
      if (result > 5) {
         force.x = 0;
         force.y = 0;
         force.z = -5;
         friction = 0.1;
      } else {
         force.x = 10 * key_force.y;
         force.y = 0;
         force.z = -0.5 * result;
         friction = 0.7;
      }
      my.skill11 = time*force.x + max(1-time*friction,0)*my.skill11;
      my.skill13 = time*force.z + max(1-time*friction,0)*my.skill13;
      dist.x = time * my.skill11;
      dist.y = 0;
      dist.z = time * my.skill13;
      move(my,dist,nullvector);
      move_view();
      wait(1);
   }
}