Amiga Format CD 27/amigaformatcd27.iso/-websites-/phoenix/html/files-lha/makecd31.lha/MakeCD_3.1/registerscript

AmigaDOS Script File | 1997-12-20 | 6.2 KB | 184 lines

.KEY language/A
.BRA {
.KET }

; $Id: registerscript 1.6 1997/12/20 15:31:20 angela Exp $

; If you want to add support for further languages, please
; contact [e-mail] first to check if somebody else is already
; working on such a translation.

SET makecdlang {language}

; By Angela Schmidt
; *** This is the filename under which the registration form is saved
SET makecdregfilename "Registrationform"
SET makecdnoregform "Sorry, could not find registration form for MakeCD."
SET makecdregreq "Registration Request"
SET makecdshallprint "Do you want the registration form being printed now?"
SET makecdshalldelete "Do you want the registration form in T: being deleted now?"
SET makecdansok "OK"
SET makecdansyes "Yes"
SET makecdansno "No"

; by Angela Schmidt
IF $makecdlang EQ "deutsch"
  SET makecdregfilename "Registrierformular"
  SET makecdnoregform "Leider konnte kein Registrierformular für MakeCD gefunden werden."
  SET makecdregreq "Registrations-Dialogfenster"
  SET makecdshallprint "Soll das Registrierformular nun gedruckt werden?"
  SET makecdshalldelete "Soll das Registrierformular nun aus T: gelöscht werden?"
  SET makecdansok "OK"
  SET makecdansyes "Ja"
  SET makecdansno "Nein"
ENDIF

; By Mark Holm <[e-mail]>
IF $makecdlang EQ "dansk"
  SET makecdregfilename "Registreringsformular"
  SET makecdnoregform "Beklager, kan ikke finde MakeCD's registreringsformular."
  SET makecdregreq "Registreringsforespørgsel"
  SET makecdshallprint "Vil du udskrive registreringsformularen nu?"
  SET makecdshalldelete "Vil du slette registreringsformularen i T: nu?"
  SET makecdansok "OK"
  SET makecdansyes "Ja"
  SET makecdansno "Nej"
ENDIF

; By Jean-Marc Boursot <[e-mail]>
IF $makecdlang EQ "français"
  SET makecdregfilename "FormEnregistrement"
  SET makecdnoregform "Désolé, impossible de trouver le formulaire d'enregistrement pour MakeCD."
  SET makecdregreq "Requête d'enregistrement"
  SET makecdshallprint "Voulez-vous que la fiche d'enregistrement soit imprimée maintenant ?"
  SET makecdshalldelete "Voulez-vous que la fiche d'enregistrement dans T: soit effacée maintenant ?"
  SET makecdansok "OK"
  SET makecdansyes "Oui"
  SET makecdansno "Non"
ENDIF

; By Francesco Dipietromaria <[e-mail]>
IF $makecdlang EQ "italiano"
  SET makecdregfilename "Moduloregistrazione"
  SET makecdnoregform "Spiacente, non trovo il modulo di registrazione per MakeCD."
  SET makecdregreq "Registrazione"
  SET makecdshallprint "Volete stampare il modulo di registrazione adesso?"
  SET makecdshalldelete "Volete cheil modulo di registrazione venga cancellato da T: adesso?"
  SET makecdansok "OK"
  SET makecdansyes "Si"
  SET makecdansno "No"
ENDIF

; By Horváth Péter <[e-mail]>
IF $makecdlang EQ "magyar"
  SET makecdregfilename "Regisztrációs ûrlap"
  SET makecdnoregform "Sajnos nem találom a MakeCD regisztrációs ûrlapját."
  SET makecdregreq "Regisztrációs kérés"
  SET makecdshallprint "Kívánja a regisztrációs ûrapot most kinyomtatni?"
  SET makecdshalldelete "Kívánja a T:-ben lévõ regisztrációs ûrlapot most letörölni?"
  SET makecdansok "OK"
  SET makecdansyes "Igen"
  SET makecdansno "Nem"
ENDIF

