$! ------------------ CUT HERE ----------------------- $ v='f$verify(f$trnlnm("SHARE_VERIFY"))' $! $! This archive created by VMS_SHARE Version 7.2-007 22-FEB-1990 $! On 30-MAY-1992 23:54:52.59 By user MASLIB $! $! This VMS_SHARE Written by: $! Andy Harper, Kings College London UK $! $! Acknowledgements to: $! James Gray - Original VMS_SHARE $! Michael Bednarek - Original Concept and implementation $! $!+ THIS PACKAGE DISTRIBUTED IN 12 PARTS, TO KEEP EACH PART $! BELOW 30 BLOCKS $! $! TO UNPACK THIS SHARE FILE, CONCATENATE ALL PARTS IN ORDER $! AND EXECUTE AS A COMMAND PROCEDURE ( @name ) $! $! THE FOLLOWING FILE(S) WILL BE CREATED AFTER UNPACKING: $! 1. EMPIRE.DOC;1 $! 2. EMPIRE.FOR;1 $! 3. EMPIRE.INC;1 $! $set="set" $set symbol/scope=(nolocal,noglobal) $f=f$parse("SHARE_TEMP","SYS$SCRATCH:.TMP_"+f$getjpi("","PID")) $e="write sys$error ""%UNPACK"", " $w="write sys$output ""%UNPACK"", " $ if f$trnlnm("SHARE_LOG") then $ w = "!" $ ve=f$getsyi("version") $ if ve-f$extract(0,1,ve) .ges. "4.4" then $ goto START $ e "-E-OLDVER, Must run at least VMS 4.4" $ v=f$verify(v) $ exit 44 $UNPACK: SUBROUTINE ! P1=filename, P2=checksum $ if f$search(P1) .eqs. "" then $ goto file_absent $ e "-W-EXISTS, File ''P1' exists. Skipped." $ delete 'f'* $ exit $file_absent: $ if f$parse(P1) .nes. "" then $ goto dirok $ dn=f$parse(P1,,,"DIRECTORY") $ w "-I-CREDIR, Creating directory ''dn'." $ create/dir 'dn' $ if $status then $ goto dirok $ e "-E-CREDIRFAIL, Unable to create ''dn'. File skipped." $ delete 'f'* $ exit $dirok: $ w "-I-PROCESS, Processing file ''P1'." $ if .not. f$verify() then $ define/user sys$output nl: $ EDIT/TPU/NOSEC/NODIS/COM=SYS$INPUT 'f'/OUT='P1' PROCEDURE Unpacker ON_ERROR ENDON_ERROR;SET(FACILITY_NAME,"UNPACK");SET( SUCCESS,OFF);SET(INFORMATIONAL,OFF);f:=GET_INFO(COMMAND_LINE,"file_name");b:= CREATE_BUFFER(f,f);p:=SPAN(" ")@r&LINE_END;POSITION(BEGINNING_OF(b)); LOOP EXITIF SEARCH(p,FORWARD)=0;POSITION(r);ERASE(r);ENDLOOP;POSITION( BEGINNING_OF(b));g:=0;LOOP EXITIF MARK(NONE)=END_OF(b);x:=ERASE_CHARACTER(1); IF g=0 THEN IF x="X" THEN MOVE_VERTICAL(1);ENDIF;IF x="V" THEN APPEND_LINE; MOVE_HORIZONTAL(-CURRENT_OFFSET);MOVE_VERTICAL(1);ENDIF;IF x="+" THEN g:=1; ERASE_LINE;ENDIF;ELSE IF x="-" THEN IF INDEX(CURRENT_LINE,"+-+-+-+-+-+-+-+")= 1 THEN g:=0;ENDIF;ENDIF;ERASE_LINE;ENDIF;ENDLOOP;t:="0123456789ABCDEF"; POSITION(BEGINNING_OF(b));LOOP r:=SEARCH("`",FORWARD);EXITIF r=0;POSITION(r); ERASE(r);x1:=INDEX(t,ERASE_CHARACTER(1))-1;x2:=INDEX(t,ERASE_CHARACTER(1))-1; COPY_TEXT(ASCII(16*x1+x2));ENDLOOP;WRITE_FILE(b,GET_INFO(COMMAND_LINE, "output_file"));ENDPROCEDURE;Unpacker;QUIT; $ delete/nolog 'f'* $ CHECKSUM 'P1' $ IF CHECKSUM$CHECKSUM .eqs. P2 THEN $ EXIT $ e "-E-CHKSMFAIL, Checksum of ''P1' failed." $ ENDSUBROUTINE $START: $ create 'f' X X X X EMPIRE X THE WARGAME OF THE CENTURY X Version 5.0 X X X EMPIRE is a simulation of a full-scale war between two emperors, the Xcomputer and you. Naturally, there is only room for one, so the object of Xthe game is to destroy the other. The computer plays by the same rules Xthat you do. X X There are several changes from earlier versions. A differences section Xis included at the end of these instructions for those who have played Xbefore under versions 3.xx or 4.xx. X X The map is a rectangle 600*1000 miles on a side. The resolution is 10, Xso the map you see is 60*100. The map consists of sea='.', land='+', XUncontrolled cities='*', Computer-controlled cities='X', and Your dominated Xcities='O'. Each emperor gets 1 move per round (1 round=1 day), moves are Xdone sequentially. X X The map is displayed on the player's screen during movement. Each piece Xis represented by a unique character on the map. With a few exceptions, Xyou can only have ONE piece on a given location. On the map, you are shown Xonly the 8 squares adjacent to your units. This information is updated Xbefore and after every move. The map displays the most recent information Xknown. X X The game starts by assigning you one city and the computer one city. XCities can produce new units. Every city that you own produces more pieces Xfor you according to the cost of the desired unit. The typical play of the Xgame is to issue the Automove command until you decide to do something Xspecial. During movement in each round, the player is prompted to move Xeach piece that does not otherwise have an assigned function. If you want Xto start a new game, any earlier EMSAVE.DAT files must be deleted to avoid Xcontinuing the earlier game. Experienced players will find difficulty Xlevel 8 and 9 games the most challenging. Difficulty level 10 games are Xnot reliablably challenging. X X Map coordinates are 4-digit numbers. the first two digits are the row, Xthe second two digits are the column. X X The pieces are as follows: X`20 XPiece Yours Enemy Moves Hits Cost X`20 XARMY A a 1 1 5(6) XFIGHTER F f 4 1 10(12) XDESTROYER D d 2 3 20(24) XSUBMARINE S s 2 2 25(30) XTROOP TRANSPORT T t 2 3 30(36) XCRUISER R r 2 8 50(60) XAIRCRAFT CARRIER C c 2 8 60(72) XBATTLESHIP B b 2 12 75(90) X`20 X`0C XEMPIRE Playing Instructions Page 2 X X X The second column shows the map representation for your units. X The third shows the representations of enemy units. X Moves is the number of squares that unit can move in a single round. X Hits is the amount of damage a unit can take before it is destroyed. X Cost is the number of rounds needed to produce another of the same unit. X The number in parenthesis is the cost for a city to produce the 1st unit. X`0C XEMPIRE Playing Instructions Page 3 X X X1.0 `20 X XDESCRIPTION OF THE PIECES XArmy: Armies move only on land. ONLY ARMIES CAN CAPTURE CITIES. They X have a 50% probability of doing so. Attacking one's own cities X results in the army's destruction. Armies can be carried by X troop transports. Just move the army on the transport and when X the transport moves the army moves with it. You cannot attack X any ships with armies while on board a transport. YOU CANNOT X MOVE BACK INTO YOUR OWN CITIES WITH AN ARMY unless there is a X transport in that city. X XFighter: Fighters move over sea or land. They move 4 times per round. X They are refueled at controlled cities and carriers. They are X shot down over uncontrolled cities. They have a max range of 20 X spaces. X XShips, general: All ships can move only on the sea. They move two times X per round. Ships can also dock in a controlled city. Docked X ships have damage repaired at rate of 1 hit per day. If a ship X is hit badly, it will slow to 1 move per round. X XDestroyer: Typical ship, quickest to produce. X XSubmarine: When a submarine scores a hit, 3 hits are exacted instead of X the usual 1 from the enemy unit. This is the only unit having X this property. X XTroop Transport: Troop Transports are the only units that can carry X armies. They can carry a maximum of 2 * (the number of hits X left) of armies. Armies that cannot be carried will drown when X the ship tries to move. X XCruisers: Typical large ship. X XAircraft Carriers: Carriers are the only ships that can carry fighters. X Carriers carry a maximum of the number of hits left of fighters. X XBattleship: Typical mongo ship. X`0C XEMPIRE Playing Instructions Page 4 X X X2.0 `20 X X FUNCTIONS TO WHICH YOU CAN ASSIGN YOUR PIECES X X Other than just moving your pieces you can assign them the following Xautomatic functions: X Xawake: cancel current automatic function and return to manual moves. You X will be prompted for the piece movement. X Xsentry: stay put, do not ask the player to move the piece, wake up if an X enemy piece comes within sensor range. X Xdirection: move in specified direction, wake up if an enemy piece, enemy X city, or unoccupied city is encountered. Temporary wake up if an X obstacle is in path of movement, after getting a manual move from X you, THE UNIT IS STILL ASSIGNED A DIRECTION. A direction X assignment is represented by the key which sets that direction X (e.g.: D means east). X Xmove: move towards location assigned to the piece (in editing mode). Wake X up if enemy piece is encountered. Wake up temporarily if X obstacle is in path of movement. Represented by the coordinate X the piece is moving toward. X Xfill: (troop transports and aircraft carriers only) go on sentry duty X until full to capacity of armies or fighters. X Xrandom: (for armies only) move at random subject to the following X conditions: If an uncontrolled city is adjacent, attack it. If X an enemy unit is adjacent, attack it (even if it is a ship). If X an unfilled troop transport of yours is adjacent, get on it and X wake up. Move if possible without attacking any of your own X units. It will not destroy itself unless it is in a city X surrounded by your units. X`0C XEMPIRE Playing Instructions Page 5 X X X3.0 `20 X X ORDERS MODE XThe top level prompt is: Your Orders? X`20 XThis is asked between each round (if you are not in Auto move mode). XThe following commands are valid at this time: X X A: Auto move. Begin movement, stay there until 'O' in move mode cancels X the auto move. X X C: Give the computer a free move. X X G: Toggle GIGI color graphics display mode. Issuing this command without X a GIGI terminal produces useless output. X X H: Display the Help screen. Contains a brief description of all the X commands. X X J: Puts you into Editing Mode (explained later), where you can examine X and/or change the functions associated with your pieces and cities. X X M: Move. Cause a round to be played by you and the computer. X X N: Give the computer the number of free moves you specify. If you are X playing a difficulty 8 or 9 game, you will probably not want to use X this command. X X P: Re-display current sector on screen. X X Q: Quit current session. Respond with a 'Y' if you really want to quit. X The game file is saved in the file EMSAVE.DAT and can be restarted at X a later time. X X R: Display the round number. X X S: Clears the screen. X X T: Request a printout of the entire map. You must supply a file spec for X where you want the map put. X X V: Toggle VT125 color/shaded graphics display mode. Issuing this command X without a VT125 terminal produces useless output. X`0C XEMPIRE Playing Instructions Page 6 X X X4.0 `20 X X MOVEMENT MODE X XTo simply move a piece, type one of the following keys; X X QWE X A D X ZXC X XThese keys move in the direction of the key from S. The characters are`20 Xnot echoed and only 1 character is accepted, so no need for a . XHit the SPACE BAR if you want the piece to stay put. X XOther commands are: X XG: fill: put the troop transport (or aircraft carrier) to sleep until it X accumulates 6 armies (or 8 fighters), then wake it up. If the ship is X damaged, the ship will wake up when it has all it can take. X`20 XH: display Help text (hit any character to continue moving) X XI: set unit to moving in a direction specified by the next character X typed in, i.e. QWE X A D X ZXC X XJ: enter Editing Mode X XK: wake up piece. If piece is a troop transport or carrier, all armies X or fighters on board are also woken up. X XL: set fighter path for city to be the direction following the 'L'. X XO: cancel auto move. At the end of the round, Orders Mode will prompt. X Doesn't affect current piece. X XP: refresh the screen X XR: if it's an army, set it to moving at random. X XS: put on sentry duty. X XU: set a fighter to land at the closest carier or city. Useful to return X fighters to bases when half the fuel is left. X X?: display information about the piece or city. Shows the function, hits lef Vt, X range and number of armies or fighters aboard. X XATTACKING something is accomplished by moving onto the square of the unit Xyou wish to attack. Hits are traded off at 50% probability of a hit Xlanding on one or the other units until one unit is TOTALLY destroyed. XThere is only 1 possible winner. X`0C XEMPIRE Playing Instructions Page 7 X X XNOTES: X X If you give a piece a direction or move function, they will wake XTEMPORARILY if they run into an obstacle (or enemy). You must explicitly Xwake the piece to regain complete control or assign it a new function. X X Fighters moving under the command of a function will wake up when they Xhave 10 rounds of fuel left. This is to enable you to decide whether you Xwant to make it kamikaze or send it back to a city for refueling. X X You are "allowed" to do FATAL things like, attack your own cities or Xother pieces. If you try to do fatal move that involve terrain Xrestrictions, like, drive armys into the sea and ships into land, you are Xgiven a chance to reconsider. Answer with an 'Y' if you want to commit Xsuicide. You cannot move onto the edge of the world. X`0C XEMPIRE Playing Instructions Page 8 X X X5.0 `20 X X EDITING MODE XEditing mode allows you to move around the 'world' and check on things. XYou can assign and deassign movements and inquire on the production of Xcities. X XTo move the cursor around, use the standard direction keys. X`20 X QWE X A D X ZXC X`20 XOther commands are: +-+-+-+-+-+-+-+- END OF PART 1 +-+-+-+-+-+-+-+-