Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Sound effects experimentation
#5
Now added the other 2 functions, and incorporated Marcus's fix for playing sound:
Code:
visible screen_w = 1024,screen_h = 768
'Open a window
set window "Sound FX",screen_w,screen_h,1
'enable double buffering
set redraw off

'CreateSquareSfx
sampleRate = 12000
duration = 0.25
startFreq = 500
endFreq = 100
fadeOut = 0.75

'CreateSineSfx
sampleRate2 = 12000
duration2 = 0.25
startFreq2 = 500
endFreq2 = 100
fadeOut2 = 0.75

'CreateNoiseSfx
duration3 = 0.2
pitch3 = 1.2
fadeOut3 = 0
sampleRate3 = 12000



##############################################################################################
#######################################   GAME LOOP  #########################################
##############################################################################################
do

'clear the screen
set color 226,226,226
cls
set color 0,0,0

'-----------------------------------------------------------------
'-----------------------------------------------------------------

set caret 110,30
set justification center
write "CreateSquareSfx";wln
write "==============="
'-----------------------------------------------------------------
play_sound = false
if mousebutton(0)
    if mousey() > 60 and mousey() < 110
        if mousex() > 20 and mousex() < 220
            tmp = mousebutton(0, true) ' mousebutton will return false until it has been
                                          ' released and pressed again.
            play_sound = true
            laserShotSnd = CreateSquareSfx(duration, startFreq, endFreq, fadeOut, sampleRate)'duration, startFreq, endFreq, fadeOut, sampleRate
            play sound laserShotSnd
        endif   
    endif
endif
if play_sound = true
    set color 0,0,0
else
    set color 255,0,0
endif
draw rect 20,60,200,50,1
set caret 120,75
set color 255,255,255
write "PLAY SOUND"
set color 0,0,0
draw rect 20,60,200,50
set caret 120,130

write "DURATION 0.1 - 2.0"
set caret 90,180
write "DURATION = "
set caret 160,180;write duration
set color 128,128,226
draw rect 20,150,200,25,1
set color 0,0,0
draw rect 20,150,200,25
draw rect 20 + duration * 200/2,150,2,25
if mousebutton(0)
    if mousey() > 150 and mousey() < 175
        if mousex() > 20 + duration * 200/2 and mousex() < 220
            duration = duration + 0.05
        elseif mousex() > 20 and mousex() < 20 + duration * 200/2
            duration = duration - 0.05
        endif
    endif
endif

'-------------------------------------------------

set caret 120,230

write "startFreq 0 - 1000"
set caret 90,280
write "startFreq = "
set caret 160,280;write startFreq
set color 128,128,226
draw rect 20,250,200,25,1
set color 0,0,0
draw rect 20,250,200,25
draw rect 20 + startFreq * 200/1000,250,2,25
if mousebutton(0)
    if mousey() > 250 and mousey() < 275
        if mousex() > 20 + startFreq * 200/1000 and mousex() < 220
            startFreq = startFreq + 10
        elseif mousex() > 20 and mousex() < 20 + startFreq * 200/1000
            startFreq = startFreq - 10
        endif
    endif
endif

'-----------------------------------------------------------------

'-------------------------------------------------

set caret 120,330

write "endFreq 0 - 1000"
set caret 90,380
write "endFreq = "
set caret 160,380;write endFreq
set color 128,128,226
draw rect 20,350,200,25,1
set color 0,0,0
draw rect 20,350,200,25
draw rect 20 + endFreq * 200/1000,350,2,25
if mousebutton(0)
    if mousey() > 350 and mousey() < 375
        if mousex() > 20 + endFreq * 200/1000 and mousex() < 220
            endFreq = endFreq + 10
        elseif mousex() > 20 and mousex() < 20 + endFreq * 200/1000
            endFreq = endFreq - 10
        endif
    endif
endif

'-----------------------------------------------------------------

'-------------------------------------------------

set caret 120,430

write "fadeOut 0 - 1"
set caret 90,480
write "fadeOut = "
set caret 160,480;write fadeOut
set color 128,128,226
draw rect 20,450,200,25,1
set color 0,0,0
draw rect 20,450,200,25
draw rect 20 + fadeOut * 200/1,450,2,25
if mousebutton(0)
    if mousey() > 450 and mousey() < 475
        if mousex() > 20 + fadeOut * 200/1 and mousex() < 220
            fadeOut = fadeOut + 0.005
        elseif mousex() > 20 and mousex() < 20 + fadeOut * 200/1
            fadeOut = fadeOut - 0.005
        endif
    endif
