2024-07-18 00:34 CEST

View Issue Details Jump to Notes ]
IDProjectCategoryView StatusLast Update
0004979Portal[All Projects] Generalpublic2022-12-23 00:20
Reporterchristoph gleisberg 
Assigned ToJOTDProject InfoPortal (Activision)
http://www.whdload.de/games/Portal.html
 
PrioritynormalSeverityminorReproducibilityalways
StatusclosedResolutionfixed 
Summary0004979: I've tried to image the disks, but it crashed on Disk 1 Track 2 underside. On
DescriptionGameVersion: english,pal,3 disks
SlaveVersion: 1.0 from 20.05.2000

I've tried to image the disks, but it crashed on Disk 1 Track 2 underside. On this track is a "2" on X-Copy sectorcheck. I checked the official image and it's also on that image so I think there have to be a skip.
TagsNo tags attached.
MachineA4000
CPU68040
CPUSpeed40
ChipSetAGA
GFXCardNone
ChipMem2 MB
FastMem16 MB
WorkbenchOS 3.1
KickROM40 - Kick 3.1
KickSoftNone
WHDLoad18.5
importedyes
Attached Files
  • ? file icon Install (9,150 bytes) 2022-12-20 23:34 -
    ;**** This installer script was generated
    ;**** by InstallWizard 2.0 (C) 2000-2002 JOTD
    
    (set #sub-dir "data")                  ;name of the sub-directory if any
    (set #readme-file "ReadMe")		;name of readme file
    (set #man-file "Manual")		;name of manual file
    (set #hint-file "Hints")		;name of hint file
    (set #sol-file "Solution")		;name of solution file
    (set #highs-file "highs")		;name of high scores file
    (set #prefix @app-name)                 ;name of slave, directory
    
    ;----------------------------
    ; copy file including icon if exist
    ; #copy-file - name of file to copy
    
    (procedure P_CopyFile
      (if
        (exists #copy-file)
        (
          (copyfiles
            (help @copyfiles-help)
            (source #copy-file)
            (dest #dest)
          )
          (if
            (exists ("%s.info" #copy-file))
            (
              (copyfiles
                (help @copyfiles-help)
                (source ("%s.info" #copy-file))
                (dest #dest)
              )
              (tooltype
                (dest (tackon #dest #copy-file))
                (noposition)
              )
            )
          )
        )
      )
    )
    
    ;****************************
    ;----------------------------
    ; checks if given program is installed, if not abort install
    ; #program - to check
    
    (procedure P_ChkRun
      (if
        (= 0 (run ("cd SYS:\nWhich %s" #program)))
        ("")
        (abort
          (cat
    	"You must install \"" #program "\" first!\n"
    	"It must be accessible via the path.\n"
    	"You can find it in the WHDLoad package."
          )
        )
      )
    )
    
    ;----------------------------
    ; Wait for inserting disk
    ; IN:  #AD_disk - name of disk
    ; OUT: -
    
    (procedure P_disk
      (askdisk
        (dest #AD_disk)
        (prompt ("\nInsert Disk \"%s\" in any drive!" #AD_disk))
        (help @askdisk-help)
      )
    )
    
    ;----------------------------
    ; Create Image using DIC
    ; #dest        - path to save image in
    ; #CI_disknum  - number of the disk image to create
    ; #CI_diskname - label of the disk
    ; #CI_disklen  - length of disk image to create
    ; #CI_skiptrk  - track to skip, -1 means no skip
    ; #CI_drive    - drive to create image from
    
    (procedure P_CreateImage
    (P_disk)					; added
    (set #CI_drive (getdevice (cat #AD_disk ":")))	; added
    
      (if
        (= #CI_skiptrk "")
        (set #option "")
        (set #option (cat " SKIPTRACK=" #CI_skiptrk))
      )
    
      (if
        (= 0
          (run
            (cat
              "cd \"" #dest "\"\n"
              "DIC " #CI_drive ": FD=" #CI_disknum " LD=" #CI_disknum " SIZE="
              #CI_disklen #option " PEDANTIC >CON:///1000//CLOSE"
            )
          )
        )
        (run ("FileNote \"%s.%ld\" \"%s\" Quiet" (tackon #dest "disk") #CI_disknum @app-name))
        (abort "\"DIC\" has failed to create a diskimage")
      )
    )
    
    (procedure P_MakeImages
    
    
      (set #CI_disknum 1)
      (set #CI_diskname ("%s Disk %ld" @app-name #CI_disknum))
      (set #AD_disk ("Portal%ld" #CI_disknum))
      (set #CI_disklen 901120)
      (set #CI_skiptrk "4")
      (P_CreateImage)
    
      (set #CI_disknum 2)
      (set #CI_diskname ("%s Disk %ld" @app-name #CI_disknum))
      (set #AD_disk ("Portal%ld" #CI_disknum))
      (set #CI_disklen 901120)
      (set #CI_skiptrk "")
      (P_CreateImage)
    
      (set #CI_disknum 3)
      (set #CI_diskname ("%s Disk %ld" @app-name #CI_disknum))
      (set #AD_disk ("Portal%ld" #CI_disknum))
      (set #CI_disklen 901120)
      (set #CI_skiptrk "")
      (P_CreateImage)
    
    )
    ;****************************
    
    (if
      (< @installer-version (+ (* 44 65536) 10))
      (
      (message
        (cat
          "Warning: your installer is outdated.\n"
          "All features of this installation won't be available, such as icon show and drawer opening.\n"
          "You have version " (/ @installer-version 65536) "." 
          (BITAND @installer-version 65535) ", needed is at least version 44.10. "
          "The 'installer' 44.10 comes with OS 3.5 but is also contained in the NDK 3.9. "
          "You may also use the InstallerNG by Jens Tröger."
          "\n\n"
          "The installers can be obtained from the net:\n"
          "http://www.amiga.com/3.9/download/NDK3.9.lha\n"
          "aminet:util/sys/InstallerNG.lha"
        )
      )
      (set #newstuff 0)
      )
      (set #newstuff 1)
    )
    
    (if
      (exists #readme-file)
      (if
        (= 0 (run ("SYS:Utilities/Multiview %s" #readme-file)))
        ("")
        (run ("SYS:Utilities/More %s" #readme-file))
      )
    )
    
    (set #program "WHDLoad")
    (P_ChkRun)
    
    (set #program "DIC")
    (P_ChkRun)
    (set #suffix "")   ; replace by suffix if dic slave is peculiar
    
    (if
      (getenv "WHDLInstPath")
      (set @default-dest (getenv "WHDLInstPath"))
    )
    (set #dest
      (askdir
        (prompt
          (cat
    	"Where should \"" @app-name "\" be installed?\n"
    	"A drawer \"" #prefix "\" will be automatically created."
          )
        )
        (help @askdir-help)
        (default @default-dest)
      )
    )
    
    ; update for the end message
    (set @default-dest #dest)
    
    (run ("setenv WHDLInstPath \"%s\"\ncopy ENV:WHDLInstPath ENVARC:" #dest))
    (set #dest (tackon #dest #prefix))
    (set #dest-org #dest)
    (if
      (exists #dest)
      (
        (set #choice
          (askbool
            (prompt
              (cat
                "\nDirectory \"" #dest "\" already exists.\n"
                "Should it be deleted?"
              )
            )
            (default 1)
            (choices "Delete" "Skip")
            (help @askbool-help)
          )
        )
        (if
          (= #choice 1)
          (run ("Delete \"%s\" \"%s.info\" All" #dest #dest))
        )
      )
    )
    (makedir #dest
      (help @makedir-help)
      (infos)
    )
    
    ;----------------------------
    
    (copyfiles
      (help @copyfiles-help)
      (source ("%s%s.Slave" #prefix #suffix))
      (dest #dest)
      (newname ("%s.slave" #prefix)))
    (if (exists ("%s.glowexot"  #prefix)) ((set #icon 7)(set #icnt (+ 1 #icnt))(set #icon-gex "Exotic GlowIcon")) (set #icon-gex ""))
    (if (exists ("%s.newexot"   #prefix)) ((set #icon 6)(set #icnt (+ 1 #icnt))(set #icon-nex "Exotic NewIcon"))  (set #icon-nex ""))
    (if (exists ("%s.exoticon"  #prefix)) ((set #icon 5)(set #icnt (+ 1 #icnt))(set #icon-exo "Exoticon"))        (set #icon-exo ""))
    (if (exists ("%s.glowicon"  #prefix)) ((set #icon 4)(set #icnt (+ 1 #icnt))(set #icon-glo "Glow Icon"))       (set #icon-glo ""))
    (if (exists ("%s.coloricon" #prefix)) ((set #icon 3)(set #icnt (+ 1 #icnt))(set #icon-col "OS3.5 Icon"))      (set #icon-col ""))
    (if (exists ("%s.newicon"   #prefix)) ((set #icon 2)(set #icnt (+ 1 #icnt))(set #icon-new "NewIcon"))         (set #icon-new ""))
    (if (exists ("%s.romicon"   #prefix)) ((set #icon 1)(set #icnt (+ 1 #icnt))(set #icon-rom "RomIcon"))         (set #icon-rom ""))
    (if (exists ("%s.inf"       #prefix)) ((set #icon 0)(set #icnt (+ 1 #icnt))(set #icon-nor "Normal"))          (set #icon-nor ""))
    (procedure P_Icon
      (copyfiles
        (help @copyfiles-help)
        (source ("%s.%s" #prefix #icon-suf))
        (newname ("%s.info" #icon-name))
        (dest #icon-dir)
      )
      (tooltype
        (dest (tackon #icon-dir #icon-name))
        (noposition)
      )
    )
    (if
      (> #icnt 1)
      (
        (set #icon-dir ("T:%s Icons" #prefix))
        (makedir #icon-dir
          (help @makedir-help)
        )
        (if #icon-nor ((set #icon-suf "inf")       (set #icon-name #icon-nor)  (P_Icon)))
        (if #icon-rom ((set #icon-suf "romicon")   (set #icon-name #icon-rom)  (P_Icon)))
        (if #icon-new ((set #icon-suf "newicon")   (set #icon-name #icon-new)  (P_Icon)))
        (if #icon-col ((set #icon-suf "coloricon") (set #icon-name #icon-col)  (P_Icon)))
        (if #icon-glo ((set #icon-suf "glowicon")  (set #icon-name #icon-glo)  (P_Icon)))
        (if #icon-exo ((set #icon-suf "exoticon")  (set #icon-name #icon-exo)  (P_Icon)))
        (if #icon-nex ((set #icon-suf "newexot")   (set #icon-name #icon-nex)  (P_Icon)))
        (if #icon-gex ((set #icon-suf "glowexot")  (set #icon-name #icon-gex)  (P_Icon)))
    
        (if (= #newstuff 1)
           (openwbobject #icon-dir)
        )
    
        (set #icon
          (askchoice
            (prompt "\nWhich icon would you like to install?\n")
            (choices #icon-nor #icon-rom #icon-new #icon-col #icon-glo #icon-exo #icon-nex #icon-gex)
            (default #icon)
            (help @askchoice-help)
          )
        )
        (if (= #newstuff 1)
          (closewbobject #icon-dir)
        )
        (delete #icon-dir
          (help @delete-help)
          (all)
        )
      )
    )
    (set #isnewicon 0)
    
    (select #icon
      (set #icon "inf")
      (set #icon "romicon")
      (
         (set #icon "newicon")
         (set #isnewicon 1)
      )
      (set #icon "coloricon")
      (set #icon "glowicon")
      (set #icon "exoticon")
      (
         (set #icon "newexot")
         (set #isnewicon 1)
      )
      (set #icon "glowexot")
    )
    (copyfiles
      (help @copyfiles-help)
      (source ("%s.%s" #prefix #icon))
      (newname ("%s.info" #prefix))
      (dest #dest)
    )
    (if
      (= #isnewicon 1)
      ("")
      (
        (tooltype
          (dest (tackon #dest #prefix))
          (settooltype "Slave")
          (settooltype "PreLoad")
        )
        (tooltype
          (dest (tackon #dest #prefix))
          (settooltype "PreLoad" "")
          (settooltype "Slave" ("%s.Slave" #prefix))
        )
      )
    )
    (tooltype
      (dest (tackon #dest #prefix))
      (setdefaulttool "WHDLoad")
      (setstack 10240)
      (noposition)
    )
    (set #copy-file #readme-file)
    (P_CopyFile)
    (set #copy-file #man-file)
    (P_CopyFile)
    (set #copy-file #hint-file)
    (P_CopyFile)
    (set #copy-file #sol-file)
    (P_CopyFile)
    (if
      (= #sub-dir "")
      ("")
      (
        (set #dest (tackon #dest #sub-dir))
        (makedir #dest
          (help @makedir-help)
        )
      )
    )
    (set #copy-file #highs-file)
    (P_CopyFile)
    (P_MakeImages)
    (if (= #newstuff 1)
      (openwbobject #dest-org)
    )
    (exit)
    
    
    ? file icon Install (9,150 bytes) 2022-12-20 23:34 +

-Relationships
+Relationships

-Notes

note ~0012158

JOTD (developer)

Last edited: 2022-12-20 23:33

View 2 revisions

actually the install should be rewritten so the game uses real files instead of disk images.

That would allow to support BTTR (cracked) and original images transparently.

In the meantime, the install script for original disk is attached.

note ~0012161

JOTD (developer)

better use real files, this is now done
+Notes

-Issue History
Date Modified Username Field Change
2021-01-28 11:18 administrator New Issue
2021-01-28 11:18 administrator Status new => assigned
2021-01-28 11:18 administrator Assigned To => Harry
2022-06-13 19:21 JOTD Assigned To Harry => JOTD
2022-12-20 23:33 JOTD Status assigned => confirmed
2022-12-20 23:33 JOTD Note Added: 0012158
2022-12-20 23:33 JOTD Note Edited: 0012158 View Revisions
2022-12-20 23:34 JOTD File Added: Install
2022-12-23 00:20 JOTD Status confirmed => closed
2022-12-23 00:20 JOTD Resolution open => fixed
2022-12-23 00:20 JOTD Note Added: 0012161
+Issue History