home *** CD-ROM | disk | FTP | other *** search
| MacBinary | 2002-08-21 | 11.8 KB | [TEXT/hscd] |
open in: 
MacOS 8.1
|
Win98
|
DOS
browse contents |
view JSON data
|
view as text
This file was processed as: MacBinary
(archive/macBinary).
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 10%
| dexvert
| MacBinary (archive/macBinary)
| fallback
| Supported |
| 1%
| dexvert
| Daikatana game data (other/daikatanaGameData)
| ext
| Unsupported |
| 1%
| dexvert
| Text File (text/txt)
| fallback
| Supported |
| 100%
| file
| MacBinary II, inited, Wed Aug 21 10:54:30 2002, modified Wed Aug 21 10:54:30 2002, creator 'hscd', type ASCII, 11447 bytes "SPELL.VSC" , at 0x2d37 286 bytes resource
| default (weak)
| |
| 99%
| file
| data
| default
| |
| 74%
| TrID
| Macintosh plain text (MacBinary)
| default
| |
| 25%
| TrID
| MacBinary 2
| default (weak)
| |
| 100%
| siegfried
| fmt/1762 MacBinary (II)
| default
| |
| 100%
| lsar
| MacBinary
| default
|
|
| id metadata |
|---|
| key | value |
|---|
| macFileType | [TEXT] |
| macFileCreator | [hscd] |
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 09 53 50 45 4c 4c 2e | 56 53 43 00 00 00 00 00 |..SPELL.|VSC.....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 68 73 63 | 64 01 00 00 00 00 c0 00 |.TEXThsc|d.......|
|00000050| 00 00 00 00 00 2c b7 00 | 00 01 1e b9 89 5a 26 b9 |.....,..|.....Z&.|
|00000060| 89 5a 26 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.Z&.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 1c 98 00 00 |........|........|
|00000080| 28 64 65 66 69 6e 65 20 | 28 73 70 65 6c 6c 2d 65 |(define |(spell-e|
|00000090| 76 65 6e 74 2d 63 61 72 | 64 62 6f 61 72 64 20 73 |vent-car|dboard s|
|000000a0| 65 73 73 69 6f 6e 20 63 | 61 72 64 29 0d 0a 20 20 |ession c|ard).. |
|000000b0| 28 6c 65 74 2a 20 28 28 | 70 6c 61 79 65 72 09 28 |(let* ((|player.(|
|000000c0| 63 75 72 72 65 6e 74 2d | 70 6c 61 79 65 72 20 73 |current-|player s|
|000000d0| 65 73 73 69 6f 6e 29 29 | 0d 0a 09 09 20 28 63 68 |ession))|.... (ch|
|000000e0| 61 72 61 63 74 65 72 20 | 28 63 75 72 72 65 6e 74 |aracter |(current|
|000000f0| 2d 63 68 61 72 61 63 74 | 65 72 20 70 6c 61 79 65 |-charact|er playe|
|00000100| 72 29 29 0d 0a 09 09 20 | 29 0d 0a 09 28 63 61 6c |r)).... |)...(cal|
|00000110| 6c 2d 70 72 6f 6d 70 74 | 20 22 3c 70 3e 49 63 68 |l-prompt| "<p>Ich|
|00000120| 20 62 69 6e 20 67 6c 75 | 65 6b 6c 69 63 68 2e 3c | bin glu|eklich.<|
|00000130| 2f 70 3e 22 29 0d 0a 09 | 29 0d 0a 20 20 29 0d 0a |/p>")...|).. )..|
|00000140| 0d 0a 28 64 65 66 69 6e | 65 20 28 73 70 65 6c 6c |..(defin|e (spell|
|00000150| 2d 65 76 65 6e 74 2d 65 | 78 63 68 61 6e 67 65 20 |-event-e|xchange |
|00000160| 73 65 73 73 69 6f 6e 20 | 63 61 72 64 29 0d 0a 20 |session |card).. |
|00000170| 20 28 6c 65 74 2a 20 28 | 28 70 6c 61 79 65 72 09 | (let* (|(player.|
|00000180| 28 63 75 72 72 65 6e 74 | 2d 70 6c 61 79 65 72 20 |(current|-player |
|00000190| 73 65 73 73 69 6f 6e 29 | 29 0d 0a 09 09 20 28 63 |session)|).... (c|
|000001a0| 68 61 72 61 63 74 65 72 | 20 28 63 75 72 72 65 6e |haracter| (curren|
|000001b0| 74 2d 63 68 61 72 61 63 | 74 65 72 20 70 6c 61 79 |t-charac|ter play|
|000001c0| 65 72 29 29 29 0d 0a 09 | 28 63 61 6c 6c 2d 63 61 |er)))...|(call-ca|
|000001d0| 70 74 69 6f 6e 20 22 3c | 70 3e 20 43 61 72 64 20 |ption "<|p> Card |
|000001e0| 61 75 73 74 61 75 73 63 | 68 65 6e 20 3c 2f 70 3e |austausc|hen </p>|
|000001f0| 22 29 0d 0a 09 28 63 6f | 6e 64 20 0d 0a 09 20 28 |")...(co|nd ... (|
|00000200| 28 3d 20 30 20 28 63 68 | 61 72 61 63 74 65 72 2d |(= 0 (ch|aracter-|
|00000210| 73 70 65 6c 6c 63 61 72 | 64 73 2d 6c 65 6e 67 74 |spellcar|ds-lengt|
|00000220| 68 20 63 68 61 72 61 63 | 74 65 72 29 29 0d 0a 09 |h charac|ter))...|
|00000230| 20 20 28 63 61 6c 6c 2d | 70 72 6f 6d 70 74 20 22 | (call-|prompt "|
|00000240| 3c 70 3e 44 75 20 68 61 | 73 74 20 61 62 65 72 20 |<p>Du ha|st aber |
|00000250| 6b 65 69 6e 65 20 4b 61 | 72 74 65 6e 2c 20 64 69 |keine Ka|rten, di|
|00000260| 65 20 64 75 20 61 75 73 | 74 61 75 73 63 68 65 6e |e du aus|tauschen|
|00000270| 20 6b 61 6e 6e 73 74 2e | 2e 2e 2e 2e 3c 2f 70 3e | kannst.|....</p>|
|00000280| 22 29 29 0d 0a 09 20 28 | 28 3d 20 30 20 28 6c 65 |"))... (|(= 0 (le|
|00000290| 6e 67 74 68 20 28 6f 74 | 68 65 72 2d 70 6c 61 79 |ngth (ot|her-play|
|000002a0| 65 72 73 20 73 65 73 73 | 69 6f 6e 29 29 29 0d 0a |ers sess|ion)))..|
|000002b0| 09 20 20 28 63 61 6c 6c | 2d 70 72 6f 6d 70 74 20 |. (call|-prompt |
|000002c0| 22 3c 70 3e 44 75 20 66 | 69 6e 64 65 73 74 20 4e |"<p>Du f|indest N|
|000002d0| 69 6d 61 6e 64 65 6e 20 | 6d 69 74 20 64 65 6d 20 |imanden |mit dem |
|000002e0| 64 75 20 74 61 75 73 63 | 68 65 6e 20 6b 61 6e 6e |du tausc|hen kann|
|000002f0| 73 74 2e 2e 2e 2e 2e 3c | 2f 70 3e 22 29 29 0d 0a |st.....<|/p>"))..|
|00000300| 09 20 28 23 74 0d 0a 09 | 20 20 28 6c 65 74 2a 20 |. (#t...| (let* |
|00000310| 28 28 6d 79 2d 63 61 72 | 64 09 09 09 23 66 29 0d |((my-car|d...#f).|
|00000320| 0a 09 09 09 20 28 74 61 | 72 67 65 74 2d 70 6c 61 |.... (ta|rget-pla|
|00000330| 79 65 72 09 09 23 66 29 | 0d 0a 09 09 09 20 28 74 |yer..#f)|..... (t|
|00000340| 61 72 67 65 74 2d 63 68 | 61 72 61 63 74 65 72 09 |arget-ch|aracter.|
|00000350| 23 66 29 0d 0a 09 09 09 | 20 28 74 61 72 67 65 74 |#f).....| (target|
|00000360| 2d 63 61 72 64 09 09 23 | 66 29 0d 0a 09 09 09 20 |-card..#|f)..... |
|00000370| 28 72 65 74 72 79 09 09 | 09 09 23 74 29 29 0d 0a |(retry..|..#t))..|
|00000380| 09 09 28 77 68 69 6c 65 | 0d 0a 09 09 20 72 65 74 |..(while|.... ret|
|00000390| 72 79 0d 0a 09 09 20 28 | 63 61 6c 6c 2d 6d 65 73 |ry.... (|call-mes|
|000003a0| 73 61 67 65 20 22 3c 70 | 3e 53 75 63 68 65 20 64 |sage "<p|>Suche d|
|000003b0| 69 65 20 4b 61 72 74 65 | 20 61 75 73 2c 20 64 69 |ie Karte| aus, di|
|000003c0| 65 20 64 75 20 65 69 6e | 74 61 75 73 63 68 65 6e |e du ein|tauschen|
|000003d0| 20 77 69 6c 6c 73 74 3c | 2f 70 3e 22 29 0d 0a 09 | willst<|/p>")...|
|000003e0| 09 20 28 73 65 74 21 20 | 6d 79 2d 63 61 72 64 0d |. (set! |my-card.|
|000003f0| 0a 09 09 09 20 20 20 28 | 63 68 61 72 61 63 74 65 |.... (|characte|
|00000400| 72 2d 73 70 65 6c 6c 63 | 61 72 64 73 2d 67 65 74 |r-spellc|ards-get|
|00000410| 0d 0a 09 09 09 09 63 68 | 61 72 61 63 74 65 72 0d |......ch|aracter.|
|00000420| 0a 09 09 09 09 28 63 61 | 6c 6c 2d 71 75 65 72 79 |.....(ca|ll-query|
|00000430| 2d 63 61 72 64 20 63 68 | 61 72 61 63 74 65 72 29 |-card ch|aracter)|
|00000440| 29 29 0d 0a 09 09 20 28 | 63 61 6c 6c 2d 6d 65 73 |)).... (|call-mes|
|00000450| 73 61 67 65 20 22 3c 70 | 3e 53 75 63 68 65 20 64 |sage "<p|>Suche d|
|00000460| 65 6e 20 53 70 69 65 6c | 65 72 20 61 75 73 2c 20 |en Spiel|er aus, |
|00000470| 6d 69 74 20 64 65 6d 20 | 64 75 20 64 69 65 20 4b |mit dem |du die K|
|00000480| 61 72 74 65 20 65 69 6e | 74 61 75 73 63 68 65 6e |arte ein|tauschen|
|00000490| 20 77 69 6c 6c 73 74 3c | 2f 70 3e 22 29 0d 0a 09 | willst<|/p>")...|
|000004a0| 09 20 28 73 65 74 21 20 | 74 61 72 67 65 74 2d 70 |. (set! |target-p|
|000004b0| 6c 61 79 65 72 0d 0a 09 | 09 09 20 20 20 28 73 65 |layer...|.. (se|
|000004c0| 73 73 69 6f 6e 2d 6f 72 | 64 65 72 2d 67 65 74 20 |ssion-or|der-get |
|000004d0| 73 65 73 73 69 6f 6e 20 | 28 63 61 6c 6c 2d 71 75 |session |(call-qu|
|000004e0| 65 72 79 2d 61 6e 6f 74 | 68 65 72 2d 70 6c 61 79 |ery-anot|her-play|
|000004f0| 65 72 29 29 29 0d 0a 09 | 09 20 28 73 65 74 21 20 |er)))...|. (set! |
|00000500| 74 61 72 67 65 74 2d 63 | 68 61 72 61 63 74 65 72 |target-c|haracter|
|00000510| 0d 0a 09 09 09 20 20 20 | 28 70 6c 61 79 65 72 2d |..... |(player-|
|00000520| 63 68 61 72 61 63 74 65 | 72 73 2d 67 65 74 20 74 |characte|rs-get t|
|00000530| 61 72 67 65 74 2d 70 6c | 61 79 65 72 20 30 29 29 |arget-pl|ayer 0))|
|00000540| 0d 0a 09 09 20 28 69 66 | 20 28 3d 20 30 20 28 63 |.... (if| (= 0 (c|
|00000550| 68 61 72 61 63 74 65 72 | 2d 73 70 65 6c 6c 63 61 |haracter|-spellca|
|00000560| 72 64 73 2d 6c 65 6e 67 | 74 68 20 74 61 72 67 65 |rds-leng|th targe|
|00000570| 74 2d 63 68 61 72 61 63 | 74 65 72 29 29 0d 0a 09 |t-charac|ter))...|
|00000580| 09 09 20 28 62 65 67 69 | 6e 0d 0a 09 09 09 20 20 |.. (begi|n..... |
|00000590| 20 28 63 61 6c 6c 2d 70 | 72 6f 6d 70 74 0d 0a 09 | (call-p|rompt...|
|000005a0| 09 09 09 22 3c 70 3e 22 | 0d 0a 09 09 09 09 28 63 |..."<p>"|......(c|
|000005b0| 68 61 72 61 63 74 65 72 | 2d 6e 61 6d 65 2d 67 65 |haracter|-name-ge|
|000005c0| 74 20 74 61 72 67 65 74 | 2d 63 68 61 72 61 63 74 |t target|-charact|
|000005d0| 65 72 29 0d 0a 09 09 09 | 09 22 20 53 69 65 20 68 |er).....|." Sie h|
|000005e0| 61 74 20 6b 65 69 6e 65 | 20 62 65 73 6f 6e 64 65 |at keine| besonde|
|000005f0| 72 65 20 4b 61 72 74 65 | 2e 2e 2e 2e 2e 2e 20 3c |re Karte|...... <|
|00000600| 2f 70 3e 22 29 29 0d 0a | 09 09 09 20 28 62 65 67 |/p>"))..|... (beg|
|00000610| 69 6e 0d 0a 09 09 09 20 | 20 20 28 63 61 6c 6c 2d |in..... | (call-|
|00000620| 6d 65 73 73 61 67 65 20 | 22 3c 70 3e 53 75 63 68 |message |"<p>Such|
|00000630| 65 20 64 69 65 20 4b 61 | 72 74 65 20 61 75 73 2c |e die Ka|rte aus,|
|00000640| 20 64 69 65 20 64 75 20 | 65 69 6e 74 61 75 73 63 | die du |eintausc|
|00000650| 68 65 6e 20 77 69 6c 6c | 73 74 3c 2f 70 3e 22 29 |hen will|st</p>")|
|00000660| 0d 0a 09 09 09 20 20 20 | 28 73 65 74 21 20 74 61 |..... |(set! ta|
|00000670| 72 67 65 74 2d 63 61 72 | 64 0d 0a 09 09 09 09 09 |rget-car|d.......|
|00000680| 20 28 63 68 61 72 61 63 | 74 65 72 2d 73 70 65 6c | (charac|ter-spel|
|00000690| 6c 63 61 72 64 73 2d 67 | 65 74 0d 0a 09 09 09 09 |lcards-g|et......|
|000006a0| 09 20 20 74 61 72 67 65 | 74 2d 63 68 61 72 61 63 |. targe|t-charac|
|000006b0| 74 65 72 0d 0a 09 09 09 | 09 09 20 20 28 63 61 6c |ter.....|.. (cal|
|000006c0| 6c 2d 71 75 65 72 79 2d | 63 61 72 64 20 74 61 72 |l-query-|card tar|
|000006d0| 67 65 74 2d 63 68 61 72 | 61 63 74 65 72 29 29 29 |get-char|acter)))|
|000006e0| 0d 0a 09 09 09 20 20 20 | 28 63 61 6c 6c 2d 6d 65 |..... |(call-me|
|000006f0| 73 73 61 67 65 20 22 3c | 70 3e 54 61 75 73 63 68 |ssage "<|p>Tausch|
|00000700| 73 74 20 64 75 20 6a 65 | 74 7a 74 3f 3c 2f 70 3e |st du je|tzt?</p>|
|00000710| 22 29 0d 0a 09 09 09 20 | 20 20 28 69 66 20 28 63 |")..... | (if (c|
|00000720| 61 6c 6c 2d 71 75 65 72 | 79 2d 79 65 73 6e 6f 29 |all-quer|y-yesno)|
|00000730| 0d 0a 09 09 09 09 20 20 | 20 28 62 65 67 69 6e 0d |...... | (begin.|
|00000740| 0a 09 09 09 09 09 20 28 | 63 68 61 72 61 63 74 65 |...... (|characte|
|00000750| 72 2d 73 70 65 6c 6c 63 | 61 72 64 73 2d 61 64 64 |r-spellc|ards-add|
|00000760| 20 63 68 61 72 61 63 74 | 65 72 20 74 61 72 67 65 | charact|er targe|
|00000770| 74 2d 63 61 72 64 29 0d | 0a 09 09 09 09 09 20 28 |t-card).|...... (|
|00000780| 63 68 61 72 61 63 74 65 | 72 2d 73 70 65 6c 6c 63 |characte|r-spellc|
|00000790| 61 72 64 73 2d 61 64 64 | 20 74 61 72 67 65 74 2d |ards-add| target-|
|000007a0| 63 68 61 72 61 63 74 65 | 72 20 6d 79 2d 63 61 72 |characte|r my-car|
|000007b0| 64 29 0d 0a 09 09 09 09 | 09 20 28 63 68 61 72 61 |d)......|. (chara|
|000007c0| 63 74 65 72 2d 73 70 65 | 6c 6c 63 61 72 64 73 2d |cter-spe|llcards-|
|000007d0| 72 65 6d 6f 76 65 20 74 | 61 72 67 65 74 2d 63 68 |remove t|arget-ch|
|000007e0| 61 72 61 63 74 65 72 20 | 74 61 72 67 65 74 2d 63 |aracter |target-c|
|000007f0| 61 72 64 29 0d 0a 09 09 | 09 09 09 20 28 63 68 61 |ard)....|... (cha|
|00000800| 72 61 63 74 65 72 2d 73 | 70 65 6c 6c 63 61 72 64 |racter-s|pellcard|
|00000810| 73 2d 72 65 6d 6f 76 65 | 20 63 68 61 72 61 63 74 |s-remove| charact|
|00000820| 65 72 20 6d 79 2d 63 61 | 72 64 29 0d 0a 09 09 09 |er my-ca|rd).....|
|00000830| 09 09 20 28 63 61 6c 6c | 2d 73 68 6f 77 2d 73 70 |.. (call|-show-sp|
|00000840| 65 6c 6c 2d 63 61 72 64 | 20 6d 79 2d 63 61 72 64 |ell-card| my-card|
|00000850| 29 0d 0a 09 09 09 09 09 | 20 28 63 61 6c 6c 2d 70 |).......| (call-p|
|00000860| 72 6f 6d 70 74 0d 0a 09 | 09 09 09 09 20 20 22 3c |rompt...|.... "<|
|00000870| 70 3e 22 0d 0a 09 09 09 | 09 09 20 20 28 73 70 65 |p>".....|.. (spe|
|00000880| 6c 6c 2d 6e 61 6d 65 2d | 67 65 74 20 28 63 61 6c |ll-name-|get (cal|
|00000890| 6c 2d 70 75 6c 6c 2d 73 | 70 65 6c 6c 20 6d 79 2d |l-pull-s|pell my-|
|000008a0| 63 61 72 64 29 29 0d 0a | 09 09 09 09 09 20 20 22 |card))..|..... "|
|000008b0| 20 63 61 72 64 2c 20 22 | 0d 0a 09 09 09 09 09 20 | card, "|....... |
|000008c0| 20 28 63 68 61 72 61 63 | 74 65 72 2d 6e 61 6d 65 | (charac|ter-name|
|000008d0| 2d 67 65 74 20 74 61 72 | 67 65 74 2d 63 68 61 72 |-get tar|get-char|
|000008e0| 61 63 74 65 72 29 0d 0a | 09 09 09 09 09 20 20 22 |acter)..|..... "|
|000008f0| 20 4a 65 74 7a 74 20 69 | 73 74 20 65 73 20 64 65 | Jetzt i|st es de|
|00000900| 69 6e 65 20 4b 61 72 74 | 65 2e 3c 2f 70 3e 22 29 |ine Kart|e.</p>")|
|00000910| 0d 0a 09 09 09 09 09 20 | 28 63 61 6c 6c 2d 73 68 |....... |(call-sh|
|00000920| 6f 77 2d 73 70 65 6c 6c | 2d 63 61 72 64 20 74 61 |ow-spell|-card ta|
|00000930| 72 67 65 74 2d 63 61 72 | 64 29 0d 0a 09 09 09 09 |rget-car|d)......|
|00000940| 09 20 28 63 61 6c 6c 2d | 70 72 6f 6d 70 74 0d 0a |. (call-|prompt..|
|00000950| 09 09 09 09 09 20 20 22 | 3c 70 3e 22 0d 0a 09 09 |..... "|<p>"....|
|00000960| 09 09 09 20 20 28 73 70 | 65 6c 6c 2d 6e 61 6d 65 |... (sp|ell-name|
|00000970| 2d 67 65 74 20 28 63 61 | 6c 6c 2d 70 75 6c 6c 2d |-get (ca|ll-pull-|
|00000980| 73 70 65 6c 6c 20 74 61 | 72 67 65 74 2d 63 61 72 |spell ta|rget-car|
|00000990| 64 29 29 0d 0a 09 09 09 | 09 09 20 20 22 20 63 61 |d)).....|.. " ca|
|000009a0| 72 64 20 22 0d 0a 09 09 | 09 09 09 20 20 28 63 68 |rd "....|... (ch|
|000009b0| 61 72 61 63 74 65 72 2d | 6e 61 6d 65 2d 67 65 74 |aracter-|name-get|
|000009c0| 20 63 68 61 72 61 63 74 | 65 72 29 0d 0a 09 09 09 | charact|er).....|
|000009d0| 09 09 20 20 22 20 4a 65 | 74 7a 74 20 69 73 74 20 |.. " Je|tzt ist |
|000009e0| 65 73 20 64 65 69 6e 65 | 20 4b 61 72 74 65 21 3c |es deine| Karte!<|
|000009f0| 2f 70 3e 22 29 0d 0a 09 | 09 09 09 09 20 28 63 61 |/p>")...|.... (ca|
|00000a00| 6c 6c 2d 68 69 64 65 2d | 73 70 65 6c 6c 2d 63 61 |ll-hide-|spell-ca|
|00000a10| 72 64 29 0d 0a 09 09 09 | 09 09 20 28 73 65 74 21 |rd).....|.. (set!|
|00000a20| 20 72 65 74 72 79 20 23 | 66 29 29 29 0d 0a 09 09 | retry #|f)))....|
|00000a30| 09 20 20 20 29 29 0d 0a | 09 09 20 29 0d 0a 09 09 |. ))..|.. )....|
|00000a40| 29 29 0d 0a 09 20 29 0d | 0a 09 29 0d 0a 20 20 29 |))... ).|..).. )|
|00000a50| 0d 0a 0d 0a 28 64 65 66 | 69 6e 65 20 28 73 70 65 |....(def|ine (spe|
|00000a60| 6c 6c 2d 65 76 65 6e 74 | 2d 63 6f 70 79 20 73 65 |ll-event|-copy se|
|00000a70| 73 73 69 6f 6e 20 63 61 | 72 64 29 0d 0a 20 20 28 |ssion ca|rd).. (|
|00000a80| 6c 65 74 2a 20 28 28 70 | 6c 61 79 65 72 09 28 63 |let* ((p|layer.(c|
|00000a90| 75 72 72 65 6e 74 2d 70 | 6c 61 79 65 72 20 73 65 |urrent-p|layer se|
|00000aa0| 73 73 69 6f 6e 29 29 0d | 0a 09 09 20 28 63 68 61 |ssion)).|... (cha|
|00000ab0| 72 61 63 74 65 72 20 28 | 63 75 72 72 65 6e 74 2d |racter (|current-|
|00000ac0| 63 68 61 72 61 63 74 65 | 72 20 70 6c 61 79 65 72 |characte|r player|
|00000ad0| 29 29 29 0d 0a 09 28 63 | 61 6c 6c 2d 63 61 70 74 |)))...(c|all-capt|
|00000ae0| 69 6f 6e 20 22 3c 70 3e | 44 69 65 20 4b 61 72 74 |ion "<p>|Die Kart|
|00000af0| 65 20 77 69 72 64 20 6b | 6f 70 69 65 72 74 3c 2f |e wird k|opiert</|
|00000b00| 70 3e 22 29 0d 0a 09 28 | 63 6f 6e 64 0d 0a 09 20 |p>")...(|cond... |
|00000b10| 28 28 3d 20 30 20 28 6c | 65 6e 67 74 68 20 28 6f |((= 0 (l|ength (o|
|00000b20| 74 68 65 72 2d 70 6c 61 | 79 65 72 73 20 73 65 73 |ther-pla|yers ses|
|00000b30| 73 69 6f 6e 29 29 29 0d | 0a 09 20 20 28 63 61 6c |sion))).|.. (cal|
|00000b40| 6c 2d 70 72 6f 6d 70 74 | 20 22 3c 70 3e 44 75 20 |l-prompt| "<p>Du |
|00000b50| 6b 61 6e 6e 73 74 20 6e | 69 63 68 74 20 6b 6f 70 |kannst n|icht kop|
|00000b60| 69 65 72 65 6e 2e 2e 2e | 2e 3c 2f 70 3e 22 29 29 |ieren...|.</p>"))|
|00000b70| 0d 0a 09 20 28 23 74 0d | 0a 09 20 20 28 6c 65 74 |... (#t.|.. (let|
|00000b80| 2a 20 28 28 61 6e 6f 74 | 68 65 72 09 28 61 6e 6f |* ((anot|her.(ano|
|00000b90| 74 68 65 72 2d 70 6c 61 | 79 65 72 20 73 65 73 73 |ther-pla|yer sess|
|00000ba0| 69 6f 6e 29 29 0d 0a 09 | 09 09 20 28 61 63 09 09 |ion))...|.. (ac..|
|00000bb0| 28 70 6c 61 79 65 72 2d | 63 68 61 72 61 63 74 65 |(player-|characte|
|00000bc0| 72 73 2d 67 65 74 20 61 | 6e 6f 74 68 65 72 20 30 |rs-get a|nother 0|
|00000bd0| 29 29 0d 0a 09 09 09 20 | 28 63 6f 75 6e 74 09 09 |))..... |(count..|
|00000be0| 23 66 29 29 0d 0a 09 09 | 28 73 65 74 21 20 63 6f |#f))....|(set! co|
|00000bf0| 75 6e 74 20 28 63 68 61 | 72 61 63 74 65 72 2d 73 |unt (cha|racter-s|
|00000c00| 70 65 6c 6c 63 61 72 64 | 73 2d 6c 65 6e 67 74 68 |pellcard|s-length|
|00000c10| 20 61 63 29 29 0d 0a 0d | 0a 09 09 3b 3b 20 91 53 | ac))...|...;; .S|
|00000c20| 82 c4 94 70 8a fc 0d 0a | 09 09 28 77 68 69 6c 65 |...p....|..(while|
|00000c30| 20 28 3c 20 30 20 28 63 | 68 61 72 61 63 74 65 72 | (< 0 (c|haracter|
|00000c40| 2d 73 70 65 6c 6c 63 61 | 72 64 73 2d 6c 65 6e 67 |-spellca|rds-leng|
|00000c50| 74 68 20 63 68 61 72 61 | 63 74 65 72 29 29 0d 0a |th chara|cter))..|
|00000c60| 09 09 09 20 20 20 28 63 | 61 6c 6c 2d 72 65 6d 6f |... (c|all-remo|
|00000c70| 76 65 2d 73 70 65 6c 6c | 2d 63 61 72 64 0d 0a 09 |ve-spell|-card...|
|00000c80| 09 09 09 28 63 68 61 72 | 61 63 74 65 72 2d 73 70 |...(char|acter-sp|
|00000c90| 65 6c 6c 63 61 72 64 73 | 2d 67 65 74 20 63 68 61 |ellcards|-get cha|
|00000ca0| 72 61 63 74 65 72 20 30 | 29 29 29 0d 0a 0d 0a 09 |racter 0|))).....|
|00000cb0| 09 3b 3b 20 83 52 83 73 | 81 5b 83 4a 81 5b 83 68 |.;; .R.s|.[.J.[.h|
|00000cc0| 88 c8 8a 4f 82 cc 83 4a | 81 5b 83 68 82 f0 82 b7 |...O...J|.[.h....|
|00000cd0| 82 d7 82 c4 83 52 83 73 | 81 5b 0d 0a 09 09 28 64 |.....R.s|.[....(d|
|00000ce0| 6f 20 28 28 69 20 30 20 | 28 2b 20 31 20 69 29 29 |o ((i 0 |(+ 1 i))|
|00000cf0| 29 0d 0a 09 09 09 28 28 | 3c 3d 20 63 6f 75 6e 74 |).....((|<= count|
|00000d00| 20 69 29 20 23 66 29 0d | 0a 09 09 20 20 28 6c 65 | i) #f).|... (le|
|00000d10| 74 2a 20 28 28 63 61 72 | 64 20 28 63 68 61 72 61 |t* ((car|d (chara|
|00000d20| 63 74 65 72 2d 73 70 65 | 6c 6c 63 61 72 64 73 2d |cter-spe|llcards-|
|00000d30| 67 65 74 20 61 63 20 69 | 29 29 29 0d 0a 09 09 09 |get ac i|))).....|
|00000d40| 28 69 66 20 28 6e 6f 74 | 20 28 73 74 72 69 6e 67 |(if (not| (string|
|00000d50| 3d 3f 20 22 83 52 83 73 | 81 5b 22 0d 0a 09 09 09 |=? ".R.s|.[".....|
|00000d60| 09 09 09 09 20 20 20 28 | 73 70 65 6c 6c 2d 6e 61 |.... (|spell-na|
|00000d70| 6d 65 2d 67 65 74 20 28 | 63 61 6c 6c 2d 70 75 6c |me-get (|call-pul|
|00000d80| 6c 2d 73 70 65 6c 6c 20 | 63 61 72 64 29 29 29 29 |l-spell |card))))|
|00000d90| 0d 0a 09 09 09 09 28 63 | 68 61 72 61 63 74 65 72 |......(c|haracter|
|00000da0| 2d 73 70 65 6c 6c 63 61 | 72 64 73 2d 61 64 64 0d |-spellca|rds-add.|
|00000db0| 0a 09 09 09 09 20 63 68 | 61 72 61 63 74 65 72 0d |..... ch|aracter.|
|00000dc0| 0a 09 09 09 09 20 28 63 | 61 6c 6c 2d 63 6f 70 79 |..... (c|all-copy|
|00000dd0| 2d 73 70 65 6c 6c 2d 63 | 61 72 64 20 63 61 72 64 |-spell-c|ard card|
|00000de0| 29 29 29 0d 0a 09 09 09 | 29 0d 0a 09 09 20 20 29 |))).....|).... )|
|00000df0| 0d 0a 09 09 28 63 61 6c | 6c 2d 70 72 6f 6d 70 74 |....(cal|l-prompt|
|00000e00| 20 22 3c 70 3e 22 0d 0a | 09 09 09 09 09 20 28 63 | "<p>"..|..... (c|
|00000e10| 68 61 72 61 63 74 65 72 | 2d 6e 61 6d 65 2d 67 65 |haracter|-name-ge|
|00000e20| 74 20 61 63 29 0d 0a 09 | 09 09 09 09 20 22 20 57 |t ac)...|.... " W|
|00000e30| 69 72 20 68 61 62 65 6e | 20 73 63 68 6f 6e 20 61 |ir haben| schon a|
|00000e40| 6c 6c 65 20 4b 61 72 74 | 65 6e 20 6b 6f 70 69 65 |lle Kart|en kopie|
|00000e50| 72 74 21 3c 2f 70 3e 22 | 29 29 29 29 0d 0a 09 29 |rt!</p>"|))))...)|
|00000e60| 0d 0a 20 20 29 0d 0a 09 | 20 0d 0a 28 64 65 66 69 |.. )...| ..(defi|
|00000e70| 6e 65 20 28 73 70 65 6c | 6c 2d 65 76 65 6e 74 2d |ne (spel|l-event-|
|00000e80| 6d 6f 76 65 20 73 65 73 | 73 69 6f 6e 20 63 61 72 |move ses|sion car|
|00000e90| 64 29 0d 0a 20 20 28 6c | 65 74 2a 20 28 28 70 6c |d).. (l|et* ((pl|
|00000ea0| 61 79 65 72 09 28 63 75 | 72 72 65 6e 74 2d 70 6c |ayer.(cu|rrent-pl|
|00000eb0| 61 79 65 72 20 73 65 73 | 73 69 6f 6e 29 29 0d 0a |ayer ses|sion))..|
|00000ec0| 09 09 20 28 63 68 61 72 | 61 63 74 65 72 20 28 63 |.. (char|acter (c|
|00000ed0| 75 72 72 65 6e 74 2d 63 | 68 61 72 61 63 74 65 72 |urrent-c|haracter|
|00000ee0| 20 70 6c 61 79 65 72 29 | 29 29 0d 0a 09 28 63 6f | player)|))...(co|
|00000ef0| 6e 64 20 0d 0a 09 20 28 | 28 3d 20 30 20 28 6c 65 |nd ... (|(= 0 (le|
|00000f00| 6e 67 74 68 20 28 6f 74 | 68 65 72 2d 70 6c 61 79 |ngth (ot|her-play|
|00000f10| 65 72 73 20 73 65 73 73 | 69 6f 6e 29 29 29 0d 0a |ers sess|ion)))..|
|00000f20| 09 20 20 28 63 61 6c 6c | 2d 70 72 6f 6d 70 74 20 |. (call|-prompt |
|00000f30| 22 3c 70 3e 44 75 20 68 | 61 73 74 20 4e 69 6d 61 |"<p>Du h|ast Nima|
|00000f40| 6e 64 65 6e 20 6d 69 74 | 20 64 65 6d 20 64 75 20 |nden mit| dem du |
|00000f50| 74 61 75 73 63 68 65 6e | 20 6b 61 6e 6e 73 74 2e |tauschen| kannst.|
|00000f60| 2e 2e 2e 2e 3c 2f 70 3e | 22 29 29 0d 0a 09 20 28 |....</p>|"))... (|
|00000f70| 23 74 0d 0a 09 20 20 28 | 6c 65 74 2a 20 28 28 61 |#t... (|let* ((a|
|00000f80| 6e 6f 74 68 65 72 09 28 | 61 6e 6f 74 68 65 72 2d |nother.(|another-|
|00000f90| 70 6c 61 79 65 72 20 73 | 65 73 73 69 6f 6e 29 29 |player s|ession))|
|00000fa0| 0d 0a 09 09 09 20 28 61 | 63 09 09 28 70 6c 61 79 |..... (a|c..(play|
|00000fb0| 65 72 2d 63 68 61 72 61 | 63 74 65 72 73 2d 67 65 |er-chara|cters-ge|
|00000fc0| 74 20 61 6e 6f 74 68 65 | 72 20 30 29 29 0d 0a 09 |t anothe|r 0))...|
|00000fd0| 09 09 20 28 6c 69 6e 65 | 09 09 23 66 29 29 0d 0a |.. (line|..#f))..|
|00000fe0| 09 09 28 63 61 6c 6c 2d | 63 61 70 74 69 6f 6e 20 |..(call-|caption |
|00000ff0| 22 3c 70 3e 42 69 6e 67 | 6f 20 4c 69 6e 65 20 74 |"<p>Bing|o Line t|
|00001000| 61 75 73 63 68 65 6e 3c | 2f 70 3e 22 29 0d 0a 09 |auschen<|/p>")...|
|00001010| 09 28 63 61 6c 6c 2d 70 | 72 6f 6d 70 74 20 22 3c |.(call-p|rompt "<|
|00001020| 70 3e 22 0d 0a 09 09 09 | 09 09 20 28 63 68 61 72 |p>".....|.. (char|
|00001030| 61 63 74 65 72 2d 6e 61 | 6d 65 2d 67 65 74 20 61 |acter-na|me-get a|
|00001040| 63 29 0d 0a 09 09 09 09 | 09 20 22 20 54 61 75 73 |c)......|. " Taus|
|00001050| 63 68 73 74 20 64 75 20 | 6a 65 74 7a 74 2e 3c 2f |chst du |jetzt.</|
|00001060| 70 3e 22 29 0d 0a 09 09 | 28 63 61 6c 6c 2d 73 68 |p>")....|(call-sh|
|00001070| 6f 77 2d 6c 65 66 74 2d | 64 75 65 6c 69 73 74 20 |ow-left-|duelist |
|00001080| 63 68 61 72 61 63 74 65 | 72 29 0d 0a 09 09 28 63 |characte|r)....(c|
|00001090| 61 6c 6c 2d 73 68 6f 77 | 2d 72 69 67 68 74 2d 64 |all-show|-right-d|
|000010a0| 75 65 6c 69 73 74 20 61 | 63 29 0d 0a 09 09 28 63 |uelist a|c)....(c|
|000010b0| 61 6c 6c 2d 65 78 63 68 | 61 6e 67 65 2d 62 69 6e |all-exch|ange-bin|
|000010c0| 67 6f 2d 6c 69 6e 65 20 | 61 63 29 0d 0a 09 09 29 |go-line |ac)....)|
|000010d0| 29 0d 0a 09 20 29 0d 0a | 09 29 0d 0a 20 20 29 0d |)... )..|.).. ).|
|000010e0| 0a 0d 0a 28 64 65 66 69 | 6e 65 20 28 73 70 65 6c |...(defi|ne (spel|
|000010f0| 6c 2d 65 76 65 6e 74 2d | 64 75 65 6c 2d 61 75 78 |l-event-|duel-aux|
|00001100| 20 77 69 6e 6e 65 72 20 | 6c 6f 73 65 72 29 0d 0a | winner |loser)..|
|00001110| 20 20 28 6c 65 74 2a 20 | 28 28 6d 6f 76 69 65 20 | (let* |((movie |
|00001120| 23 66 29 29 0d 0a 09 28 | 63 61 6c 6c 2d 70 72 6f |#f))...(|call-pro|
|00001130| 6d 70 74 20 22 3c 70 3e | 22 20 28 63 68 61 72 61 |mpt "<p>|" (chara|
|00001140| 63 74 65 72 2d 6e 61 6d | 65 2d 67 65 74 20 77 69 |cter-nam|e-get wi|
|00001150| 6e 6e 65 72 29 20 22 20 | 44 75 20 68 61 73 74 20 |nner) " |Du hast |
|00001160| 67 65 77 6f 6e 6e 65 6e | 21 3c 2f 70 3e 22 29 0d |gewonnen|!</p>").|
|00001170| 0a 09 28 73 65 74 21 20 | 6d 6f 76 69 65 20 28 6d |..(set! |movie (m|
|00001180| 6f 76 65 2d 6d 6f 76 69 | 65 20 77 69 6e 6e 65 72 |ove-movi|e winner|
|00001190| 20 6c 6f 73 65 72 29 29 | 0d 0a 09 28 69 66 20 6d | loser))|...(if m|
|000011a0| 6f 76 69 65 0d 0a 09 09 | 28 62 65 67 69 6e 0d 0a |ovie....|(begin..|
|000011b0| 09 09 20 20 28 63 61 6c | 6c 2d 73 68 6f 77 2d 6d |.. (cal|l-show-m|
|000011c0| 6f 76 69 65 2d 63 61 72 | 64 20 28 71 75 6f 74 69 |ovie-car|d (quoti|
|000011d0| 65 6e 74 20 6d 6f 76 69 | 65 20 35 29 0d 0a 09 09 |ent movi|e 5)....|
|000011e0| 09 09 09 09 09 09 28 72 | 65 6d 61 69 6e 64 65 72 |......(r|emainder|
|000011f0| 20 6d 6f 76 69 65 20 35 | 29 29 0d 0a 09 09 20 20 | movie 5|)).... |
|00001200| 28 63 61 6c 6c 2d 70 72 | 6f 6d 70 74 20 22 3c 70 |(call-pr|ompt "<p|
|00001210| 3e 4e 69 68 6d 6d 20 69 | 68 6e 20 65 69 6e 65 20 |>Nihmm i|hn eine |
|00001220| 4d 6f 76 69 65 20 43 61 | 72 64 20 77 65 67 20 21 |Movie Ca|rd weg !|
|00001230| 3c 2f 70 3e 22 29 0d 0a | 09 09 20 20 28 63 61 6c |</p>")..|.. (cal|
|00001240| 6c 2d 68 69 64 65 2d 6d | 6f 76 69 65 2d 63 61 72 |l-hide-m|ovie-car|
|00001250| 64 29 0d 0a 09 09 20 20 | 29 0d 0a 09 09 28 63 61 |d).... |)....(ca|
|00001260| 6c 6c 2d 70 72 6f 6d 70 | 74 20 22 3c 70 3e 22 20 |ll-promp|t "<p>" |
|00001270| 28 63 68 61 72 61 63 74 | 65 72 2d 6e 61 6d 65 2d |(charact|er-name-|
|00001280| 67 65 74 20 6c 6f 73 65 | 72 29 0d 0a 09 09 09 09 |get lose|r)......|
|00001290| 09 20 22 20 53 69 65 20 | 68 61 74 74 65 20 61 62 |. " Sie |hatte ab|
|000012a0| 65 72 20 6b 65 69 6e 65 | 20 4d 6f 76 69 65 20 43 |er keine| Movie C|
|000012b0| 61 72 64 2e 2e 2e 2e 2e | 3c 2f 70 3e 22 29 0d 0a |ard.....|</p>")..|
|000012c0| 09 09 29 0d 0a 09 28 63 | 68 61 72 61 63 74 65 72 |..)...(c|haracter|
|000012d0| 2d 64 75 65 6c 77 6f 6e | 2d 61 70 70 6c 79 20 77 |-duelwon|-apply w|
|000012e0| 69 6e 6e 65 72 20 28 6c | 61 6d 62 64 61 20 28 78 |inner (l|ambda (x|
|000012f0| 29 20 28 2b 20 78 20 31 | 29 29 29 0d 0a 09 28 63 |) (+ x 1|)))...(c|
|00001300| 68 61 72 61 63 74 65 72 | 2d 64 75 65 6c 6c 6f 73 |haracter|-duellos|
|00001310| 74 2d 61 70 70 6c 79 20 | 6c 6f 73 65 72 20 28 6c |t-apply |loser (l|
|00001320| 61 6d 62 64 61 20 28 78 | 29 20 28 2b 20 78 20 31 |ambda (x|) (+ x 1|
|00001330| 29 29 29 0d 0a 09 29 0d | 0a 20 20 29 0d 0a 0d 0a |)))...).|. )....|
|00001340| 28 64 65 66 69 6e 65 20 | 28 73 70 65 6c 6c 2d 65 |(define |(spell-e|
|00001350| 76 65 6e 74 2d 64 75 65 | 6c 20 73 65 73 73 69 6f |vent-due|l sessio|
|00001360| 6e 20 63 61 72 64 29 0d | 0a 20 20 28 6c 65 74 2a |n card).|. (let*|
|00001370| 20 28 28 70 6c 61 79 65 | 72 09 28 63 75 72 72 65 | ((playe|r.(curre|
|00001380| 6e 74 2d 70 6c 61 79 65 | 72 20 73 65 73 73 69 6f |nt-playe|r sessio|
|00001390| 6e 29 29 0d 0a 09 09 20 | 28 63 68 61 72 61 63 74 |n)).... |(charact|
|000013a0| 65 72 20 28 63 75 72 72 | 65 6e 74 2d 63 68 61 72 |er (curr|ent-char|
|000013b0| 61 63 74 65 72 20 70 6c | 61 79 65 72 29 29 0d 0a |acter pl|ayer))..|
|000013c0| 09 09 20 28 63 75 72 72 | 65 6e 63 79 2d 75 6e 69 |.. (curr|ency-uni|
|000013d0| 74 09 28 73 65 73 73 69 | 6f 6e 2d 63 75 72 72 65 |t.(sessi|on-curre|
|000013e0| 6e 63 79 75 6e 69 74 2d | 67 65 74 20 73 65 73 73 |ncyunit-|get sess|
|000013f0| 69 6f 6e 29 29 29 0d 0a | 09 28 63 6f 6e 64 20 0d |ion)))..|.(cond .|
|00001400| 0a 09 20 28 28 3d 20 30 | 20 28 6c 65 6e 67 74 68 |.. ((= 0| (length|
|00001410| 20 28 6f 74 68 65 72 2d | 70 6c 61 79 65 72 73 20 | (other-|players |
|00001420| 73 65 73 73 69 6f 6e 29 | 29 29 0d 0a 09 20 20 28 |session)|))... (|
|00001430| 63 61 6c 6c 2d 70 72 6f | 6d 70 74 20 22 3c 70 3e |call-pro|mpt "<p>|
|00001440| 41 62 65 72 20 64 75 20 | 68 61 73 74 20 6b 65 69 |Aber du |hast kei|
|00001450| 6e 65 6e 20 47 65 67 6e | 65 72 2e 2e 2e 2e 2e 3c |nen Gegn|er.....<|
|00001460| 2f 70 3e 22 29 29 0d 0a | 09 20 28 23 74 0d 0a 09 |/p>"))..|. (#t...|
|00001470| 20 20 28 6c 65 74 2a 20 | 28 28 61 6e 6f 74 68 65 | (let* |((anothe|
|00001480| 72 09 28 61 6e 6f 74 68 | 65 72 2d 70 6c 61 79 65 |r.(anoth|er-playe|
|00001490| 72 20 73 65 73 73 69 6f | 6e 29 29 0d 0a 09 09 09 |r sessio|n)).....|
|000014a0| 20 28 61 63 09 09 28 70 | 6c 61 79 65 72 2d 63 68 | (ac..(p|layer-ch|
|000014b0| 61 72 61 63 74 65 72 73 | 2d 67 65 74 20 61 6e 6f |aracters|-get ano|
|000014c0| 74 68 65 72 20 30 29 29 | 0d 0a 09 09 09 20 28 70 |ther 0))|..... (p|
|000014d0| 72 69 7a 65 09 09 28 2a | 20 28 2b 20 31 20 28 63 |rize..(*| (+ 1 (c|
|000014e0| 68 61 72 61 63 74 65 72 | 2d 6c 61 70 2d 67 65 74 |haracter|-lap-get|
|000014f0| 20 63 68 61 72 61 63 74 | 65 72 29 29 20 35 30 30 | charact|er)) 500|
|00001500| 30 30 29 29 29 0d 0a 09 | 09 28 63 61 6c 6c 2d 73 |00)))...|.(call-s|
|00001510| 68 6f 77 2d 6c 65 66 74 | 2d 64 75 65 6c 69 73 74 |how-left|-duelist|
|00001520| 20 63 68 61 72 61 63 74 | 65 72 29 0d 0a 09 09 28 | charact|er)....(|
|00001530| 63 61 6c 6c 2d 70 72 6f | 6d 70 74 20 22 3c 70 3e |call-pro|mpt "<p>|
|00001540| 44 65 69 6e 20 47 65 67 | 6e 65 72 2e 2e 2e 2e 2e |Dein Geg|ner.....|
|00001550| 2e 3f 3c 2f 70 3e 22 29 | 0d 0a 09 09 28 63 61 6c |.?</p>")|....(cal|
|00001560| 6c 2d 73 68 6f 77 2d 72 | 69 67 68 74 2d 64 75 65 |l-show-r|ight-due|
|00001570| 6c 69 73 74 20 61 63 29 | 0d 0a 09 09 28 63 61 6c |list ac)|....(cal|
|00001580| 6c 2d 70 72 6f 6d 70 74 | 20 22 3c 70 3e 22 0d 0a |l-prompt| "<p>"..|
|00001590| 09 09 09 09 09 20 28 63 | 68 61 72 61 63 74 65 72 |..... (c|haracter|
|000015a0| 2d 6e 61 6d 65 2d 67 65 | 74 20 61 63 29 0d 0a 09 |-name-ge|t ac)...|
|000015b0| 09 09 09 09 20 22 20 49 | 73 74 20 73 69 65 20 64 |.... " I|st sie d|
|000015c0| 65 69 6e 20 47 65 67 6e | 65 72 3f 3c 2f 70 3e 22 |ein Gegn|er?</p>"|
|000015d0| 29 0d 0a 09 09 28 6c 65 | 74 2a 20 28 28 77 69 6e |)....(le|t* ((win|
|000015e0| 6e 65 72 20 28 63 61 6c | 6c 2d 64 75 65 6c 20 63 |ner (cal|l-duel c|
|000015f0| 68 61 72 61 63 74 65 72 | 20 61 63 29 29 0d 0a 09 |haracter| ac))...|
|00001600| 09 09 20 20 20 28 6d 6f | 76 69 65 09 23 66 29 29 |.. (mo|vie.#f))|
|00001610| 0d 0a 09 09 20 20 28 63 | 61 6c 6c 2d 63 61 70 74 |.... (c|all-capt|
|00001620| 69 6f 6e 20 22 3c 70 3e | 4b 61 6d 70 66 3c 2f 70 |ion "<p>|Kampf</p|
|00001630| 3e 22 29 0d 0a 09 09 20 | 20 28 63 61 73 65 20 77 |>").... | (case w|
|00001640| 69 6e 6e 65 72 0d 0a 09 | 09 09 28 28 30 29 0d 0a |inner...|..((0)..|
|00001650| 09 09 09 20 28 63 61 6c | 6c 2d 70 72 6f 6d 70 74 |... (cal|l-prompt|
|00001660| 20 22 3c 70 3e 44 65 72 | 20 4b 61 6d 70 66 20 69 | "<p>Der| Kampf i|
|00001670| 73 74 20 75 6e 65 6e 74 | 73 63 68 69 65 64 65 6e |st unent|schieden|
|00001680| 2e 3c 2f 70 3e 22 29 0d | 0a 09 09 09 20 28 63 68 |.</p>").|.... (ch|
|00001690| 61 72 61 63 74 65 72 2d | 64 75 65 6c 64 72 61 77 |aracter-|dueldraw|
|000016a0| 6e 2d 61 70 70 6c 79 20 | 63 68 61 72 61 63 74 65 |n-apply |characte|
|000016b0| 72 20 28 6c 61 6d 62 64 | 61 20 28 78 29 20 28 2b |r (lambd|a (x) (+|
|000016c0| 20 78 20 31 29 29 29 0d | 0a 09 09 09 20 28 63 68 | x 1))).|.... (ch|
|000016d0| 61 72 61 63 74 65 72 2d | 64 75 65 6c 64 72 61 77 |aracter-|dueldraw|
|000016e0| 6e 2d 61 70 70 6c 79 20 | 61 63 20 28 6c 61 6d 62 |n-apply |ac (lamb|
|000016f0| 64 61 20 28 78 29 20 28 | 2b 20 78 20 31 29 29 29 |da (x) (|+ x 1)))|
|00001700| 29 0d 0a 09 09 09 28 28 | 31 29 0d 0a 09 09 09 20 |).....((|1)..... |
|00001710| 28 73 65 74 21 20 70 72 | 69 7a 65 20 28 2a 20 32 |(set! pr|ize (* 2|
|00001720| 20 70 72 69 7a 65 29 29 | 0d 0a 09 09 09 20 28 63 | prize))|..... (c|
|00001730| 61 6c 6c 2d 70 72 6f 6d | 70 74 20 22 3c 70 3e 22 |all-prom|pt "<p>"|
|00001740| 0d 0a 09 09 09 09 09 09 | 20 20 28 63 68 61 72 61 |........| (chara|
|00001750| 63 74 65 72 2d 6e 61 6d | 65 2d 67 65 74 20 63 68 |cter-nam|e-get ch|
|00001760| 61 72 61 63 74 65 72 29 | 0d 0a 09 09 09 09 09 09 |aracter)|........|
|00001770| 20 20 22 20 53 69 65 20 | 68 61 74 20 67 65 73 74 | " Sie |hat gest|
|00001780| 6f 6c 65 6e 21 3c 62 72 | 2f 3e 22 0d 0a 09 09 09 |olen!<br|/>".....|
|00001790| 09 09 09 20 20 28 63 68 | 61 72 61 63 74 65 72 2d |... (ch|aracter-|
|000017a0| 6e 61 6d 65 2d 67 65 74 | 20 61 63 29 0d 0a 09 09 |name-get| ac)....|
|000017b0| 09 09 09 09 20 20 22 20 | 56 6f 6e 20 69 68 72 20 |.... " |Von ihr |
|000017c0| 22 0d 0a 09 09 09 09 09 | 09 20 20 28 6e 75 6d 62 |".......|. (numb|
|000017d0| 65 72 2d 3e 73 74 72 69 | 6e 67 20 70 72 69 7a 65 |er->stri|ng prize|
|000017e0| 29 0d 0a 09 09 09 09 09 | 09 20 20 63 75 72 72 65 |).......|. curre|
|000017f0| 6e 63 79 2d 75 6e 69 74 | 0d 0a 09 09 09 09 09 09 |ncy-unit|........|
|00001800| 20 20 22 20 73 69 65 20 | 68 61 74 20 67 65 73 74 | " sie |hat gest|
|00001810| 6f 68 6c 65 6e 21 3c 2f | 70 3e 22 29 0d 0a 09 09 |ohlen!</|p>")....|
|00001820| 09 20 28 63 68 61 72 61 | 63 74 65 72 2d 6d 6f 6e |. (chara|cter-mon|
|00001830| 65 79 2d 61 70 70 6c 79 | 20 63 68 61 72 61 63 74 |ey-apply| charact|
|00001840| 65 72 20 28 6c 61 6d 62 | 64 61 20 28 78 29 20 28 |er (lamb|da (x) (|
|00001850| 2b 20 78 20 70 72 69 7a | 65 29 29 29 0d 0a 09 09 |+ x priz|e)))....|
|00001860| 09 20 28 63 68 61 72 61 | 63 74 65 72 2d 6d 6f 6e |. (chara|cter-mon|
|00001870| 65 79 2d 61 70 70 6c 79 | 20 61 63 20 28 6c 61 6d |ey-apply| ac (lam|
|00001880| 62 64 61 20 28 78 29 20 | 28 2d 20 78 20 70 72 69 |bda (x) |(- x pri|
|00001890| 7a 65 29 29 29 0d 0a 09 | 09 09 20 28 63 61 6c 6c |ze)))...|.. (call|
|000018a0| 2d 73 68 6f 77 2d 69 6e | 63 6f 6d 65 20 70 72 69 |-show-in|come pri|
|000018b0| 7a 65 29 29 0d 0a 09 09 | 09 28 28 32 29 0d 0a 09 |ze))....|.((2)...|
|000018c0| 09 09 20 28 63 61 6c 6c | 2d 70 72 6f 6d 70 74 20 |.. (call|-prompt |
|000018d0| 22 3c 70 3e 22 0d 0a 09 | 09 09 09 09 09 20 20 28 |"<p>"...|..... (|
|000018e0| 63 68 61 72 61 63 74 65 | 72 2d 6e 61 6d 65 2d 67 |characte|r-name-g|
|000018f0| 65 74 20 63 68 61 72 61 | 63 74 65 72 29 0d 0a 09 |et chara|cter)...|
|00001900| 09 09 09 09 09 20 20 22 | 20 53 69 65 20 68 61 74 |..... "| Sie hat|
|00001910| 20 76 65 72 6c 6f 72 65 | 6e 2e 3c 62 72 2f 3e 22 | verlore|n.<br/>"|
|00001920| 0d 0a 09 09 09 09 09 09 | 20 20 28 63 68 61 72 61 |........| (chara|
|00001930| 63 74 65 72 2d 6e 61 6d | 65 2d 67 65 74 20 61 63 |cter-nam|e-get ac|
|00001940| 29 0d 0a 09 09 09 09 09 | 09 20 20 22 20 56 6f 6e |).......|. " Von|
|00001950| 20 69 68 72 20 22 0d 0a | 09 09 09 09 09 09 20 20 | ihr "..|...... |
|00001960| 28 6e 75 6d 62 65 72 2d | 3e 73 74 72 69 6e 67 20 |(number-|>string |
|00001970| 70 72 69 7a 65 29 0d 0a | 09 09 09 09 09 09 20 20 |prize)..|...... |
|00001980| 63 75 72 72 65 6e 63 79 | 2d 75 6e 69 74 0d 0a 09 |currency|-unit...|
|00001990| 09 09 09 09 09 20 20 22 | 20 44 75 20 68 61 73 74 |..... "| Du hast|
|000019a0| 20 64 69 63 68 20 62 65 | 72 61 75 62 65 6e 20 6c | dich be|rauben l|
|000019b0| 61 73 73 65 6e 21 3c 2f | 70 3e 22 29 0d 0a 09 09 |assen!</|p>")....|
|000019c0| 09 20 28 63 68 61 72 61 | 63 74 65 72 2d 6d 6f 6e |. (chara|cter-mon|
|000019d0| 65 79 2d 61 70 70 6c 79 | 20 63 68 61 72 61 63 74 |ey-apply| charact|
|000019e0| 65 72 20 28 6c 61 6d 62 | 64 61 20 28 78 29 20 28 |er (lamb|da (x) (|
|000019f0| 2d 20 78 20 70 72 69 7a | 65 29 29 29 0d 0a 09 09 |- x priz|e)))....|
|00001a00| 09 20 28 63 68 61 72 61 | 63 74 65 72 2d 6d 6f 6e |. (chara|cter-mon|
|00001a10| 65 79 2d 61 70 70 6c 79 | 20 61 63 20 28 6c 61 6d |ey-apply| ac (lam|
|00001a20| 62 64 61 20 28 78 29 20 | 28 2b 20 78 20 70 72 69 |bda (x) |(+ x pri|
|00001a30| 7a 65 29 29 29 0d 0a 09 | 09 09 20 28 63 61 6c 6c |ze)))...|.. (call|
|00001a40| 2d 73 68 6f 77 2d 69 6e | 63 6f 6d 65 20 28 2d 20 |-show-in|come (- |
|00001a50| 70 72 69 7a 65 29 29 29 | 0d 0a 09 09 09 29 0d 0a |prize)))|.....)..|
|00001a60| 09 09 20 20 29 0d 0a 09 | 09 29 0d 0a 09 20 20 29 |.. )...|.)... )|
|00001a70| 0d 0a 09 20 29 0d 0a 09 | 29 0d 0a 20 20 29 0d 0a |... )...|).. )..|
|00001a80| 0d 0a 28 64 65 66 69 6e | 65 20 28 73 70 65 6c 6c |..(defin|e (spell|
|00001a90| 2d 65 76 65 6e 74 2d 70 | 6c 75 73 31 20 73 65 73 |-event-p|lus1 ses|
|00001aa0| 73 69 6f 6e 20 63 61 72 | 64 29 0d 0a 20 20 28 6c |sion car|d).. (l|
|00001ab0| 65 74 2a 20 28 28 70 6c | 61 79 65 72 09 28 63 75 |et* ((pl|ayer.(cu|
|00001ac0| 72 72 65 6e 74 2d 70 6c | 61 79 65 72 20 73 65 73 |rrent-pl|ayer ses|
|00001ad0| 73 69 6f 6e 29 29 0d 0a | 09 09 20 28 63 68 61 72 |sion))..|.. (char|
|00001ae0| 61 63 74 65 72 20 28 63 | 75 72 72 65 6e 74 2d 63 |acter (c|urrent-c|
|00001af0| 68 61 72 61 63 74 65 72 | 20 70 6c 61 79 65 72 29 |haracter| player)|
|00001b00| 29 29 0d 0a 09 28 63 68 | 61 72 61 63 74 65 72 2d |))...(ch|aracter-|
|00001b10| 73 6b 69 70 61 63 74 69 | 6f 6e 2d 73 65 74 20 63 |skipacti|on-set c|
|00001b20| 68 61 72 61 63 74 65 72 | 20 23 66 29 0d 0a 09 28 |haracter| #f)...(|
|00001b30| 63 68 61 72 61 63 74 65 | 72 2d 77 61 6c 6b 2d 73 |characte|r-walk-s|
|00001b40| 65 74 20 63 68 61 72 61 | 63 74 65 72 20 31 29 0d |et chara|cter 1).|
|00001b50| 0a 09 29 0d 0a 20 20 29 | 0d 0a 0d 0a 28 64 65 66 |..).. )|....(def|
|00001b60| 69 6e 65 20 28 73 70 65 | 6c 6c 2d 65 76 65 6e 74 |ine (spe|ll-event|
|00001b70| 2d 70 6c 75 73 32 20 73 | 65 73 73 69 6f 6e 20 63 |-plus2 s|ession c|
|00001b80| 61 72 64 29 0d 0a 20 20 | 28 6c 65 74 2a 20 28 28 |ard).. |(let* ((|
|00001b90| 70 6c 61 79 65 72 09 28 | 63 75 72 72 65 6e 74 2d |player.(|current-|
|00001ba0| 70 6c 61 79 65 72 20 73 | 65 73 73 69 6f 6e 29 29 |player s|ession))|
|00001bb0| 0d 0a 09 09 20 28 63 68 | 61 72 61 63 74 65 72 20 |.... (ch|aracter |
|00001bc0| 28 63 75 72 72 65 6e 74 | 2d 63 68 61 72 61 63 74 |(current|-charact|
|00001bd0| 65 72 20 70 6c 61 79 65 | 72 29 29 29 0d 0a 09 28 |er playe|r)))...(|
|00001be0| 63 68 61 72 61 63 74 65 | 72 2d 73 6b 69 70 61 63 |characte|r-skipac|
|00001bf0| 74 69 6f 6e 2d 73 65 74 | 20 63 68 61 72 61 63 74 |tion-set| charact|
|00001c00| 65 72 20 23 66 29 0d 0a | 09 28 63 68 61 72 61 63 |er #f)..|.(charac|
|00001c10| 74 65 72 2d 77 61 6c 6b | 2d 73 65 74 20 63 68 61 |ter-walk|-set cha|
|00001c20| 72 61 63 74 65 72 20 32 | 29 0d 0a 09 29 0d 0a 20 |racter 2|)...).. |
|00001c30| 20 29 0d 0a 0d 0a 28 64 | 65 66 69 6e 65 20 28 73 | )....(d|efine (s|
|00001c40| 70 65 6c 6c 2d 65 76 65 | 6e 74 2d 70 6c 75 73 33 |pell-eve|nt-plus3|
|00001c50| 20 73 65 73 73 69 6f 6e | 20 63 61 72 64 29 0d 0a | session| card)..|
|00001c60| 20 20 28 6c 65 74 2a 20 | 28 28 70 6c 61 79 65 72 | (let* |((player|
|00001c70| 09 28 63 75 72 72 65 6e | 74 2d 70 6c 61 79 65 72 |.(curren|t-player|
|00001c80| 20 73 65 73 73 69 6f 6e | 29 29 0d 0a 09 09 20 28 | session|)).... (|
|00001c90| 63 68 61 72 61 63 74 65 | 72 20 28 63 75 72 72 65 |characte|r (curre|
|00001ca0| 6e 74 2d 63 68 61 72 61 | 63 74 65 72 20 70 6c 61 |nt-chara|cter pla|
|00001cb0| 79 65 72 29 29 29 0d 0a | 09 28 63 68 61 72 61 63 |yer)))..|.(charac|
|00001cc0| 74 65 72 2d 73 6b 69 70 | 61 63 74 69 6f 6e 2d 73 |ter-skip|action-s|
|00001cd0| 65 74 20 63 68 61 72 61 | 63 74 65 72 20 23 66 29 |et chara|cter #f)|
|00001ce0| 0d 0a 09 28 63 68 61 72 | 61 63 74 65 72 2d 77 61 |...(char|acter-wa|
|00001cf0| 6c 6b 2d 73 65 74 20 63 | 68 61 72 61 63 74 65 72 |lk-set c|haracter|
|00001d00| 20 33 29 0d 0a 09 29 0d | 0a 20 20 29 0d 0a 0d 0a | 3)...).|. )....|
|00001d10| 28 64 65 66 69 6e 65 20 | 28 73 70 65 6c 6c 2d 65 |(define |(spell-e|
|00001d20| 76 65 6e 74 2d 70 6c 75 | 73 34 20 73 65 73 73 69 |vent-plu|s4 sessi|
|00001d30| 6f 6e 20 63 61 72 64 29 | 0d 0a 20 20 28 6c 65 74 |on card)|.. (let|
|00001d40| 2a 20 28 28 70 6c 61 79 | 65 72 09 28 63 75 72 72 |* ((play|er.(curr|
|00001d50| 65 6e 74 2d 70 6c 61 79 | 65 72 20 73 65 73 73 69 |ent-play|er sessi|
|00001d60| 6f 6e 29 29 0d 0a 09 09 | 20 28 63 68 61 72 61 63 |on))....| (charac|
|00001d70| 74 65 72 20 28 63 75 72 | 72 65 6e 74 2d 63 68 61 |ter (cur|rent-cha|
|00001d80| 72 61 63 74 65 72 20 70 | 6c 61 79 65 72 29 29 29 |racter p|layer)))|
|00001d90| 0d 0a 09 28 63 68 61 72 | 61 63 74 65 72 2d 73 6b |...(char|acter-sk|
|00001da0| 69 70 61 63 74 69 6f 6e | 2d 73 65 74 20 63 68 61 |ipaction|-set cha|
|00001db0| 72 61 63 74 65 72 20 23 | 66 29 0d 0a 09 28 63 68 |racter #|f)...(ch|
|00001dc0| 61 72 61 63 74 65 72 2d | 77 61 6c 6b 2d 73 65 74 |aracter-|walk-set|
|00001dd0| 20 63 68 61 72 61 63 74 | 65 72 20 34 29 0d 0a 09 | charact|er 4)...|
|00001de0| 29 0d 0a 20 20 29 0d 0a | 0d 0a 28 64 65 66 69 6e |).. )..|..(defin|
|00001df0| 65 20 28 73 70 65 6c 6c | 2d 65 76 65 6e 74 2d 70 |e (spell|-event-p|
|00001e00| 6c 75 73 35 20 73 65 73 | 73 69 6f 6e 20 63 61 72 |lus5 ses|sion car|
|00001e10| 64 29 0d 0a 20 20 28 6c | 65 74 2a 20 28 28 70 6c |d).. (l|et* ((pl|
|00001e20| 61 79 65 72 09 28 63 75 | 72 72 65 6e 74 2d 70 6c |ayer.(cu|rrent-pl|
|00001e30| 61 79 65 72 20 73 65 73 | 73 69 6f 6e 29 29 0d 0a |ayer ses|sion))..|
|00001e40| 09 09 20 28 63 68 61 72 | 61 63 74 65 72 20 28 63 |.. (char|acter (c|
|00001e50| 75 72 72 65 6e 74 2d 63 | 68 61 72 61 63 74 65 72 |urrent-c|haracter|
|00001e60| 20 70 6c 61 79 65 72 29 | 29 29 0d 0a 09 28 63 68 | player)|))...(ch|
|00001e70| 61 72 61 63 74 65 72 2d | 73 6b 69 70 61 63 74 69 |aracter-|skipacti|
|00001e80| 6f 6e 2d 73 65 74 20 63 | 68 61 72 61 63 74 65 72 |on-set c|haracter|
|00001e90| 20 23 66 29 0d 0a 09 28 | 63 68 61 72 61 63 74 65 | #f)...(|characte|
|00001ea0| 72 2d 77 61 6c 6b 2d 73 | 65 74 20 63 68 61 72 61 |r-walk-s|et chara|
|00001eb0| 63 74 65 72 20 35 29 0d | 0a 09 29 0d 0a 20 20 29 |cter 5).|..).. )|
|00001ec0| 0d 0a 0d 0a 28 64 65 66 | 69 6e 65 20 28 73 70 65 |....(def|ine (spe|
|00001ed0| 6c 6c 2d 65 76 65 6e 74 | 2d 70 6c 75 73 36 20 73 |ll-event|-plus6 s|
|00001ee0| 65 73 73 69 6f 6e 20 63 | 61 72 64 29 0d 0a 20 20 |ession c|ard).. |
|00001ef0| 28 6c 65 74 2a 20 28 28 | 70 6c 61 79 65 72 09 28 |(let* ((|player.(|
|00001f00| 63 75 72 72 65 6e 74 2d | 70 6c 61 79 65 72 20 73 |current-|player s|
|00001f10| 65 73 73 69 6f 6e 29 29 | 0d 0a 09 09 20 28 63 68 |ession))|.... (ch|
|00001f20| 61 72 61 63 74 65 72 20 | 28 63 75 72 72 65 6e 74 |aracter |(current|
|00001f30| 2d 63 68 61 72 61 63 74 | 65 72 20 70 6c 61 79 65 |-charact|er playe|
|00001f40| 72 29 29 29 0d 0a 09 28 | 63 68 61 72 61 63 74 65 |r)))...(|characte|
|00001f50| 72 2d 73 6b 69 70 61 63 | 74 69 6f 6e 2d 73 65 74 |r-skipac|tion-set|
|00001f60| 20 63 68 61 72 61 63 74 | 65 72 20 23 66 29 0d 0a | charact|er #f)..|
|00001f70| 09 28 63 68 61 72 61 63 | 74 65 72 2d 77 61 6c 6b |.(charac|ter-walk|
|00001f80| 2d 73 65 74 20 63 68 61 | 72 61 63 74 65 72 20 36 |-set cha|racter 6|
|00001f90| 29 0d 0a 09 29 0d 0a 20 | 20 29 0d 0a 0d 0a 28 64 |)...).. | )....(d|
|00001fa0| 65 66 69 6e 65 20 28 73 | 70 65 6c 6c 2d 65 76 65 |efine (s|pell-eve|
|00001fb0| 6e 74 2d 64 6f 75 62 6c | 65 20 73 65 73 73 69 6f |nt-doubl|e sessio|
|00001fc0| 6e 20 63 61 72 64 29 0d | 0a 20 20 28 6c 65 74 2a |n card).|. (let*|
|00001fd0| 20 28 28 70 6c 61 79 65 | 72 09 28 63 75 72 72 65 | ((playe|r.(curre|
|00001fe0| 6e 74 2d 70 6c 61 79 65 | 72 20 73 65 73 73 69 6f |nt-playe|r sessio|
|00001ff0| 6e 29 29 0d 0a 09 09 20 | 28 63 68 61 72 61 63 74 |n)).... |(charact|
|00002000| 65 72 20 28 63 75 72 72 | 65 6e 74 2d 63 68 61 72 |er (curr|ent-char|
|00002010| 61 63 74 65 72 20 70 6c | 61 79 65 72 29 29 29 0d |acter pl|ayer))).|
|00002020| 0a 09 28 63 68 61 72 61 | 63 74 65 72 2d 73 6b 69 |..(chara|cter-ski|
|00002030| 70 61 63 74 69 6f 6e 2d | 73 65 74 20 63 68 61 72 |paction-|set char|
|00002040| 61 63 74 65 72 20 23 66 | 29 0d 0a 09 28 63 68 61 |acter #f|)...(cha|
|00002050| 72 61 63 74 65 72 2d 77 | 61 6c 6b 2d 73 65 74 20 |racter-w|alk-set |
|00002060| 63 68 61 72 61 63 74 65 | 72 20 28 63 61 6c 6c 2d |characte|r (call-|
|00002070| 70 6c 61 79 2d 64 69 63 | 65 20 32 29 29 0d 0a 09 |play-dic|e 2))...|
|00002080| 29 0d 0a 20 20 29 0d 0a | 0d 0a 28 64 65 66 69 6e |).. )..|..(defin|
|00002090| 65 20 28 73 70 65 6c 6c | 2d 65 76 65 6e 74 2d 74 |e (spell|-event-t|
|000020a0| 72 69 70 6c 65 20 73 65 | 73 73 69 6f 6e 20 63 61 |riple se|ssion ca|
|000020b0| 72 64 29 0d 0a 20 20 28 | 6c 65 74 2a 20 28 28 70 |rd).. (|let* ((p|
|000020c0| 6c 61 79 65 72 09 28 63 | 75 72 72 65 6e 74 2d 70 |layer.(c|urrent-p|
|000020d0| 6c 61 79 65 72 20 73 65 | 73 73 69 6f 6e 29 29 0d |layer se|ssion)).|
|000020e0| 0a 09 09 20 28 63 68 61 | 72 61 63 74 65 72 20 28 |... (cha|racter (|
|000020f0| 63 75 72 72 65 6e 74 2d | 63 68 61 72 61 63 74 65 |current-|characte|
|00002100| 72 20 70 6c 61 79 65 72 | 29 29 29 0d 0a 09 28 63 |r player|)))...(c|
|00002110| 68 61 72 61 63 74 65 72 | 2d 73 6b 69 70 61 63 74 |haracter|-skipact|
|00002120| 69 6f 6e 2d 73 65 74 20 | 63 68 61 72 61 63 74 65 |ion-set |characte|
|00002130| 72 20 23 66 29 0d 0a 09 | 28 63 68 61 72 61 63 74 |r #f)...|(charact|
|00002140| 65 72 2d 77 61 6c 6b 2d | 73 65 74 20 63 68 61 72 |er-walk-|set char|
|00002150| 61 63 74 65 72 20 28 63 | 61 6c 6c 2d 70 6c 61 79 |acter (c|all-play|
|00002160| 2d 64 69 63 65 20 33 29 | 29 0d 0a 09 29 0d 0a 20 |-dice 3)|)...).. |
|00002170| 20 29 0d 0a 0d 0a 28 64 | 65 66 69 6e 65 20 28 73 | )....(d|efine (s|
|00002180| 70 65 6c 6c 2d 65 76 65 | 6e 74 2d 6a 75 6d 70 20 |pell-eve|nt-jump |
|00002190| 73 65 73 73 69 6f 6e 20 | 63 61 72 64 29 0d 0a 20 |session |card).. |
|000021a0| 20 28 6c 65 74 2a 20 28 | 28 70 6c 61 79 65 72 09 | (let* (|(player.|
|000021b0| 28 63 75 72 72 65 6e 74 | 2d 70 6c 61 79 65 72 20 |(current|-player |
|000021c0| 73 65 73 73 69 6f 6e 29 | 29 0d 0a 09 09 20 28 63 |session)|).... (c|
|000021d0| 68 61 72 61 63 74 65 72 | 20 28 63 75 72 72 65 6e |haracter| (curren|
|000021e0| 74 2d 63 68 61 72 61 63 | 74 65 72 20 70 6c 61 79 |t-charac|ter play|
|000021f0| 65 72 29 29 0d 0a 09 09 | 20 28 6c 6f 63 61 74 69 |er))....| (locati|
|00002200| 6f 6e 09 28 63 68 61 72 | 61 63 74 65 72 2d 6c 6f |on.(char|acter-lo|
|00002210| 63 61 74 69 6f 6e 2d 67 | 65 74 20 63 68 61 72 61 |cation-g|et chara|
|00002220| 63 74 65 72 29 29 0d 0a | 09 09 20 28 72 61 6e 6b |cter))..|.. (rank|
|00002230| 09 09 23 66 29 29 0d 0a | 09 28 69 66 20 28 3c 20 |..#f))..|.(if (< |
|00002240| 31 20 28 6e 6f 64 65 2d | 6c 69 6e 6b 73 2d 6c 65 |1 (node-|links-le|
|00002250| 6e 67 74 68 20 6c 6f 63 | 61 74 69 6f 6e 29 29 0d |ngth loc|ation)).|
|00002260| 0a 09 09 3b 3b 20 95 aa | 8a f2 82 c5 82 cd 83 57 |...;; ..|.......W|
|00002270| 83 83 83 93 83 76 82 c5 | 82 ab 82 c8 82 a2 0d 0a |.....v..|........|
|00002280| 09 09 28 63 61 6c 6c 2d | 70 72 6f 6d 70 74 20 22 |..(call-|prompt "|
|00002290| 3c 70 3e 6e 6f 20 6a 75 | 6d 70 3c 2f 70 3e 22 29 |<p>no ju|mp</p>")|
|000022a0| 0d 0a 09 09 3b 3b 20 22 | 6a 75 6d 70 22 28 73 79 |....;; "|jump"(sy|
|000022b0| 73 74 65 6d 2e 76 73 63 | 29 0d 0a 09 09 28 62 65 |stem.vsc|)....(be|
|000022c0| 67 69 6e 0d 0a 09 09 20 | 20 28 73 65 74 21 20 72 |gin.... | (set! r|
|000022d0| 61 6e 6b 20 28 63 61 6c | 6c 2d 67 65 74 2d 72 61 |ank (cal|l-get-ra|
|000022e0| 6e 6b 20 63 68 61 72 61 | 63 74 65 72 20 23 66 29 |nk chara|cter #f)|
|000022f0| 29 0d 0a 09 09 20 20 28 | 63 61 6c 6c 2d 70 72 6f |).... (|call-pro|
|00002300| 6d 70 74 20 22 3c 70 3e | 22 0d 0a 09 09 09 09 09 |mpt "<p>|".......|
|00002310| 20 20 20 28 63 68 61 72 | 61 63 74 65 72 2d 6e 61 | (char|acter-na|
|00002320| 6d 65 2d 67 65 74 20 63 | 68 61 72 61 63 74 65 72 |me-get c|haracter|
|00002330| 29 0d 0a 09 09 09 09 09 | 20 20 20 22 20 4a 65 74 |).......| " Jet|
|00002340| 7a 74 2e 20 45 73 20 69 | 73 74 20 68 69 65 72 20 |zt. Es i|st hier |
|00002350| 22 0d 0a 09 09 09 09 09 | 20 20 20 28 6e 75 6d 62 |".......| (numb|
|00002360| 65 72 2d 3e 73 74 72 69 | 6e 67 20 28 2b 20 72 61 |er->stri|ng (+ ra|
|00002370| 6e 6b 20 31 29 29 0d 0a | 09 09 09 09 09 20 20 20 |nk 1))..|..... |
|00002380| 22 20 69 6e 20 64 69 65 | 20 54 61 62 65 6c 6c 65 |" in die| Tabelle|
|00002390| 2c 20 22 0d 0a 09 09 09 | 09 09 20 20 20 28 6e 75 |, ".....|.. (nu|
|000023a0| 6d 62 65 72 2d 3e 73 74 | 72 69 6e 67 20 28 2b 20 |mber->st|ring (+ |
|000023b0| 72 61 6e 6b 20 31 29 29 | 0d 0a 09 09 09 09 09 20 |rank 1))|....... |
|000023c0| 20 20 22 20 73 70 72 69 | 6e 67 65 20 62 69 73 20 | " spri|nge bis |
|000023d0| 64 6f 72 74 68 69 6e 21 | 3c 2f 70 3e 22 29 0d 0a |dorthin!|</p>")..|
|000023e0| 09 09 20 20 28 6a 75 6d | 70 20 73 65 73 73 69 6f |.. (jum|p sessio|
|000023f0| 6e 20 28 2b 20 72 61 6e | 6b 20 31 29 29 0d 0a 09 |n (+ ran|k 1))...|
|00002400| 09 20 20 28 63 68 61 72 | 61 63 74 65 72 2d 73 6b |. (char|acter-sk|
|00002410| 69 70 61 63 74 69 6f 6e | 2d 73 65 74 20 63 68 61 |ipaction|-set cha|
|00002420| 72 61 63 74 65 72 20 23 | 66 29 0d 0a 09 09 20 20 |racter #|f).... |
|00002430| 28 63 68 61 72 61 63 74 | 65 72 2d 77 61 6c 6b 2d |(charact|er-walk-|
|00002440| 73 65 74 20 63 68 61 72 | 61 63 74 65 72 20 30 29 |set char|acter 0)|
|00002450| 29 0d 0a 09 09 29 0d 0a | 09 29 0d 0a 20 20 29 0d |)....)..|.).. ).|
|00002460| 0a 0d 0a 28 64 65 66 69 | 6e 65 20 28 73 70 65 6c |...(defi|ne (spel|
|00002470| 6c 2d 65 76 65 6e 74 2d | 73 65 63 72 65 74 20 73 |l-event-|secret s|
|00002480| 65 73 73 69 6f 6e 20 73 | 70 65 6c 6c 2d 63 61 72 |ession s|pell-car|
|00002490| 64 29 0d 0a 20 20 28 6c | 65 74 2a 20 28 28 70 6c |d).. (l|et* ((pl|
|000024a0| 61 79 65 72 09 28 63 75 | 72 72 65 6e 74 2d 70 6c |ayer.(cu|rrent-pl|
|000024b0| 61 79 65 72 20 73 65 73 | 73 69 6f 6e 29 29 0d 0a |ayer ses|sion))..|
|000024c0| 09 09 20 28 63 68 61 72 | 61 63 74 65 72 20 28 63 |.. (char|acter (c|
|000024d0| 75 72 72 65 6e 74 2d 63 | 68 61 72 61 63 74 65 72 |urrent-c|haracter|
|000024e0| 20 70 6c 61 79 65 72 29 | 29 0d 0a 09 09 20 28 63 | player)|).... (c|
|000024f0| 61 72 64 09 09 28 63 61 | 6c 6c 2d 67 65 6e 65 72 |ard..(ca|ll-gener|
|00002500| 61 74 65 2d 6d 6f 76 69 | 65 2d 63 61 72 64 20 23 |ate-movi|e-card #|
|00002510| 66 29 29 0d 0a 09 09 20 | 28 67 6f 6c 64 09 09 28 |f)).... |(gold..(|
|00002520| 63 61 72 20 63 61 72 64 | 29 29 0d 0a 09 09 20 28 |car card|)).... (|
|00002530| 73 69 6c 76 65 72 09 28 | 63 64 72 20 63 61 72 64 |silver.(|cdr card|
|00002540| 29 29 0d 0a 09 09 20 29 | 0d 0a 09 28 63 61 6c 6c |)).... )|...(call|
|00002550| 2d 73 68 6f 77 2d 6d 6f | 76 69 65 2d 63 61 72 64 |-show-mo|vie-card|
|00002560| 20 67 6f 6c 64 20 73 69 | 6c 76 65 72 29 0d 0a 09 | gold si|lver)...|
|00002570| 28 63 61 6c 6c 2d 70 72 | 6f 6d 70 74 20 22 3c 70 |(call-pr|ompt "<p|
|00002580| 3e 44 69 65 20 53 65 63 | 72 65 74 20 43 61 72 64 |>Die Sec|ret Card|
|00002590| 2c 20 77 61 72 27 73 3c | 62 72 2f 3e 22 0d 0a 09 |, war's<|br/>"...|
|000025a0| 09 09 09 20 28 63 61 6c | 6c 2d 67 65 74 2d 6d 6f |... (cal|l-get-mo|
|000025b0| 76 69 65 2d 70 72 69 63 | 65 64 2d 74 65 78 74 20 |vie-pric|ed-text |
|000025c0| 23 66 20 67 6f 6c 64 20 | 73 69 6c 76 65 72 29 0d |#f gold |silver).|
|000025d0| 0a 09 09 09 09 20 22 21 | 3c 2f 70 3e 22 29 0d 0a |..... "!|</p>")..|
|000025e0| 09 28 63 61 6c 6c 2d 70 | 72 6f 6d 70 74 20 22 3c |.(call-p|rompt "<|
|000025f0| 70 3e 44 75 20 68 61 73 | 74 20 65 73 20 65 69 6e |p>Du has|t es ein|
|00002600| 67 65 73 65 74 7a 74 20 | 75 6e 64 20 6a 65 74 7a |gesetzt |und jetz|
|00002610| 74 20 68 61 73 74 20 64 | 75 20 65 73 20 6e 69 63 |t hast d|u es nic|
|00002620| 68 74 20 6d 65 68 72 2e | 20 45 73 20 74 75 74 20 |ht mehr.| Es tut |
|00002630| 75 6e 73 20 6c 65 69 64 | 21 3c 2f 70 3e 22 29 0d |uns leid|!</p>").|
|00002640| 0a 09 28 63 61 6c 6c 2d | 68 69 64 65 2d 6d 6f 76 |..(call-|hide-mov|
|00002650| 69 65 2d 63 61 72 64 29 | 0d 0a 09 29 0d 0a 20 20 |ie-card)|...).. |
|00002660| 29 0d 0a 0d 0a 28 64 65 | 66 69 6e 65 20 28 73 70 |)....(de|fine (sp|
|00002670| 65 6c 6c 2d 65 76 65 6e | 74 2d 6d 79 73 74 65 72 |ell-even|t-myster|
|00002680| 79 20 73 65 73 73 69 6f | 6e 20 73 70 65 6c 6c 2d |y sessio|n spell-|
|00002690| 63 61 72 64 29 0d 0a 20 | 20 28 6c 65 74 2a 20 28 |card).. | (let* (|
|000026a0| 28 70 6c 61 79 65 72 09 | 28 63 75 72 72 65 6e 74 |(player.|(current|
|000026b0| 2d 70 6c 61 79 65 72 20 | 73 65 73 73 69 6f 6e 29 |-player |session)|
|000026c0| 29 0d 0a 09 09 20 28 63 | 68 61 72 61 63 74 65 72 |).... (c|haracter|
|000026d0| 20 28 63 75 72 72 65 6e | 74 2d 63 68 61 72 61 63 | (curren|t-charac|
|000026e0| 74 65 72 20 70 6c 61 79 | 65 72 29 29 0d 0a 09 09 |ter play|er))....|
|000026f0| 20 28 63 61 72 64 09 09 | 28 63 61 6c 6c 2d 67 65 | (card..|(call-ge|
|00002700| 6e 65 72 61 74 65 2d 6d | 6f 76 69 65 2d 63 61 72 |nerate-m|ovie-car|
|00002710| 64 20 23 66 29 29 0d 0a | 09 09 20 28 67 6f 6c 64 |d #f))..|.. (gold|
|00002720| 09 09 28 63 61 72 20 63 | 61 72 64 29 29 0d 0a 09 |..(car c|ard))...|
|00002730| 09 20 28 73 69 6c 76 65 | 72 09 28 63 64 72 20 63 |. (silve|r.(cdr c|
|00002740| 61 72 64 29 29 0d 0a 09 | 09 20 29 0d 0a 09 28 63 |ard))...|. )...(c|
|00002750| 61 6c 6c 2d 73 68 6f 77 | 2d 6d 6f 76 69 65 2d 63 |all-show|-movie-c|
|00002760| 61 72 64 20 67 6f 6c 64 | 20 73 69 6c 76 65 72 29 |ard gold| silver)|
|00002770| 0d 0a 09 28 63 61 6c 6c | 2d 70 72 6f 6d 70 74 20 |...(call|-prompt |
|00002780| 22 3c 70 3e 44 69 65 20 | 4d 69 73 74 65 72 79 20 |"<p>Die |Mistery |
|00002790| 43 61 72 64 2c 20 77 61 | 72 27 73 3c 62 72 2f 3e |Card, wa|r's<br/>|
|000027a0| 22 0d 0a 09 09 09 09 20 | 28 63 61 6c 6c 2d 67 65 |"...... |(call-ge|
|000027b0| 74 2d 6d 6f 76 69 65 2d | 70 72 69 63 65 64 2d 74 |t-movie-|priced-t|
|000027c0| 65 78 74 20 23 66 20 67 | 6f 6c 64 20 73 69 6c 76 |ext #f g|old silv|
|000027d0| 65 72 29 0d 0a 09 09 09 | 09 20 22 21 3c 2f 70 3e |er).....|. "!</p>|
|000027e0| 22 29 0d 0a 09 28 63 61 | 6c 6c 2d 70 72 6f 6d 70 |")...(ca|ll-promp|
|000027f0| 74 20 22 3c 70 3e 44 75 | 20 68 61 73 74 20 65 73 |t "<p>Du| hast es|
|00002800| 20 65 69 6e 67 65 73 65 | 74 7a 74 20 75 6e 64 20 | eingese|tzt und |
|00002810| 6a 65 74 7a 74 20 68 61 | 73 74 20 64 75 20 65 73 |jetzt ha|st du es|
|00002820| 20 6e 69 63 68 74 20 6d | 65 68 72 2e 20 45 73 20 | nicht m|ehr. Es |
|00002830| 74 75 74 20 75 6e 73 20 | 6c 65 69 64 21 3c 2f 70 |tut uns |leid!</p|
|00002840| 3e 22 29 0d 0a 09 28 63 | 61 6c 6c 2d 68 69 64 65 |>")...(c|all-hide|
|00002850| 2d 6d 6f 76 69 65 2d 63 | 61 72 64 29 0d 0a 09 29 |-movie-c|ard)...)|
|00002860| 0d 0a 20 20 29 0d 0a 0d | 0a 28 64 65 66 69 6e 65 |.. )...|.(define|
|00002870| 20 28 73 70 65 6c 6c 2d | 65 76 65 6e 74 2d 76 6f | (spell-|event-vo|
|00002880| 69 63 65 20 73 65 73 73 | 69 6f 6e 20 63 61 72 64 |ice sess|ion card|
|00002890| 29 0d 0a 20 20 28 6c 65 | 74 2a 20 28 28 70 6c 61 |).. (le|t* ((pla|
|000028a0| 79 65 72 09 28 63 75 72 | 72 65 6e 74 2d 70 6c 61 |yer.(cur|rent-pla|
|000028b0| 79 65 72 20 73 65 73 73 | 69 6f 6e 29 29 0d 0a 09 |yer sess|ion))...|
|000028c0| 09 20 28 63 68 61 72 61 | 63 74 65 72 20 28 63 75 |. (chara|cter (cu|
|000028d0| 72 72 65 6e 74 2d 63 68 | 61 72 61 63 74 65 72 20 |rrent-ch|aracter |
|000028e0| 70 6c 61 79 65 72 29 29 | 29 0d 0a 09 28 63 68 61 |player))|)...(cha|
|000028f0| 72 61 63 74 65 72 2d 77 | 61 6c 6b 62 6f 6e 75 73 |racter-w|alkbonus|
|00002900| 2d 61 70 70 6c 79 20 63 | 68 61 72 61 63 74 65 72 |-apply c|haracter|
|00002910| 20 28 6c 61 6d 62 64 61 | 20 28 78 29 20 28 2b 20 | (lambda| (x) (+ |
|00002920| 78 20 31 30 30 29 29 29 | 0d 0a 09 28 63 61 6c 6c |x 100)))|...(call|
|00002930| 2d 70 6c 61 79 2d 73 65 | 20 3d 74 65 6c 65 63 61 |-play-se| =teleca|
|00002940| 3d 20 23 66 29 0d 0a 09 | 28 63 61 6c 6c 2d 77 61 |= #f)...|(call-wa|
|00002950| 69 74 2d 61 2d 6d 6f 6d | 65 6e 74 20 36 30 29 0d |it-a-mom|ent 60).|
|00002960| 0a 09 28 63 61 6c 6c 2d | 70 6c 61 79 2d 76 6f 69 |..(call-|play-voi|
|00002970| 63 65 20 28 73 70 65 6c | 6c 2d 73 6f 75 6e 64 70 |ce (spel|l-soundp|
|00002980| 61 74 68 2d 67 65 74 20 | 28 63 61 6c 6c 2d 70 75 |ath-get |(call-pu|
|00002990| 6c 6c 2d 73 70 65 6c 6c | 20 63 61 72 64 29 29 29 |ll-spell| card)))|
|000029a0| 0d 0a 09 29 0d 0a 20 20 | 29 0d 0a 0d 0a 28 64 65 |...).. |)....(de|
|000029b0| 66 69 6e 65 20 2a 73 70 | 65 6c 6c 2d 65 76 65 6e |fine *sp|ell-even|
|000029c0| 74 73 2a 20 60 28 0d 0a | 09 09 09 09 09 09 20 28 |ts* `(..|...... (|
|000029d0| 73 70 65 6c 6c 2d 65 76 | 65 6e 74 2d 63 61 72 64 |spell-ev|ent-card|
|000029e0| 62 6f 61 72 64 09 2e 09 | 2c 73 70 65 6c 6c 2d 65 |board...|,spell-e|
|000029f0| 76 65 6e 74 2d 63 61 72 | 64 62 6f 61 72 64 29 0d |vent-car|dboard).|
|00002a00| 0a 09 09 09 09 09 09 20 | 28 73 70 65 6c 6c 2d 65 |....... |(spell-e|
|00002a10| 76 65 6e 74 2d 65 78 63 | 68 61 6e 67 65 09 2e 09 |vent-exc|hange...|
|00002a20| 2c 73 70 65 6c 6c 2d 65 | 76 65 6e 74 2d 65 78 63 |,spell-e|vent-exc|
|00002a30| 68 61 6e 67 65 29 0d 0a | 09 09 09 09 09 09 20 28 |hange)..|...... (|
|00002a40| 73 70 65 6c 6c 2d 65 76 | 65 6e 74 2d 63 6f 70 79 |spell-ev|ent-copy|
|00002a50| 20 20 20 09 2e 09 2c 73 | 70 65 6c 6c 2d 65 76 65 | ...,s|pell-eve|
|00002a60| 6e 74 2d 63 6f 70 79 29 | 0d 0a 09 09 09 09 09 09 |nt-copy)|........|
|00002a70| 20 28 73 70 65 6c 6c 2d | 65 76 65 6e 74 2d 6d 6f | (spell-|event-mo|
|00002a80| 76 65 09 09 2e 09 2c 73 | 70 65 6c 6c 2d 65 76 65 |ve....,s|pell-eve|
|00002a90| 6e 74 2d 6d 6f 76 65 29 | 0d 0a 09 09 09 09 09 09 |nt-move)|........|
|00002aa0| 20 28 73 70 65 6c 6c 2d | 65 76 65 6e 74 2d 64 75 | (spell-|event-du|
|00002ab0| 65 6c 09 09 2e 09 2c 73 | 70 65 6c 6c 2d 65 76 65 |el....,s|pell-eve|
|00002ac0| 6e 74 2d 64 75 65 6c 29 | 0d 0a 09 09 09 09 09 09 |nt-duel)|........|
|00002ad0| 20 28 73 70 65 6c 6c 2d | 65 76 65 6e 74 2d 70 6c | (spell-|event-pl|
|00002ae0| 75 73 31 09 09 2e 09 2c | 73 70 65 6c 6c 2d 65 76 |us1....,|spell-ev|
|00002af0| 65 6e 74 2d 70 6c 75 73 | 31 29 0d 0a 09 09 09 09 |ent-plus|1)......|
|00002b00| 09 09 20 28 73 70 65 6c | 6c 2d 65 76 65 6e 74 2d |.. (spel|l-event-|
|00002b10| 70 6c 75 73 32 09 09 2e | 09 2c 73 70 65 6c 6c 2d |plus2...|.,spell-|
|00002b20| 65 76 65 6e 74 2d 70 6c | 75 73 32 29 0d 0a 09 09 |event-pl|us2)....|
|00002b30| 09 09 09 09 20 28 73 70 | 65 6c 6c 2d 65 76 65 6e |.... (sp|ell-even|
|00002b40| 74 2d 70 6c 75 73 33 09 | 09 2e 09 2c 73 70 65 6c |t-plus3.|...,spel|
|00002b50| 6c 2d 65 76 65 6e 74 2d | 70 6c 75 73 33 29 0d 0a |l-event-|plus3)..|
|00002b60| 09 09 09 09 09 09 20 28 | 73 70 65 6c 6c 2d 65 76 |...... (|spell-ev|
|00002b70| 65 6e 74 2d 70 6c 75 73 | 34 09 09 2e 09 2c 73 70 |ent-plus|4....,sp|
|00002b80| 65 6c 6c 2d 65 76 65 6e | 74 2d 70 6c 75 73 34 29 |ell-even|t-plus4)|
|00002b90| 0d 0a 09 09 09 09 09 09 | 20 28 73 70 65 6c 6c 2d |........| (spell-|
|00002ba0| 65 76 65 6e 74 2d 70 6c | 75 73 35 09 09 2e 09 2c |event-pl|us5....,|
|00002bb0| 73 70 65 6c 6c 2d 65 76 | 65 6e 74 2d 70 6c 75 73 |spell-ev|ent-plus|
|00002bc0| 35 29 0d 0a 09 09 09 09 | 09 09 20 28 73 70 65 6c |5)......|.. (spel|
|00002bd0| 6c 2d 65 76 65 6e 74 2d | 70 6c 75 73 36 09 09 2e |l-event-|plus6...|
|00002be0| 09 2c 73 70 65 6c 6c 2d | 65 76 65 6e 74 2d 70 6c |.,spell-|event-pl|
|00002bf0| 75 73 36 29 0d 0a 09 09 | 09 09 09 09 20 28 73 70 |us6)....|.... (sp|
|00002c00| 65 6c 6c 2d 65 76 65 6e | 74 2d 64 6f 75 62 6c 65 |ell-even|t-double|
|00002c10| 09 2e 09 2c 73 70 65 6c | 6c 2d 65 76 65 6e 74 2d |...,spel|l-event-|
|00002c20| 64 6f 75 62 6c 65 29 0d | 0a 09 09 09 09 09 09 20 |double).|....... |
|00002c30| 28 73 70 65 6c 6c 2d 65 | 76 65 6e 74 2d 74 72 69 |(spell-e|vent-tri|
|00002c40| 70 6c 65 09 2e 09 2c 73 | 70 65 6c 6c 2d 65 76 65 |ple...,s|pell-eve|
|00002c50| 6e 74 2d 74 72 69 70 6c | 65 29 0d 0a 09 09 09 09 |nt-tripl|e)......|
|00002c60| 09 09 20 28 73 70 65 6c | 6c 2d 65 76 65 6e 74 2d |.. (spel|l-event-|
|00002c70| 6a 75 6d 70 09 09 2e 09 | 2c 73 70 65 6c 6c 2d 65 |jump....|,spell-e|
|00002c80| 76 65 6e 74 2d 6a 75 6d | 70 29 0d 0a 09 09 09 09 |vent-jum|p)......|
|00002c90| 09 09 20 28 73 70 65 6c | 6c 2d 65 76 65 6e 74 2d |.. (spel|l-event-|
|00002ca0| 76 6f 69 63 65 09 09 2e | 09 2c 73 70 65 6c 6c 2d |voice...|.,spell-|
|00002cb0| 65 76 65 6e 74 2d 76 6f | 69 63 65 29 0d 0a 09 09 |event-vo|ice)....|
|00002cc0| 09 09 09 09 20 28 73 70 | 65 6c 6c 2d 65 76 65 6e |.... (sp|ell-even|
|00002cd0| 74 2d 73 65 63 72 65 74 | 09 2e 09 2c 73 70 65 6c |t-secret|...,spel|
|00002ce0| 6c 2d 65 76 65 6e 74 2d | 73 65 63 72 65 74 29 0d |l-event-|secret).|
|00002cf0| 0a 09 09 09 09 09 09 20 | 28 73 70 65 6c 6c 2d 65 |....... |(spell-e|
|00002d00| 76 65 6e 74 2d 6d 79 73 | 74 65 72 79 09 2e 09 2c |vent-mys|tery...,|
|00002d10| 73 70 65 6c 6c 2d 65 76 | 65 6e 74 2d 6d 79 73 74 |spell-ev|ent-myst|
|00002d20| 65 72 79 29 0d 0a 09 09 | 09 09 09 09 20 29 0d 0a |ery)....|.... )..|
|00002d30| 20 20 29 0d 0a 0d 0a 00 | 00 00 00 00 00 00 00 00 | ).....|........|
|00002d40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002d50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002d60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002d70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002d80| 00 00 01 00 00 00 01 00 | 00 00 00 00 00 00 00 1e |........|........|
|00002d90| 54 68 69 73 20 72 65 73 | 6f 75 72 63 65 20 66 6f |This res|ource fo|
|00002da0| 72 6b 20 69 6e 74 65 6e | 74 69 6f 6e 61 6c 6c 79 |rk inten|tionally|
|00002db0| 20 6c 65 66 74 20 62 6c | 61 6e 6b 20 20 20 00 00 | left bl|ank ..|
|00002dc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002dd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002de0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002df0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002e00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002e10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002e20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002e30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002e40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002e50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002e60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002e70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002e80| 00 00 01 00 00 00 01 00 | 00 00 00 00 00 00 00 1e |........|........|
|00002e90| 00 00 00 00 00 00 00 00 | 00 1c 00 1e ff ff 00 00 |........|........|
|00002ea0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002eb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002ec0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002ed0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002ee0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002ef0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+
