Enumeration
  #WIN_MAIN
  #BUTTON_CLOSE
  #Button_Gay
  #Button_Fem
  #Button_Duke
  #Sound_Orig = 1
  #Sound_Fem
  #Sound_Gay
  #Sound_Duke
EndEnumeration
UseOGGSoundDecoder()
Global Quit.b = #False
#FLAGS = #PB_Window_SystemMenu | #PB_Window_ScreenCentered
If InitSound()
  CatchSound(#Sound_orig, ?SoundOrig)
  CatchSound(#Sound_Gay, ?SoundGay)

  If OpenWindow(#WIN_MAIN, 0, 0, 300, 200, "Gary's Mod 1.0 GOTY Edition", #FLAGS)
    ButtonGadget(#BUTTON_CLOSE, 10, 35, 280, 160, "RAGEQUIT!")
    ButtonGadget(#Button_Gay, 10, 10, 90, 20, "Flamboyant")
    ButtonGadget(#Button_Fem, 105, 10, 90, 20, "Female")
    ButtonGadget(#Button_Duke, 200, 10, 90, 20, "Duke")
    Repeat
      Event.l = WaitWindowEvent()
      Select Event
        Case #PB_Event_Gadget
          Select EventGadget()
            Case #Button_Gay
              sound.b = 1
            Case #BUTTON_CLOSE
              If sound = 0
                PlaySound (#Sound_Orig)
                Delay (2150)
                Quit = #True
              EndIf
              If sound = 1
                PlaySound (#Sound_Gay)
                Delay (2150)
                Quit = #True
              EndIf

          EndSelect
      EndSelect
    Until Event = #PB_Event_CloseWindow Or Quit = #True
  EndIf
EndIf
End

DataSection
  SoundOrig:
  IncludeBinary "r.wav"
  SoundFem:
  IncludeBinary "rage_quit_female.ogg"
  SoundGay:
  IncludeBinary "rage_quit_gay.ogg"
  SoundDuke:
  IncludeBinary "rage_quit_duke.ogg"
EndDataSection