Add an installed copy of Complete New World

You can copy this whole thing over your LORD2 install, or copy/symlink
the JS files in here and run it here.

Complete New World is a massively expanded LORD2 world, but it has
not been nearly as well-tested with the JS implementation.

xtrn/lord2/cnw/3rdparty.dat

+  `0`0Time Stands Still `2by `0Tien Lung
+  `0`@Ralphie's Roses (r) `2by `!E`0lric `#(`0elric`2@`0innocent`2.`0com`#)
+  `0`4The Bridge of Thieves `0by `4Tony M. Brown
+  `0`%THE VISITORS `3by `!T`3alaphid
+  `0`@The town of Andrew `4by `$Andreas Svendsen
+  `0`0Bandit's Hideout `2by `0Chet Rhodes (aka Hawkmoon)
+  `0`0Breanna's Cove `2by `0Hawkmoon
+  `0`@The Bunny Cave v1.01 `3by Tom Torbeck
+  `0`0The Stonebrook Church `2from `0 Mamoosoft Programming
+  `0`0F`!aerie `0G`!lade `2by `0Jay Weber
+  `0`0Ye Olde Farm `2by `0Lloyd Hannesson
+  `0`0Felicity's Temple `2by `0Lloyd Hannesson
+  `0`0THE FATHER'S GRAVE `2by `0ASC & Resurrection
+  `0`4H`@ong `4K`@ong `4S`@tudio`2ver1.04, `2by `4Chan
+  `0`0Greentree Manor `2by `@CHR`%i`@S `%Belanger
+  `0`0IceLord Keep (tm) `2by `0Commando
+  `0`0Camelot v1.35  `2by `4D`@ave `#(`5Jam`#) `4H`@enderson
+  `0`0Knotwood Village `2by `0Sean E. Andersen aka Sneakers
+  `0`0U`2ncle `0L`2enny v1.00 `0b`2y `0C`2hris `0C`2urry
+  `0`0Dahlonega Dave's Do-It-Yourself Mining `2from `0 Mamoosoft Programming
+  `0`0Myst Ville `2by `0Sejr Andersen
+  `0`0The Greentree Orphanage `2from `0 Mamoosoft Programming
+  `0`4RED DRAGON `2Town (The town from LORD1) `0by `7VooDoo KnighT
+  `0`0SandCity `2by `0Kevin Brown
+  `0`4Scorpion's `$Den By: Brandon Harvey (aka) `4X-Acutioner
+  `0`0S`!harks' `0T`!ooth `0I`!sland `2by `0Jay Weber
+  `0`0The Shipwreck `2by `0Chet Rhodes (aka Hawkmoon)
+  `0`4Shangri La `2by `5Nicholas Morrissey `0(`!FLiNK`0)`2
+  `0Highton Thieves' Guild
+  `0`!Wizard's Tower 2.0 `2by `0James Jones The Shadow BBS 850-864-4292
+  `0`0Tower of Krystal `2by `0Jared McQuade
+  `0`0The VooDoo Temple `2by `7VooDoo KnighT `2& `9snm
+  `0`!THE VOYAGE IGM V1.10 : `%By Spencer Vickers
+  `0`0Woodland Underground `2by `0Valtane `8(valtane@geocities.com)
+  `0`0Sorry `2by `0Michael Hutson
+  `0`7Snowy Pass `%BLIZZARD! `0by Michael Hutson
+  `0`%BeachSide Cottage by `4Skull `2of Big R.C.s BBS 610-494-4604 v.1.03
+  `0`4Bla`@ck De`4ath's `@Tavern `$1.00 `2- `0by `4J`@im `2(blackdth@geocities.com)
+  `0`%Arris Training Grounds v1.01 `2by `!E`0lric
+  `0`5Isle of the Phreaks `!v4.5 `5by `!Max `4(`5Phreak`4) `!Walton
+  `0`!The Canoe `2by `0James Jones The Shadow BBS 850-864-4292
+  `0`1Co`9ol `%Tea`9mLo`1rd. `0By. Lauri Aalto
+  `0`#Dragon's Den `$Housing `2by `1C`3o`5d`7a`9x `4Dragon   `4`bRegistered!! :)
+  `0`0Mythrans Cottage `2v`01.12 `2by `0Heath Axton
+  `0`1G`2u`3m`4t`5o`6w`7n `2by `1G`2u`3m`4-`5L`6a`7s`8s `0V2.09
+  `0`9Q's Fortress `0v1.45 `2by `0Eric L. Bennett
+  `0`0The Wedding Chapel `2by `0Chet Rhodes (aka Hawkmoon)
+  `0`7Greentree Prison `2by `1C`3o`5d`7a`9x
+  `0`0Tien Lung's House `2by `0Tien Lung
+  `0`2Mimsic Isle version 1.17 `0by Jim Wilson`2 (jfw@ica.net)
+  `0`0Kiteria's Kastle `2from `0 Mamoosoft Programming
+  `0`@Bad company `3by `!T`3alaphid
+  `0`%House of the Incredible Tensions `7by `8Chris Yeates
+  `0`4The Red Dragon's Castle `2by `%King `4Lucifer
+  `0`2Reset Your Character ver. `$1.07 `0by Jim Wilson`2 (jfw@ica.net)
+  `0`0The Great Scavenger hunt by `1C`3o`5d`7a`9x `0and `#Dragon's `$Den `%Ultd
+  `0`0Black Dragon Castle  `2by `0Gum-Lass
+  `0`9Save `7by `!T`3alaphid
+  `0`2I`0n`%n Stuffi`0n`2g `2by `2C`0h`%ris Yeat`0e`2s / `0The Loose Screw BBS `2(`0801`2)`0561`2-`04780
+  `0`#The Loose Screw Resort `5by `#Chris Yeates `5/ `#The Loose Screw BBS `5(`#801`5)`#561`5-`#4780
+  `0`9The Sword Castle v2.0 - MeRCeR Programming
+  `0`%L`7oki's `%I`7nn `8by `4AEsir `8software
+  `0`0Odin's Keep `2by `0Peter Jackson
+  `0`0The Island of the Hydra `2from `0 Mamoosoft Programming
+  `0The `%$word`7 in the `8$`7tone 1.0 : by MERCER (Michael Naeseth)
+  `0`7Dark Cloak Ruins v2.00 `2by `!E`#lric
+  `0`0Greentree's own `2Weird Guy: By Spence
+  `0`0Turgon's Backdoor `2from `0 Mamoosoft Programming
+  `0`6Haunted House `2by `!T`3alaphid `2& `0Monty Python
+  `0`%Paladin's `9Oasis `3by `!T`3alaphid
+  `0`0Underground Passage v3.0 `2by `0Max (`9Phreak`0) Walton
+  `0`7Monastry `3by `!T`3alaphid `%& `0Monty Python
+  `0`0Township of New Stonebrook `2by `0Trent Renshaw
+  `0`%The Oracle of What's to Come v`@2`%.`@00 `2by `0Tien Lung
+  `0`8GARGOYLE'S LANDING `2by `8NiGHT fLYER
+  `0`0Photek's House v2.8 `2by `0White_Stone
+  `0`0University of Greater Arrisville `2from `0 Mamoosoft Programming
+  `0`%The `4Red Dragon's `%Hide-Out v1.1`2by `%King `4Lucifer
+  `0`0Quester `2by `4AEsir Software
+  `0`3Spr`7ing`4Fa`6ng`2's House of Wonders `5v1.9 `1by Thos Swallow (springfang@hotmail.com)
+  `0`9Black Sheep of the Family `2by `8Shadow Rider
+  `0`0The Warrior's Graveyard `2by `0Lloyd Hannesson
+  `0`#The Gypsy Encampment
+  `0`2Doc Farrell `8by: `%K`7evin `%F`7arrell `3v3.01a
+  `0`0Devils Island! v1.50 `2by `0MetaLHeaD Softwars
+  `0`@T`0i`$s `9T`@h`0e `$S`9e`@a`0s`$o`9n`@.`0.`$.`9. `2by `0Bryan Turner `2and `0Robby Dittmann
+  `0`0Cleft to the Unknown v1.0 `2by `3ArticNight IGMs
+  `0`0Wizard's Castle `2by `0Bobby Queen & Robby Dittmann
+  `0`%The Ho`7use of D`8reams `2by `0Tien Lung
+  `0`!Northlands Coliseum `2by `0ShroomTrip Software
+  `0`2The Cave of  `7Hope `2and `%Dispair `2by `1C`3o`5d`7a`9x `4Dragon
+  `0`0The Battlefield by `1C`3o`5d`7a`9x `0and `#Dragon's `$Den `%Ultd
+  `0`0Sea Serpent `2by `0Peter Pelliccia
+  `0`2Ocean Adventure `0by Michael Hutson
+  `0`%S`7cry `%P`7rogramming `3by `!T`3alaphid
+  `0`0SYSOP CASTLE `2by `0Don Kinney
+  `0`0M`2o`8ldy `0C`2i`8ty `2by `0S`2t`8ealth
+  `0`0The `1Blue Dragon`0's Tests v0.99  By Ben Mondoux.
+  `0`@Reporter's `$Office
+  `0`5The Resort `2by `5Nicholas Morrissey `0(`!FLiNK`0)`2
+  `0`1S`4L`!A`3Y`@E`%R`0's Domain v2.01 `2by`0 Ben Mondoux
+  `0`%Big Bad Bait Shop `1By:`9Jon Hanson AKA Phobos
+  `0`0The Begger `2by `$C`0raig `$G`0oldsmith
+  `0`4The Devil's Rage `0by `4Tony M. Brown
+  `0`4G`7-`6Dogg's `2D`3i`#s`$c`0o `7Hall `3by `8Hades `4Software
+  `0`4For`@tress F`4ear `2by `0Isaac Laurin
+  `0`7T`8he `7L`8ands `7o`8f `#G`5lendale `2by `0Nicholas Morrissey `0(`!FLiNK`0)`2
+  `0`$The Greentree Givers `0: `%By Spencer Vickers `0(`2aka `4Mo`%unt`4ie`0)
+  `0`0Jack's Restauraunt `2by `0ASC
+  `0`3Jennie Garth 's hidden house `2by `0SENoR FRoG
+  `0`%Sosen Inn Safeguard `2by `1W`2E`3A`4V`2E`5R `%of Weaver's House bbs
+  `0`4H`#a`$b`2i`1b`#'`5s `7Tavern `2by `0Ryan Fields
+  `0`@Div`4ine `%Com`7edy `8REF `3by `!T`3alaphid
+  `0`0Crazy Man's House `2by `0Seth A. Robinson
+  `0`0Torin Castle  `2by `4D`@ave `#(`5Jam`#) `4H`@enderson
+  `0`1Revenge Castle `2by `4Sejr Andersen
+  `0`!Wampa's Cave `2by `0James Jones The Shadow BBS 850-864-4292
+  `0`0Fast Freddy's gem Emporium `2from `0 Mamoosoft Programming
+  `0`6The Hundred Acre Woods `2by `3Jennifer Doyle
+  `0`0Wise Wally's Public Library `2from `0 Mamoosoft Programming
+  `0`4 SoldaCar Crisis V.9 `2By: `3 ArticNight IGMs
+  `0`0Guru Bob and the Tree Of Knowledge `4By Sam Wilson
+  `0`0Extacy's Land Or Paradise By `4Yang Qingwei
+  `0`0J`2ester's `0C`2asino `0U`2pdate v2.10 by `!E`#lric
+  `0`%The Wishing Well `2v1.2 by `0David Loranger `7[`8FieldSoft`7]
+  `0`%Frostglint Keep V0.30 `2by `%Jonathon Welborn (The March Hare)`2.
+  `0`%The Ho`7use of D`8reams `%v`72`8.`700 `2by `0Tien Lung
+  `0`0Xena's House `2by `0Quineska Software
+  `0`%The Oracle of What's to Come v`@3`%.`@00 `2by `0Tien Lung
+  `0Figaro Castle (BETTER VERSION) `2by `0VooDoo KnighT
+  `0Pouch of Documents `2by Joel Gathercole
+  `0Locker Rooms `2by Joel Gathercole      
+  `0`1Blue Falls v0.5   `2by Joel Gathercole
+  `0NPC CHARACTERS `2by Joel Gathercole
+  `0Taxes `2by Joel Gathercole
+  `0Bed of Roses `2by Joel Gathercole
+  `0TIME `2by Joel Gathercole
+  `0`2--`!==============`2-`!======`2-`!======`2-`!======`2-`!======`2-`!==============`2--
+  `0`%      137+ IGMs with no known conflicts brought to you by:
+  `0`2                       Green Machine
+  `0`%               (http://greenmachinebbs.com/lord2)
+  `0`2--`!==============`2-`!======`2-`!======`2-`!======`2-`!======`2-`!==============`2--
+  `0
+  `0

xtrn/lord2/cnw/alchmist.clr

+[?7h
+
+
+
+
+   
+    
+
+  
+   
+ 
+ 
+

xtrn/lord2/cnw/alien.ref

+; Script file ALIEN.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:17 2001
+
+@DECLARE biomeunit 000000653
+@DECLARE cyrounit 000001002
+@DECLARE sample 000001593
+@DECLARE transctrl 000001746
+@DECLARE transport 000002305
+@DECLARE watertank 000002881
+@DECLARE captain 000002970
+@DECLARE capmain 000003332
+@DECLARE capsell 000003686
+@DECLARE capbuy 000005550
+@DECLARE tchief 000006657
+@DECLARE trans2 000007309
+@DECLARE nodeal 000007882
+@DECLARE nodein 000008096
+@DECLARE secguy 000008520
+@DECLARE force 000008720
+@DECLARE sight 000008802
+@DECLARE ran 000008883
+@DECLARE nomore 000009257
+@NOCHECK
+; End of .REF index
+
+@#BIOMEUNIT
+@DO MOVEBACK
+@SHOW
+`r0`c`r3`1 Biomeunit `r0`\
+`b  Running diagnostic . . .
+`7 Temperature: `L`L`L`%CHECK
+`7 Structure:   `L`L`L`%CHECK
+`7 Contents:    `L`L`L`%CHECK
+    `L`bdiagnostic complete: stored plant samples are healthy
+`\
+        `2Kinda weird, this and that other thing, the `3Cryounit`2...
+@key
+@drawmap
+@update
+
+@#CYROUNIT
+@DO MOVEBACK
+@SHOW
+`r0`c`r3`1 Cyrounit `r0`\
+`b  Running diagnostic . . .
+`7 Temperature: `L`L`L`%CHECK
+`7 Structure:   `L`L`L`%CHECK
+`7 Contents:    `L`L`L`%CHECK
+    `L`bdiagnostic complete: stored life forms are in stasis
+`\
+        `2You're not too sure what all that meant, but from the fact that
+there are a bunch of frozen people behind the screen, you guess this is
+a sort of fridge for aliens. Yuck! They eat PEOPLE. You think their
+dentist doesn't like that either. `0"`2Look, you've got a wad of arm stuck
+between your teeth.`0"
+@key
+@drawmap
+@update
+
+@#SAMPLE
+@DO MOVEBACK
+@DO SAYBAR
+`9Computer`7: Sample dwelling structure `L`L`bINTACT
+@Key
+@DO SAYBAR
+`7This house seems vaguely familiar...
+
+@#TRANSCTRL
+@do MOVEBACK
+@show
+`r0`c`r1 A choice comes up on the little box ... `r0`\
+@readfile alientel.inf
+`p21
+@if `p21 is 0 then do
+ @begin
+ @do `p21 is 1
+ @end
+@do `v01 is 1
+@choice
+STONEBROOK
+HELL
+ARRISVILLE
+ORBITAL CONTACT
+@IF RESPONSE is 1 then do
+ @begin
+ @do `p21 is 1
+ @end
+@IF RESPONSE is 2 then do
+ @begin
+ @do `p21 is 2
+ @end
+@IF RESPONSE is 3 then do
+ @begin
+ @do `p21 is 3
+ @end
+@IF RESPONSE is 4 then do
+ @begin
+ @do `p21 is 4
+ @end
+@do delete alientel.inf
+@writefile alientel.inf
+`p21
+@drawmap
+@update
+
+@#TRANSPORT
+@readfile alientel.inf
+`p21
+@if `p21 is 1 then do
+ @begin
+ @do MAP is 1360
+ @loadmap &map
+ @do X is 37
+ @do Y is 16
+ @drawmap
+ @update
+ @closescript
+ @end
+@if `p21 is 2 then do
+ @begin
+ @do MOVEBACK
+ @do saybar
+`9Computer: `7Ha ha, no such coordinates!
+ @closescript
+ @end
+@if `p21 is 3 then do
+ @begin
+ @do MAP is 523
+ @loadmap &map
+ @do X is 24
+ @do Y is 11
+ @drawmap
+ @update
+ @closescript
+ @end
+@if `p21 is 4 then do
+ @begin
+ @do MAP is 48
+ @loadmap &map
+ @do X is 9
+ @do Y is 5
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@#WATERTANK
+@DO MOVEBACK
+@DO SAYBAR
+Woah... they're collecting water from the ocean!
+
+@#CAPTAIN
+@do moveback
+@IF `I19 is 0 then do
+ @begin
+ @do saybar
+ `$Alien`7: Suprised I speak English? You need an apple for anyone else to
+ @key
+ @do saybar
+ `$Alien`7: be comprehendable. It somehow bridges a brainwave gap...
+ @key
+ @do saybar
+ `$Alien`7: But as ship's commander, I had to learn English. >shudder<
+ @closescript
+ @end
+@busy
+@LABEL CAPMAIN
+@show
+`r0`c`r1 Dealing with the Captain `r0`\
+@do `v01 is 3
+@choice
+Sell stuff
+Buy stuff
+Leave
+@if RESPONSE is 3 then do
+ @begin
+ @drawmap
+ @update
+ @closescript
+ @end
+@if RESPONSE is 2 then do
+ @begin
+ @DO GOTO CAPSELL
+ @end
+@if RESPONSE is 1 then do
+ @begin
+ @DO GOTO CAPBUY
+ @end
+@DO GOTO CAPMAIN
+@closescript
+
+@LABEL CAPSELL
+@DO `v01 is 1
+@show
+`r0`c`r1`% Buying stuff from the captain `r0
+`7You have `$`p19`7 gems.`\
+@choice
+Travel potion (1 gem)
+Skystaff base (2 gems)
+Red potion (3 gems)
+Spiked Shirt (4 gems)
+Twin Sword (7 gems)
+Blessed Armour +80 (15 gems)
+Fire spell     +300 (15 gems)
+Nah, never mind
+@DO MOVE 1 14
+@IF RESPONSE is 8 then do
+ @begin
+ @do goto CAPMAIN
+ @end
+@if RESPONSE is 1 then do
+ @begin
+ @if `p19 is 0 then do
+  @begin
+  @show
+`\`3You don't have 1 gem.
+  @do goto CAPSELL
+  @end
+ @do `i50 + 1
+ @do `p19 - 1
+ @show
+`\Bought 1 Travel Potion.
+ @end
+@if RESPONSE is 2 then do
+ @begin
+ @if `p19 < 2 then do
+  @begin
+  @show
+`\`3You don't have 2 gems.
+  @do goto CAPSELL
+  @end
+ @do `i22 + 1
+ @do `p19 - 2
+ @show
+`\Bought 1 Skystaff Base.
+ @end
+@if RESPONSE is 3 then do
+ @begin
+ @if `p19 < 3 then do
+  @begin
+  @show
+`\`3You don't have 3 gems.
+  @do goto CAPSELL
+  @end
+ @do `i52 + 1
+ @do `p19 - 3
+ @show
+`\Bought 1 Red Potion.
+ @end
+@if RESPONSE is 4 then do
+ @begin
+ @if `p19 < 4 then do
+  @begin
+  @show
+`\`3You don't have 4 gems.
+  @do goto CAPSELL
+  @end
+ @do `i59 + 1
+ @do `p19 - 4
+ @show
+`\Bought 1 Spiked Shirt.
+ @end
+@if RESPONSE is 5 then do
+ @begin
+ @if `p19 < 7 then do
+  @begin
+  @show
+`\`3You don't have 7 gems.
+  @do goto CAPSELL
+  @end
+ @do `i58 + 1
+ @do `p19 - 7
+ @show
+`\Bought 1 Twin Swords.
+ @end
+@if RESPONSE is 6 then do
+ @begin
+ @if `p19 < 15 then do
+  @begin
+  @show
+`\`3You don't have 15 gems.
+  @do goto CAPSELL
+  @end
+ @do `i62 + 1
+ @do `p19 - 15
+ @show
+`\Bought 1 Blessed Armour.
+ @end
+@if RESPONSE is 7 then do
+ @begin
+ @if `p19 < 15 then do
+  @begin
+  @show
+`\`3You don't have 15 gems.
+  @do goto CAPSELL
+  @end
+ @do `i64 + 1
+ @do `p19 - 15
+ @show
+`\`7Bought 1 `bFireball `7spell.
+ @end
+@key
+@DO GOTO CAPSELL
+
+@LABEL CAPBUY
+@DO `v01 is 1
+@show
+`r0`c`r1 Selling stuff to the captain `r0`\
+`7You have `$`p19`7 gems.`\
+@choice
+>`i17 0 Sell Glowworm ( 1 gem )
+>`i43 0 Sell Chicken Egg ( 1 gems )
+>`i29 0 Sell Salmon ( 2 gems )
+>`i66 0 Sell Koshi Snack ( 3 gems )
+>`i11 0 Sell Little Girl ( 4 gems )
+>`i30 0 Sell Sparkling Green Salmon ( 10 gems )
+I'm done here
+@DO MOVE 1 10
+@IF RESPONSE is 7 then do
+ @begin
+ @DO GOTO CAPMAIN
+ @end
+@IF RESPONSE is 1 then do
+ @begin
+ @do `i17 - 1
+ @do `p19 + 1
+ @show
+Sold: One Glowworm
+ @end
+@IF RESPONSE is 2 then do
+ @begin
+ @show
+Sorry, we have enough Chicken eggs now.
+ @end
+@IF RESPONSE is 3 then do
+ @begin
+ @do `i29 - 1
+ @do `p19 + 2
+ @show
+Sold: One Salmon
+ @end
+@IF RESPONSE is 4 then do
+ @begin
+ @do `i66 - 1
+ @do `p19 + 3
+ @show
+Sold: One Koshi Snack
+ @end
+@IF RESPONSE is 5 then do
+ @begin
+ @do `i11 - 1
+ @do `p19 + 4
+ @show
+Sold: One Little Lost Girl (what would her mother say?)
+ @end
+@IF RESPONSE is 6 then do
+ @begin
+ @do `i30 - 1
+ @do `p19 + 10
+ @show
+Sold: One Sparkling Green Salmon
+ @end
+@key
+@DO GOTO CAPBUY
+
+@#TCHIEF
+@do moveback
+@IF `I19 is 0 then do
+ @begin
+ @do saybar
+ `$Alien`7: AGhr, ighop ytugas!
+ @closescript
+ @end
+@show
+`r0`c`r1 Telling the chief where ta leave ya... `r0`\
+@readfile alientel.inf
+`p21
+@if `p21 is 0 then do
+ @begin
+ @do `p21 is 1
+ @end
+@do `v01 is 1
+@choice
+STONEBROOK
+HELL
+ARRISVILLE
+DOWNED CRAFT
+@IF RESPONSE is 1 then do
+ @begin
+ @do `p21 is 1
+ @end
+@IF RESPONSE is 2 then do
+ @begin
+ @do `p21 is 2
+ @end
+@IF RESPONSE is 3 then do
+ @begin
+ @do `p21 is 3
+ @end
+@IF RESPONSE is 4 then do
+ @begin
+ @do `p21 is 4
+ @end
+@do delete alientel.inf
+@writefile alientel.inf
+`p21
+@drawmap
+@update
+
+@#TRANS2
+@readfile alientel.inf
+`p21
+@if `p21 is 1 then do
+ @begin
+ @do MAP is 1360
+ @loadmap &map
+ @do X is 37
+ @do Y is 16
+ @drawmap
+ @update
+ @closescript
+ @end
+@if `p21 is 2 then do
+ @begin
+ @do MOVEBACK
+ @do saybar
+`9Computer: `7Ha ha, no such coordinates!
+ @closescript
+ @end
+@if `p21 is 3 then do
+ @begin
+ @do MAP is 523
+ @loadmap &map
+ @do X is 24
+ @do Y is 11
+ @drawmap
+ @update
+ @closescript
+ @end
+@if `p21 is 4 then do
+ @begin
+ @do MAP is 46
+ @loadmap &map
+ @do X is 9
+ @do Y is 4
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@#NODEAL
+@do moveback
+@IF `I19 is 0 then do
+ @begin
+ @do saybar
+ `$Alien`7: AGhr, ighop ytugas!
+ @closescript
+ @end
+@do saybar
+`$Alien`7: Our minds are occupied with communion in the `%Great Network`7.
+
+@#NODEIN
+@do moveback
+@IF `I19 is 0 then do
+ @begin
+ @do saybar
+ `9Computer terminal`7: You will need an apple to understand the Grashians.
+ @closescript
+ @end
+@do saybar
+`9Computer`7: The `%Great Network`7 has set mission goal: collect samples.
+@key
+@do saybar
+`9Computer`7: Necessary protein structures identified as being on planet su-
+@key
+@do saybar
+`9Computer`7: rface. Must acquire, at all costs!
+
+
+@#SECGUY
+@DO MOVEBACK
+@IF `I19 is 0 then do
+ @begin
+ @do saybar
+ `$Alien`7: AGhr, ighop ytugas!
+ @closescript
+ @end
+@do saybar
+`$Alien`7: I'm sorry, but no non-Grashians beyond this point.
+
+@#FORCE
+@DO MOVEBACK
+@DO SAYBAR
+A strange field prevents you from entering!
+
+@#SIGHT
+@DO SAYBAR
+Woah, looks like SOMEONE was drinking some mighty bad ale!
+
+@#RAN
+@do `p22 random 4 1
+@if `p22 is 1 then saybar
+Woah... you think you saw something moving in the corner of your eye...
+@if `p22 is 2 then saybar
+You get the eerie feeling you're being watched...
+@if `p22 is 3 then saybar
+You feel you'd regret meeting one of the guys who made this...
+@if `p22 is 4 then saybar
+You wonder why the whole ship is so dark...
+
+@#NOMORE

xtrn/lord2/cnw/andhouse.ref

+; Script file ANDHOUSE.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:20 2001
+
+@DECLARE sign 000000312
+@DECLARE nomore 000000373
+@DECLARE father 000000385
+@DECLARE mother 000000776
+@DECLARE doors 000001136
+@DECLARE toilet 000001204
+@DECLARE nomore 000001269
+@NOCHECK
+; End of .REF index
+
+@#Sign
+@do moveback
+@do saybar
+`$The town of Andrew...
+@#Nomore
+
+@#Father
+@do `p70 is 101
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+@do `p21 random 3 1
+@if `p21 is 1 then saybar
+`@Andrew's Father: `$Go and talk to my son!
+@if `p21 is 2 then saybar
+`@Andrew's Father: `$If you have to, use my son's toilet!
+@if `p21 is 3 then saybar
+`@Andrew's Father: `$Well...well, you can talk to my wife too!
+@closescript
+@end
+
+@#Mother
+@do `p70 is 102
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+@do `p21 random 3 1
+@if `p21 is 1 then saybar
+`%Andrew's Mother: `#I begin to get tired of living here!
+@if `p21 is 2 then saybar
+`%Andrew's Mother: `#Oh, I love my husband!
+@if `p21 is 3 then saybar
+`%Andrew's Mother: `#Get lost!!!
+@closescript
+@end
+
+@#Doors
+@do saybar
+`5You open the door carefully and walk in!
+
+@#Toilet
+@do moveback
+@do saybar
+`%It looks like a toilet.
+
+@#NOMORE

xtrn/lord2/cnw/andrew.ref

+; Script file ANDREW.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:20 2001
+
+@DECLARE start 000000254
+@DECLARE nomore 000003911
+@DECLARE moon 000003979
+@DECLARE nocash 000004547
+@DECLARE end 000004669
+@NOCHECK
+; End of .REF index
+
+@#START
+@do `p70 is 100
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+@datanewday Andrew.idf
+@dataload Andrew.idf &playernum `p20
+@if `p20 is 1 then do
+ @begin
+  @do goto NOMORE
+ @end
+@offmap
+@Clear Screen
+@show
+`@Hey, `N. `@I am the coolest guy in the world!!
+
+@Do `v01 is 1
+@Choice
+`$Yes I know, I agree!!!
+`4No, you're not!!
+@IF Responce is 2 then goto end
+  @Clear Screen
+@datanewday House.idf
+@dataload House.idf &playernum `p20
+@if `p20 is 1 then do
+ @begin
+  @do goto end
+ @end
+@offmap
+@Clear Screen
+@show
+
+`@You're cool, `N.
+
+`@Why do you visit me then?
+
+
+`$`2you answer,
+@Do `v01 is 1
+@Choice
++`t19 2 `$Because I have heard that you give things away
+`4Forget it, maybe later!
+@if responce is 2 then goto end
+@show
+
+
+
+`@Thats right, but you can lose things too!
+
+`@Are you sure you want to try?
+
+@Do `v01 is 1
+@Choice
+`$Yes I am sure i want to try!!
+`4Forget it, maybe later!
+@IF Responce is 1 then do
+ @begin
+
+  @do `p21 random 15 1
+@show
+`x`x
+  @if `p21 is 1 then `p11 + 500 
+  @if `p21 is 1 then do
+        @begin
+        @show
+`@Time slows down for a while; You get 500 turns!!
+        @end
+  @if `p21 is 2 then money + 1000
+  @if `p21 is 2 then do
+        @begin
+        @show
+`6You GAIN 1000 `$Gold`6!!
+        @end
+  @if `p21 is 3 then `i05 + 2
+  @if `p21 is 3 then do
+        @begin
+        @show
+`7You get 2 `2Green `7Potion!!
+        @end
+  @if `p21 is 4 then `i17 + 2
+  @if `p21 is 4 then do
+        @begin
+        @show
+`8You GAIN 2 Gloworms!!
+        @end
+  @if `p21 is 5 then money + 5000
+  @if `p21 is 5 then do
+        @begin
+        @show
+`5You get 5000 `$Gold`5!!
+        @end
+  @if `p21 is 6 then `i53 + 1
+  @if `p21 is 6 then do
+        @begin
+        @show
+`4You GAIN 1 `$Gold `4Potion!!
+        @end
+  @if `p21 is 7 then money + 250
+  @if `p21 is 7 then do
+        @begin
+        @show
+`@Time slows down for a while; You GAIN 250 Turns!!
+        @end
+  @if `p21 is 8 then `i54 + 1
+  @if `p21 is 8 then do
+        @begin
+        @show
+`5You get 1 `7Silver `5Potion!
+        @end
+  @if `p21 is 9 then `i40 + 1
+  @if `p21 is 9 then do
+        @begin
+        @show
+`0You get 1 `1Blue `0Potion!
+        @end
+  @if `p21 is 10 then `p11 + 750
+  @if `p21 is 10 then do
+        @begin
+        @show
+`$Time slows down for a while; You GAIN 750 turns!
+        @end
+  @if `p21 is 11 then do
+        @begin
+        @if `p11 < 500 then `p11 is 0
+        @if `p11 > 500 then `p11 - 500
+        @if `p11 is 500 then `p11 is 0
+        @show
+`4You're wasting your time; You lose 500 turns!!
+        @end
+  @if `p21 is 12 then do
+        @begin
+        @if money < 1000 then money is 0
+        @if money > 1000 then money - 1000
+        @if money is 1000 then money - 1000
+        @show
+`4You'd better check your pockes; You lose 1000 `$Gold`6!!
+        @end
+  @if `p21 is 13 then `p02 is 1
+  @if `p21 is 13 then do
+        @begin
+        @show
+`4WACK!; Your hitpoints are at 1!
+        @end
+  @if `p21 is 14 then do
+        @begin
+        @if `p11 < 750 then `p11 is 0
+        @if `p11 > 750 then `p11 - 750
+        @if `p11 is 750 then `p11 - 750
+        @show
+`4You're wasting your time; You lose 750 turns!!
+        @end
+  @if `p21 is 15 then do
+        @begin
+        @if `p11 < 2000 then `p11 is 0
+        @if `p11 > 2000 then `p11 - 2000
+        @if `p11 is 2000 then `p11 - 2000
+        @show
+`4You're wasting your time; You lose 2000 turns!!
+        @end
+ @end
+@datasave Andrew.idf &playernum 1
+@key bottom
+@drawmap
+@update
+@closescript   
+@end
+
+@#NOMORE
+@do saybar
+`$This is my house, get lost!!
+@Closescript
+
+@#Moon
+@offmap
+@do moveback
+@Clear Screen
+@show
+`r0`c  `%Andrew's Moonstone shop
+
+`2  There are so many white stones in the house!
+
+`2A old man comes to you.
+
+`@Would you buy a great, white moonstone?
+
+`@It only cost 200000 `$Gold`@!!
+
+@if money < 200000 then goto Nocash
+@do `v01 is 1
+@choice
+`$Yes!
+`4No, maybe later!
+@if responce is 1 then do
+ @begin
+  @do money - 200000
+  @Clear Screen
+  @show
+`$You got a perfectly round white stone!
+  @do `i57 + 1
+ @end
+
+@key buttom
+@do moveback
+@do statbar
+@drawmap
+@update
+@closescript
+
+@#Nocash
+@show
+`4You don't have enough money!!
+@do moveback
+@do statbar
+@key buttom
+@drawmap
+@update
+@closescript
+
+@#end
+@drawmap
+@update
+@closescript

xtrn/lord2/cnw/archery.clr

+[?7h 
+ 
+ 
+ 
+ 
+ 

xtrn/lord2/cnw/atlantis.ref

+; Script file ATLANTIS.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:20 2001
+
+@DECLARE welcome 000000448
+@DECLARE bob 000000550
+@DECLARE lassie 000000739
+@DECLARE healer 000000913
+@DECLARE mainsign 000002638
+@DECLARE sign1 000002733
+@DECLARE sign2 000002821
+@DECLARE sign3 000002904
+@DECLARE sign4 000002990
+@DECLARE sign5 000003060
+@DECLARE sign6 000003152
+@DECLARE sosenat 000003232
+@NOCHECK
+; End of .REF index
+
+@#WELCOME
+@do moveback
+@do saybar
+`%Guard: `2Welcome to Atlantis `n!`2  Becareful where you step!!
+ 
+@#BOB
+;Weapons store of Atlantis
+@do moveback
+@offmap
+@busy
+@show
+`r0`c                           `r1  Bob's Store  `r0
+ 
+ 
+ 
+ 
+@buymanager
+64
+58
+49
+@drawmap
+@update
+ 
+@#LASSIE
+;Armor store of Atlantis
+@do moveback
+@offmap
+@busy
+@show
+`r0`c                           `r1  Lassie's Store  `r0
+@buymanager
+37
+59
+@drawmap
+@update
+ 
+@#HEALER
+@offmap
+@do moveback
+@do `v01 is 1
+@show
+`r0`c  `%The Healers
+ 
+`2  Joel looks you over for wounds.
+ 
+@do write
+`x`x
+@if `p02 < `p03 then do
+ @begin
+@do `p20 is `p03
+@do `p20 - `p02
+@do `p20 / 2
+ 
+ 
+ @show
+`0"You don't look so good, friend!  I'll fix ya up for `$`p20`0 gold, k?"
+ 
+@do write
+`x`x
+@choice
+Heal yourself for `$$`p20`%. (you have `$$&money`%)
+Limp on out.
+@show
+`\
+@if response is 1 then do begin
+ @begin
+ @if money < `p20 then do
+  @begin
+  @show
+  `0"Sorry old s&boy, we don't do charity work here."
+ 
+ @do write
+`x`x
+ @choice
+Well Christ!  How am I supposed to make money when I can barely walk?
+Jesus, how 'bout a little compassion for once in your life old man!
+How 'bout some of your 'special' pills then?
+Yes sir.
+@show
+ 
+ 
+@if response is 4 then do
+ @begin
+ @show
+  `0"That's a good lad, now get along with you!" `2 he laughs.
+ 
+`k
+ @end
+ 
+@if response is 1 then do
+ @begin
+ @show
+  `0"Damn it, s&boy, be a s&man for once in your life!"`2 he yells.
+ 
+`k
+ @end
+@if response is 2 then do
+ @begin
+ @show
+  `0"I cannot respect a man who doesn't work," `2Joel informs you.
+ 
+`k
+ @end
+@if response is 3 then do
+ @begin
+ @do `p02 = 1
+ @show
+  `0"Sure.  Take uh.. these." `2 he snickers.
+ 
+  `2You gulp down the weird black pills
+ 
+  `4HIT POINTS GO DOWN TO 1.
+ 
+`k
+ @end
+ 
+  @drawmap
+  @update
+  @closescript
+  @end
+ 
+@do money - `p20
+@do `p21 = `p03
+@do `p21 - `p02
+@do `p02 = `p03
+@show
+  `2You feel much better as `0`p21`2 hitpoints are restored.
+ 
+`k
+  @end
+  @drawmap
+  @update
+  @closescript
+@end
+ 
+@show
+`0"You have no ailments, come back later," `2Joel laughs.
+ 
+`k
+@drawmap
+@update
+ 
+@#MAINSIGN
+@do moveback
+@do saybar
+`6These signs are used to communicate with the outside.
+ 
+@#SIGN1
+@do moveback
+@do saybar
+`%Barak : `6Mom! You are always ruining my life!
+ 
+@#SIGN2
+@do moveback
+@do saybar
+`%Father : `6Oh yes, I'm dead!! LALALALALA!
+ 
+@#SIGN3
+@do moveback
+@do saybar
+`%Mother : `6Hmmm, now where'd that kid go????
+ 
+@#SIGN4
+@do moveback
+@do saybar
+`%Timmy : `6Lassie, OH Lassie!
+ 
+@#SIGN5
+@do moveback
+@do saybar
+`%Custer : `6HELP! The calivery is going down! AGHH!
+ 
+@#SIGN6
+@do moveback
+@do saybar
+`4DHWLJUHFDUI BING! `6Man, its broken!
+ 
+@#SOSENAT
+@do moveback
+@do saybar
+`6Sosen Village (41 1/2 miles) ------> 

xtrn/lord2/cnw/atrain.ref

+; Script file ATRAIN.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:24 2001
+
+@DECLARE gladtalk 000000697
+@DECLARE train 000000772
+@DECLARE trainstart 000000829
+@DECLARE trainraise 000001746
+@DECLARE tsign 000002735
+@DECLARE hsign 000002809
+@DECLARE heal 000002863
+@DECLARE arena 000004813
+@DECLARE beat 000004916
+@DECLARE south 000007602
+@DECLARE north 000007643
+@DECLARE gladfite 000007710
+@DECLARE kill 000010609
+@DECLARE winglad 000011677
+@DECLARE defeat 000012275
+@DECLARE run 000012698
+@DECLARE noexit 000013213
+@DECLARE nomore 000013306
+@NOCHECK
+; End of .REF index
+
+; Script file ATRAIN.REF, indexed by REFINDEX v0.01 on Wed Oct 01 01:52:50 1997
+
+
+@#gladtalk
+@do moveback
+@do saybar
+`%Are you tough enough to defeat me?
+
+@#train
+@offmap
+@do moveback
+@do `v01 is 1
+@label trainstart
+@show
+`r0`c  `r1 `%Arris Training Center `r0
+
+`2  There are warriors everywhere, sparring, mediataing, and attempting
+  to become better than they already are.
+
+  A fellow adventurer waves to you as you come in.
+
+@do write
+`x`x
+@choice
+Ask for a level raise
+Talk to Ben
+Leave
+@if responce is 1 then do
+ @begin
+ @run trainraise
+ @do goto trainstart
+ @end
+
+
+@if responce is 2 then do
+ @begin
+  @show
+`r0`c  `r1 `%Talking to Ben `r0
+
+  `0"What can I do for you, s&sir?"
+
+  `$"So, Ben...  How do I prove that I am a great warrior?" `2you
+  innocently ask.
+  
+`k  `0"Well, `N `0, when I feel that you are ready, I will arrange
+  a sparring match for you. If you win, you will be promoted to the
+  next level. If you fail, you stay put," `2Ben informs you.
+
+  `$"Gee, that sounds easy. I think I might be ready..."
+
+`k
+ @do goto trainstart
+ @end
+
+@drawmap
+@update
+
+@#trainraise
+;can they raise their level?
+
+@do `p20 is `p09
+@do `p20 * 100
+@do `p20 * `p09
+
+@if `p20 > `p01 then do
+ @begin
+ @do `p21 is `p20
+ @do `p21 - `p01
+ @show
+
+
+  `2Next level raise at `%`p20`2.
+
+  `0"You need about `%`p21`0 more experience before your next level raise!"
+
+  `2Looks like you need to go kill some more monsters.
+
+`k
+@run trainstart
+@closescript
+@end
+
+ @if `t04 > 0 then do
+ @begin
+ @show
+
+
+  `0"You already failed once today, `n`0.  I cannot let you try again until
+  tomorrow," `2the Master tells you.
+
+  `2You vow that tomorrow will be different. 
+
+`k
+@run train
+@closescript
+@end
+
+
+ @show
+
+
+  `0You've been at level `p09 for too long, `N`0.
+
+@show
+`k
+`c  `r1 `%PROVING YOUR WORTHIENSS `r0
+
+`2  Ben proceedes to cast a spell on you.
+
+`2  You feel your eyelids get heavy...
+
+`2  You lay down and begin dreaming immediately.
+
+`k
+@do `p20 random 2 1
+@do `p20 + 1
+@run startfight in train`p20.ref
+@closescript
+
+@#tsign
+@bitset `t92 0 1
+@do moveback
+@do saybar
+`%Training Center
+
+@#hsign
+@do moveback
+@do saybar
+`%Healing Center
+
+@#heal
+@offmap
+@do moveback
+@do `v01 is 1
+@show
+`r0`c  `r1 `%The Healers `r0
+
+`2  You see a sign on the wall that says healing costs 2 gold per hitpoint
+  needed, and a certificate stating that Sherry is a graduate of the
+  `%Medicine Man Medical School`2.
+
+`2  Sherry looks you over for wounds.
+
+@do write
+`x`x
+@if `p02 < `p03 then do
+ @begin
+@do `p20 is `p03
+@do `p20 - `p02
+@do `p20 * 2
+
+ @show
+`0"You don't look so good, friend!  I'll fix ya up for `$`p20`0 gold, mmm k?"
+
+@do write
+`x`x
+@choice
+Heal yourself for `$$`p20`%. (you have `$$&money`%)
+Limp on out.
+@if response is 1 then do begin
+ @begin
+ @if money < `p20 then do
+  @begin
+  @show
+  `0"Sorry, I'm not gonna perform those services for free!"
+
+@if sexmale is 1 then do
+ @begin
+ @do write
+`x`x
+ @choice
+For `$$`p20`%, you better perform some other services too, slut!
+How about I pay with my good looks, honey?
+How 'bout you and me go in the back and I show you my sword?
+Meekly accept, and compliment her on his hair.
+@show
+
+
+@if response is 4 then do
+ @begin
+ @show
+  `0"That's a good boy. Now get along with you!" `2she laughs.
+
+`k
+ @end
+
+@if response is 1 then do
+ @begin
+ @show
+  `0"How dare you say that to me!  Get out!!!!" `2she screams.
+
+`k
+ @end
+@if response is 2 then do
+ @begin
+ @show
+  `0"I'd rather kiss a troll." `2she informs you.
+
+`k
+ @end
+@if response is 3 then do
+ @begin
+ @do `p02 = 1
+ @show
+  `0"How 'bout I show you my fists?" `2she yells as she sticks a needle in you!
+
+`k  `4HIT POINTS GO DOWN TO 1.
+
+`k
+ @end
+
+
+
+ @end
+
+  @drawmap
+  @update
+  @closescript
+  @end
+
+@do money - `p20
+@do `p21 = `p03
+@do `p21 - `p02
+@do `p02 = `p03
+@show
+  `2You feel much better as `0`p21`2 hitpoints are restored.
+
+`k
+  @end
+  @drawmap
+  @update
+  @closescript
+@end
+
+@show
+`0"You are a perfect picture of health, dear `$`n`0!" `2Sherry exclaims.
+
+`k
+@drawmap
+@update
+
+@#arena
+@do moveback
+@busy
+@if &lasty is 7 then goto noexit
+@if &lasty is 13 then goto noexit
+@label beat
+@do `v01 is 2
+@show
+`r0`c  `r1 `%The Gladiator Arena `r0
+
+`2  The area is surrounded by plebeian onlookers who cheer as a fight proceeds
+  in the middle.  A man in cyan robes who seems to be the organizer approaches
+  you.
+
+`0  "You look like a prosperous warrior. Would you care to take a chance?"
+
+@do write
+`x`x
+@CHOICE
+Ask about the rules
+Do battle
+Purchase Armor
+Purchase Weapons
+Leave
+@if response is 5 then do
+  @begin
+         @if bitcheck `t12 7 1 then do
+           @begin
+  @show
+`\`\  `0"Haha! Go practice with a corpse, kid!"
+`\  `$"I'll be back soon and I'll beat your stinking gladiator!
+  You just wait and see" `2you say.
+`\  `0"Yeah, sure, whatever kid. Now git!
+
+
+  You leave the Arena, but you plan on returning soon...
+`\`k
+  @drawmap
+  @update
+  @closescript
+
+           @end
+  @show
+`\`\  `0"We knew you were a coward the moment you arrived!"
+`\`k
+  @drawmap
+  @update
+  @closescript
+  @end
+
+@if responce is 3 then do
+  @begin
+  @show
+`r0`c `r1 `%Arena Armor `r0
+
+  `0So you want to buy some armor, eh kid? That might just be the smartest
+  thing you've ever done. So what'll it be?
+
+  @buymanager
+  59
+  62
+  68
+  @do goto beat
+  @closescript
+  @end
+
+@if responce is 4 then do
+  @begin
+  @show
+`r0`c `r1 `%Arena Weapons `r0
+
+  `0Smart move. Your `%s&weapon `0won't do you much good in the arena.
+  Why don't you buy one of our weapons. You might just stand a chance
+  if you do...
+
+  @buymanager
+  60
+  58
+  64
+  70
+  @do goto beat
+  @closescript
+  @end
+
+@if response is 1 then do
+        @begin
+        @show
+`\`\  `0"It's simple.  For 400 gold, you fight one of my random gladiators
+  for the crowd.  If you win, you double the 200.  If not, you lose it.  You
+  can battle as many times you want a day until you lose.  So what do you
+  say? 
+`\`k
+        @do goto beat
+        @end
+
+
+@if response is 2 then do
+        @begin
+        @if money < 400 then do
+          @begin
+        @show
+`\`\  `0"You don't even have 400 gold?!  How on earth could you be a great
+  arena warrior?!  Hahaha!"
+
+  `2Your face turns beet red.
+`\`k
+         @do goto beat
+         @end
+
+         @if bitcheck `t12 7 1 then do
+           @begin
+           @show
+`\`\  `0"You have already been bested in the Arena once today!  The crowd
+  would much rather see a winner, not someone like you!"
+
+`k
+           @do goto beat
+           @end
+
+        @do money - 400
+        @show
+  `2The robed man tells you to go stand on the `$X `2to commence the fight.
+
+`k
+        @if &lasty is 5 then goto south
+        @if &lasty is 15 then goto north
+        @end
+
+@#south
+@do y + 2
+@drawmap
+@update
+
+@#north
+@do y - 2
+@drawmap
+@update
+
+;Here's the gladiator
+@#gladfite
+@if 1 is 1 then do
+@begin
+@do `p20 random 6 1
+  @if `p20 is 1 then `s01 is Gladiator
+  @if `p20 is 2 then `s01 is Big`xGladiator
+  @if `p20 is 3 then `s01 is Fat`xGladiator
+  @if `p20 is 4 then `s01 is Armored`xGladiator
+  @if `p20 is 5 then `s01 is Death`xGladiator
+  @if `p20 is 6 then `s01 is Ghost`xGladiator
+@show
+`r0`c `r1 `%The Fight Of Your Life `r0
+
+  `2They agree to let you fight.
+
+  You grip your `0s&weapon`2 tightly as you wait for your opponent.
+`\`k  `0The robed man screams the name.`l .`l .`l .`l .`% `s01`0!
+
+`k
+@
+;Glad Strength
+        @do `p20 random 5 1
+               @if `p20 is 1 then do
+                @begin
+                 @do `p21 is S&wep_num
+                 @do `p21 + `p04
+                 @do `p21 - 30
+                @end
+
+               @if `p20 is 2 then do
+                @begin
+                 @do `p21 is S&wep_num
+                 @do `p21 + `p04
+                 @do `p21 - 12
+                @end
+
+               @if `p20 is 3 then do
+                @begin
+                 @do `p21 is S&wep_num
+                 @do `p21 + `p04
+                @end
+
+                @if `p20 is 4 then do
+                @begin
+                 @do `p21 is S&wep_num
+                 @do `p21 + `p04
+                 @do `p21 + 12
+                @end
+
+               @if `p20 is 5 then do
+                @begin
+                 @do `p21 is S&wep_num
+                 @do `p21 + `p04
+                 @do `p21 + 30
+                @end
+;Glad Defense
+        @do `p20 random 3 1
+               @if `p20 is 1 then do
+                 @begin
+                  @do `p22 is S&arm_num
+                  @do `p22 + `p05
+                  @do `p22 - 20
+                 @end
+
+               @if `p20 is 2 then do
+                @begin
+                 @do `p22 is S&arm_num
+                 @do `p22 + `p05
+                @end
+
+               @if `p20 is 3 then do
+                @begin
+                 @do `p22 is S&arm_num
+                 @do `p22 + `p05
+                 @do `p22 + 20
+                @end
+;Glad H.p.
+
+        @do `p20 random 3 1
+               @if `p20 is 1 then do
+                @begin
+                 @do `p23 is `p03
+                 @do `p23 - 10
+                 @end
+
+               @if `p20 is 2 then do
+                @begin
+                 @do `p23 is `p03
+                @end
+
+                @if `p20 is 3 then do
+                 @begin
+                  @do `p23 is `p03
+                  @do `p23 + 10
+                 @end
+
+@show
+`r0`c `r1 `%The Fight Of Your Life `r0
+
+  `2`s01 walks out, and boy does he look tough!
+
+  `0Allright, s&boy! Let's get this over with!
+
+`k  `%At this time, the creator of this IGM would
+  like to wish you Good Luck, as you may need it.
+
+`k
+@drawmap
+@update
+@do goto kill
+@end
+
+@#kill
+@do move 37 10
+@do write
+`r6`6
+@do move 38 10
+@do write
+`r6`$
+@do move 38 10
+@do write
+`r6`6
+@do move 39 10
+@do write
+`r6`$
+@do move 39 10
+@do write
+`r6`6
+@do move 40 10
+@do write
+`r6`$
+@do move 40 10
+@do write
+`r6`6
+@do move 41 10
+@do write
+`r6`$
+@do move 41 10
+@do write
+`r6`6
+@do move 42 10
+@do write
+`r6`$
+@do move 42 10
+@do write
+`r6`6
+@do move 43 10
+@do write
+`r6`$
+@fight
+;name
+`s01
+;string said when you see him
+`0"You get one chance kid. Don't blow it!" `2taunts `s01.
+;power move kill string
+You carefully step over the lifeless Gladiator's body... hehe!
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+hits with his club|`p21
+slams you with his shield|`p21
+hits you with a big rock|`p21
+brawls with you|`p21
+NONE|NONE
+;defense
+`p22
+;gold reward
+800
+;experience
+120
+;hit points
+`p23
+;if win: ref file|name or NONE
+ATRAIN.REF|WINGLAD
+;if lose: ref file|name or NONE
+ATRAIN.REF|DEFEAT
+;if runs: ref file|name or NONE
+ATRAIN.REF|RUN
+
+@#WINGLAD
+;Winning at the Arena
+@show
+`r0`c  `r1 `%VICTORY IS YOURS THIS DAY `r0
+
+`2  The entire arena roars in approval as you behead poor `0`e`2.
+
+  `2You have done well - dare you attempt another battle?
+`\`k
+@do `p20 random 5 1
+@if `p20 is 1 then `s02 is decapitated
+@if `p20 is 2 then `s02 is gutted
+@if `p20 is 3 then `s02 is slaughtered
+@if `p20 is 4 then `s02 is mutilated
+@if `p20 is 5 then `s02 is destroyed
+@do addlog
+  `r7  `r0 `%`N `2has `s02 `%`e`2! `r7  `r0
+@routine seperate in maint.ref
+@do x is 40
+@do y is 16
+@do map is 122
+@loadmap 122
+@drawmap
+@update
+
+@#DEFEAT
+;Losing at the Arena
+@do `p02 is 5
+@bitset `t12 7 1
+@show
+`r0`c  `r1 `%You Lost `r0
+
+`2  The hulking Gladiator stands over you.  You can hear the crowd booing your
+  defeat in the background.  Better luck tommorow...
+`\`k
+@do addlog
+  `r7  `r0 `%`N `2got whupped by `%`e`2 in the Arena! `r7  `r0
+@routine seperate in maint.ref
+@do x is 40
+@do y is 16
+@do map is 122
+@loadmap 122
+@drawmap
+@update
+
+@#RUN
+;Running at the Arena
+@bitset `t12 7 1
+@show
+`r0`c  `r1 `%Only one thing to do! `r0
+
+`2  You turn your back to your enemy and bolt.  You scramble over the Arena
+  fence!
+
+  `0"Coward, Coward!" `2the audience chants in unison.
+
+  Crap... Looks like you better not show your face around here again today...
+`\`k
+@do addlog
+  `r7  `r0 `%`N `2has run from `%`e`2 in the Arena! `r7  `r0
+@routine seperate in maint.ref
+@do x is 40
+@do y is 16
+@do map is 122
+@loadmap 122
+@drawmap
+@update
+
+@#noexit
+@do moveback
+@do saybar
+`%You have to fight if you want to leave the Arena...
+
+@#nomore

xtrn/lord2/cnw/auction.ref

+;                                            MAR-28-2001
+;
+;  Auction House v0.1-beta
+;
+;                   by Joel Gathercole
+;                      GreenMachineBBS.com
+;
+;
+;
+;    --Will be adding in NPC support soon.
+;
+;
+; lines for auction data files
+@writefile `p20.auc     <-- `p20 is AUCTION#
+&time    <-- start date
+`p21     <--how many days for auction
+`p22     <--Owner of AUCTION
+`p23     <--0=ITEM# 100=GEM 101+DEEDS
+`s01     <--item# or deed data file name or "GEM"
+`p24     <--quantity of items
+`p25     <--Starting BID
+`p26     <--Current BID
+`p27     <--HIGHEST BIDDER Playernum or NPC# (201-399)
+`p30     <-- bid increment
+;
+;
+;
+
+@#START
+@busy
+@offmap
+@do moveback
+@do move 1 1
+@clear screen
+@show
+                `r1  `$-  `4AUCTION HOUSE  `$-  `r0
+
+  `2Welcome to the Auction House. Here you can put your items up for
+ auction for other people to bid on to buy. Everytime a bid is made, that
+ person will have to put down the cash immediately. If they loose the
+ auction, they will of course be given back all their cash put into their
+ account with us. 
+
+
+
+                      `%Ú`7ÄÄ`8ÄÄÄÄÄÄÄÄÄÄÄÄÄÄ`7¿
+                      `7³                `7³
+                      `7³                `%³
+                      `8³                `%³
+                      `7³                `7³
+                      `7ÀÄÄÄÄÄ`%ÄÄÄÄÄÄÄÄ`7ÄÄÄ`8Ù
+
+@do move 25 12
+@do `v01 is 1
+@choice
+`%View Auctions `%
+`%Add an Auction`%
+`%My account    `%
+`%Leave         `%
+@if responce is 1 then goto VIEWLIST
+@if responce is 2 then goto ADD
+@if responce is 3 then goto ACCOUNT
+@drawmap
+@update
+@closescript
+
+
+@#ACCOUNT
+@dataload auction.idf &playernum `p21
+@do move 1 1
+@clear screen
+@show
+                `r1  `$-  `4AUCTION HOUSE  `$-  `r0
+
+   `2What can be in your account here:
+
+   `$- `%If you previously placed bids and have lost on the auctions,
+
+   `$- `%The gold from on an item you put up for auction.
+
+   `$- `%The item in which you won an auction with.
+
+@if `p21 > 0 then do
+        @begin
+        @show
+`%You take your `$`p21 `%gold from your account.
+        @datasave auction.idf &playernum 0
+        @do money + `p21
+        @end
+@if `p21 < 1 then do
+        @begin
+        @show
+`\         `4You have no more gold in your account here.
+        @end
+
+@key bottom
+@do goto START
+
+@#ADD
+@do move 1 1
+@clear screen
+@show
+                `r1  `$-  `4AUCTION HOUSE  `$-  `r0
+
+  `2Please tell us what kind of item you're putting up for auction.
+
+
+                      `%Ú`7ÄÄ`8ÄÄÄÄÄÄÄÄÄÄÄÄÄÄ`7¿
+                      `7³                `7³
+                      `7³                `%³
+                      `8³                `%³
+                      `7³                `7³
+                      `7ÀÄÄÄÄÄ`%ÄÄÄÄÄÄÄÄ`7ÄÄÄ`8Ù
+
+@do move 25 7
+@do `v01 is 1
+@CHOICE
+`%    ITEMS     `%
+`%    DEED      `%
+`%    GEMS      `%
+`%    Nothing   `%
+@if responce is 1 then goto ADDITEM
+@if responce is 2 then goto ADDDEED
+@if responce is 3 then goto ADDGEMS
+@if responce is 4 then goto START
+
+@#ADDGEMS
+@do write
+`\`4How many GEMS?`x:`x
+@DO READNUM 3
+@if `v40 > `p19 then goto BADMOVE
+@if `v40 < 1 then goto BADMOVE
+@do `p24 is `v40
+@do `s10 is GEM
+@do `p23 is 100
+@do goto NEWAUCTION
+
+@#ADDITEM
+@do `s10 is `x
+@do write
+`\`\`4Which ITEM?`x:`x
+@DO READSTRING 20 `x `s09
+@routine ITEMNAME in ITEMNAME.REF
+@if `s10 is NIL then goto START
+@if `s10 is `x then goto START
+@do `s01 is `p20
+`\`\`4How many `s10?`x:`x
+@DO READNUM 3
+@if `v40 > `p21 then goto BADMOVE
+@if `v40 < 1 then goto BADMOVE
+@do `p24 is `v40
+@do `p23 is `p20
+@do goto NEWAUCTION
+
+@#ADDDEED
+@do write
+`\`4Feature not available yet.
+@key bottom
+@do goto START
+
+@#NEWAUCTION
+@do write
+`\`4How many days to keep auction open?`x:`x
+@DO READNUM 2
+@if `v40 > 90 then do
+        @begin
+        @do write
+`\That is too long for an AUCTION, please select less than 90 days.
+        @key bottom
+        @do goto NEWAUCTION
+        @end
+@do `p21 is `v40
+@do write
+`\`4What is the starting bid?`x:`x
+@DO READNUM 6
+@do `p25 is `v40
+@do `p26 is `v40
+@do write
+`\`4What is the lowest increment bid?`x:`x
+@DO READNUM 6
+@do `p30 is `v40
+@if `p30 < 1 then goto BADMOVE
+
+@do `p20 is 0
+@label FINDNEXT
+@if `p20 > 50 then do
+        @begin
+        @do move 1 1
+        @clear screen
+        @show
+                `r1  `$-  `4AUCTION HOUSE  `$-  `r0
+
+ `%One slight problem, s&sir. We do not have enough
+ space at this moment to hold anymore auctions. Please
+ wait for one of the current auctions to complete.
+
+                   Thanks You.
+        @key bottom
+        @do goto START
+        @end
+@do `p20 + 1
+@do `s08 is `p20.auc
+@if `s08 exists true then goto FINDNEXT
+
+@if `p23 is 100 then do
+        @begin
+        @do `p19 - `p24
+        @do goto MAKEAUC
+        @end
+@if `p23 is 1 then `i01 - `p24
+@if `p23 is 2 then `i02 - `p24
+@if `p23 is 3 then `i03 - `p24
+@if `p23 is 4 then `i04 - `p24
+@if `p23 is 5 then `i05 - `p24
+@if `p23 is 6 then `i06 - `p24
+@if `p23 is 7 then `i07 - `p24
+@if `p23 is 8 then `i08 - `p24
+@if `p23 is 9 then `i09 - `p24
+@if `p23 is 10 then `i10 - `p24
+@if `p23 is 11 then `i11 - `p24
+@if `p23 is 12 then `i12 - `p24
+@if `p23 is 13 then `i13 - `p24
+@if `p23 is 14 then `i14 - `p24
+@if `p23 is 15 then `i15 - `p24
+@if `p23 is 16 then `i16 - `p24
+@if `p23 is 17 then `i17 - `p24
+@if `p23 is 18 then `i18 - `p24
+@if `p23 is 19 then `i19 - `p24
+@if `p23 is 20 then `i20 - `p24
+@if `p23 is 21 then `i21 - `p24
+@if `p23 is 22 then `i22 - `p24
+@if `p23 is 23 then `i23 - `p24
+@if `p23 is 24 then `i24 - `p24
+@if `p23 is 25 then `i25 - `p24
+@if `p23 is 26 then `i26 - `p24
+@if `p23 is 27 then `i27 - `p24
+@if `p23 is 28 then `i28 - `p24
+@if `p23 is 29 then `i29 - `p24
+@if `p23 is 30 then `i30 - `p24
+@if `p23 is 31 then `i31 - `p24
+@if `p23 is 32 then `i32 - `p24
+@if `p23 is 33 then `i33 - `p24
+@if `p23 is 34 then `i34 - `p24
+@if `p23 is 35 then `i35 - `p24
+@if `p23 is 36 then `i36 - `p24
+@if `p23 is 37 then `i37 - `p24
+@if `p23 is 38 then `i38 - `p24
+@if `p23 is 39 then `i39 - `p24
+@if `p23 is 40 then `i40 - `p24
+@if `p23 is 41 then `i41 - `p24
+@if `p23 is 42 then `i42 - `p24
+@if `p23 is 43 then `i43 - `p24
+@if `p23 is 44 then `i44 - `p24
+@if `p23 is 45 then `i45 - `p24
+@if `p23 is 46 then `i46 - `p24
+@if `p23 is 47 then `i47 - `p24
+@if `p23 is 48 then `i48 - `p24
+@if `p23 is 49 then `i49 - `p24
+@if `p23 is 50 then `i50 - `p24
+@if `p23 is 51 then `i51 - `p24
+@if `p23 is 52 then `i52 - `p24
+@if `p23 is 53 then `i53 - `p24
+@if `p23 is 54 then `i54 - `p24
+@if `p23 is 55 then `i55 - `p24
+@if `p23 is 56 then `i56 - `p24
+@if `p23 is 57 then `i57 - `p24
+@if `p23 is 58 then `i58 - `p24
+@if `p23 is 59 then `i59 - `p24
+@if `p23 is 60 then `i60 - `p24
+@if `p23 is 61 then `i61 - `p24
+@if `p23 is 62 then `i62 - `p24
+@if `p23 is 63 then `i63 - `p24
+@if `p23 is 64 then `i64 - `p24
+@if `p23 is 65 then `i65 - `p24
+@if `p23 is 66 then `i66 - `p24
+@if `p23 is 67 then `i67 - `p24
+@if `p23 is 68 then `i68 - `p24
+@if `p23 is 69 then `i69 - `p24
+@if `p23 is 70 then `i70 - `p24
+@if `p23 is 71 then `i71 - `p24
+@if `p23 is 72 then `i72 - `p24
+@if `p23 is 73 then `i73 - `p24
+@if `p23 is 74 then `i74 - `p24
+@if `p23 is 75 then `i75 - `p24
+@if `p23 is 76 then `i76 - `p24
+@if `p23 is 77 then `i77 - `p24
+@if `p23 is 78 then `i78 - `p24
+@if `p23 is 79 then `i79 - `p24
+@if `p23 is 80 then `i80 - `p24
+@if `p23 is 81 then `i81 - `p24
+@if `p23 is 82 then `i82 - `p24
+@if `p23 is 83 then `i83 - `p24
+@if `p23 is 84 then `i84 - `p24
+@if `p23 is 85 then `i85 - `p24
+@if `p23 is 86 then `i86 - `p24
+@if `p23 is 87 then `i87 - `p24
+@if `p23 is 88 then `i88 - `p24
+@if `p23 is 89 then `i89 - `p24
+@if `p23 is 90 then `i90 - `p24
+@if `p23 is 91 then `i91 - `p24
+@if `p23 is 92 then `i92 - `p24
+@if `p23 is 93 then `i93 - `p24
+@if `p23 is 94 then `i94 - `p24
+@if `p23 is 95 then `i95 - `p24
+@if `p23 is 96 then `i96 - `p24
+@if `p23 is 97 then `i97 - `p24
+@if `p23 is 98 then `i98 - `p24
+@if `p23 is 99 then `i99 - `p24
+
+@label MAKEAUC
+@writefile `p20.auc
+&time
+`p21
+&playernum
+`p23
+`s10
+`p24
+`p25
+`p26
+0
+`p30
+@do move 1 1
+@clear screen
+@show
+                `r1  `$-  `4AUCTION HOUSE  `$-  `r0
+                `r1  `$-  `4YOUR AUCTION   `$-  `r0
+
+`%Starting Date: `$&time
+`%Length: `$`p21 days
+`%Item: `$`s10
+`%Quantity: `$`p24
+`%Starting Bid: `$$`p25
+
+@key bottom
+@do goto START
+
+@#BADMOVE
+@do write
+`\`4You made a BAD move, returning you to Main Menu.
+@key bottom
+@do goto START
+
+@#VIEWLIST
+@do `p20 is 0
+@label FINDNEXT2
+@do `p20 + 1
+@do `s08 is `p20.auc
+@if `s08 exists true then do
+        @begin
+        @do move 1 1
+        @clear screen
+        @readfile `s08
+`p28
+`p21 
+`p22 
+`p23 
+`s04 
+`p24 
+`p25 
+`p26 
+`p27 
+        @do `s06 is `p28
+        @do `p29 is &time
+        @do `s06 is `$`p28
+        @if `p28 is `p29 then `s06 is `5Today`%
+        @do `p30 is `p28
+        @do `p30 + `p21
+        @do `p30 - `p29
+        @if `p30 < 0 then do
+                @begin
+                @routine DONEAUC
+                @end
+        @do `s07 is `5`p30`%`xdays
+        @if `p30 is 0 then `s07 is `5today   `%
+        @if `p30 is 1 then `s07 is `5tommorow`%
+        @if `p21 is 9999 then `s07 is `5COMPLETE`%
+        @do `s03 is getname `p22
+        @do `s05 is getname `p27
+        @if `p27 is 0 then `s05 is `@NOBODY
+        @if `p23 > 100 then do
+                @begin
+;ADD THIS IN WHEN DEEDS ROUTINES ARE COMPLETED
+                @end
+        @do `s02 is `p20
+        @do pad `s02 3
+        @do pad `s06 5
+        @do pad `s07 10
+        @do pad `s04 24
+        @do pad `s03 18
+        @do pad `s05 18
+        @show
+                `r1  `$-  `4AUCTION HOUSE  `$-  `r0
+
+           `%ÚÄÄÄÄÄÄÄÄ`7ÄÄÄÄÄÄÄÄÄÄÄÄÄÄ`8ÄÄÄÄÄÄÄÄÄÄ`7ÄÄÄÄ¿
+           `%³   `r7  `$-      `4ITEM# `s02     `$-      `r0   `7³
+           `7³ `%Start day: `$`s06   `%Ends: `s07`7³
+           `7³ `%Item:     `$`s04 `7³
+           `7³ `%BID: `$$           `%Start BID: `$$      `7³
+           `7³ `%Highest Bidder: `5`s05 `7³
+           `7³ `%Owner: `$`s03          `7³
+           `7ÀÄÄÄÄÄ`%ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ`7ÄÄÄÄÄÄÄ`8ÄÄÙ
+                      `%Ú`7ÄÄ`8ÄÄÄÄÄÄÄÄÄÄ`7¿
+                      `7³            `7³
+                      `8³            `%³
+                      `7³            `7³
+                      `7ÀÄÄÄÄÄ`%ÄÄÄÄ`7ÄÄÄ`8Ù
+        @do move 20 6
+        @do write
+`@`p24
+        @do move 20 7
+        @do write
+`$`p26
+        @do move 43 7
+        @do write
+`$`p25
+        @do move 25 12
+        @choice
+`%`xNext     `%
+!`p21 9999 `%`xBid      `%
+=`p21 9999 =`p27 &playernum `%`xCollect   `%
+`%`xLeave    `%
+        @if responce is 3 then goto COLLECTIT
+        @if responce is 4 then goto START
+        @if responce is 2 then do
+                @begin
+                @readfile `s08
+`p28
+`p21
+`p22
+`p23
+`s04
+`p24
+`p25
+`p26
+`p27
+`p30
+                @if `p22 is &playernum then goto BADMOVE
+                @if `p27 is &playernum then goto BADMOVE
+                @do `p40 is `p30
+                @do `p40 + `p26
+                @do write
+`\`\`%Bid amount `8(`7min. `p40`8):`x
+                @do readnum 8
+                @if `v40 < `p40 then goto BADMOVE
+                @if `v40 < `p26 then goto BADMOVE
+                @do `p26 is `v40
+                @dataload auct`p20.idf &playernum `p29
+                @if `p29 is 0 then do
+                        @begin
+                        @if `p26 > money then goto BADMOVE
+                        @end
+                @if `p29 > 0 then do
+                        @begin
+                        @do `p26 - `p29
+                        @if `p26 > money then goto BADMOVE
+                        @do `p26 + `p29
+                        @end
+                @do delete `s08
+                @writefile `s08
+`p28
+`p21
+`p22
+`p23
+`s04
+`p24
+`p25
+`p26
+&playernum
+`p30
+                @dataload auct`p20.idf &playernum `p29
+                @if `p29 is 0 then do
+                        @begin
+                        @datasave auct`p20.idf &playernum `p26
+                        @end
+                @if `p29 > 0 then do
+                        @begin
+                        @do `p26 - `p29
+                        @datasave auct`p20.idf &playernum `p26
+                        @end
+                @do money - `p26
+                @do `p20 - 1
+                @end
+        @end
+@if `p20 > 50 then `p20 is 0
+@do goto FINDNEXT2
+
+@#DONEAUC
+; read the file again!
+@readfile `s08
+`p28
+`p21 
+`p22 
+`p23 
+`s04 
+`p24 
+`p25 
+`p26 
+`p27
+`p30
+@if `p21 is 9999 then do
+        @begin
+        @closescript
+        @end
+@if `p27 is 0 then `p27 is `p22
+@do delete `s08
+@writefile `s08
+`p28
+9999
+`p22
+`p23
+`s04
+`p24
+`p25
+`p26
+`p27
+`p30
+@
+@DO `s02 IS GETNAME `p27
+@if `p22 is `p27 then do
+        @begin
+        @writefile mail\mail`p22.dat
+  `0AUCTION HOUSE
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`%Your auction #`p20 has ended. There was NO winner of this
+`%AUCTION. You need to come to the AUCTION HOUSE to collect
+`%your `$`s04`%.
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`k
+        @closescript
+        @end
+
+@if `p22 < 201 then do
+        @begin
+        @dataload auction.idf `p22 `p28
+        @do `p28 + `p26
+        @datasave auction.idf `p22 `p28
+        @writefile mail\mail`p22.dat
+  `0AUCTION HOUSE
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`%Your auction #`p20 has ended. The winner of the AUCTION was
+`%`s02`%. You need to come to the AUCTION HOUSE to
+`%collect your `$`p26 `%gold from the winning bid.
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`k
+        @end
+@if `p27 < 201 then do
+        @begin
+        @datasave auct`p20.idf `p27 0
+        @writefile mail\mail`p27.dat
+  `0AUCTION HOUSE
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`%You WON the auction #`p20 with the `s04`%
+`%at the price of `$`p26 `%gold. Please come to the
+`%AUCTION HOUSE to pick up your winning item.
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`k
+        @end
+@do `p22 is 0
+@label DONEAUC2
+@do `p22 + 1
+@dataload auct`p20.idf `p22 `p29
+@if `p29 > 0 then do
+        @begin
+        @dataload auction.idf `p22 `p28
+        @do `p28 + `p29
+        @datasave auction.idf `p22 `p28
+        @end
+@if `p22 > &totalaccounts then do
+        @begin
+        @do delete auct`p20.idf
+        @closescript
+        @end
+@do goto DONEAUC2
+
+@#COLLECTIT
+@readfile `s08
+`p28
+`p21 
+`p22 
+`p23 
+`s04 
+`p24 
+`p25 
+`p26 
+`p27 
+@if `p27 is &playernum then do
+        @begin
+        @if `p23 < 100 then do
+                @begin
+@if `p23 is 1 then `i01 + `p24
+@if `p23 is 2 then `i02 + `p24
+@if `p23 is 3 then `i03 + `p24
+@if `p23 is 4 then `i04 + `p24
+@if `p23 is 5 then `i05 + `p24
+@if `p23 is 6 then `i06 + `p24
+@if `p23 is 7 then `i07 + `p24
+@if `p23 is 8 then `i08 + `p24
+@if `p23 is 9 then `i09 + `p24
+@if `p23 is 10 then `i10 + `p24
+@if `p23 is 11 then `i11 + `p24
+@if `p23 is 12 then `i12 + `p24
+@if `p23 is 13 then `i13 + `p24
+@if `p23 is 14 then `i14 + `p24
+@if `p23 is 15 then `i15 + `p24
+@if `p23 is 16 then `i16 + `p24
+@if `p23 is 17 then `i17 + `p24
+@if `p23 is 18 then `i18 + `p24
+@if `p23 is 19 then `i19 + `p24
+@if `p23 is 20 then `i20 + `p24
+@if `p23 is 21 then `i21 + `p24
+@if `p23 is 22 then `i22 + `p24
+@if `p23 is 23 then `i23 + `p24
+@if `p23 is 24 then `i24 + `p24
+@if `p23 is 25 then `i25 + `p24
+@if `p23 is 26 then `i26 + `p24
+@if `p23 is 27 then `i27 + `p24
+@if `p23 is 28 then `i28 + `p24
+@if `p23 is 29 then `i29 + `p24
+@if `p23 is 30 then `i30 + `p24
+@if `p23 is 31 then `i31 + `p24
+@if `p23 is 32 then `i32 + `p24
+@if `p23 is 33 then `i33 + `p24
+@if `p23 is 34 then `i34 + `p24
+@if `p23 is 35 then `i35 + `p24
+@if `p23 is 36 then `i36 + `p24
+@if `p23 is 37 then `i37 + `p24
+@if `p23 is 38 then `i38 + `p24
+@if `p23 is 39 then `i39 + `p24
+@if `p23 is 40 then `i40 + `p24
+@if `p23 is 41 then `i41 + `p24
+@if `p23 is 42 then `i42 + `p24
+@if `p23 is 43 then `i43 + `p24
+@if `p23 is 44 then `i44 + `p24
+@if `p23 is 45 then `i45 + `p24
+@if `p23 is 46 then `i46 + `p24
+@if `p23 is 47 then `i47 + `p24
+@if `p23 is 48 then `i48 + `p24
+@if `p23 is 49 then `i49 + `p24
+@if `p23 is 50 then `i50 + `p24
+@if `p23 is 51 then `i51 + `p24
+@if `p23 is 52 then `i52 + `p24
+@if `p23 is 53 then `i53 + `p24
+@if `p23 is 54 then `i54 + `p24
+@if `p23 is 55 then `i55 + `p24
+@if `p23 is 56 then `i56 + `p24
+@if `p23 is 57 then `i57 + `p24
+@if `p23 is 58 then `i58 + `p24
+@if `p23 is 59 then `i59 + `p24
+@if `p23 is 60 then `i60 + `p24
+@if `p23 is 61 then `i61 + `p24
+@if `p23 is 62 then `i62 + `p24
+@if `p23 is 63 then `i63 + `p24
+@if `p23 is 64 then `i64 + `p24
+@if `p23 is 65 then `i65 + `p24
+@if `p23 is 66 then `i66 + `p24
+@if `p23 is 67 then `i67 + `p24
+@if `p23 is 68 then `i68 + `p24
+@if `p23 is 69 then `i69 + `p24
+@if `p23 is 70 then `i70 + `p24
+@if `p23 is 71 then `i71 + `p24
+@if `p23 is 72 then `i72 + `p24
+@if `p23 is 73 then `i73 + `p24
+@if `p23 is 74 then `i74 + `p24
+@if `p23 is 75 then `i75 + `p24
+@if `p23 is 76 then `i76 + `p24
+@if `p23 is 77 then `i77 + `p24
+@if `p23 is 78 then `i78 + `p24
+@if `p23 is 79 then `i79 + `p24
+@if `p23 is 80 then `i80 + `p24
+@if `p23 is 81 then `i81 + `p24
+@if `p23 is 82 then `i82 + `p24
+@if `p23 is 83 then `i83 + `p24
+@if `p23 is 84 then `i84 + `p24
+@if `p23 is 85 then `i85 + `p24
+@if `p23 is 86 then `i86 + `p24
+@if `p23 is 87 then `i87 + `p24
+@if `p23 is 88 then `i88 + `p24
+@if `p23 is 89 then `i89 + `p24
+@if `p23 is 90 then `i90 + `p24
+@if `p23 is 91 then `i91 + `p24
+@if `p23 is 92 then `i92 + `p24
+@if `p23 is 93 then `i93 + `p24
+@if `p23 is 94 then `i94 + `p24
+@if `p23 is 95 then `i95 + `p24
+@if `p23 is 96 then `i96 + `p24
+@if `p23 is 97 then `i97 + `p24
+@if `p23 is 98 then `i98 + `p24
+@if `p23 is 99 then `i99 + `p24
+                @do write
+`\`\   `%You collect your `4`p24 `$`s04`%.
+                @end
+        @if `p23 is 100 then do
+                @begin
+                @do `p19 + `p24
+                @do write
+`\`\   `%You collect your `$`p24 GEMS`%.
+                @end
+        @if `p23 > 100 then do
+                @begin
+;ADD THIS IN WHEN DEEDS ROUTINES ARE COMPLETED
+                @end
+
+        @end
+@do delete `s08
+@key bottom
+@do goto START
+@#NOMORE

xtrn/lord2/cnw/backdoor.ref

+; Script file BACKDOOR.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:43 2001
+
+@DECLARE start 000000433
+@DECLARE barak 000000616
+@DECLARE barother 000002634
+@DECLARE fee 000003490
+@DECLARE turgon 000004312
+@DECLARE turgother 000006340
+@DECLARE bardonation 000007217
+@DECLARE turgdonation 000007813
+@DECLARE leave 000008402
+@DECLARE broke 000008524
+@DECLARE nomore 000008944
+@NOCHECK
+; End of .REF index
+
+@#start
+@do moveback
+@offmap
+@clear screen
+@show
+`9You quietly enter through the back door of the training center.
+@key
+@if bitcheck `t19 1 1 then goto turgon
+@do goto barak
+@#barak
+@pauseoff
+@clear screen
+@show
+`9Sitting behind the desk is Sauraman, Barak's accountant and record keeper.
+@key
+@show
+
+
+        
+\   - 
+   
+
+ 
+  
+He looks at you with his 
+
+beady little eyes.____/ \____
+/// ||||||| \\\
+|||  |||||||  |||
+\\\  |||||  ///
+\\\/// \\\ /
+   
+
+
+|||||||||||||
+
+|||||||||||||||
+|||||||||||||||
+@key
+@pauseon
+@clear screen
+@show
+`2"Can I help you, `N?"
+ 
+@do `v01 is 1
+@choice
+`%How do you know my name?
+`%What are you doing here?
+`%Sorry, wrong door.
+@if response is 3 then do
+@begin
+@do goto leave
+@end
+@if response is 1 then do
+@begin
+@show
+ 
+ 
+ 
+`2"It's my job to know everyone at the training center."
+@key
+@clear screen
+@do goto barak
+@end
+@if response is 2 then do
+@begin
+@clear screen
+@show
+`2"Mostly I am doing this accursed paper work.  But I am also collecting
+gold for Barak's birthday present, and occasionally I provide other
+services."
+ 
+@key
+@do `v01 is 1
+@choice
+`%Sounds like fun.  See ya!
+`%I'd like to help with Barak's present.
+`%What other services?
+@if response is 1 then do
+@begin
+@do goto leave
+@end
+@if response is 2 then do
+@begin
+@clear screen
+@show
+`2"Oh, how nice of you!  How much would you like to give me?"
+ 
+@do goto bardonation
+@end
+@if response is 3 then goto barother
+@#barother
+@clear screen
+@show
+`2"Well, sometimes I sell used watches, and sometimes I have information
+available."
+@key
+@show
+ 
+`2"But not right now."
+@key
+@show
+ 
+`2"What I can do is... umm.... alter the records a bit in your favor."
+@key
+@show
+ 
+`2"You see, Barak is too busy to remember who has and has not had a failed
+attempt in the training center each day."
+@key
+@clear screen
+@if `t04 is 0 then do
+@begin
+@show
+`2"I see here that you have not failed yet today.  But if you should fail,
+come see me.  One... shall we say 'mis-stroke'... of my pen, and you will
+get another chance."
+ 
+@key
+@do goto leave
+@end
+@if `t04 is 1 then do
+@begin
+@show
+`2"I see here that you have already failed in the center today.  But with
+one... shall we say 'mis-stroke'... of my pen, you can have another chance."
+ 
+@key
+@do goto fee
+@#fee
+@do `v01 is 1
+@choice
+`%No thanks.  That doesn't seem fair.
+`%What's in it for you?
+@if response is 1 then do
+@begin
+@do goto leave
+@end
+@clear screen
+@do `p20 is `p09
+@do `p20 * 500
+@show
+`2"Well, I don't get paid much here, so I must supplement my income somehow.
+Since I like you, I will only charge you `p20."
+ 
+@key
+@do `v01 is 1
+@choice
+`%That's too rich for my blood.
+`%That seems reasonable. Deal!
+@if response is 1 then do
+@begin
+@do goto leave
+@end
+@if `p20 > money then do
+@begin
+@do goto broke
+@end
+@clear screen
+@show
+`9Sauraman takes your money and quickly scratches through some writing in his
+record book.
+@do money - `p20
+@do `t04 is 0
+@key
+@show
+ 
+`2"Nice doing business with you `N.  And let's just keep this our
+little secret."
+@key
+@do goto leave
+ 
+@#turgon
+@pauseoff
+@clear screen
+@show
+`9Sitting behind the desk is Sauraman, Turgon's accountant and record keeper.
+@key
+@show
+
+
+        
+\   - 
+   
+
+ 
+  
+He looks at you with his 
+
+beady little eyes.____/ \____
+/// ||||||| \\\
+|||  |||||||  |||
+\\\  |||||  ///
+\\\/// \\\ /
+   
+
+
+|||||||||||||
+
+|||||||||||||||
+|||||||||||||||
+@key
+@pauseon
+@clear screen
+@show
+`2"Can I help you, `N?"
+ 
+@do `v01 is 1
+@choice
+`%How do you know my name?
+`%What are you doing here?
+`%Sorry, wrong door.
+@if response is 3 then do
+@begin
+@do goto leave
+@end
+@if response is 1 then do
+@begin
+@show
+ 
+ 
+ 
+`2"It's my job to know everyone at the training center."
+@key
+@clear screen
+@do goto turgon
+@end
+@if response is 2 then do
+@begin
+@clear screen
+@show
+`2"Mostly I am doing this accursed paper work.  But I am also collecting
+gold for Turgon's birthday present, and I occasionally provide other
+services."
+ 
+@key
+ 
+@do `v01 is 1
+@choice
+`%Sounds like fun.  See ya!
+`%I'd like to help with Turgon's present.
+`%What other services?
+@if response is 1 then do
+@begin
+@do goto leave
+@end
+@if response is 2 then do
+@begin
+@clear screen
+@show
+`2"Oh, how nice of you!  How much would you like to give me?"
+ 
+@do goto turgdonation
+@end
+@if response is 3 then goto turgother
+@#turgother
+@clear screen
+@show
+`2"Well, sometimes I sell used watches, and sometimes I have information
+available."
+@key
+@show
+ 
+`2"But not right now."
+@key
+@show
+ 
+`2"What I can do is... umm.... alter the records a bit in your favor."
+@key
+@show
+ 
+`2"You see, Turgon is too busy to remember who has and has not had a failed
+attempt in the training center each day."
+@key
+@clear screen
+@if `t04 is 0 then do
+@begin
+@show
+`2"I see here that you have not failed yet today.  But if you should fail,
+come see me.  One... shall we say 'mis-stroke'... of my pen, and you will
+get another chance."
+ 
+@key
+@do goto leave
+@end
+ 
+@if `t04 is 1 then do
+@begin
+@show
+`2"I see here that you have already failed in the center today.  But with
+one... shall we say 'mis-stroke'... of my pen, you can have another chance."
+ 
+@key
+@do goto fee
+@end
+ 
+@#bardonation
+@do readnum 10 0
+@if `v40 > money then do
+@begin
+;@show
+;
+;
+;`0You don't have `@`v40 `0with you.  You only have `@&money`0.
+;@key
+@do goto broke
+@end
+@if `v40 is 0 then do
+@begin
+@show
+ 
+ 
+`2"Nothing?  Remember, I won't put your name on the card unless you contribute."
+@key
+@do goto leave
+@end
+@if `v40 < 0 then do
+@begin
+@show
+ 
+`9You think about stealing from Sauraman, but realize that would be a BAD idea.
+ 
+@key
+@do goto leave
+@end
+@do money - `v40
+@show
+ 
+`2"Thank you.  `v40 will help, but we can always use more."
+@key
+@do goto leave
+ 
+@#turgdonation
+@do readnum 10 0
+@if `v40 > money then do
+@begin
+;@show
+;
+;
+;`0You don`t have `@`v40 `0with you.  You only have `@&money`0.
+;@key
+@do goto broke
+@end
+@if `v40 is 0 then do
+@begin
+@show
+ 
+ 
+`2"Nothing?  Remember, I won't put your name on the card unless you contribute."
+@key
+@do goto leave
+@end
+@if `v40 < 0 then do
+@begin
+@show
+ 
+`9You think about stealing from Sauraman, but realize that would be a BAD idea.
+ 
+@key
+@do goto leave
+@end
+@do money - `v40
+@show
+ 
+`2"Thank you.  `v40 will help, but we can always use more."
+@key
+@do goto leave
+ 
+@#leave
+@clear screen
+@drawmap
+@update
+@do saybar
+That Sauraman sure is a seedy looking character.
+@closescript
+ 
+@#broke
+@clear screen
+@show
+`9You search through your pockets and realize that you don't have that much
+with you.
+@key
+@show
+ 
+`9Sauraman looks at you in disgust and snarls.
+@key
+@show
+ 
+`2"You imbecile.  If that's all the brains you have, no wonder you were forced
+to become a lowly warrior!"
+@key
+@show
+ 
+`2"Now get out of here!  And don't come back til you have the cash!"
+@key
+@do goto leave
+ 
+@#nomore

xtrn/lord2/cnw/badcomp.ref

+; Script file BADCOMP.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:28 2001
+
+@DECLARE beach 000000509
+@DECLARE boy 000000834
+@DECLARE girl 000001509
+@DECLARE grouch 000001757
+@DECLARE evidence 000002330
+@DECLARE forester 000002698
+@DECLARE carpenter 000003213
+@DECLARE fireside1 000003512
+@DECLARE ahyool 000003734
+@DECLARE fireside2 000008163
+@DECLARE blueface 000008281
+@DECLARE load 000008531
+@DECLARE save 000008580
+@DECLARE nomore 000008631
+@NOCHECK
+; End of .REF index
+
+@#BEACH
+;Girl walking by surf
+@ROUTINE LOAD
+@DO MOVEBACK
+@if `p21 is 15 then do
+ @begin
+ @closescript
+ @end
+@if `p21 > 2 then do
+ @begin
+@do saybar
+`7Tomestone: Here lies Carly, `%R.I.P.
+ @end
+@IF `p21 < 3 then do
+@begin
+@DO SAYBAR
+`#Carly`7: I don't trust Phillip... something about him is not right.
+@end
+
+@#BOY
+;Boy with girl
+@ROUTINE LOAD
+@DO MOVEBACK
+@if `p21 is 15 then do
+ @begin
+ @do saybar
+`7Suicide note: I have gone to find my true love!
+ @closescript
+ @end
+@if `p21 is 8 then do
+ @begin
+ @do saybar
+`7Suicide note: Even in death, Sarah haunts me... I must escape!
+ @closescript
+ @end
+@if `p21 is 1 then do
+ @begin
+@DO SAYBAR
+`9Tom`7: Has Ahyool told you about what happened? A guy killed in his sleep!
+@key
+@DO SAYBAR
+`9Tom`7: That's very distrubing, don't you think?
+@closescript
+@end
+@do saybar
+`9Tom`7: Hey, aren't you the guy that's helping Ahyool find the murderer?
+@key
+@do saybar
+`9Tom`7: You aren't doing too good a job, fathead.
+
+@#GIRL
+;Sarah
+@ROUTINE LOAD
+@DO MOVEBACK
+@if `p21 is 15 then do
+ @begin
+ @closescript
+ @end
+@if `p21 < 7 then do
+@begin
+@DO SAYBAR
+`#Sarah`7: Tommy here will protect me!
+@closescript
+@end
+@do saybar
+`7Tomestone: Sarah, `%R.I.P.
+
+@#GROUCH
+;Grouchy guy by tree
+@ROUTINE LOAD
+@DO MOVEBACK
+@if `p21 is 15 then do
+ @begin
+ @closescript
+ @end
+@if `p21 is 1 then do
+@begin
+@DO SAYBAR
+`8Philip`7: I knew this would happen. Whenever I travel, something happens.
+@closescript
+@end
+@if `p21 < 5 then do
+@begin
+@do saybar
+`8Phillip`7: More and more die, hour by hour... its like Ten Little Indians..
+@key
+@do saybar
+`8Phillip`7: And soon there will be none...
+@closescript
+@end
+@if `p21 is 15 then do
+ @begin
+ @closescript
+ @end
+@do saybar
+`7Tomestone: Here lies Phillip, `%R.I.P.
+
+@#EVIDENCE
+;Searches the rocks, finds evidence
+@ROUTINE LOAD
+@DO MOVEBACK
+@if `p21 is 15 then do
+ @begin
+ @closescript
+ @end
+@DO SAYBAR
+`7Upon searching the rock, you find a `bBLOODY GLOVE!
+@key
+@do saybar
+`7There's an inscription inside! It reads:
+@key
+@do saybar
+`7To `9TOM`7, with love, from `#Sarah`7!!!
+@key
+@do saybar
+`7This explains a lot.
+
+@#FORESTER
+;Green face
+@ROUTINE LOAD
+@DO MOVEBACK
+@if `p21 is 15 then do
+ @begin
+ @closescript
+ @end
+@if `p21 < 3 then do
+@begin
+@DO SAYBAR
+`0Forester`7: Ahyool told me what happened, and while they sleep, I go around
+@key
+@DO SAYBAR
+`7looking for evidence... its got to be here somewhere!
+@closescript
+@end
+@if `p21 is 3 then do
+ @begin
+@do saybar
+`0Forester`7: I had a vision of rocks... what could it mean???
+@closescript
+@end
+@do saybar
+`7Tomestone: Here lies `0Forester`7, `%R.I.P.
+
+@#CARPENTER
+;Ditto
+@ROUTINE LOAD
+@DO MOVEBACK
+@if `p21 is 15 then do
+ @begin
+ @closescript
+ @end
+@if `p21 < 6 then do
+@begin
+@DO SAYBAR
+`6Carpenter`7: Every day I'm delayed, I loose more and more money...
+@closescript
+@end
+@do saybar
+`7Tomestone: Here lies `6Carpenter`7, `%R.I.P.
+
+@#FIRESIDE1
+;Ahyool
+@ROUTINE LOAD
+@DO MOVEBACK
+@busy
+@if `p21 is 15 then do
+ @begin
+ @closescript
+ @end
+@if `p21 > 8 then do
+ @begin
+ @do saybar
+`7Tomestone: Here lies Ahyool, `%R.I.P.
+ @closescript
+ @end
+@LABEL AHYOOL
+@SHOW
+`r0`c`r1 Talking with Ahyool `r0`\
+@do `v01 is 4
+@choice
+Ask what's up
+[advance plot]
+<`p21 8 I know who's behind it
+Leave
+@if RESPONSE is 1 then do
+ @begin
+ @if `p21 is 1 then do
+ @begin
+ @show
+`\`\  `0"`2Well, it seems that a fellow in our caravan was murdered in his
+sleep. Most disstressing. Until now, I had had a perfect record. But we must
+find this villian before moving on. I'll keep everyone here while you and
+the `0Forester`2 look for any clues or evidence of the murderer's identity.
+        Come to me with any suspecions you may have. Let me know. And be
+careful. This person has killed once, and may not hesitate to kill again to
+save themselves.`0"
+ @end
+ @if `p21 is 2 then do
+ @begin
+ @show
+`\`\  `0"`9Blueface`2 was found slain. Highly irregular... there isn't much
+connecting the two murders - just that they were both males. `0Forester`2
+thinks that the murderer has probably hidden the evidence nearby.`0"
+ @end
+ @if `p21 is 3 then do
+ @begin
+ @show
+`\`\  `0"`#Carly`2 is dead. This is starting to scare me. We may have a
+psycho on our hands... we may be talking to them... and we don't know it!`0"
+ @end
+ @if `p21 is 4 then do
+ @begin
+ @show
+`\`\  `0"Forester`2 has been murdered. Now you're the only one searching for
+clues. You must hurry! I think `0Forester`2 was onto something and that was
+why he was slain! Last time I saw him, he was mentioning something about
+rocks.`0"
+ @end
+ @if `p21 is 5 then do
+ @begin
+ @show
+`\`\`\  `0"`8Phillip`2 has been added to the tally of the dead. I can't
+honestly say that I'll miss him, but a loss of life is a shame, regardless
+of who...`0"
+ @end
+ @if `p21 is 6 then do
+ @begin
+ @show
+`\`\`\  `0"`6The carpenter `2 is dead. There was a note found pinned to him,
+although the handwritting is terrible, I think it said something about greed
+being a deadly sin or something similar.`0"
+ @end
+ @if `p21 is 7 then do
+ @begin
+ @show
+`\`\`\  `0"`#Sarah`2 is dead now. Strangely enough, `9Tom`2 doesn't seem
+too broken over it. He just keeps drawing circles in the sand.`0"
+ @end
+ @if `p21 is 8 then do
+ @begin
+ @show
+`\`\`\  `0"`7Tom committed suicide. It seems he was the guilty party. Evidently,
+this all started out of jealously, blossomed by `#Sarah`2's powermongering,
+and then turned in on itself with grief.`0"
+ @end
+ @key
+ @DO GOTO AHYOOL
+ @end
+@if RESPONSE is 2 then do
+ @begin
+@show
+`\`\ `0(`2plot advanced`0)
+ @key
+ @do `p21 + 1
+ @if `p21 is 9 then do
+ @begin
+ @do `p21 - 1
+ @end
+ @ROUTINE SAVE
+ @DO GOTO AHYOOL
+ @end
+@if RESPONSE is 3 then do
+ @begin
+ @do `v01 is 1
+@show
+`\`\`r1 Ratin' on the bum `r0`\
+ @choice
+<`p21 2 Blueface
+<`p21 3 Carly
+<`p21 4 Forester
+<`p21 5 Phillip
+<`p21 6 Carpenter
+<`p21 7 Sarah
+<`p21 8 Tom
+@if RESPONSE < 7 then do
+ @begin
+ @show
+`r0`c`2 You and Ahyool go to investigate your suspect, and while questioning
+them, you three stumble over a corpse! Yuck! Obviously, you were mistaken.
+But while you were busy, the murderer has committed two more heinous deeds!
+@key
+@do `p21 + 2
+@ROUTINE SAVE
+@DO GOTO AHYOOL
+@end
+@show
+`r0`c`2 You corner Tom, and he spills his guts.
+@if `p21 > 1 then do
+ @show
+`2He killed `9Blueface `2because he was jealous (he'd seen him with Sarah).
+@if `p21 > 2 then do
+ @show
+`2He killed `#Carly`2 because Sarah demanded it as proof of his love.
+@if `p21 > 3 then do
+ @show
+`2He killed `0Forester`2 out of desperation -- he was on to him.
+@if `p21 > 4 then do
+ @show
+`2He killed Phillip because Phillip was about to turn him in.
+@if `p21 > 5 then do
+ @show
+`2He killed the `6Carpenter`2 because he was greedy.
+@if `p21 > 6 then do
+ @show
+`2He killed `#Sarah`2 because she was a demanding ...
+@show
+`\
+        Ahyool congradulates you and chains Tom to the spot, leaving him
+to rot. `0"`2To give him some time to contemplate what he did.`0" `2Ahyool
+mutters.
+        As a sign of gratitude, each of the survivors agree to give a
+portion of their lifeforce to you. Ahyool performs the ceremony.
+@do `p22 is 30
+@do `p21 * 3
+@do `p22 - `p21
+@show
+        You get `$`p22`2 defense, hitpoints, and strength.
+@do `p02 + `p22
+@do `p03 + `p22
+@do `p04 + `p22
+@do `p05 + `p22
+@do `p21 is 15
+@routine SAVE
+@key
+@DO GOTO AHYOOL
+@end
+@if RESPONSE is 4 then do
+ @begin
+ @drawmap
+ @update
+ @do saybar
+`7Ahyool: Take care, friend.
+ @closescript
+
+@#FIRESIDE2
+;Ditto
+@ROUTINE LOAD
+@DO MOVEBACK
+@DO SAYBAR
+`4Farague`7: Time is the fire in which we all burn...
+
+@#BLUEFACE
+;Guy north side
+@ROUTINE LOAD
+@DO MOVEBACK
+@if `p21 < 2 then do
+ @begin
+@DO SAYBAR
+`9Blueface`7: Man, I got the blues. >starts playing lyre<
+@closescript
+@end
+@do saybar
+`7Tomestone: Here lies `9Blueface`7, may he rest in peace.
+
+@#LOAD
+@dataload badcomp.idf &playernum `p21
+
+@#SAVE
+@datasave badcomp.idf &playernum `p21
+
+@#NOMORE

xtrn/lord2/cnw/badwords.dat

+;No, I'm not swearing for fun.  (not this time)  This is the list of bad
+;words and replacements.  Add as you wish.  Uncomment the commented ones to
+;screw with users.  <G>
+;
+;if you WANT some words allowed, delete or comment them out with a ;
+;
+Mr.T|That cool guy
+fuck|fudge
+shit|shoot
+dick|richard
+prick|thorn
+pussy|kitty
+cunt|meany
+bitch|she dog
+phuck|bless
+penis|little pooner
+cock|pencil
+clit|thingie
+schlong|your mom
+;god|`%Seth`2
+;hate|love
+;die|live

xtrn/lord2/cnw/bann.clr

+[?7h
+
+
+
+
+            
+  Hear Ye  
+  Hear Ye   
+ Hear Ye   
+            
+
+ 
+
+
+    

xtrn/lord2/cnw/battle1.ans

+[?7h