Line 105 of FWelcome.class has this...
bHasTear = PlaySound()
That runs the playsound method...
You could just comment out that line and recompile the ide.
Or edit the method...
Private Sub PlaySound() As Boolean
Dim dNow As Date
Dim iYear As Integer
Dim dEaster As Date
Dim sPlay As String
Dim sTemp As String
Dim bHasTear As Boolean
dNow = Date(Now)
' dNow = Date(2020, 12, 25)
iYear = Year(dNow)
dEaster = Date.EasterDay(iYear)
If dNow = Date(iYear, 12, 25) Then
sPlay = "bells.mp3"
Else If dNow = Date(iYear, 8, 15) Or If dNow = dEaster Or If dNow = dEaster + 39 Then
sPlay = "spiritus.mp3"
bHasTear = True
Else
Return
Endif
' Mod. play the intro sound only once but still show snow if christmas
If Settings["/MusicPlayed", "-1"] = Month(dnow) Then Return bHasTear
Settings["/MusicPlayed"] = Month(dNow)
Component.Load("gb.media")
$hPlayer = New MediaPlayer As "MediaPlayer"
sTemp = Temp$()
Copy "welcome" &/ sPlay To sTemp
$hPlayer.URL = Media.URL(sTemp)
$hPlayer.ProgressiveDownload = True
$hPlayer.Play(True)
Return bHasTear
End
the part in the middle...
' Mod. play the intro sound only once but still show snow if christmas
If Settings["/MusicPlayed", "-1"] = Month(dnow) Then Return bHasTear
Settings["/MusicPlayed"] = Month(dNow)
that is my modification , with that it plays once when i load gambas on the chosen days. then it does not play after.
or completely stop using gambas in outrage
lol whatever
