CatchSound(#Sound1, ?Sound1, ?EndSound1-?Sound1)
PlaySound (#Sound1, #PB_Sound_Loop)
#delaytime=3000
starttime=ElapsedMilliseconds()
Repeat
    Repeat
        Event = WindowEvent()
        If Event = #PB_Event_CloseWindow : Quit = #True : EndIf
    Until Event = 0

    If ElapsedMilliseconds()-starttime=>#delaytime
      ElapsedTime=1-ElapsedTime
      starttime=ElapsedMilliseconds()
    EndIf

    If ElapsedTime=0
      DoSomeShit
    Else
      DoSomePiss
    EndIf