Gotcha!




<WARPIN VERSION="1.0.18" OS="OS2_4x" CODEPAGE=1208>





<REXX NAME=ChkREQ>
    call RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs'
    call SysLoadFuncs
    /* based upon work from Dmitriy Kuminov */
    parse arg aFile " Package:" Package
    name = filespec('N', aFile)
    ext = translate(right(name, 4))
    search_path = ""
    select
      when (ext == '.DLL') then do
        config_sys = SysBootDrive()'\CONFIG.SYS'
        do while lines(config_sys)
          line = strip(linein(config_sys))
          if (left(line, 8) == 'LIBPATH=') then do
            search_path = substr(line, 9)
            leave
          end
        end
        call lineout config_sys
        search_path = SysQueryExtLibPath('B')';'search_path';'SysQueryExtLibPath('E')
      end
      when (ext == '.EXE') then search_path = value('PATH',, 'OS2ENVIRONMENT')
      when (ext == '.HLP') then search_path = value('BOOKSHELF',, 'OS2ENVIRONMENT')
      otherwise search_path = ''
    end
    if (search_path \= '') then do
      ok = value('CHKREQ_SEARCH_PATH', search_path, 'OS2ENVIRONMENT')
      real_file = SysSearchPath('CHKREQ_SEARCH_PATH', name)
      ok = value('CHKREQ_SEARCH_PATH', '', 'OS2ENVIRONMENT')
    end
    else real_file = ""

    /* generate the message string to return */
    if real_file <> "" then MsgStr = ""; else MsgStr = 'REQUIRES="' || strip(Package) || '"'
    return MsgStr
