-lh0-    u$  Install;****************************

(set #readme-file "README") ;name of readme file
(set #last-disk 1)          ;amount of disks

;****************************
;----------------------------
; Checks if given program is reachable via the path
; if not abort install
; IN:  #program - to check
; OUT: -

(procedure P_chkrun
  (if
    (= 0 (run ("cd SYS:\nWhich %s" #program)))
    ("")
    (abort ("You must install \"%s\" first !\nIt must be accessible via the"
            "path.\nYou can find it in the whdload package." #program))
  )
)

;----------------------------
; Create disk-Image using DIC
; IN:  #dest        - DestinationPath
;      #CI_diskname - DiskName
;      #CI_diskno   - DiskNumber
;      #CI_drive    - DriveToReadFrom
; OUT: -

(procedure P_image
  (message ("\nInsert \"%s\" into drive %s !\n\n(make sure it's the right"
            "disk because it will not checked)" #CI_diskname #CI_drive))
  (if
      (= 0
        (run ("cd \"%s\"\nDIC %s FD=%ld LD=%ld >CON:///1000//CLOSE"
              #dest #CI_drive #CI_diskno #CI_diskno))
      )
      ("")
      (abort "\"DIC\" has failed to create a diskimage")
  )
)

;****************************

(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)

; in expert mode ask for source drive
(if
  (= @user-level 2)
  (
    (set #CI_drive
      (askchoice
	(prompt "Select source drive for diskimages")
	(default 0)
	(choices "DF0:" "DF1:" "RAD:" "Enter Device")
	(help @askchoice-help)
      )
    )
    (select #CI_drive
      (set #CI_drive "DF0:")
      (set #CI_drive "DF1:")
      (set #CI_drive "RAD:")
      (set #CI_drive
        (askstring
          (prompt "Select source drive for diskimages")
          (default "DF0:")
          (help @askstring-help)
        )
      )
    )
  )
  (set #CI_drive "DF0:")
)

(set @default-dest
  (askdir
    (prompt ("Where should \"%s\" installed ?\nA drawer \"%s\" will automatically created." @app-name @app-name))
    (help @askdir-help)
    (default @default-dest)
    (disk)
  )
)
(set #dest (tackon @default-dest @app-name))
(if
  (exists #dest)
  (
    (set #choice
      (askbool
        (prompt ("\nDirectory \"%s\" already exists.\n Should it be deleted ?" #dest))
        (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.slave" @app-name))
  (dest #dest)
)
(copyfiles
  (help @copyfiles-help)
  (source ("%s.inf" @app-name ))
  (newname ("%s.info" @app-name ))
  (dest #dest)
)
(if
  (exists #readme-file)
  (copyfiles
    (help @copyfiles-help)
    (source #readme-file)
    (dest #dest)
  )
)
(makedir (tackon #dest "save")
  (help @makedir-help)
)

(set #CI_diskno 1)
(while
  (<= #CI_diskno #last-disk)
  (
    (set #CI_diskname ("%s Disk %ld" @app-name #CI_diskno))
    (P_image)
    (run ("FileNote Disk.%ld %s Quiet" #CI_diskno @app-name))
    (set #CI_diskno (+ #CI_diskno 1))
  )
)

;----------------------------

(exit)

"t-lh0-    ڠ! Install.info        F    ؘ                            	                F   8                                  D 5UUD zD p   D p  D p    D p    p  ? p    p   0 p          D D | D |D |D |  D |  | |                                       /`    o`    ` A  `?A  `?A  `?  `?   `   `   `   `                      A    A  _  A  _    _                            
Installer       APPNAME=PowerMonger    
LOG=FALSE    MINUSER=AVERAGE %,-lh0-N  N  s$ PowerMonger.inf!      	   N   bdH                 r_ro   
   q                                          ^ B               M                               ?                                 o տ /  w  j/ ӷ L?   v۶                                                                                                                                                                                                                                                                          X                              (   
                                                         D@                                                                                         @                                                                                                                                            g                           s                            k                            w                            k                           w0wcyqc    kx06G/6   cXi06O``)   k -06@J@Z    g  '6vd@o@L4   k  '06d@N@L    c  76vd@o@Lh    g `'06d &@N@L     k  566d &@k@L     g `'06w &@N@L     c  '06v $ &@n@L     g ԙ +p6T $ &@NM     S  76v 6@n@F@     k &0fl @
\     w
'06r` &n@o@J@     C ,6 &ʀ@Z@Jր     k,2t @KNV     exW $`@I`ˁ     c  XX4 6`@h@     J                   L        #                  L        S                T        U&                @l        UP                @L        cUH                @T        W                L        cU@                @D        g?                @X        c7                        K?                 q        c                 {        g'?  @   H                 c  BsP^24>           g-?  
F$PIDD           #  
B{PIDD           g_  Bs.߱2;X                                                                                     @                           X                                                                                 P                              m                           @                              @                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              x                                                              ;|                                                      8                                                               @                                                                                       #                           !8p                            ]|                            <                                                         4 z                            4                            5(Z'"IvjTuMʤN@M     (},Ɵr㻠ӡr"    =(Zy1 3c!)    ^}??@=)    5 +8|  kw}k y=    > 6`}}?     = ;<8@k kwk      > E` ?{      m օ?: >@@@       7 <}~_@       `?> < >@@      ? ԅ/p. < >^}      }7>~ 6o~      o#/> >~}      w?6| >o@o      ƅ-> >[~      :| 6@k     "wx >y      D}|< >gxg     "X                  \        !~                @|        "                \        "w?D                l        "D                \        "                @\        !D                |        #D                @|        !D                        !~                        !|                         !|                 U@        !`@                           "                             #c                           "@                           #@                                                       !                           #                                                                                                                                                       |                           $   $                           >                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           x                              x                                                                                    ?                           , 0 ,                           ,   ,                           4   4                           /,                           '$                           '4                           (                           ,,                           44                           $$                           ,,                           4$?    44}>ǟ?6   ,ly>)   55?>)   $%?>=   ,-?>    ,-?>    4u?> >     ,?> >     $?> >     45?> < >     ,?> < >     .?> >     55?> >     $%?> >     -?> >     7%| >{     7tx >y     /}|< >x     7                  |        '                |        /,                |        /                |        7                |        /                |        '                |        '                |        /                        /                        7                         '$                         /,                           7$                           7      $                 /l   @   D           7     H           't   s K             /                        /l                          7                          , .                           '                           3@ 4                                                      |$>                                                      x                                                                                                                                                                                                                                   M  0     W -m-=}? ,--}~{--n+/m ? mo}-==*{/-m=- RR w =-/ƿ--m=  ---}-/m=?} ｭ---/=?-m}  m}==>-}--o  n oﭽ}-o//>- Ғ o--}-om=/m} mmm/---i ~׿ //-?/--o/ >  }-mm//}--/- v }mmm--.}///= ?--}+-u-}-}- ?{~ m-/O=-m-k/m Q{? n1 /mmq---?= y'f o/m?U-?=? ?--?9-m}? V /}/o>k---m z W- /o=-m/R~o-==oo-  moo?} }/-=--~-=/~ / ?o-?-k/ -  //o/}o?= - -m/-/- /-=/=-/m / //-=-}?m } - -=--= - }/-m--//}? -m/}-//-- ӿ/ =//-/=--o c  }/m})m/m, OV- //߽-o?=;m }o--o
?/og?  --oK?---m w@o W+T?} }?/-/?/wm OP?= ?}om--% }/=?/ m/? WwZ =/mmoo#?mm-          ',  $(  @            @Rwp@   @          @v vr  r` @          @ (		!	((! $            Dx @Ȍ@r@        @    m(=(B+        @    B@l'y 8g x`  @      	B   փB@            	P 0          @ Pp  {@tpp            @w
$ @           x,d  )	8( 	       XP Bzw@CD	       $ @9$$         @   e9c !yAdID        Bx× @@ P        `@(
A'gd @        p@ @@@" P@      `@@v @   @v@          8yx8    @ 8 9         G z $ B(     $9(   	 $             iI P t8;,dD        @B         @  	 !`Q   A	d 	          H@@ 
   XxBz    @   z@?     RpppP      x9|@ 
 	H8  (       `H     B@       	   @@  8	D8 
   	    5x88    x  xp  @  B  T  @ `  ( ( 	%  @" '      AP   @ @wv   @   @@     P A@@p   
 ) 8x$    		       z N  @  DPz  @      (88L%0  (  Ax.$9  6 p  $d8$A  P @% a `$    F @  ` 0  BB @	  i $   `     !   P  CVP X@     !Hp  / p        *       KP !  =h8 I(D          	    C @B  @ 	        r@P!     9    @   )     I` @@       @ P     Xא $          @PR     Hd` X$H@  @     	     @G@    %        w  $     P         ښB  d y   %            9$&  G @   @  B         pz@	 ` 	 8  
        a(  x    ,           9$-  @P  B R          Ȕ $   		  "         d	   p H @ H@        B 	  p @z          r  G@      	$  HH     $  -!   P@ @p@         @p B@    	  8   @        $y   ` $ 	da        D,     B zP  @x@@          @     Hh          d!   B  @    "  Ԃ8@ ( p   @ X  p     CBB  `   
	$  ,@  	$    @ @@ @P  S    @     	   p  @  `  !   $  % '`   %  	IJ       ʐ  @< @    
  	   $  I$ W@    I     H BhB@     ʨ           L@             	        	T@      @ @ @@B@ @          @   $  	$)m- =l0EA8lM-l-*"`  HҖV
RPҀ}-  TVTRRQh(RvڕV@J ) -%-)LH--4-@R VRS4TFkDRђ֢­ )  ,.-,m------H!P ( j))$e+ (%-~)I im)*  REBRҒB6[҂PRR,   h-!INML
6Y))%,)(  R@RRցTT/!ҒHP A% ֔dR0]Q"Em   *---!l4H^# K)--  ҨAPRfR@+ -  5-i5&d-E*)%---!  )a m-ml %)(GxHE1$/--,-`  ғRR҈АW9XR %! -,h	A%Hbq*m=%!,-;$ RHRҒكZUDSiҀZ@R% Ұ FR. 9RȒDC] -  --,h.).,  ()9)  R P B$ P M -$,--iLM   [pM='---P - K%)UE ^@ a-|5%m &  В҈XBAԠ 
 `xA -  -mKa Ѐ:!	'@mM   R RXل * .PPJRCU Ҵ$SG!|6RSPRzԠ/ %! %,D((+ z J* u-50  R"/\ Ђ^R% -a$-%,!  *.-   l( -$,_ HA!--P ʰVPh [ph
Ґ- )  -L8K$/ ^5e%m   Ә ¶_ ^ZRRҒ؃- X@ ZT@$ @~@Qֆր* -0 ~?)?8 |J$	i-0  Ҵz8`DR$$M  9,((98(	7(,)"-  R (@ ,E$?ETS"!(4 ! ҘDcʠRRP	   ,!)) uG &
E -  XprZ~oި
P  m Q Ҵ	"ǚ	J%13B   -(*~, 
* %--0  R d wӋ\ o@AZR+   -( @8 5@
)/!-p  I-l \ _p       D-  8 RRҐ ?8   H  TZZ    (Y$  W<yb    -` j P҄D}|x      
R  r23"XV  ` Qj$ ) -'$$H|    8 .P),  B HАhsʠ  RRI   *O-@΁ ,AI!)0 P E  m|(E. Y  
),%N)  HКJ V9   ARА$ C@ $IM)$.A   MHL4-  XR^]*45q  7ւ 	 DPjR* ~YBhʠ H --x4=@  "/  h R@ }|SB) @ m"*Phrs 'v 6))-0  =  -I$! Ǜ`, ~   $n$   RX PDT_v P     @  ,,(@ $i( R 2JϏ_ex u  ЊӖ( PЇ= B* %  .-)iߕ"/ --l-P  ҂   R-   ,---=x 	&i-- B .@-,)7k?h y/I-(  И ЊҐ-okY   )  -M-i+`+k:u| ml	,m  r JB7][ ҀA@ А֒{1*$b:  @= - ---/0+ {_ /-)-p  APc  Z%X  C= /WWw' ---Z5]~? (-[-u[\u--L*ϭ+m /_X9/ mkU-4-#s.-_m=- /޳ZVRR/ /ժrӲuy' W5-.z,-mo= '~Ԣ/ S---]-'w=V-?]_ ｭ-Z%-.m--6-m} y/uSRֲ~/ {mU-5.+-UZ---n{ /VVR԰VZ/ /ҳjekfRҪ- WoUe---*.- y'߲ҒVjRSҶ/ O---]-|-m--mm {M-mm[-/--[--5iW +ꪪj՛vKZ/ -+*-U-6+--k/ 'OQr' //CxڢҶ/ u---._߿`*}-)+- X/vRҰ>~ړR umm--)﵀! Ue.U+-U*= ?--U*m-u-]]-]- ~/~Ҫjڨ?T_V/ ݸm-*Co-+-m-k/m /jAkj/v 'VҪm1zsRv/ ---Ԫּu-,-?=_ /R}'R/ k*-^-Z5=6 Co?---׿9z-mMm?Wo {+V\q'~%RS *U+k:s@-W---mV // JZ/[ 'U~ҲҒx'- *׭+--m-B^~+-5=m/- YkRVP/ -hllo*^u] ]*----~-=&zzWV /z/- .m-+--_j&_m /ewKRR- /RZӿݻ?֪'_ -*ӽe. hڙ m--5z XҖw]'- ,jm#[/o[u--Z- (I-5*P~5-/mx /O^~TR* +*G--55&~-]m ҹ//tҳUVU B\~zy/- -*5,-#5)V /jյWߗ?tҲ- ]*-m,n-*-=:W -Xǽm-U-'u~*-- /_Q/#Ry+ -*&--'__r-]-ozj -"ѫkZ/ U+۶Uj') U*׭mU)m'm, ֒NV/- -*W5-m},+9U;mF YH--g7~
.+og7zj U/kW)y -(W,wc1H}/P8---mV v&ߟ(x/* 'nP+9Rm 5:W/-/7'ßrmw X/jO := 5mUomꊱ--%W }(龽5;#{ zm/? R/߿WqZ/- =*Gmmogt7mm-G    WHDLoad       *** 16 color ROM Icon ***    SLAVE=powermonger.slave    PRELOAD    ;NTSC       '-lh0-      $  powermonger.slave                         pNuWHDLOADS        V    XYE$VER: Powermonger.Slave by Wepl (23-Apr-98 01:36:11) C"a  <   "<   tA "zN (A"| &tNFAC N:i 
iiNp"  zpN M  pA  -H Jn =|? =| A>"|   N"|   gaL f .3|N Hz #_ N 3|Nu N x*A  hA ! h1Nu1N8bHz !8d3p   H瀀pAt0NqQL3N  ݔHz#  ݖ3N Hy n# 3Nu 3J 3N .Hz V# 03N THz # VN ` hE 2  NuH瀀A 4p 9 q  VL/:2NuH@A   A z$zN $Jf
N "p `A `C W|$z N LNuH@A I  A :$z N $Jg
N J@f < A C W|$z N BxLNusave/   H4/ @f&< 5   #  X#  
E  pL a%@ "JN  H` " IC C f f0)  ") /t"z $N (LNuINTRODATSTART_UPRUN_PROG        Hx`Hx /:XNuA .! hC |  J) )  3  3 NuH@C )  gT) B)  ) @ F :fL?W . Bo `:yg |:rg tr9 9 gQ)  3  LNs  B-lh0-6  6  r$  README

	THIS PACKAGE COMES WITH ABSOLUTELY NO WARRANTY OF ANY KIND, EITHER
	EXPRESS OR IMPLIED, STATUTORY OR OTHERWISE.
	THE ENTIRE RISK AS TO USE, RESULTS AND PERFORMANCE OF THE PACKAGE IS
	ASSUMED BY YOU AND IF THE PACKAGE SHOULD PROVE TO BE DEFECTIVE, YOU
	ASSUME THE ENTIRE COST OF ALL NECESSARY SERVICING, REPAIR OR OTHER
	REMEDIATION.
	UNDER NO CIRCUMSTANCES, CAN THE AUTHOR BE HELD RESPONSIBLE FOR ANY
	DAMAGE CAUSED IN ANY USUAL, SPECIAL, OR ACCIDENTAL WAY, ALSO IF THE
	OWNER OR A THIRD PARTY HAS BEEN POINTED AT SUCH POSSIBILITIES OF
	DAMAGE.


	That install applies to "Powermonger"  1990 Bullfrog.


	That install requires WHDLoad and DIC to be in the path. Both
	can be found in the whdload package.


	You need 0.5 MB ChipMem and 0.5 MB OtherMem.
	You can quit the game by pressing ESC or F10 (key can be changed with
	Tooltype "QuitKey=")


	Manual protection has been removed. One Access Fault fixed. Savegame
	redirected to harddisk. Keyboard routine fixed.
	

	To extract your savegames from a floppy :
		create a disk image using DIC from your savegame disk
		enter the directory where "Disk.1" is stored, and
		execute "sgsaver", all valid savegames are extracted,
		move them now to the PowerMonger save directory ...


	Thanx to Peter Schreck for media support.


	If you have problems with this installation please report them via
	the Bug-Report-Form which can be accessed via
		http://www.fh-zwickau.de/~jah/whdload/

	for full WHDLoad package and other installs refer to:
		http://www.fh-zwickau.de/~jah/whdload/
	or	aminet:dev/misc/whdload#?
	and	aminet:game/patch/

-lh0-4  4  5!  sgsaver                       `4$VER: sgsaver 0.1 (09-Dez-96 21:17:42) by WEPL V37+ NT)x p%C,lN)@ga"l,lNbN\p NuH >NUAa z+A+@gV  f@&mSAVEf4G, Emt K JfJf <  K"Ja   RQ"m,lNNN]L|NuH3| "t,lN. g@ <   r ,lNT, g""$&<   ,lNnJf"F,lNN| ",lN L@NuH "$	,lNFL@Nu`H /<
   "t ,lNFL@Nu/ /	/gA 2a WaaXJgA Ha WaaXJgA "a WaaXNu1mError     : 22m 1mSubsystem : 22m 1mOperation : 22m H ,lN|" A $N&LA"HA ` `1mError     22m H?x "$<  ,lN. f
A a`  "t v,lNJk"t vN* gTj
A da x`H r ,lNT, fp A RC Da `("$&,lNְgA (a <"F,lNN`(",lN "L@Nuread file not enough memory H0$a & f A &/ "Oa 4XJg
"C,lNN Ba L@Nuloading file 1m%s22m
 H?., x "	$<  ,lN* f
A 0a ` "$&Nxg
A a nx "N L@Nuwrite file  H<( &$	 Ba 6* g$ A ./"Oa X  C"Ba x$ Jg
"E,lNN L@<Nusave file 1m%s22m
  dos.library disk.1 A      !-lh0-W	  W	  3!  sgsaver.asm;##########################################################################

	INCDIR	Includes:
	INCLUDE	lvo/exec.i
	INCLUDE	exec/memory.i
	INCLUDE	lvo/dos.i
	INCLUDE	dos/dos.i
	
	INCLUDE	macros/ntypes.i

;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

GL	EQUR	A4		;a4 ptr to Globals
LOC	EQUR	A5		;a5 for local vars

	NSTRUCTURE	Globals,0
		NAPTR	gl_execbase
		NAPTR	gl_dosbase
		NALIGNLONG
		NLABEL	gl_SIZEOF

;##########################################################################

	SECTION	"",CODE,RELOC16

VER	MACRO
		dc.b	"sgsaver 0.1 "
	DOSCMD	"WDate >t:date"
	INCBIN	"t:date"
		dc.b	" by WEPL"
	ENDM

		bra	.start
		dc.b	"$VER: "
		VER
		dc.b	" V37+",0
	CNOP 0,2
.start

;##########################################################################

		link	GL,#gl_SIZEOF
		move.l	(4).w,(gl_execbase,GL)

		move.l	#37,d0
		lea	(_dosname),a1
		move.l	(gl_execbase,GL),a6
		jsr	_LVOOpenLibrary(a6)
		move.l	d0,(gl_dosbase,GL)
		beq	.nodoslib

		bsr	_Main
.opend
		move.l	(gl_dosbase,GL),a1
		move.l	(gl_execbase,GL),a6
		jsr	(_LVOCloseLibrary,a6)
.nodoslib
		unlk	GL
		moveq	#0,d0
		rts

;##########################################################################

	NSTRUCTURE	local_main,0
		NAPTR	lm_srcptr
		NULONG	lm_srcsize
		NLABEL	lm_SIZEOF

_Main		movem.l	d2/a2-a6,-(a7)
		link	LOC,#lm_SIZEOF
		lea	(_disk),a0
		bsr	_LoadFileMsg
		move.l	d1,(lm_srcsize,LOC)
		move.l	d0,(lm_srcptr,LOC)
		beq	.end

		cmp.l	#901120,(lm_srcsize,LOC)
		bne	.freefile

		move.l	(lm_srcptr,LOC),a3
		cmp.l	#"SAVE",(a3)		;check for right disk
		bne	.freefile
		
		add.w	#$2c00,a3
		lea	(_sg),a2
		
		moveq	#8-1,d2

.loop		move.l	a3,a0
		add.l	#$18bd0,a0
		tst.l	(a0)+
		bne	.skip
		tst.l	(a0)+
		bne	.skip

		move.l	#101345,d0		;size
		move.l	a3,a0			;ptr
		move.l	a2,a1			;name
		bsr	_SaveFileMsg
.skip
		add.l	#$18c00,a3
		addq.b	#1,(a2)
		
		dbf	d2,.loop

.freefile
		move.l	(lm_srcptr,LOC),a1
		move.l	(gl_execbase,GL),a6
		jsr	(_LVOFreeVec,a6)

.end		unlk	LOC
		movem.l	(a7)+,d2/a2-a6
		rts

;##########################################################################

	INCDIR	Sources:
	INCLUDE	files.i
		LoadFileMsg
		SaveFileMsg

;##########################################################################

_dosname	dc.b	"dos.library",0
_disk		dc.b	"disk.1",0
_sg		dc.b	"A",0
	EVEN

;##########################################################################

	END

 