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