;{
version.s="0.1 beta"
time.s=FormatDate("%hh:%ii:%ss", Date())
;}

OpenConsole()
ConsoleTitle("PureBasicLMZA Archive Maker "+version)
PrintN("")
PrintN("  PureLZMA Archive Maker "+version+" by AgManiX de Mal the Heaven Fire")
Print("   Project homepage:") :  EnableGraphicalConsole(1) : ConsoleColor (2,0) : PrintN("www.AMXdM.tk/pblzma") : ConsoleColor (7,0)
PrintN("")
PrintN("Do you really want To create pblzma archive?[y/n]")
Print(" ->")
result$=Input()
If result$<>"y"
  PrintN("Hm...ok!The press Enter To exit")
  Input()
  Else
    PrintN("OK!Type archive name then.")
    PrintN("E.g: C:\MyArch it will create file MyArch.pblzma in C:")
    Print(" ->")
    archive.s=Input()
  EndIf
    If PureLZMA_Archive_Create(archive+".pblzma")
      PrintN("Type path to directory and file mask which you want compress in archive.")
      PrintN("Eg: C:\Program Files\Movie Maker\*.*")
      Print(" ->")
      files.s=Input()
      PrintN("OK! Adding files, please wait!")
      If PureLZMA_Archive_AddFiles(files,0,#PureLZMA_StorePathRelative)>0
        PrintN("All files compressed!")
        PrintN("Visit www.AMXdM.tk")
        PrintN("Press Enter to exit...")
        Input()
      Else
        PrintN("Files hasn't been compressed!Error,error....")
        PrintN("Press Enter to exit...")
        Input()
      EndIf
      PureLZMA_Archive_Close()
    Else
      PrintN("Can't create archive!Error,error...")
      PrintN("Press Enter to exit...")
      Input()
    EndIf