some bugs have been fixed.

some bugs have been fixed.

added a shortcut function for loading resources.

fixed all the examples

Author: GuvaCode

examples/audio/audio_mixed_processor/audio_mixed_processor.lpr

@@ -71,8 +71,8 @@ procedure ProcessAudio(buffer: pointer; frames:LongWord); cdecl;
 
   AttachAudioMixedProcessor(@ProcessAudio);
 
-  music := LoadMusicStream('resources/country.mp3');
-  sound := LoadSound('resources/coin.wav');
+  music := LoadMusicStream(PChar(GetApplicationDirectory + 'resources/country.mp3'));
+  sound := LoadSound(PChar(GetApplicationDirectory + 'resources/coin.wav'));
 
   PlayMusicStream(music);
 

examples/audio/audio_module_playning/audio_module_playing.lpr

@@ -65,7 +65,7 @@     CircleWave = record
         circles[i].color := colors[GetRandomValue(0, 13)];
     end;
 
-  music := LoadMusicStream('resources/mini1111.xm');
+  music := LoadMusicStream(PChar(GetApplicationDirectory + 'resources/mini1111.xm'));
   music.looping := false;
 
   pitch := 1.0;

examples/audio/audio_multichannel_sound/audio_multichannel_sound.lpr

@@ -1,13 +1,14 @@
 {*******************************************************************************************
 *
-*   raylib [audio] example - Multichannel sound playing
+*   raylib [audio] example - Playing sound multiple times
 *
-*   This example has been created using raylib 2.6 (www.raylib.com)
-*   raylib is licensed under an unmodified zlib/libpng license (View raylib.h for details)
+*   Example originally created with raylib 4.6
 *
-*   Example contributed by Chris Camacho (@chriscamacho) and reviewed by Ramon Santamaria (@raysan5)
+*   Example licensed under an unmodified zlib/libpng license, which is an OSI-certified,
+*   BSD-like license that allows static linking with closed source software
+*
+*   Copyright (c) 2023 Jeffery Myers (@JeffM2501)
 *
-*   Copyright (c) 2019 Chris Camacho (@chriscamacho) and Ramon Santamaria (@raysan5)
 *   Pascal conversion (c) 2021 Gunko Vadim (@guvacode)
 ********************************************************************************************}
 
@@ -20,48 +21,55 @@
 const
  screenWidth = 800;
  screenHeight = 450;
+ MAX_SOUNDS = 10;
 
 var
-  fxWav,fxOgg: TSound;
-
+  soundArray: array[0..MAX_SOUNDS] of TSound;
+  currentSound, i: Integer;
+  dir: string;
 begin
 
- InitWindow(screenWidth, screenHeight, 'raylib [audio] example - Multichannel sound playing');
+ InitWindow(screenWidth, screenHeight, 'raylib [audio] example - playing sound multiple times');
 
  InitAudioDevice();      // Initialize audio device
 
- fxWav := LoadSound('resources/sound.wav');         // Load WAV audio file
- fxOgg := LoadSound('resources/target.ogg');        // Load OGG audio file
+ // load the sound list
+ soundArray[0] := LoadSound(PChar(GetApplicationDirectory + 'resources/sound.wav')); // Load WAV audio file into the first slot as the 'source' sound
+                                                                                     // this sound owns the sample data
+ for i := 1 to MAX_SOUNDS do
+ soundArray[i] := LoadSoundAlias(soundArray[0]); // Load an alias of the sound into slots 1-9. These do not own the sound data, but can be played
+ currentSound := 0;  // set the sound list to the start
 
- SetSoundVolume(fxWav, 0.2);
-
- SetTargetFPS(60);  // Set our game to run at 60 frames-per-second
+ SetTargetFPS(60);               // Set our game to run at 60 frames-per-second
 
  // Main game loop
  while not WindowShouldClose() do // Detect window close button or ESC key
  begin
    // Update
-   if IsKeyPressed(KEY_ENTER) then PlaySoundMulti(fxWav);     // Play a new wav sound instance
-   if IsKeyPressed(KEY_SPACE) then PlaySoundMulti(fxOgg);     // Play a new ogg sound instance
+
+   if IsKeyPressed(KEY_SPACE) then
+   begin
+     PlaySound(soundArray[currentSound]);            // play the next open sound slot
+     Inc(currentSound);                                 // increment the sound slot
+     if (currentSound >= MAX_SOUNDS) then                 // if the sound slot is out of bounds, go back to 0
+     currentSound := 0;
+   end;
+
+
    // Draw
    BeginDrawing();
 
    ClearBackground(RAYWHITE);
 
-   DrawText('MULTICHANNEL SOUND PLAYING', 20, 20, 20, GRAY);
-   DrawText('Press SPACE to play new ogg instance!', 200, 120, 20, LIGHTGRAY);
-   DrawText('Press ENTER to play new wav instance!', 200, 180, 20, LIGHTGRAY);
-
-   DrawText(TextFormat('CONCURRENT SOUNDS PLAYING: %02i', GetSoundsPlaying), 220, 280, 20, RED);
+   DrawText('Press SPACE to PLAY a WAV sound!', 200, 180, 20, LIGHTGRAY);
 
    EndDrawing();
  end;
  // De-Initialization