</REXX>
<REXX NAME=nls>
call RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs'
call SysLoadFuncs
langs = "EN,FR,DE,NL,ES,PT,IT,CS,JA,RU,ZH,KO"
lang = translate(left(strip(value("LANG",,"OS2ENVIRONMENT")),2))
if pos(lang,langs) = 0 then lang = 'EN'
rc =WirexxPutEnv('prog','Lucide')
/*Make sure you change the help file object name when adding a new translation*/
select                                       
  when lang = 'FR' then do
                    /* Translate */     
    rc =WirexxPutEnv('title','Gotcha Screen Capture Utility')
    rc =WirexxPutEnv('uguide','Gotcha Help')
    rc =WirexxPutEnv('licensetxt','License')                               
    rc =WirexxPutEnv('readmetitle','LisezMoi')
    rc =WirexxPutEnv('welcome','This package will install the Gotcha! Screen Capture Utility on your system.')
    rc =WirexxPutEnv('accept','Veuillez prendre connaissance et accepter l''accord de licence suivant.')
    rc =WirexxPutEnv('target','Veuillez sélectionner le dossier de destination')
    rc =WirexxPutEnv('re_install','Si vous effectuez une mise à jour de SearchPlus, le dossier d''installation par défaut sera celui actuellement utilisé par l''ancienne version.')
    rc =WirexxPutEnv('install','~Install')
    rc =WirexxPutEnv('license','~J''accepte')
    rc =WirexxPutEnv('next','~Suivant')
    rc =WirexxPutEnv('nextText','Select "Suivant" to continue.')
    rc =WirexxPutEnv('cancelText','Select "Cancel" to abort installation.')
    rc =WirexxPutEnv('installText','Press "Install" in order to start installation of this archive.')
                        /* End Translate */
                    /* Update us if this translation is added */  
    rc =WirexxPutEnv('readmefile','Readme_en')
    rc =WirexxPutEnv('uguidefile','gotcha_en.hlp')
  end
  when lang = 'DE' then do
                    /* Translate */     
    rc =WirexxPutEnv('title','Gotcha Screen Capture Utility')
    rc =WirexxPutEnv('uguide','Gotcha Help')
    rc =WirexxPutEnv('licensetxt','License')
    rc =WirexxPutEnv('readmetitle','Lies mich!')
    rc =WirexxPutEnv('welcome','This package will install the Gotcha! Screen Capture Utility on your system.')
    rc =WirexxPutEnv('accept','Bitte lesen Sie den folgenden Text und akzeptieren Sie die Lizenzvereinbarung.')
    rc =WirexxPutEnv('target','Wählen Sie bitte das Zielverzeichnis.')
    rc =WirexxPutEnv('re_install','If you are updating Gotcha, the default installation directory will be the current install directory.')
    rc =WirexxPutEnv('install','~Installieren')
    rc =WirexxPutEnv('license','St~imme zu')
    rc =WirexxPutEnv('next','W~eiter')
    rc =WirexxPutEnv('nextText','Zum Fortfahren "Weiter" auswählen.')
    rc =WirexxPutEnv('cancelText','Zum Abbrechen "Cancel" auswählen.')
    rc =WirexxPutEnv('installText','Bitte "Installieren" auswählen, um die Installation des Archivs zu starten.')
                    /* End Translate */
                    /* Update us if this translation is added */
    rc =WirexxPutEnv('readmefile','Readme_en')
    rc =WirexxPutEnv('uguidefile','gotcha_en.hlp')
  end
  when lang = 'NL' then do
                   /* Translate */     
    rc =WirexxPutEnv('title','Gotcha Screen Capture Utility')
    rc =WirexxPutEnv('uguide','Gotcha Help')
    rc =WirexxPutEnv('licensetxt','License').                              
    rc =WirexxPutEnv('readmetitle','ReadMe')
    rc =WirexxPutEnv('welcome','This package will install the Gotcha! Screen Capture Utility on your system.')
    rc =WirexxPutEnv('accept','Please read and accept the following license-agreement (GPL).')
    rc =WirexxPutEnv('target','Please select a target directory.')
    rc =WirexxPutEnv('re_install','If you are updating Gotcha, the default installation directory will be the current install directory.')
    rc =WirexxPutEnv('install','~Install')
    rc =WirexxPutEnv('license','I ~accept')
    rc =WirexxPutEnv('next','~Next')
    rc =WirexxPutEnv('nextText','Select "Next" to continue.')
    rc =WirexxPutEnv('cancelText','Select "Cancel" to abort installation.')
    rc =WirexxPutEnv('installText','Press "Install" in order to start installation of this archive.')                
                    /* End Translate */
                    /* Update us if this translation is added */
    rc =WirexxPutEnv('readmefile','Readme_en')
    rc =WirexxPutEnv('uguidefile','gotcha_en.hlp'). 
  end
  when lang = 'ES' Then Do
                    /* Translate */     
    rc =WirexxPutEnv('title','Herramienta de captura de pantalla Gotcha!')
    rc =WirexxPutEnv('uguide','Ayuda de Gotcha!')
    rc =WirexxPutEnv('licensetxt','Licencia')
    rc =WirexxPutEnv('readmetitle','Léame')
    rc =WirexxPutEnv('welcome','Este paquete instalará la herramienta de captura de pantalla Gotcha! en su sistema.')
    rc =WirexxPutEnv('accept','Por favor, lea y acepte el siguiente acuerdo de licencia (GPL).')
    rc =WirexxPutEnv('target','Por favor, seleccione el directorio de destino.')
    rc =WirexxPutEnv('re_install','Si está actualizando Gotcha!, el directorio de instalación por omisión será el directorio actual.')
    rc =WirexxPutEnv('install','~Instalar')
    rc =WirexxPutEnv('license','~Acepto')
    rc =WirexxPutEnv('next','~Siguiente')
    rc =WirexxPutEnv('nextText','Seleccione «Siguiente» para continuar.')
    rc =WirexxPutEnv('cancelText','Seleccione «Cancelar» para abortar la instalación.')
    rc =WirexxPutEnv('installText','Pulse «Instalar» para iniciar la instalación de este archivo.')
                    /* End Translate */
                    /* Update us if this translation is added */
    rc =WirexxPutEnv('readmefile','Readme_es')
    rc =WirexxPutEnv('uguidefile','gotcha_es.hlp')
  end
  when lang = 'PT' Then Do
                  /* Translate */     
    rc =WirexxPutEnv('title','Gotcha Screen Capture Utility')
    rc =WirexxPutEnv('uguide','Gotcha Help')
    rc =WirexxPutEnv('licensetxt','License')
    rc =WirexxPutEnv('readmetitle','ReadMe')
    rc =WirexxPutEnv('welcome','This package will install the Gotcha! Screen Capture Utility on your system.')
    rc =WirexxPutEnv('accept','Please read and accept the following license-agreement (GPL).')
    rc =WirexxPutEnv('target','Please select a target directory.')
    rc =WirexxPutEnv('re_install','If you are updating Gotcha, the default installation directory will be the current install directory.')
    rc =WirexxPutEnv('install','~Install')
    rc =WirexxPutEnv('license','I ~accept')
    rc =WirexxPutEnv('next','~Next')
    rc =WirexxPutEnv('nextText','Select "Next" to continue.')
    rc =WirexxPutEnv('cancelText','Select "Cancel" to abort installation.')
    rc =WirexxPutEnv('installText','Press "Install" in order to start installation of this archive.')
                    /* End Translate */
                    /* Update us if this translation is added */
    rc =WirexxPutEnv('readmefile','Readme_en')
    rc =WirexxPutEnv('uguidefile','gotcha_en.hlp')
  end
  when lang = 'IT' Then Do
                /* Translate */     
    rc =WirexxPutEnv('title','Gotcha Screen Capture Utility')
    rc =WirexxPutEnv('uguide','Gotcha Help')
    rc =WirexxPutEnv('licensetxt','License')
    rc =WirexxPutEnv('readmetitle','ReadMe')
    rc =WirexxPutEnv('welcome','This package will install the Gotcha! Screen Capture Utility on your system.')
    rc =WirexxPutEnv('accept','Please read and accept the following license-agreement (GPL).')
    rc =WirexxPutEnv('target','Please select a target directory.')
    rc =WirexxPutEnv('re_install','If you are updating Gotcha, the default installation directory will be the current install directory.')
    rc =WirexxPutEnv('install','~Install')
    rc =WirexxPutEnv('license','I ~accept')
    rc =WirexxPutEnv('next','~Next')
    rc =WirexxPutEnv('nextText','Select "Next" to continue.')
    rc =WirexxPutEnv('cancelText','Select "Cancel" to abort installation.')
    rc =WirexxPutEnv('installText','Press "Install" in order to start installation of this archive.')
                    /* End Translate */
                    /* Update us if this translation is added */
    rc =WirexxPutEnv('readmefile','Readme_en')
    rc =WirexxPutEnv('uguidefile','gotcha_en.hlp')
  end
  when lang = 'CS' Then Do
                  /* Translate */     
    rc =WirexxPutEnv('title','Gotcha Screen Capture Utility')
    rc =WirexxPutEnv('uguide','Gotcha Help')
    rc =WirexxPutEnv('licensetxt','License')
    rc =WirexxPutEnv('readmetitle','ReadMe')
    rc =WirexxPutEnv('welcome','This package will install the Gotcha! Screen Capture Utility on your system.')
    rc =WirexxPutEnv('accept','Please read and accept the following license-agreement (GPL).')
    rc =WirexxPutEnv('target','Please select a target directory.')
    rc =WirexxPutEnv('re_install','If you are updating Gotcha, the default installation directory will be the current install directory.')
    rc =WirexxPutEnv('install','~Install')
    rc =WirexxPutEnv('license','I ~accept')
    rc =WirexxPutEnv('next','~Next')
    rc =WirexxPutEnv('nextText','Select "Next" to continue.')
    rc =WirexxPutEnv('cancelText','Select "Cancel" to abort installation.')
    rc =WirexxPutEnv('installText','Press "Install" in order to start installation of this archive.')
                    /* End Translate */
                    /* Update us if this translation is added */
    rc =WirexxPutEnv('readmefile','Readme_en')
    rc =WirexxPutEnv('uguidefile','gotcha_en.hlp')
  end
  when lang = 'JA' Then Do
                    /* Translate */     
    rc =WirexxPutEnv('title','Gotcha Screen Capture Utility')
    rc =WirexxPutEnv('uguide','Gotcha Help')
    rc =WirexxPutEnv('licensetxt','License')
    rc =WirexxPutEnv('readmetitle','ReadMe')
    rc =WirexxPutEnv('welcome','This package will install the Gotcha! Screen Capture Utility on your system.')
    rc =WirexxPutEnv('accept','Please read and accept the following license-agreement (GPL).')
    rc =WirexxPutEnv('target','Please select a target directory.')
    rc =WirexxPutEnv('re_install','If you are updating Gotcha, the default installation directory will be the current install directory.')
    rc =WirexxPutEnv('install','~Install')
    rc =WirexxPutEnv('license','I ~accept')
    rc =WirexxPutEnv('next','~Next')
    rc =WirexxPutEnv('nextText','Select "Next" to continue.')
    rc =WirexxPutEnv('cancelText','Select "Cancel" to abort installation.')
    rc =WirexxPutEnv('installText','Press "Install" in order to start installation of this archive.')
                    /* End Translate */
                    /* Update us if this translation is added */
    rc =WirexxPutEnv('readmefile','Readme_en')
    rc =WirexxPutEnv('uguidefile','gotcha_en.hlp')
  end
  when lang = 'RU' Then Do
                  /* Translate */     
    rc =WirexxPutEnv('title','Gotcha Screen Capture Utility')
    rc =WirexxPutEnv('uguide','Gotcha Help')
    rc =WirexxPutEnv('licensetxt','License')
    rc =WirexxPutEnv('readmetitle','ReadMe')
    rc =WirexxPutEnv('welcome','This package will install the Gotcha! Screen Capture Utility on your system.')
    rc =WirexxPutEnv('accept','Please read and accept the following license-agreement (GPL).')
    rc =WirexxPutEnv('target','Please select a target directory.')
    rc =WirexxPutEnv('re_install','If you are updating Gotcha, the default installation directory will be the current install directory.')
    rc =WirexxPutEnv('install','~Install')
    rc =WirexxPutEnv('license','I ~accept')
    rc =WirexxPutEnv('next','~Next')
    rc =WirexxPutEnv('nextText','Select "Next" to continue.')
    rc =WirexxPutEnv('cancelText','Select "Cancel" to abort installation.')
    rc =WirexxPutEnv('installText','Press "Install" in order to start installation of this archive.')
                    /* End Translate */
                    /* Update us if this translation is added */
    rc =WirexxPutEnv('readmefile','Readme_en')
    rc =WirexxPutEnv('uguidefile','gotcha_en.hlp')
  end
  when lang = 'KO' Then Do
                    /* Translate */     
    rc =WirexxPutEnv('title','Gotcha Screen Capture Utility')
    rc =WirexxPutEnv('uguide','Gotcha Help')
    rc =WirexxPutEnv('licensetxt','License')
    rc =WirexxPutEnv('readmetitle','ReadMe')
    rc =WirexxPutEnv('welcome','This package will install the Gotcha! Screen Capture Utility on your system.')
    rc =WirexxPutEnv('accept','Please read and accept the following license-agreement (GPL).')
    rc =WirexxPutEnv('target','Please select a target directory.')
    rc =WirexxPutEnv('re_install','If you are updating Gotcha, the default installation directory will be the current install directory.')
    rc =WirexxPutEnv('install','~Install')
    rc =WirexxPutEnv('license','I ~accept')
    rc =WirexxPutEnv('next','~Next')
    rc =WirexxPutEnv('nextText','Select "Next" to continue.')
    rc =WirexxPutEnv('cancelText','Select "Cancel" to abort installation.')
    rc =WirexxPutEnv('installText','Press "Install" in order to start installation of this archive.')
                    /* End Translate */
                    /* Update us if this translation is added */
    rc =WirexxPutEnv('readmefile','Readme_en')
    rc =WirexxPutEnv('uguidefile','gotcha_en.hlp')
  end  
  when lang = 'ZH' Then Do
                  /* Translate */     
    rc =WirexxPutEnv('title','Gotcha Screen Capture Utility')
    rc =WirexxPutEnv('uguide','Gotcha Help')
    rc =WirexxPutEnv('licensetxt','License')
    rc =WirexxPutEnv('readmetitle','ReadMe')
    rc =WirexxPutEnv('welcome','This package will install the Gotcha! Screen Capture Utility on your system.')
    rc =WirexxPutEnv('accept','Please read and accept the following license-agreement (GPL).')
    rc =WirexxPutEnv('target','Please select a target directory.')
    rc =WirexxPutEnv('re_install','If you are updating Gotcha, the default installation directory will be the current install directory.')
    rc =WirexxPutEnv('install','~Install')
    rc =WirexxPutEnv('license','I ~accept')
    rc =WirexxPutEnv('next','~Next')
    rc =WirexxPutEnv('nextText','Select "Next" to continue.')
    rc =WirexxPutEnv('cancelText','Select "Cancel" to abort installation.')
    rc =WirexxPutEnv('installText','Press "Install" in order to start installation of this archive.')
                    /* End Translate */
                    /* Update us if this translation is added */
    rc =WirexxPutEnv('readmefile','Readme_en')
    rc =WirexxPutEnv('uguidefile','gotcha_en.hlp')
  end
  otherwise do
    rc =WirexxPutEnv('title','Gotcha Screen Capture Utility')
    rc =WirexxPutEnv('uguide','Gotcha Help')
    rc =WirexxPutEnv('licensetxt','License')
    rc =WirexxPutEnv('readmefile','Readme_en')
    rc =WirexxPutEnv('uguidefile','gotcha_en.hlp')
    rc =WirexxPutEnv('readmetitle','ReadMe')
    rc =WirexxPutEnv('welcome','This package will install the Gotcha! Screen Capture Utility on your system.')
    rc =WirexxPutEnv('accept','Please read and accept the following license-agreement (GPL).')
    rc =WirexxPutEnv('target','Please select a target directory.')
    rc =WirexxPutEnv('re_install','If you are updating Gotcha, the default installation directory will be the current install directory.')
    rc =WirexxPutEnv('install','~Install')
    rc =WirexxPutEnv('license','I ~accept')
    rc =WirexxPutEnv('next','~Next')
    rc =WirexxPutEnv('nextText','Select "Next" to continue.')
    rc =WirexxPutEnv('cancelText','Select "Cancel" to abort installation.')
  end
