;
;
;      LeXiCoN - v1.5 Install Script
;              - By Dagon
;
;

;================================= ENGLISH ==================================;
(set languages-default 1)

(set #ask_lexicon-dir "Where do you want to create your LeXiCoN directory?\n A LeXiCoN directory with an icon will be created there.")

(set #ask_exe-dest  "Where do you want to install lexicon executable: set path!\n Suggested path c: so you can utilise it anytime you want from shell")

(set #ask_vent-dest "Copy Vent.AMIRX script to your AmIRC rexx directory")

(set #vert_msg (cat "\n\n\nWith Vent.AMIRX you will be able to use lexicon from AmIRC, in order " 
         "to make this possible you will have to make an alias manually in AmIRC "
         "type \n\n   /alias lex /rx Rexx/Vent.AMIRX path:lex %p \n\n"
         "in the path: the path you installed lexicon executable and save configuration"
         " default path c:"
     ))

(set #assign_prompt (cat "lexdatabase: assign should be added to your S:USER-STARTUP\n"
                         "Do you mind?\n\n If you want to make it manually:\n"
                         " \nassign lexdatabase: PATH:LeXiCoN/lexdatabase"
                         " \n        PATH: = the path of this directory"
                         " \n        default path c: "  ))

;===[ Greek Documentation ]=================================================
(if (= @language "greek")
 (
  (set languages-default 2)
  
  (set #ask_lexicon-dir "Που θέλετε να εγκαταστήσετε το LeXiCoN.\n Ένα συρτάρι LeXiCoN με εικονίδιο θα δημιουργηθεί εκεί.")
  (set #ask_exe-dest  "Που θέλετε να εγκαταστήσετε το εκτελέσιμο αρχείο lexicon;\n Προτεινόμενο path το c: έτσι ώστε να μπορείτε να το χρησιμοποιήτε από το cli οποιαδήποτε στιγμή")
  (set #ask_vent-dest "Αντιγράψτε το Vent.AMIRX script στο rexx directory του AmIRC")

  (set #vert_msg (cat "\n\n\nΜε το Vent.AMIRX θα μπορείτε να χρησιμοποιήτε το lexicon από το AmIRC, για " 
         "γίνει αυτό δυνατό θα πρέπει να κάνετε ένα alias δια χειρός γράφοντας στο AmIRC "
         "\n\n   /alias lex /rx Rexx/Vent.AMIRX path:lexicon %p \n\n"
         "PATH: = η διαδρομή που εγκαταστήσατε το εκτελέσιμο lexicon (default path c: ) και μετά αποθηκευστε το configuration του AmIRC"
     ))
  (set #assign_prompt (cat "lexdatabase: ένα assign πρέπει να προστεθει στο S:USER-STARTUP"
                         " Συμφωνείς;\n Άμα θέλετε να το κάνετε δια χειρός γράψτε:\n"
                         " \nassign lexdatabase: PATH:LeXiCoN/lexdatabase"
                         " \n\n        PATH: = η διαδρομή που βρίσκετε το LeXiCoN "))
 )
)
(complete 0)

(message "\n\n\nLexicon v1.5\n\nby\n\nNikolaos Damilakis \n(Dagon)\n\n e-mail: ndamilak@studenti.unina.it")
(welcome)
;End of Introduction.
;
;


(set lexicon-dir
    (askdir
      (prompt #ask_lexicon-dir)
      (help
    "Lexicon Directory:\n"
    "choose the path you want to create your Lexicon directory."
    "\n"
      @askdir-help)
     (default "Ram:LeXiCoN/")
 )
)
(set LeX-dir (tackon lexicon-dir "LeXiCoN"))
(makedir LeX-dir (infos))



(copyfiles (dest LeX-dir) (source "LeXiCoN.gc"))
(copyfiles (dest LeX-dir) (source "LeXiCoN.gc.info"))
(copyfiles (dest LeX-dir) (source "LeXiCoN.guide"))
(copyfiles (dest LeX-dir) (source "LeXiCoN.guide.info"))
(copyfiles (dest LeX-dir) (source "Install-Lexicon"))
(copyfiles (dest LeX-dir) (source "Install-Lexicon.info"))

(set exe-dest
    (askdir
      (prompt #ask_exe-dest)
      (help
    "Lexicon executable\n"
    "choose the path you want to install Lexicon executable."
    "\n"
      @askdir-help)
      (default "c:")
  )
)

(copyfiles (dest exe-dest) (source "lex"))

(message #vert_msg)
(set Vent-dest
    (askdir
      (prompt #ask_vent-dest)
      (help
    "Vent.amirx script\n"
    "Copy this script to your AmIRC rexx directory."
    "\n"
      @askdir-help)
      (default "AmIRC:rexx/")
  )
)

(copyfiles (dest Vent-dest) (source "Vent.AMIRX"))

;
;
;

(complete 25)

(set datafiles-dest(tackon LeX-dir "lexdatabase"))

(set datafiles-dest1 (tackon datafiles-dest "English"))
(makedir datafiles-dest1 (infos))

(set datafiles-dest2 (tackon datafiles-dest "Italian"))
(makedir datafiles-dest2 (infos))

(complete 50)
(copyfiles (dest datafiles-dest1) (source "lexdatabase/English/a.dte"))
(copyfiles (dest datafiles-dest1) (source "lexdatabase/English/a.dtg"))
(copyfiles (dest datafiles-dest1) (source "lexdatabase/English/b.dte"))
(copyfiles (dest datafiles-dest1) (source "lexdatabase/English/b.dtg"))
(copyfiles (dest datafiles-dest1) (source "lexdatabase/English/c.dte"))
(copyfiles (dest datafiles-dest1) (source "lexdatabase/English/c.dtg"))
(copyfiles (dest datafiles-dest2) (source "lexdatabase/Italian/a.dte"))
(copyfiles (dest datafiles-dest2) (source "lexdatabase/Italian/a.dtg"))
(copyfiles (dest datafiles-dest2) (source "lexdatabase/Italian/b.dte"))
(copyfiles (dest datafiles-dest2) (source "lexdatabase/Italian/b.dtg"))
(copyfiles (dest datafiles-dest2) (source "lexdatabase/Italian/c.dte"))
(copyfiles (dest datafiles-dest2) (source "lexdatabase/Italian/c.dtg"))
(complete 60)
(copyfiles (dest datafiles-dest1) (source "lexdatabase/English/d.dte"))
(copyfiles (dest datafiles-dest1) (source "lexdatabase/English/d.dtg"))
(copyfiles (dest datafiles-dest1) (source "lexdatabase/English/e.dte"))
(copyfiles (dest datafiles-dest1) (source "lexdatabase/English/e.dtg"))
(copyfiles (dest datafiles-dest2) (source "lexdatabase/Italian/d.dte"))
(copyfiles (dest datafiles-dest2) (source "lexdatabase/Italian/d.dtg"))
(copyfiles (dest datafiles-dest2) (source "lexdatabase/Italian/e.dte"))
(copyfiles (dest datafiles-dest2) (source "lexdatabase/Italian/e.dtg"))
(complete 65)
(copyfiles (dest datafiles-dest1) (source "lexdatabase/English/f.dte"))
(copyfiles (dest datafiles-dest1) (source "lexdatabase/English/f.dtg"))
(copyfiles (dest datafiles-dest1) (source "lexdatabase/English/g.dte"))
(copyfiles (dest datafiles-dest1) (source "lexdatabase/English/g.dtg"))
(copyfiles (dest datafiles-dest2) (source "lexdatabase/Italian/f.dte"))
(copyfiles (dest datafiles-dest2) (source "lexdatabase/Italian/f.dtg"))
(copyfiles (dest datafiles-dest2) (source "lexdatabase/Italian/g.dte"))
(copyfiles (dest datafiles-dest2) (source "lexdatabase/Italian/g.dtg"))
(complete 70)
(copyfiles (dest datafiles-dest1) (source "lexdatabase/English/h.dte"))
(copyfiles (dest datafiles-dest1) (source "lexdatabase/English/h.dtg"))
(copyfiles (dest datafiles-dest1) (source "lexdatabase/English/i.dte"))
(copyfiles (dest datafiles-dest1) (source "lexdatabase/English/i.dtg"))
(copyfiles (dest datafiles-dest1) (source "lexdatabase/English/j.dte"))
(copyfiles (dest datafiles-dest1) (source "lexdatabase/English/3.dtg"))
(copyfiles (dest datafiles-dest2) (source "lexdatabase/Italian/h.dte"))
(copyfiles (dest datafiles-dest2) (source "lexdatabase/Italian/h.dtg"))
(copyfiles (dest datafiles-dest2) (source "lexdatabase/Italian/i.dte"))
(copyfiles (dest datafiles-dest2) (source "lexdatabase/Italian/i.dtg"))
(copyfiles (dest datafiles-dest2) (source "lexdatabase/Italian/j.dte"))
(copyfiles (dest datafiles-dest2) (source "lexdatabase/Italian/3.dtg"))
(complete 75)
(copyfiles (dest datafiles-dest1) (source "lexdatabase/English/k.dte"))
(copyfiles (dest datafiles-dest1) (source "lexdatabase/English/k.dtg"))
(copyfiles (dest datafiles-dest1) (source "lexdatabase/English/l.dte"))
(copyfiles (dest datafiles-dest1) (source "lexdatabase/English/l.dtg"))
(copyfiles (dest datafiles-dest1) (source "lexdatabase/English/m.dte"))
(copyfiles (dest datafiles-dest1) (source "lexdatabase/English/m.dtg"))
(copyfiles (dest datafiles-dest1) (source "lexdatabase/English/n.dte"))
(copyfiles (dest datafiles-dest1) (source "lexdatabase/English/n.dtg"))
(copyfiles (dest datafiles-dest2) (source "lexdatabase/Italian/k.dte"))
(copyfiles (dest datafiles-dest2) (source "lexdatabase/Italian/k.dtg"))
(copyfiles (dest datafiles-dest2) (source "lexdatabase/Italian/l.dte"))
(copyfiles (dest datafiles-dest2) (source "lexdatabase/Italian/l.dtg"))
(copyfiles (dest datafiles-dest2) (source "lexdatabase/Italian/m.dte"))
(copyfiles (dest datafiles-dest2) (source "lexdatabase/Italian/m.dtg"))
(copyfiles (dest datafiles-dest2) (source "lexdatabase/Italian/n.dte"))
(copyfiles (dest datafiles-dest2) (source "lexdatabase/Italian/n.dtg"))
(complete 80)
(copyfiles (dest datafiles-dest1) (source "lexdatabase/English/o.dte"))
(copyfiles (dest datafiles-dest1) (source "lexdatabase/English/o.dtg"))
(copyfiles (dest datafiles-dest1) (source "lexdatabase/English/p.dte"))
(copyfiles (dest datafiles-dest1) (source "lexdatabase/English/p.dtg"))
(copyfiles (dest datafiles-dest1) (source "lexdatabase/English/q.dte"))
(copyfiles (dest datafiles-dest2) (source "lexdatabase/Italian/o.dte"))
(copyfiles (dest datafiles-dest2) (source "lexdatabase/Italian/o.dtg"))
(copyfiles (dest datafiles-dest2) (source "lexdatabase/Italian/p.dte"))
(copyfiles (dest datafiles-dest2) (source "lexdatabase/Italian/p.dtg"))
(copyfiles (dest datafiles-dest2) (source "lexdatabase/Italian/q.dte"))
(complete 85)
(copyfiles (dest datafiles-dest1) (source "lexdatabase/English/r.dte"))
(copyfiles (dest datafiles-dest1) (source "lexdatabase/English/r.dtg"))
(copyfiles (dest datafiles-dest1) (source "lexdatabase/English/s.dte"))
(copyfiles (dest datafiles-dest1) (source "lexdatabase/English/s.dtg"))
(copyfiles (dest datafiles-dest1) (source "lexdatabase/English/t.dte"))
(copyfiles (dest datafiles-dest1) (source "lexdatabase/English/t.dtg"))
(copyfiles (dest datafiles-dest2) (source "lexdatabase/Italian/r.dte"))
(copyfiles (dest datafiles-dest2) (source "lexdatabase/Italian/r.dtg"))
(copyfiles (dest datafiles-dest2) (source "lexdatabase/Italian/s.dte"))
(copyfiles (dest datafiles-dest2) (source "lexdatabase/Italian/s.dtg"))
(copyfiles (dest datafiles-dest2) (source "lexdatabase/Italian/t.dte"))
(copyfiles (dest datafiles-dest2) (source "lexdatabase/Italian/t.dtg"))
(complete 90)
(copyfiles (dest datafiles-dest1) (source "lexdatabase/English/u.dte"))
(copyfiles (dest datafiles-dest1) (source "lexdatabase/English/8.dtg"))
(copyfiles (dest datafiles-dest1) (source "lexdatabase/English/v.dte"))
(copyfiles (dest datafiles-dest1) (source "lexdatabase/English/w.dtg"))
(copyfiles (dest datafiles-dest1) (source "lexdatabase/English/w.dte"))
(copyfiles (dest datafiles-dest1) (source "lexdatabase/English/x.dte"))
(copyfiles (dest datafiles-dest1) (source "lexdatabase/English/x.dtg"))
(copyfiles (dest datafiles-dest2) (source "lexdatabase/English/u.dte"))
(copyfiles (dest datafiles-dest2) (source "lexdatabase/Italian/8.dtg"))
(copyfiles (dest datafiles-dest2) (source "lexdatabase/Italian/v.dte"))
(copyfiles (dest datafiles-dest2) (source "lexdatabase/Italian/w.dtg"))
(copyfiles (dest datafiles-dest2) (source "lexdatabase/Italian/w.dte"))
(copyfiles (dest datafiles-dest2) (source "lexdatabase/Italian/x.dte"))
(copyfiles (dest datafiles-dest2) (source "lexdatabase/Italian/x.dtg"))
(complete 95)
(copyfiles (dest datafiles-dest1) (source "lexdatabase/English/y.dte"))
(copyfiles (dest datafiles-dest1) (source "lexdatabase/English/y.dtg"))
(copyfiles (dest datafiles-dest1) (source "lexdatabase/English/z.dte"))
(copyfiles (dest datafiles-dest1) (source "lexdatabase/English/z.dtg"))
(copyfiles (dest datafiles-dest2) (source "lexdatabase/Italian/y.dte"))
(copyfiles (dest datafiles-dest2) (source "lexdatabase/Italian/y.dtg"))
(copyfiles (dest datafiles-dest2) (source "lexdatabase/Italian/z.dte"))
(copyfiles (dest datafiles-dest2) (source "lexdatabase/Italian/z.dtg"))
(complete 98)
(startup "LeXiCoN © Dagon"
        (prompt #assign_prompt)
        (help   #assign_help)
        (command "Assign lexdatabase: \"" datafiles-dest "\"\n")
)

(makeassign "lexdatabase" datafiles-dest)


(complete 100)