Community for the Sphere game engine

New? Contact Us to register an account!

var dx = player_x - enemy_x;
var dy = player_y - enemy_y;

var distance = Math.sqrt(dx*dx + dy*dy);

Abort("My distance away from the enemy is: "+ distance);

var dx = source_x - player_x;
var dy = source_y - player_y;

var distance = Math.sqrt(dx*dx + dy*dy);

sound.setVolume((1- (distance / max_distance)) * 255);

function TestMouse()
{
	var done = false;
    var arrow = GetSystemArrow();
    var a_x = GetScreenWidth() / 2 - arrow.width / 2;
    var a_y = GetScreenHeight() / 2 - arrow.height / 2;
	var green = CreateColor(0, 255, 0);

    while (!done) {
        var x = GetMouseX();
        var y = GetMouseY();

        var dx = x - (a_x + arrow.width / 2);
        var dy = y - (a_y + arrow.height / 2);

        var angle = Math.atan2(dy, dx);

		Point(x, y, green);
        arrow.rotateBlit(a_x, a_y, angle);
        FlipScreen();

		while (AreKeysLeft()) {
			if (GetKey() == KEY_ENTER) done = true;
		}
    }
}

 // Create a length 624 array to store the state of the generator
 int[0..623] MT
 int index = 0
 
 // Initialize the generator from a seed
 function initialize_generator(int seed) {
     index := 0
     MT[0] := seed
     for i from 1 to 623 { // loop over each other element
         MT[i] := last 32 bits of(1812433253 * (MT[i-1] xor (right shift by 30 bits(MT[i-1]))) + i) // 0x6c078965
     }
 }
 
 // Extract a tempered pseudorandom number based on the index-th value,
 // calling generate_numbers() every 624 numbers
 function extract_number() {
     if index == 0 {
         generate_numbers()
     }
 
     int y := MT[index]
     y := y xor (right shift by 11 bits(y))
     y := y xor (left shift by 7 bits(y) and (2636928640)) // 0x9d2c5680
     y := y xor (left shift by 15 bits(y) and (4022730752)) // 0xefc60000
     y := y xor (right shift by 18 bits(y))

     index := (index + 1) mod 624
     return y
 }
 
 // Generate an array of 624 untempered numbers
 function generate_numbers() {
     for i from 0 to 623 {
         int y := (MT[i] & 0x80000000)                       // bit 31 (32nd bit) of MT[i]
                        + (MT[(i+1) mod 624] & 0x7fffffff)   // bits 0-30 (first 31 bits) of MT[...]
         MT[i] := MT[(i + 397) mod 624] xor (right shift by 1 bit(y))
         if (y mod 2) != 0 { // y is odd
             MT[i] := MT[i] xor (2567483615) // 0x9908b0df
         }
     }
 }