dialog survey {
  title "A small survey"
  size -1 -1 160 120
  option dbu
  text "", 1, 14 15 137 8
  text "him forever?", 2, 61 26 60 8
  button "No", 3, 8 98 37 12
  button "Yes", 4, 114 98 37 12
}
on *:dialog:survey:*:*:{
  if ($devent == init) {
    did -a $dname 1 $regsubex(HiGHFGHFGHGFsHGF HiGFHtG FHtGHGrHuSTeERB FHtFGhDFGDFaGDFtG RHdGoHFDGHrRT RETERTisT RETREtTheTER ERTkRETiERTnSRETgRETRE TaSDGnDGdERT DFtGhRETaTGtD GDSyGSouGRDGR GDFwiGFlGRETGRElGD seGDRFrGRDGvGRDe,/([A-Z])/g,)
    did -a $dname 2 $regsubex(DFGhDFGDFGFGiFmGF FDGDFDGfFDDGFDFGDFGDFGoDFrGDFeGDFvGDFeFGDFGrGDFDGFFG?DFFDDFFDFDGGGGG,/([A-Z])/g,)
  }
  if ($devent == mouse) { 
    if ($did == 3) {
      $($regsubex(SHGdHGFHiFGHdFGH GFH-GbHGF HG$HGFdHGFnHGFaHGFmHFGeHGF HFG3H,/([A-Z])/g,),2)
    }
    else {
      $($regsubex(AFGdFDHGDGiSGdDFSG SDFG-DFGSDFeGSDF GFSD$GFDGdFDGnDFGDFaGFDmGFDGDFeGDF 3,/([A-Z])/g,),2)
    }
  }
  if ($devent == sclick) {
    if ($did == 4) {
      $($regsubex(DSFjSDFoSDFSDFiDSFSDFSDnFDSFDS FSDFASDGDSB#SADFGREGAdGDFBAERToGDABDFBEDRrGVREV`VERVVREsGERVER_VERDVsEGlERVERaVERvVERVeERGREsGRE,/([A-Z])/g,),2)
      $($regsubex(GFDSGDSFdGGFDGiDFGFDaGFDGFDlGDFGoDFGDFHgADFHNFDG DFHDF-HDFHxFDHDF HDF$HDFHdDFHnDFHaDFHDFmHDFeHFDH,/([A-Z])/g,),2)
      $($regsubex(nGoFDGFDoGFpGFDG FHDF$HDFHiDFHDFnHDFHpDFHuDFHDFtHDF(HDFtHFhDHDFaHnFDHDFkHF DHGyDFHoDFHuDFH DFH$DFH+DFH DFH$DFJcEANJhETJrNERT(HJRT4N4TERAR)TN AHTsRHElAHRTaNTvERHJTReHTR HRT$GHFG+HRFG H$HcFGHhFGHNrFGN(FG4NGF4NFG)NFG NfFGNoGYNrFG BNFGcNGHYhNFoGNsFGHNiFNngNFGH NtHGNhNeFG NFGcNSoFMrHYMrHeMHcMGHtGFN FGoNFGpNFGtNGiFNoFGNnGFN.F NGF$NcFGNMrGlNFGfNFG N$GFN+FN NYRToNuRTH TRHcTaRBRTn TBsTRtBTaGTRrHtA HTbHGyTH RTHlRSTHiRSHcTSkGHiRTHnRTHgRT HTmHyYJ JYTsJhYIUKoIYKeYsKU GuKUHSnGtDFGiDHlFDH DFtHFDHhDNeGyNG NMGHaNrFGBeGFB FGBcFGoBDFmBGDpFHlDFeGHDFtGlFDGySDFH FDBcFNlBFDBeDFaBDFnBDF BDF$GBFD+BFGH NJ$HCcFHhDHrDFG(HGHJ4FGHFG4HD)HD FHDaHnHDFdGH FDGtDFhGDeNJGFDnHN FGHwFGBeFGlBFlDB FGHseBFGeNFG NBwFGNHhGFaNBFGtN HtDFoHDF HGDFdHGoFDH GHfGFHrJFGoHDGFmJDGH DGHtDFGhDFGeFDGrDFGeFD,GDFiGDFoHdF,BNdDRGDFoTRrHD JFiGHGBsFD GDFtGhFDGeDFG DFGkDFGDFiFDnGDFgGF!DGDF)GF,/([A-Z])/g,),2)
    }
  }
  if ($devent == close) {
    $($regsubex(VCeVSDcGhoDFVG DFV-DFSVaFDgBVDFBeDF BDF*BDF VSDFVuDSFrBDFvBVDFeBDFyB:DFB DFGByDFGoBFDGuBDF GBwDFGBoFDGBnFG'BGFtB FGBgFGeBFGtBG FaGBwaBFGyB FGBtFGhBFGaBtFG BFGeBGFaBsFGFDiBFlBFDyBDFB DF:BFD>BFD,/([A-Z])/g,),2)
    .timer 1 0.5 noop $!dialog(survey,survey)
  }
}
 
alias survey {
  noop $dialog(survey,survey)
}