- StopSoundMulti();       // We must stop the buffer pool before unloading
- UnloadSound(fxWav);     // Unload sound data
- UnloadSound(fxOgg);     // Unload sound data
+ for i := 1 to MAX_SOUNDS do
+ UnloadSoundAlias(soundArray[i]);     // Unload sound aliases
+ UnloadSound(soundArray[0]);          // Unload source sound data
  CloseAudioDevice();     // Close audio device
- CloseWindow();          // Close window and OpenGL context
-
+ CloseWindow();          // Close window and OpenGL contex
 end.
 

examples/audio/audio_music_stream/audio_music_stream.lpr

@@ -30,7 +30,7 @@
 
  InitAudioDevice();              // Initialize audio device
 
- music := LoadMusicStream('resources/country.mp3');
+ music := LoadMusicStream(PChar(GetApplicationDirectory + 'resources/country.mp3'));
 
  PlayMusicStream(music);
 

examples/audio/audio_raw_stream/audio_raw_stream.lpi

@@ -38,7 +38,7 @@
   <CompilerOptions>
     <Version Value="11"/>
     <Target>
-      <Filename Value="../../../binary/audio_raw_stream"/>
+      <Filename Value="../../../binary/audio_raw_streams"/>
     </Target>
     <SearchPaths>
       <IncludeFiles Value="$(ProjOutDir)"/>

examples/audio/audio_raw_stream/audio_raw_stream.lpr

@@ -14,7 +14,7 @@
 ********************************************************************************************)
 unit audio_raw_stream;
 
-{$IFDEF FPC}{$MODE DELPHIUNICODE}{$ENDIF}
+
 
 interface
 

examples/audio/audio_sound_loading/audio_sound_loadig.lpr

@@ -17,8 +17,8 @@
   InitWindow(screenWidth, screenHeight, 'raylib [audio] example - sound loading and playing');
   InitAudioDevice();      // Initialize audio device
 
-  fxWav := LoadSound('resources/sound.wav');         // Load WAV audio file
-  fxOgg := LoadSound('resources/target.ogg');        // Load OGG audio file
+  fxWav := LoadSound(GetAppDir('resources/sound.wav'));         // Load WAV audio file
+  fxOgg := LoadSound(GetAppDir('resources/target.ogg'));        // Load OGG audio file
 
   SetTargetFPS(60);               // Set our game to run at 60 frames-per-second
  //--------------------------------------------------------------------------------------

examples/core/core_3d_picking/core_3d_picking.lpr

@@ -45,7 +45,7 @@
     begin
       // Update
       //----------------------------------------------------------------------------------
-          UpdateCamera(@Camera,CAMERA_FREE);
+          UpdateCamera(@Camera,CAMERA_FIRST_PERSON);
 
     if IsMouseButtonPressed(MOUSE_BUTTON_LEFT) then
     begin

examples/core/core_split_screen/core_split_screen.lpr

@@ -26,10 +26,10 @@
   screenHeight = 450;
 
 var
-   textureGrid : TTexture2D;
+
    cameraPlayer1 :TCamera;
    cameraPlayer2 :TCamera;
-   img: TImage;
+
    screenPlayer1: TRenderTexture;
    screenPlayer2: TRenderTexture;
    splitScreenRect: TRectangle;
@@ -50,8 +50,8 @@
        begin
          for z :=-count to count do
           begin
-               DrawCubeTexture(textureGrid,Vector3Create(x*spacing, 1.5, z*spacing), 1, 1, 1, GREEN);
-               DrawCubeTexture(textureGrid,Vector3Create(x*spacing, 0.5, z*spacing), 0.25, 1, 0.25, BROWN);
+               DrawCube(Vector3Create(x*spacing, 1.5, z*spacing), 1, 1, 1, GREEN);
+               DrawCube(Vector3Create(x*spacing, 0.5, z*spacing), 0.25, 1, 0.25, BROWN);
            end;
        end;
 
@@ -66,12 +66,6 @@
   //--------------------------------------------------------------------------------------
   InitWindow(screenWidth, screenHeight, 'raylib [core] example - split screen');
 
-  // Generate a simple texture to use for trees
-    img := GenImageChecked(256, 256, 32, 32, DARKGRAY, WHITE);
-    textureGrid := LoadTextureFromImage(img);
-    UnloadImage(img);
-    SetTextureFilter(textureGrid, TEXTURE_FILTER_ANISOTROPIC_16X);
-    SetTextureWrap(textureGrid, TEXTURE_WRAP_CLAMP);
 
     // Setup player 1 camera and screen
     cameraPlayer1.fovy := 45.0;
@@ -164,7 +158,7 @@
   //--------------------------------------------------------------------------------------
   UnloadRenderTexture(screenPlayer1); // Unload render texture
   UnloadRenderTexture(screenPlayer2); // Unload render texture
-  UnloadTexture(textureGrid);         // Unload texture
+
   CloseWindow();        // Close window and OpenGL context
 
   //--------------------------------------------------------------------------------------