home *** CD-ROM | disk | FTP | other *** search
/ ftp.ee.pdx.edu / 2014.02.ftp.ee.pdx.edu.tar / ftp.ee.pdx.edu / pub / frp / char-sheets / paranoia.ps < prev    next >
Text File  |  1991-10-13  |  16KB  |  666 lines
  1. Ok.  Here it is.  I THINK I fixed all the bugs in it.  It's divided into
  2. three files that need to be "cat"'ed together before being sent to the
  3. printer; that is:
  4.  
  5. $ cat <file1> <file2> <file3> | lpr -opost ... (or whatever)
  6.  
  7. The second file is the actual character data.  You need to manually
  8. do this for each character, but it's not a big deal.  It'll figure out
  9. the skill bases for you (2nd ed rules).
  10.  
  11. Enjoy!
  12.   ____
  13.  /|\ |  Scott H. Novack     (Captain Napalm)    | scottn@cs.columbia.edu
  14.  \|_\|  "Art is not nice." -- Sting as Mac the  | Columbia U. CS Dept.
  15.       \  Knife in "Three Penny Opera"        | New York, NY
  16. \_____/ Disclaimer: Oh Lord, please don't let me be misunderstood.
  17.  
  18. -------------------file 1, 1st page of char sheet-----------------------
  19.  
  20. /FONT
  21. {exch findfont exch scalefont setfont} def
  22.  
  23. /centershow     % show string centered at arguments x, y
  24. {dup stringwidth pop
  25. 0 exch sub 2 div
  26. 0 rmoveto
  27. show} def
  28.  
  29. /showWithVertLine       % 3 arguments: ht of vert line, end of line, string
  30. {currentpoint 3 -1 roll .002 in 0 3 -1 roll ashow
  31. exch 3 -1 roll add exch lineto
  32. 0 exch rlineto stroke} def
  33.  
  34. /showWithLine   % 2 arguments: end of line, string
  35. {currentpoint 3 -1 roll
  36. show
  37. exch 3 -1 roll add exch
  38. lineto stroke} def
  39.  
  40. /lineShow       % show with line
  41. {gsave
  42. 0.5 setlinewidth
  43. 0.05 in exch 3 -1 roll showWithVertLine
  44. grestore} def
  45.  
  46. /in             % inch->point converter
  47. {72 mul} def
  48.  
  49. /ret            % carriage return
  50. {0 -0.222 in rmoveto} def
  51.  
  52. /LM             % left margin
  53. {.125 in} def
  54.  
  55. /RM             % right margin
  56. {7.4 in} def
  57.  
  58. /border         % border of sheet
  59. {newpath
  60. LM .72 in moveto
  61. LM 10.55 in lineto
  62. RM 10.55 in lineto
  63. RM .72 in lineto
  64. closepath stroke} def
  65.  
  66. /topline        % thick top line of sheet
  67. {LM .01 in sub 10.58 in moveto
  68. RM .01 in add 10.58 in lineto
  69. stroke} def
  70.  
  71. /divisions1     % section division lines, page 1
  72. {LM 10 in moveto        % bottom of top header
  73. RM 10 in lineto
  74. LM 9.15 in moveto       % bottom of "Name" area
  75. RM 9.15 in lineto
  76. LM 6.72 in moveto       % top of skills area
  77. RM 6.72 in lineto
  78. 3.35 in 6.72 in moveto  % division next to attribute area
  79. 3.35 in 9.15 in lineto
  80. 3.35 in 7.29 in moveto  % division for Armor area
  81. RM 7.29 in lineto
  82. stroke} def
  83.  
  84. /divisions2
  85. {LM 9.705 in moveto
  86. RM 9.705 in lineto
  87. 1.455 in 8.265 in moveto
  88. 1.455 in 5.76 in lineto
  89. 2.91 in 8.265 in moveto
  90. 2.91 in 5.76 in lineto
  91. LM 5.76 in moveto
  92. RM 5.76 in lineto
  93. stroke} def
  94.  
  95. /Sheet          % "PARANOIA Character Sheet" header
  96. {newpath
  97. LM 10 in moveto
  98. RM 10 in lineto
  99. RM 10.55 in lineto
  100. LM 10.55 in lineto
  101. closepath
  102. gsave
  103. 0.85 setgray fill
  104.  
  105. /Helvetica-BoldOblique 24 FONT
  106. 0 setgray
  107. 3.75 in 10.17 in moveto
  108. (PARANOIA Character Sheet) centershow
  109. grestore} def
  110.  
  111. /Secret         % "PARANOIA (Secret Stuff)" header
  112. {newpath
  113. LM 9.705 in moveto
  114. RM 9.705 in lineto
  115. RM 10.55 in lineto
  116. LM 10.55 in lineto
  117. closepath
  118. gsave
  119. 0.85 setgray fill
  120.  
  121. /Helvetica-BoldOblique 24 FONT
  122. 0 setgray
  123. 3.75 in 10.2 in moveto
  124. (PARANOIA Character Sheet) centershow
  125. 3.75 in 9.85 in moveto
  126. ((Secret Stuff)) centershow
  127. grestore} def
  128.  
  129. /Attrib         % "Attributes" header
  130. {newpath
  131. LM 8.855 in moveto
  132. 3.35 in 8.855 in lineto
  133. 3.35 in 9.15 in lineto
  134. LM 9.15 in lineto
  135. closepath
  136. gsave
  137. 0 setgray fill
  138.  
  139. /Helvetica-BoldOblique 16 FONT
  140. 1 setgray
  141. 1.75 in 8.92 in moveto
  142. (Attributes) centershow
  143. grestore} def
  144.  
  145. /Etc
  146. {newpath
  147. LM 8.56 in moveto
  148. RM 8.56 in lineto
  149. RM 8.265 in lineto
  150. LM 8.265 in lineto
  151. closepath
  152. gsave
  153. 0 setgray fill
  154.  
  155. /Helvetica-BoldOblique 12 FONT
  156. 1 setgray
  157. 0.7275 in 8.325 in moveto
  158. (Damage Status) centershow
  159. 2.1825 in 8.325 in moveto
  160. (Credits) centershow
  161. 5.0925 in 8.325 in moveto
  162. (Personal Equipment) centershow
  163. grestore} def
  164.  
  165. /Skills         % "Skills" header
  166. {newpath
  167. LM 6.425 in moveto
  168. RM 6.425 in lineto
  169. RM 6.72 in lineto
  170. LM 6.72 in lineto
  171. closepath
  172. gsave
  173. 0 setgray fill
  174.  
  175. /Helvetica-BoldOblique 16 FONT
  176. 1 setgray
  177. 3.75 in 6.49 in moveto
  178. (Skills) centershow
  179. grestore} def
  180.  
  181. /Notes
  182. {newpath
  183. LM 5.76 in moveto
  184. RM 5.76 in lineto
  185. RM 5.465 in lineto
  186. LM 5.465 in lineto
  187. closepath
  188. gsave
  189. 0 setgray fill
  190.  
  191. /Helvetica-BoldOblique 16 FONT
  192. 1 setgray
  193. 3.75 in 5.53 in moveto
  194. (Notes) centershow
  195. grestore} def
  196.  
  197. /DexSkills                      % Dexterity Skills
  198. {2.8 in 5.77 in moveto
  199. (Energy Weapons) 2 in lineShow ret
  200. (Field Weapons) 2 in lineShow ret
  201. (Laser Weapons) 2 in lineShow ret
  202. (Primitive Missile Weapons) 2 in lineShow ret
  203. (Projectile Weapons) 2 in lineShow ret
  204. (Vehicle Aimed Weapons) 2 in lineShow ret
  205. (Vehicle Field Weapons) 2 in lineShow ret
  206. (Vehicle Launched Weapons) 2 in lineShow ret} def
  207.  
  208. /MechSkills                     % Mechanical Aptitude Skilss
  209. {2.8 in 3.55 in moveto
  210. (Autocar Op. & Maint.) 2 in lineShow ret
  211. (Copter Op. & Maint.) 2 in lineShow ret
  212. (Crawler Op. & Maint.) 2 in lineShow ret
  213. (Docbot Op. & Maint.) 2 in lineShow ret
  214. (Flybot Op. & Maint.) 2 in lineShow ret
  215. (Habitat Engineering) 2 in lineShow ret
  216. (Hover Op. & Maint.) 2 in lineShow ret
  217. (Jackobot Op. & Maint.) 2 in lineShow ret
  218. (Scrubot Op. & Maint.) 2 in lineShow ret
  219. (Transbot Op. & Maint.) 2 in lineShow ret
  220. (Vulturecraft Op. & Maint.) 2 in lineShow ret} def
  221.  
  222. /MoxieSkills                    % Moxie Skills
  223. {5.1 in 5.77 in moveto
  224. (Biochemical Therapy) 2 in lineShow ret
  225. (Biosciences) 2 in lineShow ret
  226. (Chemical Engineering) 2 in lineShow ret
  227. (Data Analysis) 2 in lineShow ret
  228. (Data Search) 2 in lineShow ret
  229. (Demolition) 2 in lineShow ret
  230. (Electronic Engineering) 2 in lineShow ret
  231. (Mechanical Engineering) 2 in lineShow ret
  232. (Medical) 2 in lineShow ret
  233. (Nuclear Engineering) 2 in lineShow ret
  234. (Security) 2 in lineShow ret
  235. (Stealth) 2 in lineShow ret
  236. (Surveillance) 2 in lineShow ret
  237. (Survival) 2 in lineShow ret} def
  238.  
  239. /AgilitySkills                  % Agility skills
  240. {0.5 in 5.77 in moveto
  241. (Force Sword) 2 in lineShow ret
  242. (Grenade) 2 in lineShow ret
  243. (Neurowhip) 2 in lineShow ret
  244. (Primitive Melee Weapons) 2 in lineShow ret
  245. (Truncheon) 2 in lineShow ret
  246. (Unarmed) 2 in lineShow ret} def
  247.  
  248. /ChutzSkills                    % Chutzpah skills
  249. {0.5 in 3.994 in moveto
  250. (Bootlicking) 2 in lineShow ret
  251. (Bribery) 2 in lineShow ret
  252. (Con) 2 in lineShow ret
  253. (Fast Talk) 2 in lineShow ret
  254. (Forgery) 2 in lineShow ret
  255. (Interrogation) 2 in lineShow ret
  256. (Intimidation) 2 in lineShow ret
  257. (Motivation) 2 in lineShow ret
  258. (Oratory) 2 in lineShow ret
  259. (Psychescan) 2 in lineShow ret
  260. (Spurious Logic) 2 in lineShow ret} def
  261.  
  262. /Stats                          % Character Statistics
  263. {/Helvetica 8.5 FONT
  264. LM .16 in add 8.65 in moveto
  265. (Strength) 1.2 in lineShow ret ret
  266. (Endurance) 1.2 in lineShow ret
  267. (Agility) 1.2 in lineShow ret
  268. (Dexterity) 1.2 in lineShow ret
  269. (Moxie) 1.2 in lineShow ret
  270. (Chutzpah) 1.2 in lineShow ret
  271. (Mechanical Apt.) 1.2 in lineShow ret
  272. (Power) 1.2 in lineShow ret} def
  273.  
  274. /Secondary                      % Secondary attributes
  275. {/Helvetica-Oblique 8.5 FONT
  276. LM .16 in add 1.4 in add 8.65 in moveto
  277. (Carrying Capacity) 1.4 in lineShow ret
  278. (Damage Bonus) 1.4 in lineShow ret
  279. (Macho Bonus) 1.4 in lineShow ret
  280. (Agility Skill Base) 1.4 in lineShow ret
  281. (Dexterity Skill Base) 1.4 in lineShow ret
  282. (Moxie Skill Base) 1.4 in lineShow ret
  283. (Chutzpah Skill Base) 1.4 in lineShow ret
  284. (Mech. Skill Base) 1.4 in lineShow ret} def
  285.  
  286. /TopInfo1       % Information in area above attribute area
  287. {/Helvetica-Bold 8.5 FONT
  288. LM .16 in add 9.32 in moveto
  289. (Security Clearance:) show
  290. 0.25 setlinewidth
  291. LM .16 in add 9.64 in moveto
  292. 3.3 in (Name) showWithLine
  293. 3.8 in 9.64 in moveto
  294. 3.3 in (Player) showWithLine
  295. 3.8 in 9.32 in moveto
  296. 3.3 in (Service Group) showWithLine
  297. RoyGBiv} def
  298.  
  299. /RoyGBiv        % for printing security clearances
  300. {/Helvetica 8.8 FONT
  301. 1.45 in 9.32 in moveto
  302. 8 0 8#040 ((IR) R O Y G B I V (UV)) widthshow} def
  303.  
  304. /TopInfo2       % Information in area above attribute area
  305. {/Helvetica-Bold 8.5 FONT
  306. 0.25 setlinewidth
  307. LM .16 in add 9.345 in moveto
  308. 3.4 in (Name) showWithLine
  309. LM .16 in add 9.025 in moveto
  310. 3.4 in (Secret Society) showWithLine
  311. 3.8 in 9.345 in moveto
  312. 3.4 in (Player) showWithLine
  313. 3.8 in 9.025 in moveto
  314. 3.4 in (Degree) showWithLine
  315. LM .16 in add 8.705 in moveto
  316. 7.015 in (Mutant Power) showWithLine} def
  317.  
  318. /Copyright      % copyright notice
  319. {/Helvetica-BoldOblique 5.7 FONT
  320. LM .72 in 9 sub moveto
  321. (Copyright     1987, West End Games, Inc.  Permission granted to photocopy for personal use --- The Computer is your friend.) show
  322. /Symbol 5.7 FONT
  323. LM (Copyright ) stringwidth pop add .72 in 9 sub moveto
  324. (\343) show
  325. /Helvetica-BoldOblique 5.7 FONT
  326. LM .72 in 20 sub moveto
  327. (PostScript version by Novack Productions Ltd. 1988) show} def
  328.  
  329. /TriLine        % draws the 3 piece line.  3 args: items, startx, starty
  330. {1.5 setlinewidth
  331. moveto
  332. 0.222 in mul 0 exch rlineto
  333. 2.11 in 0 rlineto
  334. 0 0.11 in rlineto stroke} def
  335.  
  336. /SkillBase      % 4 args: str, # items, x, y.  Draws lines and Skill Base string
  337. {/starty exch def /startx exch def /items exch def
  338. startx items 0.222 in mul starty 0.06 in add add moveto show
  339. items startx starty TriLine} def
  340.  
  341. /FiveLines
  342. {/lngth exch def
  343. 5
  344. {lngth 0 rlineto
  345. lngth -1 mul -0.2775 in rmoveto} repeat
  346. stroke} def
  347.  
  348. /Weapons
  349. {/Helvetica-Bold 8 FONT
  350. gsave
  351. 0.25 setlinewidth
  352. 4 in 8.855 in moveto
  353. (Weapon) centershow
  354. 3.515 in 8.585 in moveto
  355. 0.97 in FiveLines
  356.  
  357. 4.85 in 8.855 in 10 add moveto
  358. (Skill) centershow
  359. 4.85 in 8.855 in moveto
  360. (Number) centershow
  361. 4.65 in 8.585 in moveto
  362. 0.4 in FiveLines
  363.  
  364. 5.39 in 8.855 in moveto
  365. (Type) centershow
  366. 5.215 in 8.585 in moveto
  367. 0.32 in FiveLines
  368.  
  369. 5.865 in 8.855 in 10 add moveto
  370. (Damage) centershow
  371. 5.865 in 8.855 in moveto
  372. (Rating) centershow
  373. 5.665 in 8.585 in moveto
  374. 0.4 in FiveLines
  375.  
  376. 6.36 in 8.855 in moveto
  377. (Range) centershow
  378. 6.2 in 8.585 in moveto
  379. 0.32 in FiveLines
  380.  
  381. 6.855 in 8.855 in 10 add moveto
  382. (Experi-) centershow
  383. 6.855 in 8.855 in moveto
  384. (mental?) centershow
  385. 6.655 in 8.585 in moveto
  386. 0.4 in FiveLines
  387.  
  388. grestore} def
  389.  
  390. /Armor
  391. {/Helvetica-Bold 8 FONT
  392. gsave
  393. /down1 8.585 in -0.2775 in 6 mul -.05 in add add def
  394. /down2 8.585 in -0.2775 in 5 mul -.05 in add add def
  395. 0.25 setlinewidth
  396. 3.515 in down1 moveto
  397. 0.97 in 0 rlineto stroke
  398. 4 in down2 moveto
  399. (Armor) centershow
  400.  
  401. 4.65 in down1 moveto
  402. 0.97 in 0 rlineto stroke
  403. 5.135 in down2 moveto
  404. (Rating) centershow
  405.  
  406. grestore} def
  407.  
  408. /Equipment
  409. {2.91 in .16 in add 8.043 in dup /ht exch def moveto
  410. 11 {RM .16 in sub ht lineto
  411. 2.91 in .16 in add ht 0.222 in sub dup /ht exch def moveto} repeat
  412. stroke} def
  413.  
  414. /AllSkillBases
  415. {/Helvetica-BoldOblique 9 FONT
  416. (Dexterity Skill Base:) 8 2.69 in 4.216 in SkillBase
  417. (Mechanical Skill Base:) 11 2.69 in 1.33 in SkillBase
  418. (Agility Skill Base:) 6 0.39 in 4.66 in SkillBase
  419. (Chutzpah Skill Base:) 11 0.39 in 1.774 in SkillBase
  420. (Moxie Skill Base:) 14 4.99 in 2.884 in SkillBase} def
  421.  
  422. /AllSkills
  423. {/Helvetica 8.5 FONT
  424. AgilitySkills
  425. ChutzSkills
  426. DexSkills
  427. MechSkills
  428. MoxieSkills} def
  429.  
  430. /AllAttributes
  431. {Stats
  432. Secondary} def
  433.  
  434. %
  435. % main program
  436. %
  437.  
  438. .25 in 0 translate              % move over a bit
  439. 0 setgray                       % color is black
  440. Sheet Attrib Skills             % draw the headers
  441. 0.75 setlinewidth border divisions1     % border and divisions at width 1
  442. 4 setlinewidth topline          % thick line at top at width 4
  443.  
  444. TopInfo1
  445.  
  446. AllSkillBases
  447. AllSkills
  448. AllAttributes
  449. Weapons
  450. Armor
  451.  
  452. Copyright
  453.  
  454. %showpage        This is commented out.  Do not uncomment.
  455.  
  456. /initarray
  457. {dup length /len exch def
  458. len {0} repeat len 1 add -1 roll astore clear} def
  459.  
  460. /skillpts 5 array def
  461. /agpts 6 array def agpts initarray
  462. /dexpts 8 array def dexpts initarray
  463. /moxpts 14 array def moxpts initarray
  464. /chupts 11 array def chupts initarray
  465. /mechpts 11 array def mechpts initarray
  466. agpts dexpts moxpts chupts mechpts skillpts astore 
  467. clear
  468.  
  469. ------------------2nd file (example)--------------------------
  470.  
  471. (David-R-URK) (R) (David Urk) (CPU)
  472. (Death Leopard) (Pyrokinesis)
  473.  
  474. 16      %Str
  475. 4       %End
  476. 11      %Agi
  477. 12      %Dex
  478. 3       %Mox
  479. 16      %Chu
  480. 20      %Mec
  481. 7       %Power
  482.  
  483. %SKILLS
  484. % The last line is the number of skills adding points to.
  485. % Each skill should be prefaced with the skill type number:
  486. %       0 - Agility, 1 - Dex, 2 - Moxie, 3 - Chutzpah, 4 - Mech
  487. % and ended with the number of the skill under the type
  488. % and the number of points investing.
  489. % (i.e. "1 3 6" to add 6 pts to the Dex skill of Laser Weapons)
  490. %
  491. %Type   Skill   Pts     Comment
  492.  
  493. 1       3       6       %Laser
  494. 1       6       3       %V Aimed Weap.
  495. 1       8       3       %V Launch Weap.
  496. 2       2       3       %BioSci
  497. 3       1       3       %Bootlicking
  498. 3       5       3       %Forgery
  499. 3       6       6       %Interrogation
  500. 4       1       3       %Autocar
  501. %-----------------
  502. %Total          30
  503.  
  504. 8
  505.  
  506. %WEAPONS for weapon area.  The last line is number of weapons
  507. %Weapon        Skill    Type    Damage    Exper?
  508. %---------------------------------------------
  509. (Laser Pistol)     (9)     (L)    (8)    (N)
  510. (Stun Gun)    (3)    (E)    (---)    (N)
  511. (Grenade)    (2)    (P)    (8)    (N)
  512.  
  513. 3
  514.  
  515. %ARMOR
  516. %Armor        Rating
  517. %---------------------
  518. (Reflec)    (L4)
  519.  
  520. %Character done
  521. %It's a good idea to put the character's equipment and background under
  522. %here.  All commented like this, of course
  523.  
  524. -------------------------------3rd and last file-----------------------
  525.  
  526. /stat 8 array def 
  527. /str 40 string def
  528. /top 6 array def
  529. /weap 6 array def
  530. /item1 5 array def
  531. /item2 5 array def
  532. /item3 5 array def
  533. /item4 5 array def
  534. /item5 5 array def
  535. /arm 2 array def
  536.  
  537. arm astore pop
  538. item1 item2 item3 item4 item5 weap astore pop
  539. weap 0 get -1 1 {weap exch get astore pop} for
  540. {exch 3 -1 roll skillpts exch get exch 1 sub 3 -1 roll put} repeat
  541. 7 -1 0 {stat exch 3 -1 roll put} for
  542. 5 -1 0 {top exch 3 -1 roll put} for
  543.  
  544. /colors 7 array def
  545. /cc 9 array def
  546. /bonus 20 array def
  547. /base 20 array def
  548. /pcbases 5 array def
  549.  
  550. 25 5 65 {} for cc astore clear
  551. 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 2 2 bonus astore clear
  552. 0 0 0 1 1 1 2 2 2 2 3 3 3 3 4 4 4 5 5 5 base astore clear
  553. 2 1 6 {base stat 3 -1 roll get 1 sub get} for pcbases astore clear
  554. (R) (O) (Y) (G) (B) (I) (V) colors astore clear
  555.  
  556. /printbonus
  557. {gsave bonus stat 3 -1 roll get 1 sub get str cvs centershow grestore ret} def
  558.  
  559. /printclearance
  560. {0.25 setlinewidth
  561. LM 1.84 in add /tx -0.12 in def 9.36 in moveto
  562. 0 1 6 {top 1 get exch colors exch get eq
  563.         {currentpoint exch tx add exch .12 in 0 360 arc}
  564.         {0.2345 in 0 rmoveto} ifelse} for
  565. stroke} def
  566.  
  567. /printtop
  568. {LM 1.7 in add 9.66 in moveto
  569. top 0 get centershow
  570. 5.5 in 9.66 in moveto
  571. top 2 get centershow
  572. 5.5 in 9.34 in moveto
  573. top 3 get centershow
  574. printclearance} def
  575.  
  576. /printtop2
  577. {LM 1.7 in add 9.365 in moveto
  578. top 0 get centershow
  579. 5.5 in 9.365 in moveto
  580. top 2 get centershow
  581. LM 2.2 in add 9.045 in moveto
  582. top 4 get centershow
  583. 3.75 in 8.725 in moveto
  584. top 5 get centershow} def
  585.  
  586. /printsecond
  587. {LM 2.85 in add 8.67 in moveto
  588. gsave cc stat 0 get 12 le {0} {stat 0 get 12 sub} ifelse get
  589. str cvs centershow grestore ret
  590. 0 printbonus
  591. 1 printbonus
  592. 0 1 4 {gsave pcbases exch get str cvs centershow grestore ret} for} def
  593.  
  594. /printstat
  595. {LM 1.205 in add 8.67 in moveto
  596. gsave stat 0 get str cvs centershow grestore ret ret
  597. 1 1 7 {gsave stat exch get str cvs centershow grestore ret} for} def
  598.  
  599. /printarray
  600. {/Palatino-BoldItalic 16 FONT
  601. dup gsave pcbases exch get dup /keep exch def str cvs centershow grestore ret
  602. skillpts exch get
  603. dup 0 1 3 -1 roll length 1 sub {exch dup 3 -1 roll
  604. gsave /Palatino-BoldItalic 12 FONT
  605. get keep add str cvs centershow grestore ret} for
  606. pop} def
  607.  
  608. /printitem
  609. {/y exch def
  610. 6.855 in y moveto centershow
  611. 5.865 in y moveto centershow
  612. 5.39 in y moveto centershow
  613. 4.85 in y moveto centershow
  614. 4 in y moveto centershow} def
  615.  
  616. /printweap
  617. {/Helvetica 8.5 FONT
  618. 1 1 weap 0 get 
  619. {dup weap exch get aload pop
  620. 6 -1 roll 1 sub -0.2775 mul in 8.6 in add printitem} for
  621. } def
  622.  
  623. /printarm
  624. {/Helvetica 8.5 FONT
  625. arm aload pop
  626. 5.135 in 8.6 in -0.2775 in 6 mul add moveto centershow
  627. 4 in 8.6 in -0.2775 in 6 mul add moveto centershow
  628. } def
  629.  
  630. /printallskills
  631. {2.2 in 6.012 in moveto 0 printarray
  632. 4.5 in 6.012 in moveto 1 printarray
  633. 6.8 in 6.012 in moveto 2 printarray
  634. 2.2 in 4.236 in moveto 3 printarray
  635. 4.5 in 3.792 in moveto 4 printarray} def
  636.  
  637. /printItAll
  638. {/Palatino-BoldItalic 12 FONT
  639. 0 setgray
  640. printtop
  641. printstat
  642. printsecond
  643. printweap
  644. printarm
  645. printallskills} def
  646.  
  647. printItAll      %comment this line to not print info
  648.  
  649. showpage    %prints the first page
  650.  
  651. % prints secret stuff page
  652. 0.25 in 0 translate
  653. 0 setgray
  654. Secret Etc Notes
  655. 0.75 setlinewidth border divisions2
  656. 4 setlinewidth topline
  657.  
  658. 0 setgray
  659. TopInfo2
  660. Equipment
  661.  
  662. /Palatino-BoldItalic 12 FONT
  663. printtop2       % comment this line to not print info on pg 2
  664.  
  665. showpage    % prints the 2nd page
  666.