home *** CD-ROM | disk | FTP | other *** search
| Unknown | 2001-10-08 | 11.0 KB |
view JSON data
|
view as text
|
open on a Mac
|
open on a PC
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
| |
| 100%
| TrID
| Adobe PhotoShop Brush
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 00 10 00 25 01 24 | 00 00 00 38 00 00 00 20 |.....%.$|...8... |
|00000010| 00 07 00 00 00 00 00 00 | 2b 52 00 00 2b 78 00 00 |........|+R..+x..|
|00000020| 2b 99 00 00 2b 99 00 00 | 2b 9b 00 00 2b 9b 00 00 |+...+...|+...+...|
|00000030| 2b 9b 6f 6e 20 73 74 61 | 72 74 4d 6f 76 69 65 0d |+.on sta|rtMovie.|
|00000040| 20 20 69 6e 73 74 61 6c | 6c 6d 65 6e 75 20 41 31 | instal|lmenu A1|
|00000050| 31 0d 20 20 69 66 20 74 | 68 65 20 63 6f 6c 6f 72 |1. if t|he color|
|00000060| 51 44 20 74 68 65 6e 0d | 20 20 20 20 69 66 20 74 |QD then.| if t|
|00000070| 68 65 20 63 6f 6c 6f 72 | 44 65 70 74 68 20 3c 3e |he color|Depth <>|
|00000080| 20 38 20 74 68 65 6e 20 | 73 65 74 20 74 68 65 20 | 8 then |set the |
|00000090| 63 6f 6c 6f 72 44 65 70 | 74 68 20 3d 20 38 0d 20 |colorDep|th = 8. |
|000000a0| 20 65 6e 64 20 69 66 0d | 20 20 77 68 65 6e 20 74 | end if.| when t|
|000000b0| 69 6d 65 6f 75 74 20 74 | 68 65 6e 20 6e 6f 74 68 |imeout t|hen noth|
|000000c0| 69 6e 67 0d 20 20 67 6c | 6f 62 61 6c 20 68 6f 77 |ing. gl|obal how|
|000000d0| 48 61 72 64 2c 20 73 63 | 6f 72 65 0d 20 20 73 65 |Hard, sc|ore. se|
|000000e0| 74 48 61 72 64 6e 65 73 | 73 20 28 32 2c 22 48 4f |tHardnes|s (2,"HO|
|000000f0| 54 22 29 0d 20 20 70 75 | 70 70 65 74 53 70 72 69 |T"). pu|ppetSpri|
|00000100| 74 65 20 32 2c 20 54 52 | 55 45 0d 20 20 70 75 74 |te 2, TR|UE. put|
|00000110| 20 22 45 6e 74 65 72 20 | 4e 61 6d 65 22 20 69 6e | "Enter |Name" in|
|00000120| 74 6f 20 66 69 65 6c 64 | 20 22 4e 61 6d 65 22 0d |to field| "Name".|
|00000130| 20 20 70 75 74 20 22 30 | 3a 30 30 3a 30 30 22 20 | put "0|:00:00" |
|00000140| 69 6e 74 6f 20 66 69 65 | 6c 64 20 22 48 69 67 68 |into fie|ld "High|
|00000150| 54 69 6d 65 22 0d 20 20 | 70 75 74 20 22 30 3a 30 |Time". |put "0:0|
|00000160| 30 3a 30 30 22 20 69 6e | 74 6f 20 66 69 65 6c 64 |0:00" in|to field|
|00000170| 20 22 59 6f 75 72 54 69 | 6d 65 22 0d 20 20 70 75 | "YourTi|me". pu|
|00000180| 74 20 22 2d 2d 58 2d 2d | 22 20 69 6e 74 6f 20 66 |t "--X--|" into f|
|00000190| 69 65 6c 64 20 22 52 65 | 73 75 6c 74 22 0d 20 20 |ield "Re|sult". |
|000001a0| 70 75 74 20 22 4a 65 72 | 6b 20 4f 66 66 22 20 69 |put "Jer|k Off" i|
|000001b0| 6e 74 6f 20 66 69 65 6c | 64 20 22 52 61 74 69 6e |nto fiel|d "Ratin|
|000001c0| 67 22 0d 20 20 0d 20 20 | 67 6c 6f 62 61 6c 20 68 |g". . |global h|
|000001d0| 6f 74 64 69 6c 64 6f 2c | 20 64 69 63 6b 6e 75 6d |otdildo,| dicknum|
|000001e0| 2c 20 74 68 72 6f 62 6e | 75 6d 2c 20 74 69 63 6b |, throbn|um, tick|
|000001f0| 6e 75 6d 2c 20 74 69 6d | 65 2c 20 68 69 73 63 6f |num, tim|e, hisco|
|00000200| 72 65 0d 20 20 73 65 74 | 20 68 69 73 63 6f 72 65 |re. set| hiscore|
|00000210| 20 3d 20 30 0d 20 20 73 | 65 74 20 74 69 6d 65 20 | = 0. s|et time |
|00000220| 3d 20 30 0d 20 20 73 65 | 74 20 74 69 63 6b 6e 75 |= 0. se|t ticknu|
|00000230| 6d 20 3d 20 33 37 0d 20 | 20 73 65 74 20 74 68 72 |m = 37. | set thr|
|00000240| 6f 62 6e 75 6d 20 3d 20 | 33 34 20 0d 20 20 73 65 |obnum = |34 . se|
|00000250| 74 20 68 6f 74 64 69 6c | 64 6f 20 3d 20 31 33 0d |t hotdil|do = 13.|
|00000260| 20 20 73 65 74 20 64 69 | 63 6b 6e 75 6d 20 3d 20 | set di|cknum = |
|00000270| 32 38 0d 20 20 0d 20 20 | 70 75 70 70 65 74 53 70 |28. . |puppetSp|
|00000280| 72 69 74 65 20 31 33 2c | 20 54 52 55 45 0d 20 20 |rite 13,| TRUE. |
|00000290| 73 65 74 20 74 68 65 20 | 63 6f 6e 73 74 72 61 69 |set the |constrai|
|000002a0| 6e 74 20 6f 66 20 73 70 | 72 69 74 65 20 31 33 20 |nt of sp|rite 13 |
|000002b0| 74 6f 20 32 34 0d 20 20 | 73 65 74 20 74 68 65 20 |to 24. |set the |
|000002c0| 6c 6f 63 48 20 6f 66 20 | 73 70 72 69 74 65 20 31 |locH of |sprite 1|
|000002d0| 33 20 74 6f 20 35 37 0d | 20 20 73 65 74 20 74 68 |3 to 57.| set th|
|000002e0| 65 20 6c 6f 63 56 20 6f | 66 20 73 70 72 69 74 65 |e locV o|f sprite|
|000002f0| 20 31 33 20 74 6f 20 37 | 31 0d 20 20 0d 20 20 70 | 13 to 7|1. . p|
|00000300| 75 70 70 65 74 53 70 72 | 69 74 65 20 31 34 2c 20 |uppetSpr|ite 14, |
|00000310| 54 52 55 45 0d 20 20 73 | 65 74 20 74 68 65 20 63 |TRUE. s|et the c|
|00000320| 6f 6e 73 74 72 61 69 6e | 74 20 6f 66 20 73 70 72 |onstrain|t of spr|
|00000330| 69 74 65 20 31 34 20 74 | 6f 20 32 34 0d 20 20 73 |ite 14 t|o 24. s|
|00000340| 65 74 20 74 68 65 20 6c | 6f 63 48 20 6f 66 20 73 |et the l|ocH of s|
|00000350| 70 72 69 74 65 20 31 34 | 20 74 6f 20 32 37 35 0d |prite 14| to 275.|
|00000360| 20 20 73 65 74 20 74 68 | 65 20 6c 6f 63 56 20 6f | set th|e locV o|
|00000370| 66 20 73 70 72 69 74 65 | 20 31 34 20 74 6f 20 36 |f sprite| 14 to 6|
|00000380| 39 0d 20 20 0d 20 20 70 | 75 70 70 65 74 53 70 72 |9. . p|uppetSpr|
|00000390| 69 74 65 20 31 35 2c 20 | 54 52 55 45 0d 20 20 73 |ite 15, |TRUE. s|
|000003a0| 65 74 20 74 68 65 20 63 | 6f 6e 73 74 72 61 69 6e |et the c|onstrain|
|000003b0| 74 20 6f 66 20 73 70 72 | 69 74 65 20 31 35 20 74 |t of spr|ite 15 t|
|000003c0| 6f 20 32 34 0d 20 20 73 | 65 74 20 74 68 65 20 6c |o 24. s|et the l|
|000003d0| 6f 63 48 20 6f 66 20 73 | 70 72 69 74 65 20 31 35 |ocH of s|prite 15|
|000003e0| 20 74 6f 20 31 36 31 0d | 20 20 73 65 74 20 74 68 | to 161.| set th|
|000003f0| 65 20 6c 6f 63 56 20 6f | 66 20 73 70 72 69 74 65 |e locV o|f sprite|
|00000400| 20 31 35 20 74 6f 20 37 | 30 0d 20 20 0d 20 20 70 | 15 to 7|0. . p|
|00000410| 75 70 70 65 74 53 70 72 | 69 74 65 20 31 39 2c 20 |uppetSpr|ite 19, |
|00000420| 54 52 55 45 0d 20 20 73 | 65 74 20 74 68 65 20 63 |TRUE. s|et the c|
|00000430| 6f 6e 73 74 72 61 69 6e | 74 20 6f 66 20 73 70 72 |onstrain|t of spr|
|00000440| 69 74 65 20 31 39 20 74 | 6f 20 31 0d 20 20 73 65 |ite 19 t|o 1. se|
|00000450| 74 20 74 68 65 20 6c 6f | 63 48 20 6f 66 20 73 70 |t the lo|cH of sp|
|00000460| 72 69 74 65 20 31 39 20 | 74 6f 20 35 39 34 0d 20 |rite 19 |to 594. |
|00000470| 20 73 65 74 20 74 68 65 | 20 6c 6f 63 56 20 6f 66 | set the| locV of|
|00000480| 20 73 70 72 69 74 65 20 | 31 39 20 74 6f 20 39 32 | sprite |19 to 92|
|00000490| 0d 20 20 0d 20 20 70 75 | 70 70 65 74 53 70 72 69 |. . pu|ppetSpri|
|000004a0| 74 65 20 31 36 2c 20 54 | 52 55 45 0d 20 20 73 65 |te 16, T|RUE. se|
|000004b0| 74 20 74 68 65 20 63 6f | 6e 73 74 72 61 69 6e 74 |t the co|nstraint|
|000004c0| 20 6f 66 20 73 70 72 69 | 74 65 20 31 36 20 74 6f | of spri|te 16 to|
|000004d0| 20 32 34 0d 20 20 73 65 | 74 20 74 68 65 20 6c 6f | 24. se|t the lo|
|000004e0| 63 48 20 6f 66 20 73 70 | 72 69 74 65 20 31 36 20 |cH of sp|rite 16 |
|000004f0| 74 6f 20 33 39 31 0d 20 | 20 73 65 74 20 74 68 65 |to 391. | set the|
|00000500| 20 6c 6f 63 56 20 6f 66 | 20 73 70 72 69 74 65 20 | locV of| sprite |
|00000510| 31 36 20 74 6f 20 36 39 | 0d 20 20 0d 20 20 70 75 |16 to 69|. . pu|
|00000520| 70 70 65 74 53 70 72 69 | 74 65 20 31 32 2c 20 54 |ppetSpri|te 12, T|
|00000530| 52 55 45 0d 20 20 73 65 | 74 20 74 68 65 20 63 6f |RUE. se|t the co|
|00000540| 6e 73 74 72 61 69 6e 74 | 20 6f 66 20 73 70 72 69 |nstraint| of spri|
|00000550| 74 65 20 31 32 20 74 6f | 20 32 34 0d 20 20 73 65 |te 12 to| 24. se|
|00000560| 74 20 74 68 65 20 6c 6f | 63 48 20 6f 66 20 73 70 |t the lo|cH of sp|
|00000570| 72 69 74 65 20 31 32 20 | 74 6f 20 34 39 34 0d 20 |rite 12 |to 494. |
|00000580| 20 73 65 74 20 74 68 65 | 20 6c 6f 63 56 20 6f 66 | set the| locV of|
|00000590| 20 73 70 72 69 74 65 20 | 31 32 20 74 6f 20 36 38 | sprite |12 to 68|
|000005a0| 0d 20 20 0d 20 20 73 74 | 61 72 74 54 69 6d 65 72 |. . st|artTimer|
|000005b0| 0d 20 20 67 6c 6f 62 61 | 6c 20 6c 75 62 65 74 69 |. globa|l lubeti|
|000005c0| 6d 65 2c 64 72 79 64 61 | 6d 61 67 65 2c 73 71 75 |me,dryda|mage,squ|
|000005d0| 69 72 74 2c 42 4a 54 69 | 6d 65 2c 64 69 6c 64 6f |irt,BJTi|me,dildo|
|000005e0| 70 6f 77 65 72 2c 64 69 | 6c 64 6f 74 69 6d 65 2c |power,di|ldotime,|
|000005f0| 42 4a 6c 65 76 65 6c 2c | 48 6f 6c 64 2c 73 63 72 |BJlevel,|Hold,scr|
|00000600| 65 61 6d 69 6e 67 2c 63 | 61 6d 65 2c 6d 6f 75 74 |eaming,c|ame,mout|
|00000610| 68 69 6e 67 20 20 0d 20 | 20 73 65 74 20 73 63 72 |hing . | set scr|
|00000620| 65 61 6d 69 6e 67 20 3d | 20 2d 35 0d 20 20 73 65 |eaming =| -5. se|
|00000630| 74 20 6d 6f 75 74 68 69 | 6e 67 20 3d 20 2d 35 20 |t mouthi|ng = -5 |
|00000640| 0d 20 20 73 65 74 20 68 | 6f 6c 64 20 3d 20 30 0d |. set h|old = 0.|
|00000650| 20 20 73 65 74 20 42 4a | 6c 65 76 65 6c 3d 30 0d | set BJ|level=0.|
|00000660| 20 20 73 65 74 20 64 69 | 6c 64 6f 74 69 6d 65 3d | set di|ldotime=|
|00000670| 30 0d 20 20 73 65 74 20 | 64 69 6c 64 6f 70 6f 77 |0. set |dildopow|
|00000680| 65 72 20 3d 20 30 0d 20 | 20 73 65 74 20 42 4a 54 |er = 0. | set BJT|
|00000690| 69 6d 65 20 3d 20 31 38 | 0d 20 20 73 65 74 20 73 |ime = 18|. set s|
|000006a0| 71 75 69 72 74 20 3d 20 | 2d 31 0d 20 20 73 65 74 |quirt = |-1. set|
|000006b0| 20 73 63 6f 72 65 20 3d | 20 31 30 30 30 0d 20 20 | score =| 1000. |
|000006c0| 73 65 74 20 6c 75 62 65 | 74 69 6d 65 20 3d 20 37 |set lube|time = 7|
|000006d0| 30 0d 20 20 73 65 74 20 | 64 72 79 64 61 6d 61 67 |0. set |drydamag|
|000006e0| 65 20 3d 20 30 0d 20 20 | 73 65 74 20 63 61 6d 65 |e = 0. |set came|
|000006f0| 20 3d 20 30 0d 65 6e 64 | 20 73 74 61 72 74 4d 6f | = 0.end| startMo|
|00000700| 76 69 65 0d 0d 6f 6e 20 | 73 63 6f 72 65 6b 65 65 |vie..on |scorekee|
|00000710| 70 65 72 0d 20 20 67 6c | 6f 62 61 6c 20 73 63 6f |per. gl|obal sco|
|00000720| 72 65 2c 20 6c 75 62 65 | 74 69 6d 65 2c 20 42 4a |re, lube|time, BJ|
|00000730| 54 69 6d 65 2c 20 64 69 | 6c 64 6f 70 6f 77 65 72 |Time, di|ldopower|
|00000740| 2c 68 6f 77 68 61 72 64 | 2c 20 64 69 6c 64 6f 74 |,howhard|, dildot|
|00000750| 69 6d 65 2c 20 68 6f 74 | 64 69 6c 64 6f 2c 20 68 |ime, hot|dildo, h|
|00000760| 6f 6c 64 2c 20 73 63 72 | 65 61 6d 69 6e 67 2c 20 |old, scr|eaming, |
|00000770| 6d 6f 75 74 68 69 6e 67 | 20 20 0d 20 20 73 65 74 |mouthing| . set|
|00000780| 20 64 69 6c 64 6f 74 69 | 6d 65 3d 64 69 6c 64 6f | dildoti|me=dildo|
|00000790| 74 69 6d 65 2d 31 0d 20 | 20 69 66 20 4c 75 62 65 |time-1. | if Lube|
|000007a0| 74 69 6d 65 20 3c 20 30 | 20 61 6e 64 20 68 6f 77 |time < 0| and how|
|000007b0| 68 61 72 64 20 3e 20 32 | 20 74 68 65 6e 20 0d 20 |hard > 2| then . |
|000007c0| 20 20 20 69 66 20 73 63 | 72 65 61 6d 69 6e 67 20 | if sc|reaming |
|000007d0| 3c 20 30 20 74 68 65 6e | 0d 20 20 20 20 20 20 70 |< 0 then|. p|
|000007e0| 75 70 70 65 74 73 6f 75 | 6e 64 20 22 44 72 79 22 |uppetsou|nd "Dry"|
|000007f0| 0d 20 20 20 20 20 20 73 | 65 74 20 73 63 72 65 61 |. s|et screa|
|00000800| 6d 69 6e 67 20 3d 20 38 | 0d 20 20 20 20 20 20 65 |ming = 8|. e|
|00000810| 78 69 74 0d 20 20 20 20 | 65 6c 73 65 20 0d 20 20 |xit. |else . |
|00000820| 20 20 20 20 73 65 74 20 | 73 63 72 65 61 6d 69 6e | set |screamin|
|00000830| 67 20 3d 20 73 63 72 65 | 61 6d 69 6e 67 20 2d 20 |g = scre|aming - |
|00000840| 31 0d 20 20 20 20 20 20 | 65 78 69 74 0d 20 20 20 |1. |exit. |
|00000850| 20 65 6e 64 20 69 66 0d | 20 20 65 6e 64 20 69 66 | end if.| end if|
|00000860| 0d 20 20 69 66 20 42 4a | 74 69 6d 65 20 3c 20 30 |. if BJ|time < 0|
|00000870| 20 61 6e 64 20 68 6f 77 | 68 61 72 64 20 3e 20 33 | and how|hard > 3|
|00000880| 20 74 68 65 6e 20 0d 20 | 20 20 20 69 66 20 6d 6f | then . | if mo|
|00000890| 75 74 68 69 6e 67 20 3c | 30 20 74 68 65 6e 0d 20 |uthing <|0 then. |
|000008a0| 20 20 20 20 20 70 75 70 | 70 65 74 73 6f 75 6e 64 | pup|petsound|
|000008b0| 20 22 4d 6f 75 74 68 22 | 0d 20 20 20 20 20 20 73 | "Mouth"|. s|
|000008c0| 65 74 20 6d 6f 75 74 68 | 69 6e 67 20 3d 20 38 0d |et mouth|ing = 8.|
|000008d0| 20 20 20 20 20 20 73 65 | 74 20 73 63 6f 72 65 20 | se|t score |
|000008e0| 3d 20 73 63 6f 72 65 20 | 2d 20 32 30 0d 20 20 20 |= score |- 20. |
|000008f0| 20 20 20 65 78 69 74 0d | 20 20 20 20 65 6c 73 65 | exit.| else|
|00000900| 0d 20 20 20 20 20 20 73 | 65 74 20 6d 6f 75 74 68 |. s|et mouth|
|00000910| 69 6e 67 20 3d 20 6d 6f | 75 74 68 69 6e 67 20 2d |ing = mo|uthing -|
|00000920| 31 0d 20 20 20 20 20 20 | 65 78 69 74 0d 20 20 20 |1. |exit. |
|00000930| 20 65 6e 64 20 69 66 20 | 0d 20 20 65 6e 64 20 69 | end if |. end i|
|00000940| 66 0d 20 20 0d 20 20 69 | 66 20 64 69 6c 64 6f 74 |f. . i|f dildot|
|00000950| 69 6d 65 20 3c 20 30 20 | 74 68 65 6e 0d 20 20 20 |ime < 0 |then. |
|00000960| 20 73 65 74 20 73 63 6f | 72 65 3d 28 73 63 6f 72 | set sco|re=(scor|
|00000970| 65 2d 28 35 2a 64 69 6c | 64 6f 70 6f 77 65 72 29 |e-(5*dil|dopower)|
|00000980| 29 0d 20 20 20 20 65 78 | 69 74 0d 20 20 65 6e 64 |). ex|it. end|
|00000990| 20 69 66 0d 20 20 0d 20 | 20 73 65 74 20 6d 75 6c | if. . | set mul|
|000009a0| 74 20 3d 20 34 2b 28 61 | 62 73 28 74 68 65 20 6c |t = 4+(a|bs(the l|
|000009b0| 6f 63 48 20 6f 66 20 73 | 70 72 69 74 65 20 68 6f |ocH of s|prite ho|
|000009c0| 74 64 69 6c 64 6f 20 2d | 20 68 6f 6c 64 29 29 2f |tdildo -| hold))/|
|000009d0| 32 30 0d 20 20 73 65 74 | 20 73 63 6f 72 65 20 3d |20. set| score =|
|000009e0| 20 28 73 63 6f 72 65 2b | 28 31 30 2d 28 68 6f 77 | (score+|(10-(how|
|000009f0| 68 61 72 64 2a 2e 39 29 | 29 2a 64 69 6c 64 6f 70 |hard*.9)|)*dildop|
|00000a00| 6f 77 65 72 2a 6d 75 6c | 74 29 0d 20 20 0d 20 20 |ower*mul|t). . |
|00000a10| 73 65 74 20 73 63 6f 72 | 65 20 3d 20 73 63 6f 72 |set scor|e = scor|
|00000a20| 65 20 2d 20 64 69 6c 64 | 6f 70 6f 77 65 72 2a 28 |e - dild|opower*(|
|00000a30| 72 61 6e 64 6f 6d 28 33 | 29 2d 31 29 0d 20 20 73 |random(3|)-1). s|
|00000a40| 65 74 20 68 6f 6c 64 20 | 3d 20 74 68 65 20 6c 6f |et hold |= the lo|
|00000a50| 63 48 20 6f 66 20 73 70 | 72 69 74 65 20 68 6f 74 |cH of sp|rite hot|
|00000a60| 64 69 6c 64 6f 20 0d 20 | 20 0d 65 6e 64 20 73 63 |dildo . | .end sc|
|00000a70| 6f 72 65 6b 65 65 70 65 | 72 0d 0d 6f 6e 20 73 74 |orekeepe|r..on st|
|00000a80| 65 70 4d 6f 76 69 65 0d | 20 20 67 6c 6f 62 61 6c |epMovie.| global|
|00000a90| 20 64 69 63 6b 6e 75 6d | 2c 73 63 6f 72 65 2c 74 | dicknum|,score,t|
|00000aa0| 68 72 6f 62 6e 75 6d 2c | 74 69 63 6b 6e 75 6d 2c |hrobnum,|ticknum,|
|00000ab0| 63 61 6d 65 2c 42 4a 54 | 69 6d 65 2c 68 6f 77 68 |came,BJT|ime,howh|
|00000ac0| 61 72 64 2c 6c 75 62 65 | 74 69 6d 65 2c 64 72 79 |ard,lube|time,dry|
|00000ad0| 64 61 6d 61 67 65 2c 73 | 71 75 69 72 74 2c 64 69 |damage,s|quirt,di|
|00000ae0| 6c 64 6f 70 6f 77 65 72 | 20 20 0d 20 20 0d 20 20 |ldopower| . . |
|00000af0| 69 66 20 73 6f 75 6e 64 | 62 75 73 79 28 31 29 20 |if sound|busy(1) |
|00000b00| 3d 20 46 61 6c 73 65 20 | 74 68 65 6e 20 70 75 70 |= False |then pup|
|00000b10| 70 65 74 73 6f 75 6e 64 | 20 30 0d 20 20 0d 20 20 |petsound| 0. . |
|00000b20| 73 65 74 20 6c 75 62 65 | 74 69 6d 65 20 3d 20 6c |set lube|time = l|
|00000b30| 75 62 65 74 69 6d 65 20 | 2d 20 31 20 0d 20 20 69 |ubetime |- 1 . i|
|00000b40| 66 20 6c 75 62 65 74 69 | 6d 65 20 3c 20 2d 31 30 |f lubeti|me < -10|
|00000b50| 20 74 68 65 6e 20 73 65 | 74 20 6c 75 62 65 74 69 | then se|t lubeti|
|00000b60| 6d 65 20 3d 20 2d 31 30 | 0d 20 20 0d 20 20 73 65 |me = -10|. . se|
|00000b70| 74 20 73 71 75 69 72 74 | 20 3d 20 73 71 75 69 72 |t squirt| = squir|
|00000b80| 74 20 2d 20 31 0d 20 20 | 69 66 20 73 71 75 69 72 |t - 1. |if squir|
|00000b90| 74 20 3c 20 30 20 74 68 | 65 6e 20 73 65 74 20 74 |t < 0 th|en set t|
|00000ba0| 68 65 20 63 61 73 74 4e | 75 6d 20 6f 66 20 73 70 |he castN|um of sp|
|00000bb0| 72 69 74 65 20 31 39 20 | 74 6f 20 33 32 0d 20 20 |rite 19 |to 32. |
|00000bc0| 0d 20 20 73 65 74 20 42 | 4a 54 69 6d 65 20 3d 20 |. set B|JTime = |
|00000bd0| 42 4a 54 69 6d 65 20 2d | 31 20 0d 20 20 0d 20 20 |BJTime -|1 . . |
|00000be0| 69 66 20 73 63 6f 72 65 | 20 3c 20 31 20 74 68 65 |if score| < 1 the|
|00000bf0| 6e 20 73 65 74 20 73 63 | 6f 72 65 20 3d 20 31 0d |n set sc|ore = 1.|
|00000c00| 20 20 69 66 20 28 73 63 | 6f 72 65 20 3e 20 31 30 | if (sc|ore > 10|
|00000c10| 30 30 30 20 61 6e 64 20 | 63 61 6d 65 20 3d 20 30 |000 and |came = 0|
|00000c20| 20 61 6e 64 20 68 6f 77 | 68 61 72 64 20 3c 3e 20 | and how|hard <> |
|00000c30| 31 30 29 20 74 68 65 6e | 20 63 75 6d 0d 20 20 69 |10) then| cum. i|
|00000c40| 66 20 73 63 6f 72 65 20 | 3e 20 31 30 30 30 30 20 |f score |> 10000 |
|00000c50| 74 68 65 6e 20 73 65 74 | 20 73 63 6f 72 65 20 3d |then set| score =|
|00000c60| 20 31 30 30 31 30 0d 20 | 20 73 65 74 20 74 68 65 | 10010. | set the|
|00000c70| 20 6c 6f 63 56 20 6f 66 | 20 73 70 72 69 74 65 20 | locV of| sprite |
|00000c80| 32 20 74 6f 20 69 6e 74 | 65 67 65 72 28 34 37 39 |2 to int|eger(479|
|00000c90| 20 2d 20 28 73 63 6f 72 | 65 2f 31 30 30 29 29 0d | - (scor|e/100)).|
|00000ca0| 20 20 0d 20 20 73 65 74 | 20 74 68 65 20 63 61 73 | . set| the cas|
|00000cb0| 74 4e 75 6d 20 6f 66 20 | 73 70 72 69 74 65 20 31 |tNum of |sprite 1|
|00000cc0| 33 20 74 6f 20 28 32 34 | 2b 72 61 6e 64 6f 6d 28 |3 to (24|+random(|
|00000cd0| 33 29 29 0d 20 20 0d 20 | 20 69 66 20 64 69 63 6b |3)). . | if dick|
|00000ce0| 6e 75 6d 20 3e 20 32 39 | 20 74 68 65 6e 20 73 65 |num > 29| then se|
|00000cf0| 74 20 64 69 63 6b 6e 75 | 6d 20 3d 20 32 37 0d 20 |t dicknu|m = 27. |
|00000d00| 20 73 65 74 20 64 69 63 | 6b 6e 75 6d 20 3d 20 64 | set dic|knum = d|
|00000d10| 69 63 6b 6e 75 6d 20 2b | 20 31 0d 20 20 73 65 74 |icknum +| 1. set|
|00000d20| 20 74 68 65 20 63 61 73 | 74 4e 75 6d 20 6f 66 20 | the cas|tNum of |
|00000d30| 73 70 72 69 74 65 20 31 | 34 20 74 6f 20 64 69 63 |sprite 1|4 to dic|
|00000d40| 6b 6e 75 6d 0d 20 20 0d | 20 20 69 66 20 74 69 63 |knum. .| if tic|
|00000d50| 6b 6e 75 6d 20 3e 20 33 | 37 20 74 68 65 6e 20 73 |knum > 3|7 then s|
|00000d60| 65 74 20 74 69 63 6b 6e | 75 6d 20 3d 20 33 36 0d |et tickn|um = 36.|
|00000d70| 20 20 73 65 74 20 74 69 | 63 6b 6e 75 6d 20 3d 20 | set ti|cknum = |
|00000d80| 74 69 63 6b 6e 75 6d 20 | 2b 20 31 0d 20 20 73 65 |ticknum |+ 1. se|
|00000d90| 74 20 74 68 65 20 63 61 | 73 74 4e 75 6d 20 6f 66 |t the ca|stNum of|
|00000da0| 20 73 70 72 69 74 65 20 | 31 32 20 74 6f 20 74 69 | sprite |12 to ti|
|00000db0| 63 6b 6e 75 6d 20 0d 20 | 20 0d 20 20 69 66 20 74 |cknum . | . if t|
|00000dc0| 68 72 6f 62 6e 75 6d 20 | 3e 20 33 35 20 74 68 65 |hrobnum |> 35 the|
|00000dd0| 6e 20 73 65 74 20 74 68 | 72 6f 62 6e 75 6d 20 3d |n set th|robnum =|
|00000de0| 20 33 33 0d 20 20 73 65 | 74 20 74 68 72 6f 62 6e | 33. se|t throbn|
|00000df0| 75 6d 20 3d 20 74 68 72 | 6f 62 6e 75 6d 20 2b 20 |um = thr|obnum + |
|00000e00| 31 0d 20 20 73 65 74 20 | 74 68 65 20 63 61 73 74 |1. set |the cast|
|00000e10| 4e 75 6d 20 6f 66 20 73 | 70 72 69 74 65 20 31 36 |Num of s|prite 16|
|00000e20| 20 74 6f 20 74 68 72 6f | 62 6e 75 6d 0d 20 20 0d | to thro|bnum. .|
|00000e30| 65 6e 64 20 73 74 65 70 | 4d 6f 76 69 65 0d 0d 6f |end step|Movie..o|
|00000e40| 6e 20 63 75 6d 0d 20 20 | 67 6c 6f 62 61 6c 20 63 |n cum. |global c|
|00000e50| 61 6d 65 2c 20 74 69 6d | 65 2c 20 73 63 6f 72 65 |ame, tim|e, score|
|00000e60| 2c 20 63 6c 6f 63 6b 0d | 20 20 73 65 74 20 74 69 |, clock.| set ti|
|00000e70| 6d 65 20 3d 20 74 68 65 | 20 54 69 6d 65 72 0d 20 |me = the| Timer. |
|00000e80| 20 73 65 74 20 63 61 6d | 65 20 3d 20 31 0d 20 20 | set cam|e = 1. |
|00000e90| 73 65 74 20 73 63 6f 72 | 65 20 3d 20 31 30 30 30 |set scor|e = 1000|
|00000ea0| 30 0d 20 20 67 6f 20 22 | 43 75 6d 53 68 6f 74 22 |0. go "|CumShot"|
|00000eb0| 20 20 0d 65 6e 64 20 63 | 75 6d 0d 0d 6f 6e 20 63 | .end c|um..on c|
|00000ec0| 6f 6d 70 61 72 65 73 63 | 6f 72 65 0d 20 20 67 6c |omparesc|ore. gl|
|00000ed0| 6f 62 61 6c 20 74 69 6d | 65 2c 20 68 6f 77 68 61 |obal tim|e, howha|
|00000ee0| 72 64 2c 20 68 69 73 63 | 6f 72 65 0d 20 20 0d 20 |rd, hisc|ore. . |
|00000ef0| 20 70 75 70 70 65 74 53 | 70 72 69 74 65 20 31 33 | puppetS|prite 13|
|00000f00| 2c 20 46 41 4c 53 45 0d | 20 20 70 75 70 70 65 74 |, FALSE.| puppet|
|00000f10| 53 70 72 69 74 65 20 31 | 34 2c 20 46 41 4c 53 45 |Sprite 1|4, FALSE|
|00000f20| 0d 20 20 70 75 70 70 65 | 74 53 70 72 69 74 65 20 |. puppe|tSprite |
|00000f30| 32 2c 20 46 41 4c 53 45 | 0d 20 20 70 75 70 70 65 |2, FALSE|. puppe|
|00000f40| 74 53 70 72 69 74 65 20 | 31 35 2c 20 46 41 4c 53 |tSprite |15, FALS|
|00000f50| 45 0d 20 20 70 75 70 70 | 65 74 53 70 72 69 74 65 |E. pupp|etSprite|
|00000f60| 20 31 36 2c 20 46 41 4c | 53 45 0d 20 20 70 75 70 | 16, FAL|SE. pup|
|00000f70| 70 65 74 53 70 72 69 74 | 65 20 31 39 2c 20 46 41 |petSprit|e 19, FA|
|00000f80| 4c 53 45 0d 20 20 70 75 | 70 70 65 74 53 70 72 69 |LSE. pu|ppetSpri|
|00000f90| 74 65 20 31 32 2c 20 46 | 41 4c 53 45 0d 20 20 0d |te 12, F|ALSE. .|
|00000fa0| 20 20 73 65 74 20 68 69 | 73 63 6f 72 65 20 3d 20 | set hi|score = |
|00000fb0| 69 6e 74 65 67 65 72 28 | 74 68 65 20 74 65 78 74 |integer(|the text|
|00000fc0| 20 6f 66 20 63 61 73 74 | 20 28 36 34 2b 28 32 2a | of cast| (64+(2*|
|00000fd0| 68 6f 77 68 61 72 64 29 | 29 29 0d 20 20 0d 20 20 |howhard)|)). . |
|00000fe0| 73 65 74 20 6d 69 6e 20 | 3d 20 69 6e 74 65 67 65 |set min |= intege|
|00000ff0| 72 28 68 69 73 63 6f 72 | 65 2f 33 36 30 30 29 0d |r(hiscor|e/3600).|
|00001000| 20 20 73 65 74 20 73 65 | 63 20 3d 20 69 6e 74 65 | set se|c = inte|
|00001010| 67 65 72 28 28 68 69 73 | 63 6f 72 65 2f 36 30 29 |ger((his|core/60)|
|00001020| 2d 28 6d 69 6e 2a 36 30 | 29 29 0d 20 20 73 65 74 |-(min*60|)). set|
|00001030| 20 70 61 72 73 65 63 73 | 3d 20 69 6e 74 65 67 65 | parsecs|= intege|
|00001040| 72 28 68 69 73 63 6f 72 | 65 2d 28 28 6d 69 6e 2a |r(hiscor|e-((min*|
|00001050| 33 36 30 30 29 2b 28 73 | 65 63 2a 36 30 29 29 29 |3600)+(s|ec*60)))|
|00001060| 0d 20 20 69 66 20 73 65 | 63 20 3c 31 30 20 74 68 |. if se|c <10 th|
|00001070| 65 6e 20 73 65 74 20 73 | 65 63 20 3d 20 22 30 22 |en set s|ec = "0"|
|00001080| 20 26 20 73 65 63 0d 20 | 20 69 66 20 70 61 72 73 | & sec. | if pars|
|00001090| 65 63 73 20 3c 20 31 30 | 20 74 68 65 6e 20 73 65 |ecs < 10| then se|
|000010a0| 74 20 70 61 72 73 65 63 | 73 20 3d 20 22 30 22 20 |t parsec|s = "0" |
|000010b0| 26 20 70 61 72 73 65 63 | 73 0d 20 20 73 65 74 20 |& parsec|s. set |
|000010c0| 73 74 72 69 6e 67 20 3d | 20 6d 69 6e 20 26 20 22 |string =| min & "|
|000010d0| 3a 22 20 26 20 73 65 63 | 20 26 20 22 2e 22 20 26 |:" & sec| & "." &|
|000010e0| 20 70 61 72 73 65 63 73 | 0d 20 20 70 75 74 20 73 | parsecs|. put s|
|000010f0| 74 72 69 6e 67 20 69 6e | 74 6f 20 66 69 65 6c 64 |tring in|to field|
|00001100| 20 22 48 69 67 68 54 69 | 6d 65 22 0d 20 20 0d 20 | "HighTi|me". . |
|00001110| 20 73 65 74 20 6d 69 6e | 32 20 3d 20 69 6e 74 65 | set min|2 = inte|
|00001120| 67 65 72 28 74 69 6d 65 | 2f 33 36 30 30 29 0d 20 |ger(time|/3600). |
|00001130| 20 73 65 74 20 73 65 63 | 32 20 3d 20 69 6e 74 65 | set sec|2 = inte|
|00001140| 67 65 72 28 28 74 69 6d | 65 2f 36 30 29 2d 28 6d |ger((tim|e/60)-(m|
|00001150| 69 6e 32 2a 36 30 29 29 | 0d 20 20 73 65 74 20 70 |in2*60))|. set p|
|00001160| 61 72 73 65 63 73 32 3d | 20 69 6e 74 65 67 65 72 |arsecs2=| integer|
|00001170| 28 74 69 6d 65 2d 28 28 | 6d 69 6e 32 2a 33 36 30 |(time-((|min2*360|
|00001180| 30 29 2b 28 73 65 63 32 | 2a 36 30 29 29 29 0d 20 |0)+(sec2|*60))). |
|00001190| 20 69 66 20 73 65 63 32 | 20 3c 31 30 20 74 68 65 | if sec2| <10 the|
|000011a0| 6e 20 73 65 74 20 73 65 | 63 32 20 3d 20 22 30 22 |n set se|c2 = "0"|
|000011b0| 20 26 20 73 65 63 32 0d | 20 20 69 66 20 70 61 72 | & sec2.| if par|
|000011c0| 73 65 63 73 32 20 3c 20 | 31 30 20 74 68 65 6e 20 |secs2 < |10 then |
|000011d0| 73 65 74 20 70 61 72 73 | 65 63 73 32 20 3d 20 22 |set pars|ecs2 = "|
|000011e0| 30 22 20 26 20 70 61 72 | 73 65 63 73 32 20 0d 20 |0" & par|secs2 . |
|000011f0| 20 73 65 74 20 73 74 72 | 69 6e 67 32 20 3d 20 6d | set str|ing2 = m|
|00001200| 69 6e 32 20 26 20 22 3a | 22 20 26 20 73 65 63 32 |in2 & ":|" & sec2|
|00001210| 20 26 20 22 2e 22 20 26 | 20 70 61 72 73 65 63 73 | & "." &| parsecs|
|00001220| 32 0d 20 20 70 75 74 20 | 73 74 72 69 6e 67 32 20 |2. put |string2 |
|00001230| 69 6e 74 6f 20 66 69 65 | 6c 64 20 22 59 6f 75 72 |into fie|ld "Your|
|00001240| 54 69 6d 65 22 0d 20 20 | 0d 20 20 69 66 20 68 69 |Time". |. if hi|
|00001250| 73 63 6f 72 65 20 3e 20 | 74 69 6d 65 20 74 68 65 |score > |time the|
|00001260| 6e 0d 20 20 20 20 70 75 | 74 20 22 49 27 6d 20 47 |n. pu|t "I'm G|
|00001270| 6f 6e 6e 61 20 57 61 6e | 74 20 54 6f 20 52 65 6d |onna Wan|t To Rem|
|00001280| 65 62 65 72 20 59 6f 75 | 21 21 21 22 20 69 6e 74 |eber You|!!!" int|
|00001290| 6f 20 66 69 65 6c 64 20 | 22 72 65 73 75 6c 74 22 |o field |"result"|
|000012a0| 0d 20 20 20 20 73 65 74 | 20 74 68 65 20 74 65 78 |. set| the tex|
|000012b0| 74 20 6f 66 20 63 61 73 | 74 20 28 36 34 2b 28 32 |t of cas|t (64+(2|
|000012c0| 2a 68 6f 77 68 61 72 64 | 29 29 20 74 6f 20 73 74 |*howhard|)) to st|
|000012d0| 72 69 6e 67 28 74 69 6d | 65 29 0d 20 20 65 6c 73 |ring(tim|e). els|
|000012e0| 65 20 0d 20 20 20 20 70 | 75 74 20 22 49 66 20 49 |e . p|ut "If I|
|000012f0| 27 6d 20 45 76 65 72 20 | 42 6f 72 65 64 20 49 20 |'m Ever |Bored I |
|00001300| 4d 69 67 68 74 20 43 61 | 6c 6c 20 59 6f 75 22 20 |Might Ca|ll You" |
|00001310| 69 6e 74 6f 20 66 69 65 | 6c 64 20 22 72 65 73 75 |into fie|ld "resu|
|00001320| 6c 74 22 20 0d 20 20 65 | 6e 64 20 69 66 0d 20 20 |lt" . e|nd if. |
|00001330| 0d 20 20 69 66 20 74 69 | 6d 65 20 3e 20 31 30 38 |. if ti|me > 108|
|00001340| 30 30 30 20 74 68 65 6e | 0d 20 20 20 20 70 75 74 |000 then|. put|
|00001350| 20 22 4c 69 6d 70 20 44 | 69 63 6b 22 20 69 6e 74 | "Limp D|ick" int|
|00001360| 6f 20 66 69 65 6c 64 20 | 22 72 61 74 69 6e 67 22 |o field |"rating"|
|00001370| 0d 20 20 65 6c 73 65 20 | 0d 20 20 20 20 70 75 74 |. else |. put|
|00001380| 20 22 53 74 75 64 22 20 | 69 6e 74 6f 20 66 69 65 | "Stud" |into fie|
|00001390| 6c 64 20 22 72 61 74 69 | 6e 67 22 0d 20 20 65 6e |ld "rati|ng". en|
|000013a0| 64 20 69 66 0d 20 20 0d | 20 20 77 68 65 6e 20 4b |d if. .| when K|
|000013b0| 65 79 64 6f 77 6e 20 74 | 68 65 6e 20 69 66 20 74 |eydown t|hen if t|
|000013c0| 68 65 20 6b 65 79 20 3d | 20 52 65 74 75 72 6e 20 |he key =| Return |
|000013d0| 74 68 65 6e 20 67 6f 20 | 22 4c 65 61 76 65 22 0d |then go |"Leave".|
|000013e0| 20 20 0d 65 6e 64 20 63 | 6f 6d 70 61 72 65 73 63 | .end c|omparesc|
|000013f0| 6f 72 65 0d 0d 6f 6e 20 | 65 78 69 74 53 63 72 69 |ore..on |exitScri|
|00001400| 70 74 0d 20 20 67 6c 6f | 62 61 6c 20 68 69 73 63 |pt. glo|bal hisc|
|00001410| 6f 72 65 2c 20 74 69 6d | 65 2c 20 68 6f 77 68 61 |ore, tim|e, howha|
|00001420| 72 64 0d 20 20 69 66 20 | 68 69 73 63 6f 72 65 20 |rd. if |hiscore |
|00001430| 3e 20 74 69 6d 65 20 74 | 68 65 6e 20 70 75 74 20 |> time t|hen put |
|00001440| 74 68 65 20 74 65 78 74 | 20 6f 66 20 63 61 73 74 |the text| of cast|
|00001450| 20 38 38 20 69 6e 74 6f | 20 63 61 73 74 20 69 6e | 88 into| cast in|
|00001460| 74 65 67 65 72 28 28 36 | 33 2b 28 32 2a 68 6f 77 |teger((6|3+(2*how|
|00001470| 68 61 72 64 29 29 29 0d | 20 20 77 72 69 74 65 44 |hard))).| writeD|
|00001480| 61 74 61 46 69 6c 65 0d | 20 20 67 6f 20 22 54 6f |ataFile.| go "To|
|00001490| 48 69 53 63 6f 72 65 50 | 61 67 65 22 0d 65 6e 64 |HiScoreP|age".end|
|000014a0| 20 65 78 69 74 53 63 72 | 69 70 74 0d 0d 0d 2d 2d | exitScr|ipt...--|
|000014b0| 0d 0d 6f 6e 20 61 72 65 | 61 31 43 68 65 63 6b 0d |..on are|a1Check.|
|000014c0| 20 20 67 6c 6f 62 61 6c | 20 68 6f 74 64 69 6c 64 | global| hotdild|
|000014d0| 6f 2c 20 6c 75 62 65 74 | 69 6d 65 2c 20 64 72 79 |o, lubet|ime, dry|
|000014e0| 64 61 6d 61 67 65 2c 20 | 73 63 6f 72 65 20 0d 20 |damage, |score . |
|000014f0| 20 69 66 20 6c 75 62 65 | 74 69 6d 65 20 3c 20 30 | if lube|time < 0|
|00001500| 20 74 68 65 6e 20 73 65 | 74 20 73 63 6f 72 65 20 | then se|t score |
|00001510| 3d 20 73 63 6f 72 65 20 | 2b 20 28 2e 32 35 2a 64 |= score |+ (.25*d|
|00001520| 72 79 64 61 6d 61 67 65 | 2a 6c 75 62 65 74 69 6d |rydamage|*lubetim|
|00001530| 65 29 0d 20 20 69 66 20 | 74 68 65 20 6c 6f 63 48 |e). if |the locH|
|00001540| 20 6f 66 20 73 70 72 69 | 74 65 20 68 6f 74 64 69 | of spri|te hotdi|
|00001550| 6c 64 6f 20 3c 20 31 35 | 30 20 74 68 65 6e 20 67 |ldo < 15|0 then g|
|00001560| 6f 20 22 41 72 65 61 32 | 22 0d 20 20 69 66 20 74 |o "Area2|". if t|
|00001570| 68 65 20 6c 6f 63 48 20 | 6f 66 20 73 70 72 69 74 |he locH |of sprit|
|00001580| 65 20 68 6f 74 64 69 6c | 64 6f 20 3e 20 31 37 35 |e hotdil|do > 175|
|00001590| 20 74 68 65 6e 20 73 63 | 6f 72 65 6b 65 65 70 65 | then sc|orekeepe|
|000015a0| 72 0d 65 6e 64 20 61 72 | 65 61 31 43 68 65 63 6b |r.end ar|ea1Check|
|000015b0| 0d 0d 6f 6e 20 61 72 65 | 61 32 43 68 65 63 6b 0d |..on are|a2Check.|
|000015c0| 20 20 67 6c 6f 62 61 6c | 20 68 6f 74 64 69 6c 64 | global| hotdild|
|000015d0| 6f 2c 20 73 63 6f 72 65 | 0d 20 20 73 65 74 20 73 |o, score|. set s|
|000015e0| 63 6f 72 65 20 3d 20 73 | 63 6f 72 65 20 2b 20 35 |core = s|core + 5|
|000015f0| 0d 20 20 69 66 20 74 68 | 65 20 6c 6f 63 56 20 6f |. if th|e locV o|
|00001600| 66 20 73 70 72 69 74 65 | 20 68 6f 74 64 69 6c 64 |f sprite| hotdild|
|00001610| 6f 20 3c 20 32 35 35 20 | 74 68 65 6e 20 67 6f 20 |o < 255 |then go |
|00001620| 22 41 72 65 61 33 22 0d | 20 20 65 6c 73 65 20 69 |"Area3".| else i|
|00001630| 66 20 74 68 65 20 6c 6f | 63 56 20 6f 66 20 73 70 |f the lo|cV of sp|
|00001640| 72 69 74 65 20 68 6f 74 | 64 69 6c 64 6f 20 3e 33 |rite hot|dildo >3|
|00001650| 35 37 20 74 68 65 6e 20 | 67 6f 20 22 41 72 65 61 |57 then |go "Area|
|00001660| 35 22 0d 20 20 65 6c 73 | 65 20 69 66 20 28 73 70 |5". els|e if (sp|
|00001670| 72 69 74 65 20 68 6f 74 | 64 69 6c 64 6f 20 69 6e |rite hot|dildo in|
|00001680| 74 65 72 73 65 63 74 73 | 20 36 29 20 74 68 65 6e |tersects| 6) then|
|00001690| 20 67 6f 20 22 41 72 65 | 61 31 22 0d 65 6e 64 20 | go "Are|a1".end |
|000016a0| 61 72 65 61 32 43 68 65 | 63 6b 0d 0d 6f 6e 20 61 |area2Che|ck..on a|
|000016b0| 72 65 61 33 43 68 65 63 | 6b 0d 20 20 67 6c 6f 62 |rea3Chec|k. glob|
|000016c0| 61 6c 20 68 6f 74 64 69 | 6c 64 6f 2c 20 73 63 6f |al hotdi|ldo, sco|
|000016d0| 72 65 2c 20 42 4a 54 69 | 6d 65 2c 20 68 6f 77 68 |re, BJTi|me, howh|
|000016e0| 61 72 64 2c 20 42 4a 6c | 65 76 65 6c 0d 20 20 73 |ard, BJl|evel. s|
|000016f0| 65 74 20 73 63 6f 72 65 | 20 3d 20 73 63 6f 72 65 |et score| = score|
|00001700| 20 2d 20 31 30 20 0d 20 | 20 69 66 20 74 68 65 20 | - 10 . | if the |
|00001710| 6c 6f 63 56 20 6f 66 20 | 73 70 72 69 74 65 20 68 |locV of |sprite h|
|00001720| 6f 74 64 69 6c 64 6f 20 | 3e 20 32 35 38 20 74 68 |otdildo |> 258 th|
|00001730| 65 6e 0d 20 20 20 20 69 | 66 20 74 68 65 20 6c 6f |en. i|f the lo|
|00001740| 63 48 20 6f 66 20 73 70 | 72 69 74 65 20 68 6f 74 |cH of sp|rite hot|
|00001750| 64 69 6c 64 6f 20 3e 20 | 33 30 30 20 74 68 65 6e |dildo > |300 then|
|00001760| 20 67 6f 20 22 41 72 65 | 61 34 22 0d 20 20 20 20 | go "Are|a4". |
|00001770| 69 66 20 74 68 65 20 6c | 6f 63 48 20 6f 66 20 73 |if the l|ocH of s|
|00001780| 70 72 69 74 65 20 68 6f | 74 64 69 6c 64 6f 20 3c |prite ho|tdildo <|
|00001790| 20 32 30 30 20 74 68 65 | 6e 20 67 6f 20 22 41 72 | 200 the|n go "Ar|
|000017a0| 65 61 32 22 20 20 0d 20 | 20 65 6e 64 20 69 66 0d |ea2" . | end if.|
|000017b0| 20 20 69 66 20 28 73 70 | 72 69 74 65 20 68 6f 74 | if (sp|rite hot|
|000017c0| 64 69 6c 64 6f 20 69 6e | 74 65 72 73 65 63 74 73 |dildo in|tersects|
|000017d0| 20 32 33 20 61 6e 64 20 | 74 68 65 20 4c 6f 63 48 | 23 and |the LocH|
|000017e0| 20 6f 66 20 73 70 72 69 | 74 65 20 68 6f 74 64 69 | of spri|te hotdi|
|000017f0| 6c 64 6f 20 3c 20 33 39 | 33 29 20 74 68 65 6e 0d |ldo < 39|3) then.|
|00001800| 20 20 20 20 69 66 20 68 | 6f 74 64 69 6c 64 6f 20 | if h|otdildo |
|00001810| 3e 20 31 33 20 74 68 65 | 6e 20 20 20 0d 20 20 20 |> 13 the|n . |
|00001820| 20 20 20 73 65 74 20 42 | 4a 74 69 6d 65 20 3d 20 | set B|Jtime = |
|00001830| 31 35 0d 20 20 20 20 20 | 20 73 65 74 20 42 4a 6c |15. | set BJl|
|00001840| 65 76 65 6c 3d 20 30 0d | 20 20 20 20 20 20 67 6f |evel= 0.| go|
|00001850| 20 22 42 4a 22 0d 20 20 | 20 20 65 6e 64 20 69 66 | "BJ". | end if|
|00001860| 0d 20 20 20 20 69 66 20 | 68 6f 74 64 69 6c 64 6f |. if |hotdildo|
|00001870| 20 3c 20 31 34 20 74 68 | 65 6e 20 67 6f 20 22 4e | < 14 th|en go "N|
|00001880| 6f 42 4a 22 0d 20 20 65 | 6e 64 20 69 66 20 20 0d |oBJ". e|nd if .|
|00001890| 65 6e 64 20 61 72 65 61 | 33 43 68 65 63 6b 0d 0d |end area|3Check..|
|000018a0| 6f 6e 20 61 72 65 61 34 | 43 68 65 63 6b 0d 20 20 |on area4|Check. |
|000018b0| 67 6c 6f 62 61 6c 20 68 | 6f 74 64 69 6c 64 6f 2c |global h|otdildo,|
|000018c0| 20 73 63 6f 72 65 0d 20 | 20 73 65 74 20 73 63 6f | score. | set sco|
|000018d0| 72 65 20 3d 20 73 63 6f | 72 65 20 2d 20 33 30 20 |re = sco|re - 30 |
|000018e0| 0d 20 20 69 66 20 74 68 | 65 20 6c 6f 63 56 20 6f |. if th|e locV o|
|000018f0| 66 20 73 70 72 69 74 65 | 20 68 6f 74 64 69 6c 64 |f sprite| hotdild|
|00001900| 6f 20 3c 20 32 35 34 20 | 74 68 65 6e 20 67 6f 20 |o < 254 |then go |
|00001910| 22 41 72 65 61 33 22 0d | 20 20 69 66 20 74 68 65 |"Area3".| if the|
|00001920| 20 6c 6f 63 56 20 6f 66 | 20 73 70 72 69 74 65 20 | locV of| sprite |
|00001930| 68 6f 74 64 69 6c 64 6f | 20 3e 20 33 36 30 20 74 |hotdildo| > 360 t|
|00001940| 68 65 6e 20 67 6f 20 22 | 41 72 65 61 35 22 0d 65 |hen go "|Area5".e|
|00001950| 6e 64 20 61 72 65 61 34 | 43 68 65 63 6b 0d 0d 6f |nd area4|Check..o|
|00001960| 6e 20 61 72 65 61 35 43 | 68 65 63 6b 0d 20 20 67 |n area5C|heck. g|
|00001970| 6c 6f 62 61 6c 20 68 6f | 74 64 69 6c 64 6f 2c 20 |lobal ho|tdildo, |
|00001980| 73 63 6f 72 65 0d 20 20 | 73 65 74 20 73 63 6f 72 |score. |set scor|
|00001990| 65 20 3d 20 73 63 6f 72 | 65 20 2d 20 33 30 20 20 |e = scor|e - 30 |
|000019a0| 0d 20 20 69 66 20 74 68 | 65 20 6c 6f 63 56 20 6f |. if th|e locV o|
|000019b0| 66 20 73 70 72 69 74 65 | 20 68 6f 74 64 69 6c 64 |f sprite| hotdild|
|000019c0| 6f 20 3c 20 33 35 37 20 | 74 68 65 6e 0d 20 20 20 |o < 357 |then. |
|000019d0| 20 69 66 20 74 68 65 20 | 6c 6f 63 48 20 6f 66 20 | if the |locH of |
|000019e0| 73 70 72 69 74 65 20 68 | 6f 74 64 69 6c 64 6f 20 |sprite h|otdildo |
|000019f0| 3e 20 33 30 30 20 74 68 | 65 6e 20 67 6f 20 22 41 |> 300 th|en go "A|
|00001a00| 72 65 61 34 22 0d 20 20 | 20 20 69 66 20 74 68 65 |rea4". | if the|
|00001a10| 20 6c 6f 63 48 20 6f 66 | 20 73 70 72 69 74 65 20 | locH of| sprite |
|00001a20| 68 6f 74 64 69 6c 64 6f | 20 3c 20 32 30 30 20 74 |hotdildo| < 200 t|
|00001a30| 68 65 6e 20 67 6f 20 22 | 41 72 65 61 32 22 0d 20 |hen go "|Area2". |
|00001a40| 20 65 6e 64 20 69 66 20 | 0d 65 6e 64 20 61 72 65 | end if |.end are|
|00001a50| 61 35 43 68 65 63 6b 0d | 0d 6f 6e 20 42 4a 43 68 |a5Check.|.on BJCh|
|00001a60| 65 63 6b 0d 20 20 67 6c | 6f 62 61 6c 20 68 6f 74 |eck. gl|obal hot|
|00001a70| 64 69 6c 64 6f 2c 20 42 | 4a 74 69 6d 65 2c 20 42 |dildo, B|Jtime, B|
|00001a80| 4a 6c 65 76 65 6c 2c 20 | 73 63 6f 72 65 2c 20 68 |Jlevel, |score, h|
|00001a90| 6f 77 68 61 72 64 0d 20 | 20 73 65 74 20 42 4a 6c |owhard. | set BJl|
|00001aa0| 65 76 65 6c 3d 42 4a 6c | 65 76 65 6c 2b 31 0d 20 |evel=BJl|evel+1. |
|00001ab0| 20 69 66 20 42 4a 4c 65 | 76 65 6c 3e 31 30 20 74 | if BJLe|vel>10 t|
|00001ac0| 68 65 6e 20 0d 20 20 20 | 20 73 65 74 20 42 4a 74 |hen . | set BJt|
|00001ad0| 69 6d 65 20 3d 20 28 31 | 32 35 20 2b 20 52 61 6e |ime = (1|25 + Ran|
|00001ae0| 64 6f 6d 28 35 30 29 29 | 0d 20 20 20 20 73 65 74 |dom(50))|. set|
|00001af0| 20 73 63 6f 72 65 20 3d | 20 73 63 6f 72 65 20 2b | score =| score +|
|00001b00| 20 35 30 30 2d 20 28 32 | 30 2a 28 31 30 2d 68 6f | 500- (2|0*(10-ho|
|00001b10| 77 68 61 72 64 29 29 0d | 20 20 20 20 73 65 74 20 |whard)).| set |
|00001b20| 42 4a 4c 65 76 65 6c 20 | 3d 20 2d 31 35 30 0d 20 |BJLevel |= -150. |
|00001b30| 20 20 20 70 75 70 70 65 | 74 73 6f 75 6e 64 20 22 | puppe|tsound "|
|00001b40| 6d 6f 61 6e 36 22 0d 20 | 20 20 20 70 75 70 70 65 |moan6". | puppe|
|00001b50| 74 73 6f 75 6e 64 20 30 | 0d 20 20 65 6e 64 20 69 |tsound 0|. end i|
|00001b60| 66 0d 20 20 69 66 20 74 | 68 65 20 4c 6f 63 48 20 |f. if t|he LocH |
|00001b70| 6f 66 20 73 70 72 69 74 | 65 20 68 6f 74 64 69 6c |of sprit|e hotdil|
|00001b80| 64 6f 20 3c 20 33 38 38 | 20 74 68 65 6e 20 67 6f |do < 388| then go|
|00001b90| 20 22 61 72 65 61 33 22 | 20 20 0d 65 6e 64 20 42 | "area3"| .end B|
|00001ba0| 4a 43 68 65 63 6b 0d 0d | 6f 6e 20 4e 6f 42 4a 43 |JCheck..|on NoBJC|
|00001bb0| 68 65 63 6b 0d 20 20 67 | 6c 6f 62 61 6c 20 68 6f |heck. g|lobal ho|
|00001bc0| 74 64 69 6c 64 6f 2c 20 | 73 63 6f 72 65 0d 20 20 |tdildo, |score. |
|00001bd0| 73 65 74 20 73 63 6f 72 | 65 20 3d 20 73 63 6f 72 |set scor|e = scor|
|00001be0| 65 20 2d 20 31 30 30 20 | 0d 20 20 69 66 20 74 68 |e - 100 |. if th|
|00001bf0| 65 20 4c 6f 63 48 20 6f | 66 20 73 70 72 69 74 65 |e LocH o|f sprite|
|00001c00| 20 68 6f 74 64 69 6c 64 | 6f 20 3c 20 33 38 30 20 | hotdild|o < 380 |
|00001c10| 74 68 65 6e 20 67 6f 20 | 22 61 72 65 61 33 22 0d |then go |"area3".|
|00001c20| 20 20 69 66 20 74 68 65 | 20 4c 6f 63 56 20 6f 66 | if the| LocV of|
|00001c30| 20 73 70 72 69 74 65 20 | 68 6f 74 64 69 6c 64 6f | sprite |hotdildo|
|00001c40| 20 3c 20 31 38 30 20 74 | 68 65 6e 20 67 6f 20 22 | < 180 t|hen go "|
|00001c50| 61 72 65 61 33 22 0d 20 | 20 69 66 20 74 68 65 20 |area3". | if the |
|00001c60| 4c 6f 63 56 20 6f 66 20 | 73 70 72 69 74 65 20 68 |LocV of |sprite h|
|00001c70| 6f 74 64 69 6c 64 6f 20 | 3e 20 32 30 30 20 74 68 |otdildo |> 200 th|
|00001c80| 65 6e 20 67 6f 20 22 61 | 72 65 61 33 22 20 20 0d |en go "a|rea3" .|
|00001c90| 65 6e 64 20 4e 6f 42 4a | 43 68 65 63 6b 0d 0d 0d |end NoBJ|Check...|
|00001ca0| 2d 2d 0d 6f 6e 20 65 6e | 64 69 74 61 6c 6c 0d 20 |--.on en|ditall. |
|00001cb0| 20 77 68 65 6e 20 6b 65 | 79 64 6f 77 6e 20 74 68 | when ke|ydown th|
|00001cc0| 65 6e 20 6e 6f 74 68 69 | 6e 67 0d 20 20 73 65 74 |en nothi|ng. set|
|00001cd0| 20 74 68 65 20 63 6f 6e | 73 74 72 61 69 6e 74 20 | the con|straint |
|00001ce0| 6f 66 20 73 70 72 69 74 | 65 20 31 33 20 74 6f 20 |of sprit|e 13 to |
|00001cf0| 30 0d 20 20 73 65 74 20 | 74 68 65 20 63 6f 6e 73 |0. set |the cons|
|00001d00| 74 72 61 69 6e 74 20 6f | 66 20 73 70 72 69 74 65 |traint o|f sprite|
|00001d10| 20 31 34 20 74 6f 20 30 | 0d 20 20 73 65 74 20 74 | 14 to 0|. set t|
|00001d20| 68 65 20 63 6f 6e 73 74 | 72 61 69 6e 74 20 6f 66 |he const|raint of|
|00001d30| 20 73 70 72 69 74 65 20 | 31 35 20 74 6f 20 30 0d | sprite |15 to 0.|
|00001d40| 20 20 73 65 74 20 74 68 | 65 20 63 6f 6e 73 74 72 | set th|e constr|
|00001d50| 61 69 6e 74 20 6f 66 20 | 73 70 72 69 74 65 20 31 |aint of |sprite 1|
|00001d60| 39 20 74 6f 20 30 0d 20 | 20 73 65 74 20 74 68 65 |9 to 0. | set the|
|00001d70| 20 63 6f 6e 73 74 72 61 | 69 6e 74 20 6f 66 20 73 | constra|int of s|
|00001d80| 70 72 69 74 65 20 31 36 | 20 74 6f 20 30 0d 20 20 |prite 16| to 0. |
|00001d90| 73 65 74 20 74 68 65 20 | 63 6f 6e 73 74 72 61 69 |set the |constrai|
|00001da0| 6e 74 20 6f 66 20 73 70 | 72 69 74 65 20 31 32 20 |nt of sp|rite 12 |
|00001db0| 74 6f 20 30 0d 20 20 73 | 65 74 20 74 68 65 20 6c |to 0. s|et the l|
|00001dc0| 6f 63 48 20 6f 66 20 73 | 70 72 69 74 65 20 32 20 |ocH of s|prite 2 |
|00001dd0| 74 6f 20 2d 37 30 0d 20 | 20 73 65 74 20 74 68 65 |to -70. | set the|
|00001de0| 20 6c 6f 63 48 20 6f 66 | 20 73 70 72 69 74 65 20 | locH of| sprite |
|00001df0| 31 33 20 74 6f 20 2d 37 | 30 0d 20 20 73 65 74 20 |13 to -7|0. set |
|00001e00| 74 68 65 20 6c 6f 63 48 | 20 6f 66 20 73 70 72 69 |the locH| of spri|
|00001e10| 74 65 20 31 34 20 74 6f | 20 2d 37 30 0d 20 20 73 |te 14 to| -70. s|
|00001e20| 65 74 20 74 68 65 20 6c | 6f 63 48 20 6f 66 20 73 |et the l|ocH of s|
|00001e30| 70 72 69 74 65 20 31 35 | 20 74 6f 20 2d 37 30 0d |prite 15| to -70.|
|00001e40| 20 20 73 65 74 20 74 68 | 65 20 6c 6f 63 48 20 6f | set th|e locH o|
|00001e50| 66 20 73 70 72 69 74 65 | 20 31 39 20 74 6f 20 2d |f sprite| 19 to -|
|00001e60| 37 30 0d 20 20 73 65 74 | 20 74 68 65 20 6c 6f 63 |70. set| the loc|
|00001e70| 48 20 6f 66 20 73 70 72 | 69 74 65 20 31 36 20 74 |H of spr|ite 16 t|
|00001e80| 6f 20 2d 37 30 0d 20 20 | 73 65 74 20 74 68 65 20 |o -70. |set the |
|00001e90| 6c 6f 63 48 20 6f 66 20 | 73 70 72 69 74 65 20 31 |locH of |sprite 1|
|00001ea0| 32 20 74 6f 20 2d 37 30 | 0d 20 20 69 6e 73 74 61 |2 to -70|. insta|
|00001eb0| 6c 6c 4d 65 6e 75 20 30 | 20 0d 20 20 0d 65 6e 64 |llMenu 0| . .end|
|00001ec0| 20 65 6e 64 69 74 61 6c | 6c 0d 0d 6f 6e 20 73 74 | endital|l..on st|
|00001ed0| 6f 70 4d 6f 76 69 65 0d | 20 20 70 75 70 70 65 74 |opMovie.| puppet|
|00001ee0| 73 6f 75 6e 64 20 30 0d | 20 20 77 68 65 6e 20 6b |sound 0.| when k|
|00001ef0| 65 79 64 6f 77 6e 20 74 | 68 65 6e 20 6e 6f 74 68 |eydown t|hen noth|
|00001f00| 69 6e 67 0d 20 20 70 75 | 70 70 65 74 53 70 72 69 |ing. pu|ppetSpri|
|00001f10| 74 65 20 31 33 2c 20 46 | 41 4c 53 45 0d 20 20 70 |te 13, F|ALSE. p|
|00001f20| 75 70 70 65 74 53 70 72 | 69 74 65 20 31 34 2c 20 |uppetSpr|ite 14, |
|00001f30| 46 41 4c 53 45 0d 20 20 | 70 75 70 70 65 74 53 70 |FALSE. |puppetSp|
|00001f40| 72 69 74 65 20 32 2c 20 | 46 41 4c 53 45 0d 20 20 |rite 2, |FALSE. |
|00001f50| 70 75 70 70 65 74 53 70 | 72 69 74 65 20 31 35 2c |puppetSp|rite 15,|
|00001f60| 20 46 41 4c 53 45 0d 20 | 20 70 75 70 70 65 74 53 | FALSE. | puppetS|
|00001f70| 70 72 69 74 65 20 31 36 | 2c 20 46 41 4c 53 45 0d |prite 16|, FALSE.|
|00001f80| 20 20 70 75 70 70 65 74 | 53 70 72 69 74 65 20 31 | puppet|Sprite 1|
|00001f90| 39 2c 20 46 41 4c 53 45 | 0d 20 20 70 75 70 70 65 |9, FALSE|. puppe|
|00001fa0| 74 53 70 72 69 74 65 20 | 31 32 2c 20 46 41 4c 53 |tSprite |12, FALS|
|00001fb0| 45 0d 65 6e 64 20 73 74 | 6f 70 4d 6f 76 69 65 0d |E.end st|opMovie.|
|00001fc0| 0d 2d 2d 0d 0d 6f 6e 20 | 73 65 74 48 61 72 64 6e |.--..on |setHardn|
|00001fd0| 65 73 73 20 61 2c 62 20 | 0d 20 20 67 6c 6f 62 61 |ess a,b |. globa|
|00001fe0| 6c 20 68 6f 77 48 61 72 | 64 2c 73 63 6f 72 65 2c |l howHar|d,score,|
|00001ff0| 68 6f 6c 64 2c 76 6f 6c | 64 2c 42 4a 4c 65 76 65 |hold,vol|d,BJLeve|
|00002000| 6c 2c 64 69 6c 64 6f 74 | 69 6d 65 2c 64 69 6c 64 |l,dildot|ime,dild|
|00002010| 6f 70 6f 77 65 72 2c 42 | 4a 74 69 6d 65 2c 73 71 |opower,B|Jtime,sq|
|00002020| 75 69 72 74 2c 6c 75 62 | 65 74 69 6d 65 2c 64 72 |uirt,lub|etime,dr|
|00002030| 79 64 61 6d 61 67 65 2c | 63 61 6d 65 0d 20 20 72 |ydamage,|came. r|
|00002040| 65 70 65 61 74 20 77 69 | 74 68 20 6e 3d 31 20 74 |epeat wi|th n=1 t|
|00002050| 6f 20 31 30 0d 20 20 20 | 20 73 65 74 20 74 68 65 |o 10. | set the|
|00002060| 20 63 68 65 63 6b 4d 61 | 72 6b 20 6f 66 20 6d 65 | checkMa|rk of me|
|00002070| 6e 75 49 74 65 6d 20 6e | 20 6f 66 20 6d 65 6e 75 |nuItem n| of menu|
|00002080| 20 33 20 74 6f 20 46 41 | 4c 53 45 0d 20 20 65 6e | 3 to FA|LSE. en|
|00002090| 64 20 72 65 70 65 61 74 | 0d 20 20 73 65 74 20 74 |d repeat|. set t|
|000020a0| 68 65 20 63 68 65 63 6b | 6d 61 72 6b 20 6f 66 20 |he check|mark of |
|000020b0| 6d 65 6e 75 49 74 65 6d | 20 61 20 6f 66 20 6d 65 |menuItem| a of me|
|000020c0| 6e 75 20 33 20 74 6f 20 | 54 52 55 45 0d 20 20 70 |nu 3 to |TRUE. p|
|000020d0| 75 74 20 61 20 69 6e 74 | 6f 20 68 6f 77 48 61 72 |ut a int|o howHar|
|000020e0| 64 0d 20 20 70 75 74 20 | 62 20 69 6e 74 6f 20 66 |d. put |b into f|
|000020f0| 69 65 6c 64 20 22 48 6f | 72 6e 79 6e 65 73 73 22 |ield "Ho|rnyness"|
|00002100| 0d 20 20 73 65 74 20 63 | 61 6d 65 20 3d 20 30 0d |. set c|ame = 0.|
|00002110| 20 20 73 65 74 20 68 6f | 6c 64 20 3d 20 30 0d 20 | set ho|ld = 0. |
|00002120| 20 73 65 74 20 76 6f 6c | 64 3d 20 30 0d 20 20 73 | set vol|d= 0. s|
|00002130| 65 74 20 42 4a 6c 65 76 | 65 6c 3d 30 0d 20 20 73 |et BJlev|el=0. s|
|00002140| 65 74 20 64 69 6c 64 6f | 74 69 6d 65 3d 30 0d 20 |et dildo|time=0. |
|00002150| 20 73 65 74 20 64 69 6c | 64 6f 70 6f 77 65 72 20 | set dil|dopower |
|00002160| 3d 20 30 0d 20 20 73 65 | 74 20 42 4a 54 69 6d 65 |= 0. se|t BJTime|
|00002170| 20 3d 20 31 38 0d 20 20 | 73 65 74 20 73 71 75 69 | = 18. |set squi|
|00002180| 72 74 20 3d 20 2d 31 0d | 20 20 73 65 74 20 73 63 |rt = -1.| set sc|
|00002190| 6f 72 65 20 3d 20 31 30 | 30 30 0d 20 20 73 65 74 |ore = 10|00. set|
|000021a0| 20 6c 75 62 65 74 69 6d | 65 20 3d 20 37 30 0d 20 | lubetim|e = 70. |
|000021b0| 20 73 65 74 20 64 72 79 | 64 61 6d 61 67 65 20 3d | set dry|damage =|
|000021c0| 20 30 0d 20 20 73 74 61 | 72 74 54 69 6d 65 72 0d | 0. sta|rtTimer.|
|000021d0| 20 20 0d 65 6e 64 20 73 | 65 74 48 61 72 64 6e 65 | .end s|etHardne|
|000021e0| 73 73 0d 0d 6f 6e 20 62 | 6f 73 73 53 74 61 72 74 |ss..on b|ossStart|
|000021f0| 0d 20 20 77 68 65 6e 20 | 74 69 6d 65 6f 75 74 20 |. when |timeout |
|00002200| 74 68 65 6e 20 4e 6f 74 | 68 69 6e 67 0d 20 20 49 |then Not|hing. I|
|00002210| 6e 73 74 61 6c 6c 6d 65 | 6e 75 20 43 31 31 0d 65 |nstallme|nu C11.e|
|00002220| 6e 64 20 62 6f 73 73 53 | 74 61 72 74 0d 0d 6f 6e |nd bossS|tart..on|
|00002230| 20 62 6f 73 73 4f 76 65 | 72 0d 20 20 49 6e 73 74 | bossOve|r. Inst|
|00002240| 61 6c 6c 6d 65 6e 75 20 | 41 31 31 0d 65 6e 64 20 |allmenu |A11.end |
|00002250| 62 6f 73 73 4f 76 65 72 | 0d 0d 2d 2d 2d 2d 2d 2d |bossOver|..------|
|00002260| 2d 2d 2d 2d 2d 2d 48 69 | 20 53 63 6f 72 65 73 0d |------Hi| Scores.|
|00002270| 0d 6f 6e 20 72 65 61 64 | 44 61 74 61 46 69 6c 65 |.on read|DataFile|
|00002280| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002290| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000022a0| 20 20 20 0d 20 20 67 6c | 6f 62 61 6c 20 66 69 6c | . gl|obal fil|
|000022b0| 65 2c 20 46 69 6c 65 49 | 4f 2c 74 68 65 46 69 6c |e, FileI|O,theFil|
|000022c0| 65 4e 61 6d 65 2c 66 69 | 6c 65 46 6f 72 6d 61 74 |eName,fi|leFormat|
|000022d0| 0d 20 20 0d 20 20 73 65 | 74 20 74 68 65 46 69 6c |. . se|t theFil|
|000022e0| 65 4e 61 6d 65 20 3d 20 | 22 4d 41 43 46 4f 58 45 |eName = |"MACFOXE|
|000022f0| 53 20 48 69 53 63 6f 72 | 65 73 22 0d 20 20 73 65 |S HiScor|es". se|
|00002300| 74 20 66 69 6c 65 20 3d | 20 46 69 6c 65 49 4f 28 |t file =| FileIO(|
|00002310| 6d 4e 65 77 2c 20 22 72 | 65 61 64 22 2c 20 74 68 |mNew, "r|ead", th|
|00002320| 65 46 69 6c 65 4e 61 6d | 65 29 20 20 2d 2d 20 20 |eFileNam|e) -- |
|00002330| 6f 70 65 6e 20 66 69 6c | 65 20 74 6f 20 72 65 61 |open fil|e to rea|
|00002340| 64 0d 20 20 0d 20 20 69 | 66 20 6e 6f 74 20 6f 62 |d. . i|f not ob|
|00002350| 6a 65 63 74 70 28 20 66 | 69 6c 65 20 29 20 74 68 |jectp( f|ile ) th|
|00002360| 65 6e 20 0d 20 20 20 20 | 73 65 74 20 74 68 65 50 |en . |set theP|
|00002370| 72 6f 62 6c 65 6d 20 3d | 20 73 74 72 69 6e 67 28 |roblem =| string(|
|00002380| 20 66 69 6c 65 20 29 20 | 20 20 20 20 20 20 20 20 | file ) | |
|00002390| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 0d | | .|
|000023a0| 20 20 20 20 61 6c 65 72 | 74 20 22 54 68 65 20 4d | aler|t "The M|
|000023b0| 41 43 46 4f 58 45 53 20 | 48 69 53 63 6f 72 65 73 |ACFOXES |HiScores|
|000023c0| 20 46 69 6c 65 20 69 73 | 22 20 26 20 72 65 74 75 | File is|" & retu|
|000023d0| 72 6e 20 26 20 22 4d 69 | 73 73 69 6e 67 20 6f 72 |rn & "Mi|ssing or|
|000023e0| 20 44 61 6d 61 67 65 64 | 22 20 26 20 72 65 74 75 | Damaged|" & retu|
|000023f0| 72 6e 20 26 20 c2 0d 20 | 20 20 20 72 65 74 75 72 |rn & .. | retur|
|00002400| 6e 20 26 20 22 52 65 69 | 6e 73 74 61 6c 6c 20 46 |n & "Rei|nstall F|
|00002410| 72 6f 6d 20 59 6f 75 72 | 20 4f 72 69 67 69 6f 6e |rom Your| Origion|
|00002420| 61 6c 20 44 69 73 6b 22 | 0d 20 20 20 20 65 78 69 |al Disk"|. exi|
|00002430| 74 0d 20 20 65 6e 64 20 | 69 66 0d 20 20 0d 20 20 |t. end |if. . |
|00002440| 73 65 74 20 66 69 72 73 | 74 4c 69 6e 65 20 3d 20 |set firs|tLine = |
|00002450| 66 69 6c 65 28 6d 72 65 | 61 64 6c 69 6e 65 29 20 |file(mre|adline) |
|00002460| 20 20 20 20 20 20 20 20 | 0d 20 20 69 66 20 66 69 | |. if fi|
|00002470| 72 73 74 4c 69 6e 65 20 | 73 74 61 72 74 73 20 22 |rstLine |starts "|
|00002480| c6 20 4d 41 43 46 4f 58 | 45 53 20 48 69 53 63 6f |. MACFOX|ES HiSco|
|00002490| 72 65 22 20 74 68 65 6e | 0d 20 20 20 20 0d 20 20 |re" then|. . |
|000024a0| 20 20 73 65 74 20 74 68 | 65 43 61 73 74 20 3d 20 | set th|eCast = |
|000024b0| 36 35 20 20 0d 20 20 20 | 20 72 65 70 65 61 74 20 |65 . | repeat |
|000024c0| 77 68 69 6c 65 20 74 68 | 65 43 61 73 74 20 3c 20 |while th|eCast < |
|000024d0| 38 33 0d 20 20 20 20 20 | 20 73 65 74 20 74 68 65 |83. | set the|
|000024e0| 4c 69 6e 65 20 3d 20 66 | 69 6c 65 28 6d 72 65 61 |Line = f|ile(mrea|
|000024f0| 64 6c 69 6e 65 29 0d 20 | 20 20 20 20 20 73 65 74 |dline). | set|
|00002500| 20 74 68 65 20 74 65 78 | 74 20 6f 66 20 63 61 73 | the tex|t of cas|
|00002510| 74 20 74 68 65 43 61 73 | 74 20 74 6f 20 63 68 61 |t theCas|t to cha|
|00002520| 72 73 28 74 68 65 4c 69 | 6e 65 2c 31 2c 28 6c 65 |rs(theLi|ne,1,(le|
|00002530| 6e 67 74 68 28 74 68 65 | 4c 69 6e 65 29 2d 31 29 |ngth(the|Line)-1)|
|00002540| 29 0d 20 20 20 20 20 20 | 73 65 74 20 74 68 65 43 |). |set theC|
|00002550| 61 73 74 20 3d 20 74 68 | 65 43 61 73 74 20 2b 20 |ast = th|eCast + |
|00002560| 31 0d 20 20 20 20 65 6e | 64 20 72 65 70 65 61 74 |1. en|d repeat|
|00002570| 0d 20 20 20 20 0d 20 20 | 20 20 73 65 74 20 74 68 |. . | set th|
|00002580| 65 43 61 73 74 20 3d 20 | 38 39 0d 20 20 20 20 72 |eCast = |89. r|
|00002590| 65 70 65 61 74 20 77 68 | 69 6c 65 20 74 68 65 43 |epeat wh|ile theC|
|000025a0| 61 73 74 20 3c 20 31 30 | 37 0d 20 20 20 20 20 20 |ast < 10|7. |
|000025b0| 73 65 74 20 74 68 65 4c | 69 6e 65 20 3d 20 66 69 |set theL|ine = fi|
|000025c0| 6c 65 28 6d 72 65 61 64 | 6c 69 6e 65 29 0d 20 20 |le(mread|line). |
|000025d0| 20 20 20 20 73 65 74 20 | 74 68 65 20 74 65 78 74 | set |the text|
|000025e0| 20 6f 66 20 63 61 73 74 | 20 74 68 65 43 61 73 74 | of cast| theCast|
|000025f0| 20 74 6f 20 63 68 61 72 | 73 28 74 68 65 4c 69 6e | to char|s(theLin|
|00002600| 65 2c 31 2c 28 6c 65 6e | 67 74 68 28 74 68 65 4c |e,1,(len|gth(theL|
|00002610| 69 6e 65 29 2d 31 29 29 | 0d 20 20 20 20 20 20 73 |ine)-1))|. s|
|00002620| 65 74 20 74 68 65 43 61 | 73 74 20 3d 20 74 68 65 |et theCa|st = the|
|00002630| 43 61 73 74 20 2b 20 31 | 20 20 20 20 0d 20 20 20 |Cast + 1| . |
|00002640| 20 65 6e 64 20 72 65 70 | 65 61 74 0d 20 20 20 20 | end rep|eat. |
|00002650| 0d 20 20 20 20 73 65 74 | 20 66 69 6c 65 46 6f 72 |. set| fileFor|
|00002660| 6d 61 74 20 3d 20 54 52 | 55 45 20 20 20 20 20 20 |mat = TR|UE |
|00002670| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002680| 20 20 20 20 20 0d 20 20 | 20 20 66 69 6c 65 28 6d | . | file(m|
|00002690| 44 69 73 70 6f 73 65 29 | 0d 20 20 20 20 0d 20 20 |Dispose)|. . |
|000026a0| 65 6c 73 65 20 20 20 20 | 20 20 20 20 20 20 20 20 |else | |
|000026b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000026c0| 20 20 20 20 20 20 0d 20 | 20 20 20 61 6c 65 72 74 | . | alert|
|000026d0| 20 22 54 68 65 20 4d 41 | 43 46 4f 58 45 53 20 48 | "The MA|CFOXES H|
|000026e0| 69 53 63 6f 72 65 73 20 | 46 69 6c 65 20 69 73 22 |iScores |File is"|
|000026f0| 20 26 20 72 65 74 75 72 | 6e 20 26 20 22 4d 69 73 | & retur|n & "Mis|
|00002700| 73 69 6e 67 20 6f 72 20 | 44 61 6d 61 67 65 64 22 |sing or |Damaged"|
|00002710| 20 26 20 72 65 74 75 72 | 6e 20 26 20 c2 0d 20 20 | & retur|n & .. |
|00002720| 20 20 72 65 74 75 72 6e | 20 26 20 22 52 65 69 6e | return| & "Rein|
|00002730| 73 74 61 6c 6c 20 46 72 | 6f 6d 20 59 6f 75 72 20 |stall Fr|om Your |
|00002740| 4f 72 69 67 69 6f 6e 61 | 6c 20 44 69 73 6b 22 0d |Origiona|l Disk".|
|00002750| 20 20 20 20 66 69 6c 65 | 28 6d 44 69 73 70 6f 73 | file|(mDispos|
|00002760| 65 29 0d 20 20 20 20 73 | 65 74 20 66 69 6c 65 46 |e). s|et fileF|
|00002770| 6f 72 6d 61 74 20 3d 20 | 46 41 4c 53 45 20 20 20 |ormat = |FALSE |
|00002780| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002790| 20 20 20 20 20 0d 20 20 | 65 6e 64 20 69 66 0d 65 | . |end if.e|
|000027a0| 6e 64 20 72 65 61 64 44 | 61 74 61 46 69 6c 65 0d |nd readD|ataFile.|
|000027b0| 0d 2d 2d 0d 0d 6f 6e 20 | 77 72 69 74 65 44 61 74 |.--..on |writeDat|
|000027c0| 61 46 69 6c 65 0d 20 20 | 67 6c 6f 62 61 6c 20 66 |aFile. |global f|
|000027d0| 69 6c 65 2c 20 46 69 6c | 65 49 4f 2c 74 68 65 46 |ile, Fil|eIO,theF|
|000027e0| 69 6c 65 4e 61 6d 65 0d | 20 20 0d 20 20 73 65 74 |ileName.| . set|
|000027f0| 20 74 68 65 46 69 6c 65 | 4e 61 6d 65 20 3d 20 22 | theFile|Name = "|
|00002800| 4d 41 43 46 4f 58 45 53 | 20 48 69 53 63 6f 72 65 |MACFOXES| HiScore|
|00002810| 73 22 0d 20 20 73 65 74 | 20 66 69 6c 65 20 3d 20 |s". set| file = |
|00002820| 46 69 6c 65 49 4f 28 6d | 4e 65 77 2c 20 22 77 72 |FileIO(m|New, "wr|
|00002830| 69 74 65 22 2c 20 74 68 | 65 46 69 6c 65 4e 61 6d |ite", th|eFileNam|
|00002840| 65 29 0d 20 20 0d 20 20 | 69 66 20 6e 6f 74 20 6f |e). . |if not o|
|00002850| 62 6a 65 63 74 70 28 20 | 66 69 6c 65 20 29 20 74 |bjectp( |file ) t|
|00002860| 68 65 6e 20 0d 20 20 20 | 20 73 65 74 20 74 68 65 |hen . | set the|
|00002870| 50 72 6f 62 6c 65 6d 20 | 3d 20 73 74 72 69 6e 67 |Problem |= string|
|00002880| 28 20 66 69 6c 65 20 29 | 20 20 20 20 20 20 20 20 |( file )| |
|00002890| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000028a0| 0d 20 20 20 20 61 6c 65 | 72 74 20 22 54 68 65 20 |. ale|rt "The |
|000028b0| 4d 41 43 46 4f 58 45 53 | 20 48 69 53 63 6f 72 65 |MACFOXES| HiScore|
|000028c0| 73 20 46 69 6c 65 20 69 | 73 22 20 26 20 72 65 74 |s File i|s" & ret|
|000028d0| 75 72 6e 20 26 20 22 4d | 69 73 73 69 6e 67 20 6f |urn & "M|issing o|
|000028e0| 72 20 44 61 6d 61 67 65 | 64 22 20 26 20 72 65 74 |r Damage|d" & ret|
|000028f0| 75 72 6e 20 26 20 c2 0d | 20 20 20 20 72 65 74 75 |urn & ..| retu|
|00002900| 72 6e 20 26 20 22 52 65 | 69 6e 73 74 61 6c 6c 20 |rn & "Re|install |
|00002910| 46 72 6f 6d 20 59 6f 75 | 72 20 4f 72 69 67 69 6f |From You|r Origio|
|00002920| 6e 61 6c 20 44 69 73 6b | 22 0d 20 20 20 20 65 78 |nal Disk|". ex|
|00002930| 69 74 0d 20 20 65 6e 64 | 20 69 66 0d 20 20 0d 20 |it. end| if. . |
|00002940| 20 66 69 6c 65 28 20 6d | 57 72 69 74 65 53 74 72 | file( m|WriteStr|
|00002950| 69 6e 67 2c 20 22 c6 20 | 4d 41 43 46 4f 58 45 53 |ing, ". |MACFOXES|
|00002960| 20 48 69 53 63 6f 72 65 | 22 20 26 20 72 65 74 75 | HiScore|" & retu|
|00002970| 72 6e 20 29 0d 20 20 0d | 20 20 73 65 74 20 74 68 |rn ). .| set th|
|00002980| 65 43 61 73 74 20 3d 20 | 36 35 20 20 20 20 20 20 |eCast = |65 |
|00002990| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000029a0| 20 20 20 20 20 0d 20 20 | 72 65 70 65 61 74 20 77 | . |repeat w|
|000029b0| 68 69 6c 65 20 74 68 65 | 43 61 73 74 20 3c 20 38 |hile the|Cast < 8|
|000029c0| 33 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |3 | |
|000029d0| 20 20 20 20 20 20 0d 20 | 20 20 20 73 65 74 20 74 | . | set t|
|000029e0| 68 65 4c 69 6e 65 20 74 | 6f 20 74 68 65 20 74 65 |heLine t|o the te|
|000029f0| 78 74 20 6f 66 20 63 61 | 73 74 20 74 68 65 43 61 |xt of ca|st theCa|
|00002a00| 73 74 0d 20 20 20 20 66 | 69 6c 65 28 20 6d 57 72 |st. f|ile( mWr|
|00002a10| 69 74 65 53 74 72 69 6e | 67 2c 20 73 74 72 69 6e |iteStrin|g, strin|
|00002a20| 67 28 20 74 68 65 4c 69 | 6e 65 20 29 20 26 20 72 |g( theLi|ne ) & r|
|00002a30| 65 74 75 72 6e 20 29 0d | 20 20 20 20 73 65 74 20 |eturn ).| set |
|00002a40| 74 68 65 43 61 73 74 20 | 3d 20 74 68 65 43 61 73 |theCast |= theCas|
|00002a50| 74 20 2b 20 31 20 20 0d | 20 20 65 6e 64 20 72 65 |t + 1 .| end re|
|00002a60| 70 65 61 74 0d 20 20 0d | 20 20 73 65 74 20 74 68 |peat. .| set th|
|00002a70| 65 43 61 73 74 20 3d 20 | 38 39 20 20 20 20 20 20 |eCast = |89 |
|00002a80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002a90| 20 20 20 20 20 0d 20 20 | 72 65 70 65 61 74 20 77 | . |repeat w|
|00002aa0| 68 69 6c 65 20 74 68 65 | 43 61 73 74 20 3c 20 31 |hile the|Cast < 1|
|00002ab0| 30 37 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |07 | |
|00002ac0| 20 20 20 20 20 20 20 0d | 20 20 20 20 73 65 74 20 | .| set |
|00002ad0| 74 68 65 4c 69 6e 65 20 | 74 6f 20 74 68 65 20 74 |theLine |to the t|
|00002ae0| 65 78 74 20 6f 66 20 63 | 61 73 74 20 74 68 65 43 |ext of c|ast theC|
|00002af0| 61 73 74 0d 20 20 20 20 | 66 69 6c 65 28 20 6d 57 |ast. |file( mW|
|00002b00| 72 69 74 65 53 74 72 69 | 6e 67 2c 20 73 74 72 69 |riteStri|ng, stri|
|00002b10| 6e 67 28 20 74 68 65 4c | 69 6e 65 20 29 20 26 20 |ng( theL|ine ) & |
|00002b20| 72 65 74 75 72 6e 20 29 | 0d 20 20 20 20 73 65 74 |return )|. set|
|00002b30| 20 74 68 65 43 61 73 74 | 20 3d 20 74 68 65 43 61 | theCast| = theCa|
|00002b40| 73 74 20 2b 20 31 20 20 | 20 0d 20 20 65 6e 64 20 |st + 1 | . end |
|00002b50| 72 65 70 65 61 74 0d 20 | 20 0d 20 20 66 69 6c 65 |repeat. | . file|
|00002b60| 28 6d 44 69 73 70 6f 73 | 65 29 0d 65 6e 64 20 77 |(mDispos|e).end w|
|00002b70| 72 69 74 65 44 61 74 61 | 46 69 6c 65 0d 0d 0d 0d |riteData|File....|
|00002b80| 0d 0d 0d 0d 25 4a 41 53 | 4f 4e 20 50 45 48 52 20 |....%JAS|ON PEHR |
|00002b90| 52 55 42 49 4e 20 2d 20 | 42 4c 41 43 4b 20 44 4f |RUBIN - |BLACK DO|
|00002ba0| 47 20 53 4f 46 54 57 41 | 52 45 20 4a 61 73 6f 6e |G SOFTWA|RE Jason|
|00002bb0| 20 52 75 62 69 6e 20 2d | 20 42 6c 61 63 6b 20 44 | Rubin -| Black D|
|00002bc0| 6f 67 20 53 6f 66 74 77 | 61 72 65 00 02 |og Softw|are.. |
+--------+-------------------------+-------------------------+--------+--------+