; By Wessel Dankers <[e-mail]>
IF $makecdlang EQ "nederlands"
  SET makecdregfilename "Registratieformulier"
  SET makecdnoregform "Sorry, kon registratieformulier niet vinden voor MakeCD"
  SET makecdregreq "Verzoek tot registratie"
  SET makecdshallprint "Zal ik het registratieformulier nu printen?"
  SET makecdshalldelete "Zal ik het registratieformulier in T: nu wissen?"
  SET makecdansok "Ok"
  SET makecdansyes "Ja"
  SET makecdansno "Nee"
ENDIF

; By Eivind Olsen <[e-mail]>
IF $makecdlang EQ "norsk"
  SET makecdregfilename "Registrerings-skjema"
  SET makecdnoregform "Beklager, kunne ikke finne registrerings-skjemaet for MakeCD."
  SET makecdregreq "Registrerings-forespørsel"
  SET makecdshallprint "Vil du skrive ut registrerings-skjemaet nå?"
  SET makecdshalldelete "Vil du slette registrerings-skjemaet som ligger i T:?"
  SET makecdansok "OK"
  SET makecdansyes "Ja"
  SET makecdansno "Nei"
ENDIF

; By Mikko Virtanen <[e-mail]>
IF $makecdlang EQ "suomi"
  SET makecdregfilename "Rekisteröintikaavake"
  SET makecdnoregform "En löytänyt rekisteröintikaavaketta MakeCD:lle."
  SET makecdregreq "Rekisteröintipyyntö"
  SET makecdshallprint "Haluatko, että rekisteröintikaavake tulostetaan nyt?"
  SET makecdshalldelete "Haluatko, että T:ssä oleva rekisteröintikaavake tuhotaan nyt?"
  SET makecdansok "OK"
  SET makecdansyes "Kyllä"
  SET makecdansno "Ei"
ENDIF

; By Fredrik Zetterlund <[e-mail]>
IF $makecdlang EQ "svenska"
  SET makecdregfilename "Registreringsformulär"
  SET makecdnoregform "Hittar inte registreringsformuläret för MakeCD."
  SET makecdregreq "Registreringsförfrågan"
  SET makecdshallprint "Vill du skriva ut registreringsformuläret nu?"
  SET makecdshalldelete "Vill du radera registreringsformuläret i T: nu?"
  SET makecdansok "Okej"
  SET makecdansyes "Ja"
  SET makecdansno "Nej"
ENDIF

IF NOT EXISTS doc/$makecdlang/$makecdregfilename
  SET makecdlang english
  SET makecdregfilename "Registrationform"
ENDIF

IF NOT EXISTS doc/$makecdlang/$makecdregfilename
  SET makecdlang deutsch
  SET makecdregfilename "Registrierformular"
ENDIF

IF EXISTS doc/$makecdlang/$makecdregfilename
  Copy doc/$makecdlang/$makecdregfilename T:Registrationform
  Protect T:Registrationform rwd
  IF EXISTS ENV:EDITOR
    $EDITOR T:Registrationform
  ELSE
    Ed T:Registrationform
  ENDIF
ELSE
  IF EXISTS C:RequestChoice
    RequestChoice >NIL: "$makecdregreq" "$makecdnoregform" "$makecdansok"
  ELSE
    Echo >CON:0/0/640/100/Error "$makecdnoregform"
  ENDIF
  SKIP unsetvars
ENDIF

IF EXISTS C:RequestChoice
  RequestChoice >ENV:makecdANSWER "$makecdregreq" "$makecdshallprint" "$makecdansyes" "$makecdansno"
  IF $makecdANSWER EQ 1
    Type T:Registrationform TO PRT:
  ENDIF
  RequestChoice >ENV:makecdANSWER "$makecdregreq" "$makecdshalldelete" "$makecdansyes" "$makecdansno"
  IF $makecdANSWER EQ 1
    Delete QUIET T:Registrationform
  ENDIF
  Delete QUIET ENV:makecdANSWER
ENDIF

LAB unsetvars

UNSET makecdlang
UNSET makecdregfilename
UNSET makecdnoregform
UNSET makecdregreq
UNSET makecdshallprint
UNSET makecdshalldelete
UNSET makecdansok
UNSET makecdansyes
UNSET makecdansno

LAB end