mirror of
https://github.com/historicalsource/sorcerer
synced 2024-06-26 03:51:00 +03:00
27 lines
800 B
Plaintext
27 lines
800 B
Plaintext
|
|
;COMPARISON OF SS:<Z6>MAGIC.ZIL.417 AND SS:<Z6>MAGIC.ZIL.418
|
|
;OPTIONS ARE /3
|
|
|
|
**** FILE SS:<Z6>MAGIC.ZIL.417, 1-469 (12147)
|
|
<ROUTINE FORGET-SPELL ("AUX" SPL F TBL (NUM 0) (SP <>))
|
|
**** FILE SS:<Z6>MAGIC.ZIL.418, 1-469 (12147)
|
|
<ROUTINE FORGET-SPELL ("AUX" F TBL (NUM 0) (SP <>))
|
|
***************
|
|
|
|
**** FILE SS:<Z6>MAGIC.ZIL.417, 1-480 (12457)
|
|
<COND (<ZERO? .NUM> <RTRUE>)
|
|
(<EQUAL? .NUM 1>
|
|
<PUTP .SP ,P?COUNT <- .NUM 1>>
|
|
<RTRUE>)>
|
|
<PUT ,FORGET-TBL 0 .NUM>
|
|
<SET SPL <RANDOM-ELEMENT ,FORGET-TBL>>
|
|
<PUTP .SPL ,P?COUNT <- <GETP .SPL ,P?COUNT> 1>>>
|
|
**** FILE SS:<Z6>MAGIC.ZIL.418, 1-480 (12453)
|
|
<COND (<ZERO? .NUM> <RTRUE>)>
|
|
<COND (<G? .NUM 1>
|
|
<PUT ,FORGET-TBL 0 .NUM>
|
|
<SET SP <RANDOM-ELEMENT ,FORGET-TBL>>)>
|
|
<PUTP .SP ,P?COUNT <- <GETP .SP ,P?COUNT> 1>>>
|
|
***************
|
|
|