home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1994 March / Source_Code_CD-ROM_Walnut_Creek_March_1994.iso / compsrcs / games / vmsnet / monhl104 / part01 < prev    next >
Internet Message Format  |  1992-08-02  |  43KB
  1. Path: uunet!mcsun!news.funet.fi!hydra!klaava!hurtta
  2. From: Kari.Hurtta@Helsinki.FI (Kari E. Hurtta)
  3. Newsgroups: vmsnet.sources.games
  4. Subject: Monster Helsinki V 1.04 - part 01/32
  5. Keywords: Monster, a multiplayer adventure game
  6. Message-ID: <1992Jun13.201804.1073@klaava.Helsinki.FI>
  7. Date: 13 Jun 92 20:18:04 GMT
  8. Sender: hurtta@klaava.Helsinki.FI (Kari Hurtta)
  9. Followup-To: vmsnet.sources.d
  10. Organization: University of Helsinki
  11. Lines: 1886
  12.  
  13. Archieve-name: monster_helsinki_104/part01
  14. Author: Kari.Hurtta@Helsinki.FI
  15. Product: Monster Helsinki V 1.04
  16. Environment: VMS, Pascal
  17. Part: 01/32
  18.  
  19. $! ------------------ CUT HERE -----------------------
  20. $!
  21. $! This archive created by VMS_SHARE Version 7.1-001  26-JUN-1989
  22. $!   On 13-JUN-1992 20:46:13.61   By user HURTTA (Kari E. Hurtta  (Kari.Hurtta@Helsinki.FI)  )
  23. $!
  24. $! This VMS_SHARE Written by:
  25. $!    Andy Harper, Kings College London UK
  26. $!
  27. $! Acknowledgements to:
  28. $!    James Gray       - Original VMS_SHARE
  29. $!    Michael Bednarek - Original Concept and implementation
  30. $!
  31. $!+ THIS PACKAGE DISTRIBUTED IN 32 PARTS, TO KEEP EACH PART
  32. $!  BELOW 90 BLOCKS
  33. $!
  34. $! TO UNPACK THIS SHARE FILE, CONCATENATE ALL PARTS IN ORDER
  35. $! AND EXECUTE AS A COMMAND PROCEDURE  (  @name  )
  36. $!
  37. $! THE FOLLOWING FILE(S) WILL BE CREATED AFTER UNPACKING:
  38. $!       1. BONE.MDL;5
  39. $!       2. CASTLE.DMP;3
  40. $!       3. CLD.PROTO;2
  41. $!       4. CLI.PAS;74
  42. $!       5. COMMANDS.PAPER;12
  43. $!       6. CONVERT.BATCH;6
  44. $!       7. CUSTOM.PAS;61
  45. $!       8. DATABASE.PAS;51
  46. $!       9. DOG.MDL;26
  47. $!      10. FIX.BATCH;4
  48. $!      11. GLOBAL.PAS;48
  49. $!      12. GREAT_HALL.MDL;5
  50. $!      13. GUTS.PAS;147
  51. $!      14. ILMOITUS.TXT;5
  52. $!      15. INIT.PROTO;2
  53. $!      16. INTERPRETER.PAS;256
  54. $!      17. KEYS.PAS;2
  55. $!      18. MON.PAS;454
  56. $!      19. MONSTER.CLD;20
  57. $!      20. MONSTER.HELP;44
  58. $!      21. MONSTER.INIT;37
  59. $!      22. MONSTER_DUMP.PAS;194
  60. $!      23. MONSTER_E.HLP;31
  61. $!      24. MONSTER_INSTALL.COM;35
  62. $!      25. MONSTER_WHO.PAS;5
  63. $!      26. PARSER.PAS;67
  64. $!      27. PRIVUSERS.PAS;7
  65. $!      28. QUEUE.PAS;122
  66. $!      29. READ.ME;4
  67. $!      30. RECEPTIONIST.MDL;57
  68. $!
  69. $f=f$parse("SHARE_TEMP","SYS$SCRATCH:.TMP_"+f$getjpi("","PID"))
  70. $e="write sys$error  ""%UNPACK"", "
  71. $w="write sys$output ""%UNPACK"", "
  72. $ if f$trnlnm("SHARE_LOG") then $ w = "!"
  73. $ if f$getsyi("version") .ges. "4.4" then $ goto START
  74. $ e "-E-OLDVER, Must run at least VMS 4.4"
  75. $ exit 44
  76. $UNPACK: SUBROUTINE ! P1=filename, P2=checksum
  77. $ if f$search(P1) .eqs. "" then $ goto file_absent
  78. $ e "-W-EXISTS, File ''P1' exists. Skipped."
  79. $ delete/nolog 'f'*
  80. $ exit
  81. $file_absent:
  82. $ if f$parse(P1) .nes. "" then $ goto dirok
  83. $ dn=f$parse(P1,,,"DIRECTORY")
  84. $ w "-I-CREDIR, Creating directory ''dn'."
  85. $ create/dir 'dn'
  86. $ if $status then $ goto dirok
  87. $ e "-E-CREDIRFAIL, Unable to create ''dn'. File skipped."
  88. $ delete/nolog 'f'*
  89. $ exit
  90. $dirok:
  91. $ w "-I-PROCESS, Processing file ''P1'."
  92. $ define/user sys$output nl:
  93. $ EDIT/TPU/NOSEC/NODIS/COM=SYS$INPUT 'f'/OUT='P1'
  94. PROCEDURE Unpacker ON_ERROR ENDON_ERROR;SET(FACILITY_NAME,"UNPACK");SET(
  95. SUCCESS,OFF);SET(INFORMATIONAL,OFF);f:=GET_INFO(COMMAND_LINE,"file_name");
  96. buff:=CREATE_BUFFER(f,f);p:=SPAN(" ")@r&LINE_END;POSITION(BEGINNING_OF(buff))
  97. ;LOOP EXITIF SEARCH(p,FORWARD)=0;POSITION(r);ERASE(r);ENDLOOP;POSITION(
  98. BEGINNING_OF(buff));g:=0;LOOP EXITIF MARK(NONE)=END_OF(buff);x:=
  99. ERASE_CHARACTER(1);IF g = 0 THEN IF x="X" THEN MOVE_VERTICAL(1);ENDIF;IF x=
  100. "V" THEN APPEND_LINE;MOVE_HORIZONTAL(-CURRENT_OFFSET);MOVE_VERTICAL(1);ENDIF;
  101. IF x="+" THEN g:=1;ERASE_LINE;ENDIF;ELSE IF x="-" THEN g:=0;ENDIF;ERASE_LINE;
  102. ENDIF;ENDLOOP;p:="`";POSITION(BEGINNING_OF(buff));LOOP r:=SEARCH(p,FORWARD);
  103. EXITIF r=0;POSITION(r);ERASE(r);COPY_TEXT(ASCII(INT(ERASE_CHARACTER(3))));
  104. ENDLOOP;o:=GET_INFO(COMMAND_LINE,"output_file");WRITE_FILE(buff,o);
  105. ENDPROCEDURE;Unpacker;EXIT;
  106. $ delete/nolog 'f'*
  107. $ CHECKSUM 'P1'
  108. $ IF CHECKSUM$CHECKSUM .eqs. P2 THEN $ EXIT
  109. $ e "-E-CHKSMFAIL, Checksum of ''P1' failed."
  110. $ ENDSUBROUTINE
  111. $START:
  112. $ create/nolog 'f'
  113. X! For Bone
  114. X!
  115. X!- LABEL look you(if(or(=(player name,"Merlin"),
  116. X!                       =(random("1, 2, 3, 4"),"1")
  117. X!                      ),
  118. X!                    control("Dog",if(move(where(player name)),
  119. X!                                     null(print("Dog: Vuf"),
  120. X!                                          set remote state("Dog","")
  121. X!                                         )
  122. X!                                    )
  123. X!                           )
  124. X!                   )
  125. X!                )
  126. X
  127. X- LABEL look you(if(or(privilege(player name,"manager"),
  128. X                       =(random("1, 2, 3, 4"),"1")
  129. X                      ),
  130. X                    control("Dog",if(move(where(player name)),
  131. X                                     null(print("Dog: Vuf"),
  132. X                                          set remote state("Dog","")
  133. X                                         )
  134. X                                    )
  135. X                           )
  136. X                   )
  137. X                )
  138. X
  139. X- LABEL command(pprint(+(+("You can't",command),"the bone.")))
  140. X
  141. X- LABEL start()
  142. X
  143. X- LABEL drop succeed()
  144. X
  145. X- LABEL get succeed()
  146. X
  147. X- LABEL enter()
  148. X
  149. X- LABEL leave()
  150. $ CALL UNPACK BONE.MDL;5 688976611
  151. $ create/nolog 'f'
  152. XDATABASE%1.02
  153. XBY%hurtta
  154. XBLOCKCOUNT%141
  155. XLINECOUNT%243
  156. XROOMCOUNT%46
  157. XOBJECTCOUNT%32
  158. XHEADERCOUNT%47
  159. XOBJECT%gold ring
  160. XOWNER%#
  161. XNAME%gold ring
  162. XKIND%105
  163. XNULL*DESCLINE!
  164. XNULL*BLOCK!
  165. XNULL*MDL!
  166. XDESCLINE%That ring is ordinary golden ring.
  167. XVALUE%0
  168. XSTICKY%F
  169. XNULL*BLOCK!
  170. XDEFAULT*BLOCK!
  171. XDEFAULT*BLOCK!
  172. XDEFAULT*BLOCK!
  173. XUSEALIAS%
  174. XREQALIAS%F
  175. XREQVERB%F
  176. XPARTICLE%1
  177. XNULL*BLOCK!
  178. XNULL*BLOCK!
  179. XPOWER%0
  180. XEXP%0
  181. XOBJECT%excalibur
  182. XOWNER%#
  183. XNAME%Excalibur
  184. XKIND%1
  185. XDEFAULT*DESCLINE!
  186. XNULL*BLOCK!
  187. XSTART*MDL!
  188. XSHORTMEGA%    1:    0:    0:    0:"Dragon"
  189. XSHORTMEGA%    2:    0:    0:    0:_here
  190. XSHORTMEGA%    3:    1:    2:    0:CONTROL
  191. XSHORTMEGA%    4:    3:    0:    0:null
  192. XSHORTMEGA%    5:    4:    0:    0:LABEL look you
  193. XSHORTMEGA%    6:    5:    0:    0:-
  194. XRUNNABLE%T
  195. XPRIV%T
  196. XOWNER%#
  197. XCTIME%26-AUG-1989  3:30pm
  198. XSTATLAB%leave
  199. XRCOUNT%1
  200. XECOUNT%1
  201. XLASTRUN%11-OCT-1989 11:35pm
  202. XSTATLAB%drop you
  203. XRCOUNT%9
  204. XECOUNT%9
  205. XLASTRUN%21-NOV-1990  7:11pm
  206. XSTATLAB%use succeed
  207. XRCOUNT%7
  208. XECOUNT%7
  209. XLASTRUN% 8-OCT-1989 11:51pm
  210. XSTATLAB%start
  211. XRCOUNT%233
  212. XECOUNT%233
  213. XLASTRUN%13-JUN-1992  4:51pm
  214. XSTATLAB%drop succeed
  215. XRCOUNT%1
  216. XECOUNT%1
  217. XLASTRUN%26-AUG-1989  4:07pm
  218. XSTATLAB%get succeed
  219. XRCOUNT%16
  220. XECOUNT%16
  221. XLASTRUN%21-NOV-1990  7:06pm
  222. XSTATLAB%command
  223. XRCOUNT%2
  224. XECOUNT%2
  225. XLASTRUN%12-MAR-1990 10:41pm
  226. XSTATLAB%look you
  227. XRCOUNT%9
  228. XECOUNT%9
  229. XLASTRUN%12-MAR-1990 10:41pm
  230. XAUTHOR%okkola
  231. XWTIME%26-AUG-1989  3:47pm
  232. XNULL*MEGA!
  233. XFLAGS%0
  234. XSTART*BLOCK!
  235. XBLOCK%Excalibur is fine sword with figure of the Dragon`032
  236. XBLOCK%on its blade.
  237. XVALUE%0
  238. XSTICKY%F
  239. XNULL*BLOCK!
  240. XDEFAULT*BLOCK!
  241. XDEFAULT*BLOCK!
  242. XDEFAULT*BLOCK!
  243. XUSEALIAS%
  244. XREQALIAS%F
  245. XREQVERB%F
  246. XPARTICLE%4
  247. XNULL*BLOCK!
  248. XNULL*BLOCK!
  249. XPOWER%500
  250. XEXP%100000
  251. XOBJECT%oak
  252. XOWNER%#
  253. XNAME%Oak
  254. XKIND%0
  255. XNULL*DESCLINE!
  256. XNULL*BLOCK!
  257. XSTART*MDL!
  258. XSHORTMEGA%1:0:0:0:"As you grab a tight hold on the Oak several guard run her
  259. Ve."
  260. XSHORTMEGA%-2:1:0:0:15
  261. XSHORTMEGA%3:0:0:0:"Guard: And what'd ya do wit tat Oak?"
  262. XSHORTMEGA%-4:3:0:0:15
  263. XSHORTMEGA%5:0:0:0:" "
  264. XSHORTMEGA%-6:5:0:0:15
  265. XSHORTMEGA%-7:2:4:6:24
  266. XSTART*MEGA!
  267. XMEGA%8:0:0:0:"Well, it is sad, but... Why in Earth you are always so greedy
  268. XMEGA%? Only the guards afford it!"
  269. XSHORTMEGA%-9:8:0:0:15
  270. XSHORTMEGA%-10:9:6:0:24
  271. XSHORTMEGA%11:0:0:0:_player name
  272. XSTART*MEGA!
  273. XMEGA%12:0:0:0:" tried to take the oak as a souvenir and got surrounded by g
  274. XMEGA%uards taking him to the dungeon..."
  275. XSHORTMEGA%-13:11:12:0:1
  276. XSHORTMEGA%-14:13:0:0:17
  277. XSHORTMEGA%15:0:0:0:"dungeon"
  278. XSHORTMEGA%-16:15:0:0:14
  279. XSHORTMEGA%17:0:0:0:"Guard of dungeon"
  280. XSHORTMEGA%-18:17:0:0:46
  281. XSHORTMEGA%-19:11:0:0:65
  282. XSHORTMEGA%-20:18:19:0:12
  283. XSHORTMEGA%-21:17:20:0:47
  284. XSHORTMEGA%-22:14:16:21:24
  285. XSHORTMEGA%-23:7:10:22:24
  286. XSHORTMEGA%H6:1:23:get fail
  287. XSHORTMEGA%25:24:0:0:-
  288. XRUNNABLE%T
  289. XPRIV%F
  290. XOWNER%#
  291. XCTIME%21-AUG-1989  9:09pm
  292. XSTATLAB%command
  293. XRCOUNT%3
  294. XECOUNT%3
  295. XLASTRUN%17-APR-1992  1:45pm
  296. XSTATLAB%look you
  297. XRCOUNT%6
  298. XECOUNT%6
  299. XLASTRUN%17-APR-1992  1:33pm
  300. XSTATLAB%leave
  301. XRCOUNT%360
  302. XECOUNT%360
  303. XLASTRUN%31-MAY-1992  8:15pm
  304. XSTATLAB%enter
  305. XRCOUNT%365
  306. XECOUNT%365
  307. XLASTRUN%31-MAY-1992  8:15pm
  308. XSTATLAB%start
  309. XRCOUNT%11
  310. XECOUNT%11
  311. XLASTRUN% 4-JUN-1992 10:02pm
  312. XAUTHOR%hurtta
  313. XWTIME%25-AUG-1990 10:25pm
  314. XNULL*MEGA!
  315. XFLAGS%0
  316. XSTART*BLOCK!
  317. XBLOCK%You raise your courage and take a quick glance of the Oak.  The lower
  318. XBLOCK%part of its stalc has some engravings on it, as the inhabitants of the
  319. XBLOCK%castle believe it brings luck.  So far, it hasn't, as the lord of the
  320. XBLOCK%castle has let the engravers be hanged.
  321. XVALUE%0
  322. XSTICKY%T
  323. XDESCLINE%
  324. XDEFAULT*BLOCK!
  325. XDEFAULT*BLOCK!
  326. XDEFAULT*BLOCK!
  327. XUSEALIAS%
  328. XREQALIAS%F
  329. XREQVERB%F
  330. XPARTICLE%4
  331. XNULL*BLOCK!
  332. XNULL*BLOCK!
  333. XPOWER%0
  334. XEXP%0
  335. XOBJECT%silver ring
  336. XOWNER%#
  337. XNAME%silver ring
  338. XKIND%105
  339. XDEFAULT*DESCLINE!
  340. XNULL*BLOCK!
  341. XNULL*MDL!
  342. XNULL*BLOCK!
  343. XVALUE%0
  344. XSTICKY%F
  345. XNULL*BLOCK!
  346. XDEFAULT*BLOCK!
  347. XDEFAULT*BLOCK!
  348. XDEFAULT*BLOCK!
  349. XUSEALIAS%
  350. XREQALIAS%F
  351. XREQVERB%F
  352. XPARTICLE%1
  353. XNULL*BLOCK!
  354. XNULL*BLOCK!
  355. XPOWER%0
  356. XEXP%0
  357. XOBJECT%dagger
  358. XOWNER%#
  359. XNAME%dagger
  360. XKIND%1
  361. XDEFAULT*DESCLINE!
  362. XDESCLINE%The dagger is sharp.
  363. XNULL*MDL!
  364. XNULL*BLOCK!
  365. XVALUE%0
  366. XSTICKY%F
  367. XNULL*BLOCK!
  368. XDEFAULT*BLOCK!
  369. XDEFAULT*BLOCK!
  370. XDEFAULT*BLOCK!
  371. XUSEALIAS%
  372. XREQALIAS%F
  373. XREQVERB%F
  374. XPARTICLE%1
  375. XNULL*BLOCK!
  376. XNULL*BLOCK!
  377. XPOWER%1
  378. XEXP%0
  379. XOBJECT%grey robe
  380. XOWNER%#
  381. XNAME%grey robe
  382. XKIND%2
  383. XDEFAULT*DESCLINE!
  384. XNULL*BLOCK!
  385. XNULL*MDL!
  386. XNULL*BLOCK!
  387. XVALUE%0
  388. XSTICKY%F
  389. XNULL*BLOCK!
  390. XDEFAULT*BLOCK!
  391. XDEFAULT*BLOCK!
  392. XDEFAULT*BLOCK!
  393. XUSEALIAS%
  394. XREQALIAS%F
  395. XREQVERB%F
  396. XPARTICLE%1
  397. XNULL*BLOCK!
  398. XNULL*BLOCK!
  399. XPOWER%500
  400. XEXP%0
  401. XOBJECT%irons
  402. XOWNER%#
  403. XNAME%irons
  404. XKIND%0
  405. XDESCLINE%There are irons lying on the ground.
  406. XNULL*BLOCK!
  407. XSTART*MDL!
  408. XSHORTMEGA%1:0:0:0:"You are still in irons"
  409. XSHORTMEGA%-2:1:0:0:15
  410. XSHORTMEGA%3:0:0:0:"irons"
  411. XSHORTMEGA%-4:3:0:0:8
  412. XSHORTMEGA%-5:2:4:0:24
  413. XSHORTMEGA%H6:1:5:drop succeed
  414. XSHORTMEGA%7:6:0:0:-
  415. XSHORTMEGA%J30:0
  416. XSHORTMEGA%-9:8:0:0:24
  417. XSHORTMEGA%H6:1:9:leave
  418. XSHORTMEGA%11:10:0:0:-
  419. XSHORTMEGA%H6:1:9:look you
  420. XSHORTMEGA%13:12:0:0:-
  421. XSHORTMEGA%H6:1:9:enter
  422. XSHORTMEGA%15:14:0:0:-
  423. XSHORTMEGA%J35:0
  424. XSHORTMEGA%-17:16:0:0:24
  425. XSHORTMEGA%H6:1:17:use succeed
  426. XSHORTMEGA%19:18:0:0:-
  427. XSHORTMEGA%H6:1:8:start
  428. XSHORTMEGA%21:20:0:0:-
  429. XSHORTMEGA%22:0:0:0:_player name
  430. XSHORTMEGA%-23:22:0:0:65
  431. XSHORTMEGA%24:0:0:0:"Guard of dungeon"
  432. XSHORTMEGA%-25:24:0:0:46
  433. XSHORTMEGA%-26:23:25:0:11
  434. XSHORTMEGA%J40:0
  435. XSHORTMEGA%-28:26:27:0:22
  436. XSHORTMEGA%-29:28:0:0:24
  437. XSHORTMEGA%H6:1:29:check
  438. XSHORTMEGA%31:30:0:0:-
  439. XSHORTMEGA%-32:25:23:0:12
  440. XSHORTMEGA%-33:24:32:0:47
  441. XSHORTMEGA%-34:33:0:0:24
  442. XSHORTMEGA%H6:1:34:lisaa
  443. XSHORTMEGA%36:35:0:0:-
  444. XSHORTMEGA%37:0:0:0:"Cling Clang!"
  445. XSHORTMEGA%-38:37:0:0:16
  446. XSHORTMEGA%-39:38:4:0:24
  447. XSHORTMEGA%H6:1:39:kahleet
  448. XSHORTMEGA%41:40:0:0:-
  449. XSHORTMEGA%-42:25:23:0:45
  450. XSHORTMEGA%-43:24:42:0:47
  451. XSHORTMEGA%-44:43:0:0:24
  452. XSHORTMEGA%H6:1:44:command
  453. XSHORTMEGA%46:45:0:0:-
  454. XRUNNABLE%T
  455. XPRIV%F
  456. XOWNER%#
  457. XCTIME%25-AUG-1989 12:47am
  458. XSTATLAB%command
  459. XRCOUNT%6
  460. XECOUNT%0
  461. XLASTRUN%31-MAY-1992  8:36pm
  462. XSTATLAB%drop succeed
  463. XRCOUNT%95
  464. XECOUNT%0
  465. XLASTRUN%31-MAY-1992  8:13pm
  466. XSTATLAB%look you
  467. XRCOUNT%35
  468. XECOUNT%0
  469. XLASTRUN%31-MAY-1992  8:15pm
  470. XSTATLAB%get succeed
  471. XRCOUNT%37
  472. XECOUNT%37
  473. XLASTRUN%31-MAY-1992  7:18pm
  474. XSTATLAB%drop you
  475. XRCOUNT%77
  476. XECOUNT%77
  477. XLASTRUN%31-MAY-1992  8:15pm
  478. XSTATLAB%leave
  479. XRCOUNT%140
  480. XECOUNT%0
  481. XLASTRUN%31-MAY-1992  7:55pm
  482. XSTATLAB%enter
  483. XRCOUNT%203
  484. XECOUNT%0
  485. XLASTRUN%31-MAY-1992  7:45pm
  486. XSTATLAB%start
  487. XRCOUNT%70
  488. XECOUNT%0
  489. XLASTRUN%31-MAY-1992  8:36pm
  490. XAUTHOR%hurtta
  491. XWTIME%25-AUG-1990 10:25pm
  492. XNULL*MEGA!
  493. XFLAGS%0
  494. XDESCLINE%They are ordinary irons with ball and chains.
  495. XVALUE%0
  496. XSTICKY%F
  497. XNULL*BLOCK!
  498. XSTART*BLOCK!
  499. XBLOCK%You pick them up...
  500. XBLOCK%What do you want to do with them?
  501. XBLOCK%Maybe use?
  502. XDEFAULT*BLOCK!
  503. XSTART*BLOCK!
  504. XBLOCK%You are now wearing... irons?
  505. XBLOCK%Cling clang!
  506. XUSEALIAS%
  507. XREQALIAS%F
  508. XREQVERB%F
  509. XPARTICLE%0
  510. XNULL*BLOCK!
  511. XNULL*BLOCK!
  512. XPOWER%0
  513. XEXP%0
  514. XOBJECT%copper ring
  515. XOWNER%#
  516. XNAME%copper ring
  517. XKIND%104
  518. XDEFAULT*DESCLINE!
  519. XNULL*BLOCK!
  520. XNULL*MDL!
  521. XNULL*BLOCK!
  522. XVALUE%0
  523. XSTICKY%F
  524. XNULL*BLOCK!
  525. XDEFAULT*BLOCK!
  526. XDEFAULT*BLOCK!
  527. XDEFAULT*BLOCK!
  528. XUSEALIAS%
  529. XREQALIAS%F
  530. XREQVERB%F
  531. XPARTICLE%1
  532. XNULL*BLOCK!
  533. XNULL*BLOCK!
  534. XPOWER%0
  535. XEXP%0
  536. XOBJECT%ruby
  537. XOWNER%#
  538. XNAME%ruby
  539. XKIND%101
  540. XDEFAULT*DESCLINE!
  541. XNULL*BLOCK!
  542. XNULL*MDL!
  543. XNULL*BLOCK!
  544. XVALUE%0
  545. XSTICKY%F
  546. XNULL*BLOCK!
  547. XDEFAULT*BLOCK!
  548. XDEFAULT*BLOCK!
  549. XDEFAULT*BLOCK!
  550. XUSEALIAS%
  551. XREQALIAS%F
  552. XREQVERB%F
  553. XPARTICLE%1
  554. XNULL*BLOCK!
  555. XNULL*BLOCK!
  556. XPOWER%0
  557. XEXP%0
  558. XOBJECT%tip of blood
  559. XOWNER%#
  560. XNAME%tip of blood
  561. XKIND%0
  562. XDEFAULT*DESCLINE!
  563. XNULL*BLOCK!
  564. XSTART*MDL!
  565. XSHORTMEGA%1:0:0:0:_player name
  566. XSHORTMEGA%2:0:0:0:"Gandalf"
  567. XSHORTMEGA%-3:1:2:0:2
  568. XSHORTMEGA%4:0:0:0:"Bat"
  569. XSHORTMEGA%5:0:0:0:GOSUB back
  570. XSHORTMEGA%-6:4:5:0:44
  571. XSHORTMEGA%-7:3:6:0:22
  572. XSHORTMEGA%8:7:0:0:LABEL look you
  573. XSHORTMEGA%9:8:0:0:-
  574. XSHORTMEGA%10:0:0:0:"Gandalf"
  575. XSHORTMEGA%-11:10:0:0:23
  576. XSHORTMEGA%-12:11:0:0:13
  577. XSHORTMEGA%13:0:0:0:"Flaff flaff flaff..."
  578. XSHORTMEGA%-14:13:0:0:16
  579. XSHORTMEGA%15:0:0:0:"Bat sits on Gandalf's shoulder."
  580. XSHORTMEGA%-16:15:0:0:16
  581. XSHORTMEGA%17:12:14:16:LABEL back
  582. XSHORTMEGA%18:17:0:0:-
  583. XSHORTMEGA%19:0:0:0:"Bat"
  584. XSHORTMEGA%20:0:0:0:GOSUB take
  585. XSHORTMEGA%-21:19:20:0:44
  586. XSHORTMEGA%22:21:0:0:LABEL drop you
  587. XSHORTMEGA%23:22:0:0:-
  588. XSHORTMEGA%24:0:0:0:"Gandalf"
  589. XSHORTMEGA%-25:24:0:0:23
  590. XSHORTMEGA%-26:25:0:0:13
  591. XSHORTMEGA%27:0:0:0:"Flaff flaff flaff..."
  592. XSHORTMEGA%-28:27:0:0:16
  593. XSHORTMEGA%29:0:0:0:"tip of blood, wand"
  594. XSHORTMEGA%-30:29:0:0:7
  595. XSHORTMEGA%-31:26:28:30:24
  596. XSHORTMEGA%32:0:0:0:"Flaff flaff flaff..."
  597. XSHORTMEGA%-33:32:0:0:16
  598. XSHORTMEGA%34:0:0:0:"home"
  599. XSHORTMEGA%-35:34:0:0:13
  600. XSHORTMEGA%-36:0:0:0:3
  601. XSHORTMEGA%-37:36:0:0:9
  602. XSHORTMEGA%-38:33:35:37:24
  603. XSHORTMEGA%-39:31:38:0:24
  604. XSHORTMEGA%40:39:0:0:LABEL take
  605. XSHORTMEGA%41:40:0:0:-
  606. XRUNNABLE%T
  607. XPRIV%T
  608. XOWNER%#
  609. XCTIME%17-AUG-1989  5:08pm
  610. XSTATLAB%drop succeed
  611. XRCOUNT%2
  612. XECOUNT%2
  613. XLASTRUN% 9-JUN-1990 11:35am
  614. XSTATLAB%start
  615. XRCOUNT%129
  616. XECOUNT%129
  617. XLASTRUN%21-JUL-1991  2:13pm
  618. XSTATLAB%get succeed
  619. XRCOUNT%5
  620. XECOUNT%5
  621. XLASTRUN% 9-JUN-1990 11:34am
  622. XSTATLAB%drop you
  623. XRCOUNT%4
  624. XECOUNT%0
  625. XLASTRUN%31-OCT-1989  7:45pm
  626. XSTATLAB%look you
  627. XRCOUNT%7
  628. XECOUNT%0
  629. XLASTRUN% 9-JUN-1990 11:33am
  630. XAUTHOR%pniemi
  631. XWTIME%28-SEP-1989  8:18pm
  632. XNULL*MEGA!
  633. XFLAGS%0
  634. XSTART*BLOCK!
  635. XBLOCK%It is a perfectly tiplike tip of blood.  I wonder how it can keep`032
  636. XBLOCK%together, as it is still warm?
  637. XVALUE%0
  638. XSTICKY%F
  639. XNULL*BLOCK!
  640. XDEFAULT*BLOCK!
  641. XDEFAULT*BLOCK!
  642. XDEFAULT*BLOCK!
  643. XUSEALIAS%
  644. XREQALIAS%F
  645. XREQVERB%F
  646. XPARTICLE%1
  647. XNULL*BLOCK!
  648. XNULL*BLOCK!
  649. XPOWER%0
  650. XEXP%0
  651. XOBJECT%amphora
  652. XOWNER%#
  653. XNAME%amphora
  654. XKIND%0
  655. XDEFAULT*DESCLINE!
  656. XNULL*BLOCK!
  657. XSTART*MDL!
  658. XSHORTMEGA%1:0:0:0:"fill"
  659. XSHORTMEGA%2:0:0:0:_command
  660. XSHORTMEGA%-3:1:2:0:2
  661. XSHORTMEGA%4:0:0:0:"frog"
  662. XSHORTMEGA%J34:0
  663. XSHORTMEGA%-6:4:5:0:44
  664. XSHORTMEGA%7:0:0:0:"empty"
  665. XSHORTMEGA%-8:7:2:0:2
  666. XSHORTMEGA%9:0:0:0:"You pour the water out of the amphora."
  667. XSHORTMEGA%-10:9:0:0:15
  668. XSHORTMEGA%11:0:0:0:" "
  669. XSHORTMEGA%-12:4:11:0:47
  670. XSHORTMEGA%-13:10:12:0:24
  671. XSHORTMEGA%-14:8:13:0:22
  672. XSHORTMEGA%-15:3:6:14:22
  673. XSHORTMEGA%H6:1:15:command
  674. XSHORTMEGA%17:16:0:0:-
  675. XSHORTMEGA%18:0:0:0:_player name
  676. XSHORTMEGA%-19:18:0:0:23
  677. XSHORTMEGA%20:0:0:0:"bottom of well"
  678. XSHORTMEGA%-21:19:20:0:2
  679. XSHORTMEGA%-22:4:0:0:46
  680. XSHORTMEGA%23:0:0:0:"It already is."
  681. XSHORTMEGA%-24:23:0:0:15
  682. XSHORTMEGA%25:0:0:0:"filled"
  683. XSHORTMEGA%-26:4:25:0:47
  684. XSHORTMEGA%27:0:0:0:"OK. It is filled with water now."
  685. XSHORTMEGA%-28:27:0:0:15
  686. XSHORTMEGA%-29:26:28:0:24
  687. XSHORTMEGA%-30:22:24:29:22
  688. XSHORTMEGA%31:0:0:0:"You can't do it here."
  689. XSHORTMEGA%-32:31:0:0:15
  690. XSHORTMEGA%-33:21:30:32:22
  691. XSHORTMEGA%H6:1:33:fill it
  692. XSHORTMEGA%35:34:0:0:-
  693. XSHORTMEGA%36:0:0:0:"The amphora is filled with water."
  694. XSHORTMEGA%-37:36:0:0:15
  695. XSHORTMEGA%38:0:0:0:"The amphora is empty."
  696. XSHORTMEGA%-39:38:0:0:15
  697. XSHORTMEGA%-40:22:37:39:22
  698. XSHORTMEGA%H6:1:40:look you
  699. XSHORTMEGA%42:41:0:0:-
  700. XSHORTMEGA%J61:0
  701. XSHORTMEGA%-44:4:43:0:44
  702. XSHORTMEGA%H6:1:44:drop succeed
  703. XSHORTMEGA%46:45:0:0:-
  704. XSHORTMEGA%H6:1:44:drop you
  705. XSHORTMEGA%48:47:0:0:-
  706. XSHORTMEGA%H6:1:44:leave
  707. XSHORTMEGA%50:49:0:0:-
  708. XSHORTMEGA%-51:19:0:0:13
  709. XSHORTMEGA%52:0:0:0:"amphora"
  710. XSHORTMEGA%-53:52:0:0:7
  711. XSHORTMEGA%54:0:0:0:"kitchen"
  712. XSHORTMEGA%-55:54:0:0:13
  713. XSHORTMEGA%-56:51:53:55:24
  714. XSHORTMEGA%-57:52:0:0:9
  715. XSHORTMEGA%-58:20:0:0:13
  716. XSHORTMEGA%-59:57:58:0:24
  717. XSHORTMEGA%-60:56:59:0:24
  718. XSHORTMEGA%H6:1:60:to home
  719. XSHORTMEGA%62:61:0:0:-
  720. XRUNNABLE%T
  721. XPRIV%F
  722. XOWNER%#
  723. XCTIME%20-AUG-1989 12:33am
  724. XSTATLAB%drop succeed
  725. XRCOUNT%4
  726. XECOUNT%0
  727. XLASTRUN%23-MAR-1991  7:20pm
  728. XSTATLAB%look you
  729. XRCOUNT%24
  730. XECOUNT%0
  731. XLASTRUN%18-APR-1991  7:31pm
  732. XSTATLAB%start
  733. XRCOUNT%10
  734. XECOUNT%10
  735. XLASTRUN%13-JUN-1992  4:46pm
  736. XSTATLAB%leave
  737. XRCOUNT%44
  738. XECOUNT%0
  739. XLASTRUN%21-MAR-1991  6:05pm
  740. XSTATLAB%command
  741. XRCOUNT%62
  742. XECOUNT%0
  743. XLASTRUN%18-APR-1991  7:32pm
  744. XSTATLAB%drop you
  745. XRCOUNT%15
  746. XECOUNT%0
  747. XLASTRUN%18-APR-1991  7:49pm
  748. XSTATLAB%get succeed
  749. XRCOUNT%51
  750. XECOUNT%51
  751. XLASTRUN%18-APR-1991  7:31pm
  752. XSTATLAB%enter
  753. XRCOUNT%87
  754. XECOUNT%87
  755. XLASTRUN%18-APR-1991  7:30pm
  756. XAUTHOR%hurtta
  757. XWTIME%25-AUG-1990 10:26pm
  758. XSHORTMEGA%filled
  759. XFLAGS%0
  760. XSTART*BLOCK!
  761. XBLOCK%The amphora is quite beautiful, though it has a tip of blood on it, as
  762. XBLOCK%someone badly wounded had been drinking from it.
  763. XBLOCK%
  764. XVALUE%0
  765. XSTICKY%F
  766. XNULL*BLOCK!
  767. XDEFAULT*BLOCK!
  768. XDEFAULT*BLOCK!
  769. XDEFAULT*BLOCK!
  770. XUSEALIAS%
  771. XREQALIAS%F
  772. XREQVERB%F
  773. XPARTICLE%2
  774. XNULL*BLOCK!
  775. XNULL*BLOCK!
  776. XPOWER%0
  777. XEXP%0
  778. XOBJECT%ladyfrog
  779. XOWNER%#
  780. XNAME%LadyFrog
  781. XKIND%0
  782. XDESCLINE%LadyFrog is here.
  783. XNULL*BLOCK!
  784. XNULL*MDL!
  785. XDESCLINE%The lady frog is nearly as ugly as the frog.
  786. XVALUE%0
  787. XSTICKY%T
  788. XDESCLINE%The frog doesn't like the way you treat his wife...
  789. XDEFAULT*BLOCK!
  790. XDEFAULT*BLOCK!
  791. XDEFAULT*BLOCK!
  792. XUSEALIAS%
  793. XREQALIAS%F
  794. XREQVERB%F
  795. XPARTICLE%1
  796. XNULL*BLOCK!
  797. XNULL*BLOCK!
  798. XPOWER%0
  799. XEXP%0
  800. XOBJECT%leave permission
  801. XOWNER%#
  802. XNAME%leave permission
  803. XKIND%0
  804. XDESCLINE%There is a leave permission lying on the ground.
  805. XNULL*BLOCK!
  806. XNULL*MDL!
  807. XSTART*BLOCK!
  808. XBLOCK%"Hereby I, the lord of the castle, grant you to leave this castle.
  809. XBLOCK%You may leavy by entering the gate.
  810. XBLOCK%
  811. XBLOCK%"
  812. XBLOCK%
  813. XBLOCK%  There is also sign under the the text, but it is unreadable.
  814. XVALUE%0
  815. XSTICKY%F
  816. XNULL*BLOCK!
  817. XDEFAULT*BLOCK!
  818. XDEFAULT*BLOCK!
  819. XDEFAULT*BLOCK!
  820. XUSEALIAS%
  821. XREQALIAS%F
  822. XREQVERB%F
  823. XPARTICLE%1
  824. XNULL*BLOCK!
  825. XNULL*BLOCK!
  826. XPOWER%0
  827. XEXP%0
  828. XOBJECT%mage
  829. XOWNER%#
  830. XNAME%mage
  831. XKIND%0
  832. XDESCLINE%You see dead mage lying on floor.
  833. XNULL*BLOCK!
  834. XSTART*MDL!
  835. XSTART*MEGA!
  836. XMEGA%    1:    0:    0:    0:"You want to robber dead bodies ? You won't do
  837. XMEGA% it with this mage."
  838. XSHORTMEGA%    2:    1:    0:    0:pprint
  839. XSHORTMEGA%    3:    0:    0:    0:_player name
  840. XSTART*MEGA!
  841. XMEGA%    4:    0:    0:    0:" tried to robber dead mages body, outrageous.
  842. XMEGA%"
  843. XSHORTMEGA%    5:    3:    4:    0:+
  844. XSHORTMEGA%    6:    5:    0:    0:oprint
  845. XSHORTMEGA%    7:    2:    6:    0:null
  846. XSHORTMEGA%    8:    7:    0:    0:LABEL get fail
  847. XSHORTMEGA%    9:    8:    0:    0:-
  848. XRUNNABLE%T
  849. XPRIV%F
  850. XOWNER%#
  851. XCTIME%20-AUG-1989 12:42pm
  852. XSTATLAB%command
  853. XRCOUNT%5
  854. XECOUNT%5
  855. XLASTRUN%18-SEP-1990  9:25am
  856. XSTATLAB%get succeed
  857. XRCOUNT%1
  858. XECOUNT%1
  859. XLASTRUN%24-AUG-1989  9:22pm
  860. XSTATLAB%get fail
  861. XRCOUNT%14
  862. XECOUNT%0
  863. XLASTRUN%31-MAY-1992  7:53pm
  864. XSTATLAB%start
  865. XRCOUNT%28
  866. XECOUNT%28
  867. XLASTRUN% 4-NOV-1990 10:46pm
  868. XSTATLAB%look you
  869. XRCOUNT%32
  870. XECOUNT%32
  871. XLASTRUN%31-MAY-1992  7:53pm
  872. XSTATLAB%leave
  873. XRCOUNT%59
  874. XECOUNT%59
  875. XLASTRUN%31-MAY-1992  7:55pm
  876. XSTATLAB%enter
  877. XRCOUNT%80
  878. XECOUNT%80
  879. XLASTRUN%31-MAY-1992  7:45pm
  880. XAUTHOR%jylitalo
  881. XWTIME%20-AUG-1989  1:22pm
  882. XNULL*MEGA!
  883. XFLAGS%0
  884. XSTART*BLOCK!
  885. XBLOCK%He had just got powers to summon monster, but as all young mages
  886. XBLOCK%he was able to make miscalculation.
  887. XBLOCK%Oh, yes he succeeded in summoning demon, but after that he didn't
  888. XBLOCK%have enough power for controlling it. It fainted him to his death.
  889. XBLOCK%Demon can't leave this place, before someone breaks the pentagram.
  890. XBLOCK%`032
  891. XBLOCK%Mage is absolutely dead.
  892. XBLOCK%Mage is wearing red robes.
  893. XBLOCK%Mage is wielding wooden staff.
  894. XVALUE%0
  895. XSTICKY%T
  896. XNULL*BLOCK!
  897. XDEFAULT*BLOCK!
  898. XDEFAULT*BLOCK!
  899. XDEFAULT*BLOCK!
  900. XUSEALIAS%
  901. XREQALIAS%F
  902. XREQVERB%F
  903. XPARTICLE%1
  904. XNULL*BLOCK!
  905. XNULL*BLOCK!
  906. XPOWER%0
  907. XEXP%0
  908. XOBJECT%brand of succubus
  909. XOWNER%#
  910. XNAME%brand of Succubus
  911. XKIND%0
  912. XNULL*DESCLINE!
  913. XNULL*BLOCK!
  914. XSTART*MDL!
  915. XSHORTMEGA%-1:0:0:0:4
  916. XSHORTMEGA%2:0:0:0:"brand of succubus"
  917. XSHORTMEGA%-3:1:2:0:11
  918. XSHORTMEGA%-4:3:0:0:27
  919. XSHORTMEGA%5:0:0:0:"Demon"
  920. XSHORTMEGA%-6:5:0:0:46
  921. XSHORTMEGA%7:0:0:0:"Old Monk"
  922. XSHORTMEGA%8:0:0:0:_player name
  923. XSHORTMEGA%-9:8:0:0:65
  924. XSHORTMEGA%-10:7:9:0:44
  925. XSHORTMEGA%-11:6:10:0:11
  926. XSHORTMEGA%12:0:0:0:"brand of Succubus"
  927. XSHORTMEGA%-13:12:0:0:8
  928. XSHORTMEGA%-14:11:13:0:22
  929. XSHORTMEGA%-15:4:14:0:22
  930. XSHORTMEGA%H6:1:15:TYO
  931. XSHORTMEGA%17:16:0:0:-
  932. XSHORTMEGA%J16:0
  933. XSHORTMEGA%H6:1:18:start
  934. XSHORTMEGA%20:19:0:0:-
  935. XSHORTMEGA%H6:1:18:enter
  936. XSHORTMEGA%22:21:0:0:-
  937. XSHORTMEGA%H6:1:18:leave
  938. XSHORTMEGA%24:23:0:0:-
  939. XSHORTMEGA%H6:1:18:poof in
  940. XSHORTMEGA%26:25:0:0:-
  941. XSHORTMEGA%H6:1:18:poof out
  942. XSHORTMEGA%28:27:0:0:-
  943. XRUNNABLE%T
  944. XPRIV%F
  945. XOWNER%#
  946. XCTIME%20-AUG-1989  1:42pm
  947. XSTATLAB%enter
  948. XRCOUNT%109
  949. XECOUNT%0
  950. XLASTRUN%31-MAY-1992  8:06pm
  951. XSTATLAB%command
  952. XRCOUNT%2
  953. XECOUNT%2
  954. XLASTRUN% 6-FEB-1991 10:06pm
  955. XSTATLAB%look you
  956. XRCOUNT%14
  957. XECOUNT%14
  958. XLASTRUN%31-MAY-1992  8:43pm
  959. XSTATLAB%leave
  960. XRCOUNT%1
  961. XECOUNT%0
  962. XLASTRUN% 4-SEP-1990  3:47pm
  963. XSTATLAB%get fail
  964. XRCOUNT%23
  965. XECOUNT%23
  966. XLASTRUN% 7-DEC-1991 11:57pm
  967. XSTATLAB%drop you
  968. XRCOUNT%10
  969. XECOUNT%10
  970. XLASTRUN%18-APR-1991  7:49pm
  971. XSTATLAB%start
  972. XRCOUNT%58
  973. XECOUNT%0
  974. XLASTRUN% 4-JUN-1992  8:15pm
  975. XAUTHOR%hurtta
  976. XWTIME%25-AUG-1990 10:29pm
  977. XNULL*MEGA!
  978. XFLAGS%0
  979. XSTART*BLOCK!
  980. XBLOCK%You have brand of Succubus burned on your hand.
  981. XBLOCK%It means that after your death, you are going to be her
  982. XBLOCK%servant and you are going to do, whatever she wants.
  983. XBLOCK%Not nice future ...
  984. XVALUE%0
  985. XSTICKY%T
  986. XNULL*BLOCK!
  987. XDEFAULT*BLOCK!
  988. XDEFAULT*BLOCK!
  989. XDEFAULT*BLOCK!
  990. XUSEALIAS%
  991. XREQALIAS%F
  992. XREQVERB%F
  993. XPARTICLE%1
  994. XNULL*BLOCK!
  995. XNULL*BLOCK!
  996. XPOWER%0
  997. XEXP%0
  998. XOBJECT%gold sack
  999. XOWNER%#
  1000. XNAME%gold sack
  1001. XKIND%0
  1002. XDEFAULT*DESCLINE!
  1003. XNULL*BLOCK!
  1004. XSTART*MDL!
  1005. XSHORTMEGA%1:0:0:0:"Treasurer"
  1006. XSHORTMEGA%J22:0
  1007. XSHORTMEGA%-3:1:2:0:44
  1008. XSHORTMEGA%H6:1:3:drop you
  1009. XSHORTMEGA%5:4:0:0:-
  1010. XSHORTMEGA%H6:1:3:drop succeed
  1011. XSHORTMEGA%7:6:0:0:-
  1012. XSHORTMEGA%8:0:0:0:_player name
  1013. XSHORTMEGA%-9:8:0:0:23
  1014. XSHORTMEGA%-10:9:0:0:13
  1015. XSTART*MEGA!
  1016. XMEGA%11:0:0:0:"Suddenly the Treasurer enters the room, looks suspiciously a
  1017. XMEGA%round him taking the gold and vanishes."
  1018. XSHORTMEGA%-12:11:0:0:16
  1019. XSHORTMEGA%13:0:0:0:"gold sack"
  1020. XSHORTMEGA%-14:13:0:0:7
  1021. XSHORTMEGA%-15:10:12:14:24
  1022. XSHORTMEGA%16:0:0:0:"treasury"
  1023. XSHORTMEGA%-17:16:0:0:13
  1024. XSHORTMEGA%-18:0:0:0:3
  1025. XSHORTMEGA%-19:18:0:0:9
  1026. XSHORTMEGA%-20:17:19:0:24
  1027. XSHORTMEGA%-21:15:20:0:24
  1028. XSHORTMEGA%H6:1:21:fetch gold
  1029. XSHORTMEGA%23:22:0:0:-
  1030. XRUNNABLE%T
  1031. XPRIV%F
  1032. XOWNER%#
  1033. XCTIME%26-SEP-1989 11:13pm
  1034. XSTATLAB%command
  1035. XRCOUNT%5
  1036. XECOUNT%5
  1037. XLASTRUN%31-MAY-1992  8:10pm
  1038. XSTATLAB%look you
  1039. XRCOUNT%12
  1040. XECOUNT%12
  1041. XLASTRUN% 8-JAN-1992  9:02am
  1042. XSTATLAB%drop you
  1043. XRCOUNT%28
  1044. XECOUNT%0
  1045. XLASTRUN% 5-MAR-1992 10:16pm
  1046. XSTATLAB%start
  1047. XRCOUNT%79
  1048. XECOUNT%79
  1049. XLASTRUN%13-JUN-1992  4:52pm
  1050. XSTATLAB%drop succeed
  1051. XRCOUNT%22
  1052. XECOUNT%0
  1053. XLASTRUN%25-MAR-1992 11:32pm
  1054. XSTATLAB%leave
  1055. XRCOUNT%347
  1056. XECOUNT%347
  1057. XLASTRUN%31-MAY-1992  8:14pm
  1058. XSTATLAB%get succeed
  1059. XRCOUNT%144
  1060. XECOUNT%144
  1061. XLASTRUN%31-MAY-1992  8:14pm
  1062. XSTATLAB%enter
  1063. XRCOUNT%495
  1064. XECOUNT%495
  1065. XLASTRUN%31-MAY-1992  8:14pm
  1066. XAUTHOR%hurtta
  1067. XWTIME%25-AUG-1990 10:30pm
  1068. XNULL*MEGA!
  1069. XFLAGS%0
  1070. XDESCLINE%The sack is full of gold coins.
  1071. XVALUE%0
  1072. XSTICKY%F
  1073. XNULL*BLOCK!
  1074. XDEFAULT*BLOCK!
  1075. XDEFAULT*BLOCK!
  1076. XDEFAULT*BLOCK!
  1077. XUSEALIAS%
  1078. XREQALIAS%F
  1079. XREQVERB%F
  1080. XPARTICLE%1
  1081. XNULL*BLOCK!
  1082. XNULL*BLOCK!
  1083. XPOWER%0
  1084. XEXP%0
  1085. XOBJECT%broom
  1086. XOWNER%#
  1087. XNAME%broom
  1088. XKIND%0
  1089. XDEFAULT*DESCLINE!
  1090. XNULL*BLOCK!
  1091. XSTART*MDL!
  1092. XSHORTMEGA%1:0:0:0:"Groom"
  1093. XSHORTMEGA%-2:1:0:0:46
  1094. XSHORTMEGA%3:0:0:0:_player name
  1095. XSHORTMEGA%-4:3:0:0:65
  1096. XSHORTMEGA%-5:2:4:0:11
  1097. XSHORTMEGA%6:0:0:0:"Groom: Stop sweeping, the ground wears off!"
  1098. XSHORTMEGA%-7:6:0:0:15
  1099. XSHORTMEGA%8:0:0:0:"broom"
  1100. XSHORTMEGA%-9:8:0:0:10
  1101. XSHORTMEGA%-10:7:9:0:24
  1102. XSHORTMEGA%11:0:0:0:"1, 0, 0"
  1103. XSHORTMEGA%-12:11:0:0:28
  1104. XSHORTMEGA%13:0:0:0:"1"
  1105. XSHORTMEGA%-14:12:13:0:2
  1106. XSTART*MEGA!
  1107. XMEGA%15:0:0:0:"Groom: OK, that's enought. Your work is miserable, but I don
  1108. XMEGA%'t wand to see your stupid face any longer. Here you are, this was wha
  1109. XMEGA%t you are here for."
  1110. XSHORTMEGA%-16:15:0:0:15
  1111. XSHORTMEGA%J40:0
  1112. XSHORTMEGA%18:0:0:0:"man"
  1113. XSHORTMEGA%-19:18:0:0:46
  1114. XSHORTMEGA%-20:4:19:0:11
  1115. XSHORTMEGA%J49:0
  1116. XSHORTMEGA%22:0:0:0:"leave permission"
  1117. XSHORTMEGA%-23:22:0:0:51
  1118. XSHORTMEGA%-24:20:21:23:22
  1119. XSHORTMEGA%-25:16:17:24:24
  1120. XSHORTMEGA%26:0:0:0:"Groom: Go on! There is still shit on the ground!"
  1121. XSHORTMEGA%-27:26:0:0:15
  1122. XSHORTMEGA%-28:14:25:27:22
  1123. XSHORTMEGA%-29:5:10:28:22
  1124. XSHORTMEGA%-30:29:0:0:24
  1125. XSHORTMEGA%H6:1:30:use succeed
  1126. XSHORTMEGA%32:31:0:0:-
  1127. XSHORTMEGA%-33:2:4:0:12
  1128. XSHORTMEGA%-34:1:33:0:47
  1129. XSHORTMEGA%-35:3:0:0:30
  1130. XSHORTMEGA%36:0:0:0:"30"
  1131. XSHORTMEGA%-37:35:36:0:31
  1132. XSHORTMEGA%-38:37:0:0:35
  1133. XSHORTMEGA%-39:34:9:38:24
  1134. XSHORTMEGA%H6:1:39:common
  1135. XSHORTMEGA%41:40:0:0:-
  1136. XSHORTMEGA%42:0:0:0:"- A kick straigth to the ass!"
  1137. XSHORTMEGA%-43:42:0:0:15
  1138. XSHORTMEGA%44:0:0:0:" just got a kick right to the ass and flew away..."
  1139. XSHORTMEGA%-45:3:44:0:17
  1140. XSHORTMEGA%46:0:0:0:"yard3"
  1141. XSHORTMEGA%-47:46:0:0:14
  1142. XSHORTMEGA%-48:43:45:47:24
  1143. XSHORTMEGA%H6:1:48:show door
  1144. XSHORTMEGA%50:49:0:0:-
  1145. XRUNNABLE%T
  1146. XPRIV%F
  1147. XOWNER%#
  1148. XCTIME%31-AUG-1989  2:03am
  1149. XSTATLAB%start
  1150. XRCOUNT%13
  1151. XECOUNT%13
  1152. XLASTRUN% 4-JUN-1992  9:51pm
  1153. XSTATLAB%drop succeed
  1154. XRCOUNT%3
  1155. XECOUNT%3
  1156. XLASTRUN% 8-JAN-1992  8:35am
  1157. XSTATLAB%command
  1158. XRCOUNT%9
  1159. XECOUNT%9
  1160. XLASTRUN%25-MAR-1992 10:04pm
  1161. XSTATLAB%look you
  1162. XRCOUNT%12
  1163. XECOUNT%12
  1164. XLASTRUN%26-APR-1992  3:20pm
  1165. XSTATLAB%leave
  1166. XRCOUNT%17
  1167. XECOUNT%17
  1168. XLASTRUN%31-MAY-1992  7:22pm
  1169. XSTATLAB%use succeed
  1170. XRCOUNT%52
  1171. XECOUNT%0
  1172. XLASTRUN%31-MAY-1992  7:22pm
  1173. XSTATLAB%get succeed
  1174. XRCOUNT%24
  1175. XECOUNT%24
  1176. XLASTRUN%31-MAY-1992  7:22pm
  1177. XSTATLAB%enter
  1178. XRCOUNT%26
  1179. XECOUNT%26
  1180. XLASTRUN%31-MAY-1992  7:21pm
  1181. XAUTHOR%hurtta
  1182. XWTIME%25-AUG-1990 10:31pm
  1183. XNULL*MEGA!
  1184. XFLAGS%0
  1185. XNULL*BLOCK!
  1186. XVALUE%0
  1187. XSTICKY%F
  1188. XNULL*BLOCK!
  1189. XDEFAULT*BLOCK!
  1190. XDEFAULT*BLOCK!
  1191. XSTART*BLOCK!
  1192. XBLOCK%You use the broom what it is for  -  sweeping.
  1193. XBLOCK%
  1194. XUSEALIAS%
  1195. XREQALIAS%F
  1196. XREQVERB%F
  1197. XPARTICLE%1
  1198. XNULL*BLOCK!
  1199. XNULL*BLOCK!
  1200. XPOWER%0
  1201. XEXP%0
  1202. XOBJECT%scroll of monsters
  1203. XOWNER%#
  1204. XNAME%scroll of monsters
  1205. XKIND%0
  1206. XDESCLINE%There is a scroll of monsters on the floor.
  1207. XNULL*BLOCK!
  1208. XNULL*MDL!
  1209. XSTART*BLOCK!
  1210. XBLOCK%This note contains a list of speech controlled monsters that are
  1211. XBLOCK%public and controllable by all managers.  Update this list as you
  1212. XBLOCK%create new public monsters.  --Gandalf
  1213. XBLOCK%
  1214. XBLOCK%man                 wicked dog
  1215. XBLOCK%groom               savage dog
  1216. XBLOCK%guard of dungeon    receptionist
  1217. XBLOCK%dog
  1218. XVALUE%0
  1219. XSTICKY%T
  1220. XNULL*BLOCK!
  1221. XDEFAULT*BLOCK!
  1222. XDEFAULT*BLOCK!
  1223. XDEFAULT*BLOCK!
  1224. XUSEALIAS%
  1225. XREQALIAS%F
  1226. XREQVERB%F
  1227. XPARTICLE%1
  1228. XNULL*BLOCK!
  1229. XNULL*BLOCK!
  1230. XPOWER%0
  1231. XEXP%0
  1232. XOBJECT%bone
  1233. XOWNER%#
  1234. XNAME%bone
  1235. XKIND%0
  1236. XDEFAULT*DESCLINE!
  1237. XNULL*BLOCK!
  1238. XSTART*MDL!
  1239. XSHORTMEGA%1:0:0:0:! For Bone
  1240. XSHORTMEGA%2:0:0:0:!
  1241. XSHORTMEGA%3:0:0:0:!- LABEL look you(if(or(=(player name,"Merlin"),
  1242. XSHORTMEGA%4:0:0:0:!                       =(random("1, 2, 3, 4"),"1")
  1243. XSHORTMEGA%5:0:0:0:!                      ),
  1244. XSTART*MEGA!
  1245. XMEGA%6:0:0:0:!                    control("Dog",if(move(where(player name))
  1246. XMEGA%,
  1247. XSHORTMEGA%7:0:0:0:!                                     null(print("Dog: Vuf
  1248. V"),
  1249. XSTART*MEGA!
  1250. XMEGA%8:0:0:0:!                                          set remote state("D
  1251. XMEGA%og","")
  1252. XSHORTMEGA%9:0:0:0:!                                         )
  1253. XSHORTMEGA%10:0:0:0:!                                    )
  1254. XSHORTMEGA%11:0:0:0:!                           )
  1255. XSHORTMEGA%12:0:0:0:!                   )
  1256. XSHORTMEGA%13:0:0:0:!                )
  1257. XSHORTMEGA%14:0:0:0:_player name
  1258. XSHORTMEGA%15:0:0:0:"manager"
  1259. XSHORTMEGA%-16:14:15:0:61
  1260. XSHORTMEGA%17:0:0:0:"1, 2, 3, 4"
  1261. XSHORTMEGA%-18:17:0:0:28
  1262. XSHORTMEGA%19:0:0:0:"1"
  1263. XSHORTMEGA%-20:18:19:0:2
  1264. XSHORTMEGA%-21:16:20:0:12
  1265. XSHORTMEGA%22:0:0:0:"Dog"
  1266. XSHORTMEGA%-23:14:0:0:23
  1267. XSHORTMEGA%-24:23:0:0:13
  1268. XSHORTMEGA%25:0:0:0:"Dog: Vuf"
  1269. XSHORTMEGA%-26:25:0:0:16
  1270. XSHORTMEGA%27:0:0:0:""
  1271. XSHORTMEGA%-28:22:27:0:47
  1272. XSHORTMEGA%-29:26:28:0:24
  1273. XSHORTMEGA%-30:24:29:0:22
  1274. XSHORTMEGA%-31:22:30:0:44
  1275. XSHORTMEGA%-32:21:31:0:22
  1276. XSHORTMEGA%H6:1:32:look you
  1277. XSHORTMEGA%34:33:0:0:-
  1278. XSHORTMEGA%35:0:0:0:"You can't"
  1279. XSHORTMEGA%36:0:0:0:_command
  1280. XSHORTMEGA%-37:35:36:0:1
  1281. XSHORTMEGA%38:0:0:0:"the bone."
  1282. XSHORTMEGA%-39:37:38:0:1
  1283. XSHORTMEGA%-40:39:0:0:15
  1284. XSHORTMEGA%H6:1:40:command
  1285. XSHORTMEGA%42:41:0:0:-
  1286. XSHORTMEGA%H6:0:start
  1287. XSHORTMEGA%44:43:0:0:-
  1288. XSHORTMEGA%H6:0:drop succeed
  1289. XSHORTMEGA%46:45:0:0:-
  1290. XSHORTMEGA%H6:0:get succeed
  1291. XSHORTMEGA%48:47:0:0:-
  1292. XSHORTMEGA%H6:0:enter
  1293. XSHORTMEGA%50:49:0:0:-
  1294. XSHORTMEGA%H6:0:leave
  1295. XSHORTMEGA%52:51:0:0:-
  1296. XRUNNABLE%T
  1297. XPRIV%F
  1298. XOWNER%#
  1299. XCTIME%24-AUG-1989 12:46pm
  1300. XAUTHOR%hurtta
  1301. XWTIME% 8-JUN-1992  9:50pm
  1302. XNULL*MEGA!
  1303. XFLAGS%0
  1304. XSTART*BLOCK!
  1305. XBLOCK%The bone is ordinary. Some dog is very intensively attached to it at t
  1306. Vhe
  1307. XBLOCK%moment.
  1308. XVALUE%0
  1309. XSTICKY%F
  1310. XNULL*BLOCK!
  1311. XDEFAULT*BLOCK!
  1312. XDEFAULT*BLOCK!
  1313. XDEFAULT*BLOCK!
  1314. XUSEALIAS%
  1315. XREQALIAS%F
  1316. XREQVERB%F
  1317. XPARTICLE%1
  1318. XNULL*BLOCK!
  1319. XNULL*BLOCK!
  1320. XPOWER%0
  1321. XEXP%0
  1322. XOBJECT%shield of klenz
  1323. XOWNER%#
  1324. XNAME%Shield of Klenz
  1325. XKIND%2
  1326. XDESCLINE%There is a shield hanging on one of the walls.
  1327. XNULL*BLOCK!
  1328. XSTART*MDL!
  1329. XSHORTMEGA%1:0:0:0:_player name
  1330. XSHORTMEGA%2:0:0:0:"wizard"
  1331. XSHORTMEGA%-3:1:2:0:61
  1332. XSHORTMEGA%-4:3:0:0:27
  1333. XSHORTMEGA%5:0:0:0:"Don't you dare get this shield!"
  1334. XSHORTMEGA%-6:5:0:0:15
  1335. XSHORTMEGA%7:0:0:0:"shield of klenz"
  1336. XSHORTMEGA%-8:7:0:0:10
  1337. XSHORTMEGA%-9:6:8:0:24
  1338. XSHORTMEGA%-10:4:9:0:22
  1339. XSHORTMEGA%11:10:0:0:LABEL get succeed
  1340. XSHORTMEGA%12:11:0:0:-
  1341. XRUNNABLE%T
  1342. XPRIV%T
  1343. XOWNER%#
  1344. XCTIME% 1-SEP-1989  2:29am
  1345. XSTATLAB%use succeed
  1346. XRCOUNT%1
  1347. XECOUNT%1
  1348. XLASTRUN% 6-FEB-1991  9:30pm
  1349. XSTATLAB%command
  1350. XRCOUNT%13
  1351. XECOUNT%13
  1352. XLASTRUN%23-MAR-1991  7:11pm
  1353. XSTATLAB%start
  1354. XRCOUNT%30
  1355. XECOUNT%30
  1356. XLASTRUN%26-MAR-1992 12:11am
  1357. XSTATLAB%look you
  1358. XRCOUNT%31
  1359. XECOUNT%31
  1360. XLASTRUN%31-MAY-1992  7:33pm
  1361. XSTATLAB%leave
  1362. XRCOUNT%61
  1363. XECOUNT%61
  1364. XLASTRUN%31-MAY-1992  7:34pm
  1365. XSTATLAB%enter
  1366. XRCOUNT%58
  1367. XECOUNT%58
  1368. XLASTRUN%31-MAY-1992  7:33pm
  1369. XSTATLAB%drop succeed
  1370. XRCOUNT%1
  1371. XECOUNT%1
  1372. XLASTRUN% 5-OCT-1989  1:26pm
  1373. XSTATLAB%get succeed
  1374. XRCOUNT%45
  1375. XECOUNT%0
  1376. XLASTRUN%31-MAY-1992  7:33pm
  1377. XAUTHOR%leino
  1378. XWTIME% 5-OCT-1989  1:25pm
  1379. XNULL*MEGA!
  1380. XFLAGS%0
  1381. XSTART*BLOCK!
  1382. XBLOCK%The shield is emblazoned with the arms of the Landgraf v. Klenz:
  1383. XBLOCK%Sable, a Wolf's Head caboshed Argent.
  1384. XVALUE%0
  1385. XSTICKY%F
  1386. XNULL*BLOCK!
  1387. XDEFAULT*BLOCK!
  1388. XDEFAULT*BLOCK!
  1389. XDEFAULT*BLOCK!
  1390. XUSEALIAS%
  1391. XREQALIAS%F
  1392. XREQVERB%F
  1393. XPARTICLE%4
  1394. XNULL*BLOCK!
  1395. XNULL*BLOCK!
  1396. XPOWER%10
  1397. XEXP%0
  1398. XOBJECT%anvil
  1399. XOWNER%#
  1400. XNAME%anvil
  1401. XKIND%0
  1402. XDESCLINE%There is an anvil hammed to a stub near the smith.
  1403. XNULL*BLOCK!
  1404. XNULL*MDL!
  1405. XSTART*BLOCK!
  1406. XBLOCK%***********************
  1407. XBLOCK% **********************
  1408. XBLOCK%  *********************
  1409. XBLOCK%   **************
  1410. XBLOCK%    *************
  1411. XBLOCK%-----------------------
  1412. XBLOCK%-----------------------
  1413. XBLOCK%
  1414. XBLOCK%Yap, that it is!
  1415. XVALUE%0
  1416. XSTICKY%T
  1417. XNULL*BLOCK!
  1418. XDEFAULT*BLOCK!
  1419. XDEFAULT*BLOCK!
  1420. XDEFAULT*BLOCK!
  1421. XUSEALIAS%
  1422. XREQALIAS%F
  1423. XREQVERB%F
  1424. XPARTICLE%2
  1425. XNULL*BLOCK!
  1426. XNULL*BLOCK!
  1427. XPOWER%0
  1428. XEXP%0
  1429. XOBJECT%hammer
  1430. XOWNER%#
  1431. XNAME%hammer
  1432. XKIND%0
  1433. XDEFAULT*DESCLINE!
  1434. XNULL*BLOCK!
  1435. XNULL*MDL!
  1436. XNULL*BLOCK!
  1437. XVALUE%0
  1438. XSTICKY%F
  1439. XNULL*BLOCK!
  1440. XDEFAULT*BLOCK!
  1441. XDEFAULT*BLOCK!
  1442. XDEFAULT*BLOCK!
  1443. XUSEALIAS%
  1444. XREQALIAS%F
  1445. XREQVERB%F
  1446. XPARTICLE%1
  1447. XNULL*BLOCK!
  1448. XNULL*BLOCK!
  1449. XPOWER%0
  1450. XEXP%0
  1451. XOBJECT%forge
  1452. XOWNER%#
  1453. XNAME%forge
  1454. XKIND%0
  1455. XDESCLINE%Near the anvil there is a forge.
  1456. XNULL*BLOCK!
  1457. XNULL*MDL!
  1458. XSTART*BLOCK!
  1459. XBLOCK%The forge is old and rusty, but still in usable condition.  It is`032
  1460. XBLOCK%half-filled with water.  On the bottom it some pieces of metal apparen
  1461. Vtly
  1462. XBLOCK%from things the smith has done.
  1463. XVALUE%0
  1464. XSTICKY%T
  1465. XNULL*BLOCK!
  1466. XDEFAULT*BLOCK!
  1467. XDEFAULT*BLOCK!
  1468. XDEFAULT*BLOCK!
  1469. XUSEALIAS%
  1470. XREQALIAS%F
  1471. XREQVERB%F
  1472. XPARTICLE%1
  1473. XNULL*BLOCK!
  1474. XNULL*BLOCK!
  1475. XPOWER%0
  1476. XEXP%0
  1477. XOBJECT%knife
  1478. XOWNER%#
  1479. XNAME%knife
  1480. XKIND%1
  1481. XDEFAULT*DESCLINE!
  1482. XNULL*BLOCK!
  1483. XNULL*MDL!
  1484. XNULL*BLOCK!
  1485. XVALUE%0
  1486. XSTICKY%F
  1487. XNULL*BLOCK!
  1488. XDEFAULT*BLOCK!
  1489. XDESCLINE%Uhmmmm...  I guess you are too weak to use this veapon.  Sorry.
  1490. XDEFAULT*BLOCK!
  1491. XUSEALIAS%
  1492. XREQALIAS%F
  1493. XREQVERB%F
  1494. XPARTICLE%1
  1495. XDESCLINE%# Attacks you with a knife.
  1496. XDESCLINE%# tries to run amok...
  1497. XPOWER%1
  1498. XEXP%5
  1499. XOBJECT%crystal ball
  1500. XOWNER%#
  1501. XNAME%crystal ball
  1502. XKIND%0
  1503. XNULL*DESCLINE!
  1504. XNULL*BLOCK!
  1505. XSTART*MDL!
  1506. XSHORTMEGA%    1:    0:    0:    0:"Ping"
  1507. XSHORTMEGA%    2:    0:    0:    0:"Ping, Pong, Pang"
  1508. XSHORTMEGA%    3:    2:    0:    0:random
  1509. XSHORTMEGA%    4:    1:    3:    0:=
  1510. XSHORTMEGA%    5:    0:    0:    0:"Home of Merlin"
  1511. XSHORTMEGA%    6:    5:    0:    0:GOSUB siirr`123
  1512. XSHORTMEGA%    7:    4:    6:    0:if
  1513. XSHORTMEGA%    8:    7:    0:    0:LABEL crystal 1
  1514. XSHORTMEGA%    9:    8:    0:    0:-
  1515. XSHORTMEGA%   10:    0:    0:    0:"Ping"
  1516. XSHORTMEGA%   11:    0:    0:    0:"Ping, Pong, Pang"
  1517. XSHORTMEGA%   12:   11:    0:    0:random
  1518. XSHORTMEGA%   13:   10:   12:    0:=
  1519. XSHORTMEGA%   14:    0:    0:    0:"wtower3"
  1520. XSHORTMEGA%   15:   14:    0:    0:GOSUB siirr`123
  1521. XSHORTMEGA%   16:   13:   15:    0:if
  1522. XSHORTMEGA%   17:   16:    0:    0:LABEL crystal 2
  1523. XSHORTMEGA%   18:   17:    0:    0:-
  1524. XSHORTMEGA%   19:    0:    0:    0:_player name
  1525. XSHORTMEGA%   20:   19:    0:    0:where
  1526. XSHORTMEGA%   21:    0:    0:    0:"wtower3"
  1527. XSHORTMEGA%   22:   20:   21:    0:=
  1528. XSHORTMEGA%   23:    0:    0:    0:GOSUB crystal 1
  1529. XSHORTMEGA%   24:    0:    0:    0:GOSUB crystal 2
  1530. XSHORTMEGA%   25:   22:   23:   24:if
  1531. XSHORTMEGA%   26:   25:    0:    0:LABEL crystal
  1532. XSHORTMEGA%   27:   26:    0:    0:-
  1533. XSHORTMEGA%   28:    0:    0:    0:GOSUB crystal
  1534. XSHORTMEGA%   29:   28:    0:    0:LABEL look you
  1535. XSHORTMEGA%   30:   29:    0:    0:-
  1536. XSHORTMEGA%   31:    0:    0:    0:LABEL get fail
  1537. XSHORTMEGA%   32:   31:    0:    0:-
  1538. XSHORTMEGA%   33:    0:    0:    0:LABEL get succeed
  1539. XSHORTMEGA%   34:   33:    0:    0:-
  1540. XSHORTMEGA%   35:    0:    0:    0:LABEL drop succeed
  1541. XSHORTMEGA%   36:   35:    0:    0:-
  1542. XSHORTMEGA%   37:    0:    0:    0:LABEL use succeed
  1543. XSHORTMEGA%   38:   37:    0:    0:-
  1544. XSHORTMEGA%   39:    0:    0:    0:"You can't"
  1545. XSHORTMEGA%   40:    0:    0:    0:_command
  1546. XSHORTMEGA%   41:   39:   40:    0:+
  1547. XSHORTMEGA%   42:    0:    0:    0:"the crystal ball."
  1548. XSHORTMEGA%   43:   41:   42:    0:+
  1549. XSHORTMEGA%   44:   43:    0:    0:pprint
  1550. XSHORTMEGA%   45:   44:    0:    0:LABEL command
  1551. XSHORTMEGA%   46:   45:    0:    0:-
  1552. XSHORTMEGA%   47:    0:    0:    0:"The crystal ball is shining."
  1553. XSHORTMEGA%   48:   47:    0:    0:print
  1554. XSHORTMEGA%   49:    0:    0:    0:GOSUB pudota
  1555. XSHORTMEGA%   50:    0:    0:    0:_player name
  1556. XSHORTMEGA%   51:    0:    0:    0:"vanished."
  1557. XSHORTMEGA%   52:   50:   51:    0:+
  1558. XSHORTMEGA%   53:   52:    0:    0:oprint
  1559. XSHORTMEGA%   54:    0:    0:    0:_p1
  1560. XSHORTMEGA%   55:   54:    0:    0:pmove
  1561. XSHORTMEGA%   56:    0:    0:    0:_player name
  1562. XSHORTMEGA%   57:    0:    0:    0:"is here."
  1563. XSHORTMEGA%   58:   56:   57:    0:+
  1564. XSHORTMEGA%   59:   58:    0:    0:oprint
  1565. XSHORTMEGA%   60:   53:   55:   59:null
  1566. XSHORTMEGA%   61:   49:   60:    0:null
  1567. XSHORTMEGA%   62:   48:   61:    0:null
  1568. XSHORTMEGA%   63:   62:    0:    0:LABEL siirr`123
  1569. XSHORTMEGA%   64:   63:    0:    0:-
  1570. XSHORTMEGA%   65:    0:    0:    0:pinv
  1571. XSHORTMEGA%   66:   65:    0:    0:pdrop
  1572. XSHORTMEGA%   67:    0:    0:    0:"You drop all your belongs."
  1573. XSHORTMEGA%   68:   67:    0:    0:pprint
  1574. XSHORTMEGA%   69:    0:    0:    0:"Some drop all his belongs."
  1575. XSHORTMEGA%   70:   69:    0:    0:oprint
  1576. XSHORTMEGA%   71:   68:   70:    0:null
  1577. XSHORTMEGA%   72:   66:   71:    0:if
  1578. XSHORTMEGA%   73:   72:    0:    0:LABEL pudota
  1579. XSHORTMEGA%   74:   73:    0:    0:-
  1580. XRUNNABLE%T
  1581. XPRIV%T
  1582. XOWNER%#
  1583. XCTIME%12-SEP-1989  8:54am
  1584. XSTATLAB%use succeed
  1585. XRCOUNT%27
  1586. XECOUNT%0
  1587. XLASTRUN%25-MAR-1992 11:41pm
  1588. XSTATLAB%get fail
  1589. XRCOUNT%58
  1590. XECOUNT%0
  1591. XLASTRUN%31-MAY-1992  7:24pm
  1592. XSTATLAB%leave
  1593. XRCOUNT%211
  1594. XECOUNT%211
  1595. XLASTRUN%31-MAY-1992  7:28pm
  1596. XSTATLAB%enter
  1597. XRCOUNT%203
  1598. XECOUNT%203
  1599. XLASTRUN%31-MAY-1992  7:23pm
  1600. XSTATLAB%command
  1601. XRCOUNT%12
  1602. XECOUNT%0
  1603. XLASTRUN%20-APR-1992 10:17am
  1604. XSTATLAB%start
  1605. XRCOUNT%370
  1606. XECOUNT%370
  1607. XLASTRUN%13-JUN-1992  3:37pm
  1608. XSTATLAB%look you
  1609. XRCOUNT%161
  1610. XECOUNT%0
  1611. XLASTRUN%26-APR-1992  3:18pm
  1612. XAUTHOR%hurtta
  1613. XWTIME%22-SEP-1989  7:55pm
  1614. XNULL*MEGA!
  1615. XFLAGS%0
  1616. XSTART*BLOCK!
  1617. XBLOCK%That is an ordinary crystal ball. You feel that the crystal ball has
  1618. XBLOCK%some power.
  1619. XVALUE%0
  1620. XSTICKY%T
  1621. XSTART*BLOCK!
  1622. XBLOCK%The crystal ball is shining and the power of the crystal ball prevents
  1623. XBLOCK%your attempt to take it.
  1624. XDEFAULT*BLOCK!
  1625. XDEFAULT*BLOCK!
  1626. XDEFAULT*BLOCK!
  1627. XUSEALIAS%
  1628. XREQALIAS%F
  1629. XREQVERB%F
  1630. XPARTICLE%1
  1631. XNULL*BLOCK!
  1632. XNULL*BLOCK!
  1633. XPOWER%0
  1634. XEXP%0
  1635. XOBJECT%core
  1636. XOWNER%#
  1637. XNAME%core
  1638. XKIND%0
  1639. XDEFAULT*DESCLINE!
  1640. XNULL*BLOCK!
  1641. XNULL*MDL!
  1642. XSTART*BLOCK!
  1643. XBLOCK%-rwx------ 1 root root 400000 Sep 12 17:45 core
  1644. XBLOCK%
  1645. XBLOCK%1010110101101100101001000110110010110110100111000110000111101101101
  1646. XBLOCK%0010101101101010110001101101101000010000010011010110101000011000000
  1647. XBLOCK%0000000100001000101011000100010101101001011000110000000111001011010
  1648. XBLOCK%0010110000000001111111110101101110110110110110101101001001011010010
  1649. XBLOCK%
  1650. XBLOCK%  Hmph.  fprintf("stdout", errormsg);
  1651. XBLOCK%  "stdout"?  What the hell, there should be stderr!  Well, let's hope
  1652. XBLOCK%Gandalf can fix this one...
  1653. XVALUE%0
  1654. XSTICKY%F
  1655. XNULL*BLOCK!
  1656. XDEFAULT*BLOCK!
  1657. XDEFAULT*BLOCK!
  1658. XDEFAULT*BLOCK!
  1659. XUSEALIAS%
  1660. XREQALIAS%F
  1661. XREQVERB%F
  1662. XPARTICLE%1
  1663. XNULL*BLOCK!
  1664. XNULL*BLOCK!
  1665. XPOWER%0
  1666. XEXP%0
  1667. XOBJECT%bottle
  1668. XOWNER%#
  1669. XNAME%bottle
  1670. XKIND%0
  1671. XNULL*DESCLINE!
  1672. XNULL*BLOCK!
  1673. XNULL*MDL!
  1674. XSTART*BLOCK!
  1675. XBLOCK%The bottle is an ordinary class bottle, but is isn't certain that what
  1676. XBLOCK%is been in the bottle.
  1677. XVALUE%0
  1678. XSTICKY%T
  1679. XNULL*BLOCK!
  1680. XDEFAULT*BLOCK!
  1681. XDEFAULT*BLOCK!
  1682. XDEFAULT*BLOCK!
  1683. XUSEALIAS%
  1684. XREQALIAS%F
  1685. XREQVERB%F
  1686. XPARTICLE%1
  1687. XNULL*BLOCK!
  1688. XNULL*BLOCK!
  1689. XPOWER%0
  1690. XEXP%0
  1691. XOBJECT%cockroach
  1692. XOWNER%#
  1693. XNAME%cockroach
  1694. XKIND%0
  1695. XNULL*DESCLINE!
  1696. XNULL*BLOCK!
  1697. XSTART*MDL!
  1698. XSHORTMEGA%1:0:0:0:_player name
  1699. XSHORTMEGA%-2:1:0:0:65
  1700. XSHORTMEGA%3:0:0:0:"Guard of dungeon"
  1701. XSHORTMEGA%-4:3:0:0:46
  1702. XSHORTMEGA%-5:2:4:0:11
  1703. XSHORTMEGA%J15:0
  1704. XSHORTMEGA%7:0:0:0:"The cockroach looks back at you and winks its tentacle."
  1705. XSHORTMEGA%-8:7:0:0:15
  1706. XSHORTMEGA%-9:5:6:8:22
  1707. XSHORTMEGA%H6:1:9:look you
  1708. XSHORTMEGA%11:10:0:0:-
  1709. XSHORTMEGA%J37:0
  1710. XSHORTMEGA%J41:0
  1711. XSHORTMEGA%-14:12:13:0:24
  1712. XSHORTMEGA%H6:1:14:bite
  1713. XSHORTMEGA%16:15:0:0:-
  1714. XSHORTMEGA%17:0:0:0:!- LABEL victim(
  1715. XSHORTMEGA%18:0:0:0:!   null(
  1716. XSTART*MEGA!
  1717. XMEGA%19:0:0:0:!      pprint("Shit!  The cockroach seems to be the pet of on
  1718. XMEGA%e of the"&
  1719. XSTART*MEGA!
  1720. XMEGA%20:0:0:0:!         " guards  -  it recognizes you, and gives you a goo
  1721. XMEGA%d bite!"),
  1722. XSHORTMEGA%21:0:0:0:!      if(and(player name, get remote state("R2D2")),
  1723. XSTART*MEGA!
  1724. XMEGA%22:0:0:0:!         pprint("Cockroach: Urgh!  Please, master, I did not
  1725. XMEGA%hing!"),
  1726. XSHORTMEGA%23:0:0:0:!         attack("1")
  1727. XSHORTMEGA%24:0:0:0:!      )
  1728. XSHORTMEGA%25:0:0:0:!   )
  1729. XSHORTMEGA%26:0:0:0:!)
  1730. XSTART*MEGA!
  1731. XMEGA%27:0:0:0:"Shit! The cockroach seems to be the pet of one of the guards
  1732. XMEGA% - it recognizes you, and gives you a good bite!"
  1733. XSHORTMEGA%-28:27:0:0:15
  1734. XSHORTMEGA%29:0:0:0:"wizard, manager"
  1735. XSHORTMEGA%-30:1:29:0:61
  1736. XSHORTMEGA%31:0:0:0:"Cockroach: Urgh! Please, master, I did nothing!"
  1737. XSHORTMEGA%-32:31:0:0:15
  1738. XSHORTMEGA%33:0:0:0:"1"
  1739. XSHORTMEGA%-34:33:0:0:25
  1740. XSHORTMEGA%-35:30:32:34:22
  1741. XSHORTMEGA%-36:28:35:0:24
  1742. XSHORTMEGA%H6:1:36:victim
  1743. XSHORTMEGA%38:37:0:0:-
  1744. XSTART*MEGA!
  1745. XMEGA%39:0:0:0:"just took a closer look at a cockroach - too bad that the co
  1746. XMEGA%ckroach didn't like his face..."
  1747. XSHORTMEGA%-40:1:39:0:17
  1748. XSHORTMEGA%H6:1:40:others
  1749. XSHORTMEGA%42:41:0:0:-
  1750. XSHORTMEGA%43:0:0:0:!- LABEL get succeed(
  1751. XSHORTMEGA%44:0:0:0:!   if(and(player name, get remote state("R2D2")),
  1752. XSTART*MEGA!
  1753. XMEGA%45:0:0:0:!      print("The cockroach takes a tight grab on ", player n
  1754. XMEGA%ame,
  1755. XSHORTMEGA%46:0:0:0:!         "'s clothes."),
  1756. XSHORTMEGA%47:0:0:0:!      null( GOSUB other got(), GOSUB victim got() )
  1757. XSHORTMEGA%48:0:0:0:"The cockroach takes a tight grab on "
  1758. XSHORTMEGA%49:0:0:0:"'s clothes."
  1759. XSHORTMEGA%-50:48:1:49:16
  1760. XSHORTMEGA%J70:0
  1761. XSHORTMEGA%J66:0
  1762. XSHORTMEGA%-53:51:52:0:24
  1763. XSHORTMEGA%-54:30:50:53:22
  1764. XSHORTMEGA%H6:1:54:get succeed
  1765. XSHORTMEGA%56:55:0:0:-
  1766. XSTART*MEGA!
  1767. XMEGA%57:0:0:0:"Ouch! Urgh! Auch! The cockroach didn't like your pocket at a
  1768. XMEGA%ll!"
  1769. XSHORTMEGA%-58:57:0:0:15
  1770. XSHORTMEGA%59:0:0:0:"2"
  1771. XSHORTMEGA%-60:59:0:0:25
  1772. XSHORTMEGA%61:0:0:0:"cockroach"
  1773. XSHORTMEGA%-62:61:0:0:10
  1774. XSHORTMEGA%63:0:0:0:"void"
  1775. XSHORTMEGA%-64:63:0:0:14
  1776. XSHORTMEGA%-65:58:60:62:24:         1:64
  1777. XSHORTMEGA%H6:1:65:victim got
  1778. XSHORTMEGA%67:66:0:0:-
  1779. XSTART*MEGA!
  1780. XMEGA%68:0:0:0:" is not a favourite master to the cockroach. There he swings
  1781. XMEGA% like a broken wing horse."
  1782. XSHORTMEGA%-69:1:68:0:17
  1783. XSHORTMEGA%H6:1:69:other got
  1784. XSHORTMEGA%71:70:0:0:-
  1785. XRUNNABLE%T
  1786. XPRIV%F
  1787. XOWNER%#
  1788. XCTIME%19-SEP-1989  6:13pm
  1789. XAUTHOR%hurtta
  1790. XWTIME% 8-JUN-1992  9:57pm
  1791. XNULL*MEGA!
  1792. XFLAGS%0
  1793. XDESCLINE%
  1794. XVALUE%0
  1795. XSTICKY%F
  1796. XNULL*BLOCK!
  1797. XDEFAULT*BLOCK!
  1798. XDEFAULT*BLOCK!
  1799. XDEFAULT*BLOCK!
  1800. XUSEALIAS%
  1801. XREQALIAS%F
  1802. XREQVERB%F
  1803. XPARTICLE%1
  1804. XNULL*BLOCK!
  1805. XNULL*BLOCK!
  1806. XPOWER%0
  1807. XEXP%0
  1808. XOBJECT%tankard
  1809. XOWNER%#
  1810. XNAME%tankard
  1811. XKIND%0
  1812. XNULL*DESCLINE!
  1813. XNULL*BLOCK!
  1814. XSTART*MDL!
  1815. XSHORTMEGA%1:0:0:0:"Hm. Not too bad wine, a bit strong, maybe...?"
  1816. XSHORTMEGA%-2:1:0:0:15
  1817. XSHORTMEGA%3:0:0:0:"Sentry"
  1818. XSHORTMEGA%-4:3:0:0:46
  1819. XSHORTMEGA%5:0:0:0:_player name
  1820. XSHORTMEGA%-6:5:0:0:65
  1821. XSHORTMEGA%-7:4:6:0:12
  1822. XSHORTMEGA%-8:3:7:0:47
  1823. XSHORTMEGA%-9:2:8:0:24
  1824. XSHORTMEGA%H6:1:9:use succeed
  1825. XSHORTMEGA%11:10:0:0:-
  1826. XRUNNABLE%T
  1827. XPRIV%F
  1828. XOWNER%#
  1829. XCTIME%23-SEP-1989  3:42am
  1830. XSTATLAB%drop succeed
  1831. XRCOUNT%2
  1832. XECOUNT%2
  1833. XLASTRUN%26-MAR-1992  1:08am
  1834. XSTATLAB%use succeed
  1835. XRCOUNT%7
  1836. XECOUNT%0
  1837. XLASTRUN%26-MAR-1992 12:58am
  1838. XSTATLAB%look you
  1839. XRCOUNT%3
  1840. XECOUNT%3
  1841. XLASTRUN%26-MAR-1992 12:56am
  1842. XSTATLAB%get succeed
  1843. XRCOUNT%5
  1844. XECOUNT%5
  1845. XLASTRUN%26-MAR-1992 12:57am
  1846. XSTATLAB%start
  1847. XRCOUNT%2
  1848. XECOUNT%2
  1849. XLASTRUN%10-FEB-1991  1:22pm
  1850. XSTATLAB%leave
  1851. XRCOUNT%41
  1852. XECOUNT%41
  1853. XLASTRUN%31-MAY-1992  8:08pm
  1854. XSTATLAB%command
  1855. XRCOUNT%3
  1856. XECOUNT%3
  1857. XLASTRUN%26-MAR-1992  1:08am
  1858. XSTATLAB%enter
  1859. XRCOUNT%48
  1860. XECOUNT%48
  1861. XLASTRUN% 4-JUN-1992  9:22pm
  1862. XAUTHOR%hurtta
  1863. XWTIME%25-AUG-1990 10:37pm
  1864. XNULL*MEGA!
  1865. XFLAGS%0
  1866. XDESCLINE%It IS full of wine!
  1867. XVALUE%0
  1868. XSTICKY%F
  1869. XNULL*BLOCK!
  1870. XDEFAULT*BLOCK!
  1871. XDEFAULT*BLOCK!
  1872. XDESCLINE%You take the tankard and have a long sip from it...
  1873. XUSEALIAS%
  1874. XREQALIAS%F
  1875. XREQVERB%F
  1876. XPARTICLE%1
  1877. XNULL*BLOCK!
  1878. XNULL*BLOCK!
  1879. XPOWER%0
  1880. XEXP%0
  1881. XOBJECT%neutron handgrenade
  1882. XOWNER%#
  1883. XNAME%neutron handgrenade
  1884. XKIND%1
  1885. XNULL*DESCLINE!
  1886. XNULL*BLOCK!
  1887. XNULL*MDL!
  1888. XSTART*BLOCK!
  1889. XBLOCK%The neutron handgrenade is an ultimate weapon. Although it is simple t
  1890. Vo`032
  1891. XBLOCK%use it is not simple to build. Learn physics, you bloody humanist!
  1892. XVALUE%0
  1893. XSTICKY%F
  1894. XDESCLINE%The neutron handgrenade is too dangerous weapon in the hands of foo
  1895. Vls.
  1896. XDEFAULT*BLOCK!
  1897. XSTART*BLOCK!
  1898. +-+-+-+-+-+-+-+-  END  OF PART 1 +-+-+-+-+-+-+-+-
  1899.