end
return ''
</REXX>
<REXX NAME=get_env>
Parse Arg subject .
Return WirexxGetEnv(subject)
</REXX>

<TITLE>Gotcha!</TITLE>

<PCK INDEX=1 PACKAGEID="Netlabs\Gotcha\program\ 2\0\1\0" TARGET="$(WARPIN_DEFAULTTOOLSPATH)\GOTCHA" nls TITLE="=(" get_env title SELECT KILLPROCESS=gotchdll.dll KILLPROCESS=gotchaq.exe CREATEOBJECT='REPLACE WPFolder|Gotcha!|><WP_DESKTOP>|OBJECTID=<GOTCHAFOLDER>;OPEN=DEFAULT;ALWAYSSORT=YES;'
     CREATEOBJECT='REPLACE WPProgram|Gotcha! Quiet|<GOTCHAFOLDER>|EXENAME=$(1)\gotchaq.exe;STARTUPDIR=$(1);ICONFILE=$(1)\gotchaq.ico;OBJECTID=<Gotcha_Quiet>;'
     CREATEOBJECT='REPLACE WPProgram|Gotcha!|<GOTCHAFOLDER>|EXENAME=$(1)\gotcha.exe;STARTUPDIR=$(1);ICONFILE=$(1)\gotcha.ico;OBJECTID=<RunGotcha>;'
     CREATEOBJECT='REPLACE WPProgram|=("get_env uguide")|<GOTCHAFOLDER>|EXENAME=VIEW.EXE;PARAMETERS=$(1)\=("get_env uguidefile");OBJECTID=<GOTCHAHELP>;'
     CREATEOBJECT='REPLACE WPProgram|README|<GOTCHAFOLDER>|EXENAME=e.exe;OBJECTID=<GOTCHAReadme>;TITLE==("get_env readmetitle");PROGTYPE=PM;PARAMETERS=$(1)\=("get_env readmefile");STARTUPDIR=$(1);'
     CREATEOBJECT='REPLACE WPProgram|LICENCE|<GOTCHAFOLDER>|EXENAME=e.exe;OBJECTID=<GOTCHALic>;TITLE==("get_env licensetxt");PROGTYPE=PM;PARAMETERS=$(1)\COPYING;STARTUPDIR=$(1);'
     CREATEOBJECT='REPLACE WPShadow|Gotcha! Quiet|<WP_START>|SHADOWID=<Gotcha_Quiet>;OBJECTID=<SHADOW_GOTCHA_QUIET>;'
     =("ChkREQ GBM.DLL Package:Heiko Nitzsche\GBM - Generalised Bitmap Module\GBM Tools\1\77")
     >"GOTCHA!"
     </PCK>









<PAGE INDEX=1 TYPE=README>
<NEXTBUTTON TARGET=2>=("get_env next")</NEXTBUTTON>
<TEXT>=("get_env welcome") =("get_env nexttext")</TEXT>
<README FORMAT=PLAIN EXTRACTFROMPCK="1">=("get_env readmefile")</README>
</PAGE>

<PAGE INDEX=2 TYPE=README>
<NEXTBUTTON TARGET=3>=("get_env license")</NEXTBUTTON>
<TEXT>
=("get_env accept")
</TEXT>
<README FORMAT=PLAIN EXTRACTFROMPCK="1">COPYING</README>
</PAGE>



<PAGE INDEX=3 TYPE=CONTAINER>
<NEXTBUTTON TARGET=0>=("get_env install")</NEXTBUTTON>
<TEXT>=("get_env target") =("get_env installtext") =("get_env canceltext") =("get_env re_install")</TEXT>
</PAGE>





</WARPIN>