endif

'-----------------------------------------------------------------

'-------------------------------------------------

set caret 120,530

write "sampleRate 8000 - 22050"
set caret 90,580
write "sampleRate = "
set caret 160,580;write sampleRate
set color 128,128,226
draw rect 20,550,200,25,1
set color 0,0,0
draw rect 20,550,200,25
draw rect 20 + (sampleRate - 8000) * 200/14050,550,2,25
if mousebutton(0)
    if mousey() > 550 and mousey() < 575
        if mousex() > 20 + (sampleRate - 8000) * 200/14050 and mousex() < 220
            sampleRate = min(22050,sampleRate + 200 )
        elseif mousex() > 20 and mousex() < 20 + (sampleRate - 8000) * 200/14050
            sampleRate = max(8000,sampleRate - 200 )
        endif
    endif
endif

'-----------------------------------------------------------------

set color 226,226,226
draw rect 20,630,200,25,1
set color 0,0,0
draw rect 20,630,200,25
set caret 120,635
write "RESTORE DEFAULTS"

if mousebutton(0)
    if mousey() > 630 and mousey() < 655
        if mousex() > 20  and mousex() < 220
            sampleRate = 12000
            duration = 0.25
            startFreq = 500
            endFreq = 100
            fadeOut = 0.75
           
        endif
    endif
endif





set caret 120,680
write "CreateSquareSfx(" + duration + ", " + startFreq + ", ";wln
write  endFreq+", " +fadeOut+", " +sampleRate + ")"

'--------------------------------------------------------------------------
'--------------------------------------------------------------------------

'-----------------------------------------------------------------
'-----------------------------------------------------------------

set caret screen_w / 2 ,30
set justification center
write "CreateSineSfx";wln
write "============="
'CreateSineSfx(duration, startFreq, endFreq, fadeOut, sampleRate)
'CreateSquareSfx(duration, startFreq, endFreq, fadeOut, sampleRate)
'CreateNoiseSfx(duration, pitch, fadeOut, sampleRate)
'-----------------------------------------------------------------
play_sound2 = false
if mousebutton(0)
    if mousey() > 60 and mousey() < 110
        if mousex() > screen_w / 2 - 100 and mousex() < screen_w / 2 + 100
            tmp = mousebutton(0, true) ' mousebutton will return false until it has been
                                          ' released and pressed again.
            play_sound2 = true
            laserShotSnd2 = CreateSineSfx(duration2, startFreq2, endFreq2, fadeOut2, sampleRate2)'duration, startFreq, endFreq, fadeOut, sampleRate
            play sound laserShotSnd2
        endif   
    endif
endif
if play_sound2 = true
    set color 0,0,0
else
    set color 255,0,0
endif
draw rect screen_w / 2 - 100,60,200,50,1
set caret screen_w / 2 ,75
set color 255,255,255
write "PLAY SOUND"
set color 0,0,0
draw rect screen_w / 2 - 100,60,200,50
set caret screen_w / 2 ,130

write "DURATION 0.1 - 2.0"
set caret screen_w / 2 - 30,180
write "DURATION = "
set caret screen_w / 2 + 40,180;write duration2
set color 128,128,226
draw rect screen_w / 2 - 100,150,200,25,1
set color 0,0,0
draw rect screen_w / 2 - 100,150,200,25
draw rect screen_w / 2 - 100 + duration2 * 200/2,150,2,25
if mousebutton(0)
    if mousey() > 150 and mousey() < 175
        if mousex() > screen_w / 2 - 100 + duration2 * 200/2 and mousex() < screen_w / 2 + 100
            duration2 = duration2 + 0.05
        elseif mousex() > screen_w / 2 - 100 and mousex() < screen_w / 2 - 100 + duration2 * 200/2
            duration2 = duration2 - 0.05
        endif
    endif
endif

'-------------------------------------------------

set caret screen_w / 2 ,230

write "startFreq 0 - 1000"
set caret screen_w / 2 - 20 ,280
write "startFreq = "
set caret screen_w / 2 + 50,280;write startFreq2
set color 128,128,226
draw rect screen_w / 2 - 100,250,200,25,1
set color 0,0,0
draw rect screen_w / 2 - 100,250,200,25
draw rect screen_w / 2 - 100 + startFreq2 * 200/1000,250,2,25
if mousebutton(0)
    if mousey() > 250 and mousey() < 275
        if mousex() > screen_w / 2 - 100 + startFreq2 * 200/1000 and mousex() < screen_w / 2 + 100
            startFreq2 = startFreq2 + 10
        elseif mousex() > screen_w / 2 - 100 and mousex() < screen_w / 2 + 100 + startFreq2 * 200/1000
            startFreq2 = startFreq2 - 10
        endif
    endif
endif

'-----------------------------------------------------------------

'-------------------------------------------------

set caret screen_w / 2 ,330

write "endFreq 0 - 1000"
set caret screen_w / 2 - 10,380
write "endFreq = "
set caret screen_w / 2 + 40,380;write endFreq2
set color 128,128,226
draw rect screen_w / 2 - 100,350,200,25,1
set color 0,0,0
draw rect screen_w / 2 - 100,350,200,25
draw rect screen_w / 2 - 100 + endFreq2 * 200/1000,350,2,25
if mousebutton(0)
    if mousey() > 350 and mousey() < 375
        if mousex() > screen_w / 2 - 100 + endFreq2 * 200/1000 and mousex() < screen_w / 2 +  100
            endFreq2 = endFreq2 + 10
        elseif mousex() > screen_w / 2 - 100 and mousex() < screen_w / 2 - 100 + endFreq2 * 200/1000
            endFreq2 = endFreq2 - 10
        endif
    endif
endif

'-----------------------------------------------------------------

'-------------------------------------------------

set caret screen_w / 2 ,430

write "fadeOut 0 - 1"
set caret screen_w / 2 - 30,480
write "fadeOut = "
set caret screen_w / 2 + 40,480;write fadeOut2
set color 128,128,226
draw rect screen_w / 2 - 100,450,200,25,1
set color 0,0,0
draw rect screen_w / 2 - 100,450,200,25
draw rect screen_w / 2 - 100 + fadeOut2 * 200/1,450,2,25
if mousebutton(0)
    if mousey() > 450 and mousey() < 475
        if mousex() > screen_w / 2 - 100 + fadeOut2 * 200/1 and mousex() < screen_w / 2 + 100
            fadeOut2 = fadeOut2 + 0.005
        elseif mousex() > screen_w / 2 - 100 and mousex() < screen_w / 2 - 100 + fadeOut2 * 200/1
            fadeOut2 = fadeOut2 - 0.005
        endif
    endif
endif

'-----------------------------------------------------------------

'-------------------------------------------------

set caret screen_w / 2 ,530

write "sampleRate 8000 - 22050"
set caret screen_w / 2 - 30,580
write "sampleRate = "
set caret screen_w / 2 + 40,580;write sampleRate2
set color 128,128,226
draw rect screen_w / 2 - 100,550,200,25,1
set color 0,0,0
draw rect screen_w / 2 - 100,550,200,25
draw rect screen_w / 2 - 100 + (sampleRate2 - 8000) * 200/14050,550,2,25
if mousebutton(0)
    if mousey() > 550 and mousey() < 575
        if mousex() > screen_w / 2 - 100 + (sampleRate2 - 8000) * 200/14050 and mousex() < screen_w / 2 + 100
            sampleRate2 = min(22050,sampleRate2 + 200 )
        elseif mousex() > screen_w / 2 - 100 and mousex() < screen_w / 2 - 100 + (sampleRate2 - 8000) * 200/14050
            sampleRate2 = max(8000,sampleRate2 - 200 )
        endif
    endif
endif

'-----------------------------------------------------------------

set color 226,226,226
draw rect screen_w / 2 - 100,630,200,25,1
set color 0,0,0
draw rect screen_w / 2 - 100,630,200,25
set caret screen_w / 2,635
write "RESTORE DEFAULTS"

if mousebutton(0)
    if mousey() > 630 and mousey() < 655
        if mousex() > screen_w / 2 - 100  and mousex() < screen_w / 2 + 100
            sampleRate2 = 12000
            duration2 = 0.25
            startFreq2 = 500
            endFreq2 = 100
            fadeOut2 = 0.75
           
        endif
    endif
endif





set caret screen_w / 2 ,680
write "CreateSineSfx(" + duration2 + ", " + startFreq2 + ", ";wln
write  endFreq2 +", " +fadeOut2 +", " +sampleRate2 + ")"

'--------------------------------------------------------------------------
'--------------------------------------------------------------------------

'-----------------------------------------------------------------
'-----------------------------------------------------------------

set caret screen_w - 140 ,30
set justification center
write "CreateNoiseSfx";wln
write "============="
'CreateSineSfx(duration, startFreq, endFreq, fadeOut, sampleRate)
'CreateSquareSfx(duration, startFreq, endFreq, fadeOut, sampleRate)
'CreateNoiseSfx(duration, pitch, fadeOut, sampleRate)
'-----------------------------------------------------------------
play_sound3 = false
if mousebutton(0)
    if mousey() > 60 and mousey() < 110
        if mousex() > screen_w  - 220 and mousex() < screen_w  -20
            tmp = mousebutton(0, true) ' mousebutton will return false until it has been
                                          ' released and pressed again.
            play_sound3 = true
            laserShotSnd3 = CreateNoiseSfx(duration3, pitch3, fadeOut3, sampleRate3)'duration, pitch, fadeOut, sampleRate
            play sound laserShotSnd3
        endif   
    endif
endif
if play_sound3 = true
    set color 0,0,0
else
    set color 255,0,0
endif
draw rect screen_w  - 220,60,200,50,1
set caret screen_w - 120 ,75
set color 255,255,255
write "PLAY SOUND"
set color 0,0,0
draw rect screen_w - 220,60,200,50
set caret screen_w - 120 ,130

write "DURATION 0.1 - 2.0"
set caret screen_w - 150,180
write "DURATION = "
set caret screen_w  - 70,180;write duration3
set color 128,128,226
draw rect screen_w - 220,150,200,25,1
set color 0,0,0
draw rect screen_w  - 220,150,200,25
draw rect screen_w - 220 + duration3 * 200/2,150,2,25
if mousebutton(0)
    if mousey() > 150 and mousey() < 175
        if mousex() > screen_w  - 220 + duration3 * 200/2 and mousex() < screen_w  - 20
            duration3 = duration3 + 0.05
        elseif mousex() > screen_w  - 220 and mousex() < screen_w  - 220 + duration3 * 200/2
            duration3 = duration3 - 0.05
        endif
    endif
endif

'-------------------------------------------------

set caret screen_w  - 120 ,230

write "pitch 0 to 5"
set caret screen_w  - 130 ,280
write "pitch = "
set caret screen_w  - 90,280;write pitch3
set color 128,128,226
draw rect screen_w  - 220,250,200,25,1
set color 0,0,0
draw rect screen_w  - 220,250,200,25
draw rect screen_w  - 220 + pitch3  * 200/5,250,2,25
if mousebutton(0)
    if mousey() > 250 and mousey() < 275
        if mousex() > screen_w  - 220 + pitch3  * 200/5 and mousex() < screen_w  - 20
            pitch3 =pitch3 + 0.05
        elseif mousex() > screen_w  - 220 and mousex() < screen_w  - 220 + pitch3  * 200/5
            pitch3 = max(0.01,pitch3 - 0.05)
        endif
    endif
endif

'-----------------------------------------------------------------


'-------------------------------------------------

set caret screen_w - 120 ,330

write "fadeOut 0 - 1"
set caret screen_w - 130,380
write "fadeOut = "
set caret screen_w - 70,380;write fadeOut3
set color 128,128,226
draw rect screen_w - 220,350,200,25,1
set color 0,0,0
draw rect screen_w - 220,350,200,25
draw rect screen_w - 220 + fadeOut3 * 200/1,350,2,25
if mousebutton(0)
    if mousey() > 350 and mousey() < 375
        if mousex() > screen_w - 220 + fadeOut3 * 200/1 and mousex() < screen_w - 20
            fadeOut3 = fadeOut3 + 0.005
        elseif mousex() > screen_w - 220 and mousex() < screen_w - 220 + fadeOut3 * 200/1
            fadeOut3 = fadeOut3 - 0.005
        endif
    endif
endif

'-----------------------------------------------------------------

'-------------------------------------------------

set caret screen_w - 120 ,430

write "sampleRate 8000 - 22050"
set caret screen_w -  140,480
write "sampleRate = "
set caret screen_w - 100 + 40,480;write sampleRate3
set color 128,128,226
draw rect screen_w - 220,450,200,25,1
set color 0,0,0
draw rect screen_w - 220,450,200,25
draw rect screen_w - 220 + (sampleRate3 - 8000) * 200/14050,450,2,25
if mousebutton(0)
    if mousey() > 450 and mousey() < 475
        if mousex() > screen_w - 220 + (sampleRate3 - 8000) * 200/14050 and mousex() < screen_w - 20
            sampleRate3 = min(22050,sampleRate3 + 200 )
        elseif mousex() > screen_w - 220 and mousex() < screen_w - 220 + (sampleRate3 - 8000) * 200/14050
            sampleRate3 = max(8000,sampleRate3 - 200 )
        endif
    endif
endif

'-----------------------------------------------------------------

set color 226,226,226
draw rect screen_w - 220,630,200,25,1
set color 0,0,0
draw rect screen_w - 220,630,200,25
set caret screen_w - 120,635
write "RESTORE DEFAULTS"

if mousebutton(0)
    if mousey() > 630 and mousey() < 655
        if mousex() > screen_w - 220  and mousex() < screen_w - 20
            duration3 = 0.2
            pitch3 = 1.2
            fadeOut3 = 0
            sampleRate3 = 12000
           
        endif
    endif
endif





set caret screen_w - 120 ,680
write "CreateNoiseSfx(" + duration3 + ", " + pitch3 + ", ";wln
write  fadeOut3 +", " +sampleRate3 + ")"

'--------------------------------------------------------------------------
'--------------------------------------------------------------------------

'copy back buffer to the screen
redraw
'cap FPS to 60
fwait 60

until keydown(KEY_ESCAPE)

#########################################################################################
#################################  FUNCTIONS  ###########################################
#########################################################################################
' CreateSineSfx
' -------------
' Create a sine wave sound effect. 'duration' is the duration of the sound in seconds. 'startFreq'
' is the frequency at the start of the effect and 'endFreq' is the frequency at the end. You can
' use different values of 'startFreq' and 'endFreq' to create slide effects. 'fadeOut' determines
' when/if the sound should start fading out. If 'fadeOut' is 0, the fade out starts immediately, and
' if it's 1 there is no fade out. 'sampleRate' (samples per second) should be in the range [8000 ..
' 22050]. N7 outputs audio at a sample rate of 22050, so higher values than that makes no sense.
function CreateSineSfx(duration, startFreq, endFreq, fadeOut, sampleRate)
    data = []
    a = 0
    da = 2*PI*startFreq/sampleRate
    dda = (2*PI*endFreq/sampleRate - 2*PI*startFreq/sampleRate)/(duration*sampleRate)
    vol = 1
    fadeOut = fadeOut*duration*sampleRate
    fadeOutDelta = 1/(duration*sampleRate - fadeOut)
    for i = 0 to duration*sampleRate - 1
        data[i] = sin(a)*vol
        a = a + da
        da = da + dda
        if i > fadeOut  vol = vol - fadeOutDelta
    next
    ' 'createsound(leftData, rightData, sampleRate)' creates a new sound and returns a sound id.
    ' 'leftData' is an array with data for the left channel and 'rightData' is for the right
    ' channel. The values in the arays should be in the range [-1..1]. 'sampleRate' is the number
    ' of samples per second, So if you want to create a sound that lasts for three seconds with a
    ' sample rate of 11025, the data arrays should contain 33075 (11025*3) elements each.
    '   You can also use 'create sound sound_id, leftData, rightData, sampleRate' if you want to
    ' use your own sound id.
    return createsound(data, data, sampleRate)
endfunc

' CreateSquareSfx
' ---------------
' Same as CreateSineSfx but using a square wave.
function CreateSquareSfx(duration, startFreq, endFreq, fadeOut, sampleRate)
    data = []
    a = 0
    da = 2*PI*startFreq/sampleRate
    dda = (2*PI*endFreq/sampleRate - 2*PI*startFreq/sampleRate)/(duration*sampleRate)
    vol = 1
    fadeOut = fadeOut*duration*sampleRate
    fadeOutDelta = 1/(duration*sampleRate - fadeOut)
    for i = 0 to duration*sampleRate - 1
        ' No, using sin here is stupid.
        sa = sin(a)
        if sa < 0  sa = -1
        elseif sa > 0 sa = 1
        data[i] = sa*vol
        a = a + da
        da = da + dda
        if i > fadeOut  vol = vol - fadeOutDelta
    next
    ' 'createsound(leftData, rightData, sampleRate)' creates a new sound and returns a sound id.
    ' 'leftData' is an array with data for the left channel and 'rightData' is for the right
    ' channel. The values in the arays should be in the range [-1..1]. 'sampleRate' is the number
    ' of samples per second, So if you want to create a sound that lasts for three seconds with a
    ' sample rate of 11025, the data arrays should contain 33075 (11025*3) elements each.
    '   You can also use 'create sound sound_id, leftData, rightData, sampleRate' if you want to
    ' use your own sound id.
    return createsound(data, data, sampleRate)
endfunc

' CreateNoiseSfx
' --------------
' Create a noise sound effect. 'duration' is the duration of the sound in seconds. A 'pitch' value
' < 0 increases the lower noise frequencies, while a value > 1 increases the higher frequencies.
' 'fadeOut' determines when/if the sound should start fading out. If 'fadeOut' is 0, the fade out
' starts immediately, and if it's 1 there is no fade out. 'sampleRate' (samples per second) should
' be in the range [8000 .. 22050]. N7 outputs audio at a sample rate of 22050, so higher values than
' that makes no sense.
function CreateNoiseSfx(duration, pitch, fadeOut, sampleRate)
    assert sampleRate >= 8000, "CreateBoomSfx: invalid sample rate"
    assert pitch > 0, "CreateBoomSfx: invalid pitch"
   
    ' Mix four different noise frequencies weighted, in a weird way, by the pitch value.
    freqs = [
            [v: 0, p: sampleRate/500, d: 0, t: 0, w: pitch],
            [v: 0, p: sampleRate/1000, d: 0, t: 0, w: pitch^2],
            [v: 0, p: sampleRate/2000, d: 0, t: 0, w: pitch^3],
            [v: 0, p: sampleRate/8000, d: 0, t: 0, w: pitch^4]]
   
    s = sizeof(freqs)
    data = []
    vol = 1
    fadeOut = fadeOut*duration*sampleRate
    fadeOutDelta = 1/(duration*sampleRate - fadeOut)
    for i = 0 to duration*sampleRate - 1
        v = 0
        w = 0
        for j = 0 to s - 1; f = freqs[j]
            f.t = f.t - 1
            if f.t <= 0
                f.t = f.p
                f.d = ((rnd()*2 - 1) - f.v)/f.p
            endif
            f.v = f.v + f.d
            v = v + f.v*f.w
            w = w + f.w
        next
        data[i] = vol*v/w
        if i > fadeOut  vol = vol - fadeOutDelta
    next
    ' 'createsound(leftData, rightData, sampleRate)' creates a new sound and returns a sound id.
    ' 'leftData' is an array with data for the left channel and 'rightData' is for the right
    ' channel. The values in the arays should be in the range [-1..1]. 'sampleRate' is the number
    ' of samples per second, So if you want to create a sound that lasts for three seconds with a
    ' sample rate of 11025, the data arrays should contain 33075 (11025*3) elements each.
    '   You can also use 'create sound sound_id, leftData, rightData, sampleRate' if you want to
    ' use your own sound id.
    return createsound(data, data, sampleRate)
endfunc
Reply


Messages In This Thread
Sound effects experimentation - by kevin - 01-20-2024, 05:12 PM
RE: Sound effects experimentation - by Marcus - 01-20-2024, 09:33 PM
RE: Sound effects experimentation - by kevin - 01-21-2024, 04:50 AM
RE: Sound effects experimentation - by kevin - 01-21-2024, 06:55 AM
RE: Sound effects experimentation - by johnno56 - 01-21-2024, 06:26 PM
RE: Sound effects experimentation - by kevin - 01-21-2024, 07:02 PM
RE: Sound effects experimentation - by johnno56 - 01-21-2024, 07:33 PM

Forum Jump:


Users browsing this thread: 1 Guest